Sintoma

Ao estornar a vinculação de um contrato de pré-pagamento, o valor do saldo da fatura é duplicado e

ao clicar no botão salvar as faturas excluídas voltam para a table control.

Solução

O programa foi ajustado para atualizar de forma correta a tela e o saldo da fatura.

Informações Complementares

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

Nota Número 00978 Data: 06/03/2006 Hora: 08:40:05

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

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

Nota Número              : 00978

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00103

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

VINCULAÇÃO - AO ESTORNAR FATURAS O SALDO DA FATURA É DUPLICADO.

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

Palavras Chave:

VINCULAÇÃO ESTORNO SALDO FATURA DUPLICADO PRÉ-PAGAMENTO

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

Objetos da nota:

REPS /PWS/MZYCB009F03

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

Modificações efetuadas em REPS /PWS/MZYCB009F03

...

                                     itab_zycbt005-vlvinc.

            elseif /pws/zycbe001-tpcontr eq 'PT' and

                   sy-tcode eq c_transacao_c.

              /pws/zycbe001-slvinc = /pws/zycbe001-slvinc +

                                     itab_zycbt005-vlvinc.

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

            elseif ( /pws/zycbe001-tpcontr(1) EQ 'P'    AND

                     itab_zycbt005_ant-belnr IS initial AND

                   ( itab_zycbt005_ant-status EQ 'I'    OR

                     itab_zycbt005_ant-status IS initial ) ).

            /pws/zycbe001-slvinc = /pws/zycbe001-slvinc +

                                     itab_zycbt005-vlvinc.

* << Fim da inclusão

            ENDIF.

            DELETE itab_zycbt005_aux

                   WHERE nrinvoic = itab_zycbt005-nrinvoic

                     AND nrparcf  = itab_zycbt005-nrparcf

                     AND gsberf   = itab_zycbt005-gsberf.

...

...

          wa_log(v_len) = wa_zycbt005_log(v_len).

          PERFORM grava_log USING '/PWS/ZYCBT005'

                                  wa_log

                                  'E'.

        ENDIF.

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

        IF /pws/zycbe001-tpcontr NE 'PT'.

* << Fim da exclusão

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

        IF /pws/zycbe001-tpcontr NE 'PT'

        OR  ( /pws/zycbe001-tpcontr(1) EQ 'P'    AND

              itab_zycbt005_ant-belnr IS initial AND

            ( itab_zycbt005_ant-status EQ 'I'    OR

              itab_zycbt005_ant-status IS initial ) ).

* << Fim da inclusão

          DELETE FROM /pws/zycbt005

                 WHERE nrseqc  = itab_zycbt005_ant-nrseqc

                 AND tpdesp    = itab_zycbt005_ant-tpdesp

                 AND nrparc    = itab_zycbt005_ant-nrparc

                 AND dtincl    = itab_zycbt005_ant-dtincl

...