ئhGkvddAX

dIniFilesZkfTIniFile}__g .TIniFileif6KgTCustomIniFile.Createm!cdFileCtrlZkgDirectoryExists Ut7cdDialogsZkf TSaveDialog_g .TSaveDialogxH~gTOpenDialog.CreatekgTOpenDialog.SetInitialDirkf TOpenOptionvgofHideReadOnlycgofNoReadOnlyReturncgTOpenDialog.GetFileNamekg MessageDlghf TMsgDlgTypeg mtWarningqeDf TMsgDlgBtn"b$gmbOK| Bg mtInformationqeDcdDBGridsZkfTColumn*cdClassesZkf TStringList-SB>fTStringsRg+g .TStringList<*cdBdeZkfDBINAMEqg DbiGetProp%hfhDBIObj]hzg drvDRIVERTYPE89!g DbiCopyTablecdDBTablesZkfTTable#fTQuery-g.TQueryg TQuery.CreategTDBDataSet.SetDatabaseName !~gTQuery.SetQuerygTQuery.ExecSQLgCheck,gTDBDataSet.GetDBHandle!~cdSysUtilsZkgIntToStrJ 7gTrim~ gDateN gExtractFilePath~ gExtractFileDir~ g UpperCase~ gNowN gStrToIntg LowerCase~ g CurrToStrFNf TFloatFormat5XgffFixedAg ChangeFileExtwWgExtractFileName~ cdSysInitZkcdSystemZkfString8f AnsiString8fLongint|ofBooleanNcfInteger|ofCurrency,eig TObject.Free݋Rg @LStrCat3X,Tdg @LStrArrayClrX,Tdg@HandleFinallyX,TdgFalse1ogLengthg@LStrLen?gCopyg @LStrCopyX,TdgPosg@LStrPosX,TdgTrue1og@LStrClrfTextFileFMgParamStrg AssignFileg@Assignf gRewriteg @RewritText+UgWritelng@Write0LStringX,Tdg@WriteLnX,Tdg CloseFileg@CloseX,Tdg @VarToLStr kg @LStrCatNX,Tdg@LStrAsgX,Tdg@_IOTestX,Tdg@VarClrX,TdgBreakg@LStrCmpX,Tdg@LStrCatX,TdgTObject.Create݋Rg @LStrLAsgX,Tdg @VarFromIntX,Tdg@VarCmpX,TdfVariantJh7g@FinalizeArrayX,TdgTruncg@TRUNCX,Tdg@HandleAnyExceptionX,Tdg @DoneExceptX,TdgRoundg@ROUNDX,Tdg SetLengthg@LStrSetLengthX,TdfWordvOklg UniqueStringgSizeOffPCharjf PAnsiCharjg @LStrAddRefX,Tdg @LStrToPCharX,TdfRealBYrPgIncceComCtrlsZkgTProgressBar.SetPositionceControlsZkgTControl.SetTextc_gTControl.Refresh_gTControl.SetVisiblee_ceFormsZkgTCustomForm.Createj-gTCustomForm.Showj-gTCustomForm.Closej-ceDbZkg TDataSet.Open4gTDataSet.Close4gTDataSet.GetFieldValue4gTDataSet.FieldByName4gTDataSet.GetActive4gTDataSet.GetFieldNames4gTDataSet.First4gTDataSet.GetFieldCount4gTFields.GetFieldHXh g TDataSet.Next4ceProgressXf TProgressForm%g.TProgressForm<g TProgressForm.ProcessWinMessagesce MyMessageXf TMessagesFormcO<*g.TMessagesForm8ce PPSysMainXgMainFormce DateFunctionsXgStandardDateString_tgStandardDateTimeString_tceDataModXgDM#gTDM.DecodeStringaceConstantValuesSysXgINIFILEDIRECTORYf<c .1f8(ProveForeignKey:!sTable!nID$ "lSuccessf" qryFKc( ProveAnyKey>1:!sTable!sField !nValueb$"lSuccess&" qryAKc( ProveIntegerM::"edtValue " lValueAlteredf" sValuef nLenValue$ sCharf lValueChanged"c(SaveTextq:!s lContinue" sFilef SaveDialog SundryTextFilef( q sTBSdirectoryfc(ProveWholeIntegerM::"edtValuef" lValueAlteredf" sValuef nLenValue$ nInt$ lValueChanged"c( ProveRealM::"edtValuef" lRealValuef" sValuef nLenValue$ nInt$ lValueChanged"c( GridTitleSortP :!Columnf !slQuery nSpace$ SortStringf SortFieldNamefc( AddToTabley) :! sTableInsert!sFieldsb!sValuesb qryAdd slStringsf nItem$ nTotalf$ sResultsf sThisTablefc(UpdateBatchStatusz3>Q:! nThisBatch !nStatusb qryBA qryStringList nBatch nOutcomef$c(YMD2DMY~ !sDate#Result SubStringfc(SecsToHrMinSec~ ! sTotalSecs#Resultf sHourf sMinf sSecf nHour$ nMin$ nSec$ nTotalSecsf$ SubStringfc(GetOperatorReference! :!Operator"sID sOpf qry sQueryStringc( LogOffUser:!sID sUserf qryc(DeleteTransactionsja :!sTableb! nThisBatchb ! sFieldName! sFieldType"(! sOperation" ! sFieldValue""lSuccess&" MessageForm6 qryf qryStringList sFieldf sFTypef sValuef sActionf lSuccessful"c(XCopyToAdjustment(:! nThisBatch ! FieldValuesb"lSuccessf" MessageFormf6 qryf qryStringListf sServiceIDf sStatusIDf nComma$ nCount$ nSelect$ lSuccessfulf"c( DeleteFromDC(a:! nThisBatch ! FieldValuesb"lSuccessf" MessageFormf6 qry qryStringList sServiceIDf sStatusIDf nComma$ nCountf$ nSelectf$ lSuccessful"c( CleanString~ q!S#Result ansf nCharAt$c( SingleSpaces~ 1!S#Result sPadf nSpace$c(Curr2Str`b>!curValue"&#Resultc(curSumPh&! curValue1&& ! curValue2&& Resultf&c( curFormat:j&!curValue&& Resultf&c(LeftyQ!S!N$#Result ansf iOk$c(RightyQ!Sb!N$#Resultf ansf i, iOk$ iStartf$c(QuickCopyTable:!T! DestTblNamef! Overwritef" DBTypef WasOpen" NumCopiedf,c( AccountFormat~ Q!S#Result SubStringf nSubString$c( TestForAudit Ut7"! TableName Result" qry sTableNamefc( SetAuditStartw:!UserName!sAction! TableNameb" AuditInsert& " AuditField&" AuditValue& qryAuditc( SetAuditDataoQ:! FieldName !OldValue!NewValue" AuditData& sStartedfc( SetAuditID$:!ID" AuditValuec( SaveAudit[>Q:! AuditInsert! AuditField ! AuditValue! AuditData" iDataf$ AuditValuesf qryAuditc( TestForTestDB=KQQ" Result" NewPPIniFile IniFileNamef sDSNf sDSNtestfc( SetParameter?e9!:!sParm ! sParmValueb! sParmField qParam sValuefc( GetParameter!:!sParm " sParmValue qParam sValuefc( FileQueryڟ8:!qryDatab!FileName SaveDialog lContinue" CSVTextFilef(1 Progressf4 nFactorf2 sFilef slinef$ nFieldNumber$ sOriginalDirectoryf sUserDirectoryf sCSVStringf FieldListfc( FinalizationX,Td\! :c(GenFns!:cD8@lUjjjSVWM3Uhd0d غQ4Eκ$UQ4UME4UQ4t t3U3ZYYdhE_^[]dbPPdata SELECT idFROM WHERE id = UjjjSVWM3Uhd0d غ EϺ UQ4Eκ0UQ4UEME@UQ4t t3U3ZYYdhE_^[]dbPPdataSELECT FROM WHERE id = UjjjSVWU3Uhd0d 3ۍUE~EEP֋EEu!u WIEE3ZYYdhE_^[] 0123456789USVW3҉ $(UU3Uhd0d 3ɲغQ4Q4 Q4t E 4EE~ Eu3tE=0]3EU<E~ Eu3t EU3ɲFdTFlFTFXFht U+3FPƋR<؍UUEt+EtEUtU< 3ɲEE3ҋQ`E3EEU썅 3Uhd0d EU؋EE؋RN|QF3uhӋE؋8W hEܺE؋RH;} EܺCNuU܍ EEEEN|YF3uhE@$QXhEܺEH;} EܺCNuU܍ EEMЋEEE23ZYYdh E3ZYYdhEܺE_^[]No entries found in table B UserDirectory,Save the selected table values in CSV formatAll Files (*.*)|*.*csvPARMTEXTSaving account data to file ...",U3Uh%d0d 3ZYYdh,]Ã-m.]J LN * 0Z *H .]J LN 0 2Z *H *$\2  &( B|J LN  " , ^$e    ^$e  "` ,b $"       6*\D ",4 J 6 *\D  ",:  L%,%J\,d% ", (% $% $% 2\ % ((% $% %&% B% =@= F6 = &= F=@  = &= F=@  = "]J L=NPR=== =  e4e*6 ]J LeN eeZe&P*e$e$Ze eeZe"PReeeZeZe fee]Ze"PRe &6**  4.h4 0 "Z\Z\  Z\    X( \j  6 J LN &P2 !Z   fi&*R " \j  J LN   fi& *R YDU  d6 $ Z$  0.J LNPR $ %%F%U "%  *6 %%%%Z% %:%  % %(%% $%&% b%  % %(%% $%&% j% ,J L%NP%R  *% YFYU "Y  (6 YYYZYY8Y  Y Y(YY "Y$Y lY  Y Y(YY "Y$Y lY 4J LYNPR $Y &  6  0 ( 0&  $ .   4,l    2 2   2$  40H (%6< T  V B T2 1(1 B1 41, \61 01, 61 41, 61 01, 61 01, 61 1 61 1,1( 1 EE \"J LEN E E EE*>"E Y0YJ L Y NY Y  Y Y fiY YYY =y(y y y y,y yy(y y yy4y 0 J LN4R F  t r   " "qud . .]J LN    * !&d&  *    0  0$   *  & *R $]J LN    * ! .!$ ^6 L  "  2    "` ,b  "E F  " )46* $  -]I1$5,1 $   9:     %=== A Ay !B, :P:RB,::R:R>&""N6    f<x hV  HJH(N>JH(T@@> @>F$<@6 lT"6J*8J*8,H ,\ZJ\ :X(B     & **  *   6zL<*6" HP$"F xNR6*F  xLRAX  4^80"4l "N$ Z"&^X \:6"X \:6N". n"iZ"&\X \84,X \84N h: :<zX$:~X ( (   `80N H,XPL@fR <NJNJJh$hX2    P0L D%< Z^ D . ^R:4j",P qB,  L>  L8rr 8`RLR }8,  L(@8R*yr Z < V:$"  & $`0 $p06.: A1m< "IAe9% Y - $- &a ( 1, . 0 2= 4 6 8:<=>)%BiDF HJNER TUVXeYf yj1n}pt ʹʽ !!%)i-i159A%E)I)M9Q=UAYA]EaIimquy}1155559A E IMQUY!]) - 1 5 9! =) A- E1 I5 M9 Q= UA ]) a- e- i= mA qE uI yM }Q U Y ] = A E I            - - 5 9 = a a i m q u u   ! % ) - 5 9 = A I M Q U ] a e i m q u}---1=}} UUU]ae e uy}!%)-159==pBB napBB np> BjpR q)Q  pNx IQY i  p!Nx !I!QY i!%(p-@1Y111A-E =8pATAhUIUUUM)MexpiHyL iLutqy uIq ` 0::@pBFJZpv )p< <fQI`06aH pXx ! U!!U !U%XpR)ZM)QIIqQMI9IQ Q Q YPp]Z q] } }%} }um mm q  0::Nl)Yy)0::Nl!1@ 4  p888 L||` pH tt `P02L)^)1(05<9<5PAdA A A 9 E0I2IFQMQMY0]DaDu`ut]ayp<<}< P}`0   pDD DXx@(0pBB ni  p88 dpR r    )e ) ) )1 = A a