project QadFinancials > class BSharedSetMerge > method GetValidationRulesForSSTypeExchangeRate


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BSharedSetMerge.GetValidationRulesForSSType


program code (program6/bsharedsetmerge.p)

/* =================================================================================================== */
/* Method      : GetValidationRulesForSSTypeExchangeRate                                               */
/* Desc        : This method populates temporary tables with rules for validation of shared set data   */
/* =================================================================================================== */

assign oiReturnStatus = -98.

/* =================================================================================================== */
/* Validation rules                                                                                    */
/* =================================================================================================== */
create tMergeValidateTable.
assign tMergeValidateTable.tcTableName           = "ExchangeRate":U
       tMergeValidateTable.tlDeleteRedundantOnly = true
       tMergeValidateTable.tcParentTableName     = ?
       tMergeValidateTable.tc_Rowid              = "1":U.


create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tiExchangeRate_ID":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-ID} 
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_RowId.

/* =================================================================================================== */
/* Return                                                                                              */
/* =================================================================================================== */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.