axsep027

No axsep027 tenho a rotina abaixo.
Quando emito uma nota em consignação para empresa 1 o complemento sai certo no xml e danfe.
Quando emito uma nota em consignação para empresa 2 o complemento sai errado no xml e danfe.
O programa é o mesmo.
Nessa rotina me parece que para empresa 5 não encontra tt-epc. Porque traz somente a informação da mensagem cadastrada na natureza de operacao.
Em qual programa monta esse tt-epc?

FIND FIRST tt-epc WHERE tt-epc.cod-event = "AtualizaDadosNFe"
AND tt-epc.cod-parameter = "ttInfAdic"
NO-LOCK NO-ERROR.
IF AVAIL tt-epc THEN DO:
ASSIGN h_ttInfAdic = WIDGET-HANDLE(tt-epc.val-parameter)
h_ttInfAdic = h_ttInfAdicEFAULT-BUFFER-HANDLE NO-ERROR.

CREATE QUERY hQ_ttInfAdic. /* --- Cria uma query para trabalhar com a tt --- */
hQ_ttInfAdic:SET-BUFFERS(h_ttInfAdic). /* --- Seta o buffer que a query vai utilizar --- */
hQ_ttInfAdic:QUERY-PREPARE("FOR EACH ttInfAdic"). /* --- Abre a query conforme a tabela setada --- */
hQ_ttInfAdic:QUERY-OPEN. /* --- Abre a query --- */
hQ_ttInfAdic:GET-FIRST. /* --- Posiciona diretamente no primeiro registro --- */

DO WHILE NOT hQ_ttInfAdic:QUERY-OFF-END:
ASSIGN wh_infcpl = h_ttInfAdic:BUFFER-FIELD("infcpl")
wh_infAdFisco = h_ttInfAdic:BUFFER-FIELD("infAdFisco")
wh_CodEstabelNF = h_ttInfAdic:BUFFER-FIELD("CodEstabelNF")
wh_SerieNF = h_ttInfAdic:BUFFER-FIELD("SerieNF")
wh_NrNotaFisNF = h_ttInfAdic:BUFFER-FIELD("NrNotaFisNF").

FIND FIRST nota-fiscal NO-LOCK
WHERE nota-fiscal.cod-estabel = wh_CodEstabelNF:BUFFER-VALUE
AND nota-fiscal.serie = wh_SerieNF :BUFFER-VALUE
AND nota-fiscal.nr-nota-fis = wh_NrNotaFisNF :BUFFER-VALUE NO-ERROR.

IF NOT AVAIL nota-fiscal THEN DO:
hQ_ttInfAdic:GET-NEXT(). /*26/07/2012 */
NEXT.
END.

IF nota-fiscal.cod-estabel = "502" OR
nota-fiscal.cod-estabel = "501" THEN DO:
run comp/esupc/axsep027_epc_502.p(input rowid(nota-fiscal),
output c-mensagem).
END.
ELSE IF nota-fiscal.cod-estabel = "101" THEN DO:
run comp/esupc/axsep027_epc_101.p(input rowid(nota-fiscal),
output c-mensagem).

END.
ELSE IF nota-fiscal.cod-estabel = "203" THEN DO:
IF nota-fiscal.serie = "14" THEN
run comp/esupc/axsep027_epc_203_s14.p(input rowid(nota-fiscal),
output c-mensagem).
IF nota-fiscal.serie = "15" THEN
run comp/esupc/axsep027_epc_203_s15.p(input rowid(nota-fiscal),
output c-mensagem).
END.
ELSE IF nota-fiscal.cod-estabel = "201" THEN DO:
run comp/esupc/axsep027_epc_201.p(input rowid(nota-fiscal),
output c-mensagem).
END.
ELSE IF nota-fiscal.cod-estabel = "211" THEN DO:

run comp/esupc/axsep027_epc_211.p(input rowid(nota-fiscal),
output c-mensagem).
END.
ELSE IF nota-fiscal.cod-estabel = '210' THEN DO:
run comp/esupc/axsep027_epc_211.p(input rowid(nota-fiscal),
output c-mensagem).

END.


