ئhGfkNX8g.TButtonpt@cdDialogsZkcdFormsZkfTFormNbg.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СcdGraphicsZkcdClassesZkgTComponent.UpdateRegistry2gTComponent.WriteState2gTComponent.SafeCallException+2gTPersistent.Assign0f TStringList-SB>g .TStringList<*cdSysUtilsZkgTrim~ g UpperCase~ gIntToStrJ 7gStrToIntg CurrToStr`bg StrToCurr`bcdMessagesZkcdWindowsZkcdSysInitZkcdSystemZkfTObject.fBooleanNcf AnsiString8fInteger|ofCurrency,eifString8gTObject.Dispatch݋RgTObject.NewInstance݋RgTObject.FreeInstance݋RgPosg@LStrPosX,Tdg TObject.Free݋Rg@LStrAsgX,Tdg @LStrArrayClrX,Tdg@HandleFinallyX,Tdg@LStrCatX,Tdg@LStrClrg @LStrAddRefX,TdgTObject.Create݋RgCopyg @LStrCopyX,TdgLengthg@LStrLen?g @LStrLAsgX,Tdg @LStrCatNX,Tdg @LStrCat3X,Tdg@LStrCmpX,TdceGenFnsXg TestForAudit Ut7g SetAuditStartwg SetAuditDataog SetAuditIDg SaveAudit[>ce PPSysMainXgMainForm9c&.TSysEditCustomerFormɧ*TSysEditCustomerForm% LEN_SHIPTODС % LEN_FULLNAMEDС d% LEN_VNUMBERDС % LEN_STATUSDС % LEN_ADDRESS2QС" SysEditCustomerFormA % .2f$(TSysEditCustomerForm.FormCreate &!Self!Sender qFormCreate ActionDescriptionfc(TSysEditCustomerForm.SetAppend͞&!Self!Valuec(TSysEditCustomerForm.SetIDΞ&!Self!Valuefc( TSysEditCustomerForm.SetFullNameϞ&!Self!Valuec( TSysEditCustomerForm.GetFullNameО !Self#Resultc(TSysEditCustomerForm.SetShipToў&!Self!Valuec(TSysEditCustomerForm.GetShipToҞ !Self#Resultc(TSysEditCustomerForm.SetVNumberӞ&!Self!Valuec(TSysEditCustomerForm.GetVNumberԞ !Self#Resultc(TSysEditCustomerForm.SetStatus՞&!Self!Valuec(TSysEditCustomerForm.GetStatus֞ !Self#Resultc(TSysEditCustomerForm.SetRateמ&!Self!Valuec(TSysEditCustomerForm.GetRate؞ !Self Resultc(*TSysEditCustomerForm.SetMaxExServiceAmount&!Self!Value"c(*TSysEditCustomerForm.GetMaxExServiceAmount !Self Resultfc(&TSysEditCustomerForm.SetPlatinumUpdateٞ2&!Self!Valuec(&TSysEditCustomerForm.GetPlatinumUpdateڞ !Self Resultc(TSysEditCustomerForm.SetInvoice۞2&!Self!Valuec(TSysEditCustomerForm.GetInvoiceܞ !Self Resultc('TSysEditCustomerForm.SetInvoiceServicesݞ2&!Self!Valuec('TSysEditCustomerForm.GetInvoiceServicesޞ !Self Resultc(TSysEditCustomerForm.SetActiveߞ2&!Self!Valuec(TSysEditCustomerForm.GetActive !Self Resultc(!TSysEditCustomerForm.SetAddress01&!Self!Valuec(!TSysEditCustomerForm.GetAddress01 !Self#Resultc(!TSysEditCustomerForm.SetAddress02&!Self!Valuec(!TSysEditCustomerForm.GetAddress02 !Self#Resultc(!TSysEditCustomerForm.SetAddress03&!Self!Valuec(!TSysEditCustomerForm.GetAddress03 !Self#Resultc(!TSysEditCustomerForm.SetAddress04&!Self!Valuec(!TSysEditCustomerForm.GetAddress04 !Self#Resultc(!TSysEditCustomerForm.SetAddress05&!Self!Valuec(!TSysEditCustomerForm.GetAddress05 !Self#Resultc(!TSysEditCustomerForm.SetAddress06&!Self!Valuec(!TSysEditCustomerForm.GetAddress06 !Self#Resultc(TSysEditCustomerForm.btnOkClickf&!Self!Sender qCust AmendString AuditStringf sFieldf sValuef sTempValuef sAuditInsertf sAuditFieldf sAuditValuef AuditActionf sOperatorNamef slFieldListf slValueListf nCountf nMaxCountf sStartedfc( FinalizationX,Td\! &c(SysEditCustomer!&cG-F 5 Q1j, ckInvoice ,ckActive! ,ckPlatinumUpdate1 ,ckInvoiceServicesA , edtStatusQ ,edtIDa , edtFullNameq ,lblID , lblFullName , edtAddress01 , edtAddress02 , edtAddress03 , edtAddress04 , edtAddress05 , edtAddress06 , lblAddress01 , lblAddress02 , lblAddress03! , lblAddress041 , lblAddress05A , lblAddress06Q ,btnOk a , btnCancel q , lblShipTo , edtShipTo , lblVNumber , edtVNumber , lblStatus ,lblRate ,edtRate ,edtMaxExServiceAmount ,lblMaxExServiceAmount_A ,lblMaxExServiceAmount_B - FormCreateU- btnOkClick,lAppend! ,lAudit% ,AuditActionUpdate1 ,AuditActionDeleteA ,AuditActionInsertQ , sUserNamea ,Original_FullNameq ,Original_ShipTo ,Original_VNumber ,Original_Status , Original_Rate ,Original_PlatinumUpdate ,Original_Invoice ,Original_InvoiceServices ,Original_Active ,Original_Address01 ,Original_Address02 ,Original_Address03 ,Original_Address04,Original_Address05,Original_Address06!,Original_MaxExServiceAmount1- SetAppendi-SetIDu- SetFullName- GetFullName- SetShipTo- GetShipTo- SetVNumber- GetVNumber- SetStatus- GetStatus-SetRate-GetRate-SetPlatinumUpdate-GetPlatinumUpdate- SetInvoice)- GetInvoice5-SetInvoiceServicesA-GetInvoiceServicesM- SetActiveY- GetActivee- SetAddress01q- GetAddress01}- SetAddress02- GetAddress02- SetAddress03- GetAddress03- SetAddress04- GetAddress04- SetAddress05- GetAddress05- SetAddress06- GetAddress06-SetMaxExServiceAmount-GetMaxExServiceAmount0 AppendModeUi0 CustomerIDYu0FullName]0ShipToa0VNumbere0Statusi0Ratem0PlatinumUpdateq0Invoiceu5)0InvoiceServicesyMA0Active}eY0 Address01}q0 Address020 Address030 Address040 Address050 Address060MaxExServiceAmountcD$?D$>D$@lL $LPTX\`dhtx|!9 ckInvoiceckActiveckPlatinumUpdateckInvoiceServices edtStatusedtID edtFullNamelblID lblFullName edtAddress01 edtAddress02 edtAddress03 edtAddress04 edtAddress05 edtAddress06 lblAddress01 lblAddress02 lblAddress03  lblAddress04 lblAddress05 lblAddress06btnOk btnCancel  lblShipTo$ edtShipTo( lblVNumber, edtVNumber0 lblStatus4lblRate8edtRate<edtMaxExServiceAmount@lblMaxExServiceAmount_ADlblMaxExServiceAmount_B FormCreate btnOkClickTSysEditCustomerFormTSysEditCustomerFormLgSysEditCustomerHU AppendModeV CustomerIDWFullNameXShipToYVNumberZStatus[Rate\PlatinumUpdate]Invoice^InvoiceServices_Active` Address01a Address02b Address03c Address04d Address05e Address06fMaxExServiceAmountUjjSV3Uhd0d UUXβغQ4Q4Q4UQXEUU0~$@UQXULhUL~$@UQXUP3U\~"@UQXUT0lI3ZYYdhE^[YY]dbPPdataSELECT * FROM tEvent#WHERE Description LIKE 'Reference%' DescriptionUPDATEidDELETEINSERT tCustomerUjS3Uhd0d ˆHt0UEU3ҋ!UEU3ZYYdhE[Y] (ADD) (EDIT)UQSU؋E3UhMd0d HuU3ZYYdhTE[Y]UjSV3UhXd0d UU\\3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhXd0d UU``$3ZYYdh_E^[Y]UjSV3UhGd0d U$E3ZYYdhNE^[Y]UjSV3UhXd0d UUdd,3ZYYdh_E^[Y]UjSV3UhGd0d U,E3ZYYdhNE^[Y]UjSV3UhXd0d UUhh3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhMd0d lUU83ZYYdhTE^[Y]UjS3UhDd0d U8E3ZYYdhKE[Y]UjS3Uh`d0d EE EU<3ZYYdhgE[Y]US3҉U3UhLd0d U<E}3ZYYdhSEm[]ËʈpыËËʈqыËËʈrыËËʈsыËUjSV3UhXd0d UUtt3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhXd0d UUxx3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhXd0d UU||3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhXd0d UU3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhXd0d UU3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhXd0d UU3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]U jjIuSVW3Uhd0d HtETELE܋EHEزEԀItEPEPEPUXƋQ4EEPUEEuE6huh$EItEPM3Ҹ0EPUE2EuE9uhuh$EItEPM3Ҹ@EPUEEuE9uhuh$EItEPM3ҸTItEPd3ҸpUE؋Q4huhEUEԋQ4EEEEPUEEuE9uhuh$EItEPM3ҸuEUuuhEItEPM3Ҹ tEd EuuhEItEPM3Ҹ(tEd EuuhEItEPM3Ҹ@tEd EuuhEItEPM3ҸPUE؋Q4UEԋQ4EEEPUEE~FEhuh|uh$EItEPM3ҸEPUEE~FEuh|uh$EItEPM3ҸEPUEE~FEuh|uh$EItEPM3ҸEPUEE~FEuh|uh$EItEPM3ҸE~&UE؋Q4UEԋQ4EEEPUEE~FEuh|uh$EItEPM3Ҹ(EPUEE~FE<uh|uh$EItEPM3ҸP\tW<$EEhuuhEItEPM3ҸE~&UE؋Q4UEԋQ4EEE؋RJME؋8W EPEIEUEE؋RJME؋8W EԋRJMEԋ8W EPEIEUEEԋRJMEԋ8W E؋RHE̋E̅|+@EEMUЋE؋8W UƋQ4EMuE̅ @EEMUЋEԋ8W UƋQ4EMu ƋQ4EPUEItjEPEPEPUXUEUEUE`tEPM`0EuEhuh$EEMEPUE2E\tmItEPM\@EuEhuh$EuhuEEPUEEdtmItEPMdTEuEhuh$EuhuEUƋQ4E;luEUUEIt3EPUEPUlU YuhuE߫\uE&<$EUEIt@EP<$EEPEUYuh(uEt9EItZpuQEPd(7EHIt!ptEPd(uhTuEt9EItZquQEPd@7EHIt!qtEPd@uhpuEt9EItZruQEPdP7EHIt!rtEPdPuhuEUƋQ4EEPUEEttItEPMtEuEhuh$EuhuEUƋQ4EEPUEExtItEPMxEuEhuh$EuhuEUƋQ4EEPUEE|tItEPM|EuEhuh$EuhuEUƋQ4EEPUEEtItEPMEuEhuh$EuhuEUƋQ4EEPUEEtItEPM(EuEhuh$EuhuEUƋQ4EEPUEEtItEPMPEuEhuh$EuhuEUƋQ4EƋRJMȋƋ8W EPEIEEPƋRJY8W UEUME0UƋQ4˲D֋IHR@XQ4lQ4hUuhEUQ4Q4UQXEUEPMUEEǃ,3ZYYdhEEEEEܺ_^[] tCustomerINSERT INTO tCustomer#(ShipTo, FullName, VNumber, Active,NULL,'',SHIPTOFULLNAMEVNUMBER1ACTIVEVALUES (1,7Status, Rate, PlatinumUpdate, Invoice, InvoiceServices,STATUSNULL,RATE0PLATINUMUPDATEINVOICEINVOICESERVICES Address01, ' ADDRESS01 Address02, ADDRESS02 Address03, ADDRESS03 Address04, ADDRESS04 Address05, ADDRESS05 Address06, ADDRESS06 MaxExServiceAmount,MAXEXSERVICEAMOUNT)UPDATE tCustomer SET ShipTo = FullName =  SET VNumber =  Rate =  MaxExServiceAmount = 0, PlatinumUpdate = Invoice =  InvoiceServices = Address01 = Address02 = Address03 = Address04 = Address05 = Address06 = WHERE id = dbPPdata SELECT IDFROM tCustomerWHERE ShipTo LIKE 'AND Active = 1IDU3Uh%d0d 3ZYYdh,]Ã-m 11151116bdh`z@HJPXN\x~|DFTRZr8:<>BLjtV^flnp1 U"L(*,.554140i:u:6242.B5)4MADeY2}q888888JUU- U U U U$U&U U,U U,U U,( U &U iii8i i i Tuu:u  " (  " (  " (  " ( 0 ( X $(" 2)25A2MY2eqq "q }}(}  " (  " (  " (  " (  " ( 0: -  .  :  $ . $ . $ . $  & $ .  .   . 5  . M  . <}$ . $ . $ . $ . D$ . $ .   . DD   p   Q*$4! (    $ :   $ :   $&   ($  0    (0   6    6    5 6    6    M 6    6    $}$ :   $$ :   $$ :   $$ :   $$ :   $$ :   $@ H  &   ` 2 &!$%" MMQM QQ Q=Y12F    >"H"H"DdQ,B|H@h20\ 2j 20\ 2j 20\ 2j 20\ 2j .j ,n,$~ 8t     20\ 2j 20\ 2j 20\ 2j 20\ 2j 20\ 2j 20\ 2j( D2,>@64&@6:&@6:&*J@6:&R0&N0&N0&N0&@:&@:&@:&@:&@:&@:&$,0&,X,,X,dv@>H .64 @ .640@ .640&4>f00BL0$4$00$4$00$4$00@ .640@ .640@ .640@ .640@ .640@ .640 (df   d >$I   I Q555555 5  5"5$5&5(5*5,5.50525 45"65$85&:5(<5*>5,@5.B50D52F54H56J58L5:N5<P5>R5@T5BVUZXI5DX\Z5FZ5H`5Jb5Ld5Nf5Ph5Rj5Tl5Vn5Xp5Zr5\t5^v5`x5bz5d|5f~5h5j5l5n5p5ri5tu5v5x5z%5|=5~Q5i5}555555)-55E5AY5Mq5Y5e5q5}555 5!555M5a5y5ʍ5̥5555555555555555555559 = AEIM%Y]IaQeUmAqy}K%AzQm$} ! {k #c!z%-b1-9#=IEIYQCUu]aimu{kys ,  %{k5Qa}.r  !%)-159=AEIM 9U`0Y2aaYi`m,q,q@,@,@ 8 `0@!!)`-11-05@99A`EIIE0M@QQY`]aa]0e@iiq`0u2y2ybu}`022`022b`022`022b`022`022b`022`022b`022`022b`022pD QM P=Q aRM Q a