Sintoma

Ao executar a rotina mensal de um contrato de câmbio pronto, que não tem juros, mas tem registro na

tabela /pws/zycbt004, esta levando o mesmo à rotina mensal, mas o tipo deste registro é despesa

bancária(014) e só deve levar se for tipo Juros(J*)

Solução

Retirar a condição '014', deixar apenas selecionando registros de juros(J*)

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 07361 Data: 25/09/2008 Hora: 15:12:42

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 07361

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00066

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

ROTINA MENSAL EXPORTAÇÃO - RETIRAR DESPESAS /PWS/ZYCBT004 TIPO 014

----------------------------------------------------------------------------------------------------

Palavras Chave:

ROTINA MENSAL EXPORTAÇÃO RETIRAR DESPESAS /PWS/ZYCBT004 TIPO 014

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/ZYCBR003

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/ZYCBR003

...

  SELECT *

         FROM /pws/zycbt003

         INTO TABLE itab_zycbt003

         FOR ALL ENTRIES IN itab_zycbt001

         WHERE nrseqc = itab_zycbt001-nrseqc.

  SELECT *

         FROM /pws/zycbt004

         INTO TABLE itab_zycbt004

         FOR ALL ENTRIES IN itab_zycbt001

         WHERE nrseqc  =    itab_zycbt001-nrseqc     AND

* >> Início da exclusão: FORM SELECIONA_DADOS

             ( tpdesp  LIKE 'J%' OR tpdesp = '014' ) AND

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

               tpdesp  LIKE 'J%'                     AND

* << Fim da inclusão

             ( dtpagto <>   '00000000' AND

* >> Início da inclusão: FORM SELECIONA_DADOS

               dtpagto <>   '        ' AND

* << Fim da inclusão

               dtpagto <=    s_dtentr ).

  SELECT *

         FROM /pws/zycbt004

         INTO TABLE itab_zycbt004_pr

         FOR ALL ENTRIES IN itab_zycbt001

         WHERE nrseqc  =  itab_zycbt001-nrseqc  AND

...