Sintoma

Programa está alterando as tabelas do câmbio, apagando as informações de associação ou de pagamento

qdo

entramos na fatura via Doc.Importação e modificamos qualquer informação.

Solução

Atualizada fatura, para que ao entrar na mesma após já ter sido paga e fazer alteração não modifique

os dados das tabelas do câmbio.

Informações Complementares

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

Nota Número 01794 Data: 21/07/2006 Hora: 15:40:28

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

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

Nota Número              : 01794

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00123

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

PROGRAMA ESTÁ ALTERANDO AS TABELAS DO CÂMBIO APAGANDO AS INFORMAÇÕES

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

Palavras Chave:

APAGADO - INFORMAÇÕES - CAMBIO - ASSOCIAÇÃO

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

Objetos da nota:

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI003F02

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

  ENDIF.

  CLEAR v_modo_bi.

ENDFORM.

FORM gravar_cambio.

  DATA wa_zycbt119 LIKE /pws/zycbt119.

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

 tables /pws/zycbt064.

    SELECT SINGLE * FROM /pws/zycbt064

      WHERE nrchave   = /pws/zycie006-nrseq_pgfat

      and   mdcorresp = 'IP'.

    if sy-subrc eq 0.

       exit.

    endif.

* << Fim da inclusão

  SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie006-bukrs.

  SELECT SINGLE *

    FROM /pws/zycit000

    WHERE land1 EQ t001-land1.

  CLEAR /pws/zycbt131.

...

...

      SELECT SINGLE * FROM /pws/zycbt131

        WHERE nrseq_pgfat = /pws/zycie006-nrseq_pgfat.

      SELECT SINGLE * FROM /pws/zycbt119

           INTO wa_zycbt119

           WHERE nrseq = /pws/zycie006-nrseq_pgfat.

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

    ENDIF.

* << Fim da inclusão

    ENDIF.

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

    if not /pws/zycbt131 is initial.

       exit.

* << Fim da inclusão

  ENDIF.

  READ TABLE itab_zycit003 INDEX 1.

  MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycbt119.

  CLEAR /pws/zycbt119-belnr_p.

  MOVE: /pws/zycie006-nrfat   TO /pws/zycbt119-nrfat,

...

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

        IF v_dif_wrbtr NE 0.

          itab_zycbt035_aux-wrbtr = itab_zycbt035_aux-wrbtr -

                                       v_dif_wrbtr.

        ENDIF.

      ENDIF.

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

      itab_zycbt035_aux-ps_psp_pnr  = itab_ekkn-ps_psp_pnr.

      IF NOT itab_ekkn-ps_psp_pnr IS INITIAL.

        /pws/zycie006-ps_psp_pnr = itab_ekkn-ps_psp_pnr.

      ENDIF.

* << Fim da inclusão

      IF /pws/zycie006-tpfatura EQ '11'.

        IF /pws/zycit000-clucro_ia = ' '.

          CLEAR: itab_zycbt035-c_kostl,

                 itab_zycbt035-d_kostl.

        ENDIF.

...