Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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_cxcharacterx(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_cxcharacterx(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_participancharacterx(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.

...