Histórico da Página

...

• "FINAL-ENDERECO" => Após buscar o endereço do prestador, permitindo manutenir o dado antes de envia-lo.
• "FINAL-CONTATO" => Após buscar o contato do prestador, permitindo manutenir o dado antes de envia-lo.
• "BUSCA-LIQ-EMS" => Após buscar as liquidações no EMS no evento S-1210, permitindo manipular os registros retornados.
• "MONTA-PREST" => Utilizado na seleção - liberado a partir da 12.1.2209.

Include das definições das tabelas temporárias

• cpc/cpc-bosauexportaesocial.i
• api/api-evento-conhecido-avisado.i

Tabelas de entrada e saída

...

def temp-table tmp-cpc-bosauesocial-entrada no-undo

field nmfield nm-ponto-chamada-cpc  as cpc          as char
field id-pessoa  pessoa                      like like usuario.id-pessoa
field cd-unidade           like         like preserv.cd-unidade
field cd-prestador               like preserv.cd-prestador
field dt-ini  ini                        as date
field dt-fim  fim                       as date as date
field h-tmpPrestadorSelecionados    as handle.

Definição campo a campo da tabela de entrada

• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. 
• id-pessoa - Id da pessoa física sendo exportada.
• cd-unidade - Unidade do prestador
• cd-prestador - Código do prestador
• dt-ini - Data inicial do movimento
• dt-fim - Data final do movimento
• h-tmpPrestadorSelecionados - handle da tabela de prestadores

      Tabela de entrada-saída tt_pagtos_periodo

def temp-table tt_pagtos_periodo no-undo
field tta_cod_estab as character format "x(3)" label "Estabelecimento" column-label "Estab"
field tta_cod_ser_docto as character format "x(3)" label "S²rie Documento" column-label "S²rie"
field tta_cod_espec_docto as character format "x(3)" label "Esp²cie Documento" column-label "Esp²cie"
field tta_cod_portador as character format "x(5)" label "Portador" column-label "Portador"
field tta_cdn_fornecedor as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"
field tta_nom_abrev as character format "x(15)" label "Nome Abreviado" column-label "Nome Abreviado"
field tta_num_id_movto_tit_ap as integer format "9999999999" initial 0 label "Token Movto T­t AP" column-label "Id T­t AP"
field tta_cod_tit_ap as character format "x(10)" label "T­tulo" column-label "T­tulo"
field tta_nom_pessoa as character format "x(40)" label "Nome" column-label "Nome"
field tta_cod_parcela as character format "x(02)" label "Parcela" column-label "Parcela"
field tta_dat_vencto_tit_ap as date format "99/99/9999" initial today label "Data Vencimento" column-label "Dt Vencto"
field tta_cod_refer as character format "x(10)" label "Refer¼ncia" column-label "Refer¼ncia"
field tta_dat_pagto as date format "99/99/9999" initial today label "Data Pagamento" column-label "Data Pagto"
field tta_cod_unid_negoc as character format "x(3)" label "Unid Neg½cio" column-label "Un Neg"
field tta_cod_indic_econ as character format "x(8)" label "Moeda" column-label "Moeda"
field ttv_val_pagto_apb as decimal format "->>,>>>,>>>,>>9.99" decimals 2 label "Valor Pagamento" column-label "Valor Pagamento"
field ttv_val_finalid_apres as decimal format "->>,>>>,>>>,>>9.99" decimals 2 label "Valor Finalid Apres" column-label "Valor Movto"
field ttv_cod_dwb_field_apb as character extent 5 format "x(32)" label "Campo" column-label "Campo"
field ttv_rec_compl_movto_pagto as recid format ">>>>>>9"
field tta_cod_contrat_cartcred as character format "x(10)" label "Contrato Cart’o" column-label "Contrato Cart’o"
field tta_cod_portad_cartcred as character format "x(10)" label "Portador Cart’o" column-label "Portador Cart’o"
field ttv_rec_movto_tit_ap as recid format ">>>>>>9"
field tta_cod_forma_pagto as character format "x(3)" label "Forma Pagamento" column-label "F Pagto"
field tta_val_despes_bcia as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Desp Banc" column-label "Vl Desp Banc"
field ttv_cod_indic_econ_des as character format "x(8)" label "Moeda" column-label "Moeda"
field tta_num_cheque as integer format ">>>>,>>>,>>9" initial ? label "Nœm Cheque" column-label "Num Cheque"
field tta_num_talon_cheq as integer format ">>>,>>>,>>9" initial 0 label "Talonÿrio Cheques" column-label "Talonÿrio Cheques"
field tta_val_multa_tit_ap as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Multa" column-label "Valor Multa"
field tta_val_juros as decimal format ">>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Juros" column-label "Valor Juros"
field tta_val_cm_tit_ap as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Val Corre»’o Monet" column-label "Val Corr Monet"
field tta_val_desc_tit_ap as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Desconto" column-label "Vl Desconto"
field tta_val_abat_tit_ap as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Abatimento" column-label "Vl Abatimento"
field ttv_val_multa_apres as decimal format ">>>>,>>>,>>9.99" decimals 2 label "Valor Multa" column-label "Valor Multa"
field ttv_val_juros_apres as decimal format ">>>>,>>>,>>9.99" decimals 2 label "Valor juros" column-label "Valor Juros"
field ttv_val_cm_apres as decimal format ">>>>,>>>,>>9.99" decimals 2 label "Valor Cor Monetaria" column-label "Val Corr Monet"
field ttv_val_desc_apres as decimal format ">>>>,>>>,>>9.99" decimals 2 label "Valor Desconto" column-label "Vl Desconto"
field ttv_val_abat_apres as decimal format ">>>>,>>>,>>9.99" decimals 2 label "Valor Abatimento" column-label "Vl Abatimento"
field tta_des_text_histor as character format "x(2000)" label "Hist½rico" column-label "Hist½rico"
field tta_num_bord_ap as integer format ">>>>>9" initial 0 label "Nœmero BorderË" column-label "BorderË"
field tta_des_forma_pagto as character format "x(40)" label "Descr Forma Pagto" column-label "Descr Forma Pagto"
field ttv_rec_tit_ap as recid format ">>>>>>9" initial ?
field ttv_cod_banco as character format "x(8)" label "Banco" column-label "Banco"
field ttv_cod_agenc_bcia as character format "x(10)" label "Ag¼ncia Bancÿria" column-label "Ag¼ncia Bancÿria"
field ttv_cod_digito_agenc as character format "x(2)" label "D­gito Ag¼ncia" column-label "D­gito Ag¼ncia"
field ttv_cod_cta_corren_bco_pagto as character format "x(20)" label "Conta Corrente" column-label "Conta Corrente"
field ttv_cod_digito_cta_corren_pagto as character format "x(2)" label "D­gito Cta Corrente" column-label "D­gito Cta Corrente"
field tta_ind_trans_ap as character format "X(26)" initial "Implanta»’o" label "Transa»’o" column-label "Transa»’o"
field tta_cod_empresa as character format "x(3)" label "Empresa" column-label "Empresa"
field ttv_val_original as decimal format "->>>>>,>>>,>>9.99" decimals 4 initial 0 label "Valor Original" column-label "Valor Original"
field tta_cod_safra as character format "9999/9999" label "Safra" column-label "Safra"
field tta_cod_contrat_graos as character format "x(20)" label "Contrato Gr’os" column-label "Contr Gr’os"

