[Resolvido]Converter Orçamento para Pedido !

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.

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

Grande Beto, como vai ?

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

Abraços.

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

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

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.

Bom Dia

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

Obrigado

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

Veja se é isso que deseja

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

Boa Tarde

Alguém poderia me ajudar no tópico acima

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

Obrigado Valeu

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