Sintoma

o programa leva uma data em branco quando o usuario pressiona enter na tela em que a data é

solicitada quando o periodo está fechado.

Solução

Programa alterado para que a tela não feche quando o usuario nao digitar a data correta.

Informações Complementares

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

Nota Número 06031 Data: 26/02/2008 Hora: 12:58:14

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

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

Nota Número              : 06031

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00036

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO - DATA OBRIGATÓRIA COM PERIODO FECHADO

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

Palavras Chave:

LIQUIDAÇÃO - DATA OBRIGATÓRIA COM PERIODO FECHADO

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

Objetos da nota:

REPS /PWS/LZYGLGF2F01

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

Modificações efetuadas em REPS /PWS/LZYGLGF2F01

...

    IF v_resposta = 'A'.

      RAISE periodo_fechado.

    ENDIF.

  ELSE.

    p_ok = 'S'.

  ENDIF.

  p_novadata = v_novadata.

ENDFORM.

FORM entrar_nova_data CHANGING value(p_resposta)

                               value(p_novadata).

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

  CALL FUNCTION 'POPUP_TO_GET_ONE_VALUE'

* << Fim da exclusão

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

  DATA: v_data_ TYPE d.

  WHILE v_data_ IS INITIAL OR

        v_data_ EQ '00000000'.

    CALL FUNCTION 'TR_POPUP_INPUT_DATE'

* << Fim da inclusão

       EXPORTING

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

            textline1      = text-010

            textline2      = text-011

            titel          = text-012

            valuelength    = 10

* << Fim da exclusão

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

              iv_title               = text-012

              iv_description1        = text-010

              iv_description2        = text-011

              iv_date                = v_data_

* << Fim da inclusão

       IMPORTING

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

            answer         = p_resposta

            value1         = p_novadata

* << Fim da exclusão

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

              ev_date                = v_data_

* << Fim da inclusão

       EXCEPTIONS

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

            titel_too_long = 1

            OTHERS         = 2.

* << Fim da exclusão

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

              action_aborted_by_user = 1

              value_not_changed      = 2

              OTHERS                 = 3.

    WRITE v_data_ TO p_novadata.

  ENDWHILE.

* << Fim da inclusão

ENDFORM.

FORM trata_string_credito2 TABLES   p_t_dados STRUCTURE /pws/zycbe033

                                    p_t_campo STRUCTURE /pws/zycbt034

                                    p_itab_oculto2 LIKE itab_oculto2[]

                           USING    value(p_string)

                                    value(p_v_conta).

  DATA:

    v_string(50) TYPE c.

  MOVE p_string TO v_string.

  IF v_string+6(1) = '+'.

...