IMPRIMIR DADOS DA VENDA COM CRYSTAL REPORTS 4.6

MOREIRA 22/02/2010 01:37:00
#334993

Eu uso o objeto print do vb... faço Impressão em uma impressora TERMICA...

Sub Cabecalho()
Open [Ô]LPT1[Ô] For Output As #1
Print #1, Chr$(27) & Chr(15)
Print #1, Spc(0); [Ô] XXXXXXXXXXXXXXX [Ô]
Print #1, Spc(0); [Ô] CNPJ: 00.000.0000-00 I.E:000000000 [Ô]
Print #1, Spc(0); [Ô] Rua XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX [Ô]
Print #1, Spc(0); [Ô] Bairro = XXX - MMMMMMMMMM - Maranhao [Ô]
Print #1, Spc(0); [Ô]-------------------------------------------------------------[Ô]
Print #1, Spc(0); Date; Spc(5); Time; Spc(2); [Ô]Nº Cupom[Ô]; Spc(3); Numero_Cupom
Print #1, Spc(0); [Ô]-------------------------------------------------------------[Ô]
Print #1, Spc(0); [Ô] C U P O M [Ô]
Print #1, Spc(0); [Ô]Usuario :[Ô]; Spc(2); Usuario
Print #1, Spc(0); [Ô]Itns|CODIGO | DESCRICAO DO PRODUTO [Ô]
Print #1, Spc(0); [Ô] QTD. R$ VALOR UNIT. TOTAL R$[Ô]
Print #1, Spc(0); [Ô]-------------------------------------------------------------[Ô]
Close #1
End Sub


Public Sub Imprimi_Cupom()
Dim Alinha As String * 12
[ô]--------
Cabecalho
[ô]--------
Open [Ô]LPT1[Ô] For Output As #1
Set rst = New ADODB.Recordset
Sql = [Ô]Select * From Tbl_Itens_Venda Where Num_Cupom =[ô][Ô] & Numero_Cupom & [Ô][ô] And Num_Caixa = [ô][Ô] & Numero_Caixa & [Ô][ô]And Status = [ô]Aberto[ô][Ô]
rst.Open Sql, Conexao, 3

Do While Not rst.EOF = True
Print #1, Spc(0); Format(rst!Itens, [Ô]000[Ô]); Spc(1); Format(rst!Codigo_Barra, [Ô]00000000000000[Ô]); Spc(1); Mid(rst!Nome_DoProduto, 1, 30)
Print #1, Spc(9); Format(rst!Quantidade, [Ô]###,##0.000[Ô]); Spc(3); [Ô]X[Ô]; Spc(3); Format(Format(rst!Valor_Unitario, [Ô]###,##0.00[Ô]), [Ô]@@@@@@@@@@@[Ô]); Spc(4); [Ô]=[Ô]; Spc(9); Right(Space(9) & Format(rst!valor_total, [Ô]###,##0.00[Ô]), 10)

rst.MoveNext
Loop
Close #1
[ô]----------
Fecha_Cupom
[ô]----------
Itens = 0
[ô]----------
End Sub



Sub Fecha_Cupom()
Dim Linha As String
Linha = Mid(Linha, 50 - Len(TxtValor_Pago.Text))
Open [Ô]LPT1[Ô] For Output As #1
Print #1, Chr$(27) & Chr(15)
Print #1, Spc(0); [Ô]-------------------------------------------------------------[Ô]
Print #1, Spc(5); [Ô]TOTAL A PAGAR[Ô]; Tab(38); Spc(10 - Len(LblValor_Compra.Caption)); LblValor_Compra.Caption
Print #1, Spc(5); LblForma_Pagamento.Caption; Tab(38); Spc(10 - Len(TxtValor_Pago.Text)); TxtValor_Pago.Text
Print #1, Spc(5); [Ô]T R O C O [Ô]; Tab(38); Spc(10 - Len(LblValor_Troco.Caption)); LblValor_Troco.Caption
Print #1, Spc(0); [Ô]-------------------------------------------------------------[Ô]
Print #1, Tab(10); [Ô] Obrigado Pela Preferencia[Ô]
Print #1, Spc(4); [Ô] Aqui voce encotra os menores precos da Cidade[Ô]
Print #1, Tab(10); [Ô] Volte Sempre ! [Ô]
Print #1, Spc(0); [Ô]-------------------------------------------------------------[Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Close #1
End Sub


TESTA AÊ...

MAO NA RODA.........

SINKERTEC 22/02/2010 10:34:21
#335009 Resposta escolhida

Cara bom dia

Pelo q entendo..vc deve ter uma tabela de pedidos e uma tabela de itens dos pedidos certo?

Se não for assim...aconselho que seja...mais prático..

sendo Crystal 4.6, eu sugiro o seguinte processo:

Crie uma tabela (Impressão)...com todos os campos da tabela pedido e da tabela itens.. qdo clicar no imprimir, faça um select via SQL buscando o pedido pelo codigo e insira o resultado nessa tabela que criou para impressão..

No Crystal...faça o relatorio pra puxar dessa tabela..

boa sorte

RICKSOUSA 24/02/2010 01:21:56
#335186

oq eu preciso é imprimir os dados dessa venda, o numero da venda o codigo do cliente e os dados, e tbm os produtos que ele comprou e o valor total, eu não to sabendo como fazer a tabela para salvar esses dados que estão na imagem, eu ja fiz duas tabelas

clientes com os campos, codigo tipo text, nome tipo text, telefone tipo text.

produtos com os campos, codigo tipo text, Descrição tipo text, e Valor tipo unidade Monetaria

eu tava pensando em fazer a tabela para salvar esses dados da seguinte maneira

tabela venda com os campos, numero da venda, codigo do cliente, codigo do produto, Qtde de produtos, Valor total....

ai na hora de imprimir...

pega da tabela o numero da venda, pega o codigo do cliente e com o codigo pegar os dados da tabela cliente, pegar o codigo do produto e pegar os dados com a quantidade que o cliente escolheu, mais e no caso de o cliente tiver escolhido mais que um produto???
e mostrar o valor total, mais eu to perdido e não to sabendo como eu faço.....

RICKSOUSA 24/02/2010 11:44:23
#335207

alguem pode dar uma luz???

SINKERTEC 24/02/2010 12:21:37
#335215

A forma q eu mandei n consgeuiu?

RICKSOUSA 24/02/2010 12:22:39
#335216

desculpe amigo é que eu não entendi...