[Resolvido]Cupom não Fiscal

Saudações a todos do Fórum.

Algumas semanas atrás tive a ajuda do Piloto para fazer um Cupom não Fiscal que ficou ótimo, agora tive que fazer uma alteração no campo desconto, antes eu buscava na tabela SaidaDetalhe o campo DesPorc, agora tenho que trocar o campo para a tabela Saída e o campo SaidaDescPorcentagem e não estou conseguindo.

Alguém poderia me dar uma ajuda.
Uso o seguinte código

Obs*. Obs.* Acrescenta o campo SaidaDescPorcentagem da tabela saída (seria para calcular o desconto no total do Cupom)

Private Sub Comando74_Click()
If MsgBox("DESEJA IMPRIMIR O PEDIDO ?", vbInformation + vbYesNoCancel, " Imprimir Pedido . ") = vbYes Then
Dim saida, SaidaDetalhe, TipoPg, tblClientes, vendedor
SaidaNumero = Forms![FmrCaixaRapido]!SaidaNumero
SaidaPg = Forms![FmrCaixaRapido]!SaidaPg
SaidaVendedor = Forms![FmrCaixaRapido]!SaidaVendedor
SaidaCliente = Forms![FmrCaixaRapido]!SaidaCliente
Dim StrValorBruto As Double
Dim StrValorDesPorc As Double
Dim StrValorDescontoTotal As Double
Dim StrValorTot As Double
Dim strtroco As Double
Dim StrValorTottroco As Double
'cupon para impressora termica de 40 colunas
'LPT1:
Open "LPT1:" For Output Access Write As #1
Print #1, Chr(27) & "0"
Print #1, Tab(3); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " COZINHA & CIA" & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(1); Chr(15); "RUA: JOSE TEODORO, 98";
Print #1, Tab(1); "Bairro: Centro - CEP: 00000-000";
Print #1, Tab(1); "Cidade: XXXXXXXXXXXXXXX - SP";
Print #1, Tab(1); "Tel:(xx)xxxx-xxxx";
Print #1, Tab(0); "-------------------------------------------------";
Print #1, Tab(3); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " CONTROLE INTERNO" & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "Pedido Num.: "; Format$(Format$(Me.SaidaNumero, "0000000"), "@@@@@@@") & Chr$(27) & Chr$(70) & Chr$(20);
'Print #1, Tab(0); "-------------------------------------------------";
'Print #1, Tab(0); " "
Print #1, Tab(0); " Cliente - "; DLookup("Nome", "tblClientes", "Codigo_Cliente =" & Me!SaidaCliente & "")
Print #1, Tab(0); " Operador - "; DLookup("Nome", "Vendedor", "Codigo_Cliente =" & Me!SaidaVendedor & "")
Print #1, Tab(0); " Pagamento - "; DLookup("PgDescricao", "TipoPg", "TipoPg =" & Me!SaidaPg & "")
'______
Print #1, Tab(0); " Data: " & Me.SaidaData; " " & " "; "Hora: " & Time;
Print #1, Tab(0); "-------------------------------------------------";
'________
'cabeça do cupon do items
Print #1, Tab(0); "Cod. Quant. Descr.Produto Unit. SubTotal";
Print #1, Tab(0); "-------------------------------------------------";
'_______________________________________________________
'selecionar items do cupom
Dim bc As DAO.Database
Set bc = CurrentDb
'------------------------
Set SaidaDetalhe = bc.OpenRecordset("SELECT SaidaDetalhe.SaidaProduto, SaidaDetalhe.SaidaNumero, " & _
"Produtos.CodBarra,Medidas.MedidasDescricao, Produtos.ProdutoDescricao, " & _
"SaidaDetalhe.SaidaQuantidade,SaidaDetalhe.SaidaValorVenda,SaidaDetalhe.VlrDesconto,SaidaDetalhe.DescGrade,SaidaDetalhe.DesPorc,SaidaDetalhe.troco " & _
"FROM (SaidaDetalhe INNER JOIN Produtos " & _
"ON SaidaDetalhe.SaidaProduto = Produtos.ProdutoCodigo) " & _
"INNER JOIN Medidas " & _
"ON Produtos.ProdutoUnidadedeMedidaNumeto = Medidas.MedidasCodigo " & _
"WHERE (((SaidaDetalhe.SaidaNumero)=" & Me.SaidaNumero & "));", dbOpenSnapshot)
StrValorBruto = 0
StrValorDesPorc = 0
'StrValorDesconto = 0
StrValorTot = 0
strtroco = 0
StrValorTottroco = 0
Do While Not SaidaDetalhe.EOF
Print #1, Tab(0); Format(SaidaDetalhe![SaidaProduto], "00000"); " " & _
Format(SaidaDetalhe![SaidaQuantidade], "0000");
Print #1, Tab(0); Format(Left(SaidaDetalhe![ProdutoDescricao], 35), "@@"); " " _
; Format$(Format$(SaidaDetalhe![SaidaValorVenda], "#,##0.00"), "@@@@@@"); " " _
; Format$(Format$(Format$(SaidaDetalhe![SaidaValorVenda] * SaidaDetalhe![SaidaQuantidade], "#,##0.00"), "@@@@@@"), "#,##0.00"),
StrValorBruto = StrValorBruto + SaidaDetalhe!SaidaValorVenda * SaidaDetalhe![SaidaQuantidade]
StrValorDesPorc = StrValorBruto * SaidaDetalhe![DesPorc] / 100
StrValorDescontoTotal = StrValorDescontoTotal + SaidaDetalhe![VlrDesconto] + SaidaDetalhe![DescGrade]
StrValorTot = StrValorBruto - StrValorDesPorc - StrValorDescontoTotal
strtroco = SaidaDetalhe![troco]
StrValorTottroco = StrValorTot - strtroco
SaidaDetalhe.MoveNext
Print #1, Tab(2); " "; _
" ";
Loop
'valor total do cupon
Print #1, Tab(0); String(48, "-");
Print #1, Tab(19); "Total Produto R$: "; Format$(Format$(StrValorBruto, "#,##0.00"), "@@@@@@")
Print #1, Tab(19); "Total Desc. R$: "; Format$(Format$(StrValorDescontoTotal, "#,##0.00"), "@@@@@@")
Print #1, Tab(19); "Total Desc. % : "; Format$(Format$(StrValorDesPorc, "#,##0.00"), "@@@@@@")
Print #1, Tab(19); "Total Cupom R$: "; Format$(Format$(StrValorTot, "#,##0.00"), "@@@@@@")
Print #1, Tab(14); String(33, "-");
Print #1, Tab(6); "Dinheiro R$: "; Format$(Format$(strtroco, "#,##0.00"), "@@@@@@")
Print #1, Tab(6); " TROCO R$: "; Format$(Format$(StrValorTottroco, "#,##0.00"), "@@@@@@")
Print #1, Tab(0); String(48, "-");
'Print #1, Tab(0); "-------------------------------------------------";
'mensagem de no rodape do cupom
Print #1, Tab(0); " Nao vale como recibo, documento nao fiscal"
Print #1, Tab(0); " Controle interno "
Print #1, Tab(0); "VOCE CLIENTE E IMPORTANTE PARA NOS, VOLTE SEMPRE"
'Print #1, Tab(0); "Fenix-Sistemas Versao 2.1" + " "; "20120730"
Print #1, Tab(0); "--------------------------------------------------" & Chr(18);
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Chr(27) + "i"
Close #1
Else
End If
End Sub

