Histórico da Página
...
A sintaxe para a chamada da API é:
DEF VAR v_hdl_program AS HANDLE NO-UNDO.
RUN prgfin\fas\fas791za.py PERSISTENT SET v_hdl_program.
RUN pi_api_criacao_docto_entr IN v_hdl_program (input "ems2",
...
input table tt_bem_invest_mga,
...
output table tt_log_erros).
DELETE PROCEDURE v_hdl_program.
Parâmetros
Parâmetro | Descrição |
Código Matriz Tradução Organização Externa | Neste parâmetro deverá ser informada a matriz de tradução da organização externa. |
tt_bem_invest_mga | Esta temp-table conterá os registros com as informações do documento de entrada e dos itens que serão criados. Deverá ser definida conforme os atributos mencionados a seguir, na seção Tabelas Temporárias. |
tt_log_erros | Esta temp-table conterá os erros ocorridos durante as validações feitas pela API no momento da inclusão do documento de entrada. Deverá ser definida conforme os atributos mencionados a seguir, na seção Tabelas Temporárias. Não deverá ser alimentada ao chamar a API. |
...
Exemplo do programa para criação dos registros nas temp-tables com os documentos de entrada a serem implantados utilizando o ROWID::
/*-- Filtro RECID x ROWID Aplicado --*/
{include/i_fncrowid.i}
def temp-table tt_log_erros no-undo
field ttv_num_seq as integer format ">>>,>>9" label "
...
Seqüência" column-label "Seq"
field ttv_num_cod_erro as integer format ">>>>,>>9" label "
...
Número" column-label "
...
Número"
field ttv_des_erro as character format "x(50)" label "
...
Inconsistência" column-label "
...
Inconsistência"
field ttv_des_ajuda as character format "x(50)" label "Ajuda" column-label "Ajuda"
index tt_id
ttv_num_seq ascending
ttv_num_cod_erro ascending
.
def temp-table tt_bem_invest_mga no-undo
field ttv_cod_empresa as char format 'x(3)' label 'Empresa Externa' column-label 'Empresa Ext Inicial'
field ttv_cdn_emit as integer format '>>>>>>>>9' label 'Emitente' column-label 'Emitente'
field ttv_cod_nota as character format 'x(20)'
field ttv_cod_ser_nota as character format 'x(5)' label '
...
S‚rie Nota' column-label '
...
S‚rie Nota'
field ttv_cod_natur_operac as character format 'x(6)' label 'Natureza
...
Opera‡Æo' column-label 'Natureza
...
Opera‡Æo'
field ttv_cod_estab as character format 'x(3)' label 'Estabelecimento' column-label 'Estabelecimento'
field ttv_dat_aquis_bem_pat as date format '99/99/9999' label 'Data
...
Aquisi‡Æo' column-label 'Data
...
Aquisi‡Æo'
field ttv_cod_cta as character format 'x(20)'
field ttv_cdn_aux as integer format '>>>,>>9'
field ttv_cod_origem as character format 'x(8)' label 'Origem' column-label 'Origem'
field ttv_des_aux_5 as character format 'x(40)'
field ttv_cod_chave_aces_docto_fisc as character format 'x(60)'
field ttv_val_aquis_bem_pat as decimal format '->>,>>>,>>>,>>9.99' decimals 2 initial 0 label '
...
Aquisi‡Æo Bem' column-label '
...
Aquisi‡Æo Bem'
field ttv_val_aquis_fasb_bem_pat as decimal format '>>,>>>,>>>,>>9.99' decimals 2
field ttv_val_aquis_cmi_bem_pat as decimal format '>>,>>>,>>>,>>9.99' decimals 2
field ttv_val_ibs_munic as decimal format '>>>,>>>,>>>,>>9.99' decimals 2
field ttv_val_ibs_estad as decimal format '>>>,>>>,>>>,>>9.99' decimals 2
field ttv_val_cbs as decimal format '>>>,>>>,>>>,>>9.99' decimals 2
field ttv_num_seq_item_xml as integer format '>>>>,>>9'
field ttv_cod_unid_medid_item_xml as character format 'x(12)'
field ttv_cdn_unid_bem as integer format '>>>,>>9'
field ttv_cdn_org_bem as integer format '>>>,>>9'
field ttv_cdn_ord_manut as integer format '>>>,>>9'
field ttv_des_bem_pat as character format 'x(40)' label '
...
Descri‡Æo Bem Pat' column-label '
...
Descri‡Æo Bem Pat'
field ttv_rec_id_bem_pat_2 as &IF "{&ROWID_READY}" = "YES" &THEN rowid &ELSE recid &ENDIF
field ttv_cod_unid_negoc as character format 'x(3)' label 'Unid
...
Neg¢cio' column-label 'Un Neg'
field tta_num_id_ri_bem_pat as integer format '>>>,>>>,>>9' initial 1 label 'Identific Bem MRI' column-label 'ID Bem MRI'
field ttv_gera_bem_quant as logical initial no label "Gerar Bem por Quantidade" column-label "Gerar Bem por Quantidade"
field ttv_sequencia as integer format '>>9' initial 0 label 'Sequencia' column-label 'Seq'
field ttv_cod_moed_fasb as character format 'x(8)'
field ttv_dat_fasb as date format '99/99/9999'
field ttv_cod_ccusto as character format "x(8)" label "Centro Custo" column-label "CCusto".
def var v_hdl_program as handle no-undo.
create tt_bem_invest_mga.
assign tt_bem_invest_mga.ttv_cod_empresa = "10"
tt_bem_invest_mga.ttv_cod_estab = "1"
tt_bem_invest_mga.ttv_dat_aquis_bem_pat = today
tt_bem_invest_mga.ttv_cdn_emit = 1
tt_bem_invest_mga.ttv_cod_nota = "0543"
tt_bem_invest_mga.ttv_cod_natur_operac = "6181A"
tt_bem_invest_mga.ttv_cod_ser_nota = "S"
tt_bem_invest_mga.ttv_cod_chave_aces_docto_fisc = '34221001442721000333-44-001-000005418-1-17417368-1'
tt_bem_invest_mga.ttv_val_aquis_bem_pat = 129.99 //VALOR DO BEM
tt_bem_invest_mga.ttv_cdn_unid_bem = 5 //QUANTIDADE
tt_bem_invest_mga.ttv_val_
...
ibs_munic = 12.34
tt_bem_invest_mga.ttv_val_
...
ibs_estad = 24.56
tt_bem_invest_mga.ttv_val_cbs = 36.78
tt_bem_invest_mga.ttv_num_seq_item_xml = 965
tt_bem_invest_mga.ttv_cod_unid_medid_item_xml = 'KG'
tt_bem_invest_mga.ttv_des_bem_pat = "Primeiro Bem"
tt_bem_invest_mga.ttv_cod_cta =
...
'010701010000101'.
create tt_bem_invest_mga.
assign tt_bem_invest_mga.ttv_cod_empresa = "10"
tt_bem_invest_mga.ttv_cod_estab = "1"
tt_bem_invest_mga.ttv_dat_aquis_bem_pat = today
tt_bem_invest_mga.ttv_cdn_emit = 5
tt_bem_invest_mga.ttv_cod_nota = "0543"
tt_bem_invest_mga.ttv_cod_natur_operac = "6181A"
tt_bem_invest_mga.ttv_cod_ser_nota = "S"
tt_bem_invest_mga.ttv_cod_chave_aces_docto_fisc = '65221001442721000333-44-001-000005418-1-17417368-1'
tt_bem_invest_mga.ttv_val_aquis_bem_pat = 655569.99 //VALOR
...
DO BEM
tt_bem_invest_mga.ttv_
...
cdn_
...
unid_
...
bem = 34 //QUANTIDADE
tt_bem_invest_mga.ttv_val_ibs_munic = 42.34
tt_bem_invest_mga.ttv_val_ibs_estad = 54.56
tt_bem_invest_mga.ttv_val_cbs = 66.78
tt_bem_invest_mga.ttv_num_seq_item_xml = 465
tt_bem_invest_mga.ttv_cod_unid_medid_item_xml = 'M2'
tt_bem_invest_mga.ttv_cdn_unid_bem = 20
tt_bem_invest_mga.ttv_des_bem_pat = "Segundo Bem"
tt_bem_invest_mga.ttv_
...
cod_cta = '010701010000101'.
run prgfin\fas\fas791za.py persistent set v_hdl_program.
run pi_api_criacao_docto_entr in v_hdl_program (input "ems2",
input
...
-output table tt_bem_invest_mga,
output table tt_log_erros).
delete procedure v_hdl_program.
assign v_hdl_program = ?.
for each tt_log_erros no-lock:
message "Seq.: " tt_log_erros.ttv_num_seq skip
"Cod. Erro: " tt_log_erros.ttv_num_cod_erro skip
"
...
Descri‡Æo Erro: " tt_log_erros.ttv_des_erro skip
"Ajuda: " tt_log_erros.ttv_des_ajuda skip
view-as alert-box.
end.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas