Code: Alles auswählen.
FORM YNM_PALLBO_PBO.
data: lenPAI type i.
lenPBO = strlen( AX_DIAG ).
clear AX_DIAG.
clear lenPAI.
ENDFORM.
Code: Alles auswählen.
FORM YNM_PALLBO_PAI.
data: date(10) type c,
time(10) type c.
data: lenPAI type i.
lenPAI = strlen( AX_DIAG ).
IF lenPBO <> lenPAI.
if svcode = 'UPD' or svcode = 'INS'. "bei Anlegen/Ändern
clear AX_DIAG.
*Datum konvertieren:
clear date.
date = sy-datum+6(2).
concatenate date sy-datum+4(2) into date separated by '.'.
concatenate date sy-datum(4) into date separated by '.'.
*Uhrzeit konvertieren:
....
....
ENDIF.