58318-Como conferir o numero de registros da conversão da tabela ped-curva entre a release 204 e 206B

Na release 204 do produto EMS, o objetivo da tabela "ped-curva" é armazenar informações genéricas que, precisam ser gravadas no banco de dados, porém não possuem tabelas próprias, por exemplo numero de chamado de montadoras quando a empresa trabalha com EDI, informações de CFOP, dados de alocação lógica, etc.

Desta forma a tabela ped-curva do EMS 2.04 possui característica diferente da tabela ped-curva do EMS 2.06, onde alguns dados são exportados em tabela própria, sendo assim as quantidades de registro desta tabela nas duas versões podem ser diferentes.

Apartir da release 206B os dados da CFOP passam a ser gravados na tabela "cfop-natur". Para a conferência dos registros você deverá:

1) Seguir o procedimento de conversão descrito no manual de conversão.
2) Copiar o fonte do programa abaixo (no final desta documentação), salva-lo em seu ambiente e realizar a compilação do mesmo. A compilação deverá ser feita na base 204.
3) Na sessão do EMS 204 execute o programa compilado acima. No final do processamento serão apresentados o número dos registros das tabelas "ped-curva" e "cfop-natur".
4) Com base nos dados gerados pelo Tabanalys (vide manual de conversão), você deverá comparar o total dos registros das tabelas "ped-curva" e "cfop-natur" com os valores que foram mostrados no passo 3 desta documentação.

Em caso de dúvidas, favor entrar em contato com a área de consultoria telefônica da Distribuição.

/******************************************************/
/** Programa para confeência do número de registros  **/
/******************************************************/

DEF VAR i-reg-ped-curva  AS DEC FORMAT ">>>>>>>>>>9" LABEL "Ped-curva"  NO-UNDO.
DEF VAR i-reg-cfop-natur AS DEC FORMAT ">>>>>>>>>>9" LABEL "Cfop-natur" NO-UNDO.

ASSIGN i-reg-ped-curva  = 0
       i-reg-cfop-natur = 0.

FOR EACH ped-curva NO-LOCK:
    if ped-curva.vl-aberto = 620 THEN
       ASSIGN i-reg-cfop-natur = i-reg-cfop-natur + 1.
    ELSE
       ASSIGN i-reg-ped-curva = i-reg-ped-curva + 1.
END.

DISP i-reg-ped-curva
     i-reg-cfop-natur.