CE PLUS - Nota 002926

Módulo: CÂMBIO EXPORTAÇÃO

Funcionalidade: Rotina Mensal

Data/Hora da Publicação: 19/01/2007 00:00:00

Data/Hora Última Alteração: 18/02/2011 17:22:50

Descrição da Nota: ROTINA MENSAL EXPORTAÇÃO - CAMPO BANCO DA TABELA /PWS/ZYCBT154.

Sintoma

Ao rodar a rotina CLEARING NO PAGAMENTO, hoje o prgrama faz uma consistencia na tabela

/PWS/ZYCBT154, por contrato e por banco, e relaciona as provisões já executada na rotina mensal e

efetua o calculo, perém, se ocorrer uma mudança no banco finaciador ou negociador, devido a

cosnsitencia de bancos, os registros na tabela /pws/zycbt154 não são considerados, pois serão

divergentes e o programa recalcula a rotina mensal desconsiderando e provisionando o valor maior.

 

 

Solução

Ajuste efetuado, retirando da chave de seleção da tabela /pws/zycbt154 o campo bco, para que

independente do usuário alterar o banco na captação após a contabilização.

 

Versões Tratadas

6.0


Pré-Requisitos

Produto:

Nota

Descrição

ROTINA MENSAL EXPORTAÇÃO CONTABILIZAÇÃO SEPARADA DE ACC E ACE = SIM

Informações Complementares

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

Nota Número 02926 Data: 19/01/2007 Hora: 06:07:51

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

 

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

Nota Número              : 02926

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00149

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

Referência às notas relacionadas:

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

 

01309  - 00001 - 6.0    - 00023  - ROTINA MENSAL EXPORTAÇÃO CONTABILIZAÇÃO SEPARADA DE ACC E ACE = S

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

ROTINA MENSAL EXPORTAÇÃO - CAMPO BANCO DA TABELA /PWS/ZYCBT154.

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

Palavras Chave:

ROTINA MENSAL EXPORTAÇÃO - CAMPO BANCO DA TABELA /PWS/ZYCBT154.

 

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

Objetos da nota:

REPS /PWS/ZYCBI003

REPS /PWS/ZYCBR003

 

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

Modificações efetuadas em REPS /PWS/ZYCBI003

 

...

    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

         AND  gsber      EQ aux_relat-gsber

         AND  tpcontr    EQ aux_relat-tpcontr

         AND  codint     EQ aux_relat-nrparcj

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

         AND  bco        EQ aux_relat-bco

* << Fim da exclusão

         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

           itab_zycbt154-codmodul EQ 'CF'.

          ADD itab_zycbt154-vlme TO v_vlirprov.

...

 

...

         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

                                AND gsber     EQ aux_relat-gsber

                                AND tpcontr   EQ aux_relat-tpcontr

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

                                AND bco       EQ aux_relat-bco

* << Fim da exclusão

                                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.

              ADD itab_zycbt154-vlme TO v_vlrjprov.

...

 

...

        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

                               AND   gsber     = aux_relat-gsber

                               AND   tpcontr   = aux_relat-tpcontr

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

                               AND   bco       = aux_relat-bco

* << Fim da exclusão

                               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.

              ELSE.

...

 

...

              FORMAT RESET.

            ENDLOOP.

          ELSE.

            LOOP AT itab_zycbt154  WHERE nrcorresp = v_nrcorresp

                               AND   bukrs     = aux_relat-bukrs

                               AND   waers     = aux_relat-waers

                               AND   gsber     = aux_relat-gsber

                               AND   tpcontr   = aux_relat-tpcontr

                               AND   d_newko   = aux_relat-d_newko

                               AND   c_newko   = aux_relat-c_newko

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

                               AND   bco       = aux_relat-bco

* << Fim da exclusão

                               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,

                 text-056,

                 itab_zycbt154-dtcont,

                 ' - ',

...

 

 

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

Modificações efetuadas em REPS /PWS/ZYCBR003

 

...

  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

                          AND gsber     EQ aux_relat-gsber

                          AND tpcontr   EQ aux_relat-tpcontr

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

                          AND bco       EQ aux_relat-bco

* << Fim da exclusão

                          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

                            AND gsber     EQ aux_relat-gsber

                            AND tpcontr   EQ aux_relat-tpcontr

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

                            AND bco       EQ aux_relat-bco

* << Fim da exclusão

                            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.

  ENDIF.

...