Plataforma | 7. Interacción con Engine de Workflow a través de Formularios Metadatos

variable = ECM-REQUEST-SERVICE(serviceID, operationId, [param1, param2, param3, ...]).

/* Inicio WIDGET-HANDLE - No editar, utilice CTRL + SHIFT + H */
DEFINE VARIABLE txtComment AS WIDGET-HANDLE.
DEFINE VARIABLE txtDescricao AS WIDGET-HANDLE.
DEFINE VARIABLE canvasCard AS WIDGET-HANDLE.
DEFINE VARIABLE txtCodigo AS WIDGET-HANDLE.
DEFINE VARIABLE lblProcList AS WIDGET-HANDLE.
DEFINE VARIABLE canvasAppointment AS WIDGET-HANDLE.
DEFINE VARIABLE lblProcInstId AS WIDGET-HANDLE.
DEFINE VARIABLE lblAttach AS WIDGET-HANDLE.
DEFINE VARIABLE txtProcInstId AS WIDGET-HANDLE.
DEFINE VARIABLE lblApp AS WIDGET-HANDLE.
DEFINE VARIABLE gridProcess AS WIDGET-HANDLE.
DEFINE VARIABLE dtf AS WIDGET-HANDLE.
DEFINE VARIABLE canvasAttach AS WIDGET-HANDLE.
DEFINE VARIABLE txtSec AS WIDGET-HANDLE.
DEFINE VARIABLE lblForm AS WIDGET-HANDLE.
/* Fim WIDGET-HANDLE */

DEFINE VARIABLE resp AS CHARACTER.
DEFINE VARIABLE ttResult AS TEMP-TABLE.

PROCESS-WAIT(TRUE).
/* Seta estilos de alguns componentes */
CALLFUNCTION(lblProcList, "setStyle", "fontSize", 11).
CALLFUNCTION(lblProcList, "setStyle", "fontWeight", "bold").
CALLFUNCTION(lblProcInstId, "setStyle", "fontSize", 11).
CALLFUNCTION(lblProcInstId, "setStyle", "fontWeight", "bold").
CALLFUNCTION(canvasAttach, "setStyle", "backgroundColor", "#d9dbe1").
CALLFUNCTION(lblAttach, "setStyle", "fontSize", 11).
CALLFUNCTION(lblAttach, "setStyle", "fontWeight", "bold").
CALLFUNCTION(canvasCard, "setStyle", "backgroundColor", "#d9dbe1").
CALLFUNCTION(lblForm, "setStyle", "fontWeight", "bold").
CALLFUNCTION(canvasAppointment, "setStyle", "backgroundColor", "#d9dbe1").
CALLFUNCTION(lblApp, "setStyle", "fontWeight", "bold").
 
/* Obtiene los procesos disponibles para el usuario */
resp = ECM-REQUEST-SERVICE("WORKFLOW", "GET-AVAILABLE-PROCESSES").
 
if RESULT-WITH-ERROR(resp) THEN DO:
    MESSAGE resp
        VIEW-AS ALERT-BOX ERROR
        TITLE "Error al ejecutar GET-AVAILABLE-PROCESS".
ELSE DO:
    ttResult = JSON-DECODE(resp).
    gridProcess:QUERY-OPEN(ttResult).
END.
PROCESS-WAIT(FALSE).

DEFINE VARIABLE idx AS INTEGER.
DEFINE VARIABLE processId AS CHARACTER.
DEFINE VARIABLE procComment AS CHARACTER.
DEFINE VARIABLE aux AS CHARACTER.
DEFINE VARIABLE once AS LOGICAL INITIAL true.
DEFINE VARIABLE dt AS DATE.
DEFINE VARIABLE iaux AS INTEGER.
 
/* Obtiene el proceso seleccionado en el Grid */
idx = GETPROPERTY(gridProcess, "selectedIndex").
ttResult:SET-CURRENT(idx).
processId = ttResult.processId.
 
/* Obtiene el comentario */
procComment = txtComment:SCREEN-VALUE.
 
/* Obtiene archivos a adjuntar del componente de upload*/
DEFINE VARIABLE upload AS WIDGET-HANDLE.
DEFINE TEMP-TABLE ttFiles
   FIELD name AS CHARACTER
   FIELD type AS CHARACTER
   FIELD appServerPath AS CHARACTER
   FIELD jbossPath AS CHARACTER
   FIELD size AS DECIMAL.
ttFiles = GETPROPERTY(upload,"files").
 
/* Prepara Temp-Table de archivos adjuntos */
DEFINE TEMP-TABLE ttAttach
   FIELD documentId AS INTEGER
   FIELD documentVersion AS INTEGER
   FIELD description AS CHARACTER
   FIELD filename AS CHARACTER
   FIELD filepath AS CHARACTER
   FIELD principal AS LOGICAL.
 
FOR EACH ttFiles:
    CREATE ttAttach.
    ttAttach.documentVersion = 1000.
    ttAttach.description = ttFiles.name.
    ttAttach.filename = ttFiles.name.
    ttAttach.filepath = ttFiles.jbossPath.
    IF once THEN DO:
       ttAttach.principal = true.
       once = false.
    END.
END.
 
/* Prepara Temp-Table con valores del formulario */
DEFINE TEMP-TABLE ttUsers
   FIELD fieldName AS CHARACTER
   FIELD fieldName AS CHARACTER.
 
CREATE ttCard.
ttCard.fieldName = "A1_CODIGO".
aux = txtCodigo:SCREEN-VALUE.
ttCard.fieldValue = aux.
 
CREATE ttCard.
ttCard.fieldName = "A1_DESCRICAO".
aux = txtDescripción:SCREEN-VALUE.
ttCard.fieldValue = aux.
 
