CUPOM FISCAL....AJUDA
Bom dia Todos.....alguem manja de Cupom Fiscal...?...pois é....eu imprimo um cupom fiscal quando é feito uma venda.....mas é o seguinte....o cliente que eu tenho....ele quer colocar uma informação complementar no cupom...ou seja.....eu abro o cupom fiscal...imprimo o que tem quer ser impresso e fecho o cupom pra depois imprimir o complemento...sendo que no cupom fiscal...o máximo de caracteres é 420 ou 8 linhas....nessa parte esta certo....mas ocorre um erro quando passa pela rotina do complemento....fiz assim...
'Imprime Cupom Complementar
If TB_CONFIG2.Fields("CupomComplementar") Then
Dim Buffer As String
Buffer = transf_dados(FormaPagamentoCupomComplementar, 16, "x") & "|" ' & Chr(34) & Chr(34) & "|" & Chr(34) & Chr(34) & "|"
imprime_ecf 66, 0, Buffer, bStatusRede
Buffer = transf_dados(SetStr(TB_CONFIG2.Fields("CupomComplementarMensagem1")), 48, "x") & "|"
imprime_ecf 67, 0, Buffer, bStatusRede
Buffer = transf_dados(TB_CONFIG2.Fields("CupomComplementarMensagem2"), 48, "x") & "|"
imprime_ecf 67, 0, Buffer, bStatusRede
Buffer = transf_dados(Space(48), 48, "x") & "|"
imprime_ecf 67, 0, Buffer, bStatusRede
Buffer = transf_dados(Replace(Buffer, " ", "-"), 48, "x") & "|"
imprime_ecf 67, 0, Buffer, bStatusRede
Buffer = transf_dados(Mid(SetStr(TXT_MIDAS(4).Text) & " - " & SetStr(Tb_Clientes_NFS.Fields("Nome")), 1, 48), 48, "x") & "|"
imprime_ecf 67, 0, Buffer, bStatusRede
Buffer = transf_dados("CNPJ/CPF: " & SetStr(Tb_Clientes_NFS.Fields("CGC_CPF")), 48, "x")
imprime_ecf 67, 0, Buffer, bStatusRede
imprime_ecf 21, 0, "", bStatusRede
End If
Se alguem pode me ajudar....agradeço....
'Imprime Cupom Complementar
If TB_CONFIG2.Fields("CupomComplementar") Then
Dim Buffer As String
Buffer = transf_dados(FormaPagamentoCupomComplementar, 16, "x") & "|" ' & Chr(34) & Chr(34) & "|" & Chr(34) & Chr(34) & "|"
imprime_ecf 66, 0, Buffer, bStatusRede
Buffer = transf_dados(SetStr(TB_CONFIG2.Fields("CupomComplementarMensagem1")), 48, "x") & "|"
imprime_ecf 67, 0, Buffer, bStatusRede
Buffer = transf_dados(TB_CONFIG2.Fields("CupomComplementarMensagem2"), 48, "x") & "|"
imprime_ecf 67, 0, Buffer, bStatusRede
Buffer = transf_dados(Space(48), 48, "x") & "|"
imprime_ecf 67, 0, Buffer, bStatusRede
Buffer = transf_dados(Replace(Buffer, " ", "-"), 48, "x") & "|"
imprime_ecf 67, 0, Buffer, bStatusRede
Buffer = transf_dados(Mid(SetStr(TXT_MIDAS(4).Text) & " - " & SetStr(Tb_Clientes_NFS.Fields("Nome")), 1, 48), 48, "x") & "|"
imprime_ecf 67, 0, Buffer, bStatusRede
Buffer = transf_dados("CNPJ/CPF: " & SetStr(Tb_Clientes_NFS.Fields("CGC_CPF")), 48, "x")
imprime_ecf 67, 0, Buffer, bStatusRede
imprime_ecf 21, 0, "", bStatusRede
End If
Se alguem pode me ajudar....agradeço....
niguem pode me ajudar.....?
Você já tentou etnrar em contato com o fabricante da impressora fiscal?
entao....eu fui no site deles....e peguei alguns manuais...mas nao fala nada sobre isso....pelo menos eu nao achei nada......acho melhor eu ligar pra eles....to precisando disso.......
qual é a ECF?
Bematech....MP20 FI II
Tópico encerrado , respostas não são mais permitidas