|
Bem Vindo, Visitante
|
Todos os Fórums
ADVPL
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
Imprimir Boleto junto com a Danfe |
|
Versão: |
12.1.7 |
|
Plataforma: |
. |
Complemento: |
|
|
DB: |
. |
Complemento: |
|
|
|
|
|
Mensagem do
IVAN26
em 10/04/2018, 16:40 h
Local: PR Registro: 30/10/2017 Postagens: 33 |
Boa tarde, preciso que quando faça a impressão da DANFE venha junto o boleto na impressão.
Alguém teria um código para disponibilizar para ter uma ideia de como faço isso?
Desde já, obrigado! |
|
|
Mensagem do
IVAN26
em 11/04/2018, 15:29 h
Local: PR Registro: 30/10/2017 Postagens: 33 |
Fiz esse código abaixo chamando o boleto do SICOOB, acredito que agora é colocar no código da DANFE, correto?
User Function U_BLTSICOOB
(lAuto,cPrefixoDe,cPrefixoAte,cNumeroDe,cNumeroAte,cParcelaDe,cParcelaAte,cPortadorDe,CPortadorAte,cClienteDe,cClienteAte,cLojaDe,cLojaAte,cEmissaoDe,cEmissaoAte,cVencimentoDe,cVencimentoAte,cBorderoDe,cBorderoAte,cBanco,cAgencia,cConta)
If!lAuto
If !Pergunte(cPerg,.T.)
Return(Nil)
EndIf
Else
// Impressao Automatica Boleto
Pergunte(cPerg,.F.)
MV_PAR01 := cPrefixoDe
MV_PAR02 := cPrefixoAte
MV_PAR03 := cNumeroDe
MV_PAR04 := cNumeroAte
MV_PAR05 := cParcelaDe
MV_PAR06 := cParcelaAte
MV_PAR07 := cPortadorDe
MV_PAR08 := cPortadorAte
MV_PAR09 := cClienteDe
MV_PAR10 := cClienteAte
MV_PAR11 := cLojaDe
MV_PAR12 := cLojaAte
MV_PAR13 := cEmissaoDe
MV_PAR14 := cEmissaoAte
MV_PAR15 := cVencimentoDe
MV_PAR16 := cVencimentoAte
MV_PAR17 := cBorderoDe
MV_PAR18 := cBorderoAte
MV_PAR19 := cBanco
MV_PAR20 := cAgencia
MV_PAR21 := cConta |
|
|
Mensagem do
DSANDRO
em 11/04/2018, 17:37 h
Local: GO Registro: 23/01/2012 Postagens: 54 |
Oi Ivan,
Tenho um que eu fiz usando o ponto de entrada M460FIM
USER function gerablt()
//=========================================================
//Chama boleto
//=========================================================
_aBoleto := {}
aadd( _aBoleto, space(3) )
aadd( _aBoleto, "ZZZ" )
aadd( _aBoleto, SF2->F2_DOC )
aadd( _aBoleto, SF2->F2_DOC )
aadd( _aBoleto, SE1->E1_PARCELA)
aadd( _aBoleto, Replicate("Z",Len(SE1->E1_PARCELA) ) )
aadd( _aBoleto, SE1->E1_PORTADO )
aadd( _aBoleto, Replicate("Z",Len(SE1->E1_PORTADO) ) )
aadd( _aBoleto, SF2->F2_CLIENTE )
aadd( _aBoleto, SF2->F2_CLIENTE )
aadd( _aBoleto, SF2->F2_LOJA )
aadd( _aBoleto, SF2->F2_LOJA )
aadd( _aBoleto, SF2->F2_EMISSAO )
aadd( _aBoleto, SF2->F2_EMISSAO )
aadd( _aBoleto, stod(ddatabase) )
aadd( _aBoleto, stod(ddatabase + 1) )
aadd( _aBoleto, SE1->E1_NUMBOR )
aadd( _aBoleto, Replicate("Z",Len(SE1->E1_NUMBOR) ) )
aadd( _aBoleto, Space( Len(SF2->F2_CARGA) ) )
aadd( _aBoleto, Replicate("Z",Len(SF2->F2_CARGA) ) )
aadd( _aBoleto, "" )
aadd( _aBoleto, "" )
u_RFIN001(_aBoleto)
Return
Sandro Delfino
Consultor de Sistemas
skype: sandrodelfino@hotmail.com
62 9238 6880 |
|
|
Mensagem do
IVAN26
em 12/04/2018, 08:32 h
Local: PR Registro: 30/10/2017 Postagens: 33 |
Obrigado Sandro, irei testar aqui o fonte. Uma duvida, o U_RFIN001, seria a chamada do meu programa de boleto, certo? |
|
|
Mensagem do
DSANDRO
em 12/04/2018, 10:27 h
Local: GO Registro: 23/01/2012 Postagens: 54 |
Bom dia Ivan,
Isso mesmo, aí é só preparar o seu programa do boleto para receber o vetor ao invés de trazer as perguntas.
Sandro Delfino
Consultor de Sistemas
skype: sandrodelfino@hotmail.com
62 9238 6880 |
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|