Sintoma

Ao selecionar uma fatura através do match code, a data de vencimento aparece no formato 00/00/0000.

Solução

Foi criada a função TRATA_DATA que efetua o tratamento das datas de acordo com o parametrizado no

sistema.

Informações Complementares

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

Nota Número 01086 Data: 27/03/2006 Hora: 08:48:27

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

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

Nota Número              : 01086

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00106

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

VINCULAÇÃO - DATA DE VENCIMENTO APARECE NO FORMATO 00.00.0000

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

Palavras Chave:

VINCULAÇÃO DATA VENCIMENTO FORMATO 00.00.0000

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

Objetos da nota:

FUNC /PWS/ZYGL_TRATA_DATA

REPS /PWS/LZYGLGFUXX

REPS /PWS/MZYCB009F05

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

Modificações efetuadas em FUNC /PWS/ZYGL_TRATA_DATA

FUNCTION /PWS/ZYGL_TRATA_DATA.

*"----------------------------------------------------------------------

*"*"Interface local:

*"  IMPORTING

*"     REFERENCE(I_TRDATA) TYPE  /PWS/ZYCBT017-DTVENCTO

*"  EXPORTING

*"     REFERENCE(E_TRDATA) TYPE  /PWS/ZYCBT017-BCONEGOC

*"  EXCEPTIONS

*"      V_DTBRANCO

*"----------------------------------------------------------------------

DATA: v_data(1).

TABLES: usr01.

SELECT SINGLE * FROM USR01

              WHERE BNAME = SY-UNAME.

v_data = USR01-DATFM.

 CASE v_data.

  WHEN 1.

* Formato DD.MM.AAAA

 CONCATENATE i_trdata+6(2)"Dia

             '.'

             i_trdata+4(2)"Mes

             '.'

             i_trdata(4)"Ano

             INTO e_trdata.

  WHEN 2.

* Formato MM/DD/AAAA

 CONCATENATE i_trdata+6(2)"Dia

             '/'

             i_trdata+4(2)"Mes

             '/'

             i_trdata(4)"Ano

             INTO e_trdata.

  WHEN 3.

* Formato MM-DD-AAAA

 CONCATENATE i_trdata+4(2)"Mes

             '-'

             i_trdata+6(2)"Dia

             '-'

             i_trdata(4)"Ano

             INTO e_trdata.

  WHEN 4.

* Formato AAAA.MM.DD

 CONCATENATE i_trdata(4)"Ano

             '.'

             i_trdata+4(2)"Mes

             '.'

             i_trdata+6(2)"Dia

             INTO e_trdata.

  WHEN 5.

* Formato AAAA-MM-DD

 CONCATENATE i_trdata(4)"Ano

             '/'

             i_trdata+4(2)"Mes

             '/'

             i_trdata+6(2)"Dia

             INTO e_trdata.

  WHEN 6.

* Formato AAAA-MM-DD

 CONCATENATE i_trdata(4)"Ano

             '-'

             i_trdata+4(2)"Mes

             '-'

             i_trdata+6(2)"Dia

             INTO e_trdata.

 ENDCASE.

ENDFUNCTION.

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

Modificações efetuadas em REPS /PWS/LZYGLGFUXX

INCLUDE /PWS/LZYGLGFU01.

INCLUDE /PWS/LZYGLGFU02.

INCLUDE /PWS/LZYGLGFU03.

* >> Início da inclusão:

INCLUDE /PWS/LZYGLGFU04.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCB009F05

...

    ENDIF.

    V_INDEX = V_INDEX + 1.

    IF V_INDEX GT 1.

      v_line = v_line + 1.

    ENDIF.

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

    CALL FUNCTION '/PWS/ZYGL_TRATA_DATA'

* << Fim da inclusão

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

    WRITE <fs_zycbt017>-dtvencto TO v_data_aux.

* << Fim da exclusão

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

         EXPORTING

              i_trdata         = <fs_zycbt017>-dtvencto

         IMPORTING

              e_trdata         = v_data_aux

         EXCEPTIONS

              v_dtbranco       = 1.

* << Fim da inclusão

    PERFORM adiciona_linha_tc:

      USING

        '/PWS/ZYCBE005-NRINVOIC' <fs_zycbt017>-nrinvoic v_line

      CHANGING

        p_itab_dynpread,

...