Sou grato pela atenção de todos

Manca o BD ai Naldo.

Cumprimentos.

Desculpe me pela demora, acessei agora o Forum.

Ai esta o banco.

Sou grato pela sua atenção mais uma vez.

Enumere as modificações que fez por gentileza amigão.

Cumprimentos.

Piloto, eu não entendi o que vc me pediu.

Teria que ser trocado no módulo o campo DesPorc da tabela SaidaDetalhe pelo campo SaidaDescPorcentagem da tabela Saída, esta alteração é por que eu tive que trocar o campo DesPorc pelo campo SaidaDescPorcentagem de outra tabela, não estou conseguindo esta dando erro.

Sou grato pela sua atenção.

Assim...
Mudei isso por aquilo
Apaguei isto
Retirei aquilo..



so para que eu entenda melhor e seja mais rapido a ajuda.


Cumprimentos.

Certo, vou tentar lhe explicar melhor.
O módulo esta redondinho do modo que vc me ajudou anteriormente.
Agora tenho que trocar o campo de desconto em porcentagem na minha tabela, esta desta maneira atualmente.
Dim StrValorDesPorc As Double tenho que alterar para Dim StrValor SaidaDescPorcentagem As Double (o campo esta na tabela saida) e assim sucessivamente,
Eu troquei o campo olha só o erro que esta dando ao clicar.

