Histórico da Página

...

Na forma padrão, realiza-se a chamada do programa em modo persistente, sem a passagem de parâmetros, e em seguida, através de um comando RUN normal, executa-se seu método padrão passando-se os parâmetros com as informações necessárias.

Observações:

-       66.”

A sintaxe para a chamada da API é:

...

def new shared stream s_1.

Def var log_print_imported_nok as logical initial yes.

Def var log_print_imported as logical initial yes.

run prgfin/cmg/cmg719zg.py persistent set v_hdl_program.

...

                                                                       input yeslog_print_imported_nok,

                                                                       input yeslog_print_imported,

                                                                      input-output table tt_movto_cta_corren_import_3,

...

...

def temp-table tt_movto_cta_corren_import_3 no-undo

    field tta_cod_cta_corren               as character format "x(10)" label "Conta Corrente" column-label "Cta Corrente"

    field tta_dat_movto_cta_corren         as date format "99/99/9999" initial today label "Data Movimento" column-label "Data Movimento"

    field tta_num_seq_movto_cta_corren     as integer format ">>>>9" initial 0 label "SequˆnciaSequência" column-label "SequˆnciaSequência"

    field tta_ind_tip_movto_cta_corren     as character format "X(2)" initial "RE" label "Tipo Movimento" column-label "Tipo Movto"

    field tta_cod_tip_trans_cx             as character format "x(8)" label "Tipo Transa‡Æo Transação Caixa" column-label "Tipo Transa‡Æo Transação Caixa"

    field tta_ind_fluxo_movto_cta_corren   as character format "X(3)" initial "ENT" label "Fluxo Movimento" column-label "Fluxo Movto"

    field tta_cod_cenar_ctbl               as character format "x(8)" label "Cen rio Cont bilCenário Contábil" column-label "Cen rio Cont bilCenário Contábil"

    field tta_cod_histor_padr              as character format "x(8)" label "Hist¢rico PadrÆoHistórico Padrão" column-label "Hist¢rico PadrÆoHistórico Padrão"

    field tta_val_movto_cta_corren         as decimal format ">>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Movimento" column-label "Valor Movimento"

    field tta_cod_docto_movto_cta_bco      as character format "x(20)" label "Documento Banco" column-label "Documento Banco"

    field tta_cod_modul_dtsul              as character format "x(3)" label "M¢duloMódulo" column-label "M¢duloMódulo"

    field ttv_ind_erro_valid               as character format "X(08)" initial "NÆoNão"

    field tta_des_histor_padr              as character format "x(40)" label "Descri‡ÆoDescrição" column-label "Descri‡Æo Hist¢rico PadrÆoDescrição Histórico Padrão"

    field tta_num_id_movto_cta_corren      as integer format "999999999" initial 0 label "ID Movto Conta" column-label "ID Movto Conta"

    field ttv_cod_id_movto_cta_corren      as character format "x(80)"

    field tta_ind_tip_docto_livro_cx       as character format "x(20)" initial "Outros" label "Tipo Documento Livro" column-label "Tipo Documento Livro"

    field tta_ind_tip_lancto_livro_cx      as character format "x(45)" label "Tipo Lancamento Livr" column-label "Tipo Lancamento Livr"

    field tta_cod_id_participan            as character format "x(14)" label "ID Participante" column-label "ID Participante"

    index tt_erro                           

          ttv_ind_erro_valid               ascending

    index tt_import_movto_cta_corren       is primary unique

          tta_cod_cta_corren               ascending

          tta_dat_movto_cta_corren         ascending

          tta_num_seq_movto_cta_corren     ascending

    index tt_rec_movto                    

          ttv_cod_id_movto_cta_corren      ascending
    .

...

...

