Sintoma

Ao efetuar o estorno de vinculação de um contrato de ACC,ACE, não esta limpando a tabela

/PWS/ZYCBT005.

Solução

Fazer com que atualize a /PWS/ZYCBT005 para todos os tipos de contrato.

Informações Complementares

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

Nota Número 04507 Data: 23/08/2007 Hora: 15:31:18

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

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

Nota Número              : 04507

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00009

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

Referência às notas relacionadas:

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

01681  - 00001 - 6.0    - 00024  - VINCULAÇÃO GRAVAR TABELAS ANTES DO RELATORIO DE DOCUMENTOS CONTAB

02946  - 00002 - 6.0    - 00026  - PARÂMETRO /PWS/ZYGL007 CFM SIM - DUMP VERSÃO 4.7 OU SUPERIOR

04418  - 00003 - 7.0    - 00002  - VINCULAÇÃO CP COM LIQUIDAÇÃO AUTOMÁTICA - ESTORNO

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

VINCULAÇÃO - ESTORNO - ATUALIZAÇÃO TABELA /PWS/ZYCBT005

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

Palavras Chave:

VINCULAÇÃO ESTORNO ATUALIZAÇÃO TABELA /PWS/ZYCBT005

ACC ACE

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

Objetos da nota:

REPS /PWS/MZYCB009F10

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

Modificações efetuadas em REPS /PWS/MZYCB009F10

...

  /pws/zycbe001-dtvincul = v_dtdocto.

  IF /pws/zycbe001-tpcontr(1) EQ 'C' AND

     wa_zycbt007-liq_cp EQ 'X'.

    IF itab_zycbt005[] IS INITIAL

       and v_erro_estorno is initial.

      /pws/zycbe001-slpagar = /pws/zycbe001-vlme.

    ELSE.

      CLEAR /pws/zycbe001-slpagar.

    ENDIF.

  ENDIF.

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

  IF /pws/zycbe001-tpcontr EQ 'DP' AND

     v_erro_estorno IS INITIAL.

* << Fim da exclusão

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

    if v_erro_estorno IS INITIAL.

* << Fim da inclusão

    PERFORM atualiza_dados_estorno.

    MODIFY /pws/zycbt001 FROM /pws/zycbe001.

    .

  ELSEIF /pws/zycbe001-tpcontr NE 'DP'.

    MODIFY /pws/zycbt001 FROM /pws/zycbe001.

    .

  ENDIF.

  DELETE itab_zycbt005 WHERE nrinvoic EQ ' '.

  DELETE itab_zycbt005 WHERE vlvinc EQ ' '.

  IF wa_zycbt007-cfm = 'X'.

...