20060227
Sapscript
sacar los ceros a izquierda en el form: &variable(Z)&
--------------------------------------------------------
&'Moneda 'EKKO-WAERS& --> si la variable está vacia, tonces no se imprime el texto tampoco.
--------------------------------------------------------
/: DEFINE &CANTIDAD& = &EKPO-MENGE&
/: PERFORM CANTIDAD IN PROGRAM ZEJEMPLO
/: USING &EKPO-KTMNG(T15)&
/: CHANGING &CANTIDAD&
/: CHANGING &UMED&
/: ENDPERFORM
--------------------------------------------------------
- impresor: armo mach code de forms.
PARAMETERS: s_form LIKE rsscf-tdform.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_form.
SUBMIT rstxfcat VIA SELECTION-SCREEN AND RETURN.
GET PARAMETER ID 'TTX' FIELD rstxd. s_form = rstxd-tdform.
--------------------------------------------------------
BOX YPOS '1.2' CM HEIGHT '3.0' CM FRAME 10 TW -> es a partir de la ventana donde se encuentra
--------------------------------------------------------
CALL FUNCTION 'CONTROL_FORM' "trigger page break
EXPORTING
command = 'NEW-PAGE'.
--------------------------------------------------------
&'Moneda 'EKKO-WAERS& --> si la variable está vacia, tonces no se imprime el texto tampoco.
--------------------------------------------------------
/: DEFINE &CANTIDAD& = &EKPO-MENGE&
/: PERFORM CANTIDAD IN PROGRAM ZEJEMPLO
/: USING &EKPO-KTMNG(T15)&
/: CHANGING &CANTIDAD&
/: CHANGING &UMED&
/: ENDPERFORM
--------------------------------------------------------
PARAMETERS: s_form LIKE rsscf-tdform.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_form.
SUBMIT rstxfcat VIA SELECTION-SCREEN AND RETURN.
GET PARAMETER ID 'TTX' FIELD rstxd. s_form = rstxd-tdform.
--------------------------------------------------------
BOX YPOS '1.2' CM HEIGHT '3.0' CM FRAME 10 TW -> es a partir de la ventana donde se encuentra
--------------------------------------------------------
CALL FUNCTION 'CONTROL_FORM' "trigger page break
EXPORTING
command = 'NEW-PAGE'.
# posted by nico : 9:42 a. m.
