Histórico da Página
...
output stream s_1 to value(session:temp-directory + "\cmg719zg.txt") paged page-size 66.
run pi_main_cmg719zg_2 3 in v_hdl_program (input 1,
input yes,
input yes,
input yes,
input yes,
input-output table tt_movto_cta_corren_import,_import_3,
Input table tt_aprop_ctbl_cmg_imp_3,
input table tt_val_ Input table tt_aprop_ctbl_cmg_import_imp, 3,
input table tt_val_aprop_ctblcmg_cmg_import,
input table tt_val_aprop_cmg_cambial,
cambial_3,
Input table tt_rat_financ_cmg_import,_3,
output table tt_import_movto_valid_cmg_3).
output close.
delete procedure v_hdl_program.
...
Parâmetro | Descrição |
p_num_vers_integr_api | Será utilizado para determinar se o programa que está chamando está íntegro com as definições correntes da API. |
p_log_print_imported_nok | Será utilizado para indicar se será impresso no arquivo de log os registros não importados, isto é, aqueles em que ocorreram erros. |
p_log_print_imported | Será utilizado para indicar se será impresso no arquivo de log os registros importados, isto é, aqueles em que não ocorreram erros. |
tt_movto_cta_corren_import_3 | Esta temp-table conterá todos os movimentos que devam ser importados para o Caixa e Bancos. |
tt_aprop_ctbl_cmg_imp_3 | Esta temp-table conterá as apropriações dos movimentos que serão importados. Obs: Somente poderão ser informados as apropriações quando o módulo informado no movimento for “CMG”. |
tt_val_aprop_ctbl_cmg_import_3 | Esta temp-table conterá os valores das apropriações dos movimentos que serão importados. Importante: Não é necessário gerar dados para esta temp-table, caso a mesma esteja vazia os valores das apropriações serão criados normalmente com base nas moedas (finalidades) que armazenam valores no módulo e com base nas cotações cadastradas no sistema. |
tt_val_aprop_cmg_cambial_3 | Esta temp-table conterá as variáveis utilizadas para o cálculo dos valores de movimentos de variação cambial. Ela resultará em uma tabela que servirá apenas para conferência do valor gerado. Importante: esta temp-table é de uso interno dos sistemas Datasul. |
tt_rat_financ_cmg_import_3 | Esta temp-table conterá os rateios dos movimentos que serão importados. Obs1: Somente poderão ser informados os rateios quando o módulo informado no movimento for “CMG”. Obs2: Os rateios que não forem informados para movimentos com o módulo “CMG”, serão criados automaticamente. |
tt_import_movto_valid_cmg_3 | Esta temp-table conterá os erros que ocorreram nos movimentos que não puderam ser importados. |
...
A API retornará na tabela temporária tt_import_movto_valid_cmg_3 todos os erros encontrados ou mensagens de alerta gerados durante o processo de validação dos movimentos.
...
Tabela Temporária | Descrição | Entrada/Saída |
tt_movto_cta_corren_import_3 | Conterá as informações dos movimentos a serem importados. | Entrada e Saída |
Atributo | Tipo | Formato | Descrição | Obrig. | Evolução | |
tta_cod_cta_corren | character | x(10) | Código da Conta Corrente. | Sim | ||
tta_dat_movto_cta_corren | date | 99/99/9999 | Data do Movimento. | Sim | ||
tta_num_seq_movto_cta_corren | integer | >>>>9 | Seqüência em que o movimento será gerado. | Sim | ||
tta_ind_tip_movto_cta_corren | character | X(2) | Indicador do Tipo de Movimento. Valores permitidos: RE e NR. Onde: RE = Realizado NR = Não Realizado. | Sim | ||
tta_cod_tip_trans_cx | character | x(8) | Código do Tipo de Transação de Caixa. | Sim | ||
tta_ind_fluxo_movto_cta_corren | character | X(3) | Indicador do Fluxo do Movimento. Valores permitidos: ENT e SAI. Onde: ENT = Entrada SAI = Saída. | Sim | ||
tta_cod_cenar_ctbl | character | x(8) | Código do Cenário Contábil. | Sim * | ||
tta_cod_histor_padr | character | x(8) | Código do Histórico Padrão. | Não | ||
tta_val_movto_cta_corren | decimal | >>>>,>>>,>>9.99 | Valor do Movimento. | Sim | ||
tta_cod_docto_movto_cta_bco | character | x(20) | Documento do Banco que possa ser utilizado como referência para o movimento a ser criado. | Sim | ||
tta_cod_modul_dtsul | character | x(3) | Código do Módulo. Normalmente utilizado “CMG” para movimentos do Caixa e Bancos. | Sim | ||
ttv_ind_erro_valid | character | X(8) | Inicialmente este atributo deverá receber o valor “Não”. Após a execução da API, caso ocorra algum erro de importação, este terá o valor “Sim” e terá as respectivas mensagens de erro na tt_import_movto_valid_cmg_3, onde a leitura deverá ser feita pelo atributo ttv_reccod_id_movto_cta_corren. Exemplo: For each tt_movto_cta_corren_import_3 no-lock Where tt_movto_cta_corren_import_3.ttv_ind_erro_valid = “Sim”: For each tt_import_movto_valid_cmg_3 no-lock Where tt_import_movto_valid_cmg_3.ttv_cod_recid_movto_cta_corren = tt tt_movto_cta_corren_import_3.ttv_cod_recid_movto_cta_corren: Disp tt_import_movto_valid_cmg_3. End. End. | Sim | ||
tta_des_histor_padr | character | x(40) | Descrição do Histórico Padrão. | Sim | ||
tta_num_id_movto_cta_corren | integer | 9999999999 | No retorno da execução da API, este atributo conterá o Número do Movimento de conta corrente que foi criado. Se este número for igual a 0 (zero), é por que ocorreu algum erro durante o processo de importação e o movimento não foi importado. | Sim | ||
ttv_cod_recid_movto_cta_corren | recid | character | x(20)>>>>>>9 | Deverá conter o número do recid rowid da temp-table tt_movto_cta_corren_import_3. Exemplo: assign tt_movto_cta_corren_import_3.ttv_cod_recid_movto_cta_corren = recidSTRING(ROWID(tt_movto_cta_corren_import_3)). | Sim | |
tta_ind_tip_docto_livro_cx | character | x(20) | Tipo de Documento para o Livro Caixa do Produtor Rural. Valores permitidos: 1 - Nota Fiscal 2 - Fatura 3 - Recibo 4 - Contrato 5 - Folha de Pagamento 6 - Outros. | Não | ||
tta_ind_tip_lancto_livro_cx | character | x(45) | Tipo de Lançamento para o Livro Caixa do Produtor Rural. Valores permitidos: 1 - Receita Atividade Rural 2 - Despesas de Custeio e Investimentos 3 - Prod Entreg Ref Adiant Recursos Fin. | Não | ||
tta_cod_id_participan | character | x(14) | ID do Participante para o Livro Caixa do Produtor Rural. É o CPF/CNPJ do comprador ou do vendedor (apenas números). | Não |
...
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_num_id_movto_cta_corren as integer format "9999999999" initial 0 label "ID Movto Conta" column-label "ID Movto Conta"
field ttv_cod_recid_movto_cta_corren as recid format ">>>>>>9" initial ?corren as character format "x(20)"
field tta_ind_tip_docto_livro_cx as character format "x(20)" initial "Outros" label "Tipo Documento Livro" column-label "Tipo Documento Livro"
...
index tt_rec_movto
ttv_rec ttv_cod_id_movto_cta_corren corren ascending
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_aprop_ctbl_cmg_imp_3 | Conterá as informações das apropriações contábeis dos movimentos a serem importados. | Entrada |
...
Atributo | Tipo | Formato | Descrição | Obrig. | Evolução | |
tta_num_id_movto_cta_corren | integer | 9999999999 | Não informar nada – uso interno. | Não | ||
tta_num_seq_aprop_ctbl_cmg | integer | >>9 | Não informar nada – uso interno. | Não | ||
tta_ind_finalid_aprop_ctbl_cmg | character | X(2) | Não informar nada – uso interno. | Não | ||
tta_ind_natur_lancto_ctbl | character | X(2) | Natureza do lançamento contábil. Valores permitidos: DB e CR. Onde: DB = Débito CR = Crédito. | Sim | ||
tta_ind_orig_aprop_ctbl_cmg | character | X(3) | Não informar nada – uso interno. | Não | ||
tta_cod_empresa | character | X(3) | Não informar nada – uso interno. | Não | ||
tta_cod_estab | character | X(3) / x(5)* | Código do Estabelecimento. | Sim | ||
tta_cod_cenar_ctbl | character | x(8) | Não informar nada – uso interno. | Não | ||
tta_cod_plano_cta_ctbl | character | x(8) | Código do Plano Contas | Sim | ||
tta_cod_cta_ctbl | character | x(20) | Código da Conta Contábil | Sim | ||
tta_cod_unid_negoc | character | x(3) | Código da Unidade de Negócio | Sim | ||
tta_cod_plano_ccusto (*) | character | x(8) | Código do Plano do Centro de Custo | Não | ||
tta_cod_ccusto (*) | character | x(11)/x(20)** | Código do Centro de Custo | Não | ||
tta_cod_cta_corren | character | x(10) | Não informar nada – uso interno. | Não | ||
ttv_reccod_id_aprop_ctbl_cmg | recid | character | x(20)>>>>>>9 | Deverá conter o número do recid rowid da temp-table tt_aprop_ctbl_cmg_imp_3. Exemplo: assign tt_aprop_ctbl_cmg_imp_3.ttv_reccod_id_aprop_ctbl_cmg = recidstring(rowid(tt_aprop_ctbl_cmg_imp_3)). | Sim |
Observação: Somente poderão ser informados apropriações contábeis para os movimentos que possuem como módulo de origem “CMG”.
...
def temp-table tt_aprop_ctbl_cmg_imp_3 no-undo
field tta_num_id_movto_cta_corren as integer format "9999999999" initial 0 label "ID Movto Conta" column-label "ID Movto Conta"
...
field tta_dat_transacao as date format "99/99/9999" initial today label "Data Transação" column-label "Dat Transac"
field ttv_cod_recid_movto_cta_corren as recid format ">>>>>>9" initial ?corren as character format "x(20)"
field ttv_cod_recid_aprop_ctbl_cmg as recid format ">>>>>>9" initial ?cmg as character format "x(20)"
index tt_id is primary
ttv_rec ttv_cod_id_movto_cta_corren corren ascending
index tt_id_aprop
ttv_reccod_id_aprop_ctbl_cmg cmg ascending
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_val_aprop_ctbl_cmg_import_3 | Conterá as informações dos rateios financeiros dos movimentos a serem importados. | Entrada |
Atributo | Tipo | Formato | Descrição | Obrig. | Evolução | |
tta_cod_finalid_econ | character | x(10) | Código da finalidade econômica. | Sim | ||
tta_dat_cotac_indic_econ | date | 99/99/9999 | Data da Cotação. | Sim | ||
tta_val_cotac_indic_econ | decimal | >>>>,>>9.9999999999 | Valor da cotação. | Sim | ||
tta_val_movto_cta_corren | decimal | >>>>,>>>,>>9.99 | Valor na moeda da finalidade econômica. | Sim | ||
ttv_reccod_id_movto_cta_corren | recid | character | x(20)>>>>>>9 | Deverá conter o número do recid da rowid da temp-table tt_movto_cta_corren_import_3 que será utilizado como chave de ligação entre o movimento e os seus respectivos valores em outras moedas (finalidades). Exemplo: assign tt_val_aprop_ctbl_cmg_import_3..ttv_reccod_id_movto_cta_corren = recidSTRING(ROWID(tt_movto_cta_corren_import_3)). | Sim | |
ttv_cod_recid_aprop_ctbl_cmg | recid | character | x(20)>>>>>>9 | Deverá conter o número do recid rowid da temp-table tt_aprop_ctbl_cmg_imp_3 que será utilizado como chave de ligação entre a aproprição e os seus respectivos valores em outras moedas(finalidades). Exemplo: assign tt_val_aprop_ctbl_cmg_import_3.ttv_reccod_id_aprop_ctbl_cmg = recidstring(rowid(tt_aprop_ctbl_cmg_imp_3)). | Sim | |
ttv_cod_recid_val_aprop_ctbl_cmg | recid | character | x(20)>>>>>>9 | Deverá conter o número do recid rowid da temp-table tt_val_aprop_ctbl_cmg_import_3. Exemplo: Assign tt_val_aprop_ctbl_cmg_import_3.ttv_reccod_id_val_aprop_ctbl_cmg = recidstring(rowid(tt_val_aprop_ctbl_cmg_import_3)). | Sim |
Observação: Não é necessário gerar dados para esta temp-table, caso a mesma esteja vazia os valores das apropriações serão criados normalmente com base nas moedas(finalidades) que armazenam valores no módulo e com base nas cotações cadastradas no sistema.
...
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_val_movto_cta_corren as decimal format ">>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Movimento" column-label "Valor Movimento"
field ttv_cod_recid_movto_cta_corren as recid format ">>>>>>9" initial ?corren as character format "x(20)"
field ttv_reccod_id_aprop_ctbl_cmg as recid format ">>>>>>9" initial ?_cmg as character format "x(20)"
field ttv_reccod_id_val_aprop_ctbl_cmg as recid cmg as character format ">>>>>>9" initial ?x(20)"
index tt_finalid
ttv_reccod_id_movto_cta_corren corren ascending
tta_cod_finalid_econ ascending
index tt_id is primary
ttv_rec ttv_cod_id_movto_cta_corren corren ascending
ttv_rec ttv_cod_id_aprop_ctbl_cmg ascending ascending
ttv_cod_id ttv_rec_val_aprop_ctbl_cmg cmg ascending
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_val_aprop_cmg_cambial_3 | Esta temp-table conterá as variáveis utilizadas para o cálculo dos valores de movimentos de variação cambial. Ela resultará em uma tabela que servirá apenas para conferencia do valor gerado. | Entrada |
...
Atributo | Tipo | Formato | Descrição | Obrig. | Evolução | ||
ttv_cod_recid_val_aprop_ctbl_cmg | Recid | >>>>>>9 | Char | x(20) | Rowid Recid da tt_val_aprop_ctbl_cmg_import_3. | Sim | |
ttv_reccod_id_val_aprop_cmg_cambial | Recid | >>>>>>9 | Char | x(20) | Rowid Recid identificador dessa temp-table. | Sim | |
tta_cod_finalid_econ | Char | x(10) | Código da Finalidade Econômica. | Sim | |||
tta_dat_inic_calc | Date | 99/99/9999 | Data inicial variação cambial. | Sim | |||
tta_dat_fim_calc | Date | 99/99/9999 | Data final variação cambial. | Sim | |||
tta_dat_cotac_sdo_inic | Date | 99/99/9999 | Data da cotação do saldo inicial. | Sim | |||
tta_dat_cotac_sdo_fim | Date | 99/99/9999 | Data da cotação do saldo final. | Sim | |||
tta_val_cotac_sdo_inic | Decimal | >>>>,>>9.9999999999 | Valor da cotação do saldo inicial. | Sim | |||
tta_val_cotac_sdo_fim | Decimal | >>>>,>>9.9999999999 | Valor da cotação do saldo final. | Sim | |||
tta_val_sdo_inic_orig | Decimal | ->>>,>>>>,>>>,>>9.9999999999 | Valor do saldo inicial. | Sim | |||
tta_val_sdo_fim_orig | Decimal | ->>>,>>>>,>>>,>>9.9999999999 | Valor do saldo final. | Sim | |||
tta_val_sdo_inic_conver | Decimal | ->>>,>>>>,>>>,>>9.9999999999 | Valor do saldo inicial convertido para a cotação. | Sim | |||
tta_val_sdo_fim_conver | Decimal | ->>>,>>>>,>>>,>>9.9999999999 | Valor do saldo final convertido papa a cotação. | Sim | |||
tta_val_movto_finalid_econ | Decimal | ->>>,>>>>,>>>,>>9.9999999999 | Valor da movimentação da conta corrente no intervalo calculado. | Sim | |||
tta_val_sdo_fim_calc | Decimal | ->>>,>>>>,>>>,>>9.9999999999 | Saldo final calculado. | Sim | |||
tta_dat_inic_period_ctbl | Date | 99/99/9999 | Data de cálculo inicial. | Sim | |||
tta_dat_fim_period_ctbl | Date | 99/99/9999 | Data de cálculo final. | Sim |
...
def temp-table tt_val_aprop_cmg_cambial_3 no-undo
field ttv_reccod_id_val_aprop_ctbl_cmg as recid cmg as character format ">>>>>>9" initial ?x(20)"
field ttv_reccod_id_val_aprop_cmg_cambial as recid cambial as character format ">>>>>>9x(20)"
field tta_cod_finalid_econ as character format "x(10)" label "Finalidade"
...
index tt_val_aprop_ctbl_cmg
ttv_rec ttv_cod_id_val_aprop_ctbl_cmg cmg ascending.
Tabela Temporária | Descrição | Entrada/Saída |
tt_rat_financ_cmg_import_3 | Conterá as informações dos rateios financeiros dos movimentos a serem importados. | Entrada |
...
Atributo | Tipo | Formato | Descrição | Obrig. | Evolução | |
ttv_cod_recid_movto_cta_corren | recid | character | x(20)>>>>>>9 | Deverá conter o número do recid rowid da temp-table tt_movto_cta_corren_import_3 que será utilizado como chave de ligação entre o movimento e os seus respectivos rateios financeiros. Exemplo: assign tt_rat_financ_cmg_import_3.ttv_cod_recid_movto_cta_corren = tt_movto_cta_corren_import_3.ttv_reccod_id_movto_cta_corren. | Sim | |
tta_cod_estab | character | x(3) / x(5)* | Código do Estabelecimento. | Sim | ||
tta_cod_unid_negoc | character | x(3) | Código da Unidade de Negócio. | Sim | ||
tta_cod_tip_fluxo_financ | character | x(12) | Código do Tipo de Fluxo Financeiro. | Sim | ||
tta_val_movto_cta_corren | decimal | >>>>,>>>,>>9.99 | Neste atributo deverá ser informado o valor do rateio financeiro. | Sim |
...
def temp-table tt_rat_financ_cmg_import_3 no-undo
field ttv_reccod_id_movto_cta_corren as recid format ">>>>>>9" initial ?corren as character format "x(20)"
field tta_cod_estab as character format "x(5)" label "Estabelecimento" column-label "Estab"
...
index tt_codigo is primary
ttv_rec ttv_cod_id_movto_cta_corren corren ascending
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_import_movto_valid_cmg_3 | Conterá as informações dos movimentos que não foram importados com a respectiva mensagem de erro. | Saída |
Atributo | Tipo | Formato | Descrição | Obrig. | Evolução | |
ttv_cod_recid_movto_cta_corren | recid | character | x(20)>>>>>>9 | O recid rowid do movimento da tt_movto_cta_corren_import_3 que apresentou o erro. | Sim | |
ttv_num_mensagem | integer | >>>>,>>9 | Número da mensagem de erro. | Sim | ||
ttv_des_mensagem | character | x(50) | Descrição da mensagem do erro. | Sim | ||
ttv_des_msg_erro | character | x(60) | Descrição da ajuda do erro. | Sim | ||
ttv_cod_parameters | character | x(256) | Parâmetros contidos na mensagem de erro. | Sim |
...
def temp-table tt_import_movto_valid_cmg_3 no-undo
field ttv_reccod_id_movto_cta_corren as recid format ">>>>>>9" initial ?corren as character format "x(20)"
field ttv_num_mensagem as integer format ">>>>,>>9" label "Número" column-label "Número Mensagem"
...
create tt_movto_cta_corren_import_3.
assign tt_movto_cta_corren_import_3.tta_cod_cta_corren = "001-9"
tt tt_movto_cta_corren_import_3.tta_dat_movto_cta_corren = 01/02/2004
tt tt_movto_cta_corren_import_3.tta_num_seq_movto_cta_corren = 10
tt tt_movto_cta_corren_import_3.tta_ind_tip_movto_cta_corren = "RE"
tt tt_movto_cta_corren_import_3.tta_cod_tip_trans_cx = "COBRBANC"
tt tt_movto_cta_corren_import_3.tta_ind_fluxo_movto_cta_corren = "ENT"
tt tt_movto_cta_corren_import_3.tta_cod_cenar_ctbl = ""
tt tt_movto_cta_corren_import_3.tta_cod_histor_padr = "Padrao"
tt tt_movto_cta_corren_import_3.tta_val_movto_cta_corren = 100.00
tt tt_movto_cta_corren_import_3.tta_cod_docto_movto_cta_bco = "doc1"
tt tt_movto_cta_corren_import_3.tta_cod_modul_dtsul = "CMG"
tt tt_movto_cta_corren_import_3.ttv_ind_erro_valid = "Não"
tt tt_movto_cta_corren_import_3.tta_des_histor_padr = "zzzzz"
tt tt_movto_cta_corren_import_3.ttv_reccod_id_movto_cta_corren = recidcorren = STRING(ROWID(tt_movto_cta_corren_import_3)).
/* 1ª apropriação do movimento 1 */
CREATE tt_aprop_ctbl_cmg_imp_3.
ASSIGN tt_aprop_ctbl_cmg_imp_3.ttv_reccod_id_movto_cta_corren = RECIDcorren = STRING(ROWID(tt_movto_cta_corren_import_3))
tt tt_aprop_ctbl_cmg_imp_3.tta_ind_natur_lancto_ctbl = "CR"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_plano_cta_ctbl = "Geral"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_cta_ctbl = "121001"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_estab = "JLE"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_unid_negoc = "ADM"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_plano_ccusto = ""
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_ccusto = ""
tt tt_aprop_ctbl_cmg_imp_3.tta_val_movto_cta_corren = 30.00
tt tt_aprop_ctbl_cmg_imp_3.ttv_cod_recid_aprop_ctbl_cmg = RECIDcmg = string(rowid(tt_aprop_ctbl_cmg_imp_3)).
/*Valore em outras moedas(finalidades) referente a 1ª Apropriação*/
CREATE tt_val_aprop_ctbl_cmg_import_3.
ASSIGN tt_val_aprop_ctbl_cmg_import_3.tta_cod_finalid_econ = "Geren"
tt tt_val_aprop_ctbl_cmg_import_3.tta_dat_cotac_indic_econ =01/02/2004
tt tt_val_aprop_ctbl_cmg_import_3.tta_val_cotac_indic_econ = 2.5
tt tt_val_aprop_ctbl_cmg_import_3.tta_val_movto_cta_corren = 12.00
tt tt_val_aprop_ctbl_cmg_import_3.ttv_cod_recid_movto_cta_corren = RECIDcorren = STRING(ROWID(tt_movto_cta_corren_import_3))
tt tt_val_aprop_ctbl_cmg_import_3.ttv_cod_recid_aprop_ctbl_cmg = RECIDcmg = string(rowid(tt_aprop_ctbl_cmg_imp_3))
tt tt_val_aprop_ctbl_cmg_import_3.ttv_cod_recid_val_aprop_ctbl_cmg = RECIDstring(rowid(tt_val_aprop_ctbl_cmg_import_3)).
/* 2ª apropriação do movimento 1 */
CREATE tt_aprop_ctbl_cmg_imp_3.
ASSIGN tt_aprop_ctbl_cmg_imp_3.ttv_reccod_id_movto_cta_corren = RECIDcorren = STRING(ROWID(tt_movto_cta_corren_import_3))
tt tt_aprop_ctbl_cmg_imp_3.tta_ind_natur_lancto_ctbl = "CR"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_plano_cta_ctbl = "Geral"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_cta_ctbl = "121001"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_estab = "JLE"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_unid_negoc = "ESC"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_plano_ccusto = ""
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_ccusto = ""
tt tt_aprop_ctbl_cmg_imp_3.tta_val_movto_cta_corren = 70.00
tt tt_aprop_ctbl_cmg_imp_3.ttv_cod_recid_aprop_ctbl_cmg = RECIDcmg = string(rowid(tt_aprop_ctbl_cmg_imp_3)).
/*Valore em outras moedas(finalidades) referente a 1ª Apropriação*/
CREATE tt_val_aprop_ctbl_cmg_import_3.
ASSIGN tt_val_aprop_ctbl_cmg_import_3.tta_cod_finalid_econ = "Geren"
tt tt_val_aprop_ctbl_cmg_import_3.tta_dat_cotac_indic_econ =01/02/2004
tt tt_val_aprop_ctbl_cmg_import_3.tta_val_cotac_indic_econ = 2.5
tt tt_val_aprop_ctbl_cmg_import_3.tta_val_movto_cta_corren = 28.00
tt tt_val_aprop_ctbl_cmg_import_3.ttv_reccod_id_movto_cta_corren = RECIDcorren = STRING(ROWID(tt_movto_cta_corren_import_import3))
tt tt_val_aprop_ctbl_cmg_import_3.ttv_reccod_id_aprop_ctbl_cmg = RECIDcmg = string(rowid(tt_aprop_ctbl_cmg_imp_3))
tt tt_val_aprop_ctbl_cmg_import_3.ttv_cod_recid_val_aprop_ctbl_cmg = RECIDstring(rowid(tt_val_aprop_ctbl_cmg_import_3)).
/* 1º rateio financeiro do movimento 1 */
create tt_rat_financ_cmg_import_3.
assign tt_rat_financ_cmg_import_3.ttv_reccod_id_movto_cta_corren = recidcorren = STRING(ROWID(tt_movto_cta_corren_import_3)).
tt tt_rat_financ_cmg_import_3.tta_cod_estab = "JLE"
tt tt_rat_financ_cmg_import_3.tta_cod_unid_negoc = "100"
tt tt_rat_financ_cmg_import_3.tta_cod_tip_fluxo_financ = "1.1.4"
tt tt_rat_financ_cmg_import_3.ttv_val_movto_cta_corren = 35.00.
...
create tt_rat_financ_cmg_import_3.
assign tt_rat_financ_cmg_import_3.ttv_reccod_id_movto_cta_corren = recidcorren = STRING(ROWID(tt_movto_cta_corren_import_3)).
tt tt_rat_financ_cmg_import_3.tta_cod_estab = "JLE"
tt tt_rat_financ_cmg_import_3.tta_cod_unid_negoc = "999"
tt tt_rat_financ_cmg_import_3.tta_cod_tip_fluxo_financ = "1.5.1"
tt tt_rat_financ_cmg_import_3.ttv_val_movto_cta_corren = 40.00.
...
create tt_rat_financ_cmg_import_3.
assign tt_rat_financ_cmg_import_3.ttv_reccod_id_movto_cta_corren = recidcorren = STRING(ROWID(tt_movto_cta_corren_import_3)).
tt tt_rat_financ_cmg_import_3.tta_cod_estab = "JLE"
tt tt_rat_financ_cmg_import_3.tta_cod_unid_negoc = "200"
tt tt_rat_financ_cmg_import_3.tta_cod_tip_fluxo_financ = "1.8.2"
tt tt_rat_financ_cmg_import_3.ttv_val_movto_cta_corren = 25.00.
...
create tt_movto_cta_corren_import_3.
assign tt_movto_cta_corren_import_3.tta_cod_cta_corren = "002-4"
tt tt_movto_cta_corren_import_3.tta_dat_movto_cta_corren = 01/02/2004
tt tt_movto_cta_corren_import_3.tta_num_seq_movto_cta_corren = 20
tt tt_movto_cta_corren_import_3.tta_ind_tip_movto_cta_corren = "RE"
tt tt_movto_cta_corren_import_3.tta_cod_tip_trans_cx = "COBRBANC"
tt tt_movto_cta_corren_import_3.tta_ind_fluxo_movto_cta_corren = "SAI"
tt tt_movto_cta_corren_import_3.tta_cod_cenar_ctbl = ""
tt tt_movto_cta_corren_import_3.tta_cod_histor_padr = "Padrao"
tt tt_movto_cta_corren_import_3.tta_val_movto_cta_corren = 300.00
tt tt_movto_cta_corren_import_3.tta_cod_docto_movto_cta_bco = "doc2"
tt tt_movto_cta_corren_import_3.tta_cod_modul_dtsul = "CMG"
tt tt_movto_cta_corren_import_3.ttv_ind_erro_valid = "Não"
tt tt_movto_cta_corren_import_3.tta_des_histor_padr = "zzzzz"
tt tt_movto_cta_corren_import_3.ttv_cod_recid_movto_cta_corren = recidcorren = STRING(ROWID(tt_movto_cta_corren_import_3)).
/* 1ª apropriação do movimento 2 */
CREATE tt_aprop_ctbl_cmg_imp_3.
ASSIGN tt_aprop_ctbl_cmg_imp_3.ttv_cod_recid_movto_cta_corren = RECIDcorren = STRING(ROWID(tt_movto_cta_corren_import_3))
tt tt_aprop_ctbl_cmg_imp_3.tta_ind_natur_lancto_ctbl = "DB"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_plano_cta_ctbl = "Geral"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_cta_ctbl = "121001"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_estab = "JLE"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_unid_negoc = "ADM"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_plano_ccusto = ""
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_ccusto = ""
tt tt_aprop_ctbl_cmg_imp_3.tta_val_movto_cta_corren = 300.00
tt tt_aprop_ctbl_cmg_imp_3.ttv_reccod_id_aprop_ctbl_cmg = RECIDcmg = string(rowid(tt_aprop_ctbl_cmg_imp_3)).
/*Valore em outras moedas(finalidades) referente a 1ª Apropriação*/
CREATE tt_val_aprop_ctbl_cmg_import_3.
ASSIGN tt_val_aprop_ctbl_cmg_import_3.tta_cod_finalid_econ = "Geren"
tt tt_val_aprop_ctbl_cmg_import_3.tta_dat_cotac_indic_econ =01/02/2004
tt tt_val_aprop_ctbl_cmg_import_3.tta_val_cotac_indic_econ = 3
tt tt_val_aprop_ctbl_cmg_import_3.tta_val_movto_cta_corren = 100.00
tt tt_val_aprop_ctbl_cmg_import_3.ttv_cod_recid_movto_cta_corren = RECIDcorren = STRING(ROWID(tt_movto_cta_corren_import_3))
tt tt_val_aprop_ctbl_cmg_import_3.ttv_cod_recid_aprop_ctbl_cmg = RECIDcmg = string(rowid(tt_aprop_ctbl_cmg_imp_3))
tt tt_val_aprop_ctbl_cmg_import_3.ttv_reccod_id_val_aprop_ctbl_cmg = RECIDstring(rowid(tt_val_aprop_ctbl_cmg_import_3)).
/* Os rateios financeiros do movimento 2 não foram informados,
...
create tt_movto_cta_corren_import_3.
assign tt_movto_cta_corren_import_3.tta_cod_cta_corren = "002-4"
tt tt_movto_cta_corren_import_3.tta_dat_movto_cta_corren = 01/02/2004
tt tt_movto_cta_corren_import_3.tta_num_seq_movto_cta_corren = 30
tt tt_movto_cta_corren_import_3.tta_ind_tip_movto_cta_corren = "RE"
tt tt_movto_cta_corren_import_3.tta_cod_tip_trans_cx = "COBRBANC"
tt tt_movto_cta_corren_import_3.tta_ind_fluxo_movto_cta_corren = "ENT"
tt tt_movto_cta_corren_import_3.tta_cod_cenar_ctbl = ""
tt tt_movto_cta_corren_import_3.tta_cod_histor_padr = "Padrao"
tt tt_movto_cta_corren_import_3.tta_val_movto_cta_corren = 500.00
tt tt_movto_cta_corren_import_3.tta_cod_docto_movto_cta_bco = "doc2"
tt tt_movto_cta_corren_import_3.tta_cod_modul_dtsul = "CMG"
tt tt_movto_cta_corren_import_3.ttv_ind_erro_valid = "Não"
tt tt_movto_cta_corren_import_3.tta_des_histor_padr = "zzzzz"
tt tt_movto_cta_corren_import_3.ttv_cod_recid_movto_cta_corren = recidcorren = STRING(ROWID(tt_movto_cta_corren_import_3)).
/* 1ª apropriação do movimento 2 */
CREATE tt_aprop_ctbl_cmg_imp_3.
ASSIGN tt_aprop_ctbl_cmg_imp_3.ttv_cod_recid_movto_cta_corren = RECIDcorren = STRING(ROWID(tt_movto_cta_corren_import_3))
tt tt_aprop_ctbl_cmg_imp_3.tta_ind_natur_lancto_ctbl = "CR"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_plano_cta_ctbl = "Geral"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_cta_ctbl = "121001"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_estab = "JLE"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_unid_negoc = "ADM"
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_plano_ccusto = ""
tt tt_aprop_ctbl_cmg_imp_3.tta_cod_ccusto = ""
tt tt_aprop_ctbl_cmg_imp_3.tta_val_movto_cta_corren = 300.00
tt tt_aprop_ctbl_cmg_imp_3.ttv_cod_recid_aprop_ctbl_cmg = RECIDcmg = string(rowid(tt_aprop_ctbl_cmg_imp_3)).
/* Os rateios financeiros e os valores do movimento 3 não foram informados,
...
input-output table tt_movto_cta_corren_import_3,
Input table tt_aprop_ctbl_cmg_imp_3,
input table tt_val_aprop_ctbl_cmg_import_3,
input table tt_val_aprop_cmg_cambial_3,
Input table tt_rat_financ_cmg_import_3,
output table tt_import_movto_valid_cmg_3).
delete procedure v_hdl_program.
...