Perguntas Imprimir Danfe + Boleto

Inocencio boa noite, já fiz isso uma vez, o que vai precisar é no final da geração do danfe chamar sua rotina de impressão do boleto passando os parametros dos titulos, olha só, pra gerar o boleto em pdf já vi o pessoal reclamando que a função do código de barras não dá certo, por isso já te aconselho que vai ter muitos problemas, segue uma idéia de como passo os parâmetros chamando a rotina de impressão de boleto, após geração da danfe.

If SE4->(dbSetOrder(1), dbSeek(xFilial("SE4")+cCond)) .And. SE4->E4_DYBOLET == 'S' // Imprime Boleto
cBcoPadrao := GetNewPar("DY_BCOBOL" ,"001;3320;0;2062;1;17")
aBanco := Separa(cBcoPadrao,";",.T.)
cBanco := PadR(aBanco[1],TAMSX3("A6_COD")[1])
cAgencia := PadR(aBanco[2],TAMSX3("EE_AGENCIA")[1])
cAgeDigi := PadR(aBanco[3],TAMSX3("EE_DVAGE")[1])
cConta := PadR(aBanco[4],TAMSX3("EE_CONTA")[1])
cConDigi := PadR(aBanco[5],TAMSX3("EE_DVCTA")[1])
cSubConta := PadR(aBanco[6],TAMSX3("EE_SUBCTA")[1])

If !SEE->(dbSetOrder(1), dbSeek(xFilial("SEE")+cBanco+cAgencia+cConta+cSubConta))
If lAuto
Conout("Atencao Banco para Boleto Nao Localizado na Tabela SEE ! -> Nota " + SF2->F2_DOC)
Else
Alert("Atencao Banco para Boleto Nao Localizado na Tabela SEE ! -> Nota " + SF2->F2_DOC)
Endif
DbSelectArea("Query")
DbSkip();Loop
Endif

cPrefixoDe := QUERY->F2_SERIE
cPrefixoAte := QUERY->F2_SERIE
cNumDe := QUERY->F2_DOC
cNumAte := QUERY->F2_DOC
cParcelaDe := ' '
cParcelaAte := 'ZZZ'
cClienteDe := QUERY->F2_CLIENTE
cClienteAte := QUERY->F2_CLIENTE
cLojaDe := QUERY->F2_LOJA
cLojaAte := QUERY->F2_LOJA
nReimpressao := 2
nConsidera := 2
nMarcados := 2

U_DYFINR01(.t.,cPrefixoDe,cPrefixoAte,cNumDe,cNumAte,cParcelaDe,cParcelaAte,cClienteDe,cClienteAte,cLojaDe,cLojaAte,cBanco,cAgencia,cConta,cSubConta,nReimpressao,nConsidera,nMarcados,cImpDanfe)


E No fonte de Impressão do Boleto, vc vai receber todos os parâmetros acima e tratar dentro do fonte:

User Function DYFINR01(lAuto,cPrefixoDe,cPrefixoAte,cNumDe,cNumAte,cParcelaDe,cParcelaAte,cClienteDe,cClienteAte,cLojaDe,cLojaAte,cBanco,cAgencia,cConta,cSubConta,nReimpressao,nConsidera,nMarcados)


If !lAuto
If !Pergunte(cPerg,.T.)
Return(Nil)
EndIf
Else
// Impressao Automatica Boleto

Pergunte(cPerg,.F.)

MV_PAR01 := cPrefixoDe
MV_PAR02 := cPrefixoAte
MV_PAR03 := cNumDe
MV_PAR04 := cNumAte
MV_PAR05 := cParcelaDe
MV_PAR06 := cParcelaAte
MV_PAR07 := cClienteDe
MV_PAR08 := cClienteAte
MV_PAR09 := cLojaDe
MV_PAR10 := cLojaAte
MV_PAR11 := cBanco
MV_PAR12 := cAgencia
MV_PAR13 := cConta
MV_PAR14 := cSubConta
MV_PAR15 := nReimpressao
MV_PAR16 := nConsidera
MV_PAR17 := nMarcados