def temp-table tt_aprop_ctbl_cmg_imp_3 no-undo

    field tta_num_id_movto_cta_corren      as integer format "999999999" initial 0 label "ID Movto Conta" column-label "ID Movto Conta"

    field tta_num_seq_aprop_ctbl_cmg       as integer format ">>9" initial 0 label "SequˆnciaSequência" column-label "Seq Aprop"

    field tta_ind_finalid_aprop_ctbl_cmg   as character format "X(2)" initial "PR" label "Finalidade" column-label "Finalidade"

    field tta_ind_natur_lancto_ctbl        as character format "X(02)" initial "DB" label "Natureza" column-label "Natureza"

    field tta_ind_orig_aprop_ctbl_cmg      as character format "X(3)" label "Origem Apropria‡ÆoApropriação" column-label "Origem Aprop"

    field tta_cod_empresa                  as character format "x(3)" label "Empresa" column-label "Empresa"

    field tta_cod_estab                    as character format "x(5)" label "Estabelecimento" column-label "Estab"

    field tta_cod_cenar_ctbl               as character format "x(8)" label "Cen rio Cont bilCenário Contábil" column-label "Cen rio Cont bilCenário Contábil"

    field tta_cod_plano_cta_ctbl           as character format "x(8)" label "Plano Contas" column-label "Plano Contas"

    field tta_cod_cta_ctbl                 as character format "x(20)" label "Conta Cont bilContábil" column-label "Conta Cont bilContábil"

    field tta_cod_unid_negoc               as character format "x(3)" label "Unid Neg¢cioNegócio" column-label "Un Neg"

    field tta_cod_plano_ccusto             as character format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"

    field tta_cod_ccusto                   as Character format "x(20)" label "Centro Custo" column-label "Centro Custo"

    field tta_cod_cta_corren               as character format "x(10)" label "Conta Corrente" column-label "Cta Corrente"

    field tta_cod_indic_econ               as character format "x(8)" label "Moeda" column-label "Moeda"

    field tta_val_movto_cta_corren         as decimal format ">>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Movimento" column-label "Valor Movimento"

    field tta_log_ctbz_movto_cta_corren    as logical format "Sim/NÆoNão" initial no label "Contabilizado" column-label "Contabilizado"

    field tta_log_mutuo_pagto              as logical format "Sim/NÆoNão" initial no label "M£tuo Mútuo Pagamento" column-label "M£tuo Mútuo Pagamento"

    field tta_dat_transacao                as date format "99/99/9999" initial today label "Data Transa‡ÆoTransação" column-label "Dat Transac"

    field ttv_cod_id_movto_cta_corren      as character format "x(80)"

    field ttv_cod_id_aprop_ctbl_cmg        as character format "x(80)"

    index tt_id                            is primary

          ttv_cod_id_movto_cta_corren      ascending

    index tt_id_aprop                      

          ttv_cod_id_aprop_ctbl_cmg        ascending
    .

...

def temp-table tt_val_aprop_ctbl_cmg_import_3 no-undo

    field tta_cod_finalid_econ             as character format "x(10)" label "Finalidade" column-label "Finalidade"

    field tta_dat_cotac_indic_econ         as date format "99/99/9999" initial ? label "Data Cota‡ÆoCotação" column-label "Data Cota‡ÆoCotação"

    field tta_val_cotac_indic_econ         as decimal format ">>>>,>>9.9999999999" decimals 10 initial 0 label "Cota‡ÆoCotação" column-label "Cota‡ÆoCotação"

    field tta_val_movto_cta_corren         as decimal format ">>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Movimento" column-label "Valor Movimento"

    field ttv_cod_id_movto_cta_corren      as character format "x(80)"

    field ttv_cod_id_aprop_ctbl_cmg        as character format "x(80)"

    field ttv_cod_id_val_aprop_ctbl        as character format "x(80)"

    index tt_finalid                      

          ttv_cod_id_movto_cta_corren      ascending

          tta_cod_finalid_econ             ascending

    index tt_id                            is primary

          ttv_cod_id_movto_cta_corren      ascending

          ttv_cod_id_aprop_ctbl_cmg        ascending

          ttv_cod_id_val_aprop_ctbl        ascending
    .

...

