project BLF > class Persistence (other) > method CreateDraftInstance

Description

Add all instance data into the fcDraftInstance table.


Parameters


iiTransactionIdinputintegerInstance ID of transaction (optional)
iiInstanceIdinputintegerinstance ID of the draft instance
icBusinessinputcharacterBusiness class shortname of the draft instance
icActivityinputcharacterActivity Code
icReferenceinputcharacterReference to identify the draft instance with
icCreatedByinputcharacterCreatedBy
icFormNameinputcharacterUI form name
ilDraftIsSharedinputlogical
iiCompanyIDinputinteger
ihInstanceDatainputhandle
iiOldInstanceIdinputinteger
ihClassinputhandle
oiReturnStatusoutputintegerReturn 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).