Função Inserir Zeros a Esquerda
-
Upload
amando-carvalho-canario -
Category
Documents
-
view
214 -
download
0
description
Transcript of Função Inserir Zeros a Esquerda
FUNO PARA INSERIR ZEROS A ESQUERDA.**************************************************************************************FORM insere_zeros CHANGING p_campo TYPE any. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = p_campo IMPORTING output = p_campo.ENDFORM. "insere_zeros************************************************************************************************************************************************************************************************************************************DELETAR ZEROS A ESQUERDAData: v_Txt(10) Value '0000000443'. Shift v_Txt Left Deleting Leading '0'.**********************************************************************************************************************************************