project BLF > class Database Component > method ValCharForbiddenCharCodes

validation procedure

Description

Validation mask to check if a certain field contains any characters commonly used as field separator, like pipe(|) or comma(,), and return an error if it does.

Parameters

icTargetField	input	character	Value of the business field to validate.
icTargetFieldName	input	character	Name of the business field to validate.
icRowid	input	character	Contents of field tc_Rowid, if the target field is a field of a component temp-table.
oiReturnStatus	output	integer	Return status of the method.

Internal usage

BLF

validation on tBusActivity.BusActivityCode
validation on tBusComponent.BusComponentCode
validation on tCompany.CompanyCode
validation on tCustomValue.CustomValueCode
validation on tDomains.DomainCode
validation on tEventDestination.EventDestinationName
validation on tLng.LngCode
validation on tObjectFlexStatus.ObjectFlexStatusCode
validation on tReportTranslation.ReportTranslationCode
validation on tSharedSet.SharedSetCode
validation on tSharedSetType.SharedSetTypeCode

QadFinancials

validation on tAcctIF.AcctIFCode
validation on tAddressType.AddressTypeCode
validation on tAllocation.AllocationCode
validation on tAllocationBatch.AllocationBatchCode
validation on tAltCOAStruct.AltCOAStructCode
validation on tBankAccFormat.BankAccFormatCode
validation on tBillSchedule.BillScheduleCode
validation on tBLWICountry.BLWICountryCode
validation on tBLWIGroup.BLWIGroupCode
validation on tBox1099.Box1099Code
validation on tBudget.BudgetCode
validation on tBudgetPeriod.BudgetPeriodCode
validation on tBudgetVersion.BudgetVersionCode
validation on tBudgetWBS.BudgetWBSCode
validation on tBudgetGroup.BudgetGroupCode
validation on tBusinessRelation.BusinessRelationCode
validation on tCashGroup.CashGroupCode
validation on tCashReport.CashReportCode
validation on tCOACrossRef.COACrossRefCode
validation on tCOAMaskCC.COAMaskCCCode
validation on tCOAMaskDiv.COAMaskDivCode
validation on tCOAMaskProj.COAMaskProjCode
validation on tCompanyProperty.CompanyPropertyCode
validation on tConsolidDump.ConsolidDumpCode
validation on tCorporateGroup.CorporateGroupCode
validation on tCostCentre.CostCentreCode
validation on tCountry.CountryCode
validation on tCounty.CountyCode
validation on tCreditor.CreditorCode
validation on tCreditorType.CreditorTypeCode
validation on tCurrency.CurrencyCode
validation on tDebtor.DebtorCode
validation on tDebtorCreditRating.DebtorCreditRatingCode
validation on tDebtorEndUser.DebtorEndUserCode
validation on tDebtorShipTo.DebtorShipToCode
validation on tDebtorType.DebtorTypeCode
validation on tDivision.DivisionCode
validation on tDPaySel.DPaySelCode
validation on tEmployee.EmployeeCode
validation on tExchangeRateType.ExchangeRateTypeCode
validation on tFAAsset.FAAssetCode
validation on tFAAssetBook.FAAssetBookCode
validation on tFAAssetType.FAAssetTypeCode
validation on tFABook.FABookCode
validation on tFABookType.FABookTypeCode
validation on tFRWChart.FRWChartCode
validation on tGL.GLCode
validation on tGLSystemType.GLSystemTypeCode
validation on tGLType.GLTypeCode
validation on tJournal.JournalCode
validation on tJournalGroup.JournalGroupCode
validation on tJournalType.JournalTypeCode
validation on tLayer.LayerCode
validation on tPaymentCondition.PaymentConditionCode
validation on tPayFormatGroup.PayFormatGroupCode
validation on tPayFormatType.PayFormatTypeCode
validation on tPaymentGroup.PaymentGroupCode
validation on tPaySel.PaySelCode
validation on tPeriodMark.PeriodMarkCode
validation on tPostingTemplate.PostingTemplateCode
validation on tProfile.ProfileCode
validation on tProfileType.ProfileTypeCode
validation on tProject.ProjectCode
validation on tProjectGroup.ProjectGroupCode
validation on tProjectStatus.ProjectStatusCode
validation on tPurchaseType.PurchaseTypeCode
validation on tReason.ReasonCode
validation on tRecEntry.RecEntryCode
validation on tRecEntryLine.RecEntryLineCode
validation on tRegion.RegionCode
validation on tRoundingMethod.RoundingMethodCode
validation on tSaf.SafCode
validation on tSafConcept.SafConceptCode
validation on tSafStructure.SafStructureCode
validation on tState.StateCode
validation on tTaxReg.TaxRegCode
validation on tUnit.UnitCode
validation on tVat.VatCode
validation on tVatBox.VatBoxCode
validation on tVatGroup.VatGroupCode
validation on tVatPercent.VatPercentCode
validation on tWHTCertFormat.WHTCertFormatCode
validation on tFRWCube.FRWCubeCode
validation on tYearClosing.tcLayerTypeCode

program code (program1/database.p)

if index(icTargetField,chr(2)) <> 0 or
       index(icTargetField,chr(3)) <> 0 or
       index(icTargetField,chr(4)) <> 0 or
       index(icTargetField,chr(8)) <> 0 or
       index(icTargetField,"|":U)  <> 0 or
       index(icTargetField,",":U)  <> 0
    then do:
        assign oiReturnStatus  = -1
               vcMessageString = trim(#T-1'Code-fields (&1) cannot contain a comma, a pipe or any unprintable character.':255(5133)T-1#).
        if index(icTargetField,chr(2)) <> 0 
        then assign vcMessageString = vcMessageString + chr(10) + trim(substitute(#T-2'This field contains the unpritable character number &1.':255(5134)T-2#,"2":U)).
        if index(icTargetField,chr(3)) <> 0 
        then assign vcMessageString = vcMessageString + chr(10) + trim(substitute(#T-3'This field contains the unpritable character number &1.':255(5134)T-3#,"3":U)).
        if index(icTargetField,chr(4)) <> 0 
        then assign vcMessageString = vcMessageString + chr(10) + trim(substitute(#T-4'This field contains the unpritable character number &1.':255(5134)T-4#,"4":U)).
        if index(icTargetField,chr(8)) <> 0 
        then assign vcMessageString = vcMessageString + chr(10) + trim(substitute(#T-5'This field contains the unpritable character number &1.':255(5134)T-5#,"8":U)).
        if index(icTargetField,"|":U) <> 0 
        then assign vcMessageString = vcMessageString + chr(10) + trim(#T-6'This field contains a pipe.':255(5135)T-6#).
        if index(icTargetField,",":U) <> 0 
        then assign vcMessageString = vcMessageString + chr(10) + trim(#T-7'This field contains a comma.':255(5136)T-7#).
        <M-8 run SetMessage
           (input  vcMessageString (icMessage), 
            input  '' (icArguments), 
            input  icTargetFieldName (icFieldName), 
            input  icTargetField (icFieldValue), 
            input  'E':U (icType), 
            input  3 (iiSeverity), 
            input  icRowid (icRowid), 
            input  'BLF-318':U (icFcMsgNumber), 
            input  '' (icFcExplanation), 
            input  '' (icFcIdentification), 
            input  '' (icFcContext), 
            output viFcReturnSuper (oiReturnStatus)) in database>
    end. /* if index ... */