GpStructuredStorage file  @  !"#$%&'()*+,-./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~sqli.vtd sqliForm.vtdsqliFormName.vtd. sqliStep.vtdisqliStepFile.vtd:8sqliStepStr.vtd;6sqliStepStrEvent.vtd< sqliVar.vtd= sqliVer.vtd>sqliReports.vtd?acKeyacNamed acIsDebugacType acVarInINI acAutoStart acAutoClose acEndMessageacLocalization2acFormNameAuthoracActive anVersion acLogType acInstCoded anUserChg anUserIns adTimeChg adTimeIns acNoteacCompiledScriptEXERC09 Exercise 9FAFFFTRT0 lBllB acKey acFormName2 acDocType acObjectName2acType acKeyShortCut2acTabSheetName2 anUserChg anUserIns adTimeChg adTimeIns acFormType acFormName2acName2acKeyanNoacViewacSetOfacDescracReportacFileCreateTableanFileDelimiter acFileNameacFileTableName acFileDest acFileType acFileTypeXML acShowIfEmptyacTitleButtons anTitleLinesanBeginFromRecord anUserChg anUserIns adTimeChg adTimeIns acCharSet2 acStyleSheet acUnitName2 acNewThreadacDFMacPAS acSQLExport2acSQLExpacNoteEXERC09GPFAENFelB windows-1250 AresProjectFProgram AresProject; uses sysutils, classes, forms, dialogs, FForm1; begin Form1 := TForm1.create(ares); ares.run; end. EXERC09GFFAENFlB windows-1250FForm1F[object Form1: TForm Tag = 99 Left = 208 Top = 243 Caption = 'Form1' ClientHeight = 248 ClientWidth = 386 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object cxGrid1: TcxGrid Left = 0 Top = 0 Width = 386 Height = 248 Align = alClient TabOrder = 2 ExplicitLeft = 183 ExplicitTop = 97 ExplicitWidth = 250 ExplicitHeight = 200 object cxGrid1DBTableView1: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> object cxGrid1DBTableView1acDocType: TcxGridDBColumn DataBinding.FieldName = 'acDocType' end object cxGrid1DBTableView1acSetOf: TcxGridDBColumn DataBinding.FieldName = 'acSetOf' end object cxGrid1DBTableView1acType: TcxGridDBColumn DataBinding.FieldName = 'acType' end object cxGrid1DBTableView1acIsDoc: TcxGridDBColumn DataBinding.FieldName = 'acIsDoc' end object cxGrid1DBTableView1acIsInternalMovmnt: TcxGridDBColumn DataBinding.FieldName = 'acIsInternalMovmnt' end object cxGrid1DBTableView1acName: TcxGridDBColumn DataBinding.FieldName = 'acName' end object cxGrid1DBTableView1acShortDocName: TcxGridDBColumn DataBinding.FieldName = 'acShortDocName' end object cxGrid1DBTableView1acAcctDB: TcxGridDBColumn DataBinding.FieldName = 'acAcctDB' end object cxGrid1DBTableView1acAcctCR: TcxGridDBColumn DataBinding.FieldName = 'acAcctCR' end object cxGrid1DBTableView1acIssuerName: TcxGridDBColumn DataBinding.FieldName = 'acIssuerName' end object cxGrid1DBTableView1acReceiverName: TcxGridDBColumn DataBinding.FieldName = 'acReceiverName' end object cxGrid1DBTableView1acName3: TcxGridDBColumn DataBinding.FieldName = 'acName3' end object cxGrid1DBTableView1acLinkDocName1: TcxGridDBColumn DataBinding.FieldName = 'acLinkDocName1' end object cxGrid1DBTableView1acLinkDocName2: TcxGridDBColumn DataBinding.FieldName = 'acLinkDocName2' end object cxGrid1DBTableView1acIssuer: TcxGridDBColumn DataBinding.FieldName = 'acIssuer' end object cxGrid1DBTableView1acReceiver: TcxGridDBColumn DataBinding.FieldName = 'acReceiver' end object cxGrid1DBTableView1acPrsn3: TcxGridDBColumn DataBinding.FieldName = 'acPrsn3' end object cxGrid1DBTableView1acFillPrice: TcxGridDBColumn DataBinding.FieldName = 'acFillPrice' end object cxGrid1DBTableView1acFillPurPrice: TcxGridDBColumn DataBinding.FieldName = 'acFillPurPrice' end object cxGrid1DBTableView1acFillRecvCalc: TcxGridDBColumn DataBinding.FieldName = 'acFillRecvCalc' end object cxGrid1DBTableView1acDocTypeCashRegPreePay: TcxGridDBColumn DataBinding.FieldName = 'acDocTypeCashRegPreePay' end object cxGrid1DBTableView1acDocTypeCashRegPay: TcxGridDBColumn DataBinding.FieldName = 'acDocTypeCashRegPay' end object cxGrid1DBTableView1acDocTypeRef: TcxGridDBColumn DataBinding.FieldName = 'acDocTypeRef' end object cxGrid1DBTableView1acProdDisAssDocTypeIn: TcxGridDBColumn DataBinding.FieldName = 'acProdDisAssDocTypeIn' end object cxGrid1DBTableView1acProdDisAssDocTypeOut: TcxGridDBColumn DataBinding.FieldName = 'acProdDisAssDocTypeOut' end object cxGrid1DBTableView1acTypeOfDoc: TcxGridDBColumn DataBinding.FieldName = 'acTypeOfDoc' end object cxGrid1DBTableView1acIsSupplRMA: TcxGridDBColumn DataBinding.FieldName = 'acIsSupplRMA' end object cxGrid1DBTableView1acIsBuyerRMA: TcxGridDBColumn DataBinding.FieldName = 'acIsBuyerRMA' end object cxGrid1DBTableView1acPayOrdMagSeqNo: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdMagSeqNo' end object cxGrid1DBTableView1acSADSetOfDocType: TcxGridDBColumn DataBinding.FieldName = 'acSADSetOfDocType' end object cxGrid1DBTableView1acTrvlDailyAllAcctDB: TcxGridDBColumn DataBinding.FieldName = 'acTrvlDailyAllAcctDB' end object cxGrid1DBTableView1acTrvlKMAcctDB: TcxGridDBColumn DataBinding.FieldName = 'acTrvlKMAcctDB' end object cxGrid1DBTableView1acSpecRecord56A: TcxGridDBColumn DataBinding.FieldName = 'acSpecRecord56A' end object cxGrid1DBTableView1acFillSalePrice: TcxGridDBColumn DataBinding.FieldName = 'acFillSalePrice' end object cxGrid1DBTableView1acIsIssueAllowdOpenBills: TcxGridDBColumn DataBinding.FieldName = 'acIsIssueAllowdOpenBills' end object cxGrid1DBTableView1acPhaseA: TcxGridDBColumn DataBinding.FieldName = 'acPhaseA' end object cxGrid1DBTableView1acPhaseC: TcxGridDBColumn DataBinding.FieldName = 'acPhaseC' end object cxGrid1DBTableView1acPhaseD: TcxGridDBColumn DataBinding.FieldName = 'acPhaseD' end object cxGrid1DBTableView1acPhaseF: TcxGridDBColumn DataBinding.FieldName = 'acPhaseF' end object cxGrid1DBTableView1acPhaseG: TcxGridDBColumn DataBinding.FieldName = 'acPhaseG' end object cxGrid1DBTableView1acPhaseH: TcxGridDBColumn DataBinding.FieldName = 'acPhaseH' end object cxGrid1DBTableView1acPhaseK: TcxGridDBColumn DataBinding.FieldName = 'acPhaseK' end object cxGrid1DBTableView1acPhaseR: TcxGridDBColumn DataBinding.FieldName = 'acPhaseR' end object cxGrid1DBTableView1acIsValueBasedPost: TcxGridDBColumn DataBinding.FieldName = 'acIsValueBasedPost' end object cxGrid1DBTableView1acTrvlCostsAcctDB: TcxGridDBColumn DataBinding.FieldName = 'acTrvlCostsAcctDB' end object cxGrid1DBTableView1acSlryCapContrPayWrk: TcxGridDBColumn DataBinding.FieldName = 'acSlryCapContrPayWrk' end object cxGrid1DBTableView1acEvidence: TcxGridDBColumn DataBinding.FieldName = 'acEvidence' end object cxGrid1DBTableView1acName2: TcxGridDBColumn DataBinding.FieldName = 'acName2' end object cxGrid1DBTableView1acSlryCapBnkPayPurpose: TcxGridDBColumn DataBinding.FieldName = 'acSlryCapBnkPayPurpose' end object cxGrid1DBTableView1acSlryCapLoanPayPurpose1: TcxGridDBColumn DataBinding.FieldName = 'acSlryCapLoanPayPurpose1' end object cxGrid1DBTableView1acSlryCapLoanPayPurpose2: TcxGridDBColumn DataBinding.FieldName = 'acSlryCapLoanPayPurpose2' end object cxGrid1DBTableView1acSlryCapContrPayComp: TcxGridDBColumn DataBinding.FieldName = 'acSlryCapContrPayComp' end object cxGrid1DBTableView1acDocTypeAssmbly: TcxGridDBColumn DataBinding.FieldName = 'acDocTypeAssmbly' end object cxGrid1DBTableView1acPayOrdDocType: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdDocType' end object cxGrid1DBTableView1acPayOrdPriorty: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdPriorty' end object cxGrid1DBTableView1acPayOrdBankBranch: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdBankBranch' end object cxGrid1DBTableView1acPayOrdPlaceDate: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdPlaceDate' end object cxGrid1DBTableView1acPayOrdDebitor1: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdDebitor1' end object cxGrid1DBTableView1acPayOrdDebitor2: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdDebitor2' end object cxGrid1DBTableView1acPayOrdDebitor3: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdDebitor3' end object cxGrid1DBTableView1acPayOrdFillDate: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdFillDate' end object cxGrid1DBTableView1acPayOrdBankAcctDebitor1: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdBankAcctDebitor1' end object cxGrid1DBTableView1acPayOrdBankAcctDebitor2: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdBankAcctDebitor2' end object cxGrid1DBTableView1acPayOrdBankAcctDebitor3: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdBankAcctDebitor3' end object cxGrid1DBTableView1acPayOrdBankAcctDebitor3Ref: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdBankAcctDebitor3Ref' end object cxGrid1DBTableView1acPayOrdPurpose2: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdPurpose2' end object cxGrid1DBTableView1acPayOrdPurpose3: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdPurpose3' end object cxGrid1DBTableView1acPayOrdPurpose2Ref: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdPurpose2Ref' end object cxGrid1DBTableView1acPayOrdBankAcctCreditor2: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdBankAcctCreditor2' end object cxGrid1DBTableView1acPayOrdBankAcctCreditor3: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdBankAcctCreditor3' end object cxGrid1DBTableView1acBankAcctCreditor3Ref: TcxGridDBColumn DataBinding.FieldName = 'acBankAcctCreditor3Ref' end object cxGrid1DBTableView1acPayOrdCode1: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdCode1' end object cxGrid1DBTableView1acPayOrdCode2: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdCode2' end object cxGrid1DBTableView1acPayOrdCode3: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdCode3' end object cxGrid1DBTableView1acDocTypeWaste: TcxGridDBColumn DataBinding.FieldName = 'acDocTypeWaste' end object cxGrid1DBTableView1acDept: TcxGridDBColumn DataBinding.FieldName = 'acDept' end object cxGrid1DBTableView1acPostTransDeptCostDrv: TcxGridDBColumn DataBinding.FieldName = 'acPostTransDeptCostDrv' end object cxGrid1DBTableView1acPostTransSalePrice: TcxGridDBColumn DataBinding.FieldName = 'acPostTransSalePrice' end object cxGrid1DBTableView1acIsObligDoc1: TcxGridDBColumn DataBinding.FieldName = 'acIsObligDoc1' end object cxGrid1DBTableView1acIsObligDoc2: TcxGridDBColumn DataBinding.FieldName = 'acIsObligDoc2' end object cxGrid1DBTableView1acIsObligDept: TcxGridDBColumn DataBinding.FieldName = 'acIsObligDept' end object cxGrid1DBTableView1acIsObligReceiver: TcxGridDBColumn DataBinding.FieldName = 'acIsObligReceiver' end object cxGrid1DBTableView1acIsObligIssuer: TcxGridDBColumn DataBinding.FieldName = 'acIsObligIssuer' end object cxGrid1DBTableView1anProdCalcQtyType: TcxGridDBColumn DataBinding.FieldName = 'anProdCalcQtyType' end object cxGrid1DBTableView1anProdWOFinishAuto: TcxGridDBColumn DataBinding.FieldName = 'anProdWOFinishAuto' end object cxGrid1DBTableView1acMoveFA: TcxGridDBColumn DataBinding.FieldName = 'acMoveFA' end object cxGrid1DBTableView1acSideOfBooking: TcxGridDBColumn DataBinding.FieldName = 'acSideOfBooking' end object cxGrid1DBTableView1acMinStockWarning: TcxGridDBColumn DataBinding.FieldName = 'acMinStockWarning' end object cxGrid1DBTableView1acShowOnlyActiveID: TcxGridDBColumn DataBinding.FieldName = 'acShowOnlyActiveID' end object cxGrid1DBTableView1acIsClerkChangble: TcxGridDBColumn DataBinding.FieldName = 'acIsClerkChangble' end object cxGrid1DBTableView1acPayOrdDocTypeFgn: TcxGridDBColumn DataBinding.FieldName = 'acPayOrdDocTypeFgn' end object cxGrid1DBTableView1acPayMethod: TcxGridDBColumn DataBinding.FieldName = 'acPayMethod' end object cxGrid1DBTableView1acAutoInvoSerialNo: TcxGridDBColumn DataBinding.FieldName = 'acAutoInvoSerialNo' end object cxGrid1DBTableView1adSADDateSimpleProc: TcxGridDBColumn DataBinding.FieldName = 'adSADDateSimpleProc' end object cxGrid1DBTableView1acSADNoSimpleProc: TcxGridDBColumn DataBinding.FieldName = 'acSADNoSimpleProc' end object cxGrid1DBTableView1acProdOperPostType: TcxGridDBColumn DataBinding.FieldName = 'acProdOperPostType' end object cxGrid1DBTableView1acLinkDocFillType: TcxGridDBColumn DataBinding.FieldName = 'acLinkDocFillType' end object cxGrid1DBTableView1acIsAutoConfrm: TcxGridDBColumn DataBinding.FieldName = 'acIsAutoConfrm' end object cxGrid1DBTableView1acDocTypeCashReg: TcxGridDBColumn DataBinding.FieldName = 'acDocTypeCashReg' end object cxGrid1DBTableView1acSetFocusOnNew: TcxGridDBColumn DataBinding.FieldName = 'acSetFocusOnNew' end object cxGrid1DBTableView1acIsCooperation: TcxGridDBColumn DataBinding.FieldName = 'acIsCooperation' end object cxGrid1DBTableView1acIsObligCostDrv: TcxGridDBColumn DataBinding.FieldName = 'acIsObligCostDrv' end object cxGrid1DBTableView1acProdBuyOrd2WOType: TcxGridDBColumn DataBinding.FieldName = 'acProdBuyOrd2WOType' end object cxGrid1DBTableView1anPayOrdStrucType: TcxGridDBColumn DataBinding.FieldName = 'anPayOrdStrucType' end object cxGrid1DBTableView1adTimeIns: TcxGridDBColumn DataBinding.FieldName = 'adTimeIns' end object cxGrid1DBTableView1anUserIns: TcxGridDBColumn DataBinding.FieldName = 'anUserIns' end object cxGrid1DBTableView1adTimeChg: TcxGridDBColumn DataBinding.FieldName = 'adTimeChg' end object cxGrid1DBTableView1anUserChg: TcxGridDBColumn DataBinding.FieldName = 'anUserChg' end object cxGrid1DBTableView1acAccountBuyer: TcxGridDBColumn DataBinding.FieldName = 'acAccountBuyer' end object cxGrid1DBTableView1acSetOffAccountBuyer: TcxGridDBColumn DataBinding.FieldName = 'acSetOffAccountBuyer' end object cxGrid1DBTableView1acAccountSupplier: TcxGridDBColumn DataBinding.FieldName = 'acAccountSupplier' end object cxGrid1DBTableView1acSetOffAccountSupplier: TcxGridDBColumn DataBinding.FieldName = 'acSetOffAccountSupplier' end object cxGrid1DBTableView1acSetOffDocType: TcxGridDBColumn DataBinding.FieldName = 'acSetOffDocType' end object cxGrid1DBTableView1acRateReal: TcxGridDBColumn DataBinding.FieldName = 'acRateReal' end object cxGrid1DBTableView1acRateReval: TcxGridDBColumn DataBinding.FieldName = 'acRateReval' end object cxGrid1DBTableView1acPayRemindCost: TcxGridDBColumn DataBinding.FieldName = 'acPayRemindCost' end object cxGrid1DBTableView1acDocTypeRate: TcxGridDBColumn DataBinding.FieldName = 'acDocTypeRate' end object cxGrid1DBTableView1adDateFrom: TcxGridDBColumn DataBinding.FieldName = 'adDateFrom' end object cxGrid1DBTableView1ac1Doc1Item: TcxGridDBColumn DataBinding.FieldName = 'ac1Doc1Item' end object cxGrid1DBTableView1acIntrRateType: TcxGridDBColumn DataBinding.FieldName = 'acIntrRateType' end object cxGrid1DBTableView1anMinRateValue: TcxGridDBColumn DataBinding.FieldName = 'anMinRateValue' end object cxGrid1DBTableView1anMinDaysOver: TcxGridDBColumn DataBinding.FieldName = 'anMinDaysOver' end object cxGrid1DBTableView1anNominalRate: TcxGridDBColumn DataBinding.FieldName = 'anNominalRate' end object cxGrid1DBTableView1acCalcTypeRate: TcxGridDBColumn DataBinding.FieldName = 'acCalcTypeRate' end object cxGrid1DBTableView1acDocStatus: TcxGridDBColumn DataBinding.FieldName = 'acDocStatus' end object cxGrid1DBTableView1anDaysForPayment: TcxGridDBColumn DataBinding.FieldName = 'anDaysForPayment' end object cxGrid1DBTableView1adDateAcc: TcxGridDBColumn DataBinding.FieldName = 'adDateAcc' end object cxGrid1DBTableView1acPayerType: TcxGridDBColumn DataBinding.FieldName = 'acPayerType' end object cxGrid1DBTableView1acSlryIndividWrk: TcxGridDBColumn DataBinding.FieldName = 'acSlryIndividWrk' end object cxGrid1DBTableView1acEnterSNS: TcxGridDBColumn DataBinding.FieldName = 'acEnterSNS' end object cxGrid1DBTableView1acEnterSNK: TcxGridDBColumn DataBinding.FieldName = 'acEnterSNK' end object cxGrid1DBTableView1acEnterSNP: TcxGridDBColumn DataBinding.FieldName = 'acEnterSNP' end object cxGrid1DBTableView1acEnterSNE: TcxGridDBColumn DataBinding.FieldName = 'acEnterSNE' end object cxGrid1DBTableView1acEnterSNO: TcxGridDBColumn DataBinding.FieldName = 'acEnterSNO' end object cxGrid1DBTableView1acIdent: TcxGridDBColumn DataBinding.FieldName = 'acIdent' end object cxGrid1DBTableView1acIsExpAcct: TcxGridDBColumn DataBinding.FieldName = 'acIsExpAcct' end object cxGrid1DBTableView1anProdPlanSchdCheck: TcxGridDBColumn DataBinding.FieldName = 'anProdPlanSchdCheck' end object cxGrid1DBTableView1acProdWOType: TcxGridDBColumn DataBinding.FieldName = 'acProdWOType' end object cxGrid1DBTableView1acAllowDocNameChange: TcxGridDBColumn DataBinding.FieldName = 'acAllowDocNameChange' end object cxGrid1DBTableView1acWarehouse: TcxGridDBColumn DataBinding.FieldName = 'acWarehouse' end object cxGrid1DBTableView1acVATPayReal: TcxGridDBColumn DataBinding.FieldName = 'acVATPayReal' end object cxGrid1DBTableView1anLinkDocFillType: TcxGridDBColumn DataBinding.FieldName = 'anLinkDocFillType' end object cxGrid1DBTableView1acCompensation: TcxGridDBColumn DataBinding.FieldName = 'acCompensation' end object cxGrid1DBTableView1acCaution: TcxGridDBColumn DataBinding.FieldName = 'acCaution' end object cxGrid1DBTableView1acRest: TcxGridDBColumn DataBinding.FieldName = 'acRest' end object cxGrid1DBTableView1acClaim: TcxGridDBColumn DataBinding.FieldName = 'acClaim' end object cxGrid1DBTableView1acLiability: TcxGridDBColumn DataBinding.FieldName = 'acLiability' end object cxGrid1DBTableView1anSubjBank: TcxGridDBColumn DataBinding.FieldName = 'anSubjBank' end object cxGrid1DBTableView1acDefNote: TcxGridDBColumn DataBinding.FieldName = 'acDefNote' end object cxGrid1DBTableView1acNote: TcxGridDBColumn DataBinding.FieldName = 'acNote' end object cxGrid1DBTableView1acDutyProcDeliver: TcxGridDBColumn DataBinding.FieldName = 'acDutyProcDeliver' end object cxGrid1DBTableView1acDutyProcRequired: TcxGridDBColumn DataBinding.FieldName = 'acDutyProcRequired' end object cxGrid1DBTableView1acSADOrgUnit1: TcxGridDBColumn DataBinding.FieldName = 'acSADOrgUnit1' end object cxGrid1DBTableView1acSADOrgUnit2: TcxGridDBColumn DataBinding.FieldName = 'acSADOrgUnit2' end object cxGrid1DBTableView1acCostDrv: TcxGridDBColumn DataBinding.FieldName = 'acCostDrv' end object cxGrid1DBTableView1anFillConsWO2Move: TcxGridDBColumn DataBinding.FieldName = 'anFillConsWO2Move' end object cxGrid1DBTableView1acCashRegRetAcctCR: TcxGridDBColumn DataBinding.FieldName = 'acCashRegRetAcctCR' end object cxGrid1DBTableView1acAcctCROfCurr: TcxGridDBColumn DataBinding.FieldName = 'acAcctCROfCurr' end object cxGrid1DBTableView1anMinRateValueSubj: TcxGridDBColumn DataBinding.FieldName = 'anMinRateValueSubj' end object cxGrid1DBTableView1acRSmId2: TcxGridDBColumn DataBinding.FieldName = 'acRSmId2' end object cxGrid1DBTableView1acFillProdPrice: TcxGridDBColumn DataBinding.FieldName = 'acFillProdPrice' end object cxGrid1DBTableView1acGenerateRefNo: TcxGridDBColumn DataBinding.FieldName = 'acGenerateRefNo' end object cxGrid1DBTableView1acWorkerTrvl: TcxGridDBColumn DataBinding.FieldName = 'acWorkerTrvl' end object cxGrid1DBTableView1acPhaseM: TcxGridDBColumn DataBinding.FieldName = 'acPhaseM' end object cxGrid1DBTableView1acAgreedCompBasis: TcxGridDBColumn DataBinding.FieldName = 'acAgreedCompBasis' end object cxGrid1DBTableView1acControlPrevCalc: TcxGridDBColumn DataBinding.FieldName = 'acControlPrevCalc' end object cxGrid1DBTableView1acConsignee: TcxGridDBColumn DataBinding.FieldName = 'acConsignee' end object cxGrid1DBTableView1acFillWOConsRecv: TcxGridDBColumn DataBinding.FieldName = 'acFillWOConsRecv' end object cxGrid1DBTableView1acIsDefRoute: TcxGridDBColumn DataBinding.FieldName = 'acIsDefRoute' end object cxGrid1DBTableView1acProdSNWasteGen: TcxGridDBColumn DataBinding.FieldName = 'acProdSNWasteGen' end object cxGrid1DBTableView1acTypeDocType: TcxGridDBColumn DataBinding.FieldName = 'acTypeDocType' end object cxGrid1DBTableView1acChkIdentDpl: TcxGridDBColumn DataBinding.FieldName = 'acChkIdentDpl' end object cxGrid1DBTableView1acIncomeType: TcxGridDBColumn DataBinding.FieldName = 'acIncomeType' end end object cxGrid1Level1: TcxGridLevel GridView = cxGrid1DBTableView1 end end object _evsaver: TEventCom end object DataSource1: TDataSource DataSet = dlDataset1 Left = 87 Top = 39 end object dlDataset1: TdlDataset SQL.Strings = ( 'select * from tpa_setDocType') FieldNamesToUpperCase = False AutoCalcFields = False Cached = False LocateInsert = False Editable = True RequestLive = False QueryRecCount = False DetailDelay = 0 LocalMasterDetail = False StrictUpdate = False TrimFixedChar = True TrimVarChar = True AddRowidToSQL = False ORACompatibility = True Left = 147 Top = 39 end end hunit FForm1; interface uses Forms, Controls, StdCtrls, SysUtils, Classes, Graphics, dlcomponents, Dialogs, db, dlDatabase, cxGrid; type TForm1 = class(TarForm) DataSource1: TDataSource; dlDataset1: TdlDataset; cxGrid1: TcxGrid; cxGrid1DBTableView1: TcxGridDBTableView; cxGrid1Level1: TcxGridLevel; cxGrid1DBTableView1acDocType: TcxGridDBColumn; cxGrid1DBTableView1acSetOf: TcxGridDBColumn; cxGrid1DBTableView1acType: TcxGridDBColumn; cxGrid1DBTableView1acIsDoc: TcxGridDBColumn; cxGrid1DBTableView1acIsInternalMovmnt: TcxGridDBColumn; cxGrid1DBTableView1acName: TcxGridDBColumn; cxGrid1DBTableView1acShortDocName: TcxGridDBColumn; cxGrid1DBTableView1acAcctDB: TcxGridDBColumn; cxGrid1DBTableView1acAcctCR: TcxGridDBColumn; cxGrid1DBTableView1acIssuerName: TcxGridDBColumn; cxGrid1DBTableView1acReceiverName: TcxGridDBColumn; cxGrid1DBTableView1acName3: TcxGridDBColumn; cxGrid1DBTableView1acLinkDocName1: TcxGridDBColumn; cxGrid1DBTableView1acLinkDocName2: TcxGridDBColumn; cxGrid1DBTableView1acIssuer: TcxGridDBColumn; cxGrid1DBTableView1acReceiver: TcxGridDBColumn; cxGrid1DBTableView1acPrsn3: TcxGridDBColumn; cxGrid1DBTableView1acFillPrice: TcxGridDBColumn; cxGrid1DBTableView1acFillPurPrice: TcxGridDBColumn; cxGrid1DBTableView1acFillRecvCalc: TcxGridDBColumn; cxGrid1DBTableView1acDocTypeCashRegPreePay: TcxGridDBColumn; cxGrid1DBTableView1acDocTypeCashRegPay: TcxGridDBColumn; cxGrid1DBTableView1acDocTypeRef: TcxGridDBColumn; cxGrid1DBTableView1acProdDisAssDocTypeIn: TcxGridDBColumn; cxGrid1DBTableView1acProdDisAssDocTypeOut: TcxGridDBColumn; cxGrid1DBTableView1acTypeOfDoc: TcxGridDBColumn; cxGrid1DBTableView1acIsSupplRMA: TcxGridDBColumn; cxGrid1DBTableView1acIsBuyerRMA: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdMagSeqNo: TcxGridDBColumn; cxGrid1DBTableView1acSADSetOfDocType: TcxGridDBColumn; cxGrid1DBTableView1acTrvlDailyAllAcctDB: TcxGridDBColumn; cxGrid1DBTableView1acTrvlKMAcctDB: TcxGridDBColumn; cxGrid1DBTableView1acSpecRecord56A: TcxGridDBColumn; cxGrid1DBTableView1acFillSalePrice: TcxGridDBColumn; cxGrid1DBTableView1acIsIssueAllowdOpenBills: TcxGridDBColumn; cxGrid1DBTableView1acPhaseA: TcxGridDBColumn; cxGrid1DBTableView1acPhaseC: TcxGridDBColumn; cxGrid1DBTableView1acPhaseD: TcxGridDBColumn; cxGrid1DBTableView1acPhaseF: TcxGridDBColumn; cxGrid1DBTableView1acPhaseG: TcxGridDBColumn; cxGrid1DBTableView1acPhaseH: TcxGridDBColumn; cxGrid1DBTableView1acPhaseK: TcxGridDBColumn; cxGrid1DBTableView1acPhaseR: TcxGridDBColumn; cxGrid1DBTableView1acIsValueBasedPost: TcxGridDBColumn; cxGrid1DBTableView1acTrvlCostsAcctDB: TcxGridDBColumn; cxGrid1DBTableView1acSlryCapContrPayWrk: TcxGridDBColumn; cxGrid1DBTableView1acEvidence: TcxGridDBColumn; cxGrid1DBTableView1acName2: TcxGridDBColumn; cxGrid1DBTableView1acSlryCapBnkPayPurpose: TcxGridDBColumn; cxGrid1DBTableView1acSlryCapLoanPayPurpose1: TcxGridDBColumn; cxGrid1DBTableView1acSlryCapLoanPayPurpose2: TcxGridDBColumn; cxGrid1DBTableView1acSlryCapContrPayComp: TcxGridDBColumn; cxGrid1DBTableView1acDocTypeAssmbly: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdDocType: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdPriorty: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdBankBranch: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdPlaceDate: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdDebitor1: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdDebitor2: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdDebitor3: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdFillDate: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdBankAcctDebitor1: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdBankAcctDebitor2: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdBankAcctDebitor3: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdBankAcctDebitor3Ref: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdPurpose2: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdPurpose3: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdPurpose2Ref: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdBankAcctCreditor2: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdBankAcctCreditor3: TcxGridDBColumn; cxGrid1DBTableView1acBankAcctCreditor3Ref: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdCode1: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdCode2: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdCode3: TcxGridDBColumn; cxGrid1DBTableView1acDocTypeWaste: TcxGridDBColumn; cxGrid1DBTableView1acDept: TcxGridDBColumn; cxGrid1DBTableView1acPostTransDeptCostDrv: TcxGridDBColumn; cxGrid1DBTableView1acPostTransSalePrice: TcxGridDBColumn; cxGrid1DBTableView1acIsObligDoc1: TcxGridDBColumn; cxGrid1DBTableView1acIsObligDoc2: TcxGridDBColumn; cxGrid1DBTableView1acIsObligDept: TcxGridDBColumn; cxGrid1DBTableView1acIsObligReceiver: TcxGridDBColumn; cxGrid1DBTableView1acIsObligIssuer: TcxGridDBColumn; cxGrid1DBTableView1anProdCalcQtyType: TcxGridDBColumn; cxGrid1DBTableView1anProdWOFinishAuto: TcxGridDBColumn; cxGrid1DBTableView1acMoveFA: TcxGridDBColumn; cxGrid1DBTableView1acSideOfBooking: TcxGridDBColumn; cxGrid1DBTableView1acMinStockWarning: TcxGridDBColumn; cxGrid1DBTableView1acShowOnlyActiveID: TcxGridDBColumn; cxGrid1DBTableView1acIsClerkChangble: TcxGridDBColumn; cxGrid1DBTableView1acPayOrdDocTypeFgn: TcxGridDBColumn; cxGrid1DBTableView1acPayMethod: TcxGridDBColumn; cxGrid1DBTableView1acAutoInvoSerialNo: TcxGridDBColumn; cxGrid1DBTableView1adSADDateSimpleProc: TcxGridDBColumn; cxGrid1DBTableView1acSADNoSimpleProc: TcxGridDBColumn; cxGrid1DBTableView1acProdOperPostType: TcxGridDBColumn; cxGrid1DBTableView1acLinkDocFillType: TcxGridDBColumn; cxGrid1DBTableView1acIsAutoConfrm: TcxGridDBColumn; cxGrid1DBTableView1acDocTypeCashReg: TcxGridDBColumn; cxGrid1DBTableView1acSetFocusOnNew: TcxGridDBColumn; cxGrid1DBTableView1acIsCooperation: TcxGridDBColumn; cxGrid1DBTableView1acIsObligCostDrv: TcxGridDBColumn; cxGrid1DBTableView1acProdBuyOrd2WOType: TcxGridDBColumn; cxGrid1DBTableView1anPayOrdStrucType: TcxGridDBColumn; cxGrid1DBTableView1adTimeIns: TcxGridDBColumn; cxGrid1DBTableView1anUserIns: TcxGridDBColumn; cxGrid1DBTableView1adTimeChg: TcxGridDBColumn; cxGrid1DBTableView1anUserChg: TcxGridDBColumn; cxGrid1DBTableView1acAccountBuyer: TcxGridDBColumn; cxGrid1DBTableView1acSetOffAccountBuyer: TcxGridDBColumn; cxGrid1DBTableView1acAccountSupplier: TcxGridDBColumn; cxGrid1DBTableView1acSetOffAccountSupplier: TcxGridDBColumn; cxGrid1DBTableView1acSetOffDocType: TcxGridDBColumn; cxGrid1DBTableView1acRateReal: TcxGridDBColumn; cxGrid1DBTableView1acRateReval: TcxGridDBColumn; cxGrid1DBTableView1acPayRemindCost: TcxGridDBColumn; cxGrid1DBTableView1acDocTypeRate: TcxGridDBColumn; cxGrid1DBTableView1adDateFrom: TcxGridDBColumn; cxGrid1DBTableView1ac1Doc1Item: TcxGridDBColumn; cxGrid1DBTableView1acIntrRateType: TcxGridDBColumn; cxGrid1DBTableView1anMinRateValue: TcxGridDBColumn; cxGrid1DBTableView1anMinDaysOver: TcxGridDBColumn; cxGrid1DBTableView1anNominalRate: TcxGridDBColumn; cxGrid1DBTableView1acCalcTypeRate: TcxGridDBColumn; cxGrid1DBTableView1acDocStatus: TcxGridDBColumn; cxGrid1DBTableView1anDaysForPayment: TcxGridDBColumn; cxGrid1DBTableView1adDateAcc: TcxGridDBColumn; cxGrid1DBTableView1acPayerType: TcxGridDBColumn; cxGrid1DBTableView1acSlryIndividWrk: TcxGridDBColumn; cxGrid1DBTableView1acEnterSNS: TcxGridDBColumn; cxGrid1DBTableView1acEnterSNK: TcxGridDBColumn; cxGrid1DBTableView1acEnterSNP: TcxGridDBColumn; cxGrid1DBTableView1acEnterSNE: TcxGridDBColumn; cxGrid1DBTableView1acEnterSNO: TcxGridDBColumn; cxGrid1DBTableView1acIdent: TcxGridDBColumn; cxGrid1DBTableView1acIsExpAcct: TcxGridDBColumn; cxGrid1DBTableView1anProdPlanSchdCheck: TcxGridDBColumn; cxGrid1DBTableView1acProdWOType: TcxGridDBColumn; cxGrid1DBTableView1acAllowDocNameChange: TcxGridDBColumn; cxGrid1DBTableView1acWarehouse: TcxGridDBColumn; cxGrid1DBTableView1acVATPayReal: TcxGridDBColumn; cxGrid1DBTableView1anLinkDocFillType: TcxGridDBColumn; cxGrid1DBTableView1acCompensation: TcxGridDBColumn; cxGrid1DBTableView1acCaution: TcxGridDBColumn; cxGrid1DBTableView1acRest: TcxGridDBColumn; cxGrid1DBTableView1acClaim: TcxGridDBColumn; cxGrid1DBTableView1acLiability: TcxGridDBColumn; cxGrid1DBTableView1anSubjBank: TcxGridDBColumn; cxGrid1DBTableView1acDefNote: TcxGridDBColumn; cxGrid1DBTableView1acNote: TcxGridDBColumn; cxGrid1DBTableView1acDutyProcDeliver: TcxGridDBColumn; cxGrid1DBTableView1acDutyProcRequired: TcxGridDBColumn; cxGrid1DBTableView1acSADOrgUnit1: TcxGridDBColumn; cxGrid1DBTableView1acSADOrgUnit2: TcxGridDBColumn; cxGrid1DBTableView1acCostDrv: TcxGridDBColumn; cxGrid1DBTableView1anFillConsWO2Move: TcxGridDBColumn; cxGrid1DBTableView1acCashRegRetAcctCR: TcxGridDBColumn; cxGrid1DBTableView1acAcctCROfCurr: TcxGridDBColumn; cxGrid1DBTableView1anMinRateValueSubj: TcxGridDBColumn; cxGrid1DBTableView1acRSmId2: TcxGridDBColumn; cxGrid1DBTableView1acFillProdPrice: TcxGridDBColumn; cxGrid1DBTableView1acGenerateRefNo: TcxGridDBColumn; cxGrid1DBTableView1acWorkerTrvl: TcxGridDBColumn; cxGrid1DBTableView1acPhaseM: TcxGridDBColumn; cxGrid1DBTableView1acAgreedCompBasis: TcxGridDBColumn; cxGrid1DBTableView1acControlPrevCalc: TcxGridDBColumn; cxGrid1DBTableView1acConsignee: TcxGridDBColumn; cxGrid1DBTableView1acFillWOConsRecv: TcxGridDBColumn; cxGrid1DBTableView1acIsDefRoute: TcxGridDBColumn; cxGrid1DBTableView1acProdSNWasteGen: TcxGridDBColumn; cxGrid1DBTableView1acTypeDocType: TcxGridDBColumn; cxGrid1DBTableView1acChkIdentDpl: TcxGridDBColumn; cxGrid1DBTableView1acIncomeType: TcxGridDBColumn; private public constructor Create(AOwner: TComponent); override; end; var Form1: TForm1; implementation constructor TForm1.Create(AOwner: TComponent); begin inherited Create(AOwner); ares.AssignObjectsToForm('FForm1',Self); DataSource1 := FindComponent('DataSource1'); dlDataset1 := FindComponent('dlDataset1'); cxGrid1 := FindComponent('cxGrid1'); cxGrid1DBTableView1 := FindComponent('cxGrid1DBTableView1'); cxGrid1Level1 := FindComponent('cxGrid1Level1'); cxGrid1DBTableView1acDocType := FindComponent('cxGrid1DBTableView1acDocType'); cxGrid1DBTableView1acSetOf := FindComponent('cxGrid1DBTableView1acSetOf'); cxGrid1DBTableView1acType := FindComponent('cxGrid1DBTableView1acType'); cxGrid1DBTableView1acIsDoc := FindComponent('cxGrid1DBTableView1acIsDoc'); cxGrid1DBTableView1acIsInternalMovmnt := FindComponent('cxGrid1DBTableView1acIsInternalMovmnt'); cxGrid1DBTableView1acName := FindComponent('cxGrid1DBTableView1acName'); cxGrid1DBTableView1acShortDocName := FindComponent('cxGrid1DBTableView1acShortDocName'); cxGrid1DBTableView1acAcctDB := FindComponent('cxGrid1DBTableView1acAcctDB'); cxGrid1DBTableView1acAcctCR := FindComponent('cxGrid1DBTableView1acAcctCR'); cxGrid1DBTableView1acIssuerName := FindComponent('cxGrid1DBTableView1acIssuerName'); cxGrid1DBTableView1acReceiverName := FindComponent('cxGrid1DBTableView1acReceiverName'); cxGrid1DBTableView1acName3 := FindComponent('cxGrid1DBTableView1acName3'); cxGrid1DBTableView1acLinkDocName1 := FindComponent('cxGrid1DBTableView1acLinkDocName1'); cxGrid1DBTableView1acLinkDocName2 := FindComponent('cxGrid1DBTableView1acLinkDocName2'); cxGrid1DBTableView1acIssuer := FindComponent('cxGrid1DBTableView1acIssuer'); cxGrid1DBTableView1acReceiver := FindComponent('cxGrid1DBTableView1acReceiver'); cxGrid1DBTableView1acPrsn3 := FindComponent('cxGrid1DBTableView1acPrsn3'); cxGrid1DBTableView1acFillPrice := FindComponent('cxGrid1DBTableView1acFillPrice'); cxGrid1DBTableView1acFillPurPrice := FindComponent('cxGrid1DBTableView1acFillPurPrice'); cxGrid1DBTableView1acFillRecvCalc := FindComponent('cxGrid1DBTableView1acFillRecvCalc'); cxGrid1DBTableView1acDocTypeCashRegPreePay := FindComponent('cxGrid1DBTableView1acDocTypeCashRegPreePay'); cxGrid1DBTableView1acDocTypeCashRegPay := FindComponent('cxGrid1DBTableView1acDocTypeCashRegPay'); cxGrid1DBTableView1acDocTypeRef := FindComponent('cxGrid1DBTableView1acDocTypeRef'); cxGrid1DBTableView1acProdDisAssDocTypeIn := FindComponent('cxGrid1DBTableView1acProdDisAssDocTypeIn'); cxGrid1DBTableView1acProdDisAssDocTypeOut := FindComponent('cxGrid1DBTableView1acProdDisAssDocTypeOut'); cxGrid1DBTableView1acTypeOfDoc := FindComponent('cxGrid1DBTableView1acTypeOfDoc'); cxGrid1DBTableView1acIsSupplRMA := FindComponent('cxGrid1DBTableView1acIsSupplRMA'); cxGrid1DBTableView1acIsBuyerRMA := FindComponent('cxGrid1DBTableView1acIsBuyerRMA'); cxGrid1DBTableView1acPayOrdMagSeqNo := FindComponent('cxGrid1DBTableView1acPayOrdMagSeqNo'); cxGrid1DBTableView1acSADSetOfDocType := FindComponent('cxGrid1DBTableView1acSADSetOfDocType'); cxGrid1DBTableView1acTrvlDailyAllAcctDB := FindComponent('cxGrid1DBTableView1acTrvlDailyAllAcctDB'); cxGrid1DBTableView1acTrvlKMAcctDB := FindComponent('cxGrid1DBTableView1acTrvlKMAcctDB'); cxGrid1DBTableView1acSpecRecord56A := FindComponent('cxGrid1DBTableView1acSpecRecord56A'); cxGrid1DBTableView1acFillSalePrice := FindComponent('cxGrid1DBTableView1acFillSalePrice'); cxGrid1DBTableView1acIsIssueAllowdOpenBills := FindComponent('cxGrid1DBTableView1acIsIssueAllowdOpenBills'); cxGrid1DBTableView1acPhaseA := FindComponent('cxGrid1DBTableView1acPhaseA'); cxGrid1DBTableView1acPhaseC := FindComponent('cxGrid1DBTableView1acPhaseC'); cxGrid1DBTableView1acPhaseD := FindComponent('cxGrid1DBTableView1acPhaseD'); cxGrid1DBTableView1acPhaseF := FindComponent('cxGrid1DBTableView1acPhaseF'); cxGrid1DBTableView1acPhaseG := FindComponent('cxGrid1DBTableView1acPhaseG'); cxGrid1DBTableView1acPhaseH := FindComponent('cxGrid1DBTableView1acPhaseH'); cxGrid1DBTableView1acPhaseK := FindComponent('cxGrid1DBTableView1acPhaseK'); cxGrid1DBTableView1acPhaseR := FindComponent('cxGrid1DBTableView1acPhaseR'); cxGrid1DBTableView1acIsValueBasedPost := FindComponent('cxGrid1DBTableView1acIsValueBasedPost'); cxGrid1DBTableView1acTrvlCostsAcctDB := FindComponent('cxGrid1DBTableView1acTrvlCostsAcctDB'); cxGrid1DBTableView1acSlryCapContrPayWrk := FindComponent('cxGrid1DBTableView1acSlryCapContrPayWrk'); cxGrid1DBTableView1acEvidence := FindComponent('cxGrid1DBTableView1acEvidence'); cxGrid1DBTableView1acName2 := FindComponent('cxGrid1DBTableView1acName2'); cxGrid1DBTableView1acSlryCapBnkPayPurpose := FindComponent('cxGrid1DBTableView1acSlryCapBnkPayPurpose'); cxGrid1DBTableView1acSlryCapLoanPayPurpose1 := FindComponent('cxGrid1DBTableView1acSlryCapLoanPayPurpose1'); cxGrid1DBTableView1acSlryCapLoanPayPurpose2 := FindComponent('cxGrid1DBTableView1acSlryCapLoanPayPurpose2'); cxGrid1DBTableView1acSlryCapContrPayComp := FindComponent('cxGrid1DBTableView1acSlryCapContrPayComp'); cxGrid1DBTableView1acDocTypeAssmbly := FindComponent('cxGrid1DBTableView1acDocTypeAssmbly'); cxGrid1DBTableView1acPayOrdDocType := FindComponent('cxGrid1DBTableView1acPayOrdDocType'); cxGrid1DBTableView1acPayOrdPriorty := FindComponent('cxGrid1DBTableView1acPayOrdPriorty'); cxGrid1DBTableView1acPayOrdBankBranch := FindComponent('cxGrid1DBTableView1acPayOrdBankBranch'); cxGrid1DBTableView1acPayOrdPlaceDate := FindComponent('cxGrid1DBTableView1acPayOrdPlaceDate'); cxGrid1DBTableView1acPayOrdDebitor1 := FindComponent('cxGrid1DBTableView1acPayOrdDebitor1'); cxGrid1DBTableView1acPayOrdDebitor2 := FindComponent('cxGrid1DBTableView1acPayOrdDebitor2'); cxGrid1DBTableView1acPayOrdDebitor3 := FindComponent('cxGrid1DBTableView1acPayOrdDebitor3'); cxGrid1DBTableView1acPayOrdFillDate := FindComponent('cxGrid1DBTableView1acPayOrdFillDate'); cxGrid1DBTableView1acPayOrdBankAcctDebitor1 := FindComponent('cxGrid1DBTableView1acPayOrdBankAcctDebitor1'); cxGrid1DBTableView1acPayOrdBankAcctDebitor2 := FindComponent('cxGrid1DBTableView1acPayOrdBankAcctDebitor2'); cxGrid1DBTableView1acPayOrdBankAcctDebitor3 := FindComponent('cxGrid1DBTableView1acPayOrdBankAcctDebitor3'); cxGrid1DBTableView1acPayOrdBankAcctDebitor3Ref := FindComponent('cxGrid1DBTableView1acPayOrdBankAcctDebitor3Ref'); cxGrid1DBTableView1acPayOrdPurpose2 := FindComponent('cxGrid1DBTableView1acPayOrdPurpose2'); cxGrid1DBTableView1acPayOrdPurpose3 := FindComponent('cxGrid1DBTableView1acPayOrdPurpose3'); cxGrid1DBTableView1acPayOrdPurpose2Ref := FindComponent('cxGrid1DBTableView1acPayOrdPurpose2Ref'); cxGrid1DBTableView1acPayOrdBankAcctCreditor2 := FindComponent('cxGrid1DBTableView1acPayOrdBankAcctCreditor2'); cxGrid1DBTableView1acPayOrdBankAcctCreditor3 := FindComponent('cxGrid1DBTableView1acPayOrdBankAcctCreditor3'); cxGrid1DBTableView1acBankAcctCreditor3Ref := FindComponent('cxGrid1DBTableView1acBankAcctCreditor3Ref'); cxGrid1DBTableView1acPayOrdCode1 := FindComponent('cxGrid1DBTableView1acPayOrdCode1'); cxGrid1DBTableView1acPayOrdCode2 := FindComponent('cxGrid1DBTableView1acPayOrdCode2'); cxGrid1DBTableView1acPayOrdCode3 := FindComponent('cxGrid1DBTableView1acPayOrdCode3'); cxGrid1DBTableView1acDocTypeWaste := FindComponent('cxGrid1DBTableView1acDocTypeWaste'); cxGrid1DBTableView1acDept := FindComponent('cxGrid1DBTableView1acDept'); cxGrid1DBTableView1acPostTransDeptCostDrv := FindComponent('cxGrid1DBTableView1acPostTransDeptCostDrv'); cxGrid1DBTableView1acPostTransSalePrice := FindComponent('cxGrid1DBTableView1acPostTransSalePrice'); cxGrid1DBTableView1acIsObligDoc1 := FindComponent('cxGrid1DBTableView1acIsObligDoc1'); cxGrid1DBTableView1acIsObligDoc2 := FindComponent('cxGrid1DBTableView1acIsObligDoc2'); cxGrid1DBTableView1acIsObligDept := FindComponent('cxGrid1DBTableView1acIsObligDept'); cxGrid1DBTableView1acIsObligReceiver := FindComponent('cxGrid1DBTableView1acIsObligReceiver'); cxGrid1DBTableView1acIsObligIssuer := FindComponent('cxGrid1DBTableView1acIsObligIssuer'); cxGrid1DBTableView1anProdCalcQtyType := FindComponent('cxGrid1DBTableView1anProdCalcQtyType'); cxGrid1DBTableView1anProdWOFinishAuto := FindComponent('cxGrid1DBTableView1anProdWOFinishAuto'); cxGrid1DBTableView1acMoveFA := FindComponent('cxGrid1DBTableView1acMoveFA'); cxGrid1DBTableView1acSideOfBooking := FindComponent('cxGrid1DBTableView1acSideOfBooking'); cxGrid1DBTableView1acMinStockWarning := FindComponent('cxGrid1DBTableView1acMinStockWarning'); cxGrid1DBTableView1acShowOnlyActiveID := FindComponent('cxGrid1DBTableView1acShowOnlyActiveID'); cxGrid1DBTableView1acIsClerkChangble := FindComponent('cxGrid1DBTableView1acIsClerkChangble'); cxGrid1DBTableView1acPayOrdDocTypeFgn := FindComponent('cxGrid1DBTableView1acPayOrdDocTypeFgn'); cxGrid1DBTableView1acPayMethod := FindComponent('cxGrid1DBTableView1acPayMethod'); cxGrid1DBTableView1acAutoInvoSerialNo := FindComponent('cxGrid1DBTableView1acAutoInvoSerialNo'); cxGrid1DBTableView1adSADDateSimpleProc := FindComponent('cxGrid1DBTableView1adSADDateSimpleProc'); cxGrid1DBTableView1acSADNoSimpleProc := FindComponent('cxGrid1DBTableView1acSADNoSimpleProc'); cxGrid1DBTableView1acProdOperPostType := FindComponent('cxGrid1DBTableView1acProdOperPostType'); cxGrid1DBTableView1acLinkDocFillType := FindComponent('cxGrid1DBTableView1acLinkDocFillType'); cxGrid1DBTableView1acIsAutoConfrm := FindComponent('cxGrid1DBTableView1acIsAutoConfrm'); cxGrid1DBTableView1acDocTypeCashReg := FindComponent('cxGrid1DBTableView1acDocTypeCashReg'); cxGrid1DBTableView1acSetFocusOnNew := FindComponent('cxGrid1DBTableView1acSetFocusOnNew'); cxGrid1DBTableView1acIsCooperation := FindComponent('cxGrid1DBTableView1acIsCooperation'); cxGrid1DBTableView1acIsObligCostDrv := FindComponent('cxGrid1DBTableView1acIsObligCostDrv'); cxGrid1DBTableView1acProdBuyOrd2WOType := FindComponent('cxGrid1DBTableView1acProdBuyOrd2WOType'); cxGrid1DBTableView1anPayOrdStrucType := FindComponent('cxGrid1DBTableView1anPayOrdStrucType'); cxGrid1DBTableView1adTimeIns := FindComponent('cxGrid1DBTableView1adTimeIns'); cxGrid1DBTableView1anUserIns := FindComponent('cxGrid1DBTableView1anUserIns'); cxGrid1DBTableView1adTimeChg := FindComponent('cxGrid1DBTableView1adTimeChg'); cxGrid1DBTableView1anUserChg := FindComponent('cxGrid1DBTableView1anUserChg'); cxGrid1DBTableView1acAccountBuyer := FindComponent('cxGrid1DBTableView1acAccountBuyer'); cxGrid1DBTableView1acSetOffAccountBuyer := FindComponent('cxGrid1DBTableView1acSetOffAccountBuyer'); cxGrid1DBTableView1acAccountSupplier := FindComponent('cxGrid1DBTableView1acAccountSupplier'); cxGrid1DBTableView1acSetOffAccountSupplier := FindComponent('cxGrid1DBTableView1acSetOffAccountSupplier'); cxGrid1DBTableView1acSetOffDocType := FindComponent('cxGrid1DBTableView1acSetOffDocType'); cxGrid1DBTableView1acRateReal := FindComponent('cxGrid1DBTableView1acRateReal'); cxGrid1DBTableView1acRateReval := FindComponent('cxGrid1DBTableView1acRateReval'); cxGrid1DBTableView1acPayRemindCost := FindComponent('cxGrid1DBTableView1acPayRemindCost'); cxGrid1DBTableView1acDocTypeRate := FindComponent('cxGrid1DBTableView1acDocTypeRate'); cxGrid1DBTableView1adDateFrom := FindComponent('cxGrid1DBTableView1adDateFrom'); cxGrid1DBTableView1ac1Doc1Item := FindComponent('cxGrid1DBTableView1ac1Doc1Item'); cxGrid1DBTableView1acIntrRateType := FindComponent('cxGrid1DBTableView1acIntrRateType'); cxGrid1DBTableView1anMinRateValue := FindComponent('cxGrid1DBTableView1anMinRateValue'); cxGrid1DBTableView1anMinDaysOver := FindComponent('cxGrid1DBTableView1anMinDaysOver'); cxGrid1DBTableView1anNominalRate := FindComponent('cxGrid1DBTableView1anNominalRate'); cxGrid1DBTableView1acCalcTypeRate := FindComponent('cxGrid1DBTableView1acCalcTypeRate'); cxGrid1DBTableView1acDocStatus := FindComponent('cxGrid1DBTableView1acDocStatus'); cxGrid1DBTableView1anDaysForPayment := FindComponent('cxGrid1DBTableView1anDaysForPayment'); cxGrid1DBTableView1adDateAcc := FindComponent('cxGrid1DBTableView1adDateAcc'); cxGrid1DBTableView1acPayerType := FindComponent('cxGrid1DBTableView1acPayerType'); cxGrid1DBTableView1acSlryIndividWrk := FindComponent('cxGrid1DBTableView1acSlryIndividWrk'); cxGrid1DBTableView1acEnterSNS := FindComponent('cxGrid1DBTableView1acEnterSNS'); cxGrid1DBTableView1acEnterSNK := FindComponent('cxGrid1DBTableView1acEnterSNK'); cxGrid1DBTableView1acEnterSNP := FindComponent('cxGrid1DBTableView1acEnterSNP'); cxGrid1DBTableView1acEnterSNE := FindComponent('cxGrid1DBTableView1acEnterSNE'); cxGrid1DBTableView1acEnterSNO := FindComponent('cxGrid1DBTableView1acEnterSNO'); cxGrid1DBTableView1acIdent := FindComponent('cxGrid1DBTableView1acIdent'); cxGrid1DBTableView1acIsExpAcct := FindComponent('cxGrid1DBTableView1acIsExpAcct'); cxGrid1DBTableView1anProdPlanSchdCheck := FindComponent('cxGrid1DBTableView1anProdPlanSchdCheck'); cxGrid1DBTableView1acProdWOType := FindComponent('cxGrid1DBTableView1acProdWOType'); cxGrid1DBTableView1acAllowDocNameChange := FindComponent('cxGrid1DBTableView1acAllowDocNameChange'); cxGrid1DBTableView1acWarehouse := FindComponent('cxGrid1DBTableView1acWarehouse'); cxGrid1DBTableView1acVATPayReal := FindComponent('cxGrid1DBTableView1acVATPayReal'); cxGrid1DBTableView1anLinkDocFillType := FindComponent('cxGrid1DBTableView1anLinkDocFillType'); cxGrid1DBTableView1acCompensation := FindComponent('cxGrid1DBTableView1acCompensation'); cxGrid1DBTableView1acCaution := FindComponent('cxGrid1DBTableView1acCaution'); cxGrid1DBTableView1acRest := FindComponent('cxGrid1DBTableView1acRest'); cxGrid1DBTableView1acClaim := FindComponent('cxGrid1DBTableView1acClaim'); cxGrid1DBTableView1acLiability := FindComponent('cxGrid1DBTableView1acLiability'); cxGrid1DBTableView1anSubjBank := FindComponent('cxGrid1DBTableView1anSubjBank'); cxGrid1DBTableView1acDefNote := FindComponent('cxGrid1DBTableView1acDefNote'); cxGrid1DBTableView1acNote := FindComponent('cxGrid1DBTableView1acNote'); cxGrid1DBTableView1acDutyProcDeliver := FindComponent('cxGrid1DBTableView1acDutyProcDeliver'); cxGrid1DBTableView1acDutyProcRequired := FindComponent('cxGrid1DBTableView1acDutyProcRequired'); cxGrid1DBTableView1acSADOrgUnit1 := FindComponent('cxGrid1DBTableView1acSADOrgUnit1'); cxGrid1DBTableView1acSADOrgUnit2 := FindComponent('cxGrid1DBTableView1acSADOrgUnit2'); cxGrid1DBTableView1acCostDrv := FindComponent('cxGrid1DBTableView1acCostDrv'); cxGrid1DBTableView1anFillConsWO2Move := FindComponent('cxGrid1DBTableView1anFillConsWO2Move'); cxGrid1DBTableView1acCashRegRetAcctCR := FindComponent('cxGrid1DBTableView1acCashRegRetAcctCR'); cxGrid1DBTableView1acAcctCROfCurr := FindComponent('cxGrid1DBTableView1acAcctCROfCurr'); cxGrid1DBTableView1anMinRateValueSubj := FindComponent('cxGrid1DBTableView1anMinRateValueSubj'); cxGrid1DBTableView1acRSmId2 := FindComponent('cxGrid1DBTableView1acRSmId2'); cxGrid1DBTableView1acFillProdPrice := FindComponent('cxGrid1DBTableView1acFillProdPrice'); cxGrid1DBTableView1acGenerateRefNo := FindComponent('cxGrid1DBTableView1acGenerateRefNo'); cxGrid1DBTableView1acWorkerTrvl := FindComponent('cxGrid1DBTableView1acWorkerTrvl'); cxGrid1DBTableView1acPhaseM := FindComponent('cxGrid1DBTableView1acPhaseM'); cxGrid1DBTableView1acAgreedCompBasis := FindComponent('cxGrid1DBTableView1acAgreedCompBasis'); cxGrid1DBTableView1acControlPrevCalc := FindComponent('cxGrid1DBTableView1acControlPrevCalc'); cxGrid1DBTableView1acConsignee := FindComponent('cxGrid1DBTableView1acConsignee'); cxGrid1DBTableView1acFillWOConsRecv := FindComponent('cxGrid1DBTableView1acFillWOConsRecv'); cxGrid1DBTableView1acIsDefRoute := FindComponent('cxGrid1DBTableView1acIsDefRoute'); cxGrid1DBTableView1acProdSNWasteGen := FindComponent('cxGrid1DBTableView1acProdSNWasteGen'); cxGrid1DBTableView1acTypeDocType := FindComponent('cxGrid1DBTableView1acTypeDocType'); cxGrid1DBTableView1acChkIdentDpl := FindComponent('cxGrid1DBTableView1acChkIdentDpl'); cxGrid1DBTableView1acIncomeType := FindComponent('cxGrid1DBTableView1acIncomeType'); dlDataset1.active := true; end; end. acKeyanNoanSeqNoacHField2acHType anHLengthanHDecacPField2acPTypeanPLegthanPDec acPFormat acPSeparator anUserChg anUserIns adTimeChg adTimeIns acKeyanNoanSeqNo acFieldName2 anFieldSize acFieldTitleacFieldReadOnly acEditType acFieldConst anUserChg anUserIns adTimeIns adTimeChg acFieldFormatacFieldDefault acKeyanNo acDataEventacDataReturnValue acKeyAndNo anUserChg anUserIns adTimeChg adTimeIns acKey acWhereKeyanNo acFieldName acParamVar acFieldType acFieldREQacFieldCaption2 acDefaultExpacDefaultValue acLookUpSQL acOperator acVarHint2 acAddApostrof anUserChg anUserIns adTimeChg adTimeIns acPrtCrit ACKEY ANVERSIONANNOACSQLEXPACNOTE ADTIMECHG ANUSERCHG ADTIMEINS ANUSERINSACREPORTACLANGIDACLOCALIZATION2 ACFORMNAMEdACNAMEdACDEFAULTPRINTER ACPREVIEWANMAXPRSTLEVELACSUBSTITUTESIGNACPRINTIFEMPTY ACPRINTTOTEXT ANNOOFCOPY ACORDERBY ACREGUSERCODEACACTIVE ACKEYSHORTCUT2 ANUSERINS ADTIMEINS ANUSERCHG ADTIMECHG ACTEXT1ACTEXT2ACTEXT3ACNOTE ACREPORTDATA