Sintoma

Ao efetuar uma vinculação de cambio pronto  com liquidação automática, o programa exibe mensagem

"Data inferior à Data de Crédito!" em função da consistencia que verifica se a data da vinculação é

menor que a data do crédito ( /PWS/ZYCBT001-DTCRED).

Solução

Alterado include /PWS/MZYCB009F03, ORM grava_tabelas, permitindo que a data de vinculação possa ser

inferior a data de crédito ou desembolso, no tipo de contrato de Câmbio Pronto ou ACE, e não quando

a data de vinculação inferior á data de contrato.

Informações Complementares

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

Nota Número 05909 Data: 13/02/2008 Hora: 10:50:47

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

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

Nota Número              : 05909

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00034

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

03398  - 00001 - 6.0    - 00026  - VINCULAÇÃO - ESTÁ SENDO PERMITIDO VINCULAR FATURAS C/ DATA MENOR

03752  - 00002 - 7.0    - 00001  - VINCULAÇÃO -  ESTORNO AUTOMATICO POR ERRO NA CONTABILIZAÇÃO

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

VINCULAÇÕES DE FATURAS AOS CONTRATOS

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

Palavras Chave:

VINCULAÇÕES DE FATURAS DATA VINC MENOR QUE CRED EM ACE E PRONTO

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

Objetos da nota:

REPS /PWS/MZYCB009F03

REPS /PWS/MZYCB009F09

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

Modificações efetuadas em REPS /PWS/MZYCB009F03

...

             EXPORTING

                  titel        = text-028

                  textline1    = text-031

                  textline2    = text-032

                  start_column = 10

                  start_row    = 6.

        EXIT.

      ENDIF.

    ENDIF.

  ENDIF.

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

      IF /pws/zycbe005-dtvincul LT /pws/zycbe001-dtcontr.

        MESSAGE i011(pc) WITH text-051.

        EXIT.

      ENDIF.

* << Fim da inclusão

  CASE /pws/zycbe001-fdtlanc.

    WHEN 'D'.

      IF /pws/zycbe001-tpcontr+0(1) CA 'CE'.

        IF /pws/zycbe005-dtvincul NE /pws/zycbe001-dtdesem.

          MESSAGE i091 WITH /pws/zycbe001-dtdesem.

          EXIT.

        ENDIF.

      ENDIF.

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

      IF /pws/zycbe005-dtvincul LT /pws/zycbe001-dtdesem.

* << Fim da exclusão

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

      IF /pws/zycbe005-dtvincul LT /pws/zycbe001-dtdesem  AND

         /pws/zycbe001-tpcontr+0(1) NA 'CE'.

* << Fim da inclusão

        MESSAGE i011(pc) WITH text-050.

        EXIT.

      ENDIF.

    WHEN 'O'.

      IF /pws/zycbe001-tpcontr+0(1) CA 'CE'.

        PERFORM date_consistency.

        IF v_exit EQ 'S'.

          v_exit = 'N'.

          EXIT.

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

        ENDIF.

* << Fim da exclusão

      ENDIF.

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

      IF /pws/zycbe005-dtvincul LT /pws/zycbe001-dtcontr.

        MESSAGE i011(pc) WITH text-051.

        EXIT.

* << Fim da exclusão

      ENDIF.

    WHEN 'C'.

      IF /pws/zycbe001-tpcontr+0(1) CA 'CE'.

        PERFORM date_consistency.

        IF v_exit EQ 'S'.

          v_exit = 'N'.

          EXIT.

        ENDIF.

      ENDIF.

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

      IF /pws/zycbe005-dtvincul LT /pws/zycbe001-dtcred.

* << Fim da exclusão

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

      IF /pws/zycbe005-dtvincul LT /pws/zycbe001-dtcred AND

         /pws/zycbe001-tpcontr+0(1) NA 'CE'.

* << Fim da inclusão

        MESSAGE i011(pc) WITH text-052.

        EXIT.

      ENDIF.

  ENDCASE.

  IF NOT /pws/zycbe005-ftxt IS INITIAL.

    IF /pws/zycbe005-txtinf IS INITIAL.

      CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'

           EXPORTING

                titel        = text-028

                textline1    = text-049

...

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

Modificações efetuadas em REPS /PWS/MZYCB009F09

...

              IN PROGRAM (itab_zyglt100-programa).

    ELSE.

      LOOP AT itab_zycbt030.

        READ TABLE itab_zycbt209

             WITH KEY nrinvoic = itab_zycbt030-nrinvoic

                       bukrs   = itab_zycbt005-bukrs

                       dtincl  = itab_zycbt005-dtvincul.

        IF sy-subrc EQ 0.

          PERFORM est_lanc_209.

        ENDIF.

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

        IF itab_zycbt030-belnr_d IS INITIAL.

* << Fim da exclusão

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

        IF itab_zycbt030-belnr_d IS INITIAL

         or itab_zycbt005-baixa_cli = 'X'.

* << Fim da inclusão

          CONTINUE.

        ELSE.

          PERFORM estorna_cliente.

        ENDIF.

      ENDLOOP.

    ENDIF.

  ENDIF.

  IF v_subrc EQ 0.

    LOOP AT itab_zycbt030.

      READ TABLE itab_zycbt209

...