Perguntas Ponto de Entrada F240FIL

Olá Pessoal! Tudo bem?

Estou usando o ponto de entrada que segue no corpo desta mensagem! Mas estou tendo um certo problema com ele. Fiz em base padrão, onde o SE2 é exclusivo e não trabalha com prefixo! Nesse cenário funciona corretamente, mais quando passei para o ambiente de produção, não funciona e com isso pude perceber que não funciona, por que o ambiente de produção o SE2 é compartilhado e trabalha com prefixo (E2_PREFIXO)e (E2_FILIAL)sempre em branco, alguém tem alguma dica que eu poderia acrescentar, no fonte para funcionar corretamente ?

Obrigado!


#INCLUDE'PROTHEUS.CH'

USER FUNCTION F240FIL()

LOCAL AALIASANT := GETAREA()
LOCAL AALIASSE2 := SE2->(GETAREA())
LOCAL CMV_PAR01 := MV_PAR01 //DA NATUREZA
LOCAL CMV_PAR02 := MV_PAR02 //ATE NATUREZA
LOCAL CMV_PAR03 := MV_PAR03 //DO BANCO
LOCAL CMV_PAR04 := MV_PAR04 //ATE BANCO
LOCAL CMV_PAR05 := MV_PAR05 //DO TRIBUTO
LOCAL CMV_PAR06 := MV_PAR06 //ATE TRIBUTO
LOCAL CPERG := 'F240FIL'
LOCAL CFILTRO := ''
LOCAL LRET :=.F.

CRIPRGBR(CPERG)

IF PERGUNTE(CPERG,.T.)

IF !EMPTY(ALLTRIM(MV_PAR01)) .AND. !EMPTY(ALLTRIM(MV_PAR02))

LRET :=.T.

CFILTRO :="E2_NATUREZ >= '"+ALLTRIM(MV_PAR01)+"' .AND. E2_NATUREZ <= '"+ALLTRIM(MV_PAR02)+"'" //SOMENTE POR NATUREZA

ELSE

LRET :=.F.

IF CMODPGTO == "30" .AND. CTIPOPAG == "20" //LIQUIDACAO DE TITULOS EM COBRANCA NO ITAU

IF ALLTRIM(MV_PAR03) == '341'

CFILTRO :="SUBSTR(E2_CODBAR,1,3) == '"+ALLTRIM(MV_PAR03)+"'"

ELSE

CFILTRO := ''
MSGALERT('Banco no parâmetro diferente do Modelo 30!')
RETURN(CFILTRO)

ENDIF

ENDIF

IF CMODPGTO == "31" .AND. CTIPOPAG == "20" //PAGAMENTO DE TITULOS EM OUTRO BANCO

IF !EMPTY(ALLTRIM(MV_PAR03)) .AND. !EMPTY(ALLTRIM(MV_PAR04)) .AND. ALLTRIM(MV_PAR03) <> '341' .AND. ALLTRIM(MV_PAR04) <> '341'

CFILTRO :="SUBSTR(E2_CODBAR,1,3) >= '"+ALLTRIM(MV_PAR03)+"' .AND. SUBSTR(E2_CODBAR,1,3) <= '"+ALLTRIM(MV_PAR04);
+"'.AND. SUBSTR(E2_CODBAR,1,3) <> '341' .AND. SUBSTR(E2_CODBAR,1,3) <> '341'"

ELSE

CFILTRO :="SUBSTR(E2_CODBAR,1,3) <> '"+ALLTRIM(MV_PAR03)+"'"

ENDIF

ENDIF

IF CMODPGTO == "16" .AND. CTIPOPAG == "22" //PAGAMENTO DE TRIBUTOS - DARF NORMAL

IF ALLTRIM(MV_PAR05) == '856'

CFILTRO :="SUBSTR(E2_CODBAR,1,3) == '"+ALLTRIM(MV_PAR05)+"'"

ELSE

CFILTRO := ''
MSGALERT('Banco no parâmetro diferente do Modelo 16!')
RETURN(CFILTRO)

