quinta-feira, 14 de novembro de 2013

Função - DATE_CHECK_PLAUSIBILITY

*  Eae Galera, trabalhando com retorno de doc. financeiros, precisei
* tratar as informações de data dentro de um arquivo txt, a unica coisa
* que eu precisava verificar era se a data informada era uma data valida,
* pra não ficar criando logicas loucas para verificar a data, a SAP,
* Muito boazinha, criou essa função que faz todas essas verificações pra
* nós abapers.
*  Mais simples que essa não existe, ela nem retorno nada, só o SUBRC,
* mas é o suficiente para tomarmos atitude depois.

REPORT z_date_check_plausibility.

* Declarações
DATA :
  vl_message 
TYPE string.

* Tela de seleção
SELECTION-SCREEN BEGIN OF BLOCK b1.
PARAMETERS :
  p_date 
TYPE sy-datum.
SELECTION-SCREEN END OF BLOCK   b1.

START-OF-SELECTION.

  
CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
    
EXPORTING
      
date                      p_date
    
EXCEPTIONS
      plausibility_check_failed 
1
      
OTHERS                    2.

* Mensagem de retorno.
  
IF sy-subrc IS INITIAL.

    
CONCATENATE 'Data'
                 p_date
                 
'Ok.'
      
INTO vl_message
      
SEPARATED BY space.

    
MESSAGE vl_message TYPE 'S'.
  
ENDIF.

  
CLEAR vl_message.
Comentários
0 Comentários

Nenhum comentário:

Postar um comentário