ئhG'kNXg .TStringList<*gTStrings.GetValueF*cdSysInitZkcdSystemZkfBooleanNcf AnsiString8fInteger|ogFalse1ofString8gParamStrgTObject.Create݋RgTrue1og TObject.Free݋RgLengthg @LStrCat3X,Tdg@LStrCmpX,Tdg @LStrLAsgX,Tdg @LStrCatNX,Tdg @LStrArrayClrX,Tdg@LStrClrg@HandleFinallyX,TdceDbZkg TDataSet.Open4gTDataSet.FieldByName4gTDataSet.Close4g TDataSet.Next4ce PPSysMainXgMainForm9gTMainForm.SetOperatorID4gTMainForm.SetUserID4gTMainForm.SetCaption4ceLoginFrmXgGetLoginParamsd!ceDataModXceConstantValuesSysXgINIFILEDIRECTORYf<c .1f% IMPORTMANUAL % IMPORTKEYED % IMPORTAUTO % BATCHREVIEW % TBSREVENUE % TBSEXPENSE  %REFDATA  % REFDATAVIEW %AUDIT % PROCESSIMPORT %VIEWDATA %INVOICE % CREDITNOTES % USERMAINT % DEVELOPER %PAYABLES (SetAccessRights)1 !AskUser "aAccessf!.b Result  LoginParamsf NewPPIniFilef IniFileNamef ShowLogFormf AskJeevesf sUserNamef sPasswordf sDummyf q lReturn  lSuccessf sUserIDf nUserID nRitec( FinalizationX,Td\! c(AccessRightsSys!cDD?L D@l UQjjIuMSVWMU3Uhd2d"3ۈEU3EЍUE̍Mк MЍEMEhLEPXhE0EкLEE3ɲx}UԋQ4Q4EЋMԺUЋQ4Q4t u'UQXUER@}U3EЍUE̍Mк MЍEMEhLEPXhEEкLEE}t7EPM3Ҹ؍MEMEE;Q4Q4h0uhPEкUЋQ4Q4E"Et(h\uhPEкUЋQ4t t3Eۀ}xRTUԋUUȋQXuhUċQXučE̺E̍UUС}u3jf 3Ҹ}E@| @UBHuR@Q4Q4EЋMԺ UЋQ4$Q4 @RTUDt׋][E@| @UBHuE3ZYYdhEĺEܺE֋_^[].ini'C:\Docume~1\alluse~1\applic~1\ppsystem\1GetLogGeneraldbPPdataSELECT * FROM tUser WHERE ID = AND Active = 1 UserLogin User Access USER NAMEPASSWORDWHERE UserLogin LIKE ''AND Password LIKE 'id FirstName Surname.User and Password not found. Access is denied.FROM tUserFunctionWHERE UserID = ORDER BY FunctionID FunctionIDU3Uh%d0d 3ZYYdh,]Ã-m@*@   J   L. B$ &(d4  , J&$Z.\df^>@   J   LF( n00dN  P&0P*ZT\" dh df \  \0Pdj^" d , J&$Z\(` ^DFFRRT V] v Vv ETj$V   < $(j$V * $,  P P6& 4  < 2 r HJ x"z$|&~(*,.02468:<>@  !%)-1559=A4xpTX^ q i q  e =E  a