/*Tratativa para exibi‡Æo nas Informa‡äes Complementares o
Endere‡o de Entrega - Rodrigo Baione */

FIND FIRST emitente WHERE emitente.cod-emitente = nota-fiscal.cod-emit
NO-LOCK NO-ERROR.

IF AVAIL emitente THEN DO:
/*TRECHO COMENTADO EM 04022016 - A PEDIDO DA LENITA POR E-MAIL EM 09-12-2015
FIND FIRST ems2mov.loc-entr
WHERE loc-entr.cod-entrega = nota-fiscal.cod-entrega
AND loc-entr.nome-abrev = emitente.nome-abrev
NO-LOCK NO-ERROR.

FIND FIRST estabelec WHERE estabelec.cod-estabel = nota-fiscal.cod-estabel NO-LOCK NO-ERROR.
IF AVAIL estabelec THEN DO:
IF estabelec.cgc <> emitente.cgc THEN DO:
IF AVAIL loc-entr THEN DO:

ASSIGN
c-mensagem = c-mensagem
+ " | *** LOCAL DE ENTREGA "
+ LEFT-TRIM(fn-trata-caracteres(loc-entr.endereco))
+ " - CEP: "
+ LEFT-TRIM(fn-trata-caracteres(loc-entr.cep))
+ " - BAIRRO: "
+ LEFT-TRIM(fn-trata-caracteres(loc-entr.bairro))
+ " - CIDADE: "
+ LEFT-TRIM(fn-trata-caracteres( IF loc-entr.estado = "EX"
THEN "EXTERIOR" ELSE loc-entr.cidade))
+ " - UF: "
+ LEFT-TRIM(loc-entr.estado)
+ " | ***".
END.
END.
END.
---------------------------------------------------------------------------------
----TRECHO COMENTADO EM 04022016 - A PEDIDO DA LENITA POR E-MAIL EM 09-12-2015*/


END.

/*******************************************************************/
/*******************************************************************/
/*******************************************************************/
/* A NATUREZA DE CONSIGNACAO DEVE ESTAR RELACIONADA COM A MENSAGEM DE CONSIGNACAO(801) */
ASSIGN c-mensagem-consignacao = ""
c-nf-remessa = "".

find natur-oper where natur-oper.nat-operacao = nota-fiscal.nat-operacao no-lock no-error.
IF natur-oper.cod-mensagem = 801 THEN DO:

FIND mensagem WHERE mensagem.cod-mensagem = natur-oper.cod-mensagem NO-LOCK NO-ERROR.

IF NOT AVAIL mensagem THEN DO:

/* Verifica se a mensagem foi trocada pela gerada na customização */
RUN utp/ut-msgs.p (INPUT "show",
INPUT 17006,
INPUT "Não Encontrada Mensagem" + "~~" +
"A Customização XXXXXXXX não encontrou a Mensagem 801 na Natureza de Operação (Cd0606)").
RETURN "NOK":U.
END.

IF AVAIL mensagem THEN ASSIGN c-mensagem-consignacao = mensagem.texto-mensag.

/* retirar isso aqui
IF NOTA-FISCAL.OBSERV-NOTA = C-MENSAGEM THEN DO:

END.
ELSE DO:

/* Verifica se a mensagem foi trocada pela gerada na customização */
RUN utp/ut-msgs.p (INPUT "show",
INPUT 17006,
INPUT "MENSAGEM OSERVACAO DIFERENTE DA " + "~~" +
"Mensagem 801 na Natureza de Operação (Cd0606)").
RETURN "NOK":U.

END.
*/
END.

/*******************************************************************/
/*******************************************************************/
/*******************************************************************/

/* ALTERAÇÃO 002 - 10/11/2009 - Luiz CRUZ - inclusao da impressao do nr do pedido do cliente */
FOR EACH b-it-nota-fisc OF nota-fiscal NO-LOCK
BY b-it-nota-fisc.nr-pedcli:

