Sintoma

Ao executar a rotina mensal de exportação, clearing no pagamento, não esta exibindo todos registros

da /pws/zycbt154 devido a divisão estar diferente nos registros.

Solução

Retirar o filtro por divisão, para trazer todas quando existe vinculação com divisões diferentes e é

gerado registro na tabela /pws/zycbt154 pela liquidação.

Informações Complementares

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

Nota Número 06809 Data: 19/06/2008 Hora: 11:45:12

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

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

Nota Número              : 06809

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00052

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

Referência às notas relacionadas:

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

02926  - 00001 - 6.0    - 00026  - ROTINA MENSAL EXPORTAÇÃO - CAMPO BANCO DA TABELA /PWS/ZYCBT154.

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

ROTINA MENSAL EXPORTAÇÃO - RETIRAR FILTRO /PWS/ZYCBT154 POR GSBER

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

Palavras Chave:

ROTINA MENSAL EXPORTAÇÃO - RETIRAR FILTRO /PWS/ZYCBT154 POR GSBER

CLEARING NO PAGAMENTO LIQUIDAÇÃO

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

Objetos da nota:

REPS /PWS/ZYCBI003

REPS /PWS/ZYCBR003

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

Modificações efetuadas em REPS /PWS/ZYCBI003

...

      ULINE.

    ENDIF.

    v_waers = itab_relat-waers.

    IF wa_zycbt007-fprovisao EQ 'C' AND

       itab_relat-tpcontab   EQ 'C'.

      CLEAR: v_vlirprov, v_vlrjprov.

      LOOP AT itab_zycbt154

        WHERE nrcorresp  EQ v_nrcorresp

         AND  bukrs      EQ aux_relat-bukrs

         AND  waers      EQ aux_relat-waers

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

         AND  gsber      EQ aux_relat-gsber

* << Fim da exclusão

         AND  tpcontr    EQ aux_relat-tpcontr

         AND  codint     EQ aux_relat-nrparcj

         AND  ( codmodul EQ 'C'

         OR     codmodul EQ 'CD'

         OR     codmodul EQ 'CF'

         OR     codmodul EQ 'CI' ).

        ON CHANGE OF itab_zycbt154-codint.

          ULINE.

        ENDON.

        IF itab_zycbt154-codmodul EQ 'CI' OR

...

...

         ( /pws/zyglt009-calc_rot_sep EQ 'S'     OR

           /pws/zyglt009-cont_rot_sep EQ 'S' )   AND

         aux_relat-tpcontab           IS INITIAL AND

         ( aux_relat-tpcontr          EQ 'A'     OR

           aux_relat-tpcontr          EQ 'E' )   AND

         v_separa                     EQ 'X'.

        CLEAR: v_vlrjprov, v_vlirprov.

        LOOP AT itab_zycbt154 WHERE nrcorresp EQ aux_relat-nrseqc

                                AND bukrs     EQ aux_relat-bukrs

                                AND waers     EQ aux_relat-waers

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

                                AND gsber     EQ aux_relat-gsber

* << Fim da exclusão

                                AND tpcontr   EQ aux_relat-tpcontr

                                AND codmodul  NE 'C'

                                AND codmodul  NE 'CD'

                                AND codmodul  NE 'CF'

                                AND codmodul  NE 'CI'.

          PERFORM verifica_conta_acc_ace CHANGING v_conta_dif.

          IF v_conta_dif IS INITIAL.

            IF itab_zycbt154-codmodul EQ 'IR'.

              ADD itab_zycbt154-vlme TO v_vlirprov.

            ELSE.

...

...

          v_tjuros = v_tjuros + itab_zycbt004-vlme.

        ENDLOOP.

        IF wa_zycbt007-fprovisao = 'C'.

          SORT itab_zycbt154 BY nrcorresp.

          v_nrcorresp = itab_relat-nrseqc.

          CLEAR: v_vlrjprov, v_vlirprov.

          IF itab_relat-tpcontab IS INITIAL.

            LOOP AT itab_zycbt154  WHERE nrcorresp = v_nrcorresp

                               AND   bukrs     = aux_relat-bukrs

                               AND   waers     = aux_relat-waers

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

                               AND   gsber     = aux_relat-gsber

* << Fim da exclusão

                               AND   tpcontr   = aux_relat-tpcontr

                               AND codmodul NE 'C'

                               AND codmodul NE 'CD'

                               AND codmodul NE 'CF'

                               AND codmodul NE 'CI'.

              ON CHANGE OF itab_zycbt154-nrcorresp.

                ULINE.

              ENDON.

              IF itab_zycbt154-codmodul EQ 'IR'.

                ADD itab_zycbt154-vlme TO v_vlirprov.

...

...

                WRITE: 172 itab_zycbt154-vlme

                           CURRENCY itab_zycbt154-waers,

                       AT v_tamr sy-vline.

              ENDIF.

              FORMAT RESET.

            ENDLOOP.

          ELSE.

            LOOP AT itab_zycbt154  WHERE nrcorresp = v_nrcorresp

                               AND   bukrs     = aux_relat-bukrs

                               AND   waers     = aux_relat-waers

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

                               AND   gsber     = aux_relat-gsber

* << Fim da exclusão

                               AND   tpcontr   = aux_relat-tpcontr

                               AND   d_newko   = aux_relat-d_newko

                               AND   c_newko   = aux_relat-c_newko

                               AND   codmodul  = 'PR'.

              ON CHANGE OF itab_zycbt154-nrcorresp.

                ULINE.

              ENDON.

              ADD itab_zycbt154-vlme TO v_vlrjprov.

              FORMAT COLOR COL_KEY INTENSIFIED OFF.

              WRITE : / sy-vline,

...

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

Modificações efetuadas em REPS /PWS/ZYCBR003

...

  ELSE.

    EXIT.

  ENDIF.

ENDFORM.

FORM verifica_provisao_liquidacao CHANGING p_separa.

  DATA: v_cont TYPE i.

  CLEAR p_separa.

  LOOP AT itab_zycbt154 WHERE nrcorresp EQ aux_relat-nrseqc

                          AND bukrs     EQ aux_relat-bukrs

                          AND waers     EQ aux_relat-waers

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

                          AND gsber     EQ aux_relat-gsber

* << Fim da exclusão

                          AND tpcontr   EQ aux_relat-tpcontr

                          AND codmodul  NE 'C'

                          AND codmodul  NE 'CD'

                          AND codmodul  NE 'CF'

                          AND codmodul  NE 'CI'.

    v_cont = v_cont + 1.

  ENDLOOP.

  IF v_cont > 1 OR sy-subrc NE 0.

    p_separa = 'X'.

  ELSE.

    LOOP AT itab_zycbt154 WHERE nrcorresp EQ aux_relat-nrseqc

                            AND bukrs     EQ aux_relat-bukrs

                            AND waers     EQ aux_relat-waers

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

                            AND gsber     EQ aux_relat-gsber

* << Fim da exclusão

                            AND tpcontr   EQ aux_relat-tpcontr

                            AND liquid    NE 'X'

                            AND codmodul  NE 'C'

                            AND codmodul  NE 'CD'

                            AND codmodul  NE 'CF'

                            AND codmodul  NE 'CI'.

    ENDLOOP.

    IF sy-subrc = 0.

      p_separa = 'X'.

    ENDIF.

...