Histórico da Página
...
- "CRIA-TMPRPBEN"
- "DT-RECEB-ARQ"
- "GRAVA-TEMP"
- "TRATA-MOV-BENEF"
- "GRAVA-MEN-BENEF"
- "TRATA-DEP"
- "TRATA-CAR-ESPEC"
- "TRATA-IMP"
- "NOME-SOCIAL"
- "FIM-CARGA-REG3"
Include das definições das tabelas temporárias
...
def temp-table tmp-cpc-api-set0003-entrada no-undo
fields in-evento-
...
programa as char format "x(15)"
fields nm-ponto-chamada-cpc
...
as char format "x(15)"
...
...
fields
...
lg-mensagem-
...
na-
...
tela as logical
...
...
fields dt-inclusao-
...
origem as date
fields nr-rowid-tmprpben as rowid
...
fields cd-
...
modalidade
...
like modalid.cd-modalidade
fields nr-
...
proposta
...
like propost.nr-proposta
fields nr-
...
layout
...
as int format "99"
fields char-
...
1
...
as char format "x(30)"
fields char-
...
2
...
as char format "x(30)"
fields char-
...
3
...
as char format "x(30)"
fields char-
...
4
...
as char format "x(30)"
fields char-
...
5
...
as char format "x(30)"
fields char-
...
6
...
as char format "x(60)"
fields char-
...
7
...
as char format "x(60)"
fields char-
...
8
...
as char format "x(60)"
fields char-
...
9
...
as char format "x(60)"
fields char-
...
10
...
as char format "x(60)"
fields cd-motivo-
...
cancelamento as int
...
fields cd-contratante like tmprpben.cd-contratante
fields nr-lote-imp
...
like tmprpben.nr-lote-imp
fields nr-sequencia-benef
...
like tmprpben.nr-sequencia-benef
fields nr-sequencia-real
...
...
like tmprpben.nr-sequencia-real
fields in-tipo-movimento
...
like tmprpben.in-tipo-movimento
fields cd-
...
usuario like tmprpben.cd-usuario
fields nr-
...
linha as int
fields nr-cpf
...
as char
fields nm-
...
usuario
...
as char
...
fields cd-funcionario
...
as char
...
fields ds-mensagem
...
as char
fields ds-complemento
...
...
as char
fields ds-string-imp
...
as char.
Definição campo a campo da tabela de entrada
...
def temp-table tmp-cpc-api-set0003-saida no-undo
fields lg-undo-
...
retry as logical
fields lg-dt-receb-arq as logical
fields ds-mensagem-relatorio
...
as char format "x(75)"
...
...
...
fields char-
...
1 as char format "x(30)"
fields char-
...
2
...
as char format "x(30)"
fields char-
...
3
...
as char format "x(30)"
fields char-
...
4
...
as char format "x(30)"
fields char-
...
5
...
as char format "x(30)"
fields char-
...
6 as char format "x(60)"
fields char-
...
7 as char format "x(60)"
fields char-
...
8
...
as char format "x(60)"
fields char-
...
9
...
as char format "x(60)"
fields char-
...
10
...
as char format "x(60)"
fields cd-motivo-cancelamento as int
fields lg-
...
next as log
...
fields ds-string-imp
...
as char.
Definição campo a campo da tabela de saída
...