ENDIF

ENDIF

ENDIF

ENDIF

MV_PAR01 := CMV_PAR01
MV_PAR02 := CMV_PAR02
MV_PAR03 := CMV_PAR03
MV_PAR04 := CMV_PAR04
MV_PAR05 := CMV_PAR05
MV_PAR06 := CMV_PAR06
RESTAREA(AALIASSE2)
RESTAREA(AALIASANT)

RETURN(CFILTRO)

STATIC FUNCTION CRIPRGBR(CPERG)
LOCAL AREGS := {}

/*
ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
³ Grupo Ordem Pergunta Portugues Pergunta Espanhol Pergunta Ingles Variavel Tipo Tamanho Decimal Presel GSC Valid Var01 Def01 DefSPA1 DefEng1 Cnt01 Var02 Def02 DefSpa2 DefEng2 Cnt02 Var03 Def03 DefSpa3 DefEng3 Cnt03 Var04 Def04 DefSpa4 DefEng4 Cnt04 Var05 Def05 DefSpa5 DefEng5 Cnt05 XF3 GrgSxg ³
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ*/
AADD(AREGS,{CPERG,'01' ,'Da Natureza? ','Da Natureza? ','Da Natureza? ','mv_ch1','C' ,10 ,0 ,0 ,'G',' ','mv_par01',' ' ,'' ,'' ,' ','' ,' ','' ,'' ,'' ,'' ,' ' ,'' ,'' ,'' ,'' ,' ','' ,'' ,'' ,'' ,'' ,'' ,'' ,'' ,'SED',''})
AADD(AREGS,{CPERG,'02' ,'Ate Natureza? ','Ate Natureza? ','Ate Natureza? ','mv_ch2','C' ,10 ,0 ,0 ,'G',' ','mv_par02',' ' ,'' ,'' ,'' ,'' ,' ','' ,'' ,'' ,'' ,' ' ,'' ,'' ,'' ,'' ,' ','' ,'' ,'' ,'' ,'' ,'' ,'' ,'' ,'SED',''})
AADD(AREGS,{CPERG,'03' ,'Do Banco? ','Do Banco? ','Do Banco? ','mv_ch3','C' ,03 ,0 ,0 ,'G',' ','mv_par03',' ' ,'' ,'' ,' ','' ,' ','' ,'' ,'' ,'' ,' ' ,'' ,'' ,'' ,'' ,' ','' ,'' ,'' ,'' ,'' ,'' ,'' ,'' ,'',''})
AADD(AREGS,{CPERG,'04' ,'Ate Banco? ','Ate Banco? ','Ate Natureza? ','mv_ch4','C' ,03 ,0 ,0 ,'G',' ','mv_par04',' ' ,'' ,'' ,'' ,'' ,' ','' ,'' ,'' ,'' ,' ' ,'' ,'' ,'' ,'' ,' ','' ,'' ,'' ,'' ,'' ,'' ,'' ,'' ,'',''})
AADD(AREGS,{CPERG,'05' ,'Do Tributo? ','Do Tributo? ','Do Tributo? ','mv_ch5','C' ,03 ,0 ,0 ,'G',' ','mv_par05',' ' ,'' ,'' ,' ','' ,' ','' ,'' ,'' ,'' ,' ' ,'' ,'' ,'' ,'' ,' ','' ,'' ,'' ,'' ,'' ,'' ,'' ,'' ,'',''})
AADD(AREGS,{CPERG,'06' ,'Ate Tributo? ','Ate Tributo? ','Ate Tributo? ','mv_ch6','C' ,03 ,0 ,0 ,'G',' ','mv_par06',' ' ,'' ,'' ,'' ,'' ,' ','' ,'' ,'' ,'' ,' ' ,'' ,'' ,'' ,'' ,' ','' ,'' ,'' ,'' ,'' ,'' ,'' ,'' ,'',''})

VALIDPERG(AREGS,CPERG)

RETURN()