Boa tarde,
segue exemplo. Só adaptar ao tipo do documento que deseja gerar a pendência.
DEFINE VARIABLE h-mlaapi001 AS HANDLE NO-UNDO.
DEFINE VARIABLE i-cod-tip-doc AS INTEGER NO-UNDO.
DEFINE VARIABLE i-tipo-trans AS INTEGER NO-UNDO.
DEFINE VARIABLE c-motivo AS CHAR NO-UNDO.
DEFINE VARIABLE de-valor AS DEC NO-UNDO.
DEFINE VARIABLE i-moeda AS INTEGER NO-UNDO.
DEFINE VARIABLE c-usuar-trans AS CHAR NO-UNDO.
DEFINE VARIABLE c-usuar-doc AS CHAR NO-UNDO.
DEFINE VARIABLE c-lotacao-doc AS CHAR NO-UNDO.
DEFINE VARIABLE c-item AS CHAR NO-UNDO.
DEFINE VARIABLE c-referencia AS CHAR NO-UNDO.
DEFINE VARIABLE c-ep-codigo AS CHAR NO-UNDO.
DEFINE VARIABLE c-cod-estabel AS CHAR NO-UNDO.
DEFINE TEMP-TABLE tt-mla-chave
FIELD valor AS CHAR EXTENT 10.
DEFINE TEMP-TABLE tt-erro
FIELD i-sequen AS INTEGER
FIELD cd-erro AS INTEGER
FIELD mensagem AS CHAR FORMAT "X(100)".
create tt-mla-chave.
assign tt-mla-chave.valor[1] = "203"
tt-mla-chave.valor[2] = "000911197"
tt-mla-chave.valor[3] = "10"
tt-mla-chave.valor[4] = "11310003"
tt-mla-chave.valor[5] = "".
ASSIGN
i-cod-tip-doc = 24
i-tipo-trans = 1
c-motivo = "Integração Propay x Financeiro Totvs Datasul"
de-valor = 000515017.19
i-moeda = 0
c-usuar-trans = "mtc0071"
c-usuar-doc = "mtc0071"
c-lotacao-doc = "19"
c-item = ""
c-referencia = "000911197"
c-ep-codigo = "200"
c-cod-estabel = "203".
run lap/mlaapi001.p persistent set h-mlaapi001(INPUT i-cod-tip-doc,
INPUT i-tipo-trans,
INPUT c-motivo,
INPUT de-valor,
INPUT i-moeda,
INPUT c-usuar-trans,
INPUT c-usuar-doc,
INPUT c-lotacao-doc,
INPUT c-item,
INPUT c-referencia,
INPUT c-ep-codigo,
INPUT c-cod-estabel,
INPUT TABLE tt-mla-chave,
OUTPUT TABLE tt-erro).
RUN pi-executar-2 IN h-mlaapi001(INPUT i-cod-tip-doc,
INPUT i-tipo-trans,
INPUT c-motivo,
INPUT de-valor,
INPUT i-moeda,
INPUT c-usuar-trans,
INPUT c-usuar-doc,
INPUT c-lotacao-doc,
INPUT c-item,
INPUT c-referencia,
INPUT c-ep-codigo,
INPUT c-cod-estabel,
INPUT TABLE tt-mla-chave,
OUTPUT TABLE rowErrors).
delete object h-mlaapi001.
FOR EACH tt-erro NO-LOCK.
DISP tt-erro WITH 1 COL WIDTH 500.
END.
Rodolfo Ramos
85 9 96805661