project QadFinancials > class BSharedSetMerge > method GetValidationRulesForSSTypeGL

Parameters


oiReturnStatusoutputintegerReturn status of the method.

Internal usage


QadFinancials
method BSharedSetMerge.GetValidationRulesForSSType

program code (program6/bsharedsetmerge.p)

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

assign oiReturnStatus = -98.

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

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

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tcGLCode":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-KEY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tcGLTypeCode":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tcGLSystemTypeCode":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tlGLIsActive":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tcBudgetGroupCode":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = true
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tlGLIsBalanceAccount":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tlGLIsIntercoAccount":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tlGLIsLocalCurrency":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tcCurrencyCode":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tlGLIsCostCentreAccount":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tlGLIsDivisionAccount":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tlGLIsProjectAccount":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tlGLIsSafAccount":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tcGLAnalysisLimitation":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tiSharedSet_ID":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-TECHNICAL}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName             = "tcBankAPDiscountGLCode":U
       tMergeValidateField.tiMergeType             = {&SHAREDSETMERGE-FIELDTYPE-NON-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed        = false
       tMergeValidateField.tlIsRelationToSameTable = true
       tMergeValidateField.tcRelationFieldName     = "BankAPDiscountGL_ID":U
       tMergeValidateField.tc_ParentRowid          = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName             = "tcBankARDiscountGLCode":U
       tMergeValidateField.tiMergeType             = {&SHAREDSETMERGE-FIELDTYPE-NON-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed        = false
       tMergeValidateField.tlIsRelationToSameTable = true
       tMergeValidateField.tcRelationFieldName     = "BankARDiscountGL_ID":U
       tMergeValidateField.tc_ParentRowid          = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName             = "tcBankDiscountGLCode":U
       tMergeValidateField.tiMergeType             = {&SHAREDSETMERGE-FIELDTYPE-NON-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed        = false
       tMergeValidateField.tlIsRelationToSameTable = true
       tMergeValidateField.tcRelationFieldName     = "BankDiscountGL_ID":U
       tMergeValidateField.tc_ParentRowid          = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName             = "tcRevaluationGLCode":U
       tMergeValidateField.tiMergeType             = {&SHAREDSETMERGE-FIELDTYPE-NON-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed        = false
       tMergeValidateField.tlIsRelationToSameTable = true
       tMergeValidateField.tcRelationFieldName     = "RevaluationGL_ID":U
       tMergeValidateField.tc_ParentRowid          = tMergeValidateTable.tc_Rowid.

/*  ===================  GL-BankNumber  ===================  */
create tMergeValidateTable.
assign tMergeValidateTable.tcTableName           = "GLBankNumber":U
       tMergeValidateTable.tlDeleteRedundantOnly = false
       tMergeValidateTable.tcParentTableName     = "GL":U
       tMergeValidateTable.tc_Rowid              = "2":U.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tcGLCode":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-KEY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tcBankNumber":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-KEY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tcBankAccFormatCode":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tcBankNumberBranch":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tcBankNumberExtension":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tcBankNumberFormatted":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tlBankNumberIsActive":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tlBankNumberIsDefault":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tcBankNumberSwiftCode":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tcBusinessRelationCode":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tcCurrencyCode":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

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

create tMergeValidateField.
assign tMergeValidateField.tcFieldName      = "tiSharedSet_ID":U
       tMergeValidateField.tiMergeType      = {&SHAREDSETMERGE-FIELDTYPE-TECHNICAL}
       tMergeValidateField.tlIsBlankAllowed = false
       tMergeValidateField.tc_ParentRowid   = tMergeValidateTable.tc_Rowid.

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