/* Prepara Temp-Table con valores de Nombramiento */
DEFINE TEMP-TABLE ttAppointment
   FIELD appointmentDate AS CHARACTER
   FIELD appointmentSeconds AS INTEGER
   FIELD appointmentSequence AS INTEGER.
 
aux = txtSec:SCREEN-VALUE.
IF aux <> "" THEN DO:
   CREATE ttAppointment.
   dt = GETPROPERTY(dtf, "selectedDate").
   aux = STRING(dt, "99/99/9999").
   aux = aux + " 00:00:00".
   ttAppointment.appointmentDate = aux.
   iaux = INTEGER(txtSec:SCREEN-VALUE).
   ttAppointment.appointmentSeconds = iaux.
   ttAppointment.appointmentSequence = 1.
END.
/* Inicia el proceso */
resp = ECM-REQUEST-SERVICE("WORKFLOW", "START-PROCESS", processId, "framework", 2, procComment, true, ttAttach, ttCard, ttAppointment, false).
 
IF RESULT-WITH-ERROR(resp) THEN DO:
    MESSAGE resp
        VIEW-AS ALERT-BOX ERROR
        TITLE "Error al ejecutar START-PROCESS".
ELSE DO:
    txtProcInstId:SCREEN-VALUE = resp.
END.

DEFINE VARIABLE processInstId AS INTEGER.
processInstId = INTEGER(txtProcInstId:SCREEN-VALUE).
 
/* Si la cancelación estuvo Ok regresa a 'true', sino vuelve el mensaje de error */
resp = ECM-REQUEST-SERVICE("WORKFLOW", "CANCEL-PROCESS", processInstId, "¡Finaliza proceso!").
 
IF RESULT-WITH-ERROR(resp) THEN DO:
    MESSAGE resp
        VIEW-AS ALERT-BOX ERROR
        TITLE "Error al ejecutar GET-AVAILABLE-PROCESS".
ELSE DO:
    MESSAGE "¡Proceso cancelado con éxito!"
        VIEW-AS ALERT-BOX INFORMATION
        TITLE "CANCEL-PROCESS".
    txtProcInstId:SCREEN-VALUE = "".
END.

DEFINE VARIABLE procInstId AS INTEGER.
procInstId = INTEGER(txtProcInstId:SCREEN-VALUE).
 
/* Obtiene un campo por vez: GET-CARD-VALUE
resp = ECM-REQUEST-SERVICE("WORKFLOW", "GET-CARD-VALUE", procInstId, "A1_CODIGO").
 
IF RESULT-WITH-ERROR(resp) THEN DO:
    MESSAGE resp
        VIEW-AS ALERT-BOX ERROR
        TITLE "Error al ejecutar GET-CARD-VALUE".
ELSE DO:
    txtCodigo:SCREEN-VALUE = resp.
END.
 
resp = ECM-REQUEST-SERVICE("WORKFLOW", "GET-CARD-VALUE", procInstId, "A1_DESCRICAO").
 
IF RESULT-WITH-ERROR(resp) THEN DO:
    MESSAGE resp
        VIEW-AS ALERT-BOX ERROR
        TITLE "Error al ejecutar GET-CARD-VALUE".
ELSE DO:
    txtDescricao:SCREEN-VALUE = resp.
END. */
 
/* Obtiene todos los campos del formulario: GET-INSTANCE-CARD-DATA */
resp = ECM-REQUEST-SERVICE("WORKFLOW", "GET-INSTANCE-CARD-DATA", procInstId).
 
DEFINE VARIABLE ttCard AS TEMP-TABLE.
DEFINE VARIABLE fieldName AS CHARACTER.
DEFINE VARIABLE fieldValue AS CHARACTER.
 
IF RESULT-WITH-ERROR(resp) THEN DO:
    MESSAGE resp
        VIEW-AS ALERT-BOX ERROR
        TITLE "Error al ejecutar GET-INSTANCE-CARD-DATA".
ELSE DO:
    ttCard = JSON-DECODE(resp).
    FOR EACH ttCard:
        fieldName = ttCard.fieldName.
        fieldValue = ttCard.fieldValue.
 
        IF fieldName = "A1_CODIGO" THEN DO:
            txtCodigo:SCREEN-VALUE = fieldValue.
        END.
        IF fieldName = "A1_DESCRICAO" THEN DO:
            txtDescricao:SCREEN-VALUE = fieldValue.
        END.
    END.
END.

DEFINE VARIABLE procInstId AS INTEGER.
procInstId = INTEGER(txtProcInstId:SCREEN-VALUE).
/* Obtiene lista de usuarios para tarea */
resp = ECM-REQUEST-SERVICE("WORKFLOW", "GET-AVAILABLE-USERS", procInstId, 2, 0).
 
DEFINE VARIABLE ttUsers AS TEMP-TABLE.
IF RESULT-WITH-ERROR(resp) THEN DO:
    MESSAGE resp
        VIEW-AS ALERT-BOX ERROR
        TITLE "Error al ejecutar GET-AVAILABLE-USERS".
ELSE DO:
    ttUsers = JSON-DECODE(resp).
    FOR EACH ttUsers:
        DISPLAY ttUsers.user.
    END.
END.

DEFINE VARIABLE procInstId AS INTEGER.
/* Obtiene el process instance Id */
procInstId = INTEGER(txtProcInstId:SCREEN-VALUE).
/* Asume tarea corriente */
resp = ECM-REQUEST-SERVICE("WORKFLOW", "TAKE-PROCESS-TASK", procInstId, 0).
IF RESULT-WITH-ERROR(resp) THEN DO:
    MESSAGE resp
        VIEW-AS ALERT-BOX ERROR
        TITLE "Error al ejecutar TAKE-PROCESS-TASK".
ELSE DO:
    DISPLAY resp.
END.