Este ponto epc permite alterar/incluir alguma informação para envio ao MLA.
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: | CD0433 - Monitor de Integração SIGAGFE X Datasul CD0433RP - Integração RPW SIGAGFE X Datasul CDF433 - Integração batch SIGAGFE X Datasul | ||||||||
| Parâmetro: |
| ||||||||
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 .