/* ESTA REGRA SÓ ERA VALIDA PARA NOTAS DA PARCEIRA EMI
TRECHO COMENTADO POR NÃO HAVER MAIS NEGÓCIOS DE MEDIA NA EMPRESA
IF emitente.cod-gr-cli = 22 THEN DO:

FIND FIRST es_ped_venda WHERE es_ped_venda.nm_abrev = emitente.nome-abrev
AND es_ped_venda.nr_pedcli = b-it-nota-fisc.nr-pedcli NO-LOCK NO-ERROR.
IF AVAIL es_ped_venda THEN DO:

IF es_ped_venda.NR_PEDIDO_CLIENTE_PARCEIRA <> ? AND
es_ped_venda.NR_PEDIDO_CLIENTE_PARCEIRA <> "" THEN DO:

c-lst-pedcli = c-lst-pedcli +
(IF INDEX(c-lst-pedcli,es_ped_venda.NR_PEDIDO_CLIENTE_PARCEIRA) = 0 THEN
(IF LENGTH(c-lst-pedcli) > 1 THEN ', '
ELSE '') + es_ped_venda.NR_PEDIDO_CLIENTE_PARCEIRA
ELSE '' ).

END.
ELSE DO:

c-lst-pedcli = c-lst-pedcli +
(IF INDEX(c-lst-pedcli,b-it-nota-fisc.nr-pedcli) = 0 THEN
(IF LENGTH(c-lst-pedcli) > 1 THEN ', '
ELSE '') + b-it-nota-fisc.nr-pedcli
ELSE '' ).

END.
END.
ELSE DO:

c-lst-pedcli = c-lst-pedcli +
(IF INDEX(c-lst-pedcli,b-it-nota-fisc.nr-pedcli) = 0 THEN
(IF LENGTH(c-lst-pedcli) > 1 THEN ', '
ELSE '') + b-it-nota-fisc.nr-pedcli
ELSE '' ).

END.

END.
ELSE DO: */

c-lst-pedcli = c-lst-pedcli +
(IF INDEX(c-lst-pedcli,b-it-nota-fisc.nr-pedcli) = 0 THEN
(IF LENGTH(c-lst-pedcli) > 1 THEN ', '
ELSE '') + b-it-nota-fisc.nr-pedcli
ELSE '' ).

/*END.*/


/*********************************************************************/
/*********************************************************************/
/*********************************************************************/
/*08/09/2011 - Marcia/Marcelo - 801 é mensagem de consignacao - sera tratada na rotina esnfe108_epc */
/* TRATAMENTO PARA MENSAGEM DE CONSIGNACAO */


IF AVAIL mensagem THEN DO:

FIND FIRST componente WHERE
componente.cod-emitente = b-it-nota-fisc.cd-emitente
AND componente.serie-docto = b-it-nota-fisc.serie-docum
AND componente.nro-docto = b-it-nota-fisc.nr-docum
AND componente.it-codigo = b-it-nota-fisc.it-codigo
NO-LOCK NO-ERROR.

IF AVAIL componente THEN DO:

IF index(c-nf-remessa,componente.nro-docto) = 0 THEN
ASSIGN c-nf-remessa = c-nf-remessa + TRIM(componente.nro-docto) + " de " + STRING(componente.dt-retorno,"99/99/9999") + " " .


END.

/* localiza a NF de REMESSA - encontrará o valor unitario de ipi e unitario de icm */
FIND FIRST b2-it-nota-fisc WHERE
b2-it-nota-fisc.cd-emitente = b-it-nota-fisc.cd-emitente
AND b2-it-nota-fisc.cod-estabel = b-it-nota-fisc.cod-estabel
AND b2-it-nota-fisc.serie = b-it-nota-fisc.serie-docum
AND b2-it-nota-fisc.nr-nota-fis = b-it-nota-fisc.nr-docum
AND b2-it-nota-fisc.it-codigo = b-it-nota-fisc.it-codigo
NO-LOCK NO-ERROR.
IF AVAIL b2-it-nota-fisc THEN DO:


ASSIGN de-vlicm = de-vlicm + (b2-it-nota-fisc.vl-icms-it / b2-it-nota-fisc.qt-faturada[1]) * b-it-nota-fisc.qt-faturada[1]
de-ipi = de-ipi + (b2-it-nota-fisc.vl-ipi-it / b2-it-nota-fisc.qt-faturada[1]) * b-it-nota-fisc.qt-faturada[1].

END.
ELSE DO: /*caso não ache a nota com a série informada faz a pesquisa sem série contemplando o codigo do emitente */
/* ALTERAÇÃO FEITA POR DIEGO I. PEIXOTO */

FOR FIRST b2-it-nota-fisc WHERE b2-it-nota-fisc.cd-emitente = b-it-nota-fisc.cd-emitente
AND b2-it-nota-fisc.cod-estabel = b-it-nota-fisc.cod-estabel
AND b2-it-nota-fisc.nr-nota-fis = b-it-nota-fisc.nr-docum
AND b2-it-nota-fisc.it-codigo = b-it-nota-fisc.it-codigo
NO-LOCK,
FIRST b2-nota-fiscal OF b2-it-nota-fisc
WHERE b2-nota-fiscal.cod-emitente = nota-fiscal.cod-emitente
NO-LOCK:

ASSIGN de-vlicm = de-vlicm + (b2-it-nota-fisc.vl-icms-it / b2-it-nota-fisc.qt-faturada[1]) * b-it-nota-fisc.qt-faturada[1]
de-ipi = de-ipi + (b2-it-nota-fisc.vl-ipi-it / b2-it-nota-fisc.qt-faturada[1]) * b-it-nota-fisc.qt-faturada[1].

END. /*FOR FIRST */

END. /* ELSE DO */


END.
/*********************************************************************/
/*********************************************************************/
/*********************************************************************/
END. /* END FOR EACH b-it-nota-fisc */

/*********************************************************************/
/*********************************************************************/

/*
ASSIGN
c-mensagem-consignacao = REPLACE(c-mensagem-consignacao,"&nr-docum" ,trim(c-nf-remessa))
c-mensagem-consignacao = REPLACE(c-mensagem-consignacao,"&vl-cims" ,TRIM(STRING(de-vlicm,"->>>,>>>,>>>,>>9.99")))
c-mensagem-consignacao = REPLACE(c-mensagem-consignacao,"&vl-ipi" ,TRIM(STRING(de-ipi,"->>>,>>>,>>>,>>9.99"))) .
*/

IF INDEX(C-MENSAGEM,"&nr-docum") > 0 THEN
ASSIGN c-mensagem = REPLACE(c-mensagem,"&nr-docum" ,trim(c-nf-remessa)).
IF INDEX(C-MENSAGEM,"&vl-cims") > 0 THEN
ASSIGN c-mensagem = REPLACE(c-mensagem,"&vl-cims" ,TRIM(STRING(de-vlicm,"->>>,>>>,>>>,>>9.99"))).
IF INDEX(C-MENSAGEM,"&vl-ipi") > 0 THEN
ASSIGN c-mensagem = REPLACE(c-mensagem,"&vl-ipi" ,TRIM(STRING(de-ipi,"->>>,>>>,>>>,>>9.99"))).


/*ASSIGN c-mensagem = c-mensagem-consignacao + c-mensagem.*/

/*********************************************************************/
/*********************************************************************/

IF LENGTH(c-lst-pedcli) <> 0 THEN do:
ASSIGN
c-mensagem = c-mensagem +
IF NUM-ENTRIES(c-lst-pedcli) = 1 THEN
' Nr Pedido: ' + c-lst-pedcli ELSE ' Nr Pedidos: ' + c-lst-pedcli.
end.
else do:
FIND FIRST ped-venda
WHERE ped-venda.nome-abrev = nota-fiscal.nome-ab-cli
AND ped-venda.nr-pedcli = nota-fiscal.nr-pedcli NO-LOCK NO-ERROR.
IF AVAIL ped-venda THEN DO:

/* ESTA REGRA SÓ ERA VALIDA PARA NOTAS DA PARCEIRA EMI
TRECHO COMENTADO POR NÃO HAVER MAIS NEGÓCIOS DE MEDIA NA EMPRESA
IF emitente.cod-gr-cli = 22 THEN DO:

FIND FIRST es_ped_venda WHERE es_ped_venda.nm_abrev = emitente.nome-abrev
AND es_ped_venda.nr_pedcli = b-it-nota-fisc.nr-pedcli NO-LOCK NO-ERROR.
IF AVAIL es_ped_venda THEN DO:

c-mensagem = c-mensagem + ' Nr Pedido: ' + STRING(es_ped_venda.NR_PEDIDO_CLIENTE_PARCEIRA).

END.
ELSE DO:

c-mensagem = c-mensagem + ' Nr Pedido: ' + STRING(ped-venda.nr-pedcli).

END.

END.
ELSE DO:*/

