× Linguagem de Programação ADVPL

Perguntas Impressão de dados adicionais no cupom fiscal

Mais
11 anos 3 meses atrás #16136 por RonaldoLopes
Cara, não sei se estou fazendo certo ou não, mas não imprime, peguei o exemplo que me passou e mantei algo bem simples(como na real não vou precisar consultar nada no banco) fiz bem simples e ao final do cupom não imprimiu nada.
Veja.
#include 'protheus.ch'

User Function impc()
lOCAL _LF := ""
lOCAL _nRet := 0
If MsgYesNo("Deseja imprimir parcelas ?")

_cTexto += "
" + _LF
_cTexto += "ROTINA DE TESTE PARA VERIFICAR IMPRESSAO CONFORM"
_cTexto += " NECESSIDADE DO CLIENTE PACONSTRUSHOP"
_cTexto += " WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"
_cTexto += " AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
_cTexto += " DFSDFS FSDF SDF SGT FGDF HDH DFYJFU JFTJFT JFTUJFTU FTYUFTU"
_cTexto += " 24254WQT ERT AERTA RTAEYT ATYHS THSTH STHSHTSTRHD"
_cTexto += " DSGZS GZFDG DHXD GH FCGJCFJ CJG HJ GHJ KGJKKHJK GHKJGHJK,"
_cTexto += " SFGS DFGFD GDSH SGHSDGDFG DSFHSDF GSDGS DGSDFG SDFGS DFGSDFG SDF"
_cTexto += " SFGZ SFGZS G ZFGFXDG X ZDFH XDHF DZFG DZFGDHFXDHXDHXD"


_nRet := IFTxtNFis(nHdlECF, _cTexto, 1)
_nRet := IFFchCNFis(nHdlECF)

Endif

Return

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 3 meses atrás #16137 por RonaldoLopes
Fiz isso apenas para teste.

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 3 meses atrás - 11 anos 3 meses atrás #16138 por kaciorrm
Faltou abrir o cupom Não fiscal, e vc deve estar logado como caixa.
se ainda assim não funcionar...o nome de função esta impc... aqui esta no ponto de entrada Lj7002 tenta colocara no PE.

nRet := IFAbrCNFis( nHdlECF, Tabela("24",Alltrim(_cFormaPgto),.F.), Str(SL1->L1_VLRTOT,14,2), "30" )

tenta assim:
#include 'protheus.ch'

User Function impc()
lOCAL _LF := ""
lOCAL _nRet := 0
If MsgYesNo("Deseja imprimir parcelas ?")

nRet := IFAbrCNFis( nHdlECF, Tabela("24",Alltrim(_cFormaPgto),.F.), Str(SL1->L1_VLRTOT,14,2), "30" )
_cTexto += "
" + _LF
_cTexto += "ROTINA DE TESTE PARA VERIFICAR IMPRESSAO CONFORM"
_cTexto += " NECESSIDADE DO CLIENTE PACONSTRUSHOP"
_cTexto += " WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"
_cTexto += " AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
_cTexto += " DFSDFS FSDF SDF SGT FGDF HDH DFYJFU JFTJFT JFTUJFTU FTYUFTU"
_cTexto += " 24254WQT ERT AERTA RTAEYT ATYHS THSTH STHSHTSTRHD"
_cTexto += " DSGZS GZFDG DHXD GH FCGJCFJ CJG HJ GHJ KGJKKHJK GHKJGHJK,"
_cTexto += " SFGS DFGFD GDSH SGHSDGDFG DSFHSDF GSDGS DGSDFG SDFGS DFGSDFG SDF"
_cTexto += " SFGZ SFGZS G ZFGFXDG X ZDFH XDHF DZFG DZFGDHFXDHXDHXD"


_nRet := IFTxtNFis(nHdlECF, _cTexto, 1)
_nRet := IFFchCNFis(nHdlECF)

Endif

Return
Ultima edição: 11 anos 3 meses atrás por kaciorrm.

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 3 meses atrás #16141 por RonaldoLopes
Rapaz, tu eh ninja, deu certo veio, muito obrigado.

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 3 meses atrás #16226 por RonaldoLopes
Cassio, funciona perfeitamente em impressoras bematech, porém em swedas não, fica dando parametro invalido. nesta linha
nRet := IFAbrCNFis( nHdlECF, Tabela("24",Alltrim(_cFormaPgto),.F.), Str(SL1->L1_VLRTOT,14,2), "30" )

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 3 meses atrás #16236 por RonaldoLopes
Qual seria a diferença entre impressoras bematech e sweda? É estranho funcionar apenas na bematech.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.092 segundos
Joomla templates by a4joomla