DEFINE INPUT PARAMETER cvarcuentas AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER iPer AS INTEGER NO-UNDO.
DEFINE INPUT PARAMETER iYrP AS INTEGER NO-UNDO.
DEFINE INPUT PARAMETER pctagsistema AS CHARACTER NO-UNDO.
DEFINE OUTPUT PARAMETER lError AS LOGICAL INIT FALSE NO-UNDO.
DEFINE OUTPUT PARAMETER cError AS CHARACTER INIT "" NO-UNDO.
Llamando un archivo .r resultado, del archivo compilado .p.
RUN pCrea.r ON SERVER hAppsistem (INPUT "19.1000",
INPUT 28,
INPUT 2019,
INPUT pcTagSistema,
OUTPUT plReturn,
OUTPUT pcReturn) NO-ERROR.
No hay comentarios:
Publicar un comentario