...
Extrair os registros de liquidação e antecipação dos Pagamentos Eletrônicos para enviar no SPED 1601.
Vamos considerar todos os Movimentos de Liquidações com Portador diferente de Caixa e as Implantações de Antecipação que tem Portador informado e que este Portador seja diferente de Caixa.
1. No programa chamador da API devem ser declaradas as temp-tables tt_dwf_pagto_eletr_particip, tt_dwf_pagto_eletr_movto e tt_log_erros_extracao. Informar nos parâmetros de entrada os campos código do estabelecimento do EMS2, a data inicial e a data final para extrair os dados. Informar nos parâmetros de saída a tabela temporárias tt_dwf_pagto_eletr_particip, tt_dwf_pagto_eletr_movto e tt_log_erros_extracao.
...
run pi_extrair_pagto_eletronico in v_hdl_programa (input v_cod_estab_ems2, input v_dat_inicial, input param v_dat_final, output table tt_dwf_pagto_eletr_particip, output table tt_dwf_pagto_eletr_movto, output table tt_log_erros_extracao).
delete procedure v_hdl_programa.
...
v_cod_operdraestab_cartao_crems2: Determina para qual Operadora será gerada a conciliação e seus lançamentos. (Consultar programa Cadastro Operadora)Estabelecimento EMS2 será extraído os dados.
v_dat_inicial: Determina a data inicial que irá extrair os dados.
v_dat_final: Determina a data final que irá extrair os dados.ind_tip_concil_cartao_cr: Determina o tipo de conciliação (Crédito ou Venda)
Tabela Temporária | Descrição | Entrada/Saída |
tt_lanctodwf_concilpagto_cartaoeletr_crparticip | Conterá as informações da conciliação do cartão de crédito do participante do pagamento eletrônico que será gerada, podendo ser da Instituição Financeira ou do Marketplace | Entrada/Saída |
| Atributo | Descrição | Formato | Descrição | Mandatório | Observação | tta_num_id_lancto_cartao_cr | integer | 999999999 | ID Lancto Cartão CR | Sim | tta_num_id_concil_cartao_cr | integer | 999999999 | ID da Conciliação Cartão Crédito | Não | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| tta_ind_tip_lancto_cartao_cr | character | X(25) | Tipo Lançamento | Não | Crédito ou Venda | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| tta_ind_sit_lancto_cartao_cr | character | X(25) | Situação Lancto | Não | Sempre será criado como Pendente. Não informar. | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| tta_ind_diverg_lancto_cartao_cr | character | X(25) | Divergência Lancto | Não | Sempre será criado como Não validado. Não informar. | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| ttv_cod_particip_instit_financ | character | x(30) | Cod. Participante | Sim | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| tta_nom_pessoa | character | x(40) | Nome | tta_cod_empresa | character | X(03) | Empresa | Não | tta_cod_estab | character | X(05) | Estabelecimento | Não | tta_cod_estab_operdra | character | X(20) | Estabelec Operadora | Não | tta_cod_nsu | character | X(30) | NSU | Não | tta_cod_comprov | character | x(20) | Comprovante | Não | tta_cod_autoriz | character | x(10) | Autorização | Não | tta_dat_lancto | date | 99/99/9999 | Data Lançamento | Não | tta_dat_vda | date | 99/99/9999 | Data Venda | Não | tta_dat_credito | date | 99/99/9999 | Data Crédito | Não | tta_cod_banco | character | x(08) | Banco | Não | tta_cod_agenc_bcia | character | x(08) | Agência Bancária | Não | tta_cod_cta_corren_bco | character | x(20) | Conta Corrente Banco | Não | tta_num_parcela | integer | >>9 | Parcela | Não | tta_val_brut_parc | decimal | ->>>,>>>,>>9.99 | Valor Bruto Parcela | Não | tta_val_perc_comis | decimal | ">>9.99 | Percentual Comissão | Não | tta_val_comis_parc | decimal | >>>,>>>,>>9.99 | Valor Comissão Parc | Não | tta_val_tax_serv_parc | decimal | >>>,>>>,>>9.99 | Valor Tx Serv Parc | Não | tta_val_liq_parc | decimal | >>>,>>>,>>9.99 | Valor Líquido Parc | Não | tta_val_lancto | decimal | ->>,>>>,>>>,>>9.99 | Valor Lançamento | Não | tta_num_tot_parc | integer | >>9 | Total Parc | Não | tta_val_brut_tot | decimal | ->>>,>>>,>>9.99 | Valor Bruto Total | Não | tta_cod_resum_origin | character | x(20) | Resumo Origina | Não | |
| tta_cod_resum_unicopais | character | x(203) | Resumo únicoPaís | Não | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| tta_codnom_resumendereco | character | x(20) | Resumo | Não | tta_des_motiv_rej | character | x(60) | Motivo Rejeição | Não | tta_des_motiv_ajust | character | x(60) | Motivo Ajuste | Não | tta_des_lin_import | character | x(2000) | Linha Importada | Não | tta_num_lin_importa | integer | >>>>,>>9 | Linha Importação | Não | 40) | Endereço | Não |
def temp-table tt_lanctodwf_concilpagto_cartaoeletr_cr particip no-undo
field ttattv_numcod_idparticip_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 C"
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 Parcelainstit_financ as character format "x(30)" label "Cód. Participante"
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 nom_pessoa 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(2040)" label "Resumo OriginalNome" column-label "Resumo OriginalNome"
field tta_cod_resum_unico as character format "x(20)" label "Resumo único" column-label "Resumo único"
field tta_cod_resum pais as character format "x(203)" label "ResumoPaís" column-label "ResumoPa¡s"
field tta_desnom_motiv_rej endereco as character format "x(60)" label "Motivo Rejeição" column-label "Motivo Rejeição"
field tta_des_motiv_ajust as character format "x(6040)" label "Motivo AjusteEndereço" column-label "Motivo AjusteEndereço"
field ttaindex tt_desdwf_linpagto_import partic as character format "x(2000)" label "Linha Importada" column-label "Linha Importada"
field tta_num_lin_importa is primary unique
as integer format ">>>>,>>9" initial 0 label "Linha Importação" column-label "Linha Importação"
index ttttv_cod_estab_operdra
tta_cod_estab_operdra particip_instit_financ 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 |
...
