Produto: | Datasul |
Ocorrência: | Documentação de API |
| Nome Físico | prgfin/acr/acr567za |
Gerar as Conciliações de Cartão de Crédito e os Lançamentos de Conciliação de Cartão de Crédito.
1. No programa que irá chamar está API, devem ser definidas as temp-table (tt_lancto_concil_cartao_cr) e temp-table (tt_log_erros). Além disso, deverá ser informado o código da operadora do cartão de crédito, o tipo de conciliação do cartão de crédito e uma faixa de datas.
2. Executar o programa API(utilizar o nome externo), da seguinte forma:
def var v_hdl_programa as handle no-undo.
run prgfin/acr/acr567za.py persistent set v_hdl_programa.
run pi_main_api_concil_cartao_cr_imp in v_hdl_programa (input v_cod_operdra_cartao_cr, input v_ind_tip_concil_cartao_cr, input v_dat_inicial, input v_dat_final, input-output table tt_lancto_concil_cartao_cr, output table tt_log_erros).
delete procedure v_hdl_programa.
3. Após a execução do programa, deve ser testada a temp-table de erro (tt_log_erros), para verificar se houveram ou não erros durante o processo de importação.
v_cod_operdra_cartao_cr: Determina para qual Operadora será gerada a conciliação e seus lançamentos. (Consultar programa Cadastro Operadora).
v_ind_tip_concil_cartao_cr: Determina o tipo de conciliação (Crédito ou Venda)
Tabela Temporária | Descrição | Entrada/Saída |
tt_lancto_concil_cartao_cr | Conterá as informações da conciliação do cartão de crédito que será gerada | Entrada/Saída |
def temp-table tt_lancto_concil_cartao_cr no-undo
field tta_num_id_lancto_cartao_cr as integer format "999999999" initial 0 label "Id Lancto CartÆo Cr" column-label "Id Lancto CartÆo Cr"
field tta_num_id_concil_cartao_cr as integer format "999999999" initial 0 label "Id Concil CartÆo Cr" column-label "Id Concil CartÆo Cr"
field tta_ind_tip_lancto_cartao_cr as character format "X(25)" label "Tipo Lan‡amento" column-label "Tipo Lan‡amento"
field tta_ind_sit_lancto_cartao_cr as character format "X(25)" label "Situa‡Æo Lancto" column-label "Situa‡Æo Lancto"
field tta_ind_diverg_lancto_cartao_cr as character format "X(25)" label "Divergˆncia Lancto" column-label "Divergˆncia Lancto"
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_estab_operdra as character format "x(20)" label "Estabelec Operadora" column-label "Estabelec Operadora"
field tta_cod_nsu as character format "x(30)" label "NSU" column-label "NSU"
field tta_cod_comprov as character format "x(20)" label "Comprovante" column-label "Comprovante"
field tta_cod_autoriz as character format "x(10)" label "Autoriza‡Æo" column-label "Autoriza‡Æo"
field tta_dat_lancto as date format "99/99/9999" initial ? label "Data Lan‡amento" column-label "Data Lan‡amento"
field tta_dat_vda as date format "99/99/9999" initial ? label "Data Venda" column-label "Data Venda"
field tta_dat_credito as date format "99/99/9999" initial ? label "Data Cr‚dito" column-label "Data Cr‚dito"
field tta_cod_banco as character format "x(8)" label "Banco" column-label "Banco"
field tta_cod_agenc_bcia as character format "x(10)" label "Agˆncia Banc ria" column-label "Agˆncia Banc ria"
field tta_cod_cta_corren_bco as character format "x(20)" label "Conta Corrente Banco" column-label "Conta Corrente Banco"
field tta_num_parcela as integer format ">>9" initial 0 label "Parcela" column-label "Parc"
field tta_val_brut_parc as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Bruto Parcela" column-label "Valor Bruto Parcela"
field tta_val_perc_comis as decimal format ">>9.99" decimals 2 initial 0 label "Percentual ComissÆo" column-label "Perc Comis"
field tta_val_comis_parc as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor ComissÆo Parc" column-label "Valor ComissÆo Parc"
field tta_val_tax_serv_parc as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Tx Serv Parc" column-label "Valor Tx Serv Parc"
field tta_val_liq_parc as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor L¡quido Parc" column-label "Valor L¡quido Parc"
field tta_val_lancto as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Lan‡amento" column-label "Valor Lan‡amento"
field tta_num_tot_parc as integer format ">>9" initial 0 label "Total Parcelas" column-label "Total Parc"
field tta_val_brut_tot as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Bruto Total" column-label "Valor Bruto Total"
field tta_cod_resum_origin as character format "x(20)" label "Resumo Original" column-label "Resumo Original"
field tta_cod_resum_unico as character format "x(20)" label "Resumo énico" column-label "Resumo énico"
field tta_cod_resum as character format "x(20)" label "Resumo" column-label "Resumo"
field tta_des_motiv_rej as character format "x(60)" label "Motivo Rejei‡Æo" column-label "Motivo Rejei‡Æo"
field tta_des_motiv_ajust as character format "x(60)" label "Motivo Ajuste" column-label "Motivo Ajuste"
field tta_des_lin_import as character format "x(2000)" label "Linha Importada" column-label "Linha Importada"
field tta_num_lin_importa as integer format ">>>>,>>9" initial 0 label "Linha Importa‡Æo" column-label "Linha Importa‡Æo"
index tt_cod_estab_operdra
tta_cod_estab_operdra ascending
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_log_erros | Conterá as informações de erros na integração dos movimentos | Saída |
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
.