/******************************************************************/
DEFINE VARIABLE username AS CHARACTER NO-UNDO.
DEFINE VARIABLE password AS CHARACTER NO-UNDO.
DEFINE VARIABLE companyId AS INTEGER NO-UNDO.
DEFINE VARIABLE processInstanceId AS INTEGER NO-UNDO.
DEFINE VARIABLE choosedState AS INTEGER NO-UNDO.
DEFINE VARIABLE processId AS CHARACTER NO-UNDO.
DEFINE VARIABLE comments AS CHARACTER NO-UNDO.
DEFINE VARIABLE usrId AS CHARACTER NO-UNDO.
DEFINE VARIABLE attacments AS LONGCHAR NO-UNDO.
DEFINE VARIABLE cardData AS LONGCHAR NO-UNDO.
DEFINE VARIABLE colleagues AS CHARACTER NO-UNDO.
DEFINE VARIABLE managerMode AS LOGICAL NO-UNDO.
DEFINE VARIABLE threadSequence AS INTEGER NO-UNDO.
DEFINE VARIABLE ecmID AS INTEGER NO-UNDO.
DEFINE VARIABLE resultXML AS CHARACTER NO-UNDO.
DEFINE VARIABLE hConn AS HANDLE NO-UNDO.
ASSIGN
username = “usuario”
password = “senha”
companyId = 1
processInstanceId = 204
choosedState = 2
processId = "teste_3"
comments = “Comentário para a movimentação”
usrId = “usuario”
colleagues = “usuario1,usuario2,usuario3”
threadSequence = 6.
Run “utp/ut-integra-ecm.p” PERSISTENT SET hConn.
RUN saveAndSendTask IN hConn (INPUT username ,
INPUT password ,
INPUT companyId ,
INPUT processInstanceId ,
INPUT choosedState ,
INPUT processId ,
INPUT comments ,
INPUT usrId ,
INPUT attacments ,
INPUT cardData ,
INPUT colleagues ,
INPUT managerMode ,
INPUT threadSequence ,
OUTPUT ecmID ,
OUTPUT resultXML ).
MESSAGE “ECM ID ” ecmID SKIP
“XML resultante ” resultXML
VIEW-AS ALERT-BOX INFO BUTTONS OK.
|