MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Converter Orçamento para Pedido !

    Compartilhe
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Converter Orçamento para Pedido !

    Mensagem  Silvio em 28/7/2014, 23:10

    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
    OrcForum.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (171 Kb) Baixado 80 vez(es)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Convidado
    Convidado

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

    Mensagem  Convidado em 28/7/2014, 23:29

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

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em 28/7/2014, 23:44

    Grande Beto, como vai ?

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

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em 28/7/2014, 23:56

    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.
    [Você precisa estar registrado e conectado para ver este link.]

    Convidado
    Convidado

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

    Mensagem  Convidado em 29/7/2014, 01:27

    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em 30/7/2014, 12:28

    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.
    [Você precisa estar registrado e conectado para ver este link.]

    diogojoi
    Novato
    Novato

    Respeito às Regras 100%

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

    Transformas orçamento em venda

    Mensagem  diogojoi em 7/3/2018, 20:35

    Bom Dia

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

    Obrigado


    Última edição por diogojoi em 22/3/2018, 14:33, editado 1 vez(es)

    diogojoi
    Novato
    Novato

    Respeito às Regras 100%

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

    Gerar Orçamento na Venda

    Mensagem  diogojoi em 22/3/2018, 12:45

    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
    teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (341 Kb) Baixado 5 vez(es)


    Última edição por diogojoi em 22/3/2018, 18:44, editado 2 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em 22/3/2018, 14:37

    Veja se é isso que deseja


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    diogojoi
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  diogojoi em 22/3/2018, 14:45

    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....

    [Você precisa estar registrado e conectado para ver este link.]


    Obrigado
    Diogo

    diogojoi
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  diogojoi em 22/3/2018, 18:11

    Boa Tarde

    Alguém poderia me ajudar no tópico acima

    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em 22/3/2018, 19:21

    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.
    [Você precisa estar registrado e conectado para ver este link.]

    diogojoi
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  diogojoi em 22/3/2018, 19:38

    Obrigado Valeu

      Data/hora atual: 22/6/2018, 08:12