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 : 3612
    Registrado : 20/04/2011

    [Resolvido]Converter Orçamento para Pedido !

    Mensagem  Silvio em Seg 28 Jul 2014, 10: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
    OrcForum.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (171 Kb) Baixado 56 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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em Seg 28 Jul 2014, 10: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.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em Seg 28 Jul 2014, 10: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.
    [Você precisa estar registrado e conectado para ver este link.]
    O autor desta mensagem foi removido do fórum - Ver a mensagem
    avatar
    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, 12:27 am

    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 : 3612
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Qua 30 Jul 2014, 11: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.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qui 21 Set 2017, 7:25 pm