index tt_estab_un
tta_cod_estab ascending
tta_cod_unid_negoc ascending

index tt_fornecedor
tta_cdn_fornecedor ascending

index tt_id is primary unique
tta_cod_estab ascending
tta_num_id_movto_tit_ap ascending
tta_cod_unid_negoc ascending.

                   Tabela do EMS definida na include api/api-evento-conhecido-avisado.i

Tabela de saída tmp-cpc-bosauesocial-saida

def temp-table tmp-cpc-bosauesocial-saida no-undo

field lg    field lg-modif-end  end                  as log
field ds-complemento      field ds-complemento               like  like endereco.ds-complemento  
field ds-bairro      field ds-bairro                     like endereco.ds-bairro
field cd-cep        
    field cd-cep                        like endereco.cd-cep
field ds-logradouro           
    field ds-logradouro                  as char
field nr-logradouro  as char               
    field nr-logradouro                  as as char
field cd-municipio      field cd-municipio                  like dzcidade.int-3
field cd-uf            
    field cd-uf                          like like dzcidade.estado
field cd         
    field cd-tipo-logradouro  logradouro            as char
field lg    field lg-undo-retry  retry                 as log
field ds-mensagem      field ds-mensagem                   as char
    field lg-modif-contato  contato              as log
    field cd-telefone  telefone                    as as char
    field cd-telefone-alter  alter              as as char
    field ds-email  email                      as char
    field ds-email-alter  alter                as char
field lg-erro                         as log    field cd-contratante-selec-ini      as int
    field cd-contratante-selec-fim      as int.

Definição campo a campo da tabela de saída

• lg-modif-end - Indica se o endereço foi manutenidosofreu manutenção.
• ds-complemento - Complemento do endereço.
• ds-bairro - Bairro do endereço.
• cd-cep - CEP do endereço.
• ds-logradouro - Logradouro do endereço.
• nr-logradouro - Número do endereço.
• cd-municipio - Município do endereço.
• cd-uf - UF do endereço.
• cd-tipo-logradouro - Tipo de logradouro do endereço.
• lg-undo-retry - Informa ao programa se deve continuar ou voltar e desfazer.
• ds-mensagem - Mensagem de erro.
• lg-modif-contato - Indica se o contato será manutenidosofreu manutenção.
• cd-telefone - Telefone Principal
• cd-telefone-alter - Telefone Alternativo
• ds-email - Email Principal
• ds-email-alter - Email Alternativo.
• cd-contratante-selec-ini - Código inicial da seleção.
• cd-contratante-selec-fim - Código final da seleção.