If MsgBox("DESEJA IMPRIMIR O PEDIDO ?", vbInformation + vbYesNoCancel, " Imprimir Pedido . ") = vbYes Then
Dim saida, SaidaDetalhe, TipoPg, tblClientes, vendedor
SaidaNumero = Forms![FmrCaixaRapido]!SaidaNumero
SaidaPg = Forms![FmrCaixaRapido]!SaidaPg
SaidaVendedor = Forms![FmrCaixaRapido]!SaidaVendedor
SaidaCliente = Forms![FmrCaixaRapido]!SaidaCliente
Dim StrValorBruto As Double
Dim StrValorSaidaDescPorcentagem As DoubleDim StrValorDescontoTotal As Double
Dim StrValorTot As Double
Dim strtroco As Double
Dim StrValorTottroco As Double
'cupon para impressora termica de 40 colunas
'LPT1:
Open "LPT1:" For Output Access Write As #1
Print #1, Chr(27) & "0"
Print #1, Tab(3); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " COZINHA & CIA" & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(1); Chr(15); "RUA: JOSE TEODORO, 98";
Print #1, Tab(1); "Bairro: Centro - CEP: 19500-000";
Print #1, Tab(1); "Cidade: MARTINOPOLIS - SP";
Print #1, Tab(1); "Tel:(18)3275-3323";
Print #1, Tab(0); "-------------------------------------------------";
Print #1, Tab(3); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " CONTROLE INTERNO" & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "Pedido Num.: "; Format$(Format$(Me.SaidaNumero, "0000000"), "@@@@@@@") & Chr$(27) & Chr$(70) & Chr$(20);
'Print #1, Tab(0); "-------------------------------------------------";
'Print #1, Tab(0); " "
Print #1, Tab(0); " Cliente - "; DLookup("Nome", "tblClientes", "Codigo_Cliente =" & Me!SaidaCliente & "")
Print #1, Tab(0); " Operador - "; DLookup("Nome", "Vendedor", "Codigo_Cliente =" & Me!SaidaVendedor & "")
Print #1, Tab(0); " Pagamento - "; DLookup("PgDescricao", "TipoPg", "TipoPg =" & Me!SaidaPg & "")
'______
Print #1, Tab(0); " Data: " & Me.SaidaData; " " & " "; "Hora: " & Time;
Print #1, Tab(0); "-------------------------------------------------";
'________
'cabeça do cupon do items
Print #1, Tab(0); "Cod. Quant. Descr.Produto Unit. SubTotal";
Print #1, Tab(0); "-------------------------------------------------";
'_______________________________________________________
'selecionar items do cupom
Dim bc As DAO.Database
Set bc = CurrentDb
'------------------------
Set SaidaDetalhe = bc.OpenRecordset("SELECT SaidaDetalhe.SaidaProduto, SaidaDetalhe.SaidaNumero, " & _
"Produtos.CodBarra,Medidas.MedidasDescricao, Produtos.ProdutoDescricao, " & _
"SaidaDetalhe.SaidaQuantidade,SaidaDetalhe.SaidaValorVenda,SaidaDetalhe.VlrDesconto,SaidaDetalhe.DescGrade,Saida.SaidaDescPorcentagem,SaidaDetalhe.troco " & _
"FROM (SaidaDetalhe INNER JOIN Produtos " & _
"ON SaidaDetalhe.SaidaProduto = Produtos.ProdutoCodigo) " & _
"INNER JOIN Medidas " & _
"ON Produtos.ProdutoUnidadedeMedidaNumeto = Medidas.MedidasCodigo " & _
"WHERE (((SaidaDetalhe.SaidaNumero)=" & Me.SaidaNumero & "));", dbOpenSnapshot)
StrValorBruto = 0
StrValorSaidaDescPorcentagem = 0'StrValorDesconto = 0
StrValorTot = 0
strtroco = 0
StrValorTottroco = 0
Do While Not SaidaDetalhe.EOF
Print #1, Tab(0); Format(SaidaDetalhe![SaidaProduto], "00000"); " " & _
Format(SaidaDetalhe![SaidaQuantidade], "0000");
Print #1, Tab(0); Format(Left(SaidaDetalhe![ProdutoDescricao], 35), "@@"); " " _
; Format$(Format$(SaidaDetalhe![SaidaValorVenda], "#,##0.00"), "@@@@@@"); " " _
; Format$(Format$(Format$(SaidaDetalhe![SaidaValorVenda] * SaidaDetalhe![SaidaQuantidade], "#,##0.00"), "@@@@@@"), "#,##0.00"),
StrValorBruto = StrValorBruto + SaidaDetalhe!SaidaValorVenda * SaidaDetalhe![SaidaQuantidade]
StrValorSaidaDescPorcentagem = StrValorBruto * saida![SaidaDescPorcentagem] / 100
StrValorDescontoTotal = StrValorDescontoTotal + SaidaDetalhe![VlrDesconto] + SaidaDetalhe![DescGrade]
StrValorTot = StrValorBruto - StrValorSaidaDescPorcentagem - StrValorDescontoTotal
strtroco = SaidaDetalhe![troco]
StrValorTottroco = StrValorTot - strtroco
SaidaDetalhe.MoveNext
Print #1, Tab(2); " "; _
" ";
Loop
'valor total do cupon
Print #1, Tab(0); String(48, "-");
Print #1, Tab(19); "Total Produto R$: "; Format$(Format$(StrValorBruto, "#,##0.00"), "@@@@@@")
Print #1, Tab(19); "Total Desc. R$: "; Format$(Format$(StrValorDescontoTotal, "#,##0.00"), "@@@@@@")
Print #1, Tab(19); "Total Desc. % : "; Format$(Format$(StrValorSaidaDescPorcentagem, "#,##0.00"), "@@@@@@")Print #1, Tab(19); "Total Cupom R$: "; Format$(Format$(StrValorTot, "#,##0.00"), "@@@@@@")
Print #1, Tab(14); String(33, "-");
Print #1, Tab(6); "Dinheiro R$: "; Format$(Format$(strtroco, "#,##0.00"), "@@@@@@")
Print #1, Tab(6); " TROCO R$: "; Format$(Format$(StrValorTottroco, "#,##0.00"), "@@@@@@")
Print #1, Tab(0); String(48, "-");
'Print #1, Tab(0); "-------------------------------------------------";
'mensagem de no rodape do cupom
Print #1, Tab(0); " Nao vale como recibo, documento nao fiscal"
Print #1, Tab(0); " Controle interno "
Print #1, Tab(0); "VOCE CLIENTE E IMPORTANTE PARA NOS, VOLTE SEMPRE"
'Print #1, Tab(0); "Fenix-Sistemas Versao 2.1" + " "; "20120730"
Print #1, Tab(0); "--------------------------------------------------" & Chr(18);
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
'Print #1, Tab(0); " "
'Print #1, Tab(0); " "
'Print #1, Tab(0); " "
'Print #1, Tab(0); " "
'comando de corte
Print #1, Chr(27) + "i"
Close #1
'CurrentDb.Execute "INSERT INTO SaidaImprimi SELECT * FROM Saida WHERE Saidanumero=" & Me.SaidaNumero
BtCaixa243.Visible = True
Form.Refresh
Comando64.SetFocus
SaidaPromissoria.Visible = False
Else
'End If
Exit_Comando74_Click:
Exit Sub
Err_Comando74_Click:
MsgBox "IMPRESSÃO DO PEDIDO CANCELADA.", vbInformation, " A T E N Ç Ã O . "
End If

Boas Naldo... Amigão já não devias saber que deves ter chaves primaria em tabelas essenciais ao sistema?

Tabela Saida: A venda por cliente
SaidaDetalhe: A descrição da referida venda ao cliente.


Estas tabelas tem que ser relacionadas, mas como fará isso se sua tabela SaidaDetalhe nao tem chave primária?????



Crie o campo de chave primária na tabela SaidaDetalhe e relacione com a tbl Saída, ai crie a consulta baseada nas duas tabelas com os campos desejados e coloque no recodset da função imprimir.


Cumprimentos.

Você criou uma variável e está colocando esta variável pra ser buscanda no Recordset!!!!!!!, isto é impossível.

O Recordset utiliza uma SQL para buscar os valores em campos da Tabela. Veja o que fez:


