ࡱ> /~.  !"#$%&'()*+,-:y123456789t<I>?@ABCDEFGH;JKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrsuvwx{|}Root Entry F?lđW0<WorkbookW_VBA_PROJECT_CUR"aWP; 107K 40==KE<O ?>;L7>20B5;O4. 0AE>4=>9 >?5@0F884. @C??K B>20@>2 ";:>3>;L"<O 2KE>4=>3> D09;0"M3 :>4 B>20@0 ()>4  08<5=>20=8524. @C?? B>20@>2 8A:;NG5==KE 87 @0AG5B0 (G5@57 ;)masterout.xls $09; H01;>=0'D:\Papyrus\Src\VBA\AlcStatistics\in.xls!?8A>: A:;04>2 (G5@57 ;) bagirov_CH"53 ?5@A>=0;8O - 8<?>@B5@base2 i:\ppy\dd\AlcStatistics_v\in.xls38;104;94;133;126  F8 zcc&   -0  dMbP?_*+%M \\BUHGALTER\HP LaserJet P2050 C 4dXXA4DINU" "NQ SMTJ HP LaserJet P2050 Series PCL6InputBinFORMSOURCERESDLLUniresDLLESPRITSupportedTrueHPDocUISUITrueHPNUseDiffFirstPageChoiceTRUEResolution600dpiFastResTrueCollateOFFOrientationPORTRAITHPOrientRotate180FalseDuplexNONEPaperSizeA4HPEnableRAWSpoolingTrueMediaTypeAUTOColorModeMonoEconomodeFalseTextAsBlackFalseTTAsBitmapsSettingTTModeOutlineJPEGEnableAutoAlternateLetterHeadFalseHPPaperSizeALMConstraintsSTATEMENTHPEnableGrafitCompressionTrueHPRequestObjectTagDumpFalseHPRequestNullStripCommandFalseHPHybridRenderSwitchHPHybridAutoHPManualDuplexDialogItemsInstructionID_01_FACEDOWN-NOROTATEHPManualFeedOrientationFACEDOWNHPOutputBinOrientationFACEDOWNPrintQualityGroupPQGroup_2HPLpiSelectionNoneHPDocPropResourceDatahpchl6bu.cabHPColorModeMONOCHROME_MODEHPPDLTypePDL_PCL6HPPngPassthroughTrueHPPJLEncodingUTF8HPDuplicateJobNameOverrideSWFWHPJobAccountingHPJOBACCT_JOBACNT_GROUPNAMEHPJobByJobOverrideJBJOHPJobAccWoPinTrueHPBornOnDateHPBODHPXMLFileUsedhpc205h6.xmlHPEnableObjectTaggingFalseHPEnablePageTimerFalseHPSmartDuplexSinglePageJobTrueHPSmartDuplexOddPageJobTrueHPEnableNullStripsTrueHPEnableEfficientMonoFALSEHPEnableImageProcessingPathFALSEHPMonochromePrinterTRUEHPCallToWritePrinterRequiredTRUEHPMemoryManagerTrueHPGetCompressionRatioValue17MaxStripHeight64HPGetByteAlignedValueForWidth256HPGetDeltaRowHalfToneValue1HPPrintOnBothSidesManuallyFalseHPPaperSizeDuplexConstraintsEXECUTIVEHPMediaTypeDuplexConstraintsHEAVYHPPCL6PassThroughTrueHPStraightPaperPathFalseHPPageExceptionsFileHPCPE6buHPPageExceptionsLowEndHPPageExceptionsLowEndVerHPPageExceptionsInterfaceShowPageExceptionsHPPageExceptionsCoverInsertionPSAlignmentFileHPCLS6buPSServicesOptionHPServiceFileNameEndHPSmartHub_OnlinediagnostictoolsTRUEHPSmartHub_SupportandtroubleshootingTRUEHPSmartHub_ProductmanualsTRUEHPSmartHub_CheckfordriverupdatesTRUEHPSmartHub_OrdersuppliesTRUEHPSmartHub_ShowmehowTRUEHPSmartHubInet_SID_263_BID_514_HID_265HPConsumerCustomPaperTrueJRConstraintsJRCHDPartialHPPreAnalysisTrueHPManualDuplexDialogModelModelessHPManualDuplexPageOrderEvenPagesFirstHPCustomDUplexableRange3x5_8.5x14HPMapManualFeedToTray1TrueHPManualDuplexPageRotateDriverRotateIUPHxMkAǟm1DmK.z *j[[+]c싅@[AįЏK=x og%k^Eۘoxfgfvw`gy`J$q` tiŶlw%#È~"s\GsWv;;I!ݕZTdo\ٖ f!`끯hZa~ t TĜWReB#Ȝ$xy5.Vx*W@zpdq蓐s~eX W'|!$ yrj؁_k G! *[mHGzSmy 'bْ]G=hOP9̜p!;5̌,\vY4BDIOoȾ'8ݶ?>iQjV/uU!HgePln&2#5?ľ}{mv@7 8AB1  SMT  dMbP?_*+%M \\BUHGALTER\HP LaserJet P2050 C 4dXXA4DINU" "NQ SMTJ HP LaserJet P2050 Series PCL6InputBinFORMSOURCERESDLLUniresDLLESPRITSupportedTrueHPDocUISUITrueHPNUseDiffFirstPageChoiceTRUEResolution600dpiFastResTrueCollateOFFOrientationPORTRAITHPOrientRotate180FalseDuplexNONEPaperSizeA4HPEnableRAWSpoolingTrueMediaTypeAUTOColorModeMonoEconomodeFalseTextAsBlackFalseTTAsBitmapsSettingTTModeOutlineJPEGEnableAutoAlternateLetterHeadFalseHPPaperSizeALMConstraintsSTATEMENTHPEnableGrafitCompressionTrueHPRequestObjectTagDumpFalseHPRequestNullStripCommandFalseHPHybridRenderSwitchHPHybridAutoHPManualDuplexDialogItemsInstructionID_01_FACEDOWN-NOROTATEHPManualFeedOrientationFACEDOWNHPOutputBinOrientationFACEDOWNPrintQualityGroupPQGroup_2HPLpiSelectionNoneHPDocPropResourceDatahpchl6bu.cabHPColorModeMONOCHROME_MODEHPPDLTypePDL_PCL6HPPngPassthroughTrueHPPJLEncodingUTF8HPDuplicateJobNameOverrideSWFWHPJobAccountingHPJOBACCT_JOBACNT_GROUPNAMEHPJobByJobOverrideJBJOHPJobAccWoPinTrueHPBornOnDateHPBODHPXMLFileUsedhpc205h6.xmlHPEnableObjectTaggingFalseHPEnablePageTimerFalseHPSmartDuplexSinglePageJobTrueHPSmartDuplexOddPageJobTrueHPEnableNullStripsTrueHPEnableEfficientMonoFALSEHPEnableImageProcessingPathFALSEHPMonochromePrinterTRUEHPCallToWritePrinterRequiredTRUEHPMemoryManagerTrueHPGetCompressionRatioValue17MaxStripHeight64HPGetByteAlignedValueForWidth256HPGetDeltaRowHalfToneValue1HPPrintOnBothSidesManuallyFalseHPPaperSizeDuplexConstraintsEXECUTIVEHPMediaTypeDuplexConstraintsHEAVYHPPCL6PassThroughTrueHPStraightPaperPathFalseHPPageExceptionsFileHPCPE6buHPPageExceptionsLowEndHPPageExceptionsLowEndVerHPPageExceptionsInterfaceShowPageExceptionsHPPageExceptionsCoverInsertionPSAlignmentFileHPCLS6buPSServicesOptionHPServiceFileNameEndHPSmartHub_OnlinediagnostictoolsTRUEHPSmartHub_SupportandtroubleshootingTRUEHPSmartHub_ProductmanualsTRUEHPSmartHub_CheckfordriverupdatesTRUEHPSmartHub_OrdersuppliesTRUEHPSmartHub_ShowmehowTRUEHPSmartHubInet_SID_263_BID_514_HID_265HPConsumerCustomPaperTrueJRConstraintsJRCHDPartialHPPreAnalysisTrueHPManualDuplexDialogModelModelessHPManualDuplexPageOrderEvenPagesFirstHPCustomDUplexableRange3x5_8.5x14HPMapManualFeedToTray1TrueHPManualDuplexPageRotateDriverRotateIUPHxMkAǟm1DmK.z *j[[+]c싅@[AįЏK=x og%k^Eۘoxfgfvw`gy`J$q` tiŶlw%#È~"s\GsWv;;I!ݕZTdo\ٖ f!`끯hZa~ t TĜWReB#Ȝ$xy5.Vx*W@zpdq蓐s~eX W'|!$ yrj؁_k G! *[mHGzSmy 'bْ]G=hOP9̜p!;5̌,\vY4BDIOoȾ'8ݶ?>iQjV/uU!HgePln&2#5?ľ}{mv@7 8AB2   [UV  dMbP?_*+%"??U     ~ @~  @    D   >@  7 8AB3 -B0=8308AB1 8AB2  &8AB3 9  !"#$%'()*+,-./012345678:;<=>?@ABCDEFGHIJKMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvxyz{|}~Dr#<&d'Ʀm H k Fsn@֊o#.xsn@֊o#.&d'Ʀm H k ME(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%H@h % %Xp@@TT0rU$*\Rffff*0?550175834xAttribute VB_Name = ""  Bas|0{00020819-u 0C$0046} |GlobalSpacAFalse dCreatablPredeclaIdTru B@ExposeTemplateD0eriv$Bus`tomizD2Dr!#<# 5N]EC F>W(AKx>W(AK# 5N]ECME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H@h % %Xp@@HH0rU$*\Rffff*0@550175834xAttribute VB_Name = " 1" Basp0{0002`0820- C$0046} |GlobalSpacFalse CreatablPredeclaIdTru BExposeTemplateDeriv$BustomizD2Dr#<{wjaPGfl0" FqOE+xqOE+{wjaPGfl0"ME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H@h % %Xp@@HH0rU$*\Rffff*0A550175834xAttribute VB_Name = " 2" Basp0{0002`0820- C$0046} |GlobalSpacFalse CreatablPredeclaIdTru BExposeTemplateDeriv$BustomizD2DrR~#<ϋINjm F%@]mS?x%@]mS?ϋINjmME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H@h %  %Xp@@HH0rU$*\Rffff*0B550175834xAttribute VB_Name = " 3" Basp0{0002`0820- C$0046} |GlobalSpacFalse CreatablPredeclaIdTru BExposeTemplateDeriv$BustomizD2LC@dxMEMain =#pFiltForm L slib {AddPpyRef% 0"Hp x     (08@HPX`hpx B "   (8` h p     08@ B HPX`h B  D8(T=xRxRRRMEP@D HL$(,48@@.<<@J<<< <(<0< 8<@Hh@`(Bx%hF!@#$%^&P%%J hLhNhPhR0hTHhV`hX^ %NotFound% %0%PH%ph %$%%%%+|0 i~Pi` ``+X)0  %`+H i) %i``` +0 44)(%`` ,%` VV (% 0% 4% 8%`L``N`V h % ,%` `   AA 8 <% X @% x D%  8%`L``N`V   % 8 ,%` `p +(  i`  8%  RR`` `"``*`   %`,`0`` :   <   >   @P 8  V p  B 8% D 8%`F+N`(iP`L V!!`X `` dJJ`l``n ~``˜$B&H*(HZx\xbf(jHn@hrhvxzPx@XPxxH`((   h0("8  x.rU(*\Rffff*0=55017c6c\0(*\Rffff*0=55017c6c\1-     08@PX` B hp       (0 8 &@ @h b @ 6`  : > >0 p . H J JX P H 0@ $p  ,  (( P Pp $    ( H "` h p x    "      ( H `  h         P(  x           (@Hh x ,  8X` 4 P (8HPXh "   "(0 8@H Ph   8PX p            8 HX`         8 HPXx B    "(0 H `     ( @  .P . & & $"( @P D @ D @` 2 (@ P`    0 0  0( 0X  0  "    @ `        ( H  hx   B " "  8H`h .. .8.h  ... .P  . F 0 "8 @  H  X  h x   *  ! ! (! H!  X!h!(x!(!*!!("@" `"h".x""""" # # (#8#@#  `# p# ## ## ###$$ $($ 0$8$@$H$P$X$h$p$x$$$$$$$$  $$$$$%  %x]D]D!@#$%^&]DNotFound]D (] (x^^^D_RE^^^0^H^`^p(] P^^^^^0^H^`p]@P]@x]@x]@]@]@]@]@@]@h]@]@]p' ~ H!8 b% J'k0  H!:$ ]' H!:$ '    ~  H%: b% 'k  'xkp   ~ H!>  B@ 'k If Len(code) <= 0 Then code = NOT_FOUND_CODEEnd Ifk '|i]@'  ' 'ipX]0'' \$ '     $\!L' $\' 'k  ' 'iH]]' !~  ^% !' H!F ]  H!F j%'  %' 'd'k ElseIf Cfg.ImportKindID > 0 Then: v = AdvPsnObj.IsBelongToKind(cli_id, Cfg.ImportKindID)k(k   $'i\Private Function IsImport(ByRef pTrfrItem As PapyrusInterfaceLib.SPpyVI_TrfrAnlz) As Boolean Dim is_imp As Boolean/ Dim grec As PapyrusInterfaceLib.SPpyO_Goods is_imp = False4 If GObj.Search(pTrfrItem.goodsId, grec) > 0 Then7 Dim psn_rec As PapyrusInterfaceLib.SPpyO_Person8 If PsnObj.Search(grec.ManufID, psn_rec) > 0 Then is_imp = True( If psn_rec.Status <> 12 ThenA Dim loc_rec As PapyrusInterfaceLib.SPpyO_LocationC If LocObj.Search(psn_rec.MainLoc, loc_rec) > 0 ThenlesD Dim world_rec As PapyrusInterfaceLib.SPpyO_WorldareJ If WorldObj.Search(loc_rec.CityID, world_rec) > 0 ThenB If grec.ManufID = world_rec.CountryID Then* is_imp = False End IfVN Else & is_imp = Falserv End If Else Fi" is_imp = False End IfinJ ElseIf StrComp(psn_rec.name, "", vbTextCompare) = 0 Then is_imp = Falsees End If End Ifm End If IsImport = is_imp S End Functionmon0h]p]]  %.Mi %.su H!0! H!0! B@MSD H!6 (  (og  (le] H!BB@  H!B% \Co ! B@;Cp (  B@i B@  % n !N (N;c: ! (:\a ! (\bi] !~ L$|ja I item.rest = AdvGObj.GetRest(item.goodsId, item.locID, Cfg.Period.Upp, 0) L p] 8ke]P L  $ (N-m (Rn\ (Vng (T (P\Pk !N'Nes rest = item.rest]p !~  ^% I ! (;CkH !N ! (NC:\% item.rest = item.rest * grec.PhUPerUilk] $'f L (LFI  !P !N (PFil !T ! (Tgrakx !N !N (N So !R ! (Rin\. goods_item.rest = goods_item.rest + item.restC:J goods_item.RestAmount = goods_item.RestAmount + rest * (item.cost / qtty)   +\d] \$' \$@\  +\k@k8k0  A@ !A@ B@..o] ]@ ]`  %. %. H!0! (Z  (] H!BB@  H!B% ! B@  B@ B@  % ! (] !~ L$|]   ] L  $ (N (R (V (T (Pk !V'V] !~  ^% ! (kx !V ! (VkP ]@ L (L !V !V (V !X V ! (X   +\d ]X \$' \$@\  +\k k  A@X P H !A@0 ..o  ]  '   v% !'k 'i ( ]h    $%&B@(]    ] !$!$. H!<' \$ ' * ]0 H ]` *$\' !L$'  !V  (V !V'0 !N $8 G 2%4(6 !P $8 W 2%4(6 !RX g 2%4(6 !TX w 2%4(6 0$8  2%4(6 !L 52.25.10.112e :ActiveSheet.Cells(66, 35).Value = Round(item.qtty / 10, 2) =ActiveSheet.Cells(66, 92).Value = Round(item.ImpQtty / 10, 2) :ActiveSheet.Cells(67, 35).Value = CLng(item.Amount / 1000) >ActiveSheet.Cells(67, 103).Value = CLng(item.ImpAmount / 1000) :ActiveSheet.Cells(68, 35).Value = Round(item.rest / 10, 2)k0 , !X ',]x    ]X ] vB@ B v% ]  'F B! D x%H 'F B! D z%H e'Fk  F F$> B!G 2%4!6 F+> F$@ B!W 2%4!6 F+@ F$: B!g 2%4!6 F+: F$< B!w 2%4!6 F+< F$V B! 2%4!6 F+Vk $>G 2%4(6$@W 2%4(6$:g 2%4(6$<w 2%4(6$V 2%4(6 $>"G 2%4(6$@"W 2%4(6$:"g 2%4(6$<"w 2%4(6$V" 2%4(6 (J  $B@L $B@B (Jo( ]H P T$R#'L L'Ni`]] !$!$. H!<' $Z  %^ B@\kp H!@ !`B@b  $B@L H!< %`B@( $%&B@(8 2%4!6$N vB@b8 2%4!6$N xB@b !  8 2%4!6$N vB@b  8 2%4!6$N xB@b ##8 2%4!6$N vB@b##8 2%4!6$N zB@b %(  8 2%4!6$N vB@b  8 2%4!6$N zB@b  )+  8 2%4!6$N vB@b@ BeerRowList.Add i, 0, SplitCode(ActiveSheet.Cells(i, 56).Value) oH.L. $j](@X 2%4!6'l 2%4!6' !r l  n %p A@t l 2%4(6  2%4(6 vB@x , %z'Z 2%4!6 % H(6 2%4!6 % H(8 2%4!6; H!:A@| 2%4!6 H(<  2%4!6 % H(>  2%4!6 H(@]p H/B  2%4!6; ~$| ] ~$ '   $~ $~ H!BB@bk k  2%4!6 H(F.v.x.z  %.^ ^.b  %.f f.j  %.n  %.rA@VA@A@ A@kkk !A@h.v.x.z.b.^.j.f.n.r H/B \rA@ 2%4B@HReady (o%_Attribute VB_Name = "Main" Option Explicit PrivaConst begRo wb2 2DELIM!@#$%^& tNOT_FOUND_CODE)NotFouDnd*NAM* 8ub! FilKrmOK As Bo oleanType fig  PeriodPapyrusInterfaceLib.SDuRange@endOpILon"AlcGr $ ExclA sId() OutReQS&GoodsCo deTag TemplLocLi btrA sscImport/End AG3yCQCfK CBO'Itemc*A)I0qtty\DoNQAm|t re9=IRO 3Na tiveCAryIDAj5sRk:EGObj 9YPP GAdv IPsnso&[ H@H @' WorldɃxdesVVSppirt?H]%Vxine`FFunc Check;(ByVal guG, ByRef paw7CbFaDim r r`Fals ef dG.Bel ToGroupR(, s., 0) > 0 xThe B aa TLruD AbIf$f@=  A@`Array_Gezt"d(  i, cEy 5i0= #<- 1While i <=_   aI'fg.i)(% 3)*ei +JU06Util.0Lue ppoO,eN?b$,N% Len(Q)&C= '^@'b`= [}'YG5P"r 7hF8Zl#Bb7rR[]wArror 0cuqNexP ,l,s lw+UB-d(c) t~l 6 APDBg?VD! BPos E 8,03%6,oG p= -6 !:sl2a\) :C:FE'; 0%QComp*, (i).&~=L7M1ppiiWy(;WV;*'*sTrfr CPpyVI_aAnlz/!"li_iV, v !grecQ0O_$v DY!.Se@arch(p .Gf_ cC = .ManufID1dja tag #s7'=pӍ.Formaѫ(Pf)UTo10(, Q2s1h!Evz5oD%=&'KindrU!v.IsQtg Is` IPIf(v,, n0U-X'.#X#o(ԯ. is_imp1&F.=# B..sb psn_6'6嵖@+d6)3{CI6 O4 .Status <> 1G,5 loc5 PapyrusInterfaceLib.SPpyO_Locati@on ' If tObj.Search(psn_rec.Main2, loc ) > 0 T heDim world- As W&F.CityID,e(ghnufID =.Countr*l"is_impFalse_End IfE"20@dStrCompname, "", vbTextare)HV!   IsImpoma, ', Ao ;(% 0.Amrrdp[oBFhQ+ _v ="q' "?R(bb .9 bPhU+U <=x= 1_ O  " R-* _9@4Bool|eaWD= AhIH&>a4ï+O +?);v2ontYo =AO 8  mC$ ')R"J _m.x+>* Sb=rk/RB!U >6h Xs1(W ca.c2VP.d#0-sArray_`N( RReAPerve mb )h߁gB_( ^[=ProFsqon!c:MsgBox (`.Descr\ip QCEr4 s4XNothq! Bv Sub Priv A(aifgq Q AUs PapyrusInterfaceLib.PPFiltGoodsRest Dim view AV: htSett= Sess.CreatBe\(ppv2)-f =4-(0"($.DI)Cfg.Period.Upp flags gr@vfNull loc_itemjSTaggedS`tring*4LocList.InitIationWhile Nex(8) > 0eAdd,&ID .ID{Wend?  I KGA?" .costMAb0!os!(j K E`m+a#A(c"gO`O= " Array_ {C( aRe P%erve 0 @|AnFPro`LssBarB, " "# GoTo s errors:#MsgBox (Err.DescripaLNothmxzv Sub @ PrivvF(uncA RowByC`(ByRef p/Ca)ro"AN,&!Db.w ߱P'`(s EByTv(rͿE 2IDI @` %@ nta("path1 , er_a`-malc^SA@veWork book.sheets(2).o ij4W\rtotal_D t ytLastSlash(Applic ) &2OuteName<<t) -u\For j 0 /s߱= Cn 3,)A">j!)z0B%[h*kSVq Pq/ 1La#=_W  #$SQ#.@Cells(`, 71).ValueRdy"q, 2 a87em.#F 103CLngC j0Q19R  /"135?l@&Comp \52.25.10.11\2"b,N'?66, b" (9C%(67+ ,_ %" ? ivei/68oT/ *`Q= g3 ֓cS7Vamt\V,ppYdecal~7QDim titem As PapyrusInterfaceLib.STaggedString  CodesRowList.InitI^ation>While JNexJ() > 0`Tsub_&, idxLoG= -1YIf SpirtSearchById.ID, =J Thee)+WElse,Vine@,WEnd If _i>= 0Ktotal_decal() =  + ActiveSheet. Cells|71).Value&347&16&9&;4&7&.&ApplicB.DisplayAlerts,Fa FWorkbook.SavepathPClosA TraaSub Privat e Funonlit(ByRef pBuf!ƒ)GAc`+b= (a, " ", , vbTCompare)VS" y A  pRead@A(DFnot_emptyaBoolleaΡi, (C"etLastSlash()cy2) & Cfg.OutF@Nam'0lEx}s(), ),gUtil.Remov e ToCharb$5l9 s.AddTP~l@3 < $"(y, ).bO)qsps(2}A 27, 0,&3 t!56\1de( For i`&29 To 33S z i L}  탟 ! i S 35/ , != ?9oo37}4   U 41 _ Q ' Beer/ Sa !@PPCPMainuPO n Err-Go-es#Set SesQfNewo`PP&H2PPNIs@idObj(NaXdbsymbW, nSpassword_7t=o(1, @HRJ  ².LoginDialogz`Hwnd, 3 Qes `. 0tInFlaߣ 0qN2 0Qft/m.ShowϫkOK NveCountryIDQ!.Get5*2#DafExp OpdIdToz\(N4aAlcG~r҈To_qArra0oP@l; clGrpsId  Cfg.OutFileName = ActiveSheet.Cells(8, 2).ValueGoodsCodeTagUtil.ToLPong(9M)NTemplat10PDim loc_list() As K!Set Lo cLcNew PapyrusInterfaceLib.StrA ss#If SplitTo_4 Array11c, ";",R) > 0 Then.ށhidcountm@ =B@&_Get C(H) - 1For iE&o+ A@BE<(i5 `.ALddE@, ~""End IfNext i !Importsôϱ12+sRowzSpirt?t Vine[^GObj`CSess.Crewect(ppoƒp}AdvD3aPsn Person S ~X ati WorldaRead`/s!BOCalcData3Rest/Print ]iGoTo ends errors:C MsgBox (Err.DescripD"5HJothingMW,RFNMI@@7fBn>jȘbErase Item>Log ou9P, 1)0.Seljc Ap `cRatusBar "aJy`A:Sub (SPSSS0{5B748D8C-47EF-474C-AABC-213B43976A42}{F5A0A46B-133B-4E10-835D-F1CE5EBD48B2} @ iREiALC  `0`p% %@prU$"( " 08 @P "X` hx "      @PX`p', Z$ (doP@' vA@ro(', vA@rop]@]X : '' !' !d % H(0''', vA@r !  A@ B@orAttribute VB_Name = "FiltForm"  Bas|0{5B748D8C-47EF4C-AABC-213B43976A42}{F5A0A46B-133B-4E10-835D-F1CE5EBD48B2} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustom4izDP Sub User_Initialize() sOKPA P9odFld.Text Year(D(End+ 3QueryCll(Cancel As Integer,  Mode D#D = 0C'Unload ) T Btn_CliLck7OkOn Error @GoTo es*Dim_ad@v_infoA7S ngadd_xstr : b@G@C mLbl.CaptionC Cfg.ArUtil.&TosRange({cH$"J.gYNndM.ors:(MsgBox (+.Descri & &+dClSResue  FrU~|  (+ ,n-rU(*\Rffff*0755017562\2(*\Rffff*0755017562\3(*\Rffff*0755017562\0(*\Rffff*0755017562\1 H H H0 H@ HP H` Hp           0  @P px      (0 8 HX `hpx    <( hB p(x "B  B  (08PX B `hpx     ( 8@HPX B `hpx   z\4|#5oOpenProcess4GetExitCodeProcess\ FindFirstFileAHFindNextFileAlGetFileAttributesAFindCloseGetOpenFileNameAxRRRRRRR RME`,048@< LT\H$D(@@@<<@@<< < <<(< <0<8<2<@  )    `+|p i@@ i&` )B  'ip `D F ' ` ``H`P +J i@  ^i& )B(  H  `D Fx  El` `en`Obj.`Hd, C`( +L@ i@`lz) i&m is)Bm grerfaceLi `D_imp+.8 iNn_re+Px iR ) > iT _impiV psn`X en`Z \Hih i^$iR iT 8iV ()`HP.%idp@ iif!0 h %`l+p(hiHir! % v!~ %+Z( izi| `~ +h ix i` `!V`!X X0)vP\$ % iH i.i +8 ""i Xi x $ili!$i$`D *` 0 tH+    pi6` `!L`+@ i$lls(impQtiSheei0(iteiPSheei pg(iti:Acie = `D , 2)  '$% $%   $%`  )(%i  ,%  ( )HP (%)px40%iu i$Vi F+V 4% $@)`h2%(%)(60%i$Vi i $> (64% *X )x$V(%)0%i,(i.H 0$R8%+H )hp$0%i8pi: $`D %` <B@0% @()HP(%)Bpx80%)D0%iFiH8iJ`L%4+PX iRxiT6$ X(  )Z  v0%)\ 0%+^!h i~ i` Ib )d <%if!ih `j nh!@% !D%+t"! I !Ib ")d0"8"<%iv`j "H% zh#"il")|## %I~ @#I +$# )##L%i#i$i0$i`D $P%+%$)$$T%)%%X%)8%\%`D p%@% %D% %%iP+('8& 00iX&i``````` +'h' i')'X%` '\%+H(((i+)(!!iN(i()) (``` h)%`) `F) +@* *i+(+*++i*i ` *%``+h+i+LXLLLLHLʐpL,  :H P,H(+08,,( %'pX"H(H@('+,h#)H P X p(@*+ +,$ ! %p x,(,(11+  ( 8@HPX B `hpx B   ( B 08@HP X` hpx " ( "   (8 @ P`h@x  B    (  8 X *` &       B  F `8 p B BP  :   . 0 H8      2   ( B 0 8 P ` p 0      "     ( " 08 HX `px v   Z8  B   ( 0 @Ppx     "(08 B@HP "X` hx  8 F (" 08@HP`$x   B  0H 4PH    (08@ H P p" x *  "   8HPhp "   " (@H`hp " x B   0@ P `h .p . "  08 @PX `x B @8 @P`hp " x >   B (08@X x      0 8 @HP `hpx B     " ( 0 @2P     B   0 @ P `p  B      0P X`hpx " ,,** ,P B     0 ( 8  P `  h            !!  !(! 0!8! @! P! X!`!h!p! Jx!B !!! !!! "("0"8"@" B H"P"$p"""" B """"" "# #0# 8#H# P# h##  ### # &#$$$ $8$@$ H$X$`$ `h$B $$$$ B %%%% % (% 0% @% bX%4%  % &&0&H&X& 4h& "& &&  & &''' '8'X'`'h'p'x' '''' B ''''x 0]D+]D+]X]+]] ],]](,]] ]P,]$7H]$ x,] p] ]@,]@,^0^H^`^Dx ^p0^^p^^ ^@^`^^^^^ ^p ^8^P^h^^^^^^^^(^@^X^p^^^^^^ p] ] ,5 if object not nothing return true, else return falseLP <'j" And ObjPtr(o) <> 0iX   ]0 '  'M 'iH ] '  ' '>i ] 'D @]    8 @ & T$R'Fi F$>'    Bh (   $FX +B(  'Dkk D'|ip ]0 'D @]H     @ & T$R'F F$>'  $  B m   $FX +B P\P 'Dkk D'Ji]'D @ @ & T$R'B B$>'DCkH D'Li8 N i N N$\UP N\'Nkk N'.i8] T] Vd'Zd'Zk RX TX Z'X!Nd`'XkP X'Pi@ R T V$P  ^ 2%4(6o]] d'l `$j!@ `!n'hd  h( f h(fk h!f l  h!X h!fXd$8%'lk@ l l (k o]p  r 0 .v v$j  r v%j .v :  (7 B@x File already openk@k8k0 v.pi@Purpose: Return True if the file exists, even if it is hidden.ZArguments: strFile: File name to look for. Current directory searched if no path included.i bFindFolders. If strFile is a folder, FileExists() returns False unless this argument is True.<Note: Does not look inside subdirectories for the file.;Author: Allen Browne. http://allenbrowne.com June, 2006.p]4Include read-only files, hidden files, system files.   '~ | ~ '~7Include folders as well.dAStrip any trailing slash, so Dir does not look inside the folder. z$ \b z z $ 'z@@k8,If Dir() returns something, the file exists.(  z ~$~ 'Zi(] $' $' $'      l      'd('ki v$j vB@B.vkoX $B@H  (`   (kooPublic Function Login(Optional ByVal relogin As Boolean, Optional ByVal useLoginFailFlag As Boolean) As BooleanDim cfg As PpyConfigcfg = LoadPpyConfign_reSLogin = LoginByParam(relogin, useLoginFailFlag, cfg.dbsymb, cfg.User, cfg.password)) > End Function]'D'  'k   A@. $j l   %''  %.'DkXkPdH'Dk8k0( ' !A@ B@'D D'i'oH 'i  B@k..'o`1 Descr: ࠡ稩 Excel name.? ᫨ ⠪ 㦥 , 祣 ](]@]X $!!'     $!%! 'kP  '8   $!&!b(k o p]'D  ]]( $  2%4   2%4 2%. !4! %4.       %. 'D !' !'k k D'i  xml @] (  B@xml version='1.0' %.  ! % B@.o ]  %.  (d   !B@ d  !"!B@ kp .o` ]  %.boolean (&  (( new_attrib.Text = attribVal   !B@ d  !"!B@ k .o  $j $j] , %4.0 0 B@6 . !"(d.0k o ]]'D': 8 %>.< <$j <!"$j <!"!d':'Dd= 8  (  B@xkHd@= 8  (  B@xk D'i B$j] J// J'Lk F L/ F'Lk L %>.Bk`.D H  H %N.Dk o R T< R> V V'Td  (  B@xk T'Pi Z$j \$j \ ZB@68 pRootNode.insertBefore pChildNode, pRootNode.FirstChildk.\o( ]8!'j'f ` d$j ~ ` d%'jkxkp j h ~ b d%l'fd8]P! ~ d%p.n n!r ]p!  n% !d'fkk.nk f'jkk j'^ix!]X"'j'v d$j]p" b   d%x !'v'jkk j'ti" ~ |$j |% Z    l V |B@kpkhd`  l  2%4(6d( lA@kkoh#]P$]h$'D $j  (  (l  (  (  %b 'Dkhk` D'iP$]@%]X%'D !. $j %r ]x%  B@ !  % 'Dkkk. D'ix% P&& T$'P P"" T$'P P<> T$'P P>< T$'P P'' T$'Pox%]&]&]&]&]&]&]' X ' ')Deal with timeout being reset at Midnight    Q   'd Q   ''kpkh  $'  $'_0  AA@        Gxjdxkk  ''ziD id id 0 (']''  ]'   % !'kk 'i' $   $ $'k` 'iPH(]) )]8) Search Handle]P)]p)) N$.'   $''    !$' . ..]) 'F   F+ F @)k(  $'- Get next file $'k $> 'd'kiYThe following function returns the filename with the extension from the file's full path:)  \$ $ 'i@*]*]*]*]+  (// Sample filter:[// "Text Files (*.txt)" & Chr$(0) & "*.sky" & Chr$(0) & "All Files (*.*)" & Chr$(0) & "*.*"Excel Files (*.xl*)$*.xl*'  ( ($\ (  !  (" !  ($ !" (&- OpenFile.lpstrInitialDir = ThisDocument.pathFind Excel Data Source (* ( $' ' 'd' ! $' $ $'k' !A@ B@` 'iP(+ 0.00$'i( IAttribute VB_Name = "slib" Option Explicit PrivaDeclare FuncHOpenProcess Lib "kernel32" _ (ByVal dwDesiredAcPAVong, bInheritHandl bqqK' _  qArray_Count Ref rR(fA O@rror ?u@PaDim c=#l UB pd() + opplP% c$_ \ c E  ` = w nt 2f a`tTo_exp:!DELIM$epArytQ 5 v If Len() The{o1PP0secGa#qa , ibufvc!AS, , -1, vbBT@Comp)C=!,Tp 03| aRe c- 1!pD  To F 11Bi) CLng((i)3| iw=I>f"ok224&Do'eS> By$T&l String, ByRef DELIM As @pAry()\D ouble(Lo ng Dipm ok<&= 0>If Len(expr) Then,tss`countR, i buf; (vTP =@ Splitx,, -1, vbTextCompare):HArray_GeE(*k> 0kmRec- 1F orm To H"i)hCDblE(i)'Nk iĂ- End IfKTo_y@ok A Functioo Pic CZ@eB(Ô} ldP2B8gO4dD_QP ePetLastSlashNpPathNCgnւ ) OMhid(, , <> "\"Vb& A)ieFCalcPctValue` val1AVariantK!2pcIntege@C!preb # 2uct_@a !@ "0= 10$Else& (= (|1) / 2)) * C ) -33Sub Cellp3row"2colMa./?8%8Ave@Sheet.as(@, l).A lo`for. Curr directory searchedno  included;4 .Q,P a fR,) m! s Fax unl^ ! 1NotB0Do@es not3 insi9sub i %Author AllBkne. http://aAb3com June, 2006 0 An6db y 1900 ThenXGRd && #yElse ""BIf  EFunct Public Sub CloseSFi6lfPa pyrusrfaceLib.PNPvIsidObj() k .0TSet Á tNoth֏UL S@ ColumpnWid`Â@Nu rcol Hu, fmSC s(C).Seplect@L.sC C= C ALxen( ?)berx= eg <'fEk Login(Opn7rel7Boo@lean, useFailFxlag B "' cf PpyC`onfig=y!adM3ByParam(&$, , @.dbs@UsApassword'Ԫ " !# ?Ƈ"##CName/pwB)9a)okf35_f@1+ = FafyHOn Error GoTo eAs# P~5"3!@4Truesj  R /'`R= Or e , <)1PEg'0=-0UtilbCreSpecClc(spclsI :mɟ icRnd R=#S:#I$HPMs@gBox (@Z.DescriDuCre@@@oknTSpngedInP(orhGIsBed(o?W? 8 /@)*2#uq%zX&FB' ' ": ࠡ Excel n R.1 ᫨3 ⠪5㦥 , 祂` 0)  d/heetaSS{!AVis_sq_exists1s#W2_c^cAveWorkb ook.Ss.coun$JWhpi < V =< 03ets.item(i@ + 1). =BF 1 i R#W2 As.Addi 3qP21ind#begRowLongavP] V P_BbpSrchs%chCas|6yTF` A'pq>1&I Ʉc)Kw Q5 )+>f)&d_5lQ Range, _t=sPch_rstr_s GSWB*=V !20.(C ells(, 3),J#,)TW1 1 = ./8\XlA(what:=, after:r=, t$Q 1L?In:=xl*ues, A@xlWh, SOrdxl$owp&:= 8X Is Y? B$})!+=.rowQ ,j -um<"`EuRb xml v\InitDocumen\`*MSXML2.DdOM%30:^odeuctε As Stri@ng) D im piIXMLDOMProcessInstructionxmlDoc.async = False 2load nodeGv)AQ3//A$2  =)B/1;Rб [/ 0#(1,rpqSFVMake0*#!b E"rBuf! @AvbLf<KH@CEMPTYTAGFOUNDc!>wFq ?P ublicQ Ags|Qtroy4@+aod8Bw$8np6.~'  ,(First#)+' 0Q)' #V*GoodsIDT* gdLong+AltGrpID}SupplIDVAdvGЗaPapyrusInterfaceLib.ID bwrC?Abs String, Option@al ByV(barcodeAsA As Boolean = @False)L  Dim v0alid2*= TrueVpAr&C""If AltGrpID And IsidObj(pAdvG) Txhen.p2.BelongToGroup(go@odsId,R, 0) <= 0_ B#Nk.EBf:gI Z8c~_Get]SupplID)I_$sPapyrusInterfaceLib.Asso cList Set = !B~s"A?B .@,Count >RU!E'item'TapggedàK'(0, ) VA .Tex= sHNoth@G) FLenBCGDž AFuncA  e ByDByRef p,Ėb$l5IDKp D LoA#h#p D* agrec5SPpyO_ a>@ &_Se^hf&$&a uO.IDG ?/Gi8>Sub outMes sage(=msg j&5LogFile#PPSuseAutoMp rowNumber0D*9M$3.D(apWr~Line Date & "A & Tim A$& vbLAa0EG3AsveSheet.Cells(&, 1).|ue&E aMsgBox paAPublic fAddDbfFld$Dp@6PPCreay$Na pw% fldTypb%qggersizbqA5p:B1l'apos dn lllandWait(ExeFullPath!8S_ 6awOutWnc1

݀ <x A' 4 x hA Loop While lG^STATUS_PENDING@CrandWaBF ErrorHler:< Bi ` FunctioG ' id  0  Public% AgrByBillID(By b As Long, ByRef pBObjPapyrusInterfaceLib.P6P) EDim a_'CqF= 0C#> A_recuSPpyO_ 8` .Search(C,Ba ^) Tq.B%ID z i*G  = NI;e StripNulls(Origina@r!ng"+CC1`(In , @Chr(0)) = LeftK - 1D)_c` POFkList(pPath, wildpcardiPs?!BaU#Efn pj h"s! ' #E #vWFDWIN32_FIND_DATAcontbger!C#Rep0)=tLSla INVALID_HANDLE_UEDÞaaC*@U@.cׄSC"."4@_(Ha|idx?gq = UBound(wL H@)+ Preserve 11 25NexOCsp'PC n fp1WWendxClose(CT9ngArray_C64O a6po$ u(-5If? ' following f4n returns the:wi@pensAp fromF'sPtS !(WExt(str;EBp$, PRev"\ ,+bPq uaExce~lQ@usQ}N3Mc$anleNBoolean /0`+O!q2O@FILENAMEs#AlRb4sp{iOn R GoTo e/Ԟt.juc tSLen(% )'// Samp  pQ1q"T. s (*.txt)" &l$ l"*.hsky<A 6**"%= "Slexlfv0t .lpg$= D<nIndex41 .e(257 , 5`nMaxq6e) x trQTitP=  d'InitialDirp ThisD m.83wSe"q10. Data Sourced6flagsd%,=IE>&%pOq K&9= vb?0KOTTrlADnVFo rmat( , "0.00"(n dP' z@k8k0(' iD Check through the selected references in the References dialog box.trFile]X  !!!to   !!%!  !!%! rFil 1if the ref matches the found ref and it is broken'"zk'"ip]]]PapyrusInterfaceLib> Remove references to Outlook if they are there and are broken4In  !!! sys  !!%! &$$('$Debug.Print refIn $ & $$"  !!% !!B@*k e the oSub RemovePpyLibReferences()  Dim count As Integer Dim ref As Stringhing3 Const ppy_ifc As String = "PapyrusInterfaceLib"ZC ' Remove references to Outlook if they are there and are broken$W For count = Application.VBE.VBProjects.item(VBE_NAME).References.count To 1 Step -1n ref = UCase(Left(Application.VBE.VBProjects.item(VBE_NAME).References.item(count).name, Len(ppy_ifc)))  'Debug.Print ref8 If ref = ppy_ifc And ReferenceIsBroken(ref) Thenog Application.VBE.VBProjects.item(VBE_NAME).References.Remove Application.VBE.VBProjects.item(VBE_NAME).References.item(count)Lo End Ifelog Next count, cfEnd SubUsHAttribute VB_Name = "AddPpyRef" Option Explicit Sub Auto_Ope@n() If `erenceIsEnabled("PapyrusInterfaceLib")False 0Then>BMsgBox("  L?", vbYesNoV VZCallmoves?LoaThisWorkbook.Save"End If/'l> object librar y&OrrorcsuNex Z'W using FromGUID, yo u can e @zero fthe major+'a,min@vers{s to pick latest. DddAVBE(: FVBPro2 .[.(uid _ "{0002E157-0CB0046B}z0, 0 'A"Є&H&494E293B-6C7D-4B0D-AE60-407D57EAE4CAM&pa.JAs.item(_NAME)E8{GoToA=FuncUs As St rG)BooleaD' CheAvroughb'S@ ST0= w##q ?"a/=R  -"SRemOzsqG"Agedl19O1Const ppy_ifcA3&6ׯC'0*mPP qOutl~ 3y are@P!? ?a% oLe,s.0S1[ep8 -1a = UCase(Left("Mv"2Q, Ld))4'Debug.zPbtgX,ECV+(p)S/1cJ5Sރ q$I %0%a'pT %'%% $ r%Rw%T%"%%iT &A/s/~?'0'R J'/_^(}(((v<@L'0' )_Q7aU* 1te*'t**3P(j Z@ 8`    B   J__SRP_4 w__SRP_5 _VBA_PROJECTp1dir ( >?xME(> LLLLL<,<0<4<8<<<X @`k  ` + `0Bk i `t+"p` 8  +i`'D ` !!8``$`&Hp@@%p@p@@pX(  @x @h @X @H @8 @( @ (@ @ @  8h` z pcrp @@8p @Pl @h @d @` @\ 0@L @H @D @B phrU$*\Rffff*0455017c14*\R6*#3d*\R6*#3b*\R6*#1b*\R1*#f1*\R1*#e8*\R1*#2ac*\R0*#2*\R0*#14*\R0*#1Y "$@48 x  % "  < ,  PLp 0L F@ B  JP(j Z@ 8`    B   J@HDh 8   "  ( 0 DP$0  ((P Xh "p   : J ^h t @ >`  0 H ` x xPapyrusInterfaceLib$ * PapyrusInterfaceLib? $ AA B@k`kXoP@load object library  6When using AddFromGUID, you can use zero for the major&and minor versions to pick the latest.adding VBE object library:&{0002E157-0000-0000-C000-000000000046} !!B@*Adding PapyrusInterfaceLib object library:&{494E293B-6C7D-4B0D-AE60-407D57EAE4CA} !!B@@Application.VBE.VBProjects.item(VBE_NAME).References.AddFromGuidpohD Check through the selected references in the References dialog box.]  !!!   !!%!  !!%! n fa1if the ref matches the found ref and it is broken' zX  !  A 9aCxx /x4'''8:hNXX^6X8  %  $   $ $xX80 @  HPtdhlp $ p X l @ h ( ld)plhd\=j DHltiL%hlp $ p X l @ h $ H $ lD/D)plhH1ZBHltiL%hlp $ p X l @ h $ H < kB)plhH#pz/pz tf\Rpz<H$ DplhH0   0 p  WrU $`$`(`a0(`a0$!`n0* pHd AlcStati stic<@ = v rDU<Vrstdole>stdole h%^*\G{00020430v-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Automon0EOffDicEOficEE2DF8D04CgeR0 ExpendOpId0AlcGrpIdb50 ExclGrpsIde0 OutFileNamer0 GoodsCodeTagW%0Template0LocListF0 StrAssocList80 ImportTagb0(Cfg}0 (!GoodsItem&0code0qtty|0ImpQtty0Amounti0 ImpAmount0rest0 RestAmount0NativeCountryIDE0 ItemsList0GObjl0 PPObjGoods^0AdvGObj0IPapyrusObjGoods-0PsnObjA0 PPObjPersonJ0 AdvPsnObjz0IPapyrusObjPersonVQ0LocObj !0 PPObjLocation0WorldObjz40 PPObjWorldL0 CodesRowList0 SpirtRowListG0 VineRowListL0 CheckGoods 70goodsId/0pCodedy0ri0 BelongToGroup0M0(LongArray_GetCount=0i`0count0v0(Util0 (GetTagValue"0ppoGoods0(ItemsArray_GetCount0rArrayS0lc0(GetItem0pItemA60pPos0IsImportE0 pTrfrItem0SPpyVI_TrfrAnlz0cli_id0vm0grec0 SPpyO_Goodsq 0va_0Search0ManufIDw0tagv0 FormatTag0ToLong0IIfz0(CalcDatag0errors0itemz0filt40PPFiltTrfrAnlzN0viewI0PPViewTrfrAnlz0(Sess0 CreateViewM0 ppvTrfrAnlzw0 CreateFilt#0 SetPeriod.0Lowt0Upp0opID0Grp0 tavgGoods60flagso0 tavfCalcRest-0loc_item]0 STaggedStringX0 InitIteration t0 NextIteration0 AddLocationIDm~0ID]0 Application*0 StatusBarʜ0Init\[0priceg0cost40pos0 goods_item=00PhUPerU0is_imp&0 (ProgressBar$0endsC0MsgBoxR0Erro0 Description 0Clear0CalcRest0SPpyVI_GoodsRest 0PPFiltGoodsRest0PPViewGoodsRest0 ppvGoodsRest0 grvfNullRest0 GetRowByCode0row0 SearchByText0 (PrintData8I0path20 other_amounte0 alc_amount/0ActiveWorkbook0 Worksheets0Activate|0ja0total_rest_amtI@0 (SetLastSlash0 rest_amount0 ActiveSheet%N0Cells0ValueK0Round0 total_amt0 total_amt_imp^0 total_decal0total_decal_impR0titem}0sub_item#0idxӝ0 SearchByIdt0 DisplayAlerts0SaveAsf;0 SplitCodeL0pBuf0Split)0 vbTextCompare Q0(ReadRowCodesList0 not_emptyq0 (FileExists0 RemoveFile<0ToChar.0 Workbooks0Addr0 (PapyrusMain0 PPSession0PPUtil0 (IsValidObju0dbsymb0password0 LoginDialog0Hwnd0(SetLoggedInFlag0 FiltForm'n0Show0GetNativeCountry0(SplitTo_LongArray0loc_list0 loc_count 0 CreateObject0 ppoPerson0 ppoLocation_0ppoWorld%0(Logout:0UserForm_Initialize5c0 PeriodFldT0Year0UserForm_QueryCloser0Cancel0 CloseMode؟0CancelBtn_ClickC0 OkBtn_Click0 err_adv_info%g0add_str-0 PeriodLblys0Captionx0StrToDateRange0 slibB 0 OpenProcess(0dwDesiredAccessU0bInheritHandle%0 dwProcessId0kernel32_0GetExitCodeProcess0hProcess>0 lpExitCode0 FindFirstFile0 lpFileName20lpFindFileData[0WIN32_FIND_DATA0 FindNextFilehD0 hFindFile0ay *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 10.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{931B900D-C7D9-4868-9AC6-CB8AA8F10629}#2.0#0#C:\DOCUME~1\ahtoxa\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{F5078F18-C551-11D3-89B9-0000F81FE221}#3.0#0#C:\WINDOWS\system32\msxml3.dll#Microsoft XML, v3.0Z*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3  rU-B0=8300?55017583-B0=830 8AB10@55017583 8AB1! 8AB20A55017583 8AB20 8AB30B55017583! 8AB3R~HMain0=55017c6c"Main=`TFiltForm0655017562wFiltForm@dxIslib0755017562slibuAddPpyRef0455017c14AddPpyRef>?0x`HF}S ܗN6h$QcEV_exJkG*T8DǬ_X3g/7LqȪt\c6GR#*0F{MuNN`)^Rِ8dirname Excel+0 VBA0Win160Win320Mac0VBA6#0 AlcStatistic0stdole`0Officeu0MSFormsC0MSXML2O0VBIDEA0 ]0 _Evaluate0 10 20 30 Main,0begRowճ0DELIMs0NOT_FOUND_CODE0NOT_FOUND_NAME0 (FiltFormOK}0(!ConfigI0Period?0PapyrusInterfaceLib0 SDateRanGetFileAttributesi0 FindClose0GetOpenFileName]?0 pOpenfilenamec0 OPENFILENAME350 comdlg32.dll?0STATUS_PENDINGr0PROCESS_QUERY_INFORMATION=0MAX_PATH(0MAXDWORDYw0INVALID_HANDLE_VALUE0FILE_ATTRIBUTE_ARCHIVE&%0FILE_ATTRIBUTE_DIRECTORY0FILE_ATTRIBUTE_HIDDEN<0FILE_ATTRIBUTE_NORMAL{0FILE_ATTRIBUTE_READONLYX0FILE_ATTRIBUTE_SYSTEM0FILE_ATTRIBUTE_TEMPORARYz0 (USERERR_CODEb0(ERR_EMPTYTAGFOUND0 PpyLoginedݍ0 PpyLoginFailه0 (!PpyConfig#0User0BhtIDpv0ExpPath@0FILETIME%0 dwLowDateTimev0dwHighDateTime4u0dwFileAttributes0ftCreationTime{0ftLastAccessTime0ftLastWriteTimeW 0 nFileSizeHigh>N0 nFileSizeLowc50 dwReserved0J:0 dwReserved1K:0 cFileName 0 cAlternate0 lStructSize/r0 hwndOwner0 hInstance 0 lpstrFilter0lpstrCustomFilter0nMaxCustFilter`0 nFilterIndexc0 lpstrFileV0nMaxFile0lpstrFileTitlep40 nMaxFileTitleym0lpstrInitialDirr0 lpstrTitleo0 nFileOffsetI0nFileExtension90 lpstrDefExt_0 lCustData'50lpfnHook0lpTemplateNamet0 (SecurFormOKx0(PpyCfg#0of0(StringArray_GetCount0expr {0pAry~0ok^0stringsK0bufz0(SplitTo_DoubleArrayt0(SplitTo_StringArray0pPath:0 (CalcPctValueC0val10val20pct0ret0pct_val0(CellCalcPctValue0colH0pView;0 IPapyrusViewb0pMsg80totalU0counter0 SIterCounter>0msgQ0GetIterCounter0 (OpenSFile0modev0PPSFileb0file%0Raise0strFile X0 bFindFolders0 lngAttributes0 vbReadOnlyL0vbHiddenT;0vbSystem>0 vbDirectoryk0Right 0 (FormatDateQ0dt\0 delimSymbR0d[0md0yp0Day0Month0 (CloseSFile0(SetColumnWidth]0ColNumXE0colWidth0fmt0Columnsp90 SelectionZ0 ColumnWidthiq0 NumberFormatR0 (LoginByParamoz0relogin80useLoginFailFlag 0UserName\0pwd0 login_fail*0LoginK0CreateSpecClassˉ0 spclsUtil,0 (IsLogined0 (CreateSheet$90is_sheet_exists0cZ0Sheets 0 (FindStringQ}0begColc0endRow0endColw0pSrchStrh<0 matchCase0pFindRowr0pFindCol"0 found_cell*c0Range 0 last_cell^0 search_range0str_srch_range(0Findn0what 0afterX0LookInP0xlValueso0LookAtO0xlWhole^0 SearchOrder0xlByRowsM0Columni0 (InitDocumentʭ0xmlDoc0 DOMDocument30Rg0 nodeStruct0pi^0IXMLDOMProcessingInstruction0async_~0loadXMLD0createProcessingInstructionk0 insertBefore.0 childNodes50(WriteLastElemAttributeF0xmlNodeC0 IXMLDOMNode50 attribName'0 attribVal0 nodeAttrib0 new_attrib|0IXMLDOMAttributeQ|0createAttribute 0 Attributes0 setNamedItem 0 LastChildZ0(WriteLastElemBoolAttribute0DataTypeT0nodeTypedValue<0 (WriteElement750elemNamej0 elemValue0new_elem0IXMLDOMElement0 createElementH0 appendChildb0tagName0tagValue$00elemX90selectSingleNodeW0 (InitNodes(0rootNodeD0nodeB<0rootName0nodeNamer0 pRootPrefxX0 root_namep0 createNode1@0(MakeNodeStruct*b0rootElemB0rBuf0vbLfT%0(AppendChildAndDestroy0 pRootNodeM0 pChildNode0(IsValidGoodsIDѩ0AltGrpID90SupplID@0pAdvGObj0pArCode0barcodeAsArcodeֆ0valid'J0 GetArCoder0codes0 GetBarcodes0GetCountk0(GetGoodsIDByArCode0pGoodsID0SearchByArCode0 (outMessage0pLogFile0 useAutoMode0 rowNumberI0IsValid@N0 WriteLine0Time0 (AddDbfFld;0pFlds0PPDbfCreateFlds!0pNameZ0fldTypeާ0size0prec0fld܎0 SDbfCreateFld?0(GetOrderByBill0pBPack<0 PPBillPacket0pBObj0 PPObjBill0pOrdRec0 SPpyO_BillS0 orders_list0 GetOrderList90ord_item}0(XmlReplaceSpecSymbs[f0Replacef0 (ShellandWait0 ExeFullPath0 TimeOutValue0lInst0lStart@0 lTimeToQuite0sExeName60 lProcessId 0 lExitCode0 bPastMidnight0 ErrorHandlerO0TimerX0ShellV0vbMinimizedNoFocus 0(GetAgentByBillID[90billIDٶ0agent_id0bill_rec#80AgentID0 (StripNulls0 OriginalStr0ChrK~0 (GetFileListV0wildcard0 pFilesList(0fnameR0handle0WFD0cont{0(FileNameWithExt-0strPathl0InStrRevĈ0 (FindExcelFile0filePathO0 cancelledk/0OpenFile0lReturn0sFilter@0 vbNullString0Trim@0 (DoubleToStr\0val0 AddPpyRef#0 (Auto_OpenV 0(ReferenceIsEnabledc>0vbYesNo0vbYesT0(RemovePpyLibReferences:0(LoadPpyLibReferences'b0 ThisWorkbook$0Save0 VBProjectOh0 References0 AddFromGuidA{0sRef(0IsBrokenԣ0(ReferenceIsBroken`0ref0ppy_ifc0UCase5 0Removeϱ0Workbook0 Worksheet0 !#w  @@"@"Ū(*,p@-5BFA-101B-BDE5ETAAC42EProgram Files\CommonMicrosoft Shared\OFFICE11\MSO.DLL#M 10.0 Object Lib0raryKMSForms>SFrms3D452EE1-E08"F0A-8-02608C4D0BB4SFM20L'B _&/;"1jIqAHq00}#@8@q# 50 zA931B900D-C7D9-4868-9AC6-CB8AA8F 106296DOCUME~1\ahtoxa\Temp\VBE_B4.exd`U9.E .`M AÕMSXML2øMeXML2l b.F507(8-C551-11D3 -89B9BGF81FE221}#3ָmsxml30.dll,, Nv AVBIDE> VBIDE`22E157n85.3n\\VBA`,A6-6EX T.OLB(Visual Basic for A pplicus Extensibility E@"G-B0=83!j2rH1"E, ""+b,1*Gb,A1:G2L? a!U3 2+ 2( 2+ 2? ! 3 3+ j3( 3+ 3? 'R~+ @MainG3Mai6n 2Tq/4=!*4Ctk!zCF lߢ eCmoI C4@d(*slibs`ib/ u AddPpyRefGdPpyR@f jN2ob>?Q7K*yrU__SRP_0 __SRP_1fFiltForm`{W`{Wf    ~~~~~~~~~~~~~~[ F@/q    ) AYqiyii!I  AlcStatistic123MainFiltFormslib AddPpyRefF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  Y0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel a@0FC:\WINDOWS\system32\stdole2.tlbstdole  QPL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice q`.E .`M C:\WINDOWS\system32\FM20.DLLMSForms  Qp hHˊ) 'C:\DOCUME~1\ahtoxa\Temp\VBE\MSForms.exd QQ!C:\WINDOWS\system32\msxml3.dllMSXML2  WFCC:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE y1  !@#$%^& NotFound ,>4  =5 CAB0=>2;5= Auto_OpenLoadPpyLibReferencesReferenceIsEnabledReferenceIsBrokenRemovePpyLibReferences  &PapyrusInterfaceLib T>4:;NG8BL 181;8>B5:C PapyrusInterfaceLib?FF FVBE6.DLL i S  `FzF~F/rU sRefq$  }; R KQDBTahoma$4OKBtn"(q{uTahoma( B<5=0q{uTahoma((BG5B=K9 3>4 5TahomaH,E{5Tahoma( <CancelBtn0g , 2HPeriodLbl0( 4PeriodFld0oCompObjaVBFrame PROJECTwm  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FiltForm Caption = "" ClientHeight = 1485 ClientLeft = 45 ClientTop = 345 ClientWidth = 3270 StartUpPosition = 1 'CenterOwner TypeInfoVer = 31 End -B0=83018AB128AB238AB3MainMainFiltFormFiltFormslibslibAddPpyRefAddPpyRefID="{B8F3D446-E59C-48F2-8D52-1694F66BC804}" Document=/&H00000000 Document=1/&H00000000 Document=2/&H00000000 Document=3/&H00000000 Module=Main Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=FiltForm Module=slib Module=AddPpyRef Name="AlcStatistic" HelpContextID="0" VersionCompaPROJECTSummaryInformation(DocumentSummaryInformation8CompObjhtible32="393222000" CMG="4042A523A923A923A923A9" DPB="B7B552EDBE133414341434" GC="2E2CCB6635AAADABADAB52" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] =0, 0, 0, 0, C 1=0, 0, 0, 0, C 2=0, 0, 0, 0, C 3=0, 0, 0, 0, C Main=44, 46, 843, 521, Z FiltForm=0, 0, 0, 0, C, 22, 23, 530, 345, C slib=0, 0, 0, 0, C AddPpyRef=0, 0, 0, 0, C Oh+'0@HXd | ahtoxa!Microsoft Excel@9(J@eW՜.+,0 PXd lt| !' Config GoodsKind3  F Microsoft Office ExcelBiff8Excel.Sheet.89q