Decl VALOR, NUMBANCO, NUMAGENCIA, NUMCONTA, NOSSONUMERO, CARTEIRA, CODBARRAS, numConvenio, codigoCedente, digitoCedente, numeroDocumento;
EXECSQL('FÓRMULA_PROTHEUS');

SetVar(VALOR,ResultSQL("FÓRMULA_PROTHEUS","VALOR"));
SetVar(NUMBANCO,ResultSQL("FÓRMULA_PROTHEUS","NUMBANCO"));
SetVar(NUMAGENCIA,ResultSQL("FÓRMULA_PROTHEUS","NUMAGENCIA"));
SetVar(NUMCONTA,ResultSQL("FÓRMULA_PROTHEUS","NROCONTA"));
SetVar(CARTEIRA,ResultSQL("FÓRMULA_PROTHEUS","CARTEIRA"));
SetVar(NOSSONUMERO,ResultSQL("FÓRMULA_PROTHEUS","NOSSONUMERO"));
SetVar(NOSSONUMERO,ResultSQL("FÓRMULA_PROTHEUS","NOSSONUMERO"));

se (NUMBANCO = 237) Entao
   SetVar(CODBARRAS,MONTACODIGOBARRASBRADESCO(VALOR, NUMBANCO, NUMAGENCIA, NUMCONTA, CARTEIRA, NOSSONUMERO, TABLAN('DATAVENCIMENTO','D'),0));
Senao 
 se (NUMBANCO = 104) Entao
   SetVar(CODBARRAS,MONTACODIGOBARRASCAIXA(VALOR, NUMBANCO, numConvenio, NUMAGENCIA, codigoCedente, digitoCedente, CARTEIRA, NOSSONUMERO, TABLAN('DATAVENCIMENTO','D')));
 Senao 
   se (NUMBANCO = 341) Entao
        SetVar(CODBARRAS,MONTACODIGOBARRASITAU(VALOR, NUMBANCO, NUMCONTA, NUMAGENCIA, codigoCedente, CARTEIRA, NOSSONUMERO, numeroDocumento, TABLAN('DATAVENCIMENTO','D')));
   FimSe
 FimSe
FimSe

MONTAIPTE(CODBARRAS)

SELECT 
	XXF.XXF_EXTVAL, 
	SE1.E1_CODBAR CODIGOBARRA, 
	SE1.E1_VALOR VALOR, 
	SE1.E1_IDCNAB IDBOLETO, 
	SE1.E1_NUMBCO NOSSONUMERO, 
	SE1.E1_PORTADO NUMBANCO, 
	SE1.E1_AGEDEP NUMAGENCIA,
	SE1.E1_VALJUR PERCENTUAL_JUROS, 
	SE1.E1_PORCJUR PERCENUTAL_MULTA,
	SEE.EE_CONTA  	NROCONTA, 
    SEE.EE_DVCTA 	DIGCONTA, 
    SEE.EE_CODCART 	CARTEIRA
                                                                                                                                                                                                                    
FROM PROTHEUS12_PRODUCAO.XXF XXF

INNER JOIN PROTHEUS12_PRODUCAO.SE1040  SE1
ON SE1.D_E_L_E_T_ = ' '
AND  LTRIM(RTRIM('04'|| RTRIM(SE1.E1_FILIAL) || RTRIM(SE1.E1_PREFIXO) || RTRIM(SE1.E1_NUM) || RTRIM(SE1.E1_PARCELA) || RTRIM(SE1.E1_TIPO))) = LTRIM(RTRIM(REPLACE(XXF.XXF_INTVAL,'|','')))

LEFT JOIN PROTHEUS12_PRODUCAO.SEE040  SEE

ON SEE.D_E_L_E_T_ = ' '
AND RTrim(SEE.EE_FILIAL) = SUBSTR(SE1.E1_FILIAL, 0, 4)           /* ///// filial na tabela SEE não sendo preenchida por completo*/
AND SEE.EE_CODIGO = SE1.E1_PORTADO
AND SEE.EE_AGENCIA = SE1.E1_AGEDEP
AND SEE.EE_CONTA = SE1.E1_CONTA
AND SEE.EE_SUBCTA = '001' /* ALTERAMOS PARA QUE SEJA RETORNADO APENAS O REGISTRO DE RETORNO A RECEBER E TIRAMOS A COMPARAÇÃO COM O CAMPO E1_NUMCONTA QUE NÃO POSSUI OS DADOS */

WHERE XXF.D_E_L_E_T_ = ' '
AND XXF.XXF_ALIAS = 'SE1'
AND XXF.XXF_FIELD = 'E1_NUM'
AND RTRIM(XXF.XXF_EXTVAL) = CAST(:FRM_COLIGADA AS VARCHAR(3)) || '|' || CAST(:FRM_IDLAN AS VARCHAR (10))