project BLF > class Persistence (other) > method CreateDraftInstance
Description
Add all instance data into the fcDraftInstance table.
Parameters
iiTransactionId | input | integer | Instance ID of transaction (optional) |
iiInstanceId | input | integer | instance ID of the draft instance |
icBusiness | input | character | Business class shortname of the draft instance |
icActivity | input | character | Activity Code |
icReference | input | character | Reference to identify the draft instance with |
icCreatedBy | input | character | CreatedBy |
icFormName | input | character | UI form name |
ilDraftIsShared | input | logical | |
iiCompanyID | input | integer | |
ihInstanceData | input | handle | |
iiOldInstanceId | input | integer | |
ihClass | input | handle | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/other.p)
&if defined(DEBUGSQL) > 0 &then
run SqlDebugWrite in {&TARGETPROCEDURE} ("* ":U + program-name(1), 1).
&endif
run SqlBufCreate in {&TARGETPROCEDURE}
("fcDraftInstance":U, output viBufferId, output oiReturnStatus).
run SqlBufAddField in {&TARGETPROCEDURE}
(viBufferId, "DraftInstanceId":U, "integer":U, 1, output viFieldId, output oiReturnStatus).
run SqlBufAddField in {&TARGETPROCEDURE}
(viBufferId, "TransactionId":U, "integer":U, 0, output viFieldId, output oiReturnStatus).
run SqlBufAddField in {&TARGETPROCEDURE}
(viBufferId, "BusinessClass":U, "character":U, 0, output viFieldId, output oiReturnStatus).
run SqlBufAddField in {&TARGETPROCEDURE}
(viBufferId, "UIClass":U, "character":U, 0, output viFieldId, output oiReturnStatus).
run SqlBufAddField in {&TARGETPROCEDURE}
(viBufferId, "Description":U, "character":U, 0, output viFieldId, output oiReturnStatus).
run SqlBufAddField in {&TARGETPROCEDURE}
(viBufferId, "CreationUser":U, "character":U, 0, output viFieldId, output oiReturnStatus).
run SqlBufAddField in {&TARGETPROCEDURE}
(viBufferId, "CreationDate":U, "DATE":U, 0, output viFieldId, output oiReturnStatus).
run SqlBufAddField in {&TARGETPROCEDURE}
(viBufferId, "CreationTime":U, "integer":U, 0, output viFieldId, output oiReturnStatus).
run SqlFldSetInteger in {&TARGETPROCEDURE}
(viBufferId, 0, 1, iiInstanceId, output oiReturnStatus).
run SqlFldSetInteger in {&TARGETPROCEDURE}
(viBufferId, 1, 1, iiTransactionId, output oiReturnStatus).
run SqlFldSetString in {&TARGETPROCEDURE}
( viBufferId, 2, 1, icBusiness, output oiReturnStatus).
run SqlFldSetString in {&TARGETPROCEDURE}
( viBufferId, 3, 1, icActivity, output oiReturnStatus).
run SqlFldSetString in {&TARGETPROCEDURE}
( viBufferId, 4, 1, icReference, output oiReturnStatus).
run SqlFldSetString in {&TARGETPROCEDURE}
( viBufferId, 5, 1, icCreatedBy, output oiReturnStatus).
run SqlFldSetInteger in {&TARGETPROCEDURE}
(viBufferId, 6, 1, integer(today), output oiReturnStatus).
run SqlFldSetInteger in {&TARGETPROCEDURE}
(viBufferId, 7, 1, time, output oiReturnStatus).
run SqlBufInsertRow in {&TARGETPROCEDURE}
(viBufferId, output oiReturnStatus).
run SqlBufDestroy in {&TARGETPROCEDURE}
(viBufferId, output viFcReturnSuper).