Set SaidaDetalhe = bc.OpenRecordset("SELECT SaidaDetalhe.SaidaProduto, SaidaDetalhe.SaidaNumero, " & _
"Produtos.CodBarra,Medidas.MedidasDescricao, Produtos.ProdutoDescricao, " & _
"SaidaDetalhe.SaidaQuantidade,SaidaDetalhe.SaidaValorVenda,SaidaDetalhe.VlrDesconto,SaidaDetalhe.DescGrade,Saida.SaidaDescPorcentagem,SaidaDetalhe.troco " & _
"FROM (SaidaDetalhe INNER JOIN Produtos " & _
"ON SaidaDetalhe.SaidaProduto = Produtos.ProdutoCodigo) " & _
"INNER JOIN Medidas " & _
"ON Produtos.ProdutoUnidadedeMedidaNumeto = Medidas.MedidasCodigo " & _
"WHERE (((SaidaDetalhe.SaidaNumero)=" & Me.SaidaNumero & "));", dbOpenSnapshot)
StrValorBruto = 0
StrValorSaidaDescPorcentagem = 0'StrValorDesconto = 0


Set SaidaDetalhe, este nome aqui é o nome dado ao Recordset e não o nome da tabela!!!!!

Quando eu digito assim: SaidaDetalhe.SaidaQuantidade, nesta instrução acima estou falando: Quero que busque a informação SaidaQuantidade no Recordseet SaidaDetalhe... No Recordset e não na tabela!!!!


Por isso eu prefiro em nomes de Recordset's colocar: Rs ou Rst, justamente para não causar este tipo de confusão.


A solução aqui é criar uma SQL baseada nas duas tabelas: Saida e SaidaDetalhe, porem ambas tem que estarem relacionadas.


Cumprimentos.

