...
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 input table tt_bem_invest_mga,
output output table tt_log_erros).
DELETE PROCEDURE v_hdl_program.
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. |
...
Atributo | Tipo | Formato | Descrição | Obrigatório | Evolução |
ttv_cod_empresa | character | x(3) | Código da empresa externa a ser traduzida pela matriz de tradução de unidade organizacional. | Sim | |
ttv_cdn_emit | integer | >>>>>>>>9 | Código numérico do fornecedor do documento fiscal. | Sim | |
ttv_cod_nota | character | x(20) | Número do documento fiscal. | Sim | |
ttv_cod_ser_nota | character | x(5) | Série do documento fiscal. | Sim | |
ttv_cod_natur_operac | character | x(6) | Natureza de operação do documento fiscal. | Sim | |
ttv_cod_estab | character | x(3) | Código do estabelecimento externo a ser traduzido pela matriz de tradução de unidade organizacional. | Sim | |
ttv_dat_aquis_bem_pat | date | 99/99/9999 | Data de emissão do documento | Sim | |
ttv_cod_cta | character | x(20) | Código do centro de custo | ||
ttv_cdn_aux | integer | >>>,>>9 | Código do centro de custo externo a ser traduzido pela matriz de tradução de centros de custo. | ||
ttv_cod_origem | character | x(8) | Código da Origem do documento de entrada. | ||
ttv_des_aux_5 | character | x(40) | Narrativa do item do documento de entrada. | ||
ttv_val_aquis_bem_pat | decimal | ->>,>>>,>>>,>>9.99 | Valor do documento de entrada. | ||
ttv_val_aquis_fasb_bem_pat | decimal | >>,>>>,>>>,>>9.99 | Valor FASB do documento de entrada. | ||
ttv_val_aquis_cmi_bem_pa | decimal | >>,>>>,>>>,>>9.99 | Valor CMCAC do documento de entrada. | ||
ttv_rec_id_bem_pat_2 | recid/roiwd | recid ou rowid , caso ja tenha liberacao da funcao | Não | ||
ttv_cdn_unid_bem | integer | >>>,>>9 | Quantidade do item do documento de entrada | Sim | |
ttv_cdn_org_bem | integer | >>>,>>9 | Número da ordem de investimentos | ||
ttv_cdn_ord_manut | integer | >>>,>>9 | Número da ordem de manutenção. | ||
ttv_des_bem_pat | character | x(40) | Descrição do item do documento de entrada | Sim | |
ttv_cod_unid_negoc | character | x(3) | Código da unidade de negócio. | ||
tta_num_id_ri_bem_pat | integer | >>>,>>>,>>9 | Número de identificação do bem patrimonial. | ||
ttv_gera_bem_quant | logical | yes/no | Indicador de geração de bens por quantidade. | ||
ttv_sequencia | integer | >>9 | Número sequencial do item do documento fiscal. | ||
ttv_cod_moed_fasb | character | x(8) | Código da moeda FASB. | ||
ttv_dat_fasb | date | 99/99/9999 | Data de cotação da moeda FASB. | ||
ttv_cod_ccusto | character | X(8) | Centro de Custo ems5 | Sim |
24) Tabela de erros
Tabela Temporária | Descrição | Entrada/Saída |
tt_log_erros | Conterá as informações das mensagem de erro ocorridas na criação do documento de entrada. | Saída |
...
Exemplo do programa para criação dos registros nas temp-tables com os documentos de entrada a serem implantados:
{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 empresa as as char format 'x(3)' label 'Empresa Externa' column-label 'Empresa Ext Inicial'
field ttv_cdn_emit emit as as Integer format '>>>>>>>>9' label 'Emitente' column-label 'Emitente'
field ttv_cod_nota nota as as character format 'x(20)'
field ttv_cod_ser_nota nota as as character format 'x(5)' label 'Série S?rie Nota' column-label 'Série S?rie Nota'
field ttv_cod_natur_operac operac as as character format 'x(6)' label 'Natureza OperaçãoOpera??o' column-label 'Natureza OperaçãoOpera??o'
field ttv_cod_estab estab as character format 'x(3)' label 'Estabelecimento' column-label 'Estabelecimento'
field ttv_dat_aquis_bem_pat pat as date format '99/99/9999' label 'Data AquisçãoAquisi??o' column-label 'Data AquisiçãoAquisi??o'
field ttv_cod_cta cta as character format 'x(20)'
field ttv_cdn_aux aux as as Integer format '>>>,>>9'
field ttv_cod_origem origem as character format 'x(8)' label 'Origem' column-label 'Origem'
field ttv_des_aux_5 5 as character format 'x(40)'
field ttv_val_aquis_bem_pat pat as decimal format '->>,>>>,>>>,>>9.99' decimals 2 initial 0 label 'Aquisição Aquisi??o Bem' column-label 'Aquisição Aquisi??o Bem'
field ttv_val_aquis_fasb_bem_pat pat as as decimal format '>>,>>>,>>>,>>9.99' decimals 2
field ttv_val_aquis_cmi_bem_pat pat as as decimal format '>>,>>>,>>>,>>9.99' decimals 2
field ttv_cdn_unid_bem bem as Integer format '>>>,>>9'
field ttv_cdn_org_bem bem as Integer format '>>>,>>9'
field ttv_cdn_ord_manut manut as Integer format '>>>,>>9'
field ttv_des_bem_pat pat as character format 'x(40)' label 'Descrição Descri??o Bem Pat' column-label 'Descrição Descri??o Bem Pat'
field ttv_rec_id_codbem_unidpat_negoc 2 as character format 'as &IF "{&ROWID_READY}" = "YES" &THEN rowid &ELSE recid format '>>>>>>9' &ENDIF
field ttv_cod_unid_negoc as character format 'x(3)' label 'Unid NegócioNeg?cio' column-label 'Un Neg'
field tta_num_id_ri_bem_pat pat as as integer format '>>>,>>>,>>9' initial 1 label 'Identific Bem MRI' column-label 'ID Bem MRI'
field ttv_gera_bem_quant quant as logical initial no label "Gerar Bem por Quantidade" column-label "Gerar Bem por Quantidade"
field ttv_sequencia sequencia as integer format '>>9' initial 0 label 'Sequencia' column-label 'Seq'
field ttv_cod_moed_fasb fasb as AS character format 'x(8)'
field ttv_dat_fasb fasb as AS date format '99/99/9999'
field ttv_cod_ccusto AS character format 'x(8)'
.
def var v_handle def var v_handle as handle no-undo.
create tt_bem_invest_mga.
assign tt_bem_invest_mga.ttv_cod_empresa empresa = "10"
tt_bem_invest_mga.ttv_cod_estab estab = "1"
tt_bem_invest_mga.ttv_dat_aquis_bem_pat = today
tt_bem_invest_mga.ttv_cdn_emit emit = 51
tt_bem_invest_mga.ttv_cod_nota nota = "04062024"
tt_bem_invest_mga.ttv_cod_natur_operac operac = "6181A"
tt_bem_invest_mga.ttv_cod_ser_nota = "S"
tt_bem_invest_mga.ttv_val_codaquis_ser_nota bem_pat = 129.99 //VALOR DO BEM
tt_bem_invest_mga.ttv_cdn_unid_bem = "S"
= 5 //QUANTIDADE
tt_bem_invest_mga.ttv_valdes_aquis_bem_pat = 129.99 = "Primeiro Bem"
tt_bem_invest_mga.ttv_cdn_unid_bem = 5
cod_cta = '010701020000102'
tt_bem_invest_mga.ttv_des_bem_pat cod_ccusto = '010702030000203'.
= "Primeiro Bem".
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 = "04062024"
tt_bem_invest_mga.ttv_cod_natur_operac = "6181A"
tt_bem_invest_mga.ttv_cod_ser_nota = "S"
tt_bem_invest_mga.ttv_val_aquis_bem_pat = 1.99
tt_bem_invest_mga.ttv_cdn_unid_bem = 20
tt_bem_invest_mga.ttv_des_bem_pat = "Segundo Bem"
.
run prgfin\fas\fas791za.py persistent set v_hdl_program.
...