c-mensagem = c-mensagem + ' Nr Pedido: ' + STRING(ped-venda.nr-pedcli).

/* END.*/

end.
end.
/* fim inclusao da impressao do nr do pedido do cliente */

/*------ IMPRIME MENSAGEM DESCONTO ZONA FRANCA ------*/

FIND estabelec OF nota-fiscal NO-LOCK NO-ERROR.


/*assign r-estabel = rowid(estabelec)
r-ped-venda = rowid(ped-venda)
r-emitente = rowid(emitente)
r-natur-oper = rowid(natur-oper)
r-pre-fat = if avail pre-fatur then
rowid(pre-fatur)
else ?
l-tipo-nota = no.*/

assign de-conv = 1.

find first cidade-zf where cidade-zf.cidade = nota-fiscal.cidade
and cidade-zf.estado = nota-fiscal.estado no-lock no-error.
if avail cidade-zf
and dec(substr(natur-oper.char-2,66,5)) > 0 then
assign de-conv = (100 - dec(substr(natur-oper.char-2,66,5))) / 100.
/* valor para tratamento de ZFM */

if AVAIL cidade-zf then
assign c-cod-suframa-est = estabelec.cod-suframa
c-cod-suframa-cli = emitente.cod-suframa.

else
assign c-cod-suframa-est = ""
c-cod-suframa-cli = "".

/****** COMENTADO PELO CHAMADO #5520 *********
if AVAIL cidade-zf
and de-conv > 0
and de-conv <> 1
then do:
if natur-oper.nat-operacao begins "6" then do:
assign c-mensagem = c-mensagem + " | Desconto de"
+ string(((de-conv * 100 - 100) * -1),">>9.99")
+ "%, de ICMS Referente a "
+ "Vendas para Zona Franca..: "
+ string(nota-fiscal.dec-1, ">>>,>>>,>>9.99").
end.
else do:
assign c-mensagem = c-mensagem +
" | Desconto de " + string(((de-conv * 100 - 100) * -1), ">>9.99") +
"%, de ICMS Referente a Vendas para Area de livre "
+ "Comercio..: " + string(nota-fiscal.dec-1, ">>>,>>>,>>9.99").
end.
end.
*/



/*******************************************************************************************************************
* RETIRADO EM 03/06/2013, MANTEMOS A LÓGICA DAS UPC´S DE CADA ESTABELECIMENTO

/*------ IMPRESSAO DO CODIGO SUFRAMA DO ESTABELECIMENTO E DO CLIENTE ------*/

if c-cod-suframa-est <> "" then
ASSIGN c-mensagem = c-mensagem + " | Registro do Estabelecimento na SUFRAMA: " +
c-cod-suframa-est.

if c-cod-suframa-cli <> "" then
assign c-mensagem = c-mensagem + " | Registro do Cliente na SUFRAMA: " +
c-cod-suframa-cli.

********************************************************************************************************************/

/*** Baione - 22/02 - Informar quando Cliente Retira ou transporte próprio, solicitado po Marcelo e Zé Mario ***/
FIND FIRST transporte
WHERE transporte.nome-abrev = nota-fiscal.nome-transp NO-LOCK NO-ERROR.

IF AVAIL transporte THEN DO:
IF transporte.nome-abrev = "cliente reti" THEN
ASSIGN c-mensagem = c-mensagem + " - CLIENTE RETIRA".

IF transporte.nome-abrev BEGINS "proprio" THEN
ASSIGN c-mensagem = c-mensagem + " - TRANSPORTE PRÓPRIO".
END.
/*** Baione - 22/02 - Informar quando Cliente Retira ou transporte próprio, solicitado po Marcelo e Zé Mario ***/

