Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Descrição

Este ponto epc permite alterar/incluir alguma informação para envio ao MLA.

 


Ponto de Entrada - beforeIntegMLA

Parâmetro:

cTag

Descrição:

Permite alterar/incluir alguma informação para envio ao MLA.

Localização:

Antes do envio do documento ao MLA

Eventos:

beforeIntegMLA

Programa Fonte:

cdp/cdf433.i12

Função:

Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”

CD0433 - Monitor de Integração SIGAGFE X Datasul

CD0433RP - Integração RPW SIGAGFE X Datasul

CDF433 - Integração batch SIGAGFE X Datasul

Parâmetro:
NomeTipoDescriçãoObrigatório
cTagCaractereContém todas as informações da fatura retornadas pelo GFESim

Retorno:

Não se aplica.

 

Exemplo:

IF p-ind-event = "beforeIntegMLA" THEN DO:

FIND FIRST tt-epc NO-LOCK
WHERE tt-epc.cod-event = "beforeIntegMLA":U
AND tt-epc.cod-parameter = "cTag":U NO-ERROR.
IF NOT AVAIL tt-epc THEN
RETURN "NOK":U.
ASSIGN cTag = tt-epc.val-parameter .

IF cTag <> "" THEN DO:

ASSIGN iTam = NUM-ENTRIES(cTag,"|")
cFile = REPLACE( TRIM(ENTRY(iTam - 2,cTag,"|")),"/","\")
iArq = NUM-ENTRIES(cFile,"\")
cArq = TRIM(ENTRY(iArq,cFile,"\"))
cDir = REPLACE(cFile,cArq,"")
cDir = "\\srvr0000000240\TOTVS\Protheus12\Protheus_Data\pdf\"
cChave = string(TRIM(ENTRY(02,cTag,"|")),"x(5)") + /* GW6_FILIAL -> Filial */
string(TRIM(ENTRY(03,cTag,"|")),"x(9)") + /* GW6_EMIFAT -> Transportador */
string(TRIM(ENTRY(04,cTag,"|")),"x(5)") + /* GW6_SERFAT -> Serie */
string(TRIM(ENTRY(05,cTag,"|")),"x(11)") + /* GW6_NRFAT -> Nr Fatura */
string(TRIM(ENTRY(06,cTag,"|")),"x(9)") . /* GW6_DTEMIS -> Dt Emissao */

ASSIGN cdata = TRIM(ENTRY(iTam - 1,cTag,"|")).


FIND FIRST ped-aprovfat EXCLUSIVE-LOCK
WHERE ped-aprovfat.chave-doc = cChave NO-ERROR.
IF NOT AVAIL ped-aprovfat THEN DO:

CREATE ped-aprovfat.
ASSIGN ped-aprovfat.chave-doc = cChave .
END.

ASSIGN ped-aprovfat.dir-anexo = cDir
ped-aprovfat.arq-anexo = cArq
ped-aprovfat.desc-anexo = "Detalhamento " + cArq
ped-aprovfat.id-prefatura = IF TRIM(ENTRY(iTam - 3,cTag,"|")) = "1" THEN YES ELSE NO
ped-aprovfat.dt-vencimento = DATE(SUBSTRING(cdata,7,2) + "/" + SUBSTRING(cdata,5,2) + "/" + SUBSTRING(cdata,1,4)).
END.
END .