MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Converter Orçamento para Pedido !

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Converter Orçamento para Pedido ! Empty [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
    [Resolvido]Converter Orçamento para Pedido ! AttachmentOrcForum.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (171 Kb) Baixado 118 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 em 28/7/2014, 23:29

    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 100%

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

    [Resolvido]Converter Orçamento para Pedido ! Empty 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.
    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 100%

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

    [Resolvido]Converter Orçamento para Pedido ! Empty 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.
    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 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
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Converter Orçamento para Pedido ! Empty 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.
    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 100%

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

    [Resolvido]Converter Orçamento para Pedido ! Empty 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)
    avatar
    diogojoi
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Converter Orçamento para Pedido ! Empty 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
    [Resolvido]Converter Orçamento para Pedido ! Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (341 Kb) Baixado 33 vez(es)


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

    Respeito às Regras 100%

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

    [Resolvido]Converter Orçamento para Pedido ! Empty 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.
    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 100%

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

    [Resolvido]Converter Orçamento para Pedido ! Empty 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....

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


    Obrigado
    Diogo
    avatar
    diogojoi
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Converter Orçamento para Pedido ! Empty 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

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Converter Orçamento para Pedido ! Empty 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.
    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 100%

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

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

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

    Obrigado Valeu

      Data/hora atual: 4/12/2020, 16:42