def temp-table tt_val_aprop_cmg_cambial_3 no-undo

    field ttv_cod_id_val_aprop_ctbl        as character format "x(80)"

    field ttv_cod_id_val_aprop_cmg_cambial as character format "x(80)"

    field tta_cod_finalid_econ             as character format "x(10)" label "Finalidade" column-label "Finalidade"

    field tta_dat_inic_calc                as date format "99/99/9999" initial today label "In¡cio C lculoInício Cálculo" column-label "In¡cio C lculoInício Cálculo"

    field tta_dat_fim_calc                 as date format "99/99/9999" initial today label "Data Fim C lculoCálculo" column-label "Dt Fim Calc"

    field tta_dat_cotac_sdo_inic           as date format "99/99/9999" initial today label "Dt Cotac Sdo Inicial" column-label "Dt Cotac Sdo Ini"

    field tta_dat_cotac_sdo_fim            as date format "99/99/9999" initial today label "Dt Cota‡Æo Cotação Saldo Fim" column-label "Dt Cotac Sdo Fim"

    field tta_val_cotac_sdo_inic           as decimal format ">>>>,>>9.9999999999" decimals 10 initial 0 label "Vl Cotac Sdo Inicial" column-label "Vl Cotac Sdo Ini"

    field tta_val_cotac_sdo_fim            as decimal format ">>>>,>>9.9999999999" decimals 10 initial 0 label "Vl Cotac Sdo Final" column-label "Vl Cotac Sdo Fim"

    field tta_val_sdo_inic_orig            as decimal format "->>>,>>>>,>>>,>>9.9999999999" decimals 10 initial 0 label "Sdo Inicial Original" column-label "Sdo Ini Orig"

    field tta_val_sdo_fim_orig             as decimal format "->>>,>>>>,>>>,>>9.9999999999" decimals 10 initial 0 label "Sdo Final Original" column-label "Sdo Fim Orig"

    field tta_val_sdo_inic_conver          as decimal format "->>>,>>>>,>>>,>>9.9999999999" decimals 10 initial 0 label "Sdo Ini Convertido" column-label "Sdo Ini Conv"

    field tta_val_sdo_fim_conver           as decimal format "->>>,>>>>,>>>,>>9.9999999999" decimals 10 initial 0 label "Sdo Fim Convertido" column-label "Sdo Fim Conv"

    field tta_val_movto_finalid_econ       as decimal format "->>>,>>>>,>>>,>>9.9999999999" decimals 10 initial 0 label "Val Movto Finalidade" column-label "Val Movto"

    field tta_val_sdo_fim_calc             as decimal format "->>>,>>>>,>>>,>>9.9999999999" decimals 10 initial 0 label "Saldo Fim Calculado" column-label "Sdo Fim Calc"

    field tta_dat_inic_period_ctbl         as date format "99/99/9999" initial &IF "{&ems_dbtype}":U = "MSS":U &THEN 01/01/1800 &ELSE 01/01/0001 &ENDIF label "In¡cio Per¡odoInício Período" column-label "In¡cio Per¡odoInício Período"

    field tta_dat_fim_period_ctbl          as date format "99/99/9999" initial 12/31/9999 label "Fim Per¡odoPeríodo" column-label "Fim Per¡odoPeríodo"

    index tt_val_aprop_ctbl_cmg            

          ttv_cod_id_val_aprop_ctbl        ascending
    .

...

def temp-table tt_rat_financ_cmg_import_3 no-undo

    field ttv_cod_id_movto_cta_corren      as character format "x(80)"

    field tta_cod_estab                    as character format "x(5)" label "Estabelecimento" column-label "Estab"

    field tta_cod_unid_negoc               as character format "x(3)" label "Unid Neg¢cioNegócio" column-label "Un Neg"

    field tta_cod_tip_fluxo_financ         as character format "x(12)" label "Tipo Fluxo Financ" column-label "Tipo Fluxo Financ"

    field tta_val_movto_cta_corren         as decimal format ">>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Movimento" column-label "Valor Movimento"

    index tt_codigo                        is primary

          ttv_cod_id_movto_cta_corren      ascending
    .

...

def temp-table tt_import_movto_valid_cmg_3 no-undo

    field ttv_cod_id_movto_cta_corren      as character format "x(80)"

    field ttv_num_mensagem                 as integer format ">>>>,>>9" label "N£meroNúmero" column-label "N£mero Número Mensagem"

    field ttv_des_mensagem                 as character format "x(50)" label "Mensagem" column-label "Mensagem"

    field ttv_des_msg_erro                 as character format "x(60)" label "Mensagem Erro" column-label "InconsistˆnciaInconsistência"

    field ttv_cod_parameters               as character format "x(256)"
    .

...

Definição das variáveis utilizadas na chamada do programa cmg719zfcmg719zg:

Def var log_print_imported_nok as logical initial yes.

...