Sintoma

Ao efetuar o estorno de uma associação de valores mantidos no exterior, não esta sendo efetuado o

lançamento contábil da ordem e não esta atualizando os dados da mesma, na tabela /PWS/ZYCBT226.

Solução

Carregar a tabela interna itab_zycbt226 ao efetuar o estorno da associação, para que lance o

contábil da ordem e atualize os dados da mesma.

Informações Complementares

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

Nota Número 04538 Data: 28/08/2007 Hora: 09:47:56

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

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

Nota Número              : 04538

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00010

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ASSOC. VAL. MANTIDOS EXTERIOR-ESTORNO-CONTABILIZAÇÃO E DADOS DA ORDEM

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

Palavras Chave:

ASSOCIAÇÃO DE VALORES MANTIDOS NO EXTERIOR ESTORNO

CONTABILIZAÇÃO E DADOS DA ORDEM SALDO DA ORDEM /PWS/ZYCBT226

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

Objetos da nota:

REPS /PWS/MZYCB035F03

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

Modificações efetuadas em REPS /PWS/MZYCB035F03

...

  wa_zycbt230-budat         = p_budat.

  wa_zycbt230-tp_docto      = p_tpdocto.

  INSERT wa_zycbt230 INTO TABLE itab_zycbt230.

ENDFORM.

FORM efetua_contabilizacoes.

  DATA

    v_saldo TYPE /pws/zycbt227-vlr_associado.

  FIELD-SYMBOLS

    <fs_zycbt228a> LIKE LINE OF itab_zycbt228a.

  FREE itab_mensagem.

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

  IF itab_zycbt226[] IS INITIAL.

    PERFORM seleciona_dados_ordem_pagto.

  ENDIF.

* << Fim da inclusão

  LOOP AT itab_zycbt228a

    ASSIGNING <fs_zycbt228a>.

    CASE <fs_zycbt228a>-oper.

      WHEN c_novo.

        v_saldo = <fs_zycbt228a>-vlr_associado.

        PERFORM efetua_desmemb_liq_and

          USING <fs_zycbt228a>-nrseq <fs_zycbt228a>-gjahr

          CHANGING v_saldo.

        IF v_saldo > 0.

          PERFORM efetua_desmemb_cliente

...