Linha Datasul

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Fabiane Schulze

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Fabiane Schulze

Gravado em

Chave

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

Descrição

Este ponto epc permite alterar a natureza de operação utilizada o estabelecimento utilizado para integração com o Recebimento nas funções de apropriação de despesas de frete e contabilização por regime de competência (documento de frete).

Caso ocorra algum erro no específico também é possível parar a implantação do documento.

módulo Fiscal.

Ponto de Entrada - beforeEstFiscal 

Return-value = "OK" 

Descrição:

Permite alterar a natureza de operação e parar o processo de implantação do documento entrada na o estabelecimento utilizado para integração do SIGAGFE com o Recebimento Fiscal Datasul.

Localização:

Após a Antes da criação da tabela temporária "tt-documdoc-estfiscal".

Eventos:

beforeEstFiscal 

Programa Fonte:

cdp/cdf433.i2

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:
NomeTipoDescriçãoObrigatório
temp-table tt-docum-est:handleHandleTabela temporária tt-docum-estSim
cTagCaracterContém todas as informações do documento de frete retornados pelo GFESim

Retorno:

Retorno 1:

NomeTipoDescriçãoObrigatório
tt-docum-est.nat-operacaoCaracterNatureza de operaçãoNão
Retorno 2:

Return-value = "NOK" 

NomeTipoDescriçãoObrigatório
cObservação
cEstabelecCaracter
Descrição com o motivo do documento não ser integrado ao Recebimento
Estabelecimento alteradoNão

 

Exemplo:


IF p-ind-event = "after-create-tt-docum-estbeforeIntegMLA" THEN DO:

FIND FIRST tt-epc NO-LOCK
WHERE tt-epc.cod-event = "after-create-tt-docum-estbeforeEstFiscal":U
AND tt-epc.cod-parameter = "handle-tt-docum-estEstFiscal":U NO-ERROR.
IF NOT AVAIL tt-epc THEN
RETURN "NOK":U.
// lógica específica do cliente
create tt-epc.
assign tt-epc.cod-event = "after-create-tt-docum-est"
tt-epc.cod-parameter = "return-data"

ASSIGN cTag = tt-epc.val-parameter = "162100" . Return "OK":U.
END .IF p-ind-event = "after-create-tt-docum-

estIF cTag <> "" THEN DO:

FIND FIRST tt-epc NO-LOCK
WHERE tt-epc.cod-event = "after-create-tt-docum-est":U
AND tt-epc.cod-parameter = "handle-tt-docum-est":U NO-ERROR.
IF NOT AVAIL tt-epc THEN
RETURN "NOK":U.

ASSIGN iTam = NUM-ENTRIES(cTag,"|")
cFilDF = ENTRY(iTam - 1,cTag,"|").

CREATE // lógica específica do cliente
create tt-epc.
assign ASSIGN tt-epc.cod-event = "after-create-tt-docum-estbeforeEstFiscal"
tt-epc.cod-parameter = "return-dataestabel"
tt-epc.val-parameter = "Documento não pode ser integrado ao Recebimento"cFilDF.

Return "NOKOK":U.

END .