Sintoma

Ao rodar a rotina mensal para contrato de ACC, o programa não transfere de longo para curto prazo.

Solução

Tratar para não duplicar o último registro quando o mesmo for transferência e fazer quebra de

transferência para todos tipos de contrato.

Informações Complementares

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

Nota Número 02694 Data: 14/12/2006 Hora: 09:53:59

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

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

Nota Número              : 02694

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00144

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

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

01593  - 00002 - 6.0    - 00023  - IMPRESSÃO DOS VALORES DE TRANSFERÊNCIA DE LP PARA CP NA ROTINA ME

02434  - 00003 - 6.0    - 00025  - ROTINA MENSAL - DUPLICAR REGISTRO CONTRATO DE PT

02556  - 00004 - 6.0    - 00025  - ROTINA MENSAL EXPORTAÇÃO-VALOR PROVISÃO EM DOBRO NA F-02

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

ROTINA MENSAL EXPORTAÇÃO - TRANSFERÊNCIA LP/CP - CONTABILIZAÇÃO

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

Palavras Chave:

ROTINA MENSAL EXPORTAÇÃO TRANSFERÊNCIA LP/CP CONTABILIZAÇÃO

VALORES ZERADOS VAZIOS ACC

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

Objetos da nota:

REPS /PWS/ZYCBI003

REPS /PWS/ZYCBR003

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

Modificações efetuadas em REPS /PWS/ZYCBI003

...

FORM lancamento_provisao.

  DATA: v_descricao(30).

  SELECT * FROM /pws/zycbt013 INTO TABLE itab_zycbt013

       WHERE tabela = '/PWS/ZYCBT154'.

  READ TABLE itab_contabil INDEX 1.

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

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

         wa_zycbt007-fprovisao        EQ 'C' )

     OR itab_contabil-tpcontr NE 'AC'.

    DELETE itab_contabil WHERE NOT subtotal IS initial.

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

    IF itab_contabil-tpcontr NE 'AC'.

      DELETE itab_contabil WHERE nrparcp = '000'

                           AND  tpcontab <> ' ' .

    ENDIF.

* << Fim da exclusão

    REFRESH itab_contabil_aux.

    LOOP AT itab_contabil.

      CLEAR itab_contabil_aux.

      MOVE-CORRESPONDING itab_contabil TO itab_contabil_aux.

      COLLECT itab_contabil_aux.

    ENDLOOP.

    itab_contabil[] = itab_contabil_aux[].

  ELSE.

    SORT itab_contabil.

    DELETE ADJACENT DUPLICATES FROM itab_contabil.

...

...

        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 inclusão: FORM PROCESSA_SUBTOTAL_WAERS

    IF NOT itab_relat-tpcontab     = 'T' OR

       NOT wa_itab_relat-tpcontab  = 'T'.

* << Fim da inclusão

    PERFORM preenche_itab_contabil USING p_v_vlmej

                                CHANGING v_vlrjprov.

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

    ENDIF.

* << Fim da inclusão

    ULINE.

    FORMAT COLOR 2 INVERSE OFF INTENSIFIED ON.

    IF wa_itab_relat-tpcontab EQ 'C'.

      IF wa_zycbt007-fprovisao EQ 'C'.

        WRITE: sy-vline, text-128, text-130, wa_itab_relat-nrparcj,

...

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

Modificações efetuadas em REPS /PWS/ZYCBR003

...

      itab_contabil-vlmetransf  =  wa_itab_relat-vlmetransf.

      itab_contabil-nrparcp     =  wa_itab_relat-nrparcp.

      itab_contabil-kursf       =  wa_itab_relat-txc.

      itab_contabil-dtcont      =  s_dtentr.

      itab_contabil-vlme        =  itab_relat-vlrprov.

      IF wa_zycbt007-fprovisao  <> space.

        itab_contabil-nrcorresp =  wa_itab_relat-nrseqc.

      ENDIF.

      APPEND itab_contabil.

      CLEAR itab_contabil.

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

      IF itab_relat-tpcontr(1) EQ 'P' OR

         itab_relat-tpcontr(1) EQ 'S'.

* << Fim da exclusão

        PERFORM processa_subtotal_waers USING v_vlmej_w v_vlmeir_w ' '.

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

      ENDIF.

* << Fim da exclusão

    ENDIF.

    v_bukrs   = itab_relat-bukrs.

    v_waers   = itab_relat-waers.

    v_gsber   = itab_relat-gsber.

    v_tpcontr = itab_relat-tpcontr.

    v_d_newko = itab_relat-d_newko.

...