ࡱ>   Root Entryb`%@yp)Barcode2Pseudo-BC.SRC, Barcode2Pseudo-BC.DES,']Barcode2Pseudo-BC.BIN,)f  !"#$%&(*+,-./0123456789:;<=>?@ABCDEFGHIJLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwzy{}~' MacroName: Barcode2Pseudo-BC ' MacroDescription: Using an input window, change item barcodes to Libs+ pseudobarcodes for each barcode scanned. ' Macro created by: Joel Hahn, Niles Public Library District sub main dim CS as session set CS = CurrentSession Dim nTimeOut as Integer ' The default timeout for each command is 1 minute. ' Increase this value if your host requires more time ' for each command. nTimeOut = 60 z=1 WhichButton=1 Do Until WhichButton=0 Begin Dialog Barcodes 66, 37, "Barcode Entry" TextBox 2, 2, 60, 12, .BCode OkButton 2, 17, 28, 15, .OK CancelButton 33, 17, 29, 15, .Cancel End Dialog Dim BCodeDialog As Barcodes WhichButton=Dialog(BCodeDialog) If WhichButton=0 Then Goto done barcode$=BCodeDialog.BCode CS.Send barcode$+chr(13) CS.Receive nTimeout, chr(27) + "[?25h" CS.GetTextInRegion InvalidCheck$, 10, 11, 10, 30 If InStr(InvalidCheck$, "Invalid") > 0 Then CS.Send " " ' Wait for response from host. CS.Receive nTimeout, chr(27) + "[?25h" MsgBox "Barcode " & barcode$ & " is not valid." Goto ClearField Elseif InStr(InvalidCheck$, "not found") > 0 Then CS.Send " " ' Wait for response from host. CS.Receive nTimeout, chr(27) + "[?25h" MsgBox "Barcode " & barcode$ & " is not on file." Goto ClearField End If CS.GetChar LCat$, att%, 12, 20 DnArr$="" For DownArrows=1 to 2 DnArr$=DnArr$+chr(27)+"[B" 'Down Arrows Next DownArrows CS.Send DnArr$+chr(4) CS.Send "*" ' Wait for response from host. CS.Receive nTimeout, chr(27) + "[?25h" If LCat$=" " Then lc=1 Else lc=0 CS.Send chr(1) + "J" '[F10] CS.Receive nTimeOut, "" '"[9;11H"+chr(27)+"[?25h" CS.Send "2" If lc=1 Then CS.Receive nTimeOut, "" '"System" ' "[?25h" CS.Send "1" CS.Receive nTimeOut, "continue." '"System" ' "[?25h" Else CS.Receive nTimeOut, "continue." '"System" ' "[?25h" End If CS.Send " " CS.Receive nTimeOut, "System" ' "[?25h" GoBack: CS.Send chr(1) + "C" '[F3] CS.Receive 10, "" ' "[?25l" ClearField: CS.Send chr(4) 'CTRL-D CS.Receive nTimeOut, "[?25h" 'CS.Receive 1, "[?25l" z=z+1 Loop done: end sub Using an input window, change item barcodes to Libs+ pseudobarcodes for each barcode scanned.Q%dj$F?#C Barcode EntryBCodeOKCancel [?25hInvalid Barcode  is not valid. not found is not on file.[B*J21 continue.SystemCUF#V F " 6>N^n~ (0CSnTimeOutzWhichButton_BCodeDialogbarcode____InvalidCheck___LCatattDnArrDownArrows__lcmain5 F FmK+Passport.~u2\[ < 8   B% j 5. j< j j! j5.j6e#6qN>l^2\)q >l5./N^2\7q2\?>5.JN^n~leq5.T2\) q >l5./N^2\7!5.X5c j"##>5.tN^n~l^$q5.T2\)&q >l5./N^2\7'5.X5 j(D)+q(2\,70-jc:.0N>l^5.n~0/i0q0N>l^2\)1q5.2\)3q >l5./N^2\74(5.T44 46q>l5.N^2\)7q 5.2\78q5.2\)9J:q 5.2\7;q5.2\)q 5.2\7?@q5.T2\)Aq 5.ǩ2\7Dq>l5.N^2\)Eq5.2\7Hq>l2\)Iq 5./2\7L >MP; )1BCodeBarcodes?SessionApplication' MacroName: Barcode2Pseudo-CN ' MacroDescription: From a call number search, change item barcodes to Libs+ pseudobarcodes ' Macro created by: Joel Hahn, Niles Public Library District sub main dim CS as session set CS = CurrentSession Dim nTimeOut as Integer ' The default timeout for eachBarcode2Pseudo-CN.SRC,K Barcode2Pseudo-CN.DES,xGBarcode2Pseudo-CN.BIN,| command is 1 minute. ' Increase this value if your host requires more time ' for each command. nTimeOut = 60 CS.GetTextInRegion RecNums$, 2, 50, 2, 78 place=Instr(RecNums$, "Records") RecNums$=Right(RecNums$, Len(RecNums$)-place) place2=Instr(RecNums$, "of") CurrRec=Val(Mid(RecNums$, 7, place2-7)) TotalRecs=Val(Mid(RecNums$, place2+2, Len(RecNums$)-place2)) HM$=" Enter the total number of records to change, starting with " HM$=HM$+"the current record." ThirdChoice: Begin Dialog ChangeRecs 126,57,"How Many?" TextBox 4,40,20,12,.HowMany Text 4,4,120,32,HM$ OKButton 28,40,32,12 CancelButton 64,40,32,12 End Dialog Dim HowMany as ChangeRecs HowMany.HowMany=CStr(TotalRecs-CurrRec+1) HMy=Dialog(HowMany) If HMy=0 Then Goto Done HMany$=HowMany.HowMany If HMany$="0" Then Goto Done Else howm=Val(HMany$) If howm=0 Then MsgBox "Data must be a number" Goto ThirdChoice 'ElseIf TotalRecs" '"[9;11H"+chr(27)+"[?25h" CS.Send "2" If lc=1 Then CS.Receive nTimeOut, "" '"System" ' "[?25h" CS.Send "1" CS.Receive nTimeOut, "continue." '"System" ' "[?25h" Else CS.Receive nTimeOut, "continue." '"System" ' "[?25h" End If CS.Send " " CS.Receive nTimeOut, "System" ' "[?25h" GoNext: If z<((TotalRecs-CurrRec)+2)-1 then CS.Send chr(1) + "H" '[F8] CS.Receive nTimeOut, "[?25h" end if z=z+1 From a call number search, change item barcodes to Libs+ pseudobarcodes Loop Until z=((TotalRecs-CurrRec)+2) MsgBox "Done!" done: end sub QE17$\J f #j Recordsof= Enter the total number of records to change, starting with the current record. How Many?HowMany___0Data must be a numberThere are only  records left in the list!e [?25h*[B J21 continue.SystemHDone!e#V F &6FVfv"  (08@H CSnTimeOutRecNums_____place_place2_CurrRecTotalRecsHM_HowManyHMyHManyhowm_zBCodeLCatattDnArrDownArrows__lcmain5 F FmK+Passport ~u2\[ < 8 q2N2\ 5&6FVlf f fi5&6FVlvvih  f vv ih 55_ ~9 j  5u j ( j x  j (  j @(  j5 j  eL (!(5")#$(h %&5j'+v+ :,5 50j-5./ 013ql5&62\4q 52\679q8(2\:8i8;8i5;jc <?H&l66FVH@i AqH&l62\Bq52\Dq l5&62\E@6 EE EGql6&62\Hq 62\Iq62\JPKq 62\Lq6 2\Mq 6$2\NOq 6$2\PQq6 2\Rq 602\U @Vql69&62\Wq 52\XZ [ \6=j`? -<HowManyChangeRecsCSessionApplication