MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Converter Orçamento para Pedido !

    Mensagem  Silvio em Seg 28 Jul 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 45 vez(es)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    O autor desta mensagem foi removido do fórum - Ver a mensagem

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em Seg 28 Jul 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.]

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em Seg 28 Jul 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.]
    O autor desta mensagem foi removido do fórum - Ver a mensagem

    Beto Givoni
    VIP
    VIP

    Respeito às Regras 0%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1207
    Registrado : 04/01/2011

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

    Mensagem  Beto Givoni em Ter 29 Jul 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
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em Qua 30 Jul 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.]

      Data/hora atual: Sex 09 Dez 2016, 13:28