Sintoma

Na Rotina de Pagamento quando coloco o critério de seleção "DATA", seleciono o módulo de câmbio

exportação e flego em Comissão de agente, o programa exibe algumas comissões a serem pagas com a

data de vencimento em branco.

Solução

Criado consistência para verificação da data de vencimento.

Informações Complementares

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

Nota Número 04741 Data: 17/09/2007 Hora: 12:04:14

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

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

Nota Número              : 04741

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00002

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

EXPORTAÇÃO ROTINA DE PAGAMENTO PROCESSAR BOLETO

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

Palavras Chave:

ROTINA DE PAGAMENTO, PROCESSAR BOLETO, DATA DE VENCIMENTO

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

Objetos da nota:

REPS /PWS/ZYGLR002

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

Modificações efetuadas em REPS /PWS/ZYGLR002

...

        itab_selreg-prctr = itab_zycet013-prctr.

      ENDIF.

      IF ( itab_zycbt017-parvw EQ 'CG' OR

           itab_zycbt017-parvw EQ 'AD' OR

           itab_zycbt017-parvw EQ 'DA' ) AND

           /pws/zycbt007-comis NE 'R'.

        MOVE 'N' TO itab_selreg-fcamb.

      ELSE.

        MOVE 'S' TO itab_selreg-fcamb.

      ENDIF.

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

      IF NOT itab_zycet010-dtvencto IS INITIAL.

* << Fim da inclusão

      APPEND itab_selreg.

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

      ENDIF.

* << Fim da inclusão

      CLEAR itab_selreg.

    ENDLOOP.

  ENDIF.

  SELECT * FROM /pws/zycet013 INTO TABLE itab_zycet013

    WHERE ( dtpagto  EQ '00000000' OR dtpagto EQ '        ' )

      AND belnr    NE space

...

...

        MOVE itab_zycbt037-codpad TO itab_selreg-codp.

      ENDIF.

      IF ( itab_zycbt017-parvw EQ 'CG'   OR

           itab_zycbt017-parvw EQ 'AD'   OR

           itab_zycbt017-parvw EQ 'DA' ) AND

           /pws/zycbt007-comis NE 'R'.

        MOVE 'N' TO itab_selreg-fcamb.

      ELSE.

        MOVE 'S' TO itab_selreg-fcamb.

      ENDIF.

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

      IF NOT itab_zycet010-dtvencto IS INITIAL.

* << Fim da inclusão

      APPEND itab_selreg.

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

      ENDIF.

* << Fim da inclusão

      CLEAR itab_selreg.

    ENDLOOP.

  ENDIF.

  CLEAR: v_tipo, v_taxa_dia, itab_zycbt017, itab_zycbt037,

         itab_selreg.

ENDFORM.

...