Yo realice validaciones en Sapscript, para ello cree un Z que verificara quien libero la orden usando la tabla CDHDR, algo así:
En el programa:
SELECT OBJECTCLAS OBJECTID USERNAME MAX( UDATE ) INTO CORRESPONDING FIELDS OF TABLE TI_CDHDR
FROM CDHDR
WHERE OBJECTCLAS = 'EINKBELEG' AND OBJECTID = pedido
AND USERNAME = usuario
AND ( TCODE = 'ME28' OR TCODE = 'ME29N' OR TCODE = 'ME35K' ) GROUP BY OBJECTCLAS OBJECTID USERNAME.
IF sy-subrc = 0 .
LIBERADOR = 'SI'.
READ TABLE ZOUT WITH KEY NAME = 'LIBERADOR'.
ZOUT-VALUE = LIBERADOR.
MODIFY ZOUT INDEX SY-TABIX.
ENDIF.
En el Sapscript:
PERFORM LIBERACION_PEDIDO IN PROGRAM ZMM_LIBERACION
IF &LIBERADOR& = 'SI'
BITMAP 'ZFIRMA1' OBJECT GRAPHICS ID BMAP TYPE BMON DPI 300
ENDIF.
Saludos.
|