/*EC 87/2015 - DIP - OBSERVAÇÃO DIFAL */
ASSIGN c-mensagem-difal = fn-getMsgComplDifal().
/*EC 87/2015 - DIP - OBSERVAÇÃO DIFAL */

IF INDEX(nota-fiscal.observ-nota,"INFADFISCO") > 0 THEN
ASSIGN c-mensagem-infcpl = TRIM(REPLACE(REPLACE(SUBSTRING(nota-fiscal.observ-nota,INDEX(nota-fiscal.observ-nota,"INFADFISCO"),LENGTH(nota-fiscal.observ-nota)),"INFADFISCO","")," ",""))
c-mensagem-inffis = TRIM(SUBSTRING(nota-fiscal.observ-nota,1,INDEX(nota-fiscal.observ-nota,"INFADFISCO") - 1)).
ELSE
ASSIGN c-mensagem-infcpl = nota-fiscal.observ-nota
c-mensagem-inffis = "".

IF INDEX(c-mensagem-infcpl,"&nr-docum") > 0 THEN
ASSIGN c-mensagem-infcpl = REPLACE(c-mensagem-infcpl,"&nr-docum" ,trim(c-nf-remessa))
l-alterado = YES.
IF INDEX(c-mensagem-infcpl,"&vl-cims") > 0 THEN
ASSIGN c-mensagem-infcpl = REPLACE(c-mensagem-infcpl,"&vl-cims" ,TRIM(STRING(de-vlicm,"->>>,>>>,>>>,>>9.99"))).
IF INDEX(c-mensagem-infcpl,"&vl-ipi") > 0 THEN
ASSIGN c-mensagem-infcpl = REPLACE(c-mensagem-infcpl,"&vl-ipi" ,TRIM(STRING(de-ipi,"->>>,>>>,>>>,>>9.99"))).

ASSIGN v-sub = 0.

IF natur-oper.terceiros
AND natur-oper.tp-oper-terc = 4 THEN DO:
for each it-nota-fisc of nota-fiscal no-lock:

FIND FIRST b2-it-nota-fisc WHERE
b2-it-nota-fisc.cd-emitente = it-nota-fisc.cd-emitente
AND b2-it-nota-fisc.cod-estabel = it-nota-fisc.cod-estabel
AND b2-it-nota-fisc.serie = it-nota-fisc.serie-docum
AND b2-it-nota-fisc.nr-nota-fis = it-nota-fisc.nr-docum
AND b2-it-nota-fisc.it-codigo = it-nota-fisc.it-codigo NO-LOCK NO-ERROR.

assign v-sub = v-sub + (b2-it-nota-fisc.vl-icmsub-it / b2-it-nota-fisc.qt-faturada[1]) * it-nota-fisc.qt-faturada[1].

end.

assign c-mensagem-infcpl = c-mensagem-infcpl + " | VL IPI (Outras despesas): " + STRING(de-ipi,"->>>,>>>,>>>,>>9.99") + " | VL ICMS-ST (Outras Despesas): " + string(v-sub,">>>>>>9.99").

END.

IF l-alterado THEN DO:

FIND FIRST b-nota-fiscal OF nota-fiscal EXCLUSIVE-LOCK NO-ERROR.
IF AVAIL b-nota-fiscal AND
INDEX(nota-fiscal.observ-nota,"INFADFISCO") = 0 THEN
ASSIGN nota-fiscal.observ-nota = c-mensagem-infcpl.

RELEASE b-nota-fiscal.

END.

ASSIGN wh_infcpl :BUFFER-VALUE = c-mensagem-infcpl
wh_infAdFisco:BUFFER-VALUE = c-mensagem-inffis.

IF c-mensagem-difal <> "" THEN
ASSIGN wh_infcpl:BUFFER-VALUE = c-mensagem-infcpl + " | " + c-mensagem-difal.


hQ_ttInfAdic:GET-NEXT().
END.
hQ_ttInfAdic:QUERY-CLOSE().
DELETE OBJECT hQ_ttInfAdic.


END. /* IF AVAIL tt-epc */

Quais cadastros devo verificar.

Não tem cadastrodo o programa axsep027_epc . Na empresa 1 e nem na 5. e nada no btb\btb006aa.r