CPC-RC0511M.P

• Rotina utilizada para alterar os valores que serão exportados nos campos 13 (VL_SERV_COB), 14 (VL_CO_COB), 15 (VL_FILME_COB) e 48 (VL_PAGO_PREST) do registro 504 do layout PTU.
• Rotina utilizada para permitir selecionar endereço para impressão de boletos.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.

Localização

• Dentro do programa rc0511m.p.

Ponto de Utilização

• "ALTERA-VALORES"

• "APOS-VAL-DIV"

• "ANTES-EXPORTA"

• "DENTRO-LE-MOVTO"

• "DEPOIS-SOMA-VL"

• "DEPOIS-FRAME"
• "ANTES-SEL-FAT"

• "LENDO-PROPOST" - liberação a partir da versão 12.1.2311

• "APOS-LE-PROPOST" - liberação a partir da versão 12.1.2311

• "APOS-TP-EXPORT" - liberação a partir da versão 12.1.2311

• "DUR-CRI-TMP-PED" - liberação a partir da versão 12.1.2511
• "EXPORTA-SEM-ACR" - liberação a partir da versão 12.1.2603

Include das definições das tabelas temporárias

• cpc-rc0511m.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0511m-entrada

def temp-table tmp-cpc-rc0511m-entrada no-undo
field nm-ponto-chamada-cpc as char format "x(15)"
field in-evento-programa as char format "x(06)"
field in-tipo-movto as char format "x(01)"
field r-movto as rowid
field cd-contratante like notaserv.cd-contratante 
field cd-unidade-prestador like moviproc.cd-unidade-prestador
field cd-prestador like moviproc.cd-prestador 
field nr-prest-divisao as int
field vl-pago-prest as dec format "->>,>>>,>>>,>>9.99"
field vl-honorario-medico like moviproc.vl-honorarios-medicos
field vl-operacional like moviproc.vl-operacional
field vl-filme like moviproc.vl-filme
field vl-cobrado-sem-taxa like mov-insu.vl-cobrado
field cd-evento as int
field cd-unidade as int
field cd-unidade-prestadora as int
field cd-transacao as int
field nr-serie-doc-original as char
field nr-doc-original as int
field nr-doc-sistema as int
field nr-processo as int
field in-resultado-divisao as char
field h-tmp-contrat as handle
field cd-modalidade like modalid.cd-modalidade
field in-tipo-exportacao as int
field in-funcao as char
field h-tmpPropost as handle
field h-tmpInvoice as handle
field in-tipo-selecao as int.

Definição campo a campo da tabela de entrada

• nm-ponto-chmada-cpc – Ponto de chamada da CPC;
• in-evento-programa – Evento do programa de chamada da CPC;
• in-tipo-movto – Indicador de procedimento ou insumo;
• r-movto – Rowid da tabela moviproc quando o in-tipo-movto for igual a "P" ou rowid da tabela mov-insu quando o in-tipo-movto for igual a "I";
• cd-contratante – Código do contrante;
• cd-unidade-prestador – Código da unidade do prestador;
• cd-prestador – Código do prestador;
• nr-prest-divisao - Indica o prestador da divisão de honorários ;
• vl-pago-prest – Valor pago ao prestador;
• vl-honorario-medico – Valor para honorários médicos;
• vl-operacional – Valor operacional;
• vl-vilme –Valor filme;
• vl-cobrado-sem-taxa – Valor cobrado sem taxa;

• cd-evento - Código do evento

• cd-unidade - Código da unidade

• cd-unidade-prestadora - Código da unidade prestadora;

• cd-transação – Código da transação
• nr-serie-doc-original – Código da série do documento
• nr-doc-original – Código do documento original
• nr-doc-sistema  – Código do documento sistema
• nr-processo  – Código do processo
• in-resultado-divisão - Identificador da divisão de honorários
• h-tmp-contrat - Tabela temporária de contratante.
• cd-modalidade - Código da modalidade a ser exportada
• in-tipo-exportacao - Indica o tipo de exportação: movimentos de custo operacional ou que não sejam de custo operacional
• in-funcao - Indica se o processo é de Exportação ou Reexportação
• h-tmpPropost - Handle da temp-table tmpPropost
• h-tmpInvoice - Handle da temp-table tmpInvoice
• in-tipo-selecao - Tipo da seleção

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

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

field lg-undo-retry                              as log
field ds-mensagem-erro                    as char format "x(75)"
field vl-pago-prest                             as dec format "->>,>>>,>>>,>>9.99"
field vl-honorario-medico                  like moviproc.vl-honorarios-medicos
field vl-operacional                            like moviproc.vl-operacional
field vl-filme                                       like moviproc.vl-filme
field vl-cobrado-sem-taxa                  like mov-insu.vl-cobrado

                       field lg-encontrou-registro                 as log

                       field lg-reexportacao-parcial              as log

                       field lg-next                    as log. 

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

• lg-undo-retry – Indica que ocorreu algum erro durante o processamento.
• ds-mensagem-erro – Retorna a mensagem da cpc;
• vl-pago-prest – Valor pago ao prestador;
• vl-honorario-medico – Valor para honorários médicos;
• vl-operacional – Valor operacional;
• vl-filme – Valor filme;
• vl-cobrado-sem-taxa – Valor cobrado sem taxa;
• lg-encontrou-registro - Indica se existe registro
• lg-reexportacao-parcial - Indica se reexporta parcial.
• lg-next - Indica se desconsidera o registro no processo.