Sintoma

Ao rodar a rotina mensal (para qualquer tipo de contrato), quando existe a ser contabilizado

(Transferência de longo para curto prazo e provisão), o programa apresenta no 2º relatório da rotina

mensal (relatório de contabilidade): uma linha com o valor a ser provisionado, a (s) linha (s) com

as transferências à serem feitas e traz uma linha com diferença à provisionar = 0,00. Ao

contabilizar a rotina, estão sendo contabilizados somente os documentos de transferência e a

provisão não é contabilizada.

Solução

Código alterado para que o tratamento seja feito de maneira correta.

Informações Complementares

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

Nota Número 03898 Data: 12/06/2007 Hora: 14:02:53

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

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

Nota Número              : 03898

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00170

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

Referência às notas relacionadas:

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

00438  - 00001 - 6.0    - 00022  - NÃO ESTÁ SENDO EFETUADA A CONTABILIZAÇÃO SEPARADA DE ACC/ACE

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

02670  - 00003 - 6.0    - 00026  - ROTINA MENSAL EXPORTAÇÃO - EXCLUSÃO MENSAGEM WARNING

02674  - 00004 - 6.0    - 00026  - ROTINA MENSAL EXPORTAÇÃO - COMISSÃO - BCO. NEGOCIADOR

02694  - 00005 - 6.0    - 00026  - ROTINA MENSAL EXPORTAÇÃO - TRANSFERÊNCIA LP/CP - CONTABILIZAÇÃO

03450  - 00006 - 7.0    - 00001  - DESENVOLVIMENTO ADICIONAL - ESTORNO DA ROTINA MENSAL.

03474  - 00007 - 7.0    - 00001  - ROTINA MENSAL EXPORTAÇÃO - PROVISÃO COMISSÃO DUPLICADA

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

ROTINA MENSAL - TRANSFERÊNCIA DE LONGO PARA CURTO PRAZO

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

Palavras Chave:

ROTINA MENSAL - TRANSFERÊNCIA DE LONGO PARA CURTO PRAZO

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

Objetos da nota:

REPS /PWS/ZYCBI003

REPS /PWS/ZYCBR003

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

Modificações efetuadas em REPS /PWS/ZYCBI003

...

        v_tipo_jur = '(ACC)'.

      ELSE.

        v_tipo_jur = '(ACE)'.

      ENDIF.

    ENDIF.

  ELSE.

    CLEAR v_tipo_jur.

  ENDIF.

  IF ( NOT p_v_vlmej IS INITIAL ) OR

     ( NOT p_impr    IS INITIAL ).

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

    IF NOT itab_relat-tpcontab     = 'T'.

* << Fim da exclusão

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

    IF  ( wa_itab_relat-tpcontab  NE 'T' OR

        ( wa_itab_relat-tpcontab  EQ 'T' AND

             itab_relat-tpcontab  EQ 'T' AND

          wa_itab_relat-nrparcj   GT 0 ) ) AND

* << Fim da inclusão

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

      IF wa_itab_relat-tpcontab IS INITIAL

      OR wa_itab_relat EQ itab_relat.

* << Fim da exclusão

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

  ( NOT ( wa_itab_relat-tpcontab  EQ 'C'       AND

          wa_itab_relat-nrparcj   EQ v_nrparcj ) OR

        ( wa_itab_relat-nrparcj   EQ v_nrparcj AND

          wa_itab_relat-tpcontab  EQ 'C'       AND

             itab_relat-tpcontab  EQ 'T' ) ).

* << Fim da inclusão

        PERFORM preenche_itab_contabil USING p_v_vlmej

                                    CHANGING v_vlrjprov.

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

      ENDIF.

* << Fim da exclusão

    ENDIF.

    ULINE.

    FORMAT COLOR 2 INVERSE OFF INTENSIFIED ON.

    IF wa_itab_relat-tpcontab EQ 'C'.

      IF wa_zycbt007-fprovisao EQ 'C'.

...

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

Modificações efetuadas em REPS /PWS/ZYCBR003

...

  v_confirm(1)    TYPE c VALUE space,

  v_txt_f(95)     TYPE c VALUE space,

  v_tamr          TYPE i VALUE 254,

  v_nrlines       TYPE i,

  v_per_dias      TYPE i,

  v_nrdias        TYPE i,

  v_base_dias     TYPE i,

  v_lin           TYPE i,

  v_imp           TYPE i,

  v_modo_bi,

* >> Início da inclusão:

  v_nrparcj       TYPE /pws/zycbt002-nrparc,

* << Fim da inclusão

 v_programa       TYPE sy-cprog,

  v_defator       LIKE tcurr-ffact,

  v_parafator     LIKE tcurr-tfact,

  v_separa        TYPE c,

  v_vlprov_aux    LIKE /pws/zycbt004-vlme.

SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.

PARAMETERS: s_bukrs  LIKE /pws/zycbt001-bukrs OBLIGATORY,

            s_dtentr LIKE sy-datum.

SELECTION-SCREEN END OF BLOCK a1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-046.

...

...

        v_vlprovir LIKE /pws/zycbt002-vlme,

        v_nrseq    LIKE /pws/zycbt001-nrseqc,

        v_tabix    LIKE sy-tabix,

        v_bukrs    LIKE itab_relat-bukrs,

        v_waers    LIKE itab_relat-waers,

        v_gsber    LIKE itab_relat-gsber,

        v_tpcontr  LIKE itab_relat-tpcontr,

        v_d_newko  LIKE itab_relat-d_newko,

        v_c_newko  LIKE itab_relat-c_newko,

        v_bco      LIKE itab_relat-bco,

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

        v_nrparcj  LIKE itab_relat-nrparcj,

* << Fim da exclusão

        v_ftpj     LIKE itab_relat-ftpj.

  itab_relat_aux[] = itab_relat[].

  IF wa_zycbt007-fprovisao EQ 'C'.

    DELETE itab_relat

        WHERE tpcontab EQ 'C' AND

              vlrprov  IS initial.

  ENDIF.

  LOOP AT itab_relat.

    v_tabix = sy-tabix.

    SELECT name1

...