beforeIntegMLA - Alterar Informações MLA

Descrição

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

Ponto de Entrada - beforeIntegMLA

 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 .