Sintoma

Ao alterar opções de data de vencimento da fatura, não grava.

Solução

Atualizado programa para para salvar campos marcados.

Informações Complementares

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

Nota Número 11365 Data: 01/08/2011 Hora: 10:28:20

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

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

Nota Número              : 11365

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00008

Agrupamento              : 00080

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

Referência às notas relacionadas:

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

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

AO ALTERAR OPÇÕES DE DATA DE VENCIMENTO DA FATURA, NÃO GRAVA.

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

Palavras Chave:

DATA DE VENCIMENTO - FATURA - DATA BL

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

Objetos da nota:

REPS /PWS/MZYCI003O01

REPS /PWS/MZYCI003F02

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

Modificações efetuadas em REPS /PWS/MZYCI003O01

...

  CLEAR v_res_dt_fat2.

  IF /pws/zycie006-dtbase IS INITIAL.

    SELECT SINGLE dtemiss dtlanc FROM /pws/zycit093

    INTO (/pws/zycit093-dtemiss, /pws/zycit093-dtlanc)

      WHERE nrseqce EQ /pws/zycie006-nrseqce.

    SELECT SINGLE ztag1 zdart FROM t052

    INTO (t052-ztag1, t052-zdart)

      WHERE zterm EQ /pws/zycie006-zterm.

    IF t052-zdart EQ 'B'    .

      /pws/zycie006-dtbase    = /pws/zycit093-dtemiss .

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

      /pws/zycie006-flag_dt = '2'.

* << Fim da inclusão

    ELSEIF t052-zdart EQ 'D'.

      /pws/zycie006-dtbase    = /pws/zycit093-dtlanc .

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

      /pws/zycie006-flag_dt = '3'.

* << Fim da inclusão

    ENDIF.

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

  CALL FUNCTION 'POPUP_TO_DECIDE_LIST'

    EXPORTING

      cursorline               = v_cursor

      mark_flag                = /pws/zycie006-flag_dt

      textline1                = text-139

      titel                    = text-138

      display_only             = v_exibir

   IMPORTING

     answer                   = v_res_dt_fat

    TABLES

      t_spopli                 = itab_venc_fatura

   EXCEPTIONS

            not_enough_answers = 1

            too_much_answers   = 2

            too_much_marks     = 3

            OTHERS             = 4.

  IF v_res_dt_fat NE 'A'.

    READ TABLE itab_venc_fatura WITH KEY selflag = 'X'.

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

    v_res_dt_fat2 = v_res_dt_fat.

    CASE v_res_dt_fat.

* << Fim da exclusão

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

    IF sy-subrc EQ 0.

      v_res_dt_fat2 = v_res_dt_fat =

      /pws/zycie006-flag_dt = sy-tabix.

      CASE sy-tabix.

* << Fim da inclusão

      WHEN '1'.

        /pws/zycie006-dtbase = /pws/zycie001-dt_retmerc.

      WHEN '2'.

        /pws/zycie006-dtbase = /pws/zycit093-dtemiss.

      WHEN '3'.

        /pws/zycie006-dtbase = /pws/zycit093-dtlanc.

      WHEN '4'.

        /pws/zycie006-dtbase = /pws/zycie006-dtincl.

    ENDCASE.

  ENDIF.

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

      endif.

* << Fim da inclusão

ENDFORM.

...