Como hago para usar un perform en SAPscript?

[korren]

Hola a todos,

necesito poder usar un perform dentro del SAPScript, pero no tengo ni la menor idea de como arrancar con eso.

Alguien me puede orientar?

[koken]

Hola,

pero porque querés usar un perform dentro del SAPscript? siempre tenés que intentar hacer todas las rutinas en el programa control de ese sapscript.

Espero haberte ayudado.

[korren]

Koken,

gracias por tu interés en ayudarme, el problema pasa por lo siguiente:
No puedo modificar el programa control porque es un estandar, tendría que crear un programa Zxx y no es lo que quiero, además me comentaron que escucharon que se pueden usar rutinas en el SAPScript.

Por ahí con eso orienté mejor mi pregunta.

[koken]

Ahora entendí el porque de llamar una rutina desde el mismo SAPScript .

Si, realmente eso se puede hacer y te voy a dejar un ejemplo que creo que es con el que mejor se ve, y el que más vas a utilizar.

Primero tenés que crear un programa Include donde vas a poner las rutinas que vas a usar en el SAPScript (podés usar el mismo programa include para todos los SAPScript). Le ponemos ZYYY

En este caso vamos a hacer el pasaje de un número a letras.

el código sería así:

 

*&--------------------------------------------------------------------*
*&      Form  cambio_a_letras
*&--------------------------------------------------------------------*
*      Perform para cambiar a letras un monto de la BSEG-DMBTR
*---------------------------------------------------------------------*
*      -->IN_PAR     text
*      -->OUT_PAR    text
*---------------------------------------------------------------------*
FORM cambio_a_letras TABLES in_par  STRUCTURE itcsy
                        out_par STRUCTURE itcsy.

  DATA: monto_aux(255) TYPE c.
  DATA: it_monto       LIKE spell.

  READ TABLE out_par WITH KEY name = 'PESOS'.

  IF sy-subrc EQ 0.
    MODIFY out_par INDEX sy-tabix.
  ENDIF.

  monto_aux = in_par-value.

  CALL FUNCTION 'SPELL_AMOUNT'
    EXPORTING
      amount   = monto_aux
      currency = 'ARS'
      language = sy-langu
    IMPORTING
      in_words = it_monto.

  IF sy-subrc EQ 0.
    READ TABLE out_par WITH KEY name = 'PESOS'.
    CONCATENATE it_monto-word ' con  ' it_monto-decimal(2) '/100'
  INTO
    out_par-value.
    MODIFY out_par INDEX sy-tabix.
  ENDIF.

ENDFORM.

Una vez realizado esto solo lo tiene que llamar en el SAPScript poniendo

PERFORM cambio_a_letras using valor_numerico in PROGRAM ZYYY.

Y listo tenés el problema resuelto.

[korren]

Hola koken!

Muchísimas gracias, ya lo resolví gracias!

[AprendiSAP]

Hola a Todos!!
Estoy con los primeros pininos en SAP, y estoy con sapscripts ahora. El tema es que debo llamar a un form con parametros desde el sapscript, y el tema es que no sé bien como es el uso del mismo -form con parametros- desde dentro del sapscript, que envia y devuelve el form? en que formato??

Muchisimas fracias por la ayuda!
AS.