Sintoma

O programa não atualiza de forma correta o valor do saldo da table controll e não fecha de forma

correta o campo desvinculação.

Solução

Programa ajustado para q o calculo seja feito de forma correta e o campo fechado de forma correta.

Informações Complementares

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

Nota Número 06359 Data: 09/04/2008 Hora: 19:09:11

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

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

Nota Número              : 06359

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00042

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

VINCULAÇÃO - SALDO DA PARCELA E FECHAMENTO DO CAMPO DESVINCULAÇÃO

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

Palavras Chave:

VINCULAÇÃO - SALDO DA PARCELA E FECHAMENTO DO CAMPO DESVINCULAÇÃO

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

Objetos da nota:

REPS /PWS/MZYCB009F04

REPS /PWS/MZYCB009F05

REPS /PWS/MZYCB009O01

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

Modificações efetuadas em REPS /PWS/MZYCB009F04

...

          TRANSPORTING vlvinc slpagar.

      ELSE.

        itab_zycbt005-vlslf = itab_zycbt005-vlslf - v_vldif_fat.

        /pws/zycbe001-slvinc = /pws/zycbe001-slvinc - v_vldif.

        MODIFY itab_zycbt005 INDEX tc_faturas-current_line

          TRANSPORTING vlslf.

      ENDIF.

    ENDIF.

  ENDIF.

  CLEAR itab_zycbt005_aux.

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

  IF itab_zycbt005-vlslf EQ 0 AND itab_zycbt005-v_fsaldo IS INITIAL.

    itab_zycbt005-v_fsaldo = 'X'.

  ENDIF.

* << Fim da inclusão

ENDFORM.

FORM verifica_condicoes.

  READ TABLE itab_zycbt005_aux4

    WITH KEY nrinvoic = /pws/zycbe005-nrinvoic

             nrparcf  = /pws/zycbe005-nrparcf

             gsberf   = /pws/zycbe005-gsberf

             dtvincul = /pws/zycbe005-dtvincul.

  IF sy-subrc EQ 0.

    MESSAGE w015 WITH text-059 /pws/zycbe005-nrinvoic.

    v_existe_invoice = 'S'.

...

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

Modificações efetuadas em REPS /PWS/MZYCB009F05

...

      IF v_inco1 = 'X' AND screen-group1 = 'INC'.

        screen-invisible = '0'.

        screen-input = '1'.

        MODIFY SCREEN.

      ENDIF.

      IF v_re = 'X' AND screen-group1 = 'NRE'.

        screen-invisible = '0'.

        screen-input = '1'.

        MODIFY SCREEN.

      ENDIF.

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

      IF v_sd = 'X' AND screen-group1 = 'NSD'.

* << Fim da exclusão

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

      IF v_sd = 'X' AND screen-group1 = 'NRS'.

* << Fim da inclusão

        screen-invisible = '0'.

        screen-input = '1'.

        MODIFY SCREEN.

      ENDIF.

    ENDIF.

  ENDLOOP.

ENDFORM.

FORM calcula_saldos_2.

  DATA:

  v_vldif  LIKE /pws/zycbe005-vlslf,

...

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

Modificações efetuadas em REPS /PWS/MZYCB009O01

...

    LOOP AT SCREEN.

      IF screen-name EQ '/PWS/ZYCBE005-NRINVOIC' OR

         screen-name EQ '/PWS/ZYCBE005-GSBERF'   OR

         screen-name EQ '/PWS/ZYCBE005-NRPARCF'.

        IF /pws/zycbe005-nrinvoic IS INITIAL.

          screen-input = v_status_s.

        ELSE.

          screen-input = '0'.

        ENDIF.

      ENDIF.

* >> Início da inclusão: MODULE SET_SCREEN_VINC

      IF screen-name EQ 'WA_DESVINCULA-VLDESVIN'.

        screen-input = v_status_s.

      ENDIF.

* << Fim da inclusão

      SELECT SINGLE * FROM /pws/zycbt006

      WHERE nrseqc   = /pws/zycbe005-nrseqc   AND

            tpdesp   = /pws/zycbe005-tpdesp   AND

            nrparc   = /pws/zycbe005-nrparc   AND

            dtincl   = /pws/zycbe005-dtincl   AND

            nrinvoic = /pws/zycbe005-nrinvoic AND

            gsberf   = /pws/zycbe005-gsberf   AND

            dtvincul = /pws/zycbe005-dtvincul.

      IF sy-subrc EQ 0.

        IF screen-name = '/PWS/ZYCBE005-VLME_P'   OR

...