ئhG,akNX8g.TButtonpt@g .TComboBoxɵgTCustomComboBox.SetItemIndexRlgTCustomComboBox.GetItemIndexJlcdDialogsZkg MessageDlghf TMsgDlgTypeg mtWarningqeDf TMsgDlgBtn"b$gmbOK| BcdFormsZkfTFormNbf TCloseAction.g.TForm8NgTCustomForm.AlignControls6j-gTCustomForm.CreateParams9j-gTCustomForm.CreateWindowHandle:j-gTCustomForm.CreateWnd;j-gTCustomForm.DefineProperties=j-gTCustomForm.DestroyWindowHandle>j-gTCustomForm.GetClientRectBj-gTCustomForm.GetFloatingDj-gTCustomForm.LoadedEj-gTCustomForm.NotificationFj-gTCustomForm.PaintWindowHj-gTCustomForm.QueryInterfaceJj-gTCustomForm.ReadStateKj-gTCustomForm.SetParentBiDiModeNj-gTCustomForm.SetParentPj-gTCustomForm.UpdateActionsQj-gTCustomForm.ValidateRenameSj-gTCustomForm.WndProcUj-gTCustomForm.Createj-gTCustomForm.CreateNewj-gTCustomForm.Destroyj-gTCustomForm.AfterConstructionj-gTCustomForm.BeforeDestructionj-gTCustomForm.CloseQueryj-gTCustomForm.DefaultHandlerj-gTCustomForm.SetFocusj-gTCustomForm.SetFocusedControlj-gTCustomForm.ShowModalj-gTCustomForm.WantChildKeyj-g%TScrollingWinControl.AdjustClientRecthg&TScrollingWinControl.AutoScrollEnabledhcdControlsZkgTWinControl.UpdateLastResize)gTWinControl.AssignTo*gTWinControl.CanAutoSize*gTWinControl.CanResize*gTWinControl.ConstrainedResize*gTWinControl.CreateHandle*gTWinControl.DestroyWnd*gTWinControl.GetClientOrigin1*gTWinControl.GetControlExtents3*gTWinControl.GetDeviceContext4*gTWinControl.ShowControlN*gTWinControl.Invalidate*gTWinControl.Repaint*gTWinControl.SetBounds*gTWinControl.Update*gTControl.GetDragImages_gTControl.GetEnabled_g!TControl.GetFloatingDockSiteClass_gTControl.SetDragMode_gTControl.SetEnabled_gTControl.SetName_gTControl.SetBiDiMode_gTControl.InitiateAction_gTControl.SetTextc_gTControl.GetText?_gmrOkDСcdGraphicsZkcdClassesZkf TStringList-SB>gTComponent.UpdateRegistry2gTComponent.WriteState2gTComponent.SafeCallException+2gTPersistent.Assign0g .TStringList<*cdSysUtilsZkgTrim~ g UpperCase~ gIntToStrJ 7gStrToIntcdMessagesZkcdWindowsZkcdSysInitZkcdSystemZkfTObject.f AnsiString8fBooleanNcfInteger|ofString8f TDateTime_IgTObject.Dispatch݋RgTObject.NewInstance݋RgTObject.FreeInstance݋RgFalse1ogTObject.Create݋RgPosg@LStrPosX,Tdg TObject.Free݋Rg@LStrClrg@LStrAsgX,Tdg@HandleFinallyX,Tdg@LStrCatX,TdgBreakg@LStrCmpX,TdgLengthg@LStrLen?g VarIsNullcg@VarFromTDateTimeX,Tdg@VarClrX,TdgNullX:7g @VarToRealX,Tdg @LStrCat3X,Tdg @VarToLStr kg @LStrArrayClrX,TdgTrue1ogCopyg @LStrCopyX,Tdg @LStrLAsgX,Tdg @LStrCatNX,Tdce PPSysMainXgMainForm9ceGenFnsXg TestForAudit Ut7g CleanString~ g SetAuditStartwg SetAuditDataog SetAuditIDg SaveAudit[>ce DateFunctionsXgStandardDateString_tceDataModXc&.TSysEditAgreementFormts>$*TSysEditAgreementForm+R& SysEditAgreementForm(R& .2f(( TSysEditAgreementForm.FormCreate v!'*!Self&!Sender qFormCreate ActionDescriptionf .f .fc(TSysEditAgreementForm.FormClose!v*!Self&!Sender"Actionc(TSysEditAgreementForm.SetAppend:v*!Self&!Valuec(TSysEditAgreementForm.SetID;v*!Self&!Valuec(TSysEditAgreementForm.GetIDv !Self&#Resultc($TSysEditAgreementForm.SetDescription?v*!Self&!Valuec($TSysEditAgreementForm.GetDescription@v !Self&#Resultc((TSysEditAgreementForm.SetAgreementTypeIDAv*!Self&!Valueb sSelectedf iCountc((TSysEditAgreementForm.GetAgreementTypeIDBvi !Self& Result nSelectedc(#TSysEditAgreementForm.SetSupplierIDCv*!Self&!Valueb sSelectedf iCountc(#TSysEditAgreementForm.GetSupplierIDDvi !Self& Result nSelectedc($TSysEditAgreementForm.SetValidAcctIDEv*!Self&!Valueb sSelectedf iCountc($TSysEditAgreementForm.GetValidAcctIDFvi !Self& Result nSelectedc($TSysEditAgreementForm.SetBatchTypeIDGv*!Self&!Valueb sSelectedf iCountc($TSysEditAgreementForm.GetBatchTypeIDHvi !Self& Result nSelectedc("TSysEditAgreementForm.SetStartDateIv-*!Self&!Value""c("TSysEditAgreementForm.GetStartDateJvx "!Self& Resultf"c( TSysEditAgreementForm.SetEndDateKv-*!Self&!Value""c( TSysEditAgreementForm.GetEndDateLvx "!Self& Resultf"c(&TSysEditAgreementForm.cbSupplierChange#v*!Self&!Sender nSelectedc('TSysEditAgreementForm.cbBatchTypeChange$v*!Self&!Sender nSelectedc( TSysEditAgreementForm.btnOkClick"vQI*!Self&!Sender q sFieldf sValuef sAuditInsertf sAuditFieldf sAuditValuef AuditActionf lReturnf sStartedf nStarted sOriginalf sErrorf .fc( FinalizationX,Td\! *c(SysEditAgreement!*cG&uF j,edtID ,lblID! ,edtAgreementNo1 ,lblAgreementNoA ,edtDescriptionQ ,lblDescriptiona , lblSupplierq ,lblAgreementType , lblBatchType ,lblValidAccountNumber , lblStartDate , lblEndDate ,btnOk , btnCancel , edtStartDate , edtEndDate , cbBatchType  ,cbValidAccountNumber ! ,cbAgreementType 1 , cbSupplier A ,qBatchQ , qValidAccta - FormCreate- FormClose- btnOkClick-cbSupplierChange-cbBatchTypeChange, AmendStringq , AuditString ,slAgreementIndex ,slSupplierIndex ,slValidAcctIndex ,slBatchTypeIndex , sUserName ,lAppend ,lAudit ,AuditActionUpdate ,AuditActionDelete ,AuditActionInsert , Original_ID! ,Original_AgreementNo1 ,Original_DescriptionA ,Original_AgreementTypeIDQ ,Original_SupplierIDa ,Original_ValidAcctIDq ,Original_BatchTypeID ,Original_StartDate ,Original_EndDate - SetAppend-SetID-GetID-SetAgreementNo-GetAgreementNo-SetDescription -GetDescription-SetAgreementTypeID%-GetAgreementTypeID9- SetSupplierIDI- GetSupplierID]-SetValidAcctIDm-GetValidAcctID-SetBatchTypeID-GetBatchTypeID- SetStartDate- GetStartDate- SetEndDate- GetEndDate0 AppendModeU0IDY0 AgreementNo]0 Descriptiona 0AgreementTypeIDe9%0 SupplierIDi]I0 BatchTypeIDm0ValidAccountNumberIDqm0 StartDate"u0EndDate"ycD(@lmL j ml4<@DLPdhedtIDlblIDedtAgreementNolblAgreementNoedtDescriptionlblDescription lblSupplierlblAgreementType lblBatchTypelblValidAccountNumber lblStartDate lblEndDatebtnOk btnCancel edtStartDate edtEndDate cbBatchTypecbValidAccountNumber cbAgreementType cbSupplierqBatch qValidAcct FormCreate FormClose btnOkClickcbSupplierChangecbBatchTypeChangeTSysEditAgreementFormTSysEditAgreementFormL_SysEditAgreement 8U AppendModeVIDW AgreementNoX DescriptionYAgreementTypeIDZ SupplierID[ BatchTypeID\ValidAccountNumberID] StartDate^EndDateUSV3ɉMM3Uhd0d Ɔ8 $(,03HLP3T3X3\3`dhUU4βغQ4Q4Q4<UQXEUUP~$`UQXU<hUl~$`UQXU@3U|~"`UQXUD0R@Q4Q4Q4Q4V<UQXU Q4<RTUU$Q4tR@HQ4|Q4Q4Q4VUQXUQ4<RTUU(Q4tEER@EQ4E0Q4EHQ4ElQ4EQ4EY<EUQXUQ4<ERTUU0Q4EEtEEER@EQ4EQ4E Q4EP Q4Ex Q4EY EUQXUQ4<ERTUU,Q4EE􀸑tE 93ZYYdhEE^[]dbPPdataSELECT * FROM tEvent#WHERE Description LIKE 'Reference%' DescriptionUPDATEidDELETEINSERT4SELECT tAgreementType.ID, tAgreementType.DescriptionFROM tAgreementTypeWHERE tAgreementType.Active = 1#ORDER BY tAgreementType.DescriptionID+SELECT tSupplier.ID, tSupplier.SupplierNameFROM tSupplierWHERE tSupplier.Active = 1ORDER BY tSupplier.SupplierName SupplierName,SELECT tBatchType.ID, tBatchType.DescriptionFROM tBatchTypeWHERE tBatchType.Active = 1AND tBatchType.ID > 0ORDER BY tBatchType.Description<SELECT tValidAccountNumber.ID, tValidAccountNumber.AccountNoFROM tValidAccountNumber$WHERE tValidAccountNumber.Active = 1AND tValidAccountNumber.ID > 0&ORDER BY tValidAccountNumber.AccountNo AccountNo tAgreementS؋$(,0[UjS3Uh|d0d ˆ8t#UEU!UEU3ZYYdhE[Y] (ADD) (EDIT)UjS3Uh\d0d u 3HHUHU3ZYYdhcE[Y]UjjS3UhYd0d UEUE3ZYYdh`EE[YY]UjSV3UhXd0d UULL3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhXd0d UUPP3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]USVW3ɉMMU3Uhd0d }~\UE$RH|A@E3M֋$8W EUu֋ ETFMu3ZYYdhEE_^[]UjjSV3Uhd0d |%U EUEu3M֋$S E3ZYYdhEE^[YY]USVW3ɉMMU3Uhd0d }~\UE(RH|A@E3M֋(8W EUu֋EXFMu3ZYYdhEE_^[]UjjSV3Uhd0d |%UEUEu3M֋(S E3ZYYdhEE^[YY]USVW3ɉMMU3Uhd0d }~\UE,RH|A@E3M֋,8W EUu֋E\FMu3ZYYdhEE_^[]UjjSV3Uhd0d |%UEUEu3M֋,S E3ZYYdhEE^[YY]USVW3ɉMMU3Uhd0d }~\UE0RH|A@E3M֋08W EUu֋E`FMu3ZYYdhEE_^[]UjjSV3Uhd0d |%UEUEu3M֋0S E3ZYYdhEE^[YY]U3QQQQQS3Uh}d0d EEEu-u uEU썃du u3ZYYdhEE[]S؋du$$$YZ[U3QQQQQS3Uh}d0d EEEu-u uEU썃hu u3ZYYdhEE[]S؋hu$$$YZ[U3QQQQQQSV3Uh&d0d R@M֋(0V ME<M0V uW9MXUEUQ4t3ҋ3ZYYdh-EE^[]AND SupplierID = DescriptionU3QQQQQQSV3Uh&d0d R@M֋00V ME<M0V uW9MXUEUQ4t3ҋ3ZYYdh-EE^[]AND BatchTypeID = AccountNoUjjIuSVW3Uh d0d 8tE苓DE苓<˲ EŰE̍UEuEغE ŰE̍UEuEغ(E~ 8UЋEЍUPQ4EphuhE9t5EPEPEPU苃4 PM3ҸUЋEЍUE~IEuhuhE9t PM3Ҹ~ZUEuuh$E9t"E~ PM3Ҹ0~ZUEHuuh$E9t"E~ PM3Ҹ\U~NEpuUЋuh$E9t PM3ҸU~DEuuh$E9t PM3ҸUȋEȍUEEPUЋEЍUEȹEкtc$EEuhuhE9t PM3ҸUȋEȍUEEPUЋEЍUEȹEкt}$EEuhuh(E9tk PM3Ҹ4 PD3ҸP;E`Ep9t P|3ҸPUQ4UQ4UЋEЍUQ4huhEкUЋQ49tmEPEPEPU苃4ŰE̍UEЍUELt PMLUЋEЍUEPtvEE~uhuhE EUQ49t PMP;TEuEE@Uuuh$ETu E U܋UQ49t PMUܸ0;XEuEE@Uuuh$EXu E U܋UQ49t PMUܸ\;`EuEE@Uuuh$E`u E U܋UQ49t PMUܸ;\E4uEE@Uuuh$E\u E U܋UQ49t PMUܸUȋEȍUEEPUЋEЍUEȹEкtu$EEdtKhTuhEUQ49t PMdUȋEȍUEtBEPUЋEЍUEȹEкhuaElUQ49 P3ɋh4 P|DPEUQ4$EEhtvhuhEUQ49tE PMh4ht PD|PEԋEԋRJMEԋ8W EPEIEEPEԋRJEY8W ŰE̍UEЋMUЋQ498R@Q4Q4hUȋuhEкUЋQ44Q4LUЋQXEЍU PMUER@}t ǃ,jf P3ҋE3ZYYdh EEEEغE_^[]dbPPdataAgreementNo MUST be entered.Description MUST be entered.INSERT INTO tAgreement (AgreementNo, VALUES ('', tAgreement AGREEMENTNO Description,' DESCRIPTIONAgreementTypeID,,AGREEMENTTYPEID SupplierID, SUPPLIERID BatchTypeID, BATCHTYPEIDValidAccountNumberID,VALIDACCOUNTNUMBERID/ StartDate, STARTDATEEndDate,Active)'0)ENDDATE0ACTIVEActive)1)1UPDATE tAgreementSET AgreementNo = 'Description = NULL,AgreementTypeID = SupplierID = BatchTypeID = ValidAccountNumberID =  StartDate = 'EndDate = NULL, Active = 1) Active = 1) EndDate = '', Active = 0) WHERE id = SELECT IDFROM tAgreementWHERE AgreementNo LIKE 'AND Active = 1IDU3Uh%d0d 3ZYYdh,]Ã-mY T~^fhnvlzbdrpxVXZ\`jt|" ".\68:<"6P2:*< <9%D]I:<mN84,(      2Vi" $&   $&  ,  ,  ,(    $B*     $B*  J&&&&B,( J&&&&B,(    q& -        8   VP (  " (    "  ( %4%.b%><% 99"@(-@9 I4I.b%><I ]]"@(-@] m4m.b%><m "@(-@ 4.b%>< "@(-@ ""51$"9 - = A""51$"9 - = A&D@* 6 EH2 I>8> 9M z&D@* 6 EH2 I>8> 9M z0:] ]" $&$- ].- ]@u & ] a4y" }u- a4 }9  a"-* }]  a"-* } a4 } a4 }-4$Y % a4 }-4$Y % a4 } }  * }Vu  aPy%. }u% ]-a X }9, ] a$R }], ] a$R }, ] a$R }, ] a$R }-4$Y %%aX }-,$Y %"- ]^ }   } ]<%aX }-"   }V- YL E6(*T  a&$ & *$ 6DMM EEE I I5@$$$$$$F    >"H"H"D    PN     PN &&&&&RP &&&&&RP j,F|J, r0 20\ 2j 20\ 2j H ,:T 2R H ,:T 2R H ,:T 2R H ,:T 2R 6.8l  ""6.8l  "" :"r"\j n:"r"\j"nD2 JJ* 4>,*:,0*,0*,D,0,4:,4:,40&* P>H 4* V40.0.0.0.4 4 4 2@&4 44 6,h2<  d >*  & PA) Y I   "$&(*,.02 4"6$8&:(<*>,@DBԙ.BFD=0DHF2FJHU4HLJ6J8P:R<T>V@XBZD\F^H`JbLdNfPhRjTlVnXpZr\t^v`x~|ib|~d~fhj l n%p9arIt]vmxAzm|~9©{Աصz9=iz A! )`-1%5)=kAeEiM*QUYa[eiqc6uy} EImuy3={U]Ks z  !%!))--115599==E ` 0@i9 @`,,< `,,T@0`022b`02 2  `022b`02!2!% p)H55))5)590=2EL=E=E=QEQI pMHYYMMYMY]0a2iLaiaiaQiQm pqH}}qq}q}02LQQ pH02LQQ@(6@ N@(6@ N`00:v`00:vpp D5 55A 5y 5 5 5q 5 5} 55M 5u5) 55 5!5 5I!5! 5!5# 5#5Q$ 5y$5 6E I a