[Resolvido]Reabrindo Orçamento x Venda

Boa tarde,tenho um formulario chamado venda com as seguintes informações:
codvenda - autonumeracao; hora, datavenda; codvendedor, nele um subformulario chamado pedido.

o outro formulario chamado orçamento com as mesmas informações, o que eu gostaria e fazer o orçamento caso o cliente queira os produtos importar para o formalario venda. estou usando access2003. Espero que tenham entendido. grato jorge

ola norbs, são tabelas separadas, poderia me repassar um exemplo via codigo. grato jorge

eu criei uma consulta de acrescimo, mais so consigo importar os dados do orcamento (formulario principal. Os do subformulario, não vai. lembrando que o codvenda da tabela venda esta vinculado ao subformulario pedido, tambem pelo codvenda.

grato jorge.

sim, vamos supor que eu gere um orcamento com o codigo 5(autonumeração), quando eu importo para o formulario venda ele ja vai gera um outro codigo, exemplo, nº 13, que deveria tambem gerar la no subpedido com o mesmo codigo da venda (13) certo. é ai que ta poblema.

exatamente, eu fiz duas consultas, quando eu importo é gerado um codigo la na venda e esse mesmo devia ser gerado la no subpedido. certo, mas nao acontece isso. fica em branco

bom dia, estou enviando um pequeno exemplo so pra terem uma ideia com deveria ser. grato jorge

Ok,

ficamos nos aguardo ...!

vou tentar de novo.

nao estou conseguindo, não e so selecionar arquivo e enviar.

Talvez algum problema com o arquivo.
... Tem quer zip!

Procurar... Enviar Consulta

não estou conseguindo postar o exemplo, ja compactei mas não vai. por que sera?

Dá algum erro a inserir o anexo em .zip ?

sim, da a seguinte mensagem: "O arquivo adicionado não é valido: nome do arquivo incorreto.

Falha de digitação...
Quis dizer que é aconselhável ser .zip
Outro dia, na pressa, enviei .mdb e deu erro. Então zipei e foi!

A mensagem foi exatamente esta.

O Fórum só permite anexos nos seguintes formatos:

( 3g2, 3gp, bmp, doc, docm, docx, gif, jpg, m4a, m4v, mov, mp3, mp4, mpg, pdf, png, pps, ppt, pptm, pptx, swf, tif, txt, wma, wmv, xls, xlsb, xlsm, xlsx, zip )

Por isso tem de zipar o seu banco.

vou tentar de novo. para que agora vai.

Olá

Acho que tranquei no mesmo ponto que você...
Fiz o seguinte:

' 1 - criei o campo codorca na tblorcamento para obter os orçamentos importados
' 2 - criei a combo SelectOrca no frmvenda para definir o orçamento a ser importado
' origem dos dados: SELECT tblorcamento.codvenda, tblorcamento.data, tblorcamento.hora, tblorcamento.vendedor FROM tblorcamento ORDER BY tblorcamento.data DESC;
'
' no evento após atualizar da combo
'
Private Sub SelectOrca_AfterUpdate()
Dim Ver As Integer
' verifica se já existe o codorca na tblvenda
Ver = Nz(DCount("[codorca]", "[tblvenda]", "codorca=Forms!frmvenda!SelectOrca"), 0)
If Ver = 0 Then
DoCmd.SetWarnings False
' importa
DoCmd.RunSQL "INSERT INTO tblvenda ( hora, data, vendedor, codorca ) SELECT tblorcamento.hora, tblorcamento.data, tblorcamento.vendedor, tblorcamento.codvenda FROM tblorcamento WHERE (((tblorcamento.codvenda) = [Forms]![frmvenda]![SelectOrca]));"
DoCmd.SetWarnings True
ElseIf Ver > 0 Then
MsgBox ("Este orçamento já foi importado"): End If
' atualiza
Form.Requery
' move para o registro gerado
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[codorca] = " & Str(Nz(Me![SelectOrca], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
'
' Até aí puxa os dados do orçamento, gera o novo registro na tblvenda, e move para o novo reg
' Estou tentando, mas ainda não consegui,
' inserir os registros de itens de produto na tblpedido
' correspondentes aos itens na na tblsuborcamento.

Dim rst As ADODB.Recordset
Dim lngID As Long
Dim intParc As Integer
Dim i As Variant

'conta os registros na tblsuborcamento
intParc = Nz(DCount("[codpedido]", "[tblsuborcamento]", "codvenda=" & Me.codorca), 0)
If Not intParc > 0 Then
MsgBox "O número de itens é " & intParc & "."
Exit Sub
Else
'tentativa de copiar os itens de produto
lngID = Me.codvenda 'armazena o ID
Set rst = New ADODB.Recordset 'abre a tabela
With rst
.ActiveConnection = CurrentProject.Connection
.CursorType = adOpenForwardOnly
.LockType = adLockOptimistic
.Source = "tblpedido"
.Open
For i = 1 To intParc 'adiciona um registro para cada item
.AddNew
.Fields("codvenda") = lngID
.Fields("produto") = DLookup("[produto]", "[tblsuborcamento]", "[codpedido]=" & i)
.Fields("quant") = DLookup("[quant]", "[tblsuborcamento]", "[codpedido]=" & i)
.Fields("preco") = DLookup("[preco]", "[tblsuborcamento]", "[codpedido]=" & i)
.Update
Next i
.Close
End With
Set rst = Nothing 'libera memória
Me.Refresh 'atualiza a tela
End If
End Sub

o poblema esta em gerar o mesmo codigo na tabela venda no pedido. correto, mas fico no aguardo. abrs jorge

Colegas:

Não estou conseguindo a solução...

... upando o tópico.

Resumo da situação:
Colega deseja acrescentar dados às tabelas de origem (tblvenda e tblpedido) do formulário frmvenda e seu subformulário frmpedido.
Os dados devem ser obtidos da tabela tblorcamento e da tabela tblsuborcamento.
Ou seja, copiar um orçamento para uma venda.

Fiz o abaixo:

' 1 - criei o campo codorca na tblorcamento para obter os orçamentos importados
' 2 - criei a combo SelectOrca no frmvenda para definir o orçamento a ser importado
' origem dos dados: SELECT tblorcamento.codvenda, tblorcamento.data, tblorcamento.hora, tblorcamento.vendedor FROM tblorcamento ORDER BY tblorcamento.data DESC;
'
' no evento após atualizar da combo
'
Private Sub SelectOrca_AfterUpdate()
Dim Ver As Integer
' verifica se já existe o codorca na tblvenda
Ver = Nz(DCount("[codorca]", "[tblvenda]", "codorca=Forms!frmvenda!SelectOrca"), 0)
If Ver = 0 Then
DoCmd.SetWarnings False
' importa
DoCmd.RunSQL "INSERT INTO tblvenda ( hora, data, vendedor, codorca ) SELECT tblorcamento.hora, tblorcamento.data, tblorcamento.vendedor, tblorcamento.codvenda FROM tblorcamento WHERE (((tblorcamento.codvenda) = [Forms]![frmvenda]![SelectOrca]));"
DoCmd.SetWarnings True
ElseIf Ver > 0 Then
MsgBox ("Este orçamento já foi importado"): End If
' atualiza
Form.Requery
' move para o registro gerado
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[codorca] = " & Str(Nz(Me![SelectOrca], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
'
' Até aí puxa os dados do orçamento, gera o novo registro na tblvenda, e move para o novo reg
' Estou tentando, mas ainda não consegui,
' inserir corretament os itens de produto na tblpedido
' correspondentes aos itens na na tblsuborcamento.

Dim intQt As Integer
Dim varPrazos As Variant
Dim rst As ADODB.Recordset
Dim lngID As Long 'ok
Dim intParc As Integer 'ok
Dim i As Variant

'conta os registros na tblsuborcamento
intParc = Nz(DCount("[codpedido]", "[tblsuborcamento]", "codvenda=" & Me.codorca), 0)
If Not intParc > 0 Then
MsgBox "O número de itens é " & intParc & "."
Exit Sub
Else
'tentativa de copiar os itens de produto
lngID = Me.codvenda 'armazena o ID
Set rst = New ADODB.Recordset 'abre a tabela
With rst
.ActiveConnection = CurrentProject.Connection
.CursorType = adOpenForwardOnly
.LockType = adLockOptimistic
.Source = "tblpedido"
.Open
For i = 1 To intParc 'adiciona um registro para cada item
' insere os registros mas não relaciona corretamente (repete o 1º)
.AddNew
.Fields("codvenda") = lngID
.Fields("codsuborca") = DLookup("[codpedido]", "[tblsuborcamento]", "")
.Fields("produto") = DLookup("[produto]", "[tblsuborcamento]", "[codvenda]=" & Me.codorca)
.Fields("quant") = DLookup("[quant]", "[tblsuborcamento]", "[codvenda]=" & Me.codorca)
.Fields("preco") = DLookup("[preco]", "[tblsuborcamento]", "[codvenda]=" & Me.codorca)
.Update
Next i
.Close
End With
Set rst = Nothing 'libera memória
Me.Refresh 'atualiza a tela
End If
End Sub

caro norbs, ficou bacana, so que ainda esta com um pequeno problema, quando eu importo aparece na tabela pedido varas vezes o mesmo produto. Eu tava olhando e percebi o seguinte, na tblpedido a onde tem codsuborca, ele esta recebendo o codigo do primeiro produto, eu acho que deveria ser do pedido, gerado la no tblsuborcamento, da uma olhada. Mas você ta no caminho é por ai. Grato Jorge

Pois é, veja que até descrevi isto nos comentários do código.

Acho que preciso - primeiro - acrescentar o codpedido da tblsuborcamento no codsuborca da tblpedido, e depois puxar os dados de produto, preco e quant correspondentes.

To meio ocupado, mas vou tentando.

beleza, pode ficar a vontade, quando puder de uma olhada. Abrçs Jorge

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

boa noite gostaria de reabrir o topico, pois conseguir atraves de um exemplo do criquio, o seguinte codigo abaixo, so que não consigo atualizar os dados na tblpedido. O da tblvenda esta indo legal, gostaria da analise de voces neste codigo. Valeu.

Dim db1 As Database, db2 As Database, rs1 As Recordset, rs2 As Recordset, NLinha As Long

If MsgBox("Confirma a venda?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then

Set db1 = CurrentDb
Set db2 = CurrentDb

Set rs1 = db1.OpenRecordset("tblvenda", dbOpenTable)
Set rs2 = db2.OpenRecordset("tblpedido", dbOpenTable)

rs1.AddNew

rs1("Datavenda") = Me.Datavenda
rs1("hora") = Me.hora
rs1("cod_vendedor") = Me.cod_vendedor
rs1("vendedor") = Me.vendedor
rs1("valor") = Me.valor
rs1.Update
rs1.Close
Set rs1 = Nothing
Set db1 = Nothing

For i = 1 To NLinha
rs2.AddNew

rs2("codvenda") = DMax("codvenda", "tblvenda")
rs2("cod_produto") = Me.cod_produto
rs2("produto") = Me.produto
rs2("precounit") = Me.precounit
rs2("quant") = Me.quant
rs2("desc") = Me.desc
rs2("total") = Me.total

rs2.Update
Next i
rs2.Close
Set rs2 = Nothing
Set db2 = Nothing



MsgBox "Venda confirmada.", vbOKOnly + vbInformation, "Concluído"

DoCmd.OpenForm "frmindica", acNormal
Exit Sub
End If

alo norbs, no exemplo do criquio ele utiliza uma lista, depois de confirmada a venda ela é enviada para a tblvenda e tbldetalhes. Nesse meu caso com essa adptação ele atualiza a tblvenda e joga o codigo da venda na tblpedido, mas não atulizaçao (cod_produto, produto, quant, desc....)

boa tarde, estou quase consequindo mas, ainda preciso da ajuda de voces o codigo esta desta forma, mas ainda falta atualizar os dados linha a linha na tblpedido, do jeito que esta so vai alguns itens. gostaria que me ajudassem muito, pois preciso fechar este projeto. abrçs jorge.


Dim db1 As Database, db2 As Database, rs1 As Recordset, rs2 As Recordset, i As Long



If MsgBox("Confirma a venda?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then

Set db1 = CurrentDb
Set db2 = CurrentDb

Set rs1 = db1.OpenRecordset("tblvenda", dbOpenTable)
Set rs2 = db2.OpenRecordset("tblpedido", dbOpenTable)

rs1.AddNew

rs1("Datavenda") = Me.Datavenda
rs1("hora") = Me.hora
rs1("cod_vendedor") = Me.cod_vendedor
rs1("vendedor") = Me.vendedor
rs1("valor") = Me.valor
rs1.Update
rs1.Close
Set rs1 = Nothing
Set db1 = Nothing


For i = 0 To Me.codvenda
rs2.AddNew
rs2("codvenda") = DMax("codvenda", "tblvenda")
rs2("cod_produto") = Forms!frmorcamento!frmsuborcamento![cod_produto]

rs2("produto") = Forms!frmorcamento!frmsuborcamento![produto]
rs2("precounit") = Forms!frmorcamento!frmsuborcamento![precounit]
rs2("quant") = Forms!frmorcamento!frmsuborcamento![quant]
rs2("desc") = Forms!frmorcamento!frmsuborcamento![desc]
rs2("total") = Forms!frmorcamento!frmsuborcamento![total]
rs2("Iditem") = Forms!frmorcamento!frmsuborcamento![codpedido]

rs2.Update
Next i


rs2.Close
Set rs2 = Nothing
Set db2 = Nothing



MsgBox "Venda confirmada.", vbOKOnly + vbInformation, "Concluído"

DoCmd.OpenForm "frmindica", acNormal
Exit Sub
End If

alguem tem um solução para esse codigo estou precisando muito. fico grato se for atendido. Jorge

bom dia, pessoal gostaria de uma analise de alguem olhem, como esta o codigo. estou postando um pequeno exemplo.
se possivel me respondam se tem condiçoes do q eu quero. abrçs Jorge

boa noite alguem analisou o exemplo que envei. Grato Jorge

boa tarde, alguem tem uma resposta para o meu problema? fico no aguardo. abrçs Jorge

boa tarde, disculpem pela insistencia, mas estou precisando desta solução. Alguem tem uma luz. Valeu jorge

bom dia, alguem tem alguma resposta sobre o codigo?

Tenho aqui um sistema de pedidos vou enxugar ele pois tem mais de 25mb para postar p vc acho que é bem o q vc precisa.

Boa analise e tenta aproveitar o maximo esses codigos ai é só adaptar

valeu regislange pela disposição em ajudar, mas infelizmente o seu exemplo não atendeu minhas necessidades. O codigo exposto, transfere os dados do frm orcamento para o frm venda. Eu acho que falta pouco para adptar-lo, caso voce domine o vba por favor de uma analisada nele.

Jorge

Dê uma olhada...

mudei alguns nomes de campos nas tabelas, valor para preco, nome para vendedor,
para evitar problemas internos com o access. ok

não devemos usar palavras como nome e valor pois o access usa estas palavras internamente em suas funções.

boa noite, Jungli era isso mesmo que eu queria, muito obrigado por ter resolvido este problema, agora so vou adptar para o meu sistema, valeu mesmoooooooooooo.

abrcs jorge

Jungli, surgiu um erro, mas porque eu dividi o banco para colocar em rede e apareceu a seguinte mensagem: "erro em tempo de execução 3219" operaçao invalidos.

boa tarde, estou no aguardo de uma resposta sobre o caso.

Jorge

boa noite alguem pode dizer porque surgiu um erro, quando eu dividi o banco para colocar em rede e apareceu a seguinte mensagem: "erro em tempo de execução 3219" operaçao invalidos. o Exemplo que jungli me repassou ficou bacana, mas infelizmente apareceu esta mesangem.

norbs, como eu descrevi quando o banco não tava dividido estava tudo funcionando perfeitamente, mas quando eu divido ao deu o problema.