ئhGQWdAX8g.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~ cdMessagesZkcdWindowsZkcdSysInitZkcdSystemZkfTObject.fBooleanNcf AnsiString8fString8gTObject.Dispatch݋RgTObject.NewInstance݋RgTObject.FreeInstance݋RgPosg@LStrPosX,Tdg TObject.Free݋Rg@LStrAsgX,Tdg @LStrArrayClrX,Tdg@HandleFinallyX,Tdg@LStrCatX,Tdg@LStrClrg @LStrAddRefX,TdfInteger|ogTObject.Create݋RgCopyg @LStrCopyX,TdgLengthg@LStrLen?g @LStrLAsgX,Tdg @LStrCatNX,Tdg @LStrCat3X,Tdg@LStrCmpX,TdceGenFnsXg TestForAudit Ut7g SetAuditStartwg SetAuditDataog SetAuditIDg SaveAudit[>ce PPSysMainXgMainFormc&.TSysEditSupplierForm|0*TSysEditSupplierFormrY%LEN_SUPPLIERNAMEDСd%LEN_PLATINUMVENDORIDDСd% LEN_ADDRESS2QС  SysEditSupplierFormr .2f"(TSysEditSupplierForm.FormCreateyVG $!Self!Sender qFormCreate ActionDescriptionfc(TSysEditSupplierForm.SetAppendVG$!Self!Valuec(TSysEditSupplierForm.SetIDVG$!Self!Valuefc($TSysEditSupplierForm.SetSupplierNameVG$!Self!Valuec($TSysEditSupplierForm.GetSupplierNameVG !Self#Resultc((TSysEditSupplierForm.SetPlatinumVendorIDVG$!Self!Valuec((TSysEditSupplierForm.GetPlatinumVendorIDVG !Self#Resultc(&TSysEditSupplierForm.SetPlatinumUpdateVG2$!Self!Valuec(&TSysEditSupplierForm.GetPlatinumUpdateVG !Self Resultc( TSysEditSupplierForm.SetVicTrackVG2$!Self!Valuec( TSysEditSupplierForm.GetVicTrackVG !Self Resultc(TSysEditSupplierForm.SetActiveVG2$!Self!Valuec(TSysEditSupplierForm.GetActiveVG !Self Resultc(!TSysEditSupplierForm.SetAddress01VG$!Self!Valuec(!TSysEditSupplierForm.GetAddress01VG !Self#Resultc(!TSysEditSupplierForm.SetAddress02VG$!Self!Valuec(!TSysEditSupplierForm.GetAddress02VG !Self#Resultc(!TSysEditSupplierForm.SetAddress03VG$!Self!Valuec(!TSysEditSupplierForm.GetAddress03VG !Self#Resultc(!TSysEditSupplierForm.SetAddress04VG$!Self!Valuec(!TSysEditSupplierForm.GetAddress04VG !Self#Resultc(!TSysEditSupplierForm.SetAddress05VG$!Self!Valuec(!TSysEditSupplierForm.GetAddress05VG !Self#Resultc(!TSysEditSupplierForm.SetAddress06VG$!Self!Valuec(!TSysEditSupplierForm.GetAddress06VG !Self#Resultc(TSysEditSupplierForm.btnOkClickzVGQ$!Self!Sender qSupp AmendString AuditStringf sFieldf sValuef sTempValuef sAuditInsertf sAuditFieldf sAuditValuef AuditActionf sOperatorNamef slFieldListf slValueListf nCountf nMaxCountf sStartedfc( FinalizationX,Td\! $c(SysEditSupplier!$cG)F]! a j,ckActive ,ckPlatinumUpdate! , ckVicTrack1 ,edtIDA ,edtSupplierNameQ ,lblIDa ,lblSupplierNameq , edtAddress01 , edtAddress02 , edtAddress03 , edtAddress04 , edtAddress05 , edtAddress06 , lblAddress01 , lblAddress02 , lblAddress03 , lblAddress04 , lblAddress05! , lblAddress061 ,btnOk A , btnCancel Q ,lblPlatinumVendorIDa ,edtPlatinumVendorIDq - FormCreate9- btnOkClickm,lAppend ,lAudit ,AuditActionUpdate ,AuditActionDelete ,AuditActionInsert , sUserName ,Original_SupplierName ,Original_PlatinumVendorID ,Original_PlatinumUpdate ,Original_VicTrack ,Original_Active ,Original_Address01 ,Original_Address02 ,Original_Address03! ,Original_Address041 ,Original_Address05A ,Original_Address06Q - SetAppendM-SetIDY-SetSupplierNamee-GetSupplierNameq-SetPlatinumVendorID}-GetPlatinumVendorID-SetPlatinumUpdate-GetPlatinumUpdate- SetVicTrack- GetVicTrack- SetActive- GetActive- SetAddress01- GetAddress01- SetAddress02- GetAddress02- SetAddress03 - GetAddress03- SetAddress04%- GetAddress041- SetAddress05=- GetAddress05I- SetAddress06U- GetAddress06a0 AppendModeU%M0 SupplierIDYY0 SupplierName]qe0PlatinumVendorIDa}0PlatinumUpdatee0VicTracki0Activem0 Address01q0 Address02u0 Address03y 0 Address04}1%0 Address05I=0 Address06aUcD"?D">D"@l=L ?cX $(,048@DHLPTxckActiveckPlatinumUpdate ckVicTrackedtIDedtSupplierNamelblIDlblSupplierName edtAddress01 edtAddress02 edtAddress03 edtAddress04 edtAddress05 edtAddress06 lblAddress01 lblAddress02 lblAddress03 lblAddress04 lblAddress05  lblAddress06btnOk btnCancellblPlatinumVendorIDedtPlatinumVendorID FormCreate btnOkClickTSysEditSupplierFormTSysEditSupplierFormLbSysEditSupplier U AppendModeV SupplierIDW SupplierNameXPlatinumVendorIDYPlatinumUpdateZVicTrack[Active\ Address01] Address02^ Address03_ Address04` Address05a Address06UjjSV3Uhd0d UU0βغQ4Q4Q4UQXEUU0~$@UQXU$hUL~$@UQXU(3U\~"@UQXU,0l!3ZYYdhE^[YY]dbPPdataSELECT * FROM tEvent#WHERE Description LIKE 'Reference%' DescriptionUPDATEidDELETEINSERT tCustomerUjS3Uhd0d ˆ t0UEU3ҋ!UEU3ZYYdhE[Y] (ADD) (EDIT)UQSU؋E3UhMd0d uU3ZYYdhTE[Y]UjSV3UhXd0d UU443ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhXd0d UU883ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]Ëʈ<ыËËʈ=ыËËʈ>ыËUjSV3UhXd0d UU@@3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhXd0d UUDD3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhXd0d UUHH3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhXd0d UULL3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhXd0d UUPP3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhXd0d UUTT3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]U jjIuSVW3Uhd0d tE,E$E܋E EزEԀ!tEPEPEPU0(ƋQ4EHEPUE2EuE|9uhuhE!tEPM3ҸEPUE2EuE|9uhuhE!tEPM3Ҹ!tEP3ҸUE؋Q4huhEUEԋQ4EEEtE E8uuhDE!tEPM3ҸPtE E8uuhDE!tEPM3ҸhUE؋Q4UEԋQ4EEEPUEE~FE|uhuhE!tEPM3ҸEPUEE~FEuhuhE!tEPM3ҸEPUEE~FEuhuhE!tEPM3ҸEPUEE~FEuhuhE!tEPM3ҸE~&UE؋Q4UEԋQ4EEEPUEE~FE(uhuhE!tEPM3Ҹ<EPUEE~FEPuhuhE!tEPM3ҸdE~&UE؋Q4UEԋQ4EEE؋RJME؋8W EPEIEUExE؋RJME؋8W EԋRJMEԋ8W EPEIEUExEԋRJMEԋ8W E؋RHE̋E̅|+@EEMUЋE؋8W UƋQ4EMuE̅@EEMUЋEԋ8W UƋQ4EMu^ƋQ4EPUE2!tjEPEPEPU0UEUEUE4tEPM4EuE|huhEEMEPUE2E8tm!tEPM8EuE|huhEuhuEUƋQ4Et9E!tZ<uQEP8P7E!t!<tEP8PuhuEt9E!tZ=uQEP8h7E!t!=tEP8huhuEUƋQ4EEPUEE@t!tEPM@EuE|huhEuh uEUƋQ4EEPUEEDt!tEPMDEuE|huhEuh8uEUƋQ4EEPUEEHt!tEPMHEuE|huhEuhPuEUƋQ4EEPUEELt!tEPMLEuE|huhEuhhuEUƋQ4EEPUEEPt!tEPMP<EuE|huhEuhuEUƋQ4EEPUEETt!tEPMTdEuE|huhEuhuEUƋQ4EƋRJMȋƋ8W EPEIEEPƋRJY8W UEUMEUƋQ4˲֋! R@Q4Q4hUuhEUQ4(Q4@UQXEUEPMUEEǃ,3ZYYdhEEEEEܺ_^[] tSupplierINSERT INTO tSupplier((SupplierName, PlatinumVendorID, Active,NULL,'', SUPPLIERNAMEPLATINUMVENDORID1ACTIVEVALUES (1,PlatinumUpdate, VicTrack,0,PLATINUMUPDATEVICTRACK Address01, ' ADDRESS01 Address02, ADDRESS02 Address03, ADDRESS03 Address04, ADDRESS04 Address05, ADDRESS05 Address06, ADDRESS06)UPDATE tSupplier SET SupplierName =  PlatinumVendorID = 0, PlatinumUpdate = VicTrack = Address01 = Address02 = Address03 = Address04 = Address05 = Address06 = WHERE id = dbPPdata SELECT IDFROM tSupplierWHERE SupplierName LIKE 'AND Active = 1IDU3Uh%d0d 3ZYYdh,]Ã-m% !6bdh`z@HJPXN\x~|DFTRZr8:<>BLjtV^flnp9"mL(*,.!!440M:Y:qe>}FB6288 81%8I=8aU899 9 9 9 9$9&9 9,9 9,9 9,( 9 &9 iMM8M M M TYY:Y ee "e qq(q }} "} ( 222 " (  " (    "  ( %% "% 11(1 == "= II(I UU "U aa(a m0m:   .  :m mm q$m mm.m  $m mm.m  $mm   mm&m m m m.m  m m m.m  <$m mm.m  $m mm.m  $m mm.m  1$m mm.m  DI$m mm.m  a$m mm.m  DD m p m Qm*q$4m (m  m mmm $:m  m mmm $m 6m m m  m 6m m m  m m 6m m m  m 6m m m  m $$:m  m mmm $$:m  m mmm $$:m  m mmm $1$:m  m mmm $I$:m  m mmm $a$:m  m mmm $@ Hm & m  `m mmqm2m m& $"m !5 5 2F    >"H"H"DdQ,B|H@h20\ 2j 20\ 2j    20\ 2j 20\ 2j 20\ 2j 20\ 2j 20\ 2j 20\ 2j( D2,>@6:&@6:&*JN0&N0&@:&@:&@:&@:&@:&@:&,X,,X,dv@>H .64 @ .640$4$00$4$00@ .640@ .640@ .640@ .640@ .640@ .640 (df   d >$ }y!!!!!! !  !"!$!&!(!*!,!.!0!2! 4!"6!$8!&:!(!,@!.B9FD!0DmHFY!2F!4L!6N!8P!:R!<T!>V!@X!BZ!D\!F^!H`!Jb!Ld!Nf!Ph!Rj!TlMrp1!VpYtra!Xrevtu!Ztqxv!\v}zx!^x|z!`z~|!b|~!d~!f!h%!j=!lQ!ni!p}!r!t !v!x%!z1!|=!~I!U-!aE!!!!!!!!!!!!!!%)-1=PAEIQgU1]aaiq>y @  a