project QadFinancials > class BSharedSetMerge > method GetValidationRulesForSSTypeCreditor


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BSharedSetMerge.GetValidationRulesForSSType


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.