ئhGF g .TStringList<*gTStrings.SetCommaTextH*cdMessagesZkcdSysInitZkcdSystemZkfLongint|of TDateTime_IfString8f AnsiString8fRealBYrPfCurrency,eig @LStrCatNX,Tdg @LStrLAsgX,Tdg@LStrClrg@HandleFinallyX,TdfBooleanNcgStrg@Str2ExtX,TdgTrue1ogFalse1og TObject.Free݋Rg@LStrFromString|g@LStrAsgX,Tdg @LStrCat3X,Tdg @VarToLStr kg@VarClrX,Tdg @LStrArrayClrX,Tdg VarIsNullcfInteger|ofTextFileFMfChargQfVariantJh7gTObject.Create݋Rg AssignFileg@Assignf gFileModeDllg SetTextBufg @SetTextBufX,TdgResetg @ResetText+UgReadlng @ReadLStringX,Tdg@ReadLnX,TdgLengthg@LStrLen?gEofg@EofTextX,Tdg VarArrayOfgCopyg @LStrCopyX,TdgIncgTruncg CloseFileg@CloseX,Tdg@_IOTestX,Tdg@LStrCatX,Tdg@LStrCmpX,Tdg @VarFromLStrjg@TRUNCX,Tdg@FinalizeArrayX,TdgParamStrceComCtrlsZkgTProgressBar.SetPositionceControlsZkgTControl.SetTextc_gTControl.SetVisiblee_ceFormsZkgTCustomForm.Createj-gTCustomForm.Showj-gTCustomForm.Hidej-gTCustomForm.Closej-ceGenFns g curFormat:jgConvertCDE2SDF~ gRightyQg AddToTabley)g CleanString~ g DeleteFromDC.gUpdateBatchStatusz3>ce MyMessage f TMessagesFormcO<*g.TMessagesForm8ce FileFunctions g GetFileList#ce DateFunctions gFormattedDateString_tceProgress f TProgressForm%g.TProgressForm<g TProgressForm.ProcessWinMessagesceDataMod ceMain gMainForm.|gTMainForm.ProcessWinMessages(aceMathZkce CriticalTests gCriticalErrorTestptac .1f*' TEC_DEFAULTf(' SFC_DEFAULTf (' VRT_DEFAULTf@( ' UC_SYSTEMIDfh( sSupplierIDfh sRentTransactionGroupIDfj sSystemIDfl qryTelmaxfn sRentTransactionCodeIDfp sServiceTransactionCodeIDfr sRentTransactionDescft sServiceTransactionDescfv sCallCodeIDfx sSupplyCallCodeIDfz qCustIDf| slCustf~ sVRTIDf fGSTRatef sGSTRatef  qryServCodef  sSupplierDefaultTECcodeIDf sSupplierDefaultSFCcodeIDf sSupplierDefaultTECcodeDescf sSupplierDefaultSFCcodeDescf! curValueDefaultTECf% curValueDefaultSFCf) sSWExf1 sSWGSTf1 sSWIncf1 sSWGSTflagf1 sVSWExf5 sVSWGSTf5 sVSWIncf5 sVSWGSTflagf5(GetSupplierCodeID! sSupplierCode#Resultc( GetReferencesa! nBatchNumber Result lSuccessfulf qryTemp qryRef curValuef curValueGSTf sErrorTxtfc( GetCustomerID,!sLastServiceID "sServiceTypeID"sServiceTypeDescf" sCustomerID&cj'RECORD_BYTES_C'PROGRESS_COUNTER_C'PROGRESS_MAX_C'SHIPTO_C'SERVID_CF'EXTN_CF' CALLDATE_CF' ENDTIME_CF'SITE_CF'INLET_CF' DIRECTN_CF' DIALLED_CF' CALLTYPE_CF' CTYPDESC_CF'TIME_CF'COST_CFk( GetUniCCalls\,! nBatchNumber! dStartDate"(!dEndDate"!BatchDescription!FName" lReturnCode& InputTextFilef A InputTextFileBufferf.A ReadStringf ConvertStringf Progressf( nCountf nFactorf nBlockf vSubStringf$ nTotalCountf sFromDatef sToDatef SubStringf sBatchf sListFieldsf sListValuesf FieldStringListf ValueStringListf qryStringListf slAddFieldNamesf slAddFieldValuesf nListValues qryDCf sLastCallCodef sLastTransactionTypeIDf sLastSupplyCallCodeIDf lFound lFinishedf sCallTillfq MessageForm&cj'PROGRESS_COUNTER_C'PROGRESS_MAX_C'SHIPTO_CF'SERVID_CF'EXTN_CF' STARTDATE_CF' ENDDATE_CF'SITE_CF'TEC_CFk( GetUniCRentAa,! nBatchNumber! dStartDate"(!dEndDate"!BatchDescription!FName" lReturnCode& InputTextFilef InputTextFileBufferf0 ReadStringf ConvertStringf Progressf( nCountf nFactorf nBlockf nTotalCountf sFromDatef sToDatef SubStringf sBatchf sListFieldsf sListValuesf FieldStringListf ValueStringListf qryStringListf sUTECStringf LastServiceIDf sServiceTypeIDf sServiceTypeDescf sCustomerIDf sSupplierCodeIDf sSupplierCodeDescf sGSTflagfq lGSTflagfm nListValues qryDCfQ qryTECfA curValuef! curValueGSTf lServiceTypeOkayfcj'PROGRESS_COUNTER_C'PROGRESS_MAX_C'SHIPTO_C'SERVID_CF'EXTN_CF' CALLDATE_CF' ENDTIME_CF'SITE_CF'INLET_CF' DIRECTN_CF' DIALLED_CF' CALLTYPE_CF' CTYPDESC_CF'TIME_CF'COST_Ck(GetUniCSwitchboardaO,! nBatchNumber! dStartDate"(!dEndDate"!BatchDescription!FName" lReturnCode& InputTextFilef InputTextFileBufferf2 ReadStringf ConvertStringf Progressf( nCountf nFactorf nBlockf nTotalCountf sFromDatef sToDatef SubStringf sBatchf sListFieldsf sListValuesf FieldStringListf ValueStringListf qryStringListf LastServiceIDf sServiceTypeIDf sServiceTypeDescf sCustomerIDf sCallExGSTf sCallIncGSTf sGSTf sGSTflagfq nListValues qryDCfa lDummyEntry sLastCallCodefQ lFound sLastTransactionTypeIDfA sLastSupplyCodeIDf1 slAddFieldNamesf! slAddFieldValuesfc(UniCommsInvoicej/,!nBatchf! dStartDate" !dEndDate"!BatchDescriptionb! sDirectory OpenDlg  lContinuef sFilef sRentFilef sCallFilef sSwitchboardFilef slFileListf sPathf sMaskf MessageForm&c( FinalizationX,Td ! ,c(TelmaxUniComms!,cD*@L@4"L@6"L@8"D*SELECT CAST(ID AS VARCHAR(20)) AS TransactionType, DescriptionFROM tTransactionTypeWHERE SystemID = AND TransactionGroupID = !AND Description LIKE 'Equipment%''Equipment not found in tTransactionTypeTransactionType' Description$AND Description LIKE 'Subscription%'*Subscription not found in tTransactionType INSERT INTO tSupplierServiceCodea (Description, Code, AmountCategory, SupplierID, Active, TransactionTypeID, TransactionTypeDesc),SELECT RateDesc.Description, RateDesc.Code, 5 RateDesc.AmountCategory, RateDesc.SupplierID, 4 RateDesc.Active, RateDesc.TransactionTypeID, # RateDesc.TransactionTypeDescFROM (. SELECT RateCode.Description, RateCode.Code, # 'RENT' AS AmountCategory,  AS SupplierID,  1 AS Active,  TransactionTypeID =  CASE* WHEN RateCode.RentType = 'TEC' THEN ELSE  END, TransactionTypeDesc =  END FROM ( SELECT DISTINCT Code = CASE WHEN ((tRate.Length > 9) AND (SUBSTRING(tRate.Description,1,3) LIKE 'TEC')) THEN ('T'+ CAST( tRate.Length AS VARCHAR(2))) WHEN ((tRate.Length > 9) AND (SUBSTRING(tRate.Description,1,3) LIKE 'SFC')) THEN ('S'+ CAST( tRate.Length AS VARCHAR(2))) WHEN ((tRate.Length < 10) AND (SUBSTRING(tRate.Description,1,3) LIKE 'TEC')) THEN ('T0'+ CAST( tRate.Length AS VARCHAR(1))) WHEN ((tRate.Length < 10) AND (SUBSTRING(tRate.Description,1,3) LIKE 'SFC')) THEN ('S0'+ CAST( tRate.Length AS VARCHAR(1)))5 ELSE ('*'+ CAST( tRate.Length AS VARCHAR(2))) END, tRate.Length AS CodeValue, tRate.Description,4 SUBSTRING(tRate.Description, 1, 3) AS RentType FROM tRateg LEFT JOIN tServiceType ON ((tRate.ServiceTypeID = tServiceType.ID) AND (tServiceType.Active = 1))3 WHERE tServiceType.Description LIKE 'UCP %' AND tRate.Active = 1 ) AS RateCodeH LEFT JOIN tSupplierServiceCode ON ((tSupplierServiceCode.SupplierID = ) AND= (tSupplierServiceCode.Code = RateCode.Code))) WHERE tSupplierServiceCode.Code IS NULL ) AS RateDesc0SELECT tSupplierServiceCode.ID AS SupplierCodeIDFROM tSupplierServiceCode)WHERE tSupplierServiceCode.SupplierID =  AND* tSupplierServiceCode.Active = 1 AND& tSupplierServiceCode.Code LIKE lSELECT Code, CAST(ID AS VARCHAR(20)) AS "SCodeID", CAST(TransactionTypeID AS VARCHAR(20)) AS TransactionTypeFROM tSupplierServiceCodeWHERE SupplierID = AND Code LIKE 'TELCALL%')TELCALL not found in tSupplierServiceCodeSCodeID0,'Y','N',TSFROM tCustomerWHERE ShipTo LIKE 'VRT'0id$SELECT tRate.Cost, tRate.Description FROM tRateBLEFT JOIN tServiceType ON ((tRate.ServiceTypeID = tServiceType.ID)# AND (tServiceType.Active = 1))WHERE tServiceType.ID =  AND  tRate.Length =  tRate.Active = 1cost@ASELECT id, code, DescriptionFROM tServiceTypeWHERE Code LIKE 'TECSW' SELECT CostWHERE ServiceTypeID = ,UjjjjjjSVWM3Uhcd0d h|WhEM8W uM躴EtEBRTUUUQXUEuMEt E$RTUUE3ZYYdhjEE_^[]!WHERE tServiceID.ServiceID LIKE '' ServiceTypeIDServiceTypeDesc CustomerID2dd UQSjjIuMSVWً3Uhd0d EUЋh4uuh@Eܺh4uu h@EغEIJEEEE ELEEӍ E`EE3EEE3Uhd2d"UEM 3EEE{GEz?3E3EEEEEċR@ER@E̺EȺE̺uh4Eh@EȺES UE~2E̺uh4uhuh@EȺES UEE̺uh4uh@EȺEU%EUUPxUx󥍅hh󥍅tr0EHEXEER@ER@dEQ4h4uh4EQ4tEQ4EQ4EQ4EQ4EQ4EQ4EQ4UEQ4EQ4EQ4EQ4$EQ4MU0PxUx󥍅hh󥍅to0EHEXEEE~XE̺Pu5hXuEȺ+E̺Pu5hXuEȺES UE~*E̺uh4uh@EȺES UEE̺uh4PEhPEhdPEdh@EȺES UE~;E̺uh4Eh@EȺŰEċQ4UȋEQ4EEES UE~*E̺uh4uh@EȺES UE~;E̺uh4EhEȺŰEċQ4UȋEQ4EEES UE̺uuhXuh@EȺE̺PEȋUE̺dEȋUES UE~*E̺tuh4uh@EȺES UE~*E̺uh4uh@EȺES UE~*E̺uh4uh@EȺES UE~*E̺uh4uh@EȺE̺uuhEȺŰEċQ4UȋEQ4ER@EQ4EċRK|%C3֋Eċ8W EQ4FKuދERK|%C3֋E8W EQ4FKuދEUEEEEE}dEMЋE3EEMr3EEMЋEhEh EEtEUt!EuE}-E غ0XEER@EQ4EQ4EQ4EQ4h5hEQ4EQ4EQ4EQ4MкlEQ4EQ4EQ4EQ4EUEEE3ZYYdhEEEEEE븋E3ZYYdh!dhEEEȺE_^[]'',dbPPdataReading The Telmax Call File(VALUES ( SequenceNo,0000ServiceID, Var05,', ' CallCode,Code;TransactionTypeTransactionTypeSCodeID,CodeAmountCategory'CALLS' Description 'Telmax Call'TransactionTypeDescTransactionTypeID SupplierIDActive1tSupplierServiceCode(TransactionTypeID,SupplierServiceCodeID,TxnDate,TxnTime,: Duration,DialledNumber,RateDescription,Peak,',1,!AmountExGST,AmountIncGST,GSTFlag,,'N', FromDate,ToDate,Var01,Var02,Var03,Var04,BatchID))INSERT INTO tDataCollectionBProcessing (transaction: )...Importing Telmax Call chargesUpdating with applied rates ...UPDATE tDataCollectionSET GSTAmount = GSTrate.GSTAmt,3 AmountIncGST = GSTrate.AmtExGST + GSTrate.GSTAmt, GSTflag = 'Y'kFROM (SELECT tDataCollection.ID, tDataCollection.AmountExGST AS "AmtExGST", (tDataCollection.AmountExGST * ) AS "GSTAmt"FROM (tDataCollectionILEFT JOIN tServiceID ON tDataCollection.ServiceID = tServiceID.ServiceID)DLEFT JOIN tServiceType ON tServiceID.ServiceTypeID = tServiceType.ID WHERE tDataCollection.BatchID = $AND tDataCollection.AmountExGST <> 0+AND tServiceType.Code LIKE 'TQ') AS GSTrate%WHERE tDataCollection.ID = GSTrate.IDddUQKjjIuMSVWً3Uhd0d EƅEEUЋuuEuu EEIJEE EE EEEQ4E Q4E$Q4EHQ4EtQ4ER@Ӎ EEE3EEE3Uh6d0d UEE蚙E왙?3EE3EEEEEċR@ER@E̺EȺES UE~:E̺uhuh uh uhEȺŰEċQ4UȋEQ4EEEԋUEUEPMUEEuEE$EEƅEuE4ƅEM@ES E̺luhEh5hEȺES UEPEE̺uhuhhuhEȺŰEċQ4UȋEQ4EEuhhE̺EԺ@uuhLhdEȺmu3EEEEEԺE ES EEt3EEEEERH5<$}EEQXUEMԺES EEE ES EEt3EEEEERH5<$}EEQXUuERH5<$}PEUEQXU}tm }3EEuuuhuuhmm<$huhuhuhEȺ EŰEċQ4UȋEQ4EEE̺uhuhuԍhEȺŰEċQ4UȋEQ4EEES UE̺E~uhuhEȺ EȋUES UE̺E~uhuhEȺ EȋUŰEċQ4UȋEQ4EEES UE~*E̺,uhuhEȺES UE~*E̺<uhuhEȺES UE~*E̺LuhuhEȺE̺\uuhpEȺŰEċQ4UȋEQ4ER@|EQ4EċRK|%C3֋Eċ8W EQ4FKuދERK|%C3֋E8W EQ4FKuދEUEEE๠EċS hEh5hPEh uh ES EPEUEԺ@uEȺju3EEEEEԺE ES EEt3EEEEERH5<$}EEQXUEMԺES EEE ES EEt3EEEEERH5<$}EEQXUuERH5<$}PEUEQXU}tm }3EEuuhuuhmm<$huhuhuhEȺ EMȺES EhuhuԍhES ER@|EQ4EċRK|%C3֋Eċ8W EQ4FKuދERK|%C3֋E8W EQ4FKuދEUEEEEE} EMЋE3EEMr3EEMЋEh$EhHEEUqER@E3ZYYdh=EEEEEE븋E3ZYYdhEEȺE_^[]'Y',dbPPdata>SELECT tRate.Length, tRate.Cost, tRate.Description AS RateDesc FROM tRateWHERE tRate.Active = 1 " AND tRate.ServiceTypeID = 0 AND tRate.Length = 0Reading The UniComms Rent File(VALUES (ServiceID,Var05,Var11,'','','N',0! AND tRate.ServiceTypeID = SequenceNo,TransactionTypeID,0000, Var06, Var09,'T%AmountExGST, GSTAmount, AmountIncGST,1SupplierServiceCodeID, GSTFlag, RateDescription, NN0,0,0,NULL,'N','TEC Reallocated',XX AND tRate.Length = cost@ARateDesc ServiceType, ' T FromDate,ToDate,Var01,Var02,Var10,BatchID))INSERT INTO tDataCollection,SequenceNo, TransactionTypeID, Var07, Var09,, '&0, 0, 0, NULL, 'N', 'SFC Reallocated', SBProcessing (transaction: )...dd UQTjjIuMSVWً3Uh[d0d EUЋhtuuhEܺhtuu hEغEEEIJEE EEӍ EEE3EEE3Uhd2d"UE E蚙E왙?3E3E3EEEEES UEԺ EċR@ER@E̺EȺE̺uhtE hEȺES UE~2E̺uh8uhDuhEȺEԋUEUEPMTMUEu:EEEE8EEEEŰEċQ4UȋEQ4EE`EċQ4uuuuEQ4ES UEaE̺uhtuhEȺEUEUPpUp󥍅``󥍅t\EUEER@ER@EQ4htuhtEQ4EQ4EQ4,EQ4@EQ4\EQ4xEQ4EQ4UEQ4EQ4EQ4EQ4EQ4MUPpUp󥍅``󥍅tYEUEEE~_E̺uuh0uh0EȺ0E̺<u5h0uh0EȺES UE~*E̺puhtuhEȺES UEE̺uhtPEhPEh\PE\hEȺES UE~;E̺uhtEhEȺŰEċQ4UȋEQ4EEES UE~*E̺uhtuhEȺES UE~;E̺uhtEhEȺŰEċQ4UȋEQ4EEE̺EȋUE̺EȋUES UE~*E̺$uhtuhEȺES UE~*E̺4uhtuhEȺES UE~*E̺DuhtuhEȺES UE~*E̺TuhtuhEȺE̺duuhxEȺŰEċQ4UȋEQ4ER@EQ4EċRK|%C3֋Eċ8W EQ4FKuދERK|%C3֋E8W EQ4FKuދEUEEEEE} EMЋE3EEMr3EEMЋEhEhEEUE3ZYYdhEEEEEE븋E3ZYYdhb\`EEEȺE_^[]'',dbPPdata#Reading The Telmax Switchboard FileX(VALUES ( SequenceNo,0000ServiceID,Var05,'SW','SWSW+AmountExGST,GSTAmount,AmountIncGST,GSTFlag, CallCode,Code;TransactionTypeTransactionTypeSCodeIDCodeAmountCategory'CALLS' Description'Switchboard Call'TransactionTypeDesc 'Telmax Call'TransactionTypeID SupplierIDActive1tSupplierServiceCode(TransactionTypeID,SupplierServiceCodeID,,(TransactionTypeID,SupplierserviceCodeID,TxnDate,TxnTime,: Duration,DialledNumber,RateDescription,Peak,',0, FromDate,ToDate,Var01,Var02,Var03,Var04,BatchID))INSERT INTO tDataCollectionBProcessing (transaction: )...UQjjIuQMSVUE3Uhd0d E ءCPCTCX~ ֋U3EЍUUԋCd`ËRLEFT JOIN tDepartment ON tCentre.DepartmentID = tDepartment.ID3LEFT JOIN tGroup ON tDepartment.GroupID = tGroup.ID"WHERE tServiceID.ServiceID LIKE '' AND tServiceType.SystemID =  AND tServiceID.Active = 1Importing VicTrack PABX chargesUpdating tBatch rates ... UPDATE tBatch#SET GSTAmount = BatchRate.TotalGST,% TotalPayable = BatchRate.TotalIncGST>FROM (SELECT Sum(tDataCollection.AmountIncGST) AS TotalIncGST,+ Sum(tDataCollection.GSTAmount) AS TotalGSTFROM tDataCollection WHERE tDataCollection.BatchID = ) AS BatchRateWHERE tBatch.ID = Batch ': Passed all tests for Critical Errors.3: Critical errors found. These must be resolved &before this invoice can be progressed.@One or more Input files missing or references not available.U3Uh9d0d 3ZYYdh@]Ã-m!-11599=AA EII   h*    j  B  l npY 8t |l   $$  BQ ~4$$$B" 4  BU ~4$$. h BM ~4$"U  >Q  @. h8D] ~  8D eh". h8Da ~  8D ih4$$$$$$$$ M  h@$$"]  >a  @$$"e  >i  @$$$$$$$$$$$$$$$$$$ M  h@$$        M  h >$"M  @. h ""Dm ~""Dq ~   T   ~   ~   ~   ~   ~   ~   ~   ~  -  " ~5  " ~   $}  ~ B} ~      =  h, -  h,$   , ~  5  h:   , ~     (    B" 00"*F  "F  4F     ~   ~z z  l nMA4u hy y&llB~ &~&lB~l n1  !%)-159=AEI<I,B I"Ih I"IhR R R R R  I l 2   I   R I(  ^ T0I jI jI IB"I ,Ih,DI IIIh9,D I IIh"j I>m RI Y.I Y I Y ""DI m j*III h&IIIIIII0IMII&I  Y  Y  I>m RI Y.I Y I Y ""DI m jq jI m I hI m I h!,DI IIh%,D I I2I2I2IhA,DI IIh<ll52DI IIh=,DI IIh<llE,DI IIhI I 2DI IIh)2DI IIh-2DI IIh12DI IIhI IhFI < "I*  IBI h(   ,  $D4  II   IIIII  I h&III,I &III  z&I zzzzz nIl ll n%<> jBR R R     &&&&@,      R (  Z T0 j j,D h<ll"j$}  j j j B B" , ] h2D,  h<ll h  h( j j -  B$ j j j 2D B0-  B$ j j j 2D: 2DDF"F4Fh<ll &h"Dh<ll,D h,D h<ll2D h2D h2D h hF $B" , a 2 h6l2H  j( j j 5  B$ j j j 2D B05  B$ j j j 2D: 2D>F"F4Fh0l &h"D h@ < "*  B h(    F zzzzz n l n)<,B "h "hR R R R R   ,      R (  V T2DH F j j B" ,h,D h"j$ "}  j j j j j j j j<ll Hh4,D  h"j >m R Y. Y  Y "Dm j* h&0M&  Y  Y  >m R Y. Y  Y "Dm jq j h m h,D h,D" 222h,D h<ll2D h,D h<ll  2D h2D h2D h2D h hF < "*  B h(    6 zzzzz nl l nD  u  u  R  y, . ~6J6 ~(8z*DR J jZ j,Z j,Nz$L L L   y y y y y y y y yE  y yFHHI     y y y y y y yBhy B yu  y u  u  z  %Bh B h y$y  u  u z y z n}) l  l  l  l  l  l  l  l  l  l  l  l  l } l q l m l i l e l a l ] l U l Q l M l E l = l 5 l - l n) E2`6N>d,$$$X$$$lX$$$>X$$RR$8p.8p $$$$$$$$$f$$$RR$$$RR$$$$$$$$$$$$$$$$$$$f$$$ 2**l**$$R$>,2nn   4X    bb TNlT N ,     &BLL^  &z -AXTLF>`HX|P \\., .  <H   8DJD :"FV F@<D:D D\f:D\D@f:f:f:f:0$<$<6 " 6 0<b,  \B&  9zP .. &&&&&, .  <H   8DZ"$ X f,T4 >$&&^$&P VX ^$&P PPNL*D>D>f:f:f:0$<$<$ N$$&&^$&P VX ^$&P PPNL*   $<$<6 " 6 <0&  ~P \\., .  <H   8f DJ"P   TD :"FrV Fl DFD:D"D\f:D\f:f:f:f:0$<$<6 ,6 <0&  !$X2",,>J  t4"@<HH, dP * t~ & *rm}Y(Y%Yv YY YY`022Qp)7>A?0pXX y-IqJ(prMP]PMp]a%111}2 8<qI(pRPPm/U00%1E}FFMGJ(pRPPpAi i qqqqa4a5aY5a5` 0X  a