Saudações Piloto.
Quando enxuguei o banco para enviar, não tive a atenção referente a chave primária e relacionamentos, desculpe me pela falta de atenção.
Quanto ao Recordset`s tenho pouco conhecimento em VBA e SQL, uso o básico do básico, aproveito a oportunidade para lhe pedir um auxílio sobre aquisição de livro(s) com exemplos.
Estou a cinco dias tentando inserir campo SaidaDescPorcentagem da tabela Saída no código e não consigo, já tentei de tudo e nada.


Grande abraço e ou grato pela atenção.

Ha aqui no Fórum amplo material para vosso aprendizado, na salas de repositorios, tutoriais etc.

Quanto a mim, tudo que sei foi adiquirido aqui no Fórum, quando iniciei como novato não sabia nem sequer o que era uma tabela.


A consulta para o que pretende:

Set SaidaDetalhe = bc.OpenRecordset("SELECT SaidaDetalhe.IDDetalheSaida, SaidaDetalhe.SaidaNumero, SaidaDetalhe.SaidaProduto," _
& "SaidaDetalhe.SaidaQuantidade, SaidaDetalhe.SaidaValorVenda, SaidaDetalhe.SaidaBaixaOK," _
& "SaidaDetalhe.SaidaDevolucao, SaidaDetalhe.VlrDesconto, SaidaDetalhe.EntradaValorVenda," _
& "SaidaDetalhe.troco, SaidaDetalhe.DesPorc AS SaidaDetalhe_DesPorc, SaidaDetalhe.DescGrade," _
& "Saida.DesPorc AS Saida_DesPorc FROM Produtos INNER JOIN (Saida INNER JOIN SaidaDetalhe ON" _
& " Saida.SaidaNumero = SaidaDetalhe.SaidaNumero) ON Produtos.ProdutoCodigo = SaidaDetalhe.SaidaProduto" _
& " WHERE (((SaidaDetalhe.SaidaNumero)=" & Me.SaidaNumero & "));", dbOpenSnapshot)


A tabela e seus relacionamento deve estar assim:



So não coloquei no Recordset o campo refetente a tabela Medida, pois não há na tabela SaidaDetalhe campo a ser relacionado com a mesma.

Ao aplicar este recordset em substituição ao que está no seu código, possivelmente vai dar erro na instrução:

Do While SaidaDetalhe Not.EOF...

Basta nesta instrução retirar o campo que faz referencia a tabela Medidas.


Cumprimentos.

Piloto.
Esta dando este erro, já tentei de tudo e não consigo resolver

Erro em tempo de execução '1361'.
Parâmetro insuficientes. Eram esperado 1

Cara, tudo isso para inserir o campo SaidaDescPorcentagem da tabela Saída no módulo, o bicho é doido mesmo, rsrsrs.

Sou grato pela atenção

Eis:

If MsgBox("DESEJA IMPRIMIR O PEDIDO ?", vbInformation + vbYesNoCancel, " Imprimir Pedido . ") = vbYes Then
Dim saida, SaidaDetalhe, TipoPg, tblClientes, vendedor
SaidaNumero = Forms![FmrCaixaRapido]!SaidaNumero
SaidaPg = Forms![FmrCaixaRapido]!SaidaPg
SaidaVendedor = Forms![FmrCaixaRapido]!SaidaVendedor
SaidaCliente = Forms![FmrCaixaRapido]!SaidaCliente
Dim StrValorBruto As Double
Dim StrValorDesPorc As Double
Dim StrValorDescontoTotal As Double
Dim StrValorTot As Double
Dim strtroco As Double
Dim StrValorTottroco As Double
'cupon para impressora termica de 40 colunas
'LPT1:
'Open "LPT1:" For Output Access Write As #1
Open CurrentProject.Path & "\Cupom.txt" For Output Access Write As #1
Print #1, Chr(27) & "0"
Print #1, Tab(3); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " XXXXXXXXXXXXXXXXXX" & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(1); Chr(15); "RUA: JOSE TEODORO, 98";
Print #1, Tab(1); "Bairro: Centro - CEP: 00000-000";
Print #1, Tab(1); "Cidade: XXXXXXXXXXXXXXX - SP";
Print #1, Tab(1); "Tel:(xx)xxxx-xxxx";
Print #1, Tab(0); "-------------------------------------------------";
Print #1, Tab(3); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " CONTROLE INTERNO" & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "Pedido Num.: "; Format$(Format$(Me.SaidaNumero, "0000000"), "@@@@@@@") & Chr$(27) & Chr$(70) & Chr$(20);
'Print #1, Tab(0); " Cliente - "; DLookup("Nome", "tblClientes", "Codigo_Cliente =" & Me!SaidaCliente & "")
Print #1, Tab(0); " Operador - "; DLookup("Nome", "Vendedor", "Codigo_Cliente =" & Me!SaidaVendedor & "")
'Print #1, Tab(0); " Pagamento - "; DLookup("PgDescricao", "TipoPg", "TipoPg =" & Me!SaidaPg & "")
'______
Print #1, Tab(0); " Data: " & Me.SaidaData; " " & " "; "Hora: " & Time;
Print #1, Tab(0); "-------------------------------------------------";
'________
'cabeça do cupon do items
Print #1, Tab(0); "Cod. Quant. Descr.Produto Unit. SubTotal";
Print #1, Tab(0); "-------------------------------------------------";
'_______________________________________________________
'selecionar items do cupom
Dim bc As DAO.Database
Set bc = CurrentDb
'------------------------

Set SaidaDetalhe = bc.OpenRecordset("SELECT SaidaDetalhe.IDDetalheSaida, SaidaDetalhe.SaidaNumero, SaidaDetalhe.SaidaProduto," _
& "SaidaDetalhe.SaidaQuantidade, SaidaDetalhe.SaidaValorVenda, SaidaDetalhe.SaidaBaixaOK," _
& "SaidaDetalhe.SaidaDevolucao, SaidaDetalhe.VlrDesconto, SaidaDetalhe.EntradaValorVenda," _
& "SaidaDetalhe.troco,SaidaDetalhe.DesPorc AS SaidaDetalhe_DesPorc, SaidaDetalhe.DescGrade," _
& "Saida.DesPorc AS Saida_DesPorc, Produtos.ProdutoDescricao FROM Saida INNER JOIN (Produtos INNER JOIN SaidaDetalhe ON Produtos.ProdutoCodigo = SaidaDetalhe.SaidaProduto)" _
& " ON Saida.SaidaNumero = SaidaDetalhe.SaidaNumero" _
& " WHERE (((SaidaDetalhe.SaidaNumero)=" & Me.SaidaNumero & "));", dbOpenSnapshot)



'Set SaidaDetalhe = bc.OpenRecordset("SELECT SaidaDetalhe.SaidaProduto, SaidaDetalhe.SaidaNumero, " & _
"Produtos.CodBarra,Medidas.MedidasDescricao, Produtos.ProdutoDescricao, " & _
"SaidaDetalhe.SaidaQuantidade,SaidaDetalhe.SaidaValorVenda,SaidaDetalhe.VlrDesconto,SaidaDetalhe.DescGrade,SaidaDetalhe.DesPorc,SaidaDetalhe.troco " & _
"FROM (SaidaDetalhe INNER JOIN Produtos " & _
"ON SaidaDetalhe.SaidaProduto = Produtos.ProdutoCodigo) " & _
"INNER JOIN Medidas " & _
"ON Produtos.ProdutoUnidadedeMedidaNumeto = Medidas.MedidasCodigo " & _
"WHERE (((SaidaDetalhe.SaidaNumero)=" & Me.SaidaNumero & "));", dbOpenSnapshot)
StrValorBruto = 0
StrValorDesPorc = 0
'StrValorDesconto = 0
StrValorTot = 0
strtroco = 0
StrValorTottroco = 0
Do While Not SaidaDetalhe.EOF
Print #1, Tab(0); Format(SaidaDetalhe![SaidaProduto], "00000"); " " & _
Format(SaidaDetalhe![SaidaQuantidade], "0000");
Print #1, Tab(0); Format(Left(SaidaDetalhe![ProdutoDescricao], 35), "@@"); " " _
; Format$(Format$(SaidaDetalhe![SaidaValorVenda], "#,##0.00"), "@@@@@@"); " " _
; Format$(Format$(Format$(SaidaDetalhe![SaidaValorVenda] * SaidaDetalhe![SaidaQuantidade], "#,##0.00"), "@@@@@@"), "#,##0.00"),
StrValorBruto = StrValorBruto + SaidaDetalhe!SaidaValorVenda * SaidaDetalhe![SaidaQuantidade]
StrValorDesPorc = Nz(StrValorBruto * SaidaDetalhe!Saida_DesPorc / 100, 0)
StrValorDescontoTotal = StrValorDescontoTotal + SaidaDetalhe![VlrDesconto] + SaidaDetalhe![DescGrade]
StrValorTot = StrValorBruto - StrValorDesPorc - StrValorDescontoTotal
strtroco = SaidaDetalhe![troco]
StrValorTottroco = StrValorTot - strtroco
SaidaDetalhe.MoveNext
Print #1, Tab(2); " "; _
" ";
Loop
'valor total do cupon
Print #1, Tab(0); String(48, "-");
Print #1, Tab(19); "Total Produto R$: "; Format$(Format$(StrValorBruto, "#,##0.00"), "@@@@@@")
Print #1, Tab(19); "Total Desc. R$: "; Format$(Format$(StrValorDescontoTotal, "#,##0.00"), "@@@@@@")
Print #1, Tab(19); "Total Desc. % : "; Format$(Format$(StrValorDesPorc, "#,##0.00"), "@@@@@@")
Print #1, Tab(19); "Total Cupom R$: "; Format$(Format$(StrValorTot, "#,##0.00"), "@@@@@@")
Print #1, Tab(14); String(33, "-");
Print #1, Tab(6); "Dinheiro R$: "; Format$(Format$(strtroco, "#,##0.00"), "@@@@@@")
Print #1, Tab(6); " TROCO R$: "; Format$(Format$(StrValorTottroco, "#,##0.00"), "@@@@@@")
Print #1, Tab(0); String(48, "-");
'Print #1, Tab(0); "-------------------------------------------------";
'mensagem de no rodape do cupom
Print #1, Tab(0); " Nao vale como recibo, documento nao fiscal"
Print #1, Tab(0); " Controle interno "
Print #1, Tab(0); "VOCE CLIENTE E IMPORTANTE PARA NOS, VOLTE SEMPRE"
'Print #1, Tab(0); "Fenix-Sistemas Versao 2.1" + " "; "20120730"
Print #1, Tab(0); "--------------------------------------------------" & Chr(18);
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Chr(27) + "i"
Close #1
Else
End If
End Sub

Observe a linha em vermelho acima:

StrValorDesPorc = Nz(StrValorBruto * SaidaDetalhe!Saida_DesPorc / 100, 0)

O campo na tabela Saida DescPorc está nulo, e em código não se aceita carregar variáveis com valores nulos, portanto tratei para em caso de nulos apresentar o valor 0, com a função NZ


https://dl.dropbox.com/u/26441349/Naldo_1.rar


Cumprimentos.

Piloto.

Acredito que não estou conseguindo passar para você o problema, observe nas explicações anteriores,

O que estou necessitando e não conseguindo seria acrescentar um campo novo no módulo do cupom, o nódulo que postei no início do tópico esta funcionando nos conferme, não havendo necessidades de alterar o restante.

Só necessito de acrescentar novo campo que é o ValorDescPorc(este é o campo da tabela) que se encontra na tabela saída.


Saudações e sou grato pela atenção

Acrescentar onde Naldo?????????


Se for no recordset está ai....

O Desconto é por cliente correto?

Tabela saída :Venda X para o cliente João... (Aqui tem o desconto)
Tabela SaidaDetalhe N produtos para a venda X

Este desconto será dado a soma dos produtos da venda X?

Eu realmente não estou compreendendo, pois o Campo Desc da tabela Saida ja esta ai no recordset.


Agora se deseja apenas carregar uma variável com o valor do desconto, utilize o Dlookup, porem tem que ter disponivel a ID do cliente para buscar a informação do mesmo.


Cumprimentos.

Olha aqui onde colocou o campo que deseja..., assim o fiz:

Set SaidaDetalhe = bc.OpenRecordset("SELECT SaidaDetalhe.SaidaProduto, SaidaDetalhe.SaidaNumero, " & _
"Produtos.CodBarra,Medidas.MedidasDescricao, Produtos.ProdutoDescricao, " & _
"SaidaDetalhe.SaidaQuantidade,SaidaDetalhe.SaidaValorVenda,SaidaDetalhe.VlrDesconto,SaidaDetalhe.DescGrade,Saida.SaidaDescPorcentagem,SaidaDetalhe.troco " & _
"FROM (SaidaDetalhe INNER JOIN Produtos " & _
"ON SaidaDetalhe.SaidaProduto = Produtos.ProdutoCodigo) " & _
"INNER JOIN Medidas " & _
"ON Produtos.ProdutoUnidadedeMedidaNumeto = Medidas.MedidasCodigo " & _
"WHERE (((SaidaDetalhe.SaidaNumero)=" & Me.SaidaNumero & "));", dbOpenSnapshot)
StrValorBruto = 0
StrValorSaidaDescPorcentagem = 0'StrValorDesconto = 0
StrValorTot = 0
strtroco = 0
StrValorTottroco = 0
Do While Not SaidaDetalhe.EOF
Print #1, Tab(0); Format(SaidaDetalhe![SaidaProduto], "00000"); " " & _
Format(SaidaDetalhe![SaidaQuantidade], "0000");
Print #1, Tab(0); Format(Left(SaidaDetalhe![ProdutoDescricao], 35), "@@"); " " _
; Format$(Format$(SaidaDetalhe![SaidaValorVenda], "#,##0.00"), "@@@@@@"); " " _
; Format$(Format$(Format$(SaidaDetalhe![SaidaValorVenda] * SaidaDetalhe![SaidaQuantidade], "#,##0.00"), "@@@@@@"), "#,##0.00"),
StrValorBruto = StrValorBruto + SaidaDetalhe!SaidaValorVenda * SaidaDetalhe![SaidaQuantidade]
StrValorSaidaDescPorcentagem = StrValorBruto * saida![SaidaDescPorcentagem] / 100

Eu fiz conforme entendi no seu exemplo, e no que postou colocou o campo no Recordsert!!!, e como o recordset estava baseado apenas na tabela SaidaDetalhe, tive que refazer o mesmo baseado nas duas tabelas...

Você me induziu a erro!!!

Pois se deseja apenas carregar uma variável com o valor do campo DescPorc da Tabela Saida:
'Aqui carrega a veriável com o campo da tabela Saida referente ao Campo Me.SaidaNumero, se o campo na tabela estiver em branco apresenta o valor 0
StrValorSaidaDescPorcentagem= Nz(DLookup("DescPorc"."Saida","SaidaNumero=" & Me.SaidaNumero & ""),0)


Agora voce pode utilizar essa variável na operação que desejar.


Cumprimentos.

Piloto.

A confusão esta entre os campos, na tabela SaidaDetalhe tem três campos de descontos que são, VlrDesconto, DesPorc e o campo DescGrade.
Na tabela Saída o campos SaidaDescPorcentagem, este é o campo a ser adicionado no módulo do cupom, acredito que ai esta a confusão no módulo o campo a ser adicionado é da Tabela Saída o campo SaidaDescPorcentagem.
Quando acrescento as alterações que você postou da erro de tempo de execução ‘3061’
Parâmetro insuficiente. Eram esperados 1.
Da uma testada para você ver, eu não consigo resolver.

Sou muito grato pela sua atenção.



Obs*. Da uma olhada com carinho nas tabelas e nos nomes dos campos, os campos SaidaDescPorcentagem, DesPorc, acredito estar ai o erro mas não consigo resolver.

Piloto.

Olha só o que vc postou...
Pois se deseja apenas carregar uma variável com o valor do campo DescPorc da Tabela Saida:
Na tabela Saida não existe o campo DescPorc e sim o campo SaidaDescPorcentagem.

Acredito esta ai o erro e eu não consigo resolver.

Amigão... Explique para que deseja esta informação...

O Recordset percorre a tabela SaidaDetalhe para preencher os itens vendidos no cupom.

Este desconto da tabela Saida voce pretende utilizar para que?????


Envie este banco que citou em seu último post.

Cumprimentos.

Naldo... Estou a utilizar o comando Dlookup, portanto deves atentar em como funciona o comando.

StrValorSaidaDescPorcentagem= Nz(DLookup("DescPorc"."Saida","SaidaNumero=" & Me.SaidaNumero & ""),0)

DescPorc = Campo a ser pesquisado na tabela

Saida = Nome da Tabela

SaidaNumero=" & Me.SaidaNumero & " = Critério para encontrar o registro correspondente.
é o Campo da chave primária na tabela saida, que está relacionado na tabela SaidaDetalhe


Então de posse desta informação, se o campo que coloquei na expressão não exite na tabela Saida, basta apenas substituir pelo campo.

A informação que está em azul!!!!


Cumprimentos.

Ai esta o banco, com o módulo funcionando na prefeição,
Agora vem a minha dificuldade, tenho que acrescenta um novo campo que é SaidaDescPorcentagem da tabela saída este campo ficara no lugar dos campos.

Dim StrValorDesPorc As Double
StrValorDesPorc = 0
StrValorDesPorc = StrValorBruto * SaidaDetalhe![DesPorc] / 100
Print #1, Tab(19); "Total Desc. % : "; Format$(Format$(StrValorDesPorc, "#,##0.00"), "@@@@@@")

Pois os campos acima não serão mais utilizados e sim substituído pelo campo SaidaDescPorcentagem da tabela Saida, seria isso que eu não consigo fazer.

Sou muito grato pela sua atenção e presteza

Leia por gentileza o post de Numero 21


Cumprimentos.

Piloto

Já tinha lido e da o seguinte erro, da uma olhada na imagem em anexo

Eis:


Dim StrValorSaidaDescPorcentagem As Double
StrValorSaidaDescPorcentagem = Nz(DLookup("SaidaDescPorcentagem", "Saida", "SaidaNumero=" & Me.SaidaNumero & ""), 0)



Cumprimentos.

Piloto.

Tudo resolvido, ficou ótimo.
Desculpe me pelos contra tempo.

Sou muitíssimo grato pela sua atenção e presteza, você é o cara.
Que DEUS lhe abençoe.

Diga me uma coisa, este cupom imprime direto para a porta LPT1 como devo proceder para enviar este cupom para as portas USB e COM1.

Não há do que se desculpar amigão. Para Nova Dúvida, Novo Tópico.

De uma pesquisada no Fórum sobre USB, creio que ja vi tópicos sobre esta Questão.


Faltou o resolvido.


Cumprimentos.

Piloto.
Vou dar uma geral no Fórum referente ao assunto das portas para impressão.
Grande mestre, Que DEUS ilumine sua mente.
Grande abraço.
Naldo

Ficou resolvido conforme abaixo. Obs* imagem em anexo.

If MsgBox("DESEJA IMPRIMIR O PEDIDO ?", vbInformation + vbYesNoCancel, " Imprimir Pedido . ") = vbYes Then
Dim saida, SaidaDetalhe, TipoPg, tblClientes, vendedor, VendedorControle
SaidaNumero = Forms![FmrCaixaRapido]!SaidaNumero
SaidaPg = Forms![FmrCaixaRapido]!SaidaPg
SaidaVendedor = Forms![FmrCaixaRapido]!SaidaVendedor
SaidaVendedorContr = Forms![FmrCaixaRapido]!SaidaVendedorContr
SaidaCliente = Forms![FmrCaixaRapido]!SaidaCliente
Dim StrValorBruto As Double
Dim StrValorDescontoTotal As Double
Dim StrValorSaidaDescPorcentagem As Double
Dim StrValorTot As Double
Dim strtroco As Double
Dim StrValorTottroco As Double
'cupon para impressora termica de 40 colunas
'LPT1:
Open "LPT1:" For Output Access Write As #1
'Print #1, Chr(27) & "0"
Print #1, Tab(3); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " NOME DA EMPRESA" & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Chr(27) & "0"
Print #1, Tab(1); Chr(15); "RUA: JOSE TEODORO, 00";
Print #1, Tab(1); "Bairro: Centro - CEP: 00000-000";
Print #1, Tab(1); "Cidade: NOME DA CIDADE - SP";
Print #1, Tab(1); "Tel:(XX)0000-0000";
Print #1, Tab(0); "----------------------------------------------------";
Print #1, Tab(3); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " CONTROLE INTERNO" & Chr$(27) & Chr$(70) & Chr$(20)
Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "Pedido Num.: "; Format$(Format$(Me.SaidaNumero, "0000000"), "@@@@@@@") & Chr$(27) & Chr$(70) & Chr$(20);
'Print #1, Tab(0); "----------------------------------------------------";
'Print #1, Tab(0); " "
Print #1, Tab(0); " Cliente - "; DLookup("Nome", "tblClientes", "Codigo_Cliente =" & Me!SaidaCliente & "")
Print #1, Tab(0); " Operador - "; DLookup("Nome", "Vendedor", "Codigo_Cliente =" & Me!SaidaVendedor & "")
Print #1, Tab(0); " Vendedor - "; DLookup("NomeContr", "VendedorControle", "Codigo_ClienteContr =" & Me!SaidaVendedorContr & "")
Print #1, Tab(0); " Tipo Pagto - "; DLookup("PgDescricao", "TipoPg", "TipoPg =" & Me!SaidaPg & "")
'______
Print #1, Tab(0); " Data: " & Me.SaidaData; " " & " "; "Hora: " & Time;
Print #1, Tab(0); "----------------------------------------------------";
'________
'cabeça do cupon do items
Print #1, Tab(0); "Cod. Quant. Descr.Produto Unit. SubTotal";
Print #1, Tab(0); "----------------------------------------------------";
'_______________________________________________________
'selecionar items do cupom
Dim bc As DAO.Database
Set bc = CurrentDb
'------------------------
Set SaidaDetalhe = bc.OpenRecordset("SELECT SaidaDetalhe.SaidaProduto, SaidaDetalhe.SaidaNumero, " & _
"Produtos.CodBarra,Medidas.MedidasDescricao, Produtos.ProdutoDescricao, " & _
"SaidaDetalhe.SaidaQuantidade,SaidaDetalhe.SaidaValorVenda,SaidaDetalhe.VlrDesconto,SaidaDetalhe.DescGrade,SaidaDetalhe.DesPorc,SaidaDetalhe.troco " & _
"FROM (SaidaDetalhe INNER JOIN Produtos " & _
"ON SaidaDetalhe.SaidaProduto = Produtos.ProdutoCodigo) " & _
"INNER JOIN Medidas " & _
"ON Produtos.ProdutoUnidadedeMedidaNumeto = Medidas.MedidasCodigo " & _
"WHERE (((SaidaDetalhe.SaidaNumero)=" & Me.SaidaNumero & "));", dbOpenSnapshot)
StrValorBruto = 0
StrValorSaidaDescPorcentagem = 0
StrValorDesconto = 0
StrValorTot = 0
strtroco = 0
StrValorTottroco = 0
Do While Not SaidaDetalhe.EOF
Print #1, Tab(0); Format(SaidaDetalhe![SaidaProduto], "00000"); " " & _
Format(SaidaDetalhe![SaidaQuantidade], "0000");
Print #1, Tab(0); Format(Left(SaidaDetalhe![ProdutoDescricao], 34), "@@"); " " _
; Format$(Format$(SaidaDetalhe![SaidaValorVenda], "#,##0.00"), "@@@@@@"); " " _
; Format$(Format$(Format$(SaidaDetalhe![SaidaValorVenda] * SaidaDetalhe![SaidaQuantidade], "#,##0.00"), "@@@@@@"), "#,##0.00"),
StrValorBruto = StrValorBruto + SaidaDetalhe!SaidaValorVenda * SaidaDetalhe![SaidaQuantidade]
StrValorSaidaDescPorcentagem = StrValorBruto * Nz(DLookup("SaidaDescPorcentagem", "Saida", "SaidaNumero=" & Me.SaidaNumero & ""), 0) / 100
StrValorDescontoTotal = StrValorDescontoTotal + SaidaDetalhe![VlrDesconto] + SaidaDetalhe![DescGrade]
StrValorTot = StrValorBruto - StrValorSaidaDescPorcentagem - StrValorDescontoTotal
strtroco = SaidaDetalhe![troco]
StrValorTottroco = StrValorTot - strtroco
SaidaDetalhe.MoveNext
Print #1, Tab(2); " "; _
" ";
Loop
'valor total do cupon
Print #1, Tab(0); String(51, "-");
Print #1, Tab(26); "Total Produto R$: "; Format$(Format$(StrValorBruto, "#,##0.00"), "@@@@@@")
Print #1, Tab(26); "Total Desc. R$: "; Format$(Format$(StrValorDescontoTotal, "#,##0.00"), "@@@@@@")
Print #1, Tab(26); "Total Desc. % : "; Format$(Format$(StrValorSaidaDescPorcentagem, "#,##0.00"), "@@@@@@")
Print #1, Tab(26); "Total Cupom R$: "; Format$(Format$(StrValorTot, "#,##0.00"), "@@@@@@")
Print #1, Tab(0); String(51, "-");
Print #1, Tab(5); "Pagto Dinheiro R$: "; Format$(Format$(strtroco, "#,##0.00"), "@@@@@@")
Print #1, Tab(5); " TROCO R$: "; Format$(Format$(StrValorTottroco, "#,##0.00"), "@@@@@@")
Print #1, Tab(0); String(51, "-");
'Print #1, Tab(0); "-------------------------------------------------";
'mensagem de no rodape do cupom
Print #1, Tab(0); " Nao vale como recibo, documento nao fiscal "
Print #1, Tab(0); " Controle interno "
Print #1, Tab(0); " VOCE CLIENTE E IMPORTANTE PARA NOS, VOLTE SEMPRE"
'Print #1, Tab(0); " OUTRA MENSAGEM "
Print #1, Tab(0); "--------------------------------------------------" & Chr(18);
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
'comando de corte
Print #1, Chr(27) + "i"
Close #1
CurrentDb.Execute "INSERT INTO SaidaImprimi SELECT * FROM Saida WHERE Saidanumero=" & Else
Exit_Comando74_Click:
Exit Sub
Err_Comando74_Click:
MsgBox "IMPRESSÃO DO PEDIDO CANCELADA.", vbInformation, " A T E N Ç Ã O . "
End If

O Fórum agradece o Retorno.