MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    [Resolvido]Converter Orçamento para Pedido !

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5022
    Registrado : 20/04/2011

    [Resolvido]Converter Orçamento para Pedido ! Empty [Resolvido]Converter Orçamento para Pedido !

    Mensagem  Silvio Seg 28 Jul 2014, 6:10 pm

    Boa noite para todos....

    Prezados, já fiz e refiz uma busca aqui no fórum, mas ainda não encontrei ou achei algo para que, possa me elucidar, entender a rotina enfim !

    Necessito converter um orçamento para pedido.

    O frmOrcamento e o SFSubOrc, praticamente é o mesmo do Pedido ( Frmpedid e SFSaidaPeca), tirando claro alguns códigos e as tabelas, mudando apenas as chaves primárias.

    Explicando:

    FrmOrcamento = IdOrcamento / tblorcamento -->Frmpedido = idPedido /  tblpedido
    SFSubOrc       =   Idsuborc        / tblsuborc -->  Sfsaidapeca = idsaida / tblsaidapeca

    Lembrando, que eu tenho um campo calculado ( qtd, SFsaidapeca) , no evento após atualizar; ele dá baixa no estoque.

    Se alguns dos colegas puderem me dar uma luz, fico eu agradecido.

    Em anexo o frmorcamento com o subfrm.
    Anexos
    [Resolvido]Converter Orçamento para Pedido ! AttachmentOrcForum.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (171 Kb) Baixado 135 vez(es)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Convidado
    Convidado


    [Resolvido]Converter Orçamento para Pedido ! Empty Re: [Resolvido]Converter Orçamento para Pedido !

    Mensagem  Convidado Seg 28 Jul 2014, 6:29 pm

    Boa noite Silvio, no repositório de exemplos disponibilizei um exemplo de como transferir orçamentos para venda.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5022
    Registrado : 20/04/2011

    [Resolvido]Converter Orçamento para Pedido ! Empty Re: [Resolvido]Converter Orçamento para Pedido !

    Mensagem  Silvio Seg 28 Jul 2014, 6:44 pm

    Grande Beto, como vai ?

    Vou dar uma outra olhada lá......

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5022
    Registrado : 20/04/2011

    [Resolvido]Converter Orçamento para Pedido ! Empty Re: [Resolvido]Converter Orçamento para Pedido !

    Mensagem  Silvio Seg 28 Jul 2014, 6:56 pm

    Bom vamos lá...

    Dim dbOrc As Database, rs1, rs2, rs3 As DAO.Recordset

    If MsgBox("Deseja Gerar venda do Orçamento?", vbYesNo + vbQuestion, "Inclusão do Orçamento na Venda") = vbYes Then

    Set dbOrc = CurrentDb

    Set rs1 = dbOrc.OpenRecordset("Tbl_Venda", dbOpenTable)

    With rs1

    .AddNew
    ![idOrcamento] = Me.idOrcamento ---> duvida minha, posso importar uma chave primária para a outra ( idorcamento = idpedido )
    ![cliente] = Me.cliente
    ![endereco] = Me.endereco
    ![telefone] = Me.telefone
    .Update


    End With

    Daqui para baixo é que eu quero compreender a lógica do comando.

    Set rs2 = dbOrc.OpenRecordset("SELECT * FROM Tbl_DetalheOrcamento WHERE Id_Ligacao=" & Me.idOrcamento)


    Set rs3 = dbOrc.OpenRecordset("Tbl_detalheVenda", dbOpenTable)


    While (Not rs2.EOF)
    With rs3
    .AddNew
    ![Id_ligacao] = DMax("idVenda", "Tbl_Venda")
    ![codProduto] = rs2![codProduto]
    ![Produto] = rs2![Produto]
    ![descricao] = rs2![descricao]
    ![marca] = rs2![marca]
    .Update
    rs2.MoveNext
    End With
    Wend

    rs1.Close
    Set rs1 = Nothing

    rs2.Close
    Set rs2 = Nothing

    rs3.Close
    Set rs3 = Nothing

    Set dbOrc = Nothing

    DoCmd.OpenForm "frm_venda", acNormal, , "idOrcamento = " & Me.idOrcamento & ""
    DoCmd.Close acForm, "frm_orcamento"
    Else

    DoCmd.CancelEvent

    End If

    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Convidado
    Convidado


    [Resolvido]Converter Orçamento para Pedido ! Empty Re: [Resolvido]Converter Orçamento para Pedido !

    Mensagem  Convidado Seg 28 Jul 2014, 8:27 pm

    Aqui abro a tabela onde estão os produtos do orçamento
    Set rs2 = dbOrc.OpenRecordset("SELECT * FROM Tbl_DetalheOrcamento WHERE Id_Ligacao=" & Me.idOrcamento)

    Aqui abro a tabela que vai receber os produtos do orçamento
    Set rs3 = dbOrc.OpenRecordset("Tbl_detalheVenda", dbOpenTable)


    Aqui os campos que vão receber os dados dos produtos do orçamento
    While (Not rs2.EOF)
    With rs3
    .AddNew
    ![Id_ligacao] = DMax("idVenda", "Tbl_Venda")
    ![codProduto] = rs2![codProduto]
    ![Produto] = rs2![Produto]
    ![descricao] = rs2![descricao]
    ![marca] = rs2![marca]
    .Update
    rs2.MoveNext
    End With
    Wend

    Aqui fecho as tabelas abertas
    rs1.Close
    Set rs1 = Nothing

    rs2.Close
    Set rs2 = Nothing

    rs3.Close
    Set rs3 = Nothing

    Set dbOrc = Nothing

    Aqui abro o formulário de vendas exatamente  com as informações do orçamento transformado em venda

    DoCmd.OpenForm "frm_venda", acNormal, , "idOrcamento = " & Me.idOrcamento & ""
    DoCmd.Close acForm, "frm_orcamento"
    Else

    Aqui o evento é cancelado caso eu escolha a opção "não", ou seja, se eu não desejar transformar o orçamento em venda
    DoCmd.CancelEvent

    End If

    End Sub
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5022
    Registrado : 20/04/2011

    [Resolvido]Converter Orçamento para Pedido ! Empty Re: [Resolvido]Converter Orçamento para Pedido !

    Mensagem  Silvio Qua 30 Jul 2014, 7:28 am

    Grande Beto...bom dia.

    Era isso mesmo, fiz alguns teste aqui e tive que mudar algumas coisas, para ter mais exatidão.
    Agora a baixa do saldo que eu fazia ao digitar a quantidade, mudei para quando se salva o pedido devido a conversão de orçamento para pedido.
    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    diogojoi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 06/04/2016

    [Resolvido]Converter Orçamento para Pedido ! Empty Transformas orçamento em venda

    Mensagem  diogojoi Qua 07 Mar 2018, 3:35 pm

    Bom Dia

    Alguém poderia me ajudar no tópico abaixo:

    Obrigado


    Última edição por diogojoi em Qui 22 Mar 2018, 10:33 am, editado 1 vez(es)
    avatar
    diogojoi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 06/04/2016

    [Resolvido]Converter Orçamento para Pedido ! Empty Gerar Orçamento na Venda

    Mensagem  diogojoi Qui 22 Mar 2018, 8:45 am

    Bom Dia

    Alguém poderia me ajudar  a implementar o codigo Gerar Orçamento fiz aqui de varias maneiras mas não deu certo sou iniciante em acess...

    Eu estava usando esse codigo que encontrei aqui...


    Código:
     
    Private Sub btn_vender_Click()
     
       Dim dbOrc As Database, rs1, rs2, rs3 As DAO.Recordset

       If MsgBox("Deseja Gerar venda do Orçamento?", vbYesNo + vbQuestion, "Inclusão do Orçamento na Venda") = vbYes Then
       
           Set dbOrc = CurrentDb
           
           Set rs1 = dbOrc.OpenRecordset("Tbl_Venda", dbOpenTable)
               
           With rs1
           
           .AddNew
           ![cliente] = Me.cliente
           ![endereco] = Me.endereco
           ![telefone] = Me.telefone
           .Update
           
           End With
           
           
           Set rs2 = dbOrc.OpenRecordset("SELECT * FROM Tbl_DetalheOrcamento WHERE Id_Ligacao=" & Me.idOrcamento)
           Set rs3 = dbOrc.OpenRecordset("Tbl_detalheVenda", dbOpenTable)
           
         
           While (Not rs2.EOF)
               With rs3
                   .AddNew
                   ![Id_ligacao] = DMax("idVenda", "Tbl_Venda")
                   ![codProduto] = rs2![codProduto]
                   ![Produto] = rs2![Produto]
                   ![descricao] = rs2![descricao]
                   ![marca] = rs2![marca]
                   .Update
                   rs2.MoveNext
               End With
           Wend
           
           rs1.Close
           Set rs1 = Nothing
           
           rs2.Close
           Set rs2 = Nothing
           
           rs3.Close
           Set rs3 = Nothing
           
           Set dbOrc = Nothing
           
           DoCmd.OpenForm "frm_venda", acNormal, , "cliente = '" & Me.cliente & "'"
           DoCmd.Close acForm, "frm_orcamento"
         Else
         
         DoCmd.CancelEvent
         
       End If

    End Sub

    Estou enviando o BD para vc dar uma olhada....  

    Se algum Colega poder me ajudar


    Obrigado
    Anexos
    [Resolvido]Converter Orçamento para Pedido ! Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (341 Kb) Baixado 44 vez(es)


    Última edição por diogojoi em Qui 22 Mar 2018, 2:44 pm, editado 2 vez(es)
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5022
    Registrado : 20/04/2011

    [Resolvido]Converter Orçamento para Pedido ! Empty Re: [Resolvido]Converter Orçamento para Pedido !

    Mensagem  Silvio Qui 22 Mar 2018, 10:37 am

    Veja se é isso que deseja


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    diogojoi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 06/04/2016

    [Resolvido]Converter Orçamento para Pedido ! Empty Re: [Resolvido]Converter Orçamento para Pedido !

    Mensagem  diogojoi Qui 22 Mar 2018, 10:45 am

    Bom Dia

    Amigo

    Eu queria que quando eu clica no botão  gerar venda  tudo que está na   Tbl_orcamentoDet subformulário e o Nome do cliente fosse para a tela de venda e o restando como data e data entrega eu preencho na hora

    Estou enviando o BD para vc dar uma olhada....

    https://1drv.ms/u/s!AmAfjVRW6N1qgV8UUnIILSGFBSjb


    Obrigado
    Diogo
    avatar
    diogojoi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 06/04/2016

    [Resolvido]Converter Orçamento para Pedido ! Empty Re: [Resolvido]Converter Orçamento para Pedido !

    Mensagem  diogojoi Qui 22 Mar 2018, 2:11 pm

    Boa Tarde

    Alguém poderia me ajudar no tópico acima

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5022
    Registrado : 20/04/2011

    [Resolvido]Converter Orçamento para Pedido ! Empty Re: [Resolvido]Converter Orçamento para Pedido !

    Mensagem  Silvio Qui 22 Mar 2018, 3:21 pm

    Eis o baita...

    Fiz umas mudanças em duas tabelas....de m2 para MQ

    Link para download externo.

    drive.google.com/file/d/1HID4hxb0TS0G7fjsPjz0yw4WCHaSrS8z/view?usp=sharing


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    marcofar07 gosta desta mensagem

    avatar
    diogojoi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 06/04/2016

    [Resolvido]Converter Orçamento para Pedido ! Empty Re: [Resolvido]Converter Orçamento para Pedido !

    Mensagem  diogojoi Qui 22 Mar 2018, 3:38 pm

    Obrigado Valeu
    avatar
    marcofar07
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 02/04/2019

    [Resolvido]Converter Orçamento para Pedido ! Empty erro em tempo de execução 3219 operação inválida

    Mensagem  marcofar07 Dom 07 Mar 2021, 12:05 am

    meu DB está dando essa msg ao clicar no botão gerar vendas, peguei o código do diogojoi que o
    Silvio fez as alterações mais quando coloco no formulário orçamento dá essa msg, oque pode ser?
    alguns dos colegas podem me ajudar ?

    O código esta assim no meu DB

    Private Sub BtGerarOrdServ_Click()

    Dim dbOrc As Database, rs1, rs2, rs3 As DAO.Recordset

    If MsgBox("Deseja Gerar Ordem de Serviço do Orçamento?", vbYesNo + vbQuestion, "Inclusão do Orçamento na Venda") = vbYes Then

    Set dbOrc = CurrentDb

    Set rs1 = dbOrc.OpenRecordset("Pedido", dbOpenTable)

    With rs1

    .AddNew
    ![IdCliente] = Me.IdCliente

    .Update

    End With


    Set rs2 = dbOrc.OpenRecordset("SELECT * FROM OrcamentoDetalhe WHERE CodigoOrcamento=" & Me.IdPedido)
    Set rs3 = dbOrc.OpenRecordset("PedidoDetalhe", dbOpenTable)


    While (Not rs2.EOF)
    With rs3
    .AddNew
    ![CodigoOrcamento] = DMax("CodigoPedido", "Pedido")
    ![CombinaçãoProduto] = rs2![CombinaçãoProduto]
    ![QtdePedido] = rs2![QtdePedido]
    ![VlUnitario] = rs2![VlUnitario]
    ![Comprimento] = rs2![Comprimento]

    ![SomaVlUnitario] = rs2![SomaVlUnitario]




    .Update
    rs2.MoveNext
    End With
    Wend

    rs1.Close
    Set rs1 = Nothing

    rs2.Close
    Set rs2 = Nothing

    rs3.Close
    Set rs3 = Nothing

    Set dbOrc = Nothing

    DoCmd.OpenForm "Pedido_Multiplo1", acNormal, "IdCliente = " & Me.IdCliente & ""
    DoCmd.Close acForm, "Orçamento1"
    Else

    DoCmd.CancelEvent

    End If
    'DoCmd.OpenForm "frmpedido", acNormal, , "Idorcamento = " & Me.IdOrcamento & ""
    'DoCmd.Close acForm, "frmorcamento"
    End Sub

      Data/hora atual: Qui 26 Jan 2023, 4:38 pm