project QadFinancials > class BSharedSetMerge > method GetValidationRulesForSSTypeCreditor
Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program6/bsharedsetmerge.p)
/* =================================================================================================== */
/* Method : GetValidationRulesForSSTypeCreditor */
/* Desc : This method populates temporary tables with rules for validation of shared set data */
/* =================================================================================================== */
assign oiReturnStatus = -98.
create tMergeValidateTable.
assign tMergeValidateTable.tcTableName = "Creditor":U
tMergeValidateTable.tlDeleteRedundantOnly = false
tMergeValidateTable.tcParentTableName = ?
tMergeValidateTable.tc_Rowid = "1":U.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tcBusinessRelationCode":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = true
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tlBusinessRelationIsDomRestr":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = true
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tcBusinessRelationDomainCode":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = true
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tiCreditor_ID":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-ID}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tcCreditorCode":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-KEY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tlCreditorIsActive":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tlCreditorIsTaxable":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tlCreditorIsTaxConfirmed":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tlCreditorIsTaxInCity":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tlCreditorIsTaxIncluded":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tlCreditorIsTaxReport":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tiCreditorTaxDeclaration":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tcCreditorTaxIDFederal":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tcCreditorTaxIDMisc1":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tcCreditorTaxIDMisc2":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tcCreditorTaxIDMisc3":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tcCreditorTaxIDState":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tcTxclTaxCls":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tcTxuTaxUsage":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tcTxzTaxZone":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tcVatDeliveryType":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tcVatPercentageLevel":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 = "tcPaymentConditionCode":U
tMergeValidateField.tiMergeType = {&SHAREDSETMERGE-FIELDTYPE-MANDATORY}
tMergeValidateField.tlIsBlankAllowed = false
tMergeValidateField.tc_ParentRowid = tMergeValidateTable.tc_Rowid.
create tMergeValidateField.
assign tMergeValidateField.tcFieldName = "tcReasonCode":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.
/* =================================================================================================== */
/* Return */
/* =================================================================================================== */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.