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).