Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.