Sintoma

Quando na tabela /PWS/ZYGL007 estiver paramentrizado para a rotina mensal fazer a separação do

Calculo de ACC e ACE e a cotabilização separada de ACC e ACE, e criada uma captação ACC, ao rodar a

rortina mensal sem nenhuma vinculação, ou seja, sem nenhuma modificação desde a sua criação, ele

deveria provisionar o valor calculado até a data da rotina mensal na conta de ACC, e o programa faz

as provisões corretamente, porém, na tela 120, no momento de clicar no botão "contabilizar", o

programa não executa nenhuma ação, sendo assim, não é contabilizado as provisões para ACC.

Solução

Tratar a exclusão de registros duplicados quando os mesmos estiverem duplicados na itab_contabil, se

for único, não excluir.

Informações Complementares

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

Nota Número 02625 Data: 07/12/2006 Hora: 11:41:37

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

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

Nota Número              : 02625

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00142

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

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 - NÃO CONTABILIZA F-02

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

Palavras Chave:

ROTINA MENSAL EXPORTAÇÃO NÃO CONTABILIZA F-02

CONTABILIZAÇÃO PROVISÃO SEPARAÇÃO ACC/ACE

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

Objetos da nota:

REPS /PWS/ZYCBI003

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

Modificações efetuadas em REPS /PWS/ZYCBI003

...

ENDFORM.

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'.

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

    DELETE itab_contabil WHERE NOT subtotal IS initial.

* << Fim da exclusão

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

    LOOP AT itab_contabil WHERE NOT subtotal IS initial.

      v_sytabix = sy-tabix.

      READ TABLE itab_contabil WITH KEY

                                    nrcorresp = itab_contabil-nrcorresp

                                    vlrprov   = itab_contabil-vlrprov

                                    subtotal  = ' '.

      IF sy-subrc = 0.

        DELETE itab_contabil INDEX v_sytabix.

      ENDIF.

    ENDLOOP.

* << Fim da inclusão

    IF itab_contabil-tpcontr NE 'AC'.

      DELETE itab_contabil WHERE nrparcp = '000'

                           AND  tpcontab <> ' ' .

    ENDIF.

    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.

...