Sintoma

Não estava sendo gravados os dados na tabela /PWS/ZYCBT004.

Solução

Adicionado tratamento para que sejam gravadas informações na tabela /PWS/ZYCBT004

Informações Complementares

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

Nota Número 01640 Data: 26/06/2006 Hora: 11:24:37

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

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

Nota Número              : 01640

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00119

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO - TABELA /PWS/ZYBCBT004.

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

Palavras Chave:

LIQUIDAÇÃO - TABELA /PWS/ZYBCBT004.

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

Objetos da nota:

REPS /PWS/MZYCB004F02

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

                             AND nrparcf  = itab_zycbt006-nrparcf

                             AND gsberf   = itab_zycbt006-gsberf

                             AND dtvincul = itab_zycbt006-dtvincul

                             AND dtvencto = itab_zycbt006-dtvencto

                             AND dtpagto  = itab_zycbt006-dtpagto.

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

      IF v_subrc IS INITIAL.

        IF NOT itab_zycbt006-vljur IS INITIAL

          AND ( /pws/zycbe001-tpcontr(1) NE 'P' AND

                /pws/zycbe001-tpcontr(1) NE 'S' ).

          PERFORM atualiza_zycbt004.

          IF v_sy_subrc <> 0.

            UPDATE /pws/zycbt004 SET: vlme      = itab_zycbt006-vljur

                                 slvinc    = itab_zycbt006-vljur

                                fcalcjur = 'X'

                           WHERE nrseqc   = itab_zycbt006-nrseqc

                             AND tpdesp   = 'J'

                             AND nrinvoic = itab_zycbt006-nrinvoic

                             AND dtincl   = itab_zycbt006-dtvincul

                             AND dtliquid = v_dtpagto

                             AND nrparc   = itab_zycbt006-nrparc

                             AND ( dtpagto = '00000000' OR

                                   dtpagto = '        ' OR

                                   dtpagto = space ).

          ENDIF.

        ELSE.

          DELETE FROM /pws/zycbt004 WHERE

                             nrseqc   = itab_zycbt006-nrseqc

                             AND tpdesp   = 'J'

                             AND nrinvoic = itab_zycbt006-nrinvoic

                             AND dtincl   = itab_zycbt006-dtvincul

                             AND tpjuros  = itab_zycbt006-tpjuros

                             AND dtliquid = v_dtpagto

                             AND nrparc   = itab_zycbt006-nrparc

                             AND ( dtpagto = '00000000' OR

                                   dtpagto = '        ' OR

                                   dtpagto = space ).

          IF sy-subrc NE 0.

            DELETE FROM /pws/zycbt004 WHERE

                             nrseqc   = itab_zycbt006-nrseqc

                             AND tpdesp   = 'J'

                             AND nrinvoic = itab_zycbt006-nrinvoic

                             AND dtincl   = itab_zycbt006-dtvincul

                             AND tpjuros  = itab_zycbt006-tpjuros

                             AND nrparc   = itab_zycbt006-nrparc

                             AND ( dtpagto  = '00000000' OR

                                   dtpagto  = '        ' OR

                                   dtpagto  = space )

                             AND ( dtliquid = '00000000' OR

                                   dtliquid = '        ' OR

                                   dtliquid = space ).

          ENDIF.

        ENDIF.

      ENDIF.

* << Fim da inclusão

        CONTINUE.

      ENDIF.

      MOVE-CORRESPONDING itab_zycbt006 TO /pws/zycbt006.

      READ TABLE itab_zycbt005 WITH KEY nrseqc = itab_zycbt006-nrseqc

                                      nrinvoic = itab_zycbt006-nrinvoic

...