CPC-DTVW0227.p

• Rotina chamada no inicio da execução do processo.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

...

def temp-table tmp-cpc-dtvw0227-entrada         no-undo
    field nm-ponto-chamada-cpc   as cpc                 as char format "x(06)"  
    field nomeArquivo  nm-arquivo                                     as char
    field numPedidoRpw  num-ped-exec-rpw                        as inte.

Definição campo a campo da tabela de entrada

• nm-ponto-chamada-cpc – Nome do Ponto de Utilização.
• nomeArquivo nm-arquivo - Nome do arquivo a ser gerado
• numPedidoRpw num-ped-exec-rpw - Numero do pedido do RPW

...

def temp-table tmp-cpc-dtvw0227-saida           no-undo                                    
    field lg-undo-retry                        as logical                                
    field ds-mensagem-erro               as char format "x(75)"
    field nm-arquivo-alterado    field nomeArquivoAlterado           as as char.

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

• ds-mensagem-erro – Deve conter mensagens de erro caso ocorram.
• lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
• nomeArquivoAlterado nm-arquivo-alterado - Nome do arquivo concatenado com o numero do pedido RPW.

...