Inventory with barcode print out

[Chris80194]

Having issues sharing dim shared pos... across the entire program

Code: QB64: [Select]

1. CLEAR
2. TYPE InventoryDataStructure
3.     EmployeeScan AS STRING * 4
4.     Employeename AS STRING * 60
5.     ProductInventoryBrand AS STRING * 60
6.     ProductInventoryNumber AS STRING * 60
7.     ProductInventoryName AS STRING * 60
8.     ProductInventoryWeightBegin AS _INTEGER64
9.     ProductInventoryUPCCode AS STRING * 20
10.     ProductInventoryCost AS _INTEGER64
11.     ProductInventoryPurchaseDate AS STRING * 60
12.     ProductInventoryExpirationDate AS STRING * 60
13.     ProductInventoryWeightCheckOut AS _INTEGER64
14.     ProductInventoryWeightCheckIn AS _INTEGER64
15.     StockUPC AS STRING * 60
16.     TypeofProductInventory AS STRING * 60
17.     BatchNumber AS STRING * 60
18.     BoxNumber AS STRING * 4
19.     GallonorPound AS STRING * 8
20.     InventoryCost AS STRING * 8
21.     Room AS STRING * 60
22.     Rack AS STRING * 60
23.     Shelf AS STRING * 60
24.     Bin AS STRING * 60
25.     DT AS STRING * 60
26.     TM AS STRING * 60
27.     Phone AS _INTEGER64
28. END TYPE
29. DIM SHARED ProductInventory AS InventoryDataStructure
30. DIM array
31. DIM SHARED pos1, pos2, linepos: pos1 = 2: linepos = 2: pos2 = 30
32.  
33. 'Product Constants future rewrite
34. TYPE ProductDataStructure
35.     EmployeeScan AS STRING * 4
36.     Employeename AS STRING * 60
37.     ProductInventoryBrand AS STRING * 60
38.     ProductInventoryNumber AS STRING * 60
39.     ProductInventoryName AS STRING * 60
40.     ProductInventoryWeightBegin AS _INTEGER64
41. END TYPE
42. 'DIM shared ProductPurchase AS ProductDataStructure
43. 'OPEN ProductInventoryUPCFile$ FOR RANDOM AS #freefile LEN = LEN(ProductPurchase)
44.  
45. CLEAR 'Close All Open files After a Start.
46.  
47. 1
48. COLOR 15, 7 'Foreground, Background  colors
49. Author$ = "Written by Chris Owen on 6-20-2019, Email: chris.owen09@gmail.com"
50. Title$ = "A1 Powder Coat"
51. SerialFile$ = "Serial.csv"
52. EmployeeFile$ = "Employee.csv"
53. DBase$ = "ProductInventoryInventory.csv"
54. ProductInventoryUPCFile$ = "ProductInventoryFile.csv"
55.  
56. CLS
57. LOCATE 25, 80 - LEN(Author$): PRINT Author$
58. position = 3
59. DO UNTIL choice$ <> ""
60.     TTime$ = DATE$ + "_" + LEFT$(TIME$, 2) + "." + MID$(TIME$, 4, 2) + "." + RIGHT$(TIME$, 2)
61.     LOCATE 3, 15: PRINT Title$ + " Inventory": COLOR 14, 7: LOCATE 3, 50: PRINT TTime$: COLOR 15, 7 ' only 23 lines on screen 80 wide
62.     LOCATE 1, 80 - 5 - LEN(GetLocalIP$): COLOR 11, 7: PRINT "IP (" + GetLocalIP$ + ")": COLOR 15, 7
63.     LOCATE 4 + position, 1: PRINT "1 Single Entry"
64.     LOCATE 5 + position, 1: PRINT "2 Multiple Entry"
65.     LOCATE 7 + position, 1: PRINT "E Edit Employee File " + EmployeeFile$
66.  
67.     LOCATE 15 + position, 1: PRINT "I RAW Edit " + DBase$ + " Passworded"
68.     LOCATE 16 + position, 1: PRINT "V Verify Ping to Host"
69.     LOCATE 17 + position, 1: PRINT ""
70.  
71.     LOCATE 19 + position, 1: PRINT "P Printer Select"
72.     LOCATE 23, 1: PRINT "ESC to exit" ' Lock in here no lower
73.  
74.     choice$ = UCASE$(INKEY$) 'change any user key press to uppercase
75.  
76. LOOP
77.  
78. IF choice$ = "1" THEN CALL Part(choice$, DBase$, Title$, SerialFile$, EmployeeFile$, ProductInventoryUPCFile$)
79. IF choice$ = "2" THEN CALL Part(choice$, DBase$, Title$, SerialFile$, EmployeeFile$, ProductInventoryUPCFile$)
80.  
81. IF choice$ = "I" THEN CALL Partcsv(DBase$, Title$)
82. IF choice$ = "E" THEN CALL Employee(EmployeeScan$, EmployeeName$, EmployeeFile$): GOTO 1
83. IF choice$ = "V" THEN CALL ping
84.  
85. IF choice$ = "P" THEN CALL Select_Printer(Title$)
86.  
87. IF choice$ = CHR$(27) THEN SYSTEM
88. choice$ = ""
89. GOTO 1
90.  
91. SUB Part (choice$, Dbase$, Title$, Serial$, EmployeeFile$, ProductInventoryUPCFile$)
92.     'INPUT "pause", a
93.     OPEN Dbase$ FOR RANDOM AS #5 LEN = LEN(ProductInventory)
94.     NumRecords% = LOF(5) \ LEN(ProductInventory)
95.  
96.     444
97.     CLS
98.     IF UCASE$(choice$) = "2" THEN Multi = 1
99.     choice$ = ""
100.     COLOR 15, 5: CLS
101.     IF Multi = 0 OR 1 THEN
102.         LOCATE 1, 15: PRINT Title$ + " Single Entry"
103.  
104.     ELSE
105.         LOCATE 1, 15: PRINT Title$ + " Multiple Entry"
106.  
107.     END IF
108.     ' pos1 = 2: linepos = 2: pos2 = 30
109.     LOCATE linepos + 20, pos1: PRINT "ESC key plus Enter to exit"; "Records " + STR$(NumRecords%)
110.  
111.     11
112.     LOCATE linepos + 3, pos1: PRINT "Employee Scan"
113.     LOCATE linepos + 3, pos2: INPUT EmployeeScan$
114.     IF EmployeeScan$ = CHR$(27) THEN GOTO 31
115.     CALL Employee(EmployeeScan$, EmployeeName$, EmployeeFile$)
116.  
117.     LOCATE linepos + 2, 38: PRINT " Captured Employee Scan      " + ProductInventory.EmployeeScan + " " + ProductInventory.Employeename
118.  
119.     12
120.     LOCATE linepos + 4, pos1: PRINT "ProductInventory UPC Code"
121.     LOCATE linepos + 4, pos2: INPUT ProductInventoryUPCCode$
122.     IF ProductInventoryUPCCode$ = "" THEN GOTO 12
123.     IF ProductInventoryUPCCode$ = CHR$(27) THEN GOTO 31
124.     CALL ProductInventoryFile(ProductInventoryUPCCode$, ProductInventoryBrand$, PartNumber$, ProductInventoryName$, ProductInventoryUPCFile$, linepos, pos1, pos2)
125.  
126.     LOCATE linepos + 5, pos1: PRINT "ProductInventory Brand ": LOCATE linepos + 5, pos2: PRINT ProductInventory.ProductInventoryBrand
127.     LOCATE linepos + 6, pos1: PRINT "ProductInventory Name ": LOCATE linepos + 6, pos2: PRINT ProductInventory.ProductInventoryName
128.     LOCATE linepos + 7, pos1: PRINT "Part Number ": LOCATE linepos + 7, pos2: PRINT ProductInventory.ProductInventoryNumber
129.     INPUT "pause", a
130.     LOCATE linepos + 8, pos1: PRINT "Serialized Stock UPC": LOCATE linepos + 8, pos2: PRINT ProductInventory.StockUPC
131.     INPUT "pause", a
132.     LOCATE linepos + 9, pos1: PRINT "Batch Number"
133.     LOCATE linepos + 10, pos1: PRINT "Box Number"
134.     LOCATE linepos + 11, pos1: PRINT "Gallon or Pound"
135.     LOCATE linepos + 12, pos1: PRINT "ProductInventory Weight"
136.     LOCATE linepos + 13, pos1: PRINT "ProductInventory Cost"
137.  
138.     IF ProductInventory.ProductInventoryBrand = "" THEN LOCATE linepos + 5, pos2: INPUT ProductInventory.ProductInventoryBrand ELSE LOCATE linepos + 5, pos2: PRINT ProductInventory.ProductInventoryBrand
139.     IF ProductInventory.ProductInventoryBrand = CHR$(27) THEN GOTO 31
140.     IF ProductInventory.ProductInventoryName = "" THEN LOCATE linepos + 6, pos2: INPUT ProductInventory.ProductInventoryName ELSE LOCATE linepos + 7, pos2: PRINT ProductInventory.ProductInventoryName
141.     IF ProductInventory.ProductInventoryName = CHR$(27) THEN GOTO 31
142.     IF ProductInventory.ProductInventoryNumber = "" THEN LOCATE linepos + 7, pos2: INPUT ProductInventory.ProductInventoryNumber ELSE LOCATE linepos + 6, pos2: PRINT ProductInventory.ProductInventoryNumber
143.     IF ProductInventory.ProductInventoryNumber = CHR$(27) THEN GOTO 31
144.  
145.     CALL SerialGen(Serial$)
146.     ProductInventory.StockUPC = ProductInventory.ProductInventoryNumber + Serial$
147.     LOCATE linepos + 8, pos1: PRINT "Serialized Stock UPC": LOCATE linepos + 8, pos2: PRINT ProductInventory.StockUPC
148.  
149.     LOCATE linepos + 9, pos2: INPUT ProductInventory.BatchNumber
150.     IF ProductInventory.BatchNumber = CHR$(27) THEN GOTO 31
151.  
152.     LOCATE linepos + 10, pos2: INPUT ProductInventory.BoxNumber
153.     IF ProductInventory.BoxNumber = CHR$(27) THEN GOTO 31
154.  
155.     LOCATE linepos + 11, pos2: INPUT ProductInventory.GallonorPound
156.     IF ProductInventory.GallonorPound = CHR$(27) THEN GOTO 31
157.  
158.     LOCATE linepos + 12, pos2: INPUT ProductInventory.ProductInventoryWeightBegin
159.  
160.     LOCATE linepos + 13, pos2: INPUT ProductInventory.ProductInventoryCost
161.  
162.     LOCATE linepos + 14, pos1: PRINT "ProductInventory Purchase/Received Date"
163.     IF ProductInventory.BoxNumber = CHR$(27) THEN GOTO 31
164.     LOCATE linepos + 15, pos1: PRINT "ProductInventory Expiration Date"
165.     IF ProductInventory.BoxNumber = CHR$(27) THEN GOTO 31
166.     LOCATE linepos + 16, pos1: PRINT "ProductInventory Weight Check Out"
167.  
168.     LOCATE linepos + 17, pos1: PRINT "ProductInventory Weight Check In"
169.  
170.     LOCATE linepos + 18, pos1: PRINT "Serialized Stock UPC"
171.  
172.     LOCATE linepos + 19, pos1: PRINT "Type of ProductInventory"
173.  
174.     LOCATE linepos + 20, pos1: PRINT "Room"
175.  
176.     LOCATE linepos + 21, pos1: PRINT "Rack"
177.  
178.     LOCATE linepos + 22, pos1: PRINT "Shelf"
179.  
180.     LOCATE linepos + 23, pos1: PRINT "Bin"
181.  
182.     13
183.     LOCATE linepos + 14, pos2: INPUT ProductInventory.ProductInventoryPurchaseDate
184.     akey$ = ""
185.     IF LEN(ProductInventory.ProductInventoryPurchaseDate) < 8 THEN ProductInventory.ProductInventoryPurchaseDate = LEFT$(ProductInventory.ProductInventoryPurchaseDate, 4) + "20" + RIGHT$(ProductInventory.ProductInventoryPurchaseDate, 2): ProductInventory.ProductInventoryPurchaseDate = LEFT$(ProductInventory.ProductInventoryPurchaseDate, 2) + "-" + MID$(ProductInventory.ProductInventoryPurchaseDate, 3, 2) + "-" + RIGHT$(ProductInventory.ProductInventoryPurchaseDate, 4)
186.     LOCATE linepos + 14, pos2: PRINT "? " + ProductInventory.ProductInventoryPurchaseDate
187.     LOCATE linepos + 14, pos2 + 13: PRINT "Correct N/Y ?"
188.     DO
189.         akey$ = INKEY$
190.         IF UCASE$(akey$) = "N" THEN LOCATE linepos + 10, pos2: PRINT "                              ": GOTO 13
191.     LOOP WHILE akey$ = ""
192.  
193.     14
194.     LOCATE linepos + 15, pos2: INPUT ProductInventory.ProductInventoryExpirationDate
195.     akey$ = ""
196.     IF LEN(ProductInventory.ProductInventoryExpirationDate) < 8 THEN ProductInventory.ProductInventoryExpirationDate = LEFT$(ProductInventory.ProductInventoryExpirationDate, 4) + "20" + RIGHT$(ProductInventory.ProductInventoryExpirationDate, 2): ProductInventory.ProductInventoryExpirationDate = LEFT$(ProductInventory.ProductInventoryExpirationDate, 2) + "-" + MID$(ProductInventory.ProductInventoryExpirationDate, 3, 2) + "-" + RIGHT$(ProductInventory.ProductInventoryExpirationDate, 4)
197.     LOCATE linepos + 15, pos2: PRINT "? " + ProductInventory.ProductInventoryExpirationDate
198.     LOCATE linepos + 15, pos2 + 13: PRINT "Correct N/Y ?"
199.     DO
200.         akey$ = INKEY$
201.         IF UCASE$(akey$) = "N" THEN LOCATE linepos + 11, pos2: PRINT "                              ": GOTO 14
202.     LOOP WHILE akey$ = ""
203.  
204.     LOCATE linepos + 16, pos2: INPUT ProductInventory.ProductInventoryWeightCheckOut
205.     LOCATE linepos + 17, pos2: INPUT ProductInventory.ProductInventoryWeightCheckIn
206.     LOCATE linepos + 18, pos2: INPUT ProductInventory.TypeofProductInventory
207.     LOCATE linepos + 19, pos2: INPUT ProductInventory.Room
208.     LOCATE linepos + 20, pos2: INPUT ProductInventory.Rack
209.     LOCATE linepos + 21, pos2: INPUT ProductInventory.Shelf
210.     LOCATE linepos + 22, pos2: INPUT ProductInventory.Bin
211.     LOCATE linepos + 24, pos1: PRINT "Only C Cancels Entry anything else to save"
212.     DO
213.         akey$ = INKEY$
214.         IF UCASE$(akey$) = UCASE$("C") THEN Cancel = 1
215.     LOOP WHILE akey$ = ""
216.     akey$ = ""
217.  
218.     IF Multi = 1 THEN
219.         LOCATE linepos + 20, pos1: PRINT "ESC to Save Last Entry and Exit"
220.         DO
221.             akey$ = INKEY$
222.             IF UCASE$(akey$) = CHR$(27) THEN Last$ = "yes"
223.         LOOP WHILE akey$ = ""
224.     END IF
225.     akey$ = ""
226.  
227.     ProductInventory.TM = TIME$: ProductInventory.DT = DATE$
228.  
229.     300
230.     IF Cancel = 1 THEN GOTO 444
231.     'IF Multi = 0 OR 1 THEN
232.     OPEN SerialFile$ FOR OUTPUT AS #2
233.  
234.     'Add Inventory
235.     Discpass$ = ProductInventory.ProductInventoryName
236.     Datapass$ = ProductInventory.StockUPC
237.     EXP$ = ProductInventory.ProductInventoryExpirationDate
238.     Pass$ = ProductInventory.ProductInventoryNumber
239.  
240.     CALL Barcode(Datapass$, Discpass$, Title$, Pass$, EXP$)
241.     NumRecords% = LOF(5) \ LEN(ProductInventory)
242.     PUT #5, NumRecords% + 1, ProductInventory
243.  
244.     'Increment Serial Number
245.     CALL SerialGen(Serial$)
246.  
247.     IF Multi = 1 AND NOT Last$ = "yes" THEN 444
248.    31
249. END SUB
250.  
251. SUB Select_Printer (Title$)
252.     Pos10 = 15
253.     CLS
254.     COLOR 15, 0
255.     SHELL _HIDE "cmd/c wmic printer get name, default> impresora.txt"
256.     DIM impresora(50) AS STRING
257.     OPEN "I", 10, "impresora.txt"
258.     n% = 0
259.     LINE INPUT #10, dato$
260.     DO
261.         LINE INPUT #10, dato$: LINE INPUT #10, dato$
262.         IF EOF(10) THEN EXIT DO
263.         n% = n% + 1
264.         DO
265.             a% = INSTR(dato$, CHR$(0))
266.             IF a% = 0 THEN EXIT DO
267.             IF a% = 1 THEN
268.                 dato$ = MID$(dato$, a% + 1)
269.             ELSEIF a% = LEN(dato$) THEN
270.                 dato$ = LEFT$(dato$, a% - 1)
271.             ELSE
272.                 dato$ = LEFT$(dato$, a% - 1) + MID$(dato$, a% + 1)
273.             END IF
274.         LOOP
275.         a% = INSTR(dato$, "FALSE"): b% = INSTR(dato$, "TRUE")
276.         IF a% <> 0 THEN
277.             MID$(dato$, a%, 5) = SPACE$(5)
278.             dato$ = LTRIM$(RTRIM$(dato$))
279.         END IF
280.         IF b% <> 0 THEN
281.             MID$(dato$, b%, 5) = SPACE$(4)
282.             dato$ = LTRIM$(RTRIM$(dato$))
283.             loca% = n%
284.         END IF
285.         impresora(n%) = dato$
286.         impresora(0) = LTRIM$(STR$(n%))
287.     LOOP
288.     COLOR 7, 0
289.     CLS
290.     COLOR 1, 7
291.     LOCATE 8, Pos10 - 1: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
292.     LOCATE 9, Pos10 - 1: PRINT "º                                        º"
293.     LOCATE 10, Pos10 - 1: PRINT "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
294.     LOCATE 11, Pos10 - 1: PRINT "º                                        º"
295.     LOCATE 12, Pos10 - 1: PRINT "º                                        º"
296.     LOCATE 13, Pos10 - 1: PRINT "º                                        º"
297.     LOCATE 14, Pos10 - 1: PRINT "º                                        º"
298.     LOCATE 15, Pos10 - 1: PRINT "º                                        º"
299.     LOCATE 16, Pos10 - 1: PRINT "ÈÍÍÍÍÍÍÍ<Esc>ÍÍÍÍ<"; CHR$(24); ">Í<"; CHR$(25); ">ÍÍÍÍ<"; CHR$(17); CHR$(217); ">ÍÍÍÍÍÍÍÍͼ"
300.     COLOR 15, 1
301.     LOCATE 9, Pos10: PRINT "            SELECT PRINTER              ";
302.     COLOR 1, 7
303.     max% = VAL(impresora(0))
304.     GOSUB impridatos
305.     DO
306.         x$ = "": WHILE x$ = "": x$ = INKEY$: WEND
307.         x$ = UCASE$(x$)
308.         x% = ASC(RIGHT$(x$, 1))
309.         SELECT CASE x%
310.             CASE IS = 27
311.                 a$ = "@"
312.                 EXIT DO
313.             CASE IS = 13
314.                 a$ = impresora(loca%)
315.                 EXIT DO
316.             CASE IS = 72: '--Subir
317.                 IF loca% > 1 THEN
318.                     loca% = loca% - 1
319.                     GOSUB impridatos
320.                 END IF
321.             CASE IS = 80: '--Bajar
322.                 IF loca% < max% THEN
323.                     loca% = loca% + 1
324.                     GOSUB impridatos
325.                 END IF
326.         END SELECT
327.     LOOP
328.     COLOR 7, 0
329.     CLS
330.     IF a$ <> "@" THEN
331.         SHELL _HIDE "cmd/c wmic printer where name='" + a$ + "' call setdefaultprinter"
332.         PRINT "Selected printer: "; a$
333.     ELSE
334.         PRINT "The printer has not been modified"
335.     END IF
336.     GOTO 700
337.     impridatos:
338.     y% = 1
339.     FOR n% = loca% - 2 TO loca% + 2
340.         IF n% < 1 OR n% > max% THEN
341.             COLOR 1, 7: LOCATE y% + 10, Pos10: PRINT "                                        "
342.         ELSE
343.             IF n% = loca% THEN COLOR 15, 4 ELSE COLOR 1, 7
344.             LOCATE y% + 10, Pos10: PRINT "                                        "
345.             LOCATE y% + 10, Pos10: PRINT LEFT$(impresora(n%), 40)
346.         END IF
347.         y% = y% + 1
348.     NEXT
349.     RETURN
350.    700
351.     CLOSE 10
352. END SUB
353.  
354. FUNCTION GetLocalIP$
355.     choice$ = ""
356.     SHELL _HIDE "cmd /c ipconfig > IPconfig.tmp"
357.     A = FREEFILE
358.     OPEN "IPconfig.tmp" FOR INPUT AS #A
359.     DO
360.         LINE INPUT #A, ipline$
361.         IF UCASE$(LEFT$(LTRIM$(ipline$), 4)) = "IPV4" THEN
362.             GetLocalIP$ = MID$(ipline$, INSTR(ipline$, ":") + 2)
363.             IF GetLocalIP$ = "127.0.0.1" THEN GetLocalIP$ = "offline": GOTO 77
364.             '         CLOSE #A
365.             '         KILL "IPconfig.tmp" 'kill the messenger?
366.             EXIT DO
367.            77
368.         END IF
369.     LOOP UNTIL EOF(1)
370.     CLOSE #A
371.     KILL "IPconfig.tmp" 'kill the messenger?
372.  
373. END FUNCTION
374.  
375. SUB ping
376.     ' Shell to ping and get results 0 up 1 down
377.     INPUT "Host to ping? ", ip$
378.     IF ip$ = "" GOTO 777
379.     result& = _SHELLHIDE("ping " + ip$ + " -n 1 -w 100")
380.     IF result& = 0 THEN
381.         'success
382.         COLOR 2, 15
383.         PRINT DATE$ + " " + TIME$ + " " + " Ping ("; ip$; ") "; "UP   ";
384.         COLOR 7, 1
385.     ELSE
386.         COLOR 4, 15
387.         PRINT DATE$ + " " + TIME$ + " " + " Ping ("; ip$; ") "; "DN   ";
388.         COLOR 7, 1
389.         REM PRINT #2, DATE$ + " " + TIME$ + " " + "Ping (" + ip$ + ") (" + desc$ + ")" + "   Down": flag = 1: set = 0
390.     END IF
391.     flag = 1: set = 0
392.     INPUT "pause", ip$
393.    777
394. END SUB
395.  
396. SUB Partcsv (DBase$, Title$)
397.     CLS: LOCATE 6
398.     PRINT "Whoa there pardner, lets make sure you are authorized to be here."
399.     INPUT "Enter the User name? ", User$
400.     INPUT "Enter the Password? ", Password$
401.     IF UCASE$(User$) <> "CHRIS" AND Password$ <> "Rdg09Dgr!$@#" THEN
402.         PRINT "Sorry you are not allowed to be in here, lets get you somewhere safe"
403.         PRINT "Press any key to continue"
404.         DO
405.             akey$ = INKEY$
406.             IF UCASE$(akey$) <> "" THEN EXIT SUB
407.         LOOP WHILE akey$ = ""
408.     END IF
409.     SHELL "notepad " + DBase$
410. END SUB
411.  
412.  
413. SUB Choicea
414.     ' OPEN Dbase$ FOR APPEND AS #1
415.     ' WRITE #1, EmployeeScan$, ProductInventoryBrand$, ProductInventoryNumber$, ProductInventoryName$, ProductInventoryWeightBegin$, ProductInventoryUPCCode$, ProductInventoryCost$, ProductInventory.ProductInventoryPurchaseDate, ProductInventory.ProductInventoryExpirationDate, ProductInventoryWeightCheckOut$, ProductInventoryWeightCheckIn$, StockUPC$, TypeofProductInventory$, Rack$, Shelf$, Bin$, DT$, TM$, a10$, a11$, a12$, b10$, b11$, b12$, c10$, c11$, c12$, d10$, d11$, d12$, e10$, e11$, e12$, f10$, f11$, f12$
416.  
417.  
418.     IF Station$ = "?" THEN CALL Partcsv(Dbase$, Title$)
419.     IF Station$ = "1" THEN Station$ = "1": GOTO 12
420.     IF Station$ = "2" THEN Station$ = "2": GOTO 12
421.     IF Station$ = "3" THEN Station$ = "3": GOTO 12
422.     IF Station$ = "4" THEN Station$ = "4": GOTO 12
423.     IF Station$ = "5" THEN Station$ = "5": GOTO 12
424.     IF Station$ = "6" THEN Station$ = "6": GOTO 12
425.     IF Station$ = "7" THEN Station$ = "7": GOTO 12
426.     IF Station$ = "8" THEN Station$ = "8": GOTO 12
427.     IF Station$ = "9" THEN Station$ = "9": GOTO 12
428.     IF Station$ = "1O" THEN Station$ = "10": GOTO 12
429.     IF Station$ = "11" THEN Station$ = "11": GOTO 12
430.     IF Station$ = "12" THEN Station$ = "12": GOTO 12
431.     IF Station$ = "13" THEN Station$ = "13": GOTO 12
432.     IF Station$ = "14" THEN Station$ = "14": GOTO 12
433.     IF Station$ = "15" THEN Station$ = "15": GOTO 12
434.     IF Station$ = CHR$(27) THEN GOTO 31
435.  
436.     DO
437.  
438.         LOCATE 19, 1: PRINT "Choose a Line to input: "; 'semicolon saves position for user entry
439.  
440.         DO: keypress$ = UCASE$(INKEY$) 'change any user key press to uppercase
441.  
442.         LOOP UNTIL keypress$ <> ""
443.         COLOR 15, 1: PRINT keypress$
444.         Station$ = keypress$
445.         GOTO 12
446.  
447.     LOOP
448.  
449.     12
450.     CLS
451.     LOCATE 1, 20: PRINT Title$ + " Part": LOCATE 1, pos2: PRINT " Display" + STR$(Multi)
452.     IF keypress$ = "O" THEN LOCATE 2, 2: INPUT ; "Station ?", Station$
453.    31
454. END SUB
455.  
456. SUB Employee (EmployeeScan$, EmployeeName$, EmployeeFile$)
457.     LinepPos = 5
458.     EF = FREEFILE
459.     OPEN EmployeeFile$ FOR INPUT AS #EF
460.  
461.     'LOCATE Linepos + 11, pos2: INPUT "Number ", EmployeeScan$
462.    651
463.     DO WHILE NOT EOF(EF)
464.         INPUT #EF, A$, B$, C$, D$
465.         IF EmployeeScan$ = A$ THEN
466.             EmployeeName$ = B$
467.             ProductInventory.EmployeeScan = EmployeeScan$
468.             ProductInventory.Employeename = EmployeeName$
469.             EXIT DO
470.         END IF
471.     LOOP
472.     IF EmployeeName$ <> "" THEN GOTO 657
473.    652
474.  
475.     LOCATE linepos + 30, pos2: PRINT "Employee Maintance"
476.     LOCATE linepos + 31, pos2: PRINT "Name ", EmployeeName$
477.     LOCATE linepos + 32, pos2: PRINT "Number ", EmployeeScan$
478.     LOCATE linepos + 34, pos2: PRINT "Do you need to Edit?"
479.     LOCATE linepos + 35, pos2: PRINT "  (A)dd Restart, (N)umber, (E)mployee, then finaly (S)ave, (ESC) all changes"
480.     DO
481.         akey$ = INKEY$
482.         IF UCASE$(akey$) = "N" THEN GOTO 653
483.         IF UCASE$(akey$) = "E" THEN GOTO 654
484.         IF UCASE$(akey$) = "A" THEN GOTO 655
485.         IF UCASE$(akey$) = "S" THEN GOTO 656
486.         IF UCASE$(akey$) = CHR$(27) THEN GOTO 657
487.     LOOP WHILE akey$ = ""
488.  
489.     653
490.  
491.     LOCATE linepos + 30, pos2: PRINT "Change Employee Number"
492.     LOCATE linepos + 31, pos2: PRINT "Name ", EmployeeName$
493.     LOCATE linepos + 32, pos2: INPUT "Number ", EmployeeScan$
494.     C$ = TIME$ + "-" + DATE$
495.     GOTO 651
496.  
497.  
498.     654
499.  
500.     LOCATE linepos + 30, pos2: PRINT "Change Employee Name"
501.     LOCATE linepos + 31, pos2: PRINT "Number ", EmployeeScan$
502.     LOCATE linepos + 32, pos2: INPUT "Name ", EmployeeName$
503.     C$ = TIME$ + "-" + DATE$
504.     GOTO 651
505.  
506.     655
507.  
508.     LOCATE linepos + 30, pos2: PRINT "Add New Employee"
509.     LOCATE linepos + 31, pos2: INPUT "Number ", EmployeeScan$
510.     LOCATE linepos + 32, pos2: INPUT "Name ", EmployeeName$
511.     C$ = TIME$ + "-" + DATE$
512.     IF D$ = "" THEN D$ = C$
513.     GOTO 651
514.  
515.     656
516.     CLOSE #EF: OPEN EmployeeFile$ FOR APPEND AS #EF
517.     WRITE #EF, EmployeeScan$, EmployeeName$, C$, D$
518.     CLOSE #EF
519.    657
520.     CLOSE #EF
521.  
522. END SUB
523.  
524. SUB ProductInventoryFile (ProductInventoryUPCCode$, ProductInventoryBrand$, ProductInventoryNumber$, ProductInventoryName$, ProductInventoryUPCFile$, linepos, pos1, pos2)
525.     PIF = FREEFILE
526.     IF _FILEEXISTS(ProductInventoryUPCFile$) THEN OPEN ProductInventoryUPCFile$ FOR INPUT AS #PIF ELSE GOTO 555
527.     IF ProductInventoryUPCCode$ = CHR$(27) THEN EXIT SUB
528.    553
529.     DO WHILE NOT EOF(PIF)
530.         INPUT #PIF, A$, B$, C$, D$
531.         IF ProductInventoryUPCCode$ = A$ THEN
532.             ProductInventoryBrand$ = B$
533.             ProductInventoryNumber$ = C$
534.             ProductInventoryName$ = D$
535.             CLOSE #PIF
536.             GOTO 554
537.         END IF
538.     LOOP
539.  
540.     555
541.     CLOSE #PIF
542.     OPEN ProductInventoryUPCFile$ FOR APPEND AS #PIF
543.     LOCATE linepos + 5, pos1: PRINT "ProductInventory Brand ": LOCATE linepos + 5, pos2: PRINT ProductInventory.ProductInventoryBrand
544.     LOCATE linepos + 6, pos1: PRINT "ProductInventory Name ": LOCATE linepos + 6, pos2: PRINT ProductInventory.ProductInventoryName
545.     LOCATE linepos + 7, pos1: PRINT "Part Number ": LOCATE linepos + 7, pos2: PRINT ProductInventory.ProductInventoryNumber
546.  
547.     LOCATE linepos + 5, pos2: INPUT ProductInventoryBrand$
548.     LOCATE linepos + 6, pos2: INPUT ProductInventoryName$
549.     LOCATE linepos + 7, pos2: INPUT ProductInventoryNumber$
550.     WRITE #PIF, ProductInventoryUPCCode$, ProductInventoryBrand$, ProductInventoryNumber$, ProductInventoryName$
551.     CLOSE #PIF
552.  
553.     554
554.     ProductInventory.ProductInventoryUPCCode = ProductInventoryUPCCode$
555.     ProductInventory.ProductInventoryBrand = ProductInventoryBrand$
556.     ProductInventory.ProductInventoryNumber = PartNumber$
557.     ProductInventory.ProductInventoryName = ProductInventoryName$
558.  
559. END SUB
560.  
561. SUB Barcode (DATAPASS$, DISCPASS$, Title$, Pass$, EXP$)
562.  
563.  
564.     ' DATAPASS$ = "123456789"
565.     DATAPASS$ = "*" + DATAPASS$ + "*"
566.     'EXP$ = "07/12/1900"
567.     'DISCPASS$ = "Black Powder"
568.  
569.     'Pass$ = "ASDFEWEW"
570.  
571.     'Page
572.     FFONT$ = "free3of9x.ttf": FFSize = 120
573.     EFONT$ = "Arial.ttf": EFSize = 60
574.     AFONT$ = "Arial.ttf": AFSize = 60
575.     PageWidth = 216 * 10
576.     PageHeight = 279 * 10
577.  
578.     'Label designerd for the Brother 201 (29mm x 90mm or 1-1/7" x 3-1/2") / Zebra ZDesigner LP 2844 looks compatable.
579.     FFONT$ = "free3of9x.ttf": FFSize = 240
580.     EFONT$ = "Arial.ttf": EFSize = 35
581.     AFONT$ = "Arial.ttf": AFSize = 20
582.     PageWidth = 110 * 10 'maximized tweaks for whole label
583.     PageHeight = 29 * 10 'Max is already set do not change.
584.  
585.     Colum = 10
586.     a = 0
587.     RowA = 70 'Barcode on top of Custom description
588.     RowB = 45 'ProductInventory Description Above Barcode
589.     RowC = 0 'Custom Description line below Barcode
590.  
591.     SCREEN _NEWIMAGE(PageWidth, PageHeight, 13)
592.     _DEST Page&: CLS _RGB(1, 1, 1), _RGB(256, 256, 256): _DEST 0 'make background white to save ink!
593.     COLOR
594.     F& = _LOADFONT(FFONT$, FFSize)
595.     E& = _LOADFONT(EFONT$, EFSize)
596.     A& = _LOADFONT(AFONT$, AFSize)
597.  
598.     _FONT F&
599.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, RowB), DATAPASS$ ' Print upc bars on bottom of label
600.  
601.     _FONT E&
602.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (400, RowC), Title$ ' Print Line 1 description
603.  
604.     _FONT A&
605.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, RowC + 25), DISCPASS$ ' Print Line 2 ProductInventory description
606.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, RowC + 85), Pass$ ' Print Line 3 ProductInventory description
607.  
608.     _FONT A&
609.     keep = LEN(DATAPASS$): DATAPASS$ = MID$(DATAPASS$, 2, keep - 2)
610.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, RowC), "Serial " + DATAPASS$ ' Print upc bar information above bar scan font
611.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (925, RowC), "Use By " + EXP$ ' Print Product Expiry Date
612.  
613.     INPUT a
614.     _PRINTIMAGE 0 'print screen page on printer
615.     SCREEN 0
616. END SUB
617.  
618. SUB SerialGen (serial$)
619.     SN = FREEFILE
620.     Exists = _FILEEXISTS("SerialFile.txt")
621.     IF Exists = 0 THEN
622.         OPEN "SerialFile.txt" FOR OUTPUT AS #SN
623.         serial$ = "000000000"
624.         PRINT #SN, serial$
625.         CLOSE #SN
626.     END IF
627.     OPEN "SerialFile.txt" FOR INPUT AS #SN
628.     INPUT #SN, serial$: CLOSE #SN
629.     SSerial$ = LEFT$(serial$, 1)
630.     ISerial = VAL(serial$)
631.     ISerial = ISerial + 1:
632.     ISerial$ = LTRIM$(STR$(ISerial))
633.     DO UNTIL LEN(ISerial$) = 9
634.         ISerial$ = "0" + ISerial$
635.     LOOP
636.     OPEN "SerialFile.txt" FOR OUTPUT AS #SN
637.     serial$ = SSerial$ + ISerial$
638.     PRINT #SN, serial$
639.     CLOSE #SN
640. END SUB
641.  

[bplus]

Code: QB64: [Select]

1. DIM SHARED pos1, pos2, linepos: pos1 = 2: linepos = 2: pos2 = 30

I don't think colons a good idea for this line, I think it is equivalent to:

Code: QB64: [Select]

1. DIM SHARED pos1, pos2, linepos
2. pos1 = 2
3. linepos = 2
4. pos2 = 30

Oh wait, your are just making assignments... but still if you are having problems... try the equivalent.

Update: well that's not it by my simple test!

Looks like you are updating an old GOTO program, I see line numbers everywhere. OPTION _EXPLICIT can help track down typo's or misnamed renamimg...

[Chris80194]

LOL its a brand new program LOL
Im old goto school from GWbasic
My coding is more like a monkey in a cage tossing feces around to see what sticks.
but it is coming together.
Ill try that tip.
Thanks.

[Chris80194]

Ok so I have been bouncing around in the program pounding keys and this is what I found so far.
I think the screen size might be the major issue with line and column positioning.  The type declare has 60 positions for each part I need to reduce the fields some on many parts as a field that has only 8 letters does not need 60 places.
I do like the suggestion given and added it to the top so I can throw it as needed  'OPTION _EXPLICIT
The goal is to make each sub do its part without needing to rewrite each part twice aith tweaks.

Code: QB64: [Select]

1. CLEAR 'OPTION _EXPLICIT
2. TYPE InventoryDataStructure
3.     EmployeeScan AS STRING * 4
4.     Employeename AS STRING * 60
5.     ProductInventoryBrand AS STRING * 60
6.     ProductInventoryNumber AS STRING * 60
7.     ProductInventoryName AS STRING * 60
8.     ProductInventoryWeightBegin AS _INTEGER64
9.     ProductInventoryUPCCode AS STRING * 20
10.     ProductInventoryCost AS _INTEGER64
11.     ProductInventoryPurchaseDate AS STRING * 60
12.     ProductInventoryExpirationDate AS STRING * 60
13.     ProductInventoryWeightCheckOut AS _INTEGER64
14.     ProductInventoryWeightCheckIn AS _INTEGER64
15.     StockUPC AS STRING * 60
16.     TypeofProductInventory AS STRING * 60
17.     BatchNumber AS STRING * 60
18.     BoxNumber AS STRING * 4
19.     GallonorPound AS STRING * 8
20.     InventoryCost AS STRING * 8
21.     Room AS STRING * 60
22.     Rack AS STRING * 60
23.     Shelf AS STRING * 60
24.     Bin AS STRING * 60
25.     DT AS STRING * 60
26.     TM AS STRING * 60
27.     Phone AS _INTEGER64
28. END TYPE
29. DIM SHARED ProductInventory AS InventoryDataStructure
30. DIM SHARED pos1, pos2, linepos: pos1 = 2: linepos = 1: pos2 = 30
31.  
32. 'Product Constants future rewrite
33. TYPE ProductDataStructure
34.     EmployeeScan AS STRING * 4
35.     Employeename AS STRING * 60
36.     ProductInventoryBrand AS STRING * 60
37.     ProductInventoryNumber AS STRING * 60
38.     ProductInventoryName AS STRING * 60
39.     ProductInventoryWeightBegin AS _INTEGER64
40. END TYPE
41. 'DIM shared ProductPurchase AS ProductDataStructure
42. 'OPEN ProductInventoryUPCFile$ FOR RANDOM AS #freefile LEN = LEN(ProductPurchase)
43.  
44. CLEAR 'Close All Open files After a Start.
45.  
46. 1
47. COLOR 15, 7 'Foreground, Background  colors
48. Author$ = "Written by Chris Owen on 6-20-2019, Email: chris.owen09@gmail.com"
49. Title$ = "A1 Powder Coat"
50. EmployeeFile$ = "Employee.csv"
51. DBase$ = "ProductInventoryStock.RND"
52. ProductInventoryUPCFile$ = "ProductInventoryFile.csv"
53.  
54. CLS
55. LOCATE 25, 80 - LEN(Author$): PRINT Author$
56. position = 3
57. DO UNTIL choice$ <> ""
58.     TTime$ = DATE$ + "_" + LEFT$(TIME$, 2) + "." + MID$(TIME$, 4, 2) + "." + RIGHT$(TIME$, 2)
59.     LOCATE 3, 15: PRINT Title$ + " Inventory": COLOR 14, 7: LOCATE 3, 50: PRINT TTime$: COLOR 15, 7 ' only 23 lines on screen 80 wide
60.     LOCATE 1, 80 - 5 - LEN(GetLocalIP$): COLOR 11, 7: PRINT "IP (" + GetLocalIP$ + ")": COLOR 15, 7
61.     LOCATE 4 + position, 1: PRINT "1 Single Entry"
62.     LOCATE 5 + position, 1: PRINT "2 Multiple Entry"
63.     LOCATE 7 + position, 1: PRINT "E Edit Employee File " + EmployeeFile$
64.  
65.     LOCATE 15 + position, 1: PRINT "I RAW Edit " + DBase$ + " Passworded"
66.     LOCATE 16 + position, 1: PRINT "V Verify Ping to Host"
67.     LOCATE 17 + position, 1: PRINT ""
68.  
69.     LOCATE 19 + position, 1: PRINT "P Printer Select"
70.     LOCATE 23, 1: PRINT "ESC to exit" ' Lock in here no lower
71.  
72.     choice$ = UCASE$(INKEY$) 'change any user key press to uppercase
73.  
74. LOOP
75.  
76. IF choice$ = "1" THEN CALL Part(choice$, DBase$, Title$, SerialFile$, EmployeeFile$, ProductInventoryUPCFile$)
77. IF choice$ = "2" THEN CALL Part(choice$, DBase$, Title$, SerialFile$, EmployeeFile$, ProductInventoryUPCFile$)
78.  
79. IF choice$ = "I" THEN CALL Partcsv(DBase$, Title$)
80. IF choice$ = "E" THEN CALL Employee(EmployeeScan$, EmployeeName$, EmployeeFile$): GOTO 1
81. IF choice$ = "V" THEN CALL ping
82.  
83. IF choice$ = "P" THEN CALL Select_Printer(Title$)
84.  
85. IF choice$ = CHR$(27) THEN SYSTEM
86. choice$ = ""
87. GOTO 1
88.  
89. SUB Part (choice$, Dbase$, Title$, Serial$, EmployeeFile$, ProductInventoryUPCFile$)
90.     'INPUT "pause", a
91.     pos1 = 2: linepos = 2: pos2 = 30
92.     OPEN Dbase$ FOR RANDOM AS #5 LEN = LEN(ProductInventory)
93.     NumRecords% = LOF(5) \ LEN(ProductInventory)
94.  
95.     444
96.     CLS
97.     IF UCASE$(choice$) = "2" THEN Multi = 1
98.     choice$ = ""
99.     COLOR 15, 5: CLS
100.     IF Multi = 0 OR 1 THEN
101.         LOCATE 1, 15: PRINT Title$ + " Single Entry"; " Records " + STR$(NumRecords%)
102.  
103.     ELSE
104.         LOCATE 1, 15: PRINT Title$ + " Multiple Entry"; " Records " + STR$(NumRecords%)
105.  
106.     END IF
107.  
108.     LOCATE linepos + 21, pos1: PRINT "ESC key plus Enter to exit"
109.  
110.     11
111.     LOCATE linepos + 3, pos1: PRINT "Employee Scan"
112.     LOCATE linepos + 3, pos2: INPUT EmployeeScan$
113.     IF EmployeeScan$ = CHR$(27) THEN GOTO 31
114.     CALL Employee(EmployeeScan$, EmployeeName$, EmployeeFile$)
115.  
116.     LOCATE linepos + 3, pos1: PRINT "Captured Employee Scan      #" + RTRIM$(ProductInventory.EmployeeScan) + " " + RTRIM$(ProductInventory.Employeename)
117.  
118.     12
119.     LOCATE linepos + 4, pos1: PRINT "ProductInventory UPC Code"
120.     LOCATE linepos + 4, pos2: INPUT ProductInventoryUPCCode$
121.     IF ProductInventoryUPCCode$ = "" THEN GOTO 12
122.     IF ProductInventoryUPCCode$ = CHR$(27) THEN GOTO 31
123.     CALL ProductInventoryFile(ProductInventoryUPCCode$, ProductInventoryBrand$, ProductInventoryNumber$, ProductInventoryName$, ProductInventoryUPCFile$, linepos, pos1, pos2)
124.  
125.     LOCATE linepos + 5, pos1: PRINT "ProductInventory Brand ": LOCATE linepos + 5, pos2: PRINT RTRIM$(ProductInventory.ProductInventoryBrand)
126.     LOCATE linepos + 6, pos1: PRINT "ProductInventory Name ": LOCATE linepos + 6, pos2: PRINT RTRIM$(ProductInventory.ProductInventoryName)
127.     LOCATE linepos + 7, pos1: PRINT "Part Number ": LOCATE linepos + 7, pos2: PRINT RTRIM$(ProductInventory.ProductInventoryNumber)
128.     CALL SerialGen(Serial$): ProductInventory.StockUPC = Serial$ + "-" + RTRIM$(ProductInventory.ProductInventoryNumber)
129.     LOCATE linepos + 8, pos1: PRINT "Serialized Stock UPC": LOCATE linepos + 8, pos2: PRINT RTRIM$(ProductInventory.StockUPC)
130.     LOCATE linepos + 9, pos1: PRINT "Batch Number"
131.     LOCATE linepos + 10, pos1: PRINT "Box Number"
132.     LOCATE linepos + 11, pos1: PRINT "Measured as Gallon or Pound"
133.     LOCATE linepos + 12, pos1: PRINT "Weight"
134.     LOCATE linepos + 13, pos1: PRINT "Cost"
135.  
136.     LOCATE linepos + 9, pos2: INPUT ProductInventory.BatchNumber
137.     IF ProductInventory.BatchNumber = CHR$(27) THEN GOTO 31
138.  
139.     LOCATE linepos + 10, pos2: INPUT ProductInventory.BoxNumber
140.     IF ProductInventory.BoxNumber = CHR$(27) THEN GOTO 31
141.    22
142.     LOCATE linepos + 11, pos2: PRINT "?"
143.     GallonorPound$ = INKEY$
144.     IF UCASE$(GallonorPound$) = "G" THEN GallonorPound$ = "GALLON": GOTO 21
145.     IF UCASE$(GallonorPound$) = "P" THEN GallonorPound$ = "POUND": GOTO 21
146.     IF GallonorPound$ = CHR$(27) THEN GOTO 31
147.     GOTO 22
148.    21
149.     ProductInventory.GallonorPound = GallonorPound$
150.     LOCATE linepos + 11, pos2: PRINT RTRIM$(ProductInventory.GallonorPound)
151.  
152.     LOCATE linepos + 12, pos2: INPUT ProductInventory.ProductInventoryWeightBegin
153.  
154.     LOCATE linepos + 13, pos2: INPUT ProductInventory.ProductInventoryCost
155.  
156.     LOCATE linepos + 14, pos1: PRINT "Purchase/Received Date"
157.     IF ProductInventory.BoxNumber = CHR$(27) THEN GOTO 31
158.     LOCATE linepos + 15, pos1: PRINT "Expiration Date"
159.     IF ProductInventory.BoxNumber = CHR$(27) THEN GOTO 31
160.  
161.     LOCATE linepos + 16, pos1: PRINT "Type of Product Dry or Wet"
162.  
163.     LOCATE linepos + 17, pos1: PRINT "Room"
164.  
165.     LOCATE linepos + 18, pos1: PRINT "Rack"
166.  
167.     LOCATE linepos + 19, pos1: PRINT "Shelf"
168.  
169.     LOCATE linepos + 20, pos1: PRINT "Bin"
170.  
171.     13
172.     LOCATE linepos + 14, pos2: INPUT ProductInventory.ProductInventoryPurchaseDate
173.     akey$ = ""
174.     IF LEN(ProductInventory.ProductInventoryPurchaseDate) < 8 THEN ProductInventory.ProductInventoryPurchaseDate = LEFT$(ProductInventory.ProductInventoryPurchaseDate, 4) + "20" + RIGHT$(ProductInventory.ProductInventoryPurchaseDate, 2): ProductInventory.ProductInventoryPurchaseDate = LEFT$(ProductInventory.ProductInventoryPurchaseDate, 2) + "-" + MID$(ProductInventory.ProductInventoryPurchaseDate, 3, 2) + "-" + RIGHT$(ProductInventory.ProductInventoryPurchaseDate, 4)
175.     LOCATE linepos + 14, pos2: PRINT "? " + RTRIM$(ProductInventory.ProductInventoryPurchaseDate)
176.     LOCATE linepos + 14, pos2 + 13: PRINT "Correct N/Y ?"
177.     DO
178.         akey$ = INKEY$
179.         IF UCASE$(akey$) = "N" THEN LOCATE linepos + 10, pos2: PRINT "                              ": GOTO 13
180.     LOOP WHILE akey$ = ""
181.  
182.     14
183.     LOCATE linepos + 15, pos2: INPUT ProductInventory.ProductInventoryExpirationDate
184.     akey$ = ""
185.     IF LEN(ProductInventory.ProductInventoryExpirationDate) < 8 THEN ProductInventory.ProductInventoryExpirationDate = LEFT$(ProductInventory.ProductInventoryExpirationDate, 4) + "20" + RIGHT$(ProductInventory.ProductInventoryExpirationDate, 2): ProductInventory.ProductInventoryExpirationDate = LEFT$(ProductInventory.ProductInventoryExpirationDate, 2) + "-" + MID$(ProductInventory.ProductInventoryExpirationDate, 3, 2) + "-" + RIGHT$(ProductInventory.ProductInventoryExpirationDate, 4)
186.     LOCATE linepos + 15, pos2: PRINT "? " + ProductInventory.ProductInventoryExpirationDate
187.     LOCATE linepos + 15, pos2 + 13: PRINT "Correct N/Y ?"
188.     DO
189.         akey$ = INKEY$
190.         IF UCASE$(akey$) = "N" THEN LOCATE linepos + 11, pos2: PRINT "                              ": GOTO 14
191.     LOOP WHILE akey$ = ""
192.  
193.     LOCATE linepos + 12, pos2: INPUT ProductInventory.ProductInventoryWeightCheckOut
194.     LOCATE linepos + 12, pos2: INPUT ProductInventory.ProductInventoryWeightCheckIn
195.     LOCATE linepos + 16, pos2: INPUT ProductInventory.TypeofProductInventory
196.    23
197.     LOCATE linepos + 16, pos2: PRINT "?"
198.     GallonorPound$ = INKEY$
199.     IF UCASE$(GallonorPound$) = "W" THEN GallonorPound$ = "LIQUID": GOTO 24
200.     IF UCASE$(GallonorPound$) = "D" THEN GallonorPound$ = "POWDER": GOTO 24
201.     IF GallonorPound$ = CHR$(27) THEN GOTO 31
202.     GOTO 23
203.    24
204.  
205.     LOCATE linepos + 17, pos2: INPUT ProductInventory.Room
206.     LOCATE linepos + 18, pos2: INPUT ProductInventory.Rack
207.     LOCATE linepos + 19, pos2: INPUT ProductInventory.Shelf
208.     LOCATE linepos + 20, pos2: INPUT ProductInventory.Bin
209.     LOCATE linepos + 21, pos1: PRINT "Only C Cancels Entry anything else to save"
210.     DO
211.         akey$ = INKEY$
212.         IF UCASE$(akey$) = UCASE$("C") THEN Cancel = 1
213.     LOOP WHILE akey$ = ""
214.     akey$ = ""
215.  
216.     IF Multi = 1 THEN
217.         LOCATE linepos + 21, pos1: PRINT "ESC to Save Last Entry and Exit"
218.         DO
219.             akey$ = INKEY$
220.             IF UCASE$(akey$) = CHR$(27) THEN Last$ = "yes"
221.         LOOP WHILE akey$ = ""
222.     END IF
223.     akey$ = ""
224.  
225.     ProductInventory.TM = TIME$: ProductInventory.DT = DATE$
226.  
227.     300
228.     IF Cancel = 1 THEN GOTO 444
229.     'IF Multi = 0 OR 1 THEN
230.     OPEN SerialFile$ FOR OUTPUT AS #2
231.  
232.     'Add Inventory
233.     Discpass$ = ProductInventory.ProductInventoryName
234.     Datapass$ = ProductInventory.StockUPC
235.     EXP$ = ProductInventory.ProductInventoryExpirationDate
236.     Pass$ = ProductInventory.ProductInventoryNumber
237.  
238.     CALL Barcode(Datapass$, Discpass$, Title$, Pass$, EXP$)
239.     NumRecords% = LOF(5) \ LEN(ProductInventory)
240.     PUT #5, NumRecords% + 1, ProductInventory
241.  
242.     IF Multi = 1 AND NOT Last$ = "yes" THEN 444
243.    31
244. END SUB
245.  
246. SUB Select_Printer (Title$)
247.     Pos10 = 15
248.     CLS
249.     COLOR 15, 0
250.     SHELL _HIDE "cmd/c wmic printer get name, default> impresora.txt"
251.     DIM impresora(50) AS STRING
252.     OPEN "I", 10, "impresora.txt"
253.     n% = 0
254.     LINE INPUT #10, dato$
255.     DO
256.         LINE INPUT #10, dato$: LINE INPUT #10, dato$
257.         IF EOF(10) THEN EXIT DO
258.         n% = n% + 1
259.         DO
260.             a% = INSTR(dato$, CHR$(0))
261.             IF a% = 0 THEN EXIT DO
262.             IF a% = 1 THEN
263.                 dato$ = MID$(dato$, a% + 1)
264.             ELSEIF a% = LEN(dato$) THEN
265.                 dato$ = LEFT$(dato$, a% - 1)
266.             ELSE
267.                 dato$ = LEFT$(dato$, a% - 1) + MID$(dato$, a% + 1)
268.             END IF
269.         LOOP
270.         a% = INSTR(dato$, "FALSE"): b% = INSTR(dato$, "TRUE")
271.         IF a% <> 0 THEN
272.             MID$(dato$, a%, 5) = SPACE$(5)
273.             dato$ = LTRIM$(RTRIM$(dato$))
274.         END IF
275.         IF b% <> 0 THEN
276.             MID$(dato$, b%, 5) = SPACE$(4)
277.             dato$ = LTRIM$(RTRIM$(dato$))
278.             loca% = n%
279.         END IF
280.         impresora(n%) = dato$
281.         impresora(0) = LTRIM$(STR$(n%))
282.     LOOP
283.     COLOR 7, 0
284.     CLS
285.     COLOR 1, 7
286.     LOCATE 8, Pos10 - 1: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
287.     LOCATE 9, Pos10 - 1: PRINT "º                                        º"
288.     LOCATE 10, Pos10 - 1: PRINT "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
289.     LOCATE 11, Pos10 - 1: PRINT "º                                        º"
290.     LOCATE 12, Pos10 - 1: PRINT "º                                        º"
291.     LOCATE 13, Pos10 - 1: PRINT "º                                        º"
292.     LOCATE 14, Pos10 - 1: PRINT "º                                        º"
293.     LOCATE 15, Pos10 - 1: PRINT "º                                        º"
294.     LOCATE 16, Pos10 - 1: PRINT "ÈÍÍÍÍÍÍÍ<Esc>ÍÍÍÍ<"; CHR$(24); ">Í<"; CHR$(25); ">ÍÍÍÍ<"; CHR$(17); CHR$(217); ">ÍÍÍÍÍÍÍÍͼ"
295.     COLOR 15, 1
296.     LOCATE 9, Pos10: PRINT "            SELECT PRINTER              ";
297.     COLOR 1, 7
298.     max% = VAL(impresora(0))
299.     GOSUB impridatos
300.     DO
301.         x$ = "": WHILE x$ = "": x$ = INKEY$: WEND
302.         x$ = UCASE$(x$)
303.         x% = ASC(RIGHT$(x$, 1))
304.         SELECT CASE x%
305.             CASE IS = 27
306.                 a$ = "@"
307.                 EXIT DO
308.             CASE IS = 13
309.                 a$ = impresora(loca%)
310.                 EXIT DO
311.             CASE IS = 72: '--Subir
312.                 IF loca% > 1 THEN
313.                     loca% = loca% - 1
314.                     GOSUB impridatos
315.                 END IF
316.             CASE IS = 80: '--Bajar
317.                 IF loca% < max% THEN
318.                     loca% = loca% + 1
319.                     GOSUB impridatos
320.                 END IF
321.         END SELECT
322.     LOOP
323.     COLOR 7, 0
324.     CLS
325.     IF a$ <> "@" THEN
326.         SHELL _HIDE "cmd/c wmic printer where name='" + a$ + "' call setdefaultprinter"
327.         PRINT "Selected printer: "; a$
328.     ELSE
329.         PRINT "The printer has not been modified"
330.     END IF
331.     GOTO 700
332.     impridatos:
333.     y% = 1
334.     FOR n% = loca% - 2 TO loca% + 2
335.         IF n% < 1 OR n% > max% THEN
336.             COLOR 1, 7: LOCATE y% + 10, Pos10: PRINT "                                        "
337.         ELSE
338.             IF n% = loca% THEN COLOR 15, 4 ELSE COLOR 1, 7
339.             LOCATE y% + 10, Pos10: PRINT "                                        "
340.             LOCATE y% + 10, Pos10: PRINT LEFT$(impresora(n%), 40)
341.         END IF
342.         y% = y% + 1
343.     NEXT
344.     RETURN
345.    700
346.     CLOSE 10
347. END SUB
348.  
349. FUNCTION GetLocalIP$
350.     choice$ = ""
351.     SHELL _HIDE "cmd /c ipconfig > IPconfig.tmp"
352.     A = FREEFILE
353.     OPEN "IPconfig.tmp" FOR INPUT AS #A
354.     DO
355.         LINE INPUT #A, ipline$
356.         IF UCASE$(LEFT$(LTRIM$(ipline$), 4)) = "IPV4" THEN
357.             GetLocalIP$ = MID$(ipline$, INSTR(ipline$, ":") + 2)
358.             IF GetLocalIP$ = "127.0.0.1" THEN GetLocalIP$ = "offline": GOTO 77
359.             '         CLOSE #A
360.             '         KILL "IPconfig.tmp" 'kill the messenger?
361.             EXIT DO
362.            77
363.         END IF
364.     LOOP UNTIL EOF(1)
365.     CLOSE #A
366.     KILL "IPconfig.tmp" 'kill the messenger?
367.  
368. END FUNCTION
369.  
370. SUB ping
371.     ' Shell to ping and get results 0 up 1 down
372.     INPUT "Host to ping? ", ip$
373.     IF ip$ = "" GOTO 777
374.     result& = _SHELLHIDE("ping " + ip$ + " -n 1 -w 100")
375.     IF result& = 0 THEN
376.         'success
377.         COLOR 2, 15
378.         PRINT DATE$ + " " + TIME$ + " " + " Ping ("; ip$; ") "; "UP   ";
379.         COLOR 7, 1
380.     ELSE
381.         COLOR 4, 15
382.         PRINT DATE$ + " " + TIME$ + " " + " Ping ("; ip$; ") "; "DN   ";
383.         COLOR 7, 1
384.         REM PRINT #2, DATE$ + " " + TIME$ + " " + "Ping (" + ip$ + ") (" + desc$ + ")" + "   Down": flag = 1: set = 0
385.     END IF
386.     flag = 1: set = 0
387.     INPUT "pause", ip$
388.    777
389. END SUB
390.  
391. SUB Partcsv (DBase$, Title$)
392.     CLS: LOCATE 6
393.     PRINT "Whoa there pardner, lets make sure you are authorized to be here."
394.     INPUT "Enter the User name? ", User$
395.     INPUT "Enter the Password? ", Password$
396.     IF UCASE$(User$) <> "CHRIS" AND Password$ <> "Rdg09Dgr!$@#" THEN
397.         PRINT "Sorry you are not allowed to be in here, lets get you somewhere safe"
398.         PRINT "Press any key to continue"
399.         DO
400.             akey$ = INKEY$
401.             IF UCASE$(akey$) <> "" THEN EXIT SUB
402.         LOOP WHILE akey$ = ""
403.     END IF
404.     SHELL "notepad " + DBase$
405. END SUB
406.  
407.  
408. SUB Choicea
409.     ' OPEN Dbase$ FOR APPEND AS #1
410.     ' WRITE #1, EmployeeScan$, ProductInventoryBrand$, ProductInventoryNumber$, ProductInventoryName$, ProductInventoryWeightBegin$, ProductInventoryUPCCode$, ProductInventoryCost$, ProductInventory.ProductInventoryPurchaseDate, ProductInventory.ProductInventoryExpirationDate, ProductInventoryWeightCheckOut$, ProductInventoryWeightCheckIn$, StockUPC$, TypeofProductInventory$, Rack$, Shelf$, Bin$, DT$, TM$, a10$, a11$, a12$, b10$, b11$, b12$, c10$, c11$, c12$, d10$, d11$, d12$, e10$, e11$, e12$, f10$, f11$, f12$
411.  
412.  
413.     IF Station$ = "?" THEN CALL Partcsv(Dbase$, Title$)
414.     IF Station$ = "1" THEN Station$ = "1": GOTO 12
415.     IF Station$ = "2" THEN Station$ = "2": GOTO 12
416.     IF Station$ = "3" THEN Station$ = "3": GOTO 12
417.     IF Station$ = "4" THEN Station$ = "4": GOTO 12
418.     IF Station$ = "5" THEN Station$ = "5": GOTO 12
419.     IF Station$ = "6" THEN Station$ = "6": GOTO 12
420.     IF Station$ = "7" THEN Station$ = "7": GOTO 12
421.     IF Station$ = "8" THEN Station$ = "8": GOTO 12
422.     IF Station$ = "9" THEN Station$ = "9": GOTO 12
423.     IF Station$ = "1O" THEN Station$ = "10": GOTO 12
424.     IF Station$ = "11" THEN Station$ = "11": GOTO 12
425.     IF Station$ = "12" THEN Station$ = "12": GOTO 12
426.     IF Station$ = "13" THEN Station$ = "13": GOTO 12
427.     IF Station$ = "14" THEN Station$ = "14": GOTO 12
428.     IF Station$ = "15" THEN Station$ = "15": GOTO 12
429.     IF Station$ = CHR$(27) THEN GOTO 31
430.  
431.     DO
432.  
433.         LOCATE 19, 1: PRINT "Choose a Line to input: "; 'semicolon saves position for user entry
434.  
435.         DO: keypress$ = UCASE$(INKEY$) 'change any user key press to uppercase
436.  
437.         LOOP UNTIL keypress$ <> ""
438.         COLOR 15, 1: PRINT keypress$
439.         Station$ = keypress$
440.         GOTO 12
441.  
442.     LOOP
443.  
444.     12
445.     CLS
446.     LOCATE 1, 20: PRINT Title$ + " Part": LOCATE 1, pos2: PRINT " Display" + STR$(Multi)
447.     IF keypress$ = "O" THEN LOCATE 2, 2: INPUT ; "Station ?", Station$
448.    31
449. END SUB
450.  
451. SUB Employee (EmployeeScan$, EmployeeName$, EmployeeFile$)
452.     LinepPos = 5
453.     EF = FREEFILE
454.     OPEN EmployeeFile$ FOR INPUT AS #EF
455.  
456.     'LOCATE Linepos + 11, pos2: INPUT "Number ", EmployeeScan$
457.    651
458.     DO WHILE NOT EOF(EF)
459.         INPUT #EF, A$, B$, C$, D$
460.         IF EmployeeScan$ = A$ THEN
461.             EmployeeName$ = B$
462.             ProductInventory.EmployeeScan = EmployeeScan$
463.             ProductInventory.Employeename = EmployeeName$
464.             EXIT DO
465.         END IF
466.     LOOP
467.     IF EmployeeName$ <> "" THEN GOTO 657
468.    652
469.  
470.     LOCATE linepos + 30, pos2: PRINT "Employee Maintance"
471.     LOCATE linepos + 31, pos2: PRINT "Name ", EmployeeName$
472.     LOCATE linepos + 32, pos2: PRINT "Number ", EmployeeScan$
473.     LOCATE linepos + 34, pos2: PRINT "Do you need to Edit?"
474.     LOCATE linepos + 35, pos2: PRINT "  (A)dd Restart, (N)umber, (E)mployee, then finaly (S)ave, (ESC) all changes"
475.     DO
476.         akey$ = INKEY$
477.         IF UCASE$(akey$) = "N" THEN GOTO 653
478.         IF UCASE$(akey$) = "E" THEN GOTO 654
479.         IF UCASE$(akey$) = "A" THEN GOTO 655
480.         IF UCASE$(akey$) = "S" THEN GOTO 656
481.         IF UCASE$(akey$) = CHR$(27) THEN GOTO 657
482.     LOOP WHILE akey$ = ""
483.  
484.     653
485.  
486.     LOCATE linepos + 30, pos2: PRINT "Change Employee Number"
487.     LOCATE linepos + 31, pos2: PRINT "Name ", EmployeeName$
488.     LOCATE linepos + 32, pos2: INPUT "Number ", EmployeeScan$
489.     C$ = TIME$ + "-" + DATE$
490.     GOTO 651
491.  
492.  
493.     654
494.  
495.     LOCATE linepos + 30, pos2: PRINT "Change Employee Name"
496.     LOCATE linepos + 31, pos2: PRINT "Number ", EmployeeScan$
497.     LOCATE linepos + 32, pos2: INPUT "Name ", EmployeeName$
498.     C$ = TIME$ + "-" + DATE$
499.     GOTO 651
500.  
501.     655
502.  
503.     LOCATE linepos + 30, pos2: PRINT "Add New Employee"
504.     LOCATE linepos + 31, pos2: INPUT "Number ", EmployeeScan$
505.     LOCATE linepos + 32, pos2: INPUT "Name ", EmployeeName$
506.     C$ = TIME$ + "-" + DATE$
507.     IF D$ = "" THEN D$ = C$
508.     GOTO 651
509.  
510.     656
511.     CLOSE #EF: OPEN EmployeeFile$ FOR APPEND AS #EF
512.     WRITE #EF, EmployeeScan$, EmployeeName$, C$, D$
513.     CLOSE #EF
514.    657
515.     CLOSE #EF
516.  
517. END SUB
518.  
519. SUB ProductInventoryFile (ProductInventoryUPCCode$, ProductInventoryBrand$, ProductInventoryNumber$, ProductInventoryName$, ProductInventoryUPCFile$, linepos, pos1, pos2)
520.     pos1 = 2: linepos = 2: pos2 = 30
521.     PIF = FREEFILE
522.     IF _FILEEXISTS(ProductInventoryUPCFile$) THEN OPEN ProductInventoryUPCFile$ FOR INPUT AS #PIF ELSE GOTO 555
523.     IF ProductInventoryUPCCode$ = CHR$(27) THEN EXIT SUB
524.    553
525.     DO WHILE NOT EOF(PIF)
526.         INPUT #PIF, A$, B$, C$, D$
527.         IF ProductInventoryUPCCode$ = A$ THEN
528.             ProductInventoryBrand$ = B$
529.             ProductInventoryNumber$ = C$
530.             ProductInventoryName$ = D$
531.             CLOSE #PIF
532.             GOTO 554
533.         END IF
534.     LOOP
535.  
536.     555
537.     CLOSE #PIF
538.     OPEN ProductInventoryUPCFile$ FOR APPEND AS #PIF
539.     LOCATE linepos + 5, pos1: PRINT "ProductInventory Brand ": LOCATE linepos + 5, pos2: PRINT ProductInventory.ProductInventoryBrand
540.     LOCATE linepos + 6, pos1: PRINT "ProductInventory Name ": LOCATE linepos + 6, pos2: PRINT ProductInventory.ProductInventoryName
541.     LOCATE linepos + 7, pos1: PRINT "Part Number ": LOCATE linepos + 7, pos2: PRINT ProductInventory.ProductInventoryNumber
542.  
543.     LOCATE linepos + 5, pos2: INPUT ProductInventoryBrand$
544.     LOCATE linepos + 6, pos2: INPUT ProductInventoryName$
545.     LOCATE linepos + 7, pos2: INPUT ProductInventoryNumber$
546.     WRITE #PIF, ProductInventoryUPCCode$, ProductInventoryBrand$, ProductInventoryNumber$, ProductInventoryName$
547.     CLOSE #PIF
548.  
549.     554
550.     ProductInventory.ProductInventoryUPCCode = ProductInventoryUPCCode$
551.     ProductInventory.ProductInventoryBrand = ProductInventoryBrand$
552.     ProductInventory.ProductInventoryNumber = ProductInventoryNumber$
553.     ProductInventory.ProductInventoryName = ProductInventoryName$
554.  
555. END SUB
556.  
557. SUB Barcode (DATAPASS$, DISCPASS$, Title$, Pass$, EXP$)
558.  
559.  
560.     ' DATAPASS$ = "123456789"
561.     DATAPASS$ = "*" + DATAPASS$ + "*"
562.     'EXP$ = "07/12/1900"
563.     'DISCPASS$ = "Black Powder"
564.  
565.     'Pass$ = "ASDFEWEW"
566.  
567.     'Page
568.     FFONT$ = "free3of9x.ttf": FFSize = 120
569.     EFONT$ = "Arial.ttf": EFSize = 60
570.     AFONT$ = "Arial.ttf": AFSize = 60
571.     PageWidth = 216 * 10
572.     PageHeight = 279 * 10
573.  
574.     'Label designerd for the Brother 201 (29mm x 90mm or 1-1/7" x 3-1/2") / Zebra ZDesigner LP 2844 looks compatable.
575.     FFONT$ = "free3of9x.ttf": FFSize = 240
576.     EFONT$ = "Arial.ttf": EFSize = 35
577.     AFONT$ = "Arial.ttf": AFSize = 20
578.     PageWidth = 110 * 10 'maximized tweaks for whole label
579.     PageHeight = 29 * 10 'Max is already set do not change.
580.  
581.     Colum = 10
582.     a = 0
583.     RowA = 70 'Barcode on top of Custom description
584.     RowB = 45 'ProductInventory Description Above Barcode
585.     RowC = 0 'Custom Description line below Barcode
586.  
587.     SCREEN _NEWIMAGE(PageWidth, PageHeight, 13)
588.     _DEST Page&: CLS _RGB(1, 1, 1), _RGB(256, 256, 256): _DEST 0 'make background white to save ink!
589.     COLOR
590.     F& = _LOADFONT(FFONT$, FFSize)
591.     E& = _LOADFONT(EFONT$, EFSize)
592.     A& = _LOADFONT(AFONT$, AFSize)
593.  
594.     _FONT F&
595.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, RowB), DATAPASS$ ' Print upc bars on bottom of label
596.  
597.     _FONT E&
598.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (400, RowC), Title$ ' Print Line 1 description
599.  
600.     _FONT A&
601.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, RowC + 25), DISCPASS$ ' Print Line 2 ProductInventory description
602.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, RowC + 85), Pass$ ' Print Line 3 ProductInventory description
603.  
604.     _FONT A&
605.     keep = LEN(DATAPASS$): DATAPASS$ = MID$(DATAPASS$, 2, keep - 2)
606.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, RowC), "Serial " + DATAPASS$ ' Print upc bar information above bar scan font
607.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (925, RowC), "Use By " + EXP$ ' Print Product Expiry Date
608.  
609.     INPUT a
610.     _PRINTIMAGE 0 'print screen page on printer
611.     SCREEN 0
612. END SUB
613.  
614. SUB SerialGen (serial$)
615.     SN = FREEFILE
616.     Exists = _FILEEXISTS("SerialFile.txt")
617.     IF Exists = 0 THEN
618.         OPEN "SerialFile.txt" FOR OUTPUT AS #SN
619.         serial$ = "000000000"
620.         PRINT #SN, serial$
621.         CLOSE #SN
622.     END IF
623.     OPEN "SerialFile.txt" FOR INPUT AS #SN
624.     INPUT #SN, serial$: CLOSE #SN
625.     SSerial$ = LEFT$(serial$, 1)
626.     ISerial = VAL(serial$)
627.     ISerial = ISerial + 1:
628.     ISerial$ = LTRIM$(STR$(ISerial))
629.     DO UNTIL LEN(ISerial$) = 9
630.         ISerial$ = "0" + ISerial$
631.     LOOP
632.     OPEN "SerialFile.txt" FOR OUTPUT AS #SN
633.     serial$ = SSerial$ + ISerial$
634.     PRINT #SN, serial$
635.     CLOSE #SN
636. END SUB
637.  

[Petr]

Remove CLEAR from row 1 and 44 and program work correctly. CLEAR also erase all variables to zero!

[Chris80194]

ok
I was looking for a good way to close all files with one command

[bplus]

CLOSE

[Chris80194]

ok

[Chris80194]

Well I was throwing more keys around.  Wacked a few things into working need to clean up a few other things but mostly working
Need to stream line this thing.

Code: QB64: [Select]

1. 'OPTION _EXPLICIT
2.  
3. TYPE InventoryDataStructure
4.     EmployeeScan AS STRING * 4
5.     Employeename AS STRING * 60
6.     ProductInventoryBrand AS STRING * 60
7.     ProductInventoryNumber AS STRING * 40
8.     ProductInventoryName AS STRING * 60
9.     ProductInventoryWeightBegin AS LONG
10.     ProductInventoryUPCCode AS STRING * 20
11.     ProductInventoryCost AS STRING * 8
12.     ProductInventoryPurchaseDate AS STRING * 10
13.     ProductInventoryExpirationDate AS STRING * 10
14.     ProductInventoryWeightCheckOut AS LONG
15.     ProductInventoryWeightCheckIn AS LONG
16.     'STOCKUPC = 9 +  ProductInventoryNumber
17.     StockUPC AS STRING * 49
18.     TypeofProductInventory AS STRING * 20
19.     BatchNumber AS STRING * 4
20.     BoxNumber AS STRING * 4
21.     GallonorPound AS STRING * 8
22.     InventoryCost AS STRING * 8
23.     Room AS STRING * 30
24.     Rack AS STRING * 4
25.     Shelf AS STRING * 4
26.     Bin AS STRING * 4
27.     DT AS STRING * 10
28.     TM AS STRING * 8
29. END TYPE
30. DIM SHARED ProductInventory AS InventoryDataStructure
31. DIM SHARED pos1, pos2, linepos, Title$, Author$: pos1 = 2: linepos = 1: pos2 = 30
32.  
33. 'Product Constants future rewrite
34. TYPE ProductDataStructure
35.     EmployeeScan AS STRING * 4
36.     Employeename AS STRING * 60
37.     ProductInventoryBrand AS STRING * 60
38.     ProductInventoryNumber AS STRING * 60
39.     ProductInventoryName AS STRING * 60
40.     ProductInventoryWeightBegin AS _INTEGER64
41. END TYPE
42. 'DIM shared ProductPurchase AS ProductDataStructure
43. 'OPEN ProductInventoryUPCFile$ FOR RANDOM AS #freefile LEN = LEN(ProductPurchase)
44.  
45. 1
46.  
47. COLOR 15, 7 'Foreground, Background  colors
48. Author$ = "Written by Chris Owen on 6-20-2019, Email: chris.owen09@gmail.com"
49. Title$ = "A1 Powder Coat"
50.  
51. EmployeeFile$ = "Employee.csv"
52. ProductInventoryDBase$ = "ProductInventoryStock.RND"
53. ProductInventoryUPCFile$ = "ProductInventoryFile.csv"
54.  
55. CLS
56. LOCATE 25, 80 - LEN(Author$): PRINT Author$
57. position = 3
58. PRINT "Default Printer " + Printerdisplay$
59. DO UNTIL choice$ <> ""
60.     TTime$ = DATE$ + "_" + LEFT$(TIME$, 2) + "." + MID$(TIME$, 4, 2) + "." + RIGHT$(TIME$, 2)
61.     LOCATE 3, 15: PRINT Title$ + " Inventory": COLOR 14, 7: LOCATE 3, 50: PRINT TTime$: COLOR 15, 7 ' only 23 lines on screen 80 wide
62.  
63.     LOCATE 1, 80 - 5 - LEN(GetLocalIP$): COLOR 11, 7: PRINT "IP (" + GetLocalIP$ + ")": COLOR 15, 7
64.     LOCATE 4 + position, 1: PRINT "1 Single Entry"
65.     LOCATE 5 + position, 1: PRINT "2 Multiple Entry"
66.  
67.     LOCATE 13 + position, 1: PRINT "E Edit Employee File " + EmployeeFile$
68.     LOCATE 14 + position, 1: PRINT "C Create Signs"
69.  
70.     LOCATE 17 + position, 1: PRINT ""
71.     LOCATE 18 + position, 1: PRINT "V Verify Ping to Host"
72.     LOCATE 19 + position, 1: PRINT "P Printer Select"
73.     LOCATE 23, 1: PRINT "ESC to exit" ' Lock in here no lower
74.  
75.     choice$ = UCASE$(INKEY$) 'change any user key press to uppercase
76.  
77. LOOP
78.  
79. IF choice$ = "1" THEN CALL Part(choice$, ProductInventoryDBase$, EmployeeFile$, ProductInventoryUPCFile$)
80. IF choice$ = "2" THEN CALL Part(choice$, ProductInventoryDBase$, EmployeeFile$, ProductInventoryUPCFile$)
81. IF choice$ = "C" THEN CALL CodeCreator
82. IF choice$ = "E" THEN CALL Employee(EmployeeScan$, EmployeeName$, EmployeeFile$): GOTO 1
83. IF choice$ = "V" THEN CALL ping
84.  
85. IF choice$ = "P" THEN CALL Select_Printer(Printer$)
86.  
87. IF choice$ = CHR$(27) THEN SYSTEM
88. choice$ = ""
89. GOTO 1
90.  
91. SUB Part (choice$, ProductInventoryDBase$, EmployeeFile$, ProductInventoryUPCFile$)
92.     pos1 = 2: linepos = 2: pos2 = 30
93.     OPEN ProductInventoryDBase$ FOR RANDOM AS #5 LEN = LEN(ProductInventory)
94.     NumRecords% = LOF(5) \ LEN(ProductInventory)
95.  
96.     444
97.     CLS
98.     IF UCASE$(choice$) = "2" THEN Multi = 1
99.     choice$ = ""
100.     COLOR 15, 6: CLS
101.     IF Multi = 0 OR 1 THEN
102.         LOCATE 1, 15: PRINT Title$ + " Single Entry"; " Records " + STR$(NumRecords%)
103.  
104.     ELSE
105.         LOCATE 1, 15: PRINT Title$ + " Multiple Entry"; " Records " + STR$(NumRecords%)
106.  
107.     END IF
108.  
109.     LOCATE linepos + 21, pos1: PRINT "ESC key plus Enter to exit"
110.     'LOCATE linepos + 21, pos2: PRINT "Default Printer " + Printerdisplay$
111.    11
112.     LOCATE linepos + 3, pos1: PRINT "Employee Scan"
113.     LOCATE linepos + 3, pos2: INPUT EmployeeScan$
114.     IF EmployeeScan$ = CHR$(27) THEN GOTO 31
115.     CALL Employee(EmployeeScan$, EmployeeName$, EmployeeFile$)
116.     (ProductInventory.EmployeeScan) = EmployeeScan$
117.     (ProductInventory.Employeename) = EmployeeName$
118.  
119.     LOCATE linepos + 3, pos1: PRINT "Captured Employee Scan      #" + RTRIM$(ProductInventory.EmployeeScan) + " " + RTRIM$(ProductInventory.Employeename)
120.  
121.     12
122.  
123.     LOCATE linepos + 4, pos1: PRINT "ProductInventory UPC Code"
124.     LOCATE linepos + 4, pos2: INPUT ProductInventoryUPCCode$
125.     IF ProductInventoryUPCCode$ = "" THEN GOTO 12
126.     IF ProductInventoryUPCCode$ = CHR$(27) THEN GOTO 31
127.     CALL ProductInventoryFile(ProductInventoryUPCCode$, ProductInventoryBrand$, ProductInventoryNumber$, ProductInventoryName$, ProductInventoryUPCFile$, linepos, pos1, pos2)
128.  
129.     LOCATE linepos + 5, pos1: PRINT "ProductInventory Brand ": LOCATE linepos + 5, pos2: PRINT RTRIM$(ProductInventory.ProductInventoryBrand)
130.     LOCATE linepos + 6, pos1: PRINT "ProductInventory Name ": LOCATE linepos + 6, pos2: PRINT RTRIM$(ProductInventory.ProductInventoryName)
131.     LOCATE linepos + 7, pos1: PRINT "Part Number ": LOCATE linepos + 7, pos2: PRINT RTRIM$(ProductInventory.ProductInventoryNumber)
132.     CALL SerialGen(Serial$): ProductInventory.StockUPC = Serial$
133.     LOCATE linepos + 8, pos1: PRINT "Serialized Stock UPC": LOCATE linepos + 8, pos2: PRINT RTRIM$(ProductInventory.StockUPC)
134.     LOCATE linepos + 9, pos1: PRINT "Batch Number"
135.     LOCATE linepos + 10, pos1: PRINT "Box Number"
136.     LOCATE linepos + 11, pos1: PRINT "Measured as Gallon or Pound"
137.     LOCATE linepos + 12, pos1: PRINT "Quanity"
138.     LOCATE linepos + 13, pos1: PRINT "Cost"
139.  
140.     LOCATE linepos + 9, pos2: INPUT ProductInventory.BatchNumber
141.     IF ProductInventory.BatchNumber = CHR$(27) THEN GOTO 31
142.  
143.     LOCATE linepos + 10, pos2: INPUT ProductInventory.BoxNumber
144.     IF ProductInventory.BoxNumber = CHR$(27) THEN GOTO 31
145.    22
146.     LOCATE linepos + 11, pos2: PRINT "?"
147.     GallonorPound$ = INKEY$
148.     IF UCASE$(GallonorPound$) = "G" THEN GallonorPound$ = "GALLON": GOTO 21
149.     IF UCASE$(GallonorPound$) = "P" THEN GallonorPound$ = "POUND": GOTO 21
150.     IF GallonorPound$ = CHR$(27) THEN GOTO 31
151.     GOTO 22
152.    21
153.     ProductInventory.GallonorPound = GallonorPound$
154.     LOCATE linepos + 11, pos2: PRINT RTRIM$(ProductInventory.GallonorPound)
155.  
156.     LOCATE linepos + 12, pos2: INPUT ProductInventory.ProductInventoryWeightBegin
157.  
158.     LOCATE linepos + 13, pos2: INPUT ProductInventory.ProductInventoryCost
159.  
160.     LOCATE linepos + 14, pos1: PRINT "Purchase/Received Date"
161.  
162.     LOCATE linepos + 15, pos1: PRINT "Expiration Date"
163.  
164.     LOCATE linepos + 16, pos1: PRINT "Type of Product Dry or Wet"
165.  
166.     LOCATE linepos + 17, pos1: PRINT "Room"
167.  
168.     LOCATE linepos + 18, pos1: PRINT "Rack"
169.  
170.     LOCATE linepos + 19, pos1: PRINT "Shelf"
171.  
172.     LOCATE linepos + 20, pos1: PRINT "Bin"
173.  
174.     13 DT$ = ""
175.     LOCATE linepos + 14, pos2: INPUT DT$
176.     akey$ = ""
177.     IF DT$ = "" THEN DT$ = DATE$ ': GOTO 4000
178.     Century$ = MID$(DATE$, 7, 2)
179.     IF LEN(DT$) = 6 THEN DT$ = LEFT$(DT$, 2) + MID$(DT$, 3, 2) + Century$ + RIGHT$(DT$, 2): DT$ = LEFT$(DT$, 2) + "-" + MID$(DT$, 3, 2) + "-" + RIGHT$(DT$, 4): GOTO 4000
180.     IF LEN(DT$) = 8 THEN DT$ = LEFT$(DT$, 2) + MID$(DT$, 3, 2) + RIGHT$(DT$, 4): DT$ = LEFT$(DT$, 2) + "-" + MID$(DT$, 3, 2) + "-" + RIGHT$(DT$, 4): GOTO 4000
181.    4000
182.     ProductInventory.ProductInventoryPurchaseDate = DT$
183.     LOCATE linepos + 14, pos2: PRINT "? " + ProductInventory.ProductInventoryPurchaseDate
184.     LOCATE linepos + 14, pos2 + 13: PRINT "Correct N/Y ?"
185.     DO UNTIL akey$ <> ""
186.         akey$ = INKEY$
187.         IF UCASE$(akey$) = "N" THEN LOCATE linepos + 14, pos2: PRINT "                              ": GOTO 13
188.         IF UCASE$(akey$) = CHR$(12) THEN akey$ = ""
189.         IF UCASE$(akey$) <> "Y" THEN akey$ = ""
190.         IF UCASE$(akey$) = CHR$(27) THEN GOTO 31
191.     LOOP
192.  
193.     14 DT$ = ""
194.     LOCATE linepos + 15, pos2: INPUT DT$
195.     akey$ = ""
196.     IF DT$ = "" THEN DT$ = DATE$ ': GOTO 4001
197.     Century$ = MID$(DATE$, 7, 2)
198.     IF LEN(DT$) = 6 THEN DT$ = LEFT$(DT$, 2) + MID$(DT$, 3, 2) + Century$ + RIGHT$(DT$, 2): DT$ = LEFT$(DT$, 2) + "-" + MID$(DT$, 3, 2) + "-" + RIGHT$(DT$, 4): GOTO 4001
199.     IF LEN(DT$) = 8 THEN DT$ = LEFT$(DT$, 2) + MID$(DT$, 3, 2) + RIGHT$(DT$, 4): DT$ = LEFT$(DT$, 2) + "-" + MID$(DT$, 3, 2) + "-" + RIGHT$(DT$, 4): GOTO 4001
200.    4001
201.     ProductInventory.ProductInventoryExpirationDate = DT$
202.     LOCATE linepos + 15, pos2: PRINT "? " + ProductInventory.ProductInventoryExpirationDate
203.     LOCATE linepos + 15, pos2 + 13: PRINT "Correct N/Y ?"
204.     DO UNTIL akey$ <> ""
205.         akey$ = INKEY$
206.         IF UCASE$(akey$) = "N" THEN LOCATE linepos + 15, pos2: PRINT "                              ": GOTO 14
207.         IF UCASE$(akey$) = CHR$(12) THEN akey$ = ""
208.         IF UCASE$(akey$) <> "Y" THEN akey$ = ""
209.         IF UCASE$(akey$) = CHR$(27) THEN GOTO 31
210.     LOOP
211.  
212.     'LOCATE linepos + 12, pos2: INPUT ProductInventory.ProductInventoryWeightCheckOut
213.     'LOCATE linepos + 12, pos2: INPUT ProductInventory.ProductInventoryWeightCheckIn
214.  
215.     23
216.     LOCATE linepos + 16, pos2: PRINT "?"
217.     DO UNTIL TypeOf$ <> ""
218.         TypeOf$ = INKEY$
219.         IF UCASE$(TypeOf$) = "W" THEN TypeOf$ = "LIQUID": GOTO 24
220.         IF UCASE$(TypeOf$) = "D" THEN TypeOf$ = "POWDER": GOTO 24
221.         IF UCASE$(TypeOf$) = CHR$(12) THEN TypeOf$ = ""
222.         IF UCASE$(TypeOf$) = CHR$(27) THEN GOTO 31
223.  
224.     LOOP
225.    24
226.     ProductInventory.TypeofProductInventory = TypeOf$
227.     LOCATE linepos + 16, pos2: PRINT ProductInventory.TypeofProductInventory
228.  
229.     LOCATE linepos + 17, pos2: INPUT ProductInventory.Room
230.     ProductInventory.Room = UCASE$(ProductInventory.Room)
231.     LOCATE linepos + 17, pos2: PRINT ProductInventory.Room
232.  
233.     LOCATE linepos + 18, pos2: INPUT ProductInventory.Rack
234.     ProductInventory.Rack = UCASE$(ProductInventory.Rack)
235.     LOCATE linepos + 18, pos2: PRINT ProductInventory.Rack
236.  
237.     LOCATE linepos + 19, pos2: INPUT ProductInventory.Shelf
238.     ProductInventory.Shelf = UCASE$(ProductInventory.Shelf)
239.     LOCATE linepos + 19, pos2: PRINT ProductInventory.Shelf
240.  
241.     LOCATE linepos + 20, pos2: INPUT ProductInventory.Bin
242.     ProductInventory.Bin = UCASE$(ProductInventory.Bin)
243.     LOCATE linepos + 20, pos2: PRINT ProductInventory.Bin
244.  
245.     LOCATE linepos + 21, pos1: PRINT "Only C Cancels Entry anything else to save"
246.     DO
247.         akey$ = INKEY$
248.         IF UCASE$(akey$) = UCASE$("C") THEN GOTO 31
249.     LOOP WHILE akey$ = ""
250.     akey$ = ""
251.  
252.     IF Multi = 1 THEN
253.         LOCATE linepos + 21, pos1: PRINT "ESC to Save Last Entry and Exit"
254.         DO
255.             akey$ = INKEY$
256.             IF UCASE$(akey$) = CHR$(27) THEN Last$ = "yes"
257.         LOOP WHILE akey$ = ""
258.     END IF
259.     akey$ = ""
260.  
261.     ProductInventory.TM = TIME$: ProductInventory.DT = DATE$
262.  
263.     'Add Inventory
264.     NumRecords% = LOF(5) \ LEN(ProductInventory)
265.     PUT #5, NumRecords% + 1, ProductInventory
266.  
267.     ' Barcode Printout
268.  
269.     Datapass1$ = ProductInventory.StockUPC
270.     DATAPASS2$ = ProductInventory.ProductInventoryExpirationDate
271.     DATAPASS3$ = ProductInventory.ProductInventoryName
272.     DATAPASS4$ = ProductInventory.ProductInventoryNumber
273.  
274.     CALL Barcode(Datapass1$, DATAPASS3$, DATAPASS4$, DATAPASS2$)
275.  
276.     IF Multi = 1 AND NOT Last$ = "yes" THEN 444
277.    31
278.     CLOSE 5
279. END SUB
280.  
281. SUB Select_Printer (Printer$)
282.     Pos10 = 15
283.     CLS
284.     COLOR 15, 0
285.     SHELL _HIDE "cmd/c wmic printer get name, default> impresora.txt"
286.     DIM impresora(50) AS STRING
287.     OPEN "I", 10, "impresora.txt"
288.     n% = 0
289.     LINE INPUT #10, dato$
290.     DO
291.         LINE INPUT #10, dato$: LINE INPUT #10, dato$
292.         IF EOF(10) THEN EXIT DO
293.         n% = n% + 1
294.         DO
295.             a% = INSTR(dato$, CHR$(0))
296.             IF a% = 0 THEN EXIT DO
297.             IF a% = 1 THEN
298.                 dato$ = MID$(dato$, a% + 1)
299.             ELSEIF a% = LEN(dato$) THEN
300.                 dato$ = LEFT$(dato$, a% - 1)
301.             ELSE
302.                 dato$ = LEFT$(dato$, a% - 1) + MID$(dato$, a% + 1)
303.             END IF
304.         LOOP
305.         a% = INSTR(dato$, "FALSE"): b% = INSTR(dato$, "TRUE")
306.         IF a% <> 0 THEN
307.             MID$(dato$, a%, 5) = SPACE$(5)
308.             dato$ = LTRIM$(RTRIM$(dato$))
309.         END IF
310.         IF b% <> 0 THEN
311.             MID$(dato$, b%, 5) = SPACE$(4)
312.             dato$ = LTRIM$(RTRIM$(dato$))
313.             loca% = n%
314.         END IF
315.         impresora(n%) = dato$
316.         impresora(0) = LTRIM$(STR$(n%))
317.     LOOP
318.     COLOR 7, 0
319.     CLS
320.     COLOR 1, 7
321.     LOCATE 8, Pos10 - 1: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
322.     LOCATE 9, Pos10 - 1: PRINT "º                                        º"
323.     LOCATE 10, Pos10 - 1: PRINT "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
324.     LOCATE 11, Pos10 - 1: PRINT "º                                        º"
325.     LOCATE 12, Pos10 - 1: PRINT "º                                        º"
326.     LOCATE 13, Pos10 - 1: PRINT "º                                        º"
327.     LOCATE 14, Pos10 - 1: PRINT "º                                        º"
328.     LOCATE 15, Pos10 - 1: PRINT "º                                        º"
329.     LOCATE 16, Pos10 - 1: PRINT "ÈÍÍÍÍÍÍÍ<Esc>ÍÍÍÍ<"; CHR$(24); ">Í<"; CHR$(25); ">ÍÍÍÍ<"; CHR$(17); CHR$(217); ">ÍÍÍÍÍÍÍÍͼ"
330.     COLOR 15, 1
331.     LOCATE 9, Pos10: PRINT "            SELECT PRINTER              ";
332.     COLOR 1, 7
333.     max% = VAL(impresora(0))
334.     GOSUB impridatos
335.     DO
336.         x$ = "": WHILE x$ = "": x$ = INKEY$: WEND
337.         x$ = UCASE$(x$)
338.         x% = ASC(RIGHT$(x$, 1))
339.         SELECT CASE x%
340.             CASE IS = 27
341.                 a$ = "@"
342.                 EXIT DO
343.             CASE IS = 13
344.                 a$ = impresora(loca%)
345.                 EXIT DO
346.             CASE IS = 72: '--Subir
347.                 IF loca% > 1 THEN
348.                     loca% = loca% - 1
349.                     GOSUB impridatos
350.                 END IF
351.             CASE IS = 80: '--Bajar
352.                 IF loca% < max% THEN
353.                     loca% = loca% + 1
354.                     GOSUB impridatos
355.                 END IF
356.         END SELECT
357.     LOOP
358.     COLOR 7, 0
359.     CLS
360.     IF a$ <> "@" THEN
361.         SHELL _HIDE "cmd/c wmic printer where name='" + a$ + "' call setdefaultprinter"
362.         PRINT "Selected printer: "; a$
363.     ELSE
364.         PRINT "The printer has not been modified"
365.     END IF
366.     GOTO 700
367.     impridatos:
368.     y% = 1
369.     FOR n% = loca% - 2 TO loca% + 2
370.         IF n% < 1 OR n% > max% THEN
371.             COLOR 1, 7: LOCATE y% + 10, Pos10: PRINT "                                        "
372.         ELSE
373.             IF n% = loca% THEN COLOR 15, 4 ELSE COLOR 1, 7
374.             LOCATE y% + 10, Pos10: PRINT "                                        "
375.             LOCATE y% + 10, Pos10: PRINT LEFT$(impresora(n%), 40)
376.         END IF
377.         y% = y% + 1
378.     NEXT
379.     RETURN
380.    700
381.     CLOSE 10
382. END SUB
383.  
384. FUNCTION GetLocalIP$
385.     choice$ = ""
386.     SHELL _HIDE "cmd /c ipconfig > IPconfig.tmp"
387.     A = FREEFILE
388.     OPEN "IPconfig.tmp" FOR INPUT AS #A
389.     DO
390.         LINE INPUT #A, ipline$
391.         IF UCASE$(LEFT$(LTRIM$(ipline$), 4)) = "IPV4" THEN
392.             GetLocalIP$ = MID$(ipline$, INSTR(ipline$, ":") + 2)
393.             IF GetLocalIP$ = "127.0.0.1" THEN GetLocalIP$ = "offline": GOTO 77
394.             IF GetLocalIP$ = "" THEN GetLocalIP$ = "offline": GOTO 77
395.             '         CLOSE #A
396.             '         KILL "IPconfig.tmp" 'kill the messenger?
397.             EXIT DO
398.            77
399.         END IF
400.     LOOP UNTIL EOF(1)
401.     CLOSE #A
402.     KILL "IPconfig.tmp" 'kill the messenger?
403.  
404. END FUNCTION
405.  
406. SUB ping
407.     ' Shell to ping and get results 0 up 1 down
408.     INPUT "Host to ping? ", ip$
409.     IF ip$ = "" GOTO 777
410.     result& = _SHELLHIDE("ping " + ip$ + " -n 1 -w 100")
411.     IF result& = 0 THEN
412.         'success
413.         COLOR 2, 15
414.         PRINT DATE$ + " " + TIME$ + " " + " Ping ("; ip$; ") "; "UP   ";
415.         COLOR 7, 1
416.     ELSE
417.         COLOR 4, 15
418.         PRINT DATE$ + " " + TIME$ + " " + " Ping ("; ip$; ") "; "DN   ";
419.         COLOR 7, 1
420.         REM PRINT #2, DATE$ + " " + TIME$ + " " + "Ping (" + ip$ + ") (" + desc$ + ")" + "   Down": flag = 1: set = 0
421.     END IF
422.     flag = 1: set = 0
423.     INPUT "pause", ip$
424.    777
425. END SUB
426.  
427. SUB Employee (EmployeeScan$, EmployeeName$, EmployeeFile$)
428.  
429.     LinepPos = 5
430.     EF = FREEFILE
431.    651
432.     CLOSE EF
433.     IF _FILEEXISTS(EmployeeFile$) THEN OPEN EmployeeFile$ FOR INPUT AS #EF ELSE GOTO 652
434.     'LOCATE linepos + 11, pos2: INPUT "Number ", EmployeeScan$
435.  
436.     DO WHILE NOT EOF(EF)
437.         INPUT #EF, A$, B$
438.         IF EmployeeScan$ = A$ THEN
439.             EmployeeName$ = B$
440.             ProductInventory.EmployeeScan = EmployeeScan$
441.             ProductInventory.Employeename = EmployeeName$
442.             EXIT DO
443.         END IF
444.     LOOP
445.     IF EmployeeName$ <> "" THEN GOTO 657
446.    652
447.     CLS
448.     CLOSE #EF
449.     OPEN EmployeeFile$ FOR APPEND AS #EF
450.     LOCATE linepos + 10, pos2: PRINT "Employee Maintance"
451.     LOCATE linepos + 11, pos2: PRINT "Number ", EmployeeScan$
452.     LOCATE linepos + 12, pos2: PRINT "Name ", EmployeeName$
453.     LOCATE linepos + 14, pos2: PRINT "Do you need to Edit?"
454.     LOCATE linepos + 15, pos2: PRINT "  (A)dd Restart, (N)umber Scan, (E)mployee Name, then finaly (S)ave, (ESC) all changes"
455.  
456.     DO
457.         akey$ = INKEY$
458.         IF UCASE$(akey$) = "N" THEN GOTO 653
459.         IF UCASE$(akey$) = "E" THEN GOTO 654
460.         IF UCASE$(akey$) = "A" THEN GOTO 655
461.         IF UCASE$(akey$) = "S" THEN GOTO 656
462.  
463.         IF UCASE$(akey$) = CHR$(27) THEN GOTO 657
464.     LOOP WHILE akey$ = ""
465.  
466.     653
467.  
468.     LOCATE linepos + 10, pos2: PRINT "Change Employee Number"
469.     LOCATE linepos + 11, pos2: INPUT "Number ", EmployeeScan$
470.     LOCATE linepos + 12, pos2: PRINT "Name ", EmployeeName$
471.  
472.     GOTO 652
473.  
474.     654
475.  
476.     LOCATE linepos + 10, pos2: PRINT "Change Employee Name"
477.     LOCATE linepos + 11, pos2: PRINT "Number ", EmployeeScan$
478.     LOCATE linepos + 12, pos2: INPUT "Name ", EmployeeName$
479.  
480.     GOTO 652
481.  
482.     655
483.  
484.     LOCATE linepos + 10, pos2: PRINT "Add New Employee"
485.     LOCATE linepos + 11, pos2: INPUT "Number ", EmployeeScan$
486.     LOCATE linepos + 12, pos2: INPUT "Name ", EmployeeName$
487.     GOTO 652
488.  
489.     656
490.     CLOSE #EF: OPEN EmployeeFile$ FOR APPEND AS #EF
491.     WRITE #EF, EmployeeScan$, EmployeeName$
492.     CLOSE #EF
493.    657
494.     CLS
495.     CLOSE #EF
496.  
497. END SUB
498.  
499. SUB ProductInventoryFile (ProductInventoryUPCCode$, ProductInventoryBrand$, ProductInventoryNumber$, ProductInventoryName$, ProductInventoryUPCFile$, linepos, pos1, pos2)
500.     pos1 = 2: linepos = 2: pos2 = 30
501.     PIF = FREEFILE
502.     IF _FILEEXISTS(ProductInventoryUPCFile$) THEN OPEN ProductInventoryUPCFile$ FOR INPUT AS #PIF ELSE GOTO 555
503.     IF ProductInventoryUPCCode$ = CHR$(27) THEN EXIT SUB
504.    553
505.     DO WHILE NOT EOF(PIF)
506.         INPUT #PIF, A$, B$, C$, D$
507.         IF ProductInventoryUPCCode$ = A$ THEN
508.             ProductInventoryBrand$ = B$
509.             ProductInventoryNumber$ = C$
510.             ProductInventoryName$ = D$
511.             CLOSE #PIF
512.             GOTO 554
513.         END IF
514.     LOOP
515.  
516.     555
517.     CLOSE #PIF
518.     OPEN ProductInventoryUPCFile$ FOR APPEND AS #PIF
519.     LOCATE linepos + 5, pos1: PRINT "ProductInventory Brand ": LOCATE linepos + 5, pos2: PRINT ProductInventory.ProductInventoryBrand
520.     LOCATE linepos + 6, pos1: PRINT "ProductInventory Name ": LOCATE linepos + 6, pos2: PRINT ProductInventory.ProductInventoryName
521.     LOCATE linepos + 7, pos1: PRINT "Part Number ": LOCATE linepos + 7, pos2: PRINT ProductInventory.ProductInventoryNumber
522.  
523.     LOCATE linepos + 5, pos2: INPUT ProductInventoryBrand$
524.     LOCATE linepos + 6, pos2: INPUT ProductInventoryName$
525.     LOCATE linepos + 7, pos2: INPUT ProductInventoryNumber$
526.     WRITE #PIF, ProductInventoryUPCCode$, ProductInventoryBrand$, ProductInventoryNumber$, ProductInventoryName$
527.     CLOSE #PIF
528.  
529.     554
530.     ProductInventory.ProductInventoryUPCCode = ProductInventoryUPCCode$
531.     ProductInventory.ProductInventoryBrand = ProductInventoryBrand$
532.     ProductInventory.ProductInventoryNumber = ProductInventoryNumber$
533.     ProductInventory.ProductInventoryName = ProductInventoryName$
534.  
535. END SUB
536.  
537. SUB Barcode (DATAPASS1$, DATAPASS3$, DATAPASS4$, DATAPASS2$)
538.     CLS
539.     DATAPASS1$ = "*" + RTRIM$(DATAPASS1$) + "*"
540.  
541.     PRINT "--------------------------------------------------------------"
542.     PRINT "Serial " + DATAPASS1$ + "                  Use By "; DATAPASS2$
543.     PRINT DATAPASS3$
544.     PRINT DATAPASS4$
545.     PRINT "||| ||| || |||||||| |||||| |||||| ||||| | |||||| ||||||| |||||"
546.     PRINT "||| ||| || |||||||| |||||| |||||| ||||| | |||||| ||||||| |||||"
547.     PRINT "||| ||| || |||||||| |||||| |||||| ||||| | |||||| ||||||| |||||"
548.     PRINT "||| ||| || |||||||| |||||| |||||| ||||| | |||||| ||||||| |||||"
549.     PRINT "--------------------------------------------------------------"
550.     INPUT "Pause", a
551.  
552.     'FFONT$ = "free3of9x.ttf": FFSize = 120
553.     'EFONT$ = "Arial.ttf": EFSize = 60
554.     'AFONT$ = "Arial.ttf": AFSize = 60
555.     'PageWidth = 216 * 10
556.     'PageHeight = 279 * 10
557.  
558.     'Label designer for the Brother 201 (29mm x 90mm or 1-1/7" x 3-1/2") / Zebra ZDesigner LP 2844 looks compatible.
559.     FFONT$ = "free3of9x.ttf": FFSize = 240
560.     EFONT$ = "Arial.ttf": EFSize = 40
561.     AFONT$ = "Arial.ttf": AFSize = 40
562.     PageWidth = 110 * 10 'maximized tweaks for whole label
563.     PageHeight = 29 * 10 'Max is already set do not change.
564.  
565.     Colum = 10
566.  
567.     SCREEN _NEWIMAGE(PageWidth, PageHeight, 13)
568.     _DEST Page&: CLS _RGB(1, 1, 1), _RGB(256, 256, 256): _DEST 0 'make background white to save ink!
569.     COLOR
570.     F& = _LOADFONT(FFONT$, FFSize)
571.     E& = _LOADFONT(EFONT$, EFSize)
572.     A& = _LOADFONT(AFONT$, AFSize)
573.  
574.     _FONT F&
575.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 45), DATAPASS1$ ' Print upc bars on bottom of label
576.  
577.     _FONT A&
578.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 35), DATAPASS3$ ' Print Line 2 ProductInventory description
579.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 68), DATAPASS4$ ' Print Line 3 ProductInventory description
580.  
581.     _FONT A&
582.     keep = LEN(DATAPASS1$): DATAPASS1$ = MID$(DATAPASS1$, 2, keep - 2)
583.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 0), "Serial " + DATAPASS1$ ' Print upc bar information above bar scan font
584.     IF DATAPASS2$ <> "" THEN COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (725, 0), "Use By " + DATAPASS2$ ' Print Product Expiry Date
585.  
586.     _PRINTIMAGE 0 'print screen page on printer
587.     SCREEN 0
588. END SUB
589.  
590. SUB SerialGen (serial$)
591.     SN = FREEFILE
592.     Exists = _FILEEXISTS("SerialFile.txt")
593.     IF Exists = 0 THEN
594.         OPEN "SerialFile.txt" FOR OUTPUT AS #SN
595.         serial$ = "000000000"
596.         PRINT #SN, serial$
597.         CLOSE #SN
598.     END IF
599.     OPEN "SerialFile.txt" FOR INPUT AS #SN
600.     INPUT #SN, serial$: CLOSE #SN
601.     SSerial$ = LEFT$(serial$, 1)
602.     ISerial = VAL(serial$)
603.     ISerial = ISerial + 1:
604.     ISerial$ = LTRIM$(STR$(ISerial))
605.     DO UNTIL LEN(ISerial$) = 9
606.         ISerial$ = "0" + ISerial$
607.     LOOP
608.     OPEN "SerialFile.txt" FOR OUTPUT AS #SN
609.     serial$ = SSerial$ + ISerial$
610.     PRINT #SN, serial$
611.     CLOSE #SN
612. END SUB
613.  
614.  
615. FUNCTION Printerdisplay$
616.     Pos10 = 15
617.     CLS
618.     COLOR 15, 0
619.     SHELL _HIDE "cmd/c wmic printer get name, default> impresora.txt"
620.     DIM impresora(50) AS STRING
621.     OPEN "I", 10, "impresora.txt"
622.     n% = 0
623.     LINE INPUT #10, dato$
624.     DO
625.  
626.         LINE INPUT #10, dato$: LINE INPUT #10, dato$
627.         IF EOF(10) THEN EXIT DO
628.         n% = n% + 1
629.         DO
630.             a% = INSTR(dato$, CHR$(0))
631.             IF a% = 0 THEN EXIT DO
632.             IF a% = 1 THEN
633.                 dato$ = MID$(dato$, a% + 1)
634.             ELSEIF a% = LEN(dato$) THEN
635.                 dato$ = LEFT$(dato$, a% - 1)
636.             ELSE
637.                 dato$ = LEFT$(dato$, a% - 1) + MID$(dato$, a% + 1)
638.             END IF
639.         LOOP
640.         a% = INSTR(dato$, "FALSE"): b% = INSTR(dato$, "TRUE")
641.         IF a% <> 0 THEN
642.             MID$(dato$, a%, 5) = SPACE$(5)
643.             dato$ = LTRIM$(RTRIM$(dato$))
644.  
645.         END IF
646.         IF b% <> 0 THEN
647.             MID$(dato$, b%, 5) = SPACE$(4)
648.             dato$ = LTRIM$(RTRIM$(dato$))
649.             Printerdisplay$ = dato$
650.             loca% = n%
651.         END IF
652.  
653.  
654.         impresora(n%) = dato$
655.         impresora(0) = LTRIM$(STR$(n%))
656.     LOOP
657.     CLOSE 10
658. END FUNCTION
659.  
660. SUB CodeCreator
661.     CLS
662.  
663.     FFONT$ = "free3of9.ttf": FFSize = 120
664.     EFONT$ = "Arial.ttf": EFSize = 60
665.     AFONT$ = "Arial.ttf": AFSize = 60
666.     PageWidth = 216 * 10
667.     PageHeight = 279 * 10
668.  
669.     Colum = 10
670.     INPUT "Barcode Information to print ", DATAPASS1$: DATAPASS1$ = "*" + RTRIM$(UCASE$(DATAPASS1$)) + "*"
671.  
672.     SCREEN _NEWIMAGE(PageWidth, PageHeight, 13)
673.     _DEST Page&: CLS _RGB(1, 1, 1), _RGB(256, 256, 256): _DEST 0 'make background white to save ink!
674.     COLOR
675.     F& = _LOADFONT(FFONT$, FFSize)
676.     E& = _LOADFONT(EFONT$, EFSize)
677.     A& = _LOADFONT(AFONT$, AFSize)
678.  
679.     _FONT F&
680.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 45), DATAPASS1$ ' Print upc bars on bottom of label
681.  
682.     _FONT A&
683.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 35), DATAPASS3$ ' Print Line 2 ProductInventory description
684.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 68), DATAPASS4$ ' Print Line 3 ProductInventory description
685.  
686.     _FONT A&
687.     keep = LEN(DATAPASS1$): DATAPASS1$ = MID$(DATAPASS1$, 2, keep - 2)
688.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 0), DATAPASS1$ ' Print upc bar information above bar scan font
689.     IF DATAPASS2$ <> "" THEN COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (725, 0), "Use By " + DATAPASS2$ ' Print Product Expiry Date
690.     INPUT "", a
691.     _PRINTIMAGE 0 'print screen page on printer
692.     SCREEN 0
693.  
694. END SUB

[Chris80194]

Ok I have wacked more stuff into working.
probably not very clean though

Code: QB64: [Select]

1. 'OPTION _EXPLICIT
2.  
3. TYPE InventoryDataStructure
4.     EmployeeScan AS STRING * 4
5.     Employeename AS STRING * 60
6.     Brand AS STRING * 60
7.     Number AS STRING * 40
8.     UnitName AS STRING * 60
9.     WeightBegin AS SINGLE
10.     UPCCode AS STRING * 20
11.     Cost AS SINGLE
12.     PurchaseDate AS STRING * 10
13.     ExpirationDate AS STRING * 10
14.     WeightCheckOut AS SINGLE
15.     WeightCheckIn AS SINGLE
16.     'STOCKUPC = 9, more corrupts the barcode print out.
17.     StockUPC AS STRING * 10 'Serial number
18.     TypeofProductInventory AS STRING * 20
19.     BatchNumber AS STRING * 4
20.     BoxNumber AS STRING * 4
21.     GallonorPound AS STRING * 8
22.     INorOut AS STRING * 3
23.     Room AS STRING * 10
24.     Rack AS STRING * 4
25.     Shelf AS STRING * 4
26.     Bin AS STRING * 4
27.     DT AS STRING * 10
28.     TM AS STRING * 8
29. END TYPE
30. DIM SHARED ProductInventory AS InventoryDataStructure
31. DIM SHARED pos1, pos2, linepos, Title$, Author$: pos1 = 2: linepos = 1: pos2 = 30
32.  
33. 'Product Constants future rewrite
34. TYPE ProductDataStructure
35.     ProductInventoryEmployeeScan AS STRING * 4
36.     ProductInventoryEmployeename AS STRING * 60
37.     ProductInventoryBrand AS STRING * 60
38.     ProductInventoryNumber AS STRING * 60
39.     ProductInventoryName AS STRING * 60
40.     ProductInventoryWeightBegin AS SINGLE
41. END TYPE
42. 'DIM shared ProductPurchase AS ProductDataStructure
43. 'OPEN ProductInventoryUPCFile$ FOR RANDOM AS #freefile LEN = LEN(ProductPurchase)
44.  
45. 1
46.  
47. COLOR 15, 7 'Foreground, Background  colors
48. Author$ = "Written by Chris Owen on 6-20-2019, Email: chris.owen09@gmail.com"
49. Title$ = "A1 Powder Coat"
50.  
51. EmployeeFile$ = "Employee File.csv"
52. ProductInventoryDBase$ = "Product Inventory Stock.RND"
53. ProductInventoryUPCFile$ = "Product Inventory File.csv"
54. Printer1$ = "Brother QL-500"
55. Printer2$ = "Lexmark C500"
56. Printer3$ = "Microsoft Print to PDF"
57.  
58. CLS
59. LOCATE 25, 80 - LEN(Author$): PRINT Author$
60. position = 3
61. COLOR 11, 7: PRINT "Default Printer " + Printerdisplay$: COLOR 15, 7
62. choice$ = ""
63. DO UNTIL choice$ <> ""
64.     TTime$ = DATE$ + "_" + LEFT$(TIME$, 2) + "." + MID$(TIME$, 4, 2) + "." + RIGHT$(TIME$, 2)
65.     LOCATE 3, 15: PRINT Title$ + " Inventory": COLOR 14, 7: LOCATE 3, 50: PRINT TTime$: COLOR 15, 7 ' only 23 lines on screen 80 wide
66.  
67.     LOCATE 1, 80 - 5 - LEN(GetLocalIP$): COLOR 11, 7: PRINT "IP (" + GetLocalIP$ + ")": COLOR 15, 7
68.     LOCATE 4 + position, 1: PRINT "1 Single Entry"
69.     LOCATE 5 + position, 1: PRINT "2 Multiple Entry"
70.     LOCATE 7 + position, 1: PRINT "3 Check Out"
71.     LOCATE 8 + position, 1: PRINT "4 Check In"
72.     LOCATE 12 + position, 1: PRINT "R Reprint Label "
73.     LOCATE 13 + position, 1: PRINT "E Edit Employee File " + EmployeeFile$
74.     LOCATE 14 + position, 1: PRINT "C Create Signs"
75.  
76.     LOCATE 18 + position, 1: PRINT "V Verify Ping to Host"
77.     LOCATE 19 + position, 1: PRINT "P Printer Select"
78.     LOCATE 23, 1: PRINT "ESC to exit" ' Lock in here no lower
79.     choice$ = UCASE$(INKEY$) 'change any user key press to uppercase
80. LOOP
81.  
82. IF choice$ = "1" THEN
83.     SHELL _HIDE "cmd/c wmic printer where name='" + Printer1$ + "' call setdefaultprinter"
84.     CALL Part(choice$, ProductInventoryDBase$, EmployeeFile$, ProductInventoryUPCFile$, Printer$)
85.     SHELL _HIDE "cmd/c wmic printer where name='" + Printer2$ + "' call setdefaultprinter"
86. END IF
87.  
88. IF choice$ = "2" THEN
89.     SHELL _HIDE "cmd/c wmic printer where name='" + Printer1$ + "' call setdefaultprinter"
90.     CALL Part(choice$, ProductInventoryDBase$, EmployeeFile$, ProductInventoryUPCFile$, Printer$)
91.     SHELL _HIDE "cmd/c wmic printer where name='" + Printer2$ + "' call setdefaultprinter"
92. END IF
93.  
94. IF choice$ = "3" THEN
95.     SHELL _HIDE "cmd/c wmic printer where name='" + Printer1$ + "' call setdefaultprinter"
96.     CALL SEARCH(choice$, ProductInventoryDBase$, EmployeeFile$, ProductInventoryUPCFile$, Printer$)
97.     SHELL _HIDE "cmd/c wmic printer where name='" + Printer2$ + "' call setdefaultprinter"
98. END IF
99.  
100. IF choice$ = "4" THEN
101.     SHELL _HIDE "cmd/c wmic printer where name='" + Printer1$ + "' call setdefaultprinter"
102.     CALL SEARCH(choice$, ProductInventoryDBase$, EmployeeFile$, ProductInventoryUPCFile$, Printer$)
103.     SHELL _HIDE "cmd/c wmic printer where name='" + Printer2$ + "' call setdefaultprinter"
104. END IF
105.  
106. IF choice$ = "R" THEN
107.     SHELL _HIDE "cmd/c wmic printer where name='" + Printer1$ + "' call setdefaultprinter"
108.     CALL SEARCH(choice$, ProductInventoryDBase$, EmployeeFile$, ProductInventoryUPCFile$, Printer$)
109.     SHELL _HIDE "cmd/c wmic printer where name='" + Printer2$ + "' call setdefaultprinter"
110. END IF
111.  
112. IF choice$ = "C" THEN CALL CodeCreator(Printer1$, Printer2$, Printer3$)
113. IF choice$ = "E" THEN CALL Employee(EmployeeScan$, EmployeeName$, EmployeeFile$): GOTO 1
114. IF choice$ = "V" THEN CALL ping
115.  
116. IF choice$ = "P" THEN CALL Select_Printer(Printer$)
117.  
118. IF choice$ = CHR$(27) THEN SYSTEM
119. choice$ = ""
120. GOTO 1
121.  
122. SUB SEARCH (choice$, ProductInventoryDBase$, EmployeeFile$, ProductInventoryUPCFile$, Printer$)
123.     pos1 = 2: linepos = 2: pos2 = 30
124.     OPEN ProductInventoryDBase$ FOR RANDOM AS #5 LEN = LEN(ProductInventory)
125.     OPEN ProductInventoryUPCFile$ FOR INPUT AS #6
126.     NumRecords% = LOF(5) \ LEN(ProductInventory)
127.  
128.     600
129.     GOTO 601
130.     IF UCASE$(choice$) = "2" THEN Multi = 1
131.     IF UCASE$(choice$) = "R" THEN Check$ = "REPRINT"
132.     choice$ = ""
133.     COLOR 15, 6: CLS
134.     IF Multi = 0 OR 1 THEN
135.         LOCATE 1, 15: PRINT Title$ + " Single Entry"; " Records " + STR$(NumRecords%)
136.  
137.     ELSE
138.         LOCATE 1, 15: PRINT Title$ + " Multiple Entry"; " Records " + STR$(NumRecords%)
139.  
140.     END IF
141.    601
142.     IF UCASE$(choice$) = "3" THEN Check$ = "OUT"
143.     IF UCASE$(choice$) = "4" THEN Check$ = "IN"
144.     IF UCASE$(choice$) = "R" THEN Check$ = "REPRINT"
145.     choice$ = ""
146.     COLOR 15, 6: CLS
147.     IF Check$ = "OUT" THEN LOCATE 3, 15: PRINT Title$ + " Check Out"; " Records " + STR$(NumRecords%)
148.     IF Check$ = "IN" THEN LOCATE 3, 15: PRINT Title$ + " Return Check IN"; " Records " + STR$(NumRecords%)
149.  
150.     LOCATE linepos + 21, pos1: PRINT "ESC key plus Enter to exit"
151.  
152.     611
153.     IF Check$ <> "REPRINT" THEN
154.         LOCATE linepos + 3, pos1: PRINT "Employee Scan"
155.         LOCATE linepos + 3, pos2: INPUT EmployeeScan$
156.         IF EmployeeScan$ = CHR$(27) THEN GOTO 631
157.         CALL Employee(EmployeeScan$, EmployeeName$, EmployeeFile$)
158.         (ProductInventory.EmployeeScan) = EmployeeScan$
159.         (ProductInventory.Employeename) = EmployeeName$
160.  
161.         LOCATE linepos + 3, pos1: PRINT "Captured Employee Scan      #" + RTRIM$(ProductInventory.EmployeeScan) + " " + RTRIM$(ProductInventory.Employeename)
162.     END IF
163.  
164.     612
165.     LOCATE linepos + 4, pos1: PRINT "Product Serial Code"
166.     LOCATE linepos + 4, pos2: INPUT ProductInventoryStockUPC$
167.    614
168.     IF ProductInventoryStockUPC$ = CHR$(27) THEN GOTO 631
169.     IF ProductInventoryStockUPC$ = "" THEN GOTO 612
170.     IF LEN(ProductInventoryStockUPC$) <> 10 THEN ProductInventoryStockUPC$ = "0" + ProductInventoryStockUPC$: GOTO 614
171.  
172.     DO UNTIL EOF(5)
173.         NumRecords = NumRecords + 1
174.         GET #5, NumRecords, ProductInventory
175.         IF ProductInventoryStockUPC$ = ProductInventory.StockUPC THEN: BEEP: EXIT DO ELSE IF NumRecords = NumRecords% THEN FOR x = 1 TO 3: BEEP: NEXT x: NumRecords = 0: ProductInventoryStockUPC$ = "": GOTO 612
176.  
177.     LOOP
178.     IF Check$ <> "REPRINT" THEN
179.         CLS
180.         LOCATE 2, 30: PRINT "Record " + STR$(NumRecords) + " of " + STR$(NumRecords%)
181.         LOCATE linepos + 3, pos1: PRINT "Captured Employee Scan      #" + RTRIM$(ProductInventory.EmployeeScan) + " " + RTRIM$(ProductInventory.Employeename)
182.         LOCATE linepos + 4, pos1: PRINT "Serialized Stock UPC ": LOCATE linepos + 4, pos2: PRINT RTRIM$(ProductInventory.StockUPC)
183.         LOCATE linepos + 5, pos1: PRINT "ProductInventory Brand ": LOCATE linepos + 5, pos2: PRINT RTRIM$(ProductInventory.Brand)
184.         LOCATE linepos + 6, pos1: PRINT "ProductInventory Name ": LOCATE linepos + 6, pos2: PRINT RTRIM$(ProductInventory.UnitName)
185.         LOCATE linepos + 7, pos1: PRINT "Part Number ": LOCATE linepos + 7, pos2: PRINT RTRIM$(ProductInventory.Number)
186.         LOCATE linepos + 8, pos1: PRINT "Measurement ": LOCATE linepos + 8, pos2: PRINT RTRIM$(ProductInventory.GallonorPound)
187.         LOCATE linepos + 9, pos1: PRINT "Weight ": LOCATE linepos + 9, pos2: PRINT ProductInventory.WeightBegin
188.         LOCATE linepos + 10, pos1: PRINT "Expiration Date ": LOCATE linepos + 10, pos2: PRINT ProductInventory.ExpirationDate
189.         LOCATE linepos + 11, pos1: PRINT "Type of Product ": LOCATE linepos + 11, pos2: PRINT ProductInventory.TypeofProductInventory
190.         LOCATE linepos + 12, pos1: PRINT "Room ": IF choice$ = "OUT" THEN LOCATE linepos + 12, pos2: PRINT ProductInventory.Room
191.         LOCATE linepos + 13, pos1: PRINT "Rack ": IF choice$ = "OUT" THEN LOCATE linepos + 13, pos2: PRINT ProductInventory.Rack
192.         LOCATE linepos + 14, pos1: PRINT "Shelf ": IF choice$ = "OUT" THEN LOCATE linepos + 14, pos2: PRINT ProductInventory.Shelf
193.         LOCATE linepos + 15, pos1: PRINT "Bin ": IF choice$ = "OUT" THEN LOCATE linepos + 15, pos2: PRINT ProductInventory.Bin
194.         IF choice$ = "OUT" THEN LOCATE linepos + 16, pos1: PRINT "Check Out Weight": LOCATE linepos + 16, pos2: INPUT ProductInventory.WeightCheckOut
195.  
196.         IF choice$ = "IN" THEN LOCATE linepos + 16, pos1: PRINT "Check in Weight": LOCATE linepos + 16, pos2: INPUT ProductInventory.WeightCheckIn
197.         IF choice$ = "IN" THEN LOCATE linepos + 12, pos2: INPUT ProductInventory.Room
198.         IF choice$ = "IN" THEN LOCATE linepos + 13, pos2: INPUT ProductInventory.Rack
199.         IF choice$ = "IN" THEN LOCATE linepos + 14, pos2: INPUT ProductInventory.Shelf
200.         IF choice$ = "IN" THEN LOCATE linepos + 15, pos2: INPUT ProductInventory.Bin
201.  
202.         613
203.         DT$ = ""
204.         LOCATE linepos + 14, pos2: INPUT DT$
205.         akey$ = ""
206.         IF DT$ = "" THEN DT$ = DATE$ ': GOTO 64000
207.         Century$ = MID$(DATE$, 7, 2)
208.         IF LEN(DT$) = 6 THEN DT$ = LEFT$(DT$, 2) + MID$(DT$, 3, 2) + Century$ + RIGHT$(DT$, 2): DT$ = LEFT$(DT$, 2) + "-" + MID$(DT$, 3, 2) + "-" + RIGHT$(DT$, 4): GOTO 64000
209.         IF LEN(DT$) = 8 THEN DT$ = LEFT$(DT$, 2) + MID$(DT$, 3, 2) + RIGHT$(DT$, 4): DT$ = LEFT$(DT$, 2) + "-" + MID$(DT$, 3, 2) + "-" + RIGHT$(DT$, 4): GOTO 64000
210.        64000
211.         ProductInventory.TM = TIME$: ProductInventory.DT = DATE$
212.         'IF Check$ = "OUT" THEN LOCATE linepos + 15, pos2: PRINT "? " + ProductInventory.DT
213.         'IF Check$ = "IN" THEN LOCATE linepos + 15, pos2: PRINT "? " + ProductInventory.TM
214.         'LOCATE linepos + 15, pos2 + 13: PRINT "Correct N/Y ?"
215.         'DO UNTIL akey$ <> ""
216.         'akey$ = INKEY$
217.         'IF UCASE$(akey$) = "N" THEN LOCATE linepos + 15, pos2: PRINT "                              ": GOTO 613
218.         'IF UCASE$(akey$) = CHR$(12) THEN akey$ = ""
219.         'IF UCASE$(akey$) <> "Y" THEN akey$ = ""
220.         'IF UCASE$(akey$) = CHR$(27) THEN GOTO 631
221.         'LOOP
222.  
223.         LOCATE linepos + 21, pos1: PRINT "Only C Cancels Entry anything else to save"
224.         DO
225.             akey$ = INKEY$
226.             IF UCASE$(akey$) = UCASE$("C") THEN GOTO 631
227.         LOOP WHILE akey$ = ""
228.         akey$ = ""
229.  
230.         IF Multi = 2 THEN
231.             LOCATE linepos + 21, pos1: PRINT "ESC to Save Last Entry and Exit"
232.             DO
233.                 akey$ = INKEY$
234.                 IF UCASE$(akey$) = CHR$(27) THEN Last$ = "yes"
235.             LOOP WHILE akey$ = ""
236.         END IF
237.         akey$ = ""
238.  
239.         'Add Inventory
240.         'NumRecords% = LOF(5) \ LEN(ProductInventory)
241.         PUT #5, NumRecords% + 1, ProductInventory
242.     END IF
243.  
244.     ' Barcode Printout
245.     IF Check$ = "IN" OR Check$ = "REPRINT" THEN
246.         Datapass1$ = ProductInventory.StockUPC
247.         DATAPASS2$ = ProductInventory.ExpirationDate
248.         DATAPASS3$ = ProductInventory.UnitName
249.         DATAPASS4$ = ProductInventory.Number
250.         IF Check$ = "IN" THEN DATAPASS5 = ProductInventory.WeightCheckIn
251.         'rep
252.         IF Check$ = "REPRINT" THEN DATAPASS5 = ProductInventory.WeightBegin
253.  
254.         CALL Barcode(Datapass1$, DATAPASS3$, DATAPASS4$, DATAPASS2$, DATAPASS5)
255.     END IF
256.     IF Multi = 1 AND NOT Last$ = "yes" THEN 600
257.    631
258.     CLOSE 5
259. END SUB
260.  
261. SUB Part (choice$, ProductInventoryDBase$, EmployeeFile$, ProductInventoryUPCFile$, Printer$)
262.     pos1 = 2: linepos = 2: pos2 = 30
263.     OPEN ProductInventoryDBase$ FOR RANDOM AS #5 LEN = LEN(ProductInventory)
264.     NumRecords% = LOF(5) \ LEN(ProductInventory)
265.  
266.     400
267.     IF UCASE$(choice$) = "1" THEN Multi = 1
268.     IF UCASE$(choice$) = "2" THEN Multi = 2
269.     choice$ = ""
270.     COLOR 15, 6: CLS
271.  
272.     IF Multi = 1 THEN
273.         LOCATE 3, 15: PRINT Title$ + " Single Entry"; " Records " + STR$(NumRecords%)
274.  
275.     ELSE
276.         LOCATE 3, 15: PRINT Title$ + " Multiple Entry"; " Records " + STR$(NumRecords%)
277.  
278.     END IF
279.  
280.     LOCATE linepos + 21, pos1: PRINT "ESC key plus Enter to exit"
281.     'LOCATE linepos + 21, pos2: PRINT "Default Printer " + Printerdisplay$
282.    411
283.     LOCATE linepos + 3, pos1: PRINT "Employee Scan"
284.     LOCATE linepos + 3, pos2: INPUT EmployeeScan$
285.     IF EmployeeScan$ = CHR$(27) THEN GOTO 431
286.     CALL Employee(EmployeeScan$, EmployeeName$, EmployeeFile$)
287.     (ProductInventory.EmployeeScan) = EmployeeScan$
288.     (ProductInventory.Employeename) = EmployeeName$
289.  
290.     LOCATE linepos + 3, pos1: PRINT "Captured Employee Scan      #" + RTRIM$(ProductInventory.EmployeeScan) + " " + RTRIM$(ProductInventory.Employeename)
291.  
292.     412
293.  
294.     LOCATE linepos + 4, pos1: PRINT "ProductInventory UPC Code"
295.     LOCATE linepos + 4, pos2: INPUT ProductInventoryUPCCode$
296.     IF ProductInventoryUPCCode$ = "" THEN GOTO 412
297.     IF ProductInventoryUPCCode$ = CHR$(27) THEN GOTO 431
298.     CALL ProductInventoryFile(ProductInventoryUPCCode$, ProductInventoryBrand$, ProductInventoryNumber$, ProductInventoryName$, ProductInventoryUPCFile$, linepos, pos1, pos2)
299.  
300.     LOCATE linepos + 5, pos1: PRINT "ProductInventory Brand ": LOCATE linepos + 5, pos2: PRINT RTRIM$(ProductInventory.Brand)
301.     LOCATE linepos + 6, pos1: PRINT "ProductInventory Name ": LOCATE linepos + 6, pos2: PRINT RTRIM$(ProductInventory.UnitName)
302.     LOCATE linepos + 7, pos1: PRINT "Part Number ": LOCATE linepos + 7, pos2: PRINT RTRIM$(ProductInventory.Number)
303.     CALL SerialGen(Serial$): ProductInventory.StockUPC = Serial$
304.     LOCATE linepos + 8, pos1: PRINT "Serialized Stock UPC": LOCATE linepos + 8, pos2: PRINT RTRIM$(ProductInventory.StockUPC)
305.     LOCATE linepos + 9, pos1: PRINT "Batch Number"
306.     LOCATE linepos + 10, pos1: PRINT "Box Number"
307.     LOCATE linepos + 11, pos1: PRINT "Measured as Gallon or Pound"
308.     LOCATE linepos + 12, pos1: PRINT "Weight/Quanity/Amount"
309.     LOCATE linepos + 13, pos1: PRINT "Cost"
310.  
311.     LOCATE linepos + 9, pos2: INPUT ProductInventory.BatchNumber
312.     IF ProductInventory.BatchNumber = CHR$(27) THEN GOTO 431
313.  
314.     LOCATE linepos + 10, pos2: INPUT ProductInventory.BoxNumber
315.     IF ProductInventory.BoxNumber = CHR$(27) THEN GOTO 431
316.    422
317.     LOCATE linepos + 11, pos2: PRINT "?"
318.     GallonorPound$ = INKEY$
319.     IF UCASE$(GallonorPound$) = "G" THEN GallonorPound$ = "GALLON": GOTO 421
320.     IF UCASE$(GallonorPound$) = "P" THEN GallonorPound$ = "POUND": GOTO 421
321.     IF GallonorPound$ = CHR$(27) THEN GOTO 431
322.     GOTO 422
323.    421
324.     ProductInventory.GallonorPound = GallonorPound$
325.     LOCATE linepos + 11, pos2: PRINT RTRIM$(ProductInventory.GallonorPound)
326.  
327.     LOCATE linepos + 12, pos2: INPUT ProductInventory.WeightBegin
328.  
329.     LOCATE linepos + 13, pos2: INPUT ProductInventory.Cost
330.  
331.     LOCATE linepos + 14, pos1: PRINT "Purchase/Received Date"
332.  
333.     LOCATE linepos + 15, pos1: PRINT "Expiration Date"
334.  
335.     LOCATE linepos + 16, pos1: PRINT "Type of Product Dry or Wet"
336.  
337.     LOCATE linepos + 17, pos1: PRINT "Room"
338.  
339.     LOCATE linepos + 18, pos1: PRINT "Rack"
340.  
341.     LOCATE linepos + 19, pos1: PRINT "Shelf"
342.  
343.     LOCATE linepos + 20, pos1: PRINT "Bin"
344.  
345.     413 DT$ = ""
346.     LOCATE linepos + 14, pos2: INPUT DT$
347.     akey$ = ""
348.     IF DT$ = "" THEN DT$ = DATE$ ': GOTO 44000
349.     Century$ = MID$(DATE$, 7, 2)
350.     IF LEN(DT$) = 6 THEN DT$ = LEFT$(DT$, 2) + MID$(DT$, 3, 2) + Century$ + RIGHT$(DT$, 2): DT$ = LEFT$(DT$, 2) + "-" + MID$(DT$, 3, 2) + "-" + RIGHT$(DT$, 4): GOTO 44000
351.     IF LEN(DT$) = 8 THEN DT$ = LEFT$(DT$, 2) + MID$(DT$, 3, 2) + RIGHT$(DT$, 4): DT$ = LEFT$(DT$, 2) + "-" + MID$(DT$, 3, 2) + "-" + RIGHT$(DT$, 4): GOTO 44000
352.    44000
353.     ProductInventory.PurchaseDate = DT$
354.     LOCATE linepos + 14, pos2: PRINT "? " + ProductInventory.PurchaseDate
355.     LOCATE linepos + 14, pos2 + 13: PRINT "Correct N/Y ?"
356.     DO UNTIL akey$ <> ""
357.         akey$ = INKEY$
358.         IF UCASE$(akey$) = "N" THEN LOCATE linepos + 14, pos2: PRINT "                              ": GOTO 413
359.         IF UCASE$(akey$) = CHR$(12) THEN akey$ = ""
360.         IF UCASE$(akey$) <> "Y" THEN akey$ = ""
361.         IF UCASE$(akey$) = CHR$(27) THEN GOTO 431
362.     LOOP
363.  
364.     414 DT$ = ""
365.     LOCATE linepos + 15, pos2: INPUT DT$
366.     akey$ = ""
367.     IF DT$ = "" THEN DT$ = DATE$ ': GOTO 44001
368.     Century$ = MID$(DATE$, 7, 2)
369.     IF LEN(DT$) = 6 THEN DT$ = LEFT$(DT$, 2) + MID$(DT$, 3, 2) + Century$ + RIGHT$(DT$, 2): DT$ = LEFT$(DT$, 2) + "-" + MID$(DT$, 3, 2) + "-" + RIGHT$(DT$, 4): GOTO 44001
370.     IF LEN(DT$) = 8 THEN DT$ = LEFT$(DT$, 2) + MID$(DT$, 3, 2) + RIGHT$(DT$, 4): DT$ = LEFT$(DT$, 2) + "-" + MID$(DT$, 3, 2) + "-" + RIGHT$(DT$, 4): GOTO 44001
371.    44001
372.     ProductInventory.ExpirationDate = DT$
373.     LOCATE linepos + 15, pos2: PRINT "? " + ProductInventory.ExpirationDate
374.     LOCATE linepos + 15, pos2 + 13: PRINT "Correct N/Y ?"
375.     DO UNTIL akey$ <> ""
376.         akey$ = INKEY$
377.         IF UCASE$(akey$) = "N" THEN LOCATE linepos + 15, pos2: PRINT "                              ": GOTO 414
378.         IF UCASE$(akey$) = CHR$(12) THEN akey$ = ""
379.         IF UCASE$(akey$) <> "Y" THEN akey$ = ""
380.         IF UCASE$(akey$) = CHR$(27) THEN GOTO 431
381.     LOOP
382.  
383.     'LOCATE linepos + 12, pos2: INPUT ProductInventory.WeightCheckOut
384.     'LOCATE linepos + 12, pos2: INPUT ProductInventory.WeightCheckIn
385.  
386.     423
387.     LOCATE linepos + 16, pos2: PRINT "?"
388.     DO UNTIL TypeOf$ <> ""
389.         TypeOf$ = INKEY$
390.         IF UCASE$(TypeOf$) = "W" THEN TypeOf$ = "LIQUID": GOTO 424
391.         IF UCASE$(TypeOf$) = "D" THEN TypeOf$ = "POWDER": GOTO 424
392.         IF UCASE$(TypeOf$) = CHR$(12) THEN TypeOf$ = ""
393.         IF UCASE$(TypeOf$) = CHR$(27) THEN GOTO 431
394.  
395.     LOOP
396.    424
397.     ProductInventory.TypeofProductInventory = TypeOf$
398.     LOCATE linepos + 16, pos2: PRINT ProductInventory.TypeofProductInventory
399.  
400.     LOCATE linepos + 17, pos2: INPUT ProductInventory.Room
401.     ProductInventory.Room = UCASE$(ProductInventory.Room)
402.     LOCATE linepos + 17, pos2: PRINT ProductInventory.Room
403.  
404.     LOCATE linepos + 18, pos2: INPUT ProductInventory.Rack
405.     ProductInventory.Rack = UCASE$(ProductInventory.Rack)
406.     LOCATE linepos + 18, pos2: PRINT ProductInventory.Rack
407.  
408.     LOCATE linepos + 19, pos2: INPUT ProductInventory.Shelf
409.     ProductInventory.Shelf = UCASE$(ProductInventory.Shelf)
410.     LOCATE linepos + 19, pos2: PRINT ProductInventory.Shelf
411.  
412.     LOCATE linepos + 20, pos2: INPUT ProductInventory.Bin
413.     ProductInventory.Bin = UCASE$(ProductInventory.Bin)
414.     LOCATE linepos + 20, pos2: PRINT ProductInventory.Bin
415.     ProductInventory.INorOut = "IN"
416.  
417.     LOCATE linepos + 21, pos1: PRINT "Only C Cancels Entry anything else to save"
418.     DO
419.         akey$ = INKEY$
420.         IF UCASE$(akey$) = UCASE$("C") THEN GOTO 431
421.     LOOP WHILE akey$ = ""
422.     akey$ = ""
423.  
424.     IF Multi = 2 THEN
425.         LOCATE linepos + 21, pos1: PRINT "ESC to Save Last Entry and Exit"
426.         DO
427.             akey$ = INKEY$
428.             IF UCASE$(akey$) = CHR$(27) THEN Last$ = "yes"
429.         LOOP WHILE akey$ = ""
430.     END IF
431.     akey$ = ""
432.  
433.     ProductInventory.TM = TIME$: ProductInventory.DT = DATE$
434.  
435.     'Add Inventory
436.     NumRecords% = LOF(5) \ LEN(ProductInventory)
437.     PUT #5, NumRecords% + 1, ProductInventory
438.  
439.     ' Barcode Printout
440.  
441.     Datapass1$ = ProductInventory.StockUPC
442.     DATAPASS2$ = ProductInventory.ExpirationDate
443.     DATAPASS3$ = ProductInventory.UnitName
444.     DATAPASS4$ = ProductInventory.Number
445.     Datapass5 = ProductInventory.WeightBegin
446.  
447.     CALL Barcode(Datapass1$, DATAPASS3$, DATAPASS4$, DATAPASS2$, Datapass5)
448.  
449.     IF Multi = 2 AND NOT Last$ = "yes" THEN 400
450.    431
451.     ProductInventory.INorOut = ""
452.     CLOSE 5
453. END SUB
454.  
455. SUB Select_Printer (Printer$)
456.     Pos10 = 15
457.     CLS
458.     COLOR 15, 0
459.     SHELL _HIDE "cmd/c wmic printer get name, default> impresora.txt"
460.     DIM impresora(50) AS STRING
461.     OPEN "I", 10, "impresora.txt"
462.     n% = 0
463.     LINE INPUT #10, dato$
464.     DO
465.         LINE INPUT #10, dato$: LINE INPUT #10, dato$
466.         IF EOF(10) THEN EXIT DO
467.         n% = n% + 1
468.         DO
469.             a% = INSTR(dato$, CHR$(0))
470.             IF a% = 0 THEN EXIT DO
471.             IF a% = 1 THEN
472.                 dato$ = MID$(dato$, a% + 1)
473.             ELSEIF a% = LEN(dato$) THEN
474.                 dato$ = LEFT$(dato$, a% - 1)
475.             ELSE
476.                 dato$ = LEFT$(dato$, a% - 1) + MID$(dato$, a% + 1)
477.             END IF
478.         LOOP
479.         a% = INSTR(dato$, "FALSE"): b% = INSTR(dato$, "TRUE")
480.         IF a% <> 0 THEN
481.             MID$(dato$, a%, 5) = SPACE$(5)
482.             dato$ = LTRIM$(RTRIM$(dato$))
483.         END IF
484.         IF b% <> 0 THEN
485.             MID$(dato$, b%, 5) = SPACE$(4)
486.             dato$ = LTRIM$(RTRIM$(dato$))
487.             loca% = n%
488.         END IF
489.         impresora(n%) = dato$
490.         impresora(0) = LTRIM$(STR$(n%))
491.     LOOP
492.     COLOR 7, 0
493.     CLS
494.     COLOR 1, 7
495.     LOCATE 8, Pos10 - 1: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
496.     LOCATE 9, Pos10 - 1: PRINT "º                                        º"
497.     LOCATE 10, Pos10 - 1: PRINT "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
498.     LOCATE 11, Pos10 - 1: PRINT "º                                        º"
499.     LOCATE 12, Pos10 - 1: PRINT "º                                        º"
500.     LOCATE 13, Pos10 - 1: PRINT "º                                        º"
501.     LOCATE 14, Pos10 - 1: PRINT "º                                        º"
502.     LOCATE 15, Pos10 - 1: PRINT "º                                        º"
503.     LOCATE 16, Pos10 - 1: PRINT "ÈÍÍÍÍÍÍÍ<Esc>ÍÍÍÍ<"; CHR$(24); ">Í<"; CHR$(25); ">ÍÍÍÍ<"; CHR$(17); CHR$(217); ">ÍÍÍÍÍÍÍÍͼ"
504.     COLOR 15, 1
505.     LOCATE 9, Pos10: PRINT "            SELECT PRINTER              ";
506.     COLOR 1, 7
507.     max% = VAL(impresora(0))
508.     GOSUB impridatos
509.     DO
510.         x$ = "": WHILE x$ = "": x$ = INKEY$: WEND
511.         x$ = UCASE$(x$)
512.         x% = ASC(RIGHT$(x$, 1))
513.         SELECT CASE x%
514.             CASE IS = 27
515.                 a$ = "@"
516.                 EXIT DO
517.             CASE IS = 13
518.                 a$ = impresora(loca%)
519.                 EXIT DO
520.             CASE IS = 72: '--Subir
521.                 IF loca% > 1 THEN
522.                     loca% = loca% - 1
523.                     GOSUB impridatos
524.                 END IF
525.             CASE IS = 80: '--Bajar
526.                 IF loca% < max% THEN
527.                     loca% = loca% + 1
528.                     GOSUB impridatos
529.                 END IF
530.         END SELECT
531.     LOOP
532.     COLOR 7, 0
533.     CLS
534.     IF a$ <> "@" THEN
535.         OPEN "printer" FOR OUTPUT AS #44
536.         PRINT #44, "cmd/c wmic printer where name='" + a$ + "' call setdefaultprinter"
537.         CLOSE #44
538.         : INPUT a
539.         SHELL _HIDE "cmd/c wmic printer where name='" + a$ + "' call setdefaultprinter"
540.         PRINT "Selected printer: "; a$
541.     ELSE
542.         PRINT "The printer has not been modified"
543.     END IF
544.     GOTO 700
545.     impridatos:
546.     y% = 1
547.     FOR n% = loca% - 2 TO loca% + 2
548.         IF n% < 1 OR n% > max% THEN
549.             COLOR 1, 7: LOCATE y% + 10, Pos10: PRINT "                                        "
550.         ELSE
551.             IF n% = loca% THEN COLOR 15, 4 ELSE COLOR 1, 7
552.             LOCATE y% + 10, Pos10: PRINT "                                        "
553.             LOCATE y% + 10, Pos10: PRINT LEFT$(impresora(n%), 40)
554.         END IF
555.         y% = y% + 1
556.     NEXT
557.     RETURN
558.    700
559.     CLOSE 10
560. END SUB
561.  
562. FUNCTION GetLocalIP$
563.     choice$ = ""
564.     SHELL _HIDE "cmd /c ipconfig > IPconfig.tmp"
565.     A = FREEFILE
566.     OPEN "IPconfig.tmp" FOR INPUT AS #A
567.     DO
568.         LINE INPUT #A, ipline$
569.         IF UCASE$(LEFT$(LTRIM$(ipline$), 4)) = "IPV4" THEN
570.             GetLocalIP$ = MID$(ipline$, INSTR(ipline$, ":") + 2)
571.             IF GetLocalIP$ = "127.0.0.1" THEN GetLocalIP$ = "offline": GOTO 778
572.             IF GetLocalIP$ = "" THEN GetLocalIP$ = "offline": GOTO 778
573.             '         CLOSE #A
574.             '         KILL "IPconfig.tmp" 'kill the messenger?
575.             EXIT DO
576.            778
577.         END IF
578.     LOOP UNTIL EOF(1)
579.     CLOSE #A
580.     KILL "IPconfig.tmp" 'kill the messenger?
581.  
582. END FUNCTION
583.  
584. SUB ping
585.     ' Shell to ping and get results 0 up 1 down
586.     INPUT "Host to ping? ", ip$
587.     IF ip$ = "" GOTO 777
588.     result& = _SHELLHIDE("ping " + ip$ + " -n 1 -w 100")
589.     IF result& = 0 THEN
590.         'success
591.         COLOR 2, 15
592.         PRINT DATE$ + " " + TIME$ + " " + " Ping ("; ip$; ") "; "UP   ";
593.         COLOR 7, 1
594.     ELSE
595.         COLOR 4, 15
596.         PRINT DATE$ + " " + TIME$ + " " + " Ping ("; ip$; ") "; "DN   ";
597.         COLOR 7, 1
598.         REM PRINT #2, DATE$ + " " + TIME$ + " " + "Ping (" + ip$ + ") (" + desc$ + ")" + "   Down": flag = 1: set = 0
599.     END IF
600.     flag = 1: set = 0
601.     INPUT "pause", ip$
602.    777
603. END SUB
604.  
605. SUB Employee (EmployeeScan$, EmployeeName$, EmployeeFile$)
606.  
607.     LinepPos = 5
608.     EF = FREEFILE
609.    651
610.     CLOSE EF
611.     IF _FILEEXISTS(EmployeeFile$) THEN OPEN EmployeeFile$ FOR INPUT AS #EF ELSE GOTO 652
612.     'LOCATE linepos + 11, pos2: INPUT "Number ", EmployeeScan$
613.  
614.     DO WHILE NOT EOF(EF)
615.         INPUT #EF, A$, B$
616.         IF EmployeeScan$ = A$ THEN
617.             EmployeeName$ = B$
618.             ProductInventory.EmployeeScan = EmployeeScan$
619.             ProductInventory.Employeename = EmployeeName$
620.             EXIT DO
621.         END IF
622.     LOOP
623.     IF EmployeeName$ <> "" THEN GOTO 657
624.    652
625.     CLS
626.     CLOSE #EF
627.     OPEN EmployeeFile$ FOR APPEND AS #EF
628.     LOCATE linepos + 10, pos2: PRINT "Employee Maintance"
629.     LOCATE linepos + 11, pos2: PRINT "Number ", EmployeeScan$
630.     LOCATE linepos + 12, pos2: PRINT "Name ", EmployeeName$
631.     LOCATE linepos + 14, pos2: PRINT "Do you need to Edit?"
632.     LOCATE linepos + 15, pos2: PRINT "  (A)dd Restart, (N)umber Scan, (E)mployee Name, then finaly (S)ave, (ESC) all changes"
633.  
634.     DO
635.         akey$ = INKEY$
636.         IF UCASE$(akey$) = "N" THEN GOTO 653
637.         IF UCASE$(akey$) = "E" THEN GOTO 654
638.         IF UCASE$(akey$) = "A" THEN GOTO 655
639.         IF UCASE$(akey$) = "S" THEN GOTO 656
640.  
641.         IF UCASE$(akey$) = CHR$(27) THEN GOTO 657
642.     LOOP WHILE akey$ = ""
643.  
644.     653
645.  
646.     LOCATE linepos + 10, pos2: PRINT "Change Employee Number"
647.     LOCATE linepos + 11, pos2: INPUT "Number ", EmployeeScan$
648.     LOCATE linepos + 12, pos2: PRINT "Name ", EmployeeName$
649.  
650.     GOTO 652
651.  
652.     654
653.  
654.     LOCATE linepos + 10, pos2: PRINT "Change Employee Name"
655.     LOCATE linepos + 11, pos2: PRINT "Number ", EmployeeScan$
656.     LOCATE linepos + 12, pos2: INPUT "Name ", EmployeeName$
657.  
658.     GOTO 652
659.  
660.     655
661.  
662.     LOCATE linepos + 10, pos2: PRINT "Add New Employee"
663.     LOCATE linepos + 11, pos2: INPUT "Number ", EmployeeScan$
664.     LOCATE linepos + 12, pos2: INPUT "Name ", EmployeeName$
665.     GOTO 652
666.  
667.     656
668.     CLOSE #EF: OPEN EmployeeFile$ FOR APPEND AS #EF
669.     WRITE #EF, EmployeeScan$, EmployeeName$
670.     CLOSE #EF
671.    657
672.     CLS
673.     CLOSE #EF
674.  
675. END SUB
676.  
677. SUB ProductInventoryFile (ProductInventoryUPCCode$, ProductInventoryBrand$, ProductInventoryNumber$, ProductInventoryName$, ProductInventoryUPCFile$, linepos, pos1, pos2)
678.     pos1 = 2: linepos = 2: pos2 = 30
679.     PIF = FREEFILE
680.     IF _FILEEXISTS(ProductInventoryUPCFile$) THEN OPEN ProductInventoryUPCFile$ FOR INPUT AS #PIF ELSE GOTO 555
681.     IF ProductInventoryUPCCode$ = CHR$(27) THEN EXIT SUB
682.    553
683.     DO WHILE NOT EOF(PIF)
684.         INPUT #PIF, A$, B$, C$, D$
685.         IF ProductInventoryUPCCode$ = A$ THEN
686.             ProductInventoryBrand$ = B$
687.             ProductInventoryNumber$ = C$
688.             ProductInventoryName$ = D$
689.             CLOSE #PIF
690.             GOTO 554
691.         END IF
692.     LOOP
693.  
694.     555
695.     CLOSE #PIF
696.     OPEN ProductInventoryUPCFile$ FOR APPEND AS #PIF
697.     LOCATE linepos + 5, pos1: PRINT "ProductInventory Brand ": LOCATE linepos + 5, pos2: PRINT ProductInventory.Brand
698.     LOCATE linepos + 6, pos1: PRINT "ProductInventory Name ": LOCATE linepos + 6, pos2: PRINT ProductInventory.UnitName
699.     LOCATE linepos + 7, pos1: PRINT "Part Number ": LOCATE linepos + 7, pos2: PRINT ProductInventory.Number
700.  
701.     LOCATE linepos + 5, pos2: INPUT ProductInventoryBrand$
702.     LOCATE linepos + 6, pos2: INPUT ProductInventoryName$
703.     LOCATE linepos + 7, pos2: INPUT ProductInventoryNumber$
704.     WRITE #PIF, ProductInventoryUPCCode$, ProductInventoryBrand$, ProductInventoryNumber$, ProductInventoryName$
705.     CLOSE #PIF
706.  
707.     554
708.     ProductInventory.UPCCode = ProductInventoryUPCCode$
709.     ProductInventory.Brand = ProductInventoryBrand$
710.     ProductInventory.Number = ProductInventoryNumber$
711.     ProductInventory.UnitName = ProductInventoryName$
712.  
713. END SUB
714.  
715. SUB Barcode (DATAPASS1$, DATAPASS3$, DATAPASS4$, DATAPASS2$, Datapass5)
716.     CLS
717.     DATAPASS1$ = "*" + RTRIM$(DATAPASS1$) + "*"
718.  
719.     PRINT "--------------------------------------------------------------"
720.     PRINT "Serial " + DATAPASS1$ + "                  Use By "; DATAPASS2$
721.     PRINT DATAPASS3$ + "                          Weight " + STR$(Datapass5)
722.     PRINT DATAPASS4$
723.     PRINT "||| ||| || |||||||| |||||| |||||| ||||| | |||||| ||||||| |||||"
724.     PRINT "||| ||| || |||||||| |||||| |||||| ||||| | |||||| ||||||| |||||"
725.     PRINT "||| ||| || |||||||| |||||| |||||| ||||| | |||||| ||||||| |||||"
726.     PRINT "||| ||| || |||||||| |||||| |||||| ||||| | |||||| ||||||| |||||"
727.     PRINT "--------------------------------------------------------------"
728.     INPUT "Pause", a
729.  
730.     'Label designer for the Brother 201 (29mm x 90mm or 1-1/7" x 3-1/2") / Zebra ZDesigner LP 2844 looks compatible.
731.     FFONT$ = "free3of9.ttf": FFSize = 170 '170 for label
732.     EFONT$ = "Arial.ttf": EFSize = 40
733.     AFONT$ = "Arial.ttf": AFSize = 40
734.     PageWidth = 110 * 10 'maximized tweaks for whole label
735.     PageHeight = 29 * 10 'Max is already set do not change.
736.  
737.     Colum = 10
738.  
739.     SCREEN _NEWIMAGE(PageWidth, PageHeight, 13)
740.     _DEST Page&: CLS _RGB(1, 1, 1), _RGB(256, 256, 256): _DEST 0 'make background white to save ink!
741.     COLOR
742.     F& = _LOADFONT(FFONT$, FFSize)
743.     E& = _LOADFONT(EFONT$, EFSize)
744.     A& = _LOADFONT(AFONT$, AFSize)
745.  
746.     _FONT F&
747.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 65), DATAPASS1$ ' Print upc bars on bottom of label
748.  
749.     _FONT A&
750.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 35), DATAPASS3$ ' Print Line 2 ProductInventory description
751.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 68), DATAPASS4$ ' Print Line 3 ProductInventory description
752.  
753.     _FONT A&
754.     keep = LEN(DATAPASS1$): DATAPASS1$ = MID$(DATAPASS1$, 2, keep - 2)
755.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 0), "Serial " + DATAPASS1$ ' Print upc bar information above bar scan font
756.     IF DATAPASS2$ <> "" THEN COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (725, 0), "Use By " + DATAPASS2$ ' Print Product Expiry Date
757.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (725, 35), "Weight " + STR$(Datapass5)
758.     _PRINTIMAGE 0 'print screen page on printer
759.     SCREEN 0
760. END SUB
761.  
762. SUB SerialGen (serial$)
763.     SN = FREEFILE
764.     Exists = _FILEEXISTS("SerialFile.txt")
765.     IF Exists = 0 THEN
766.         OPEN "Serial File.txt" FOR OUTPUT AS #SN
767.         serial$ = "000000000"
768.         PRINT #SN, serial$
769.         CLOSE #SN
770.     END IF
771.     OPEN "SerialFile.txt" FOR INPUT AS #SN
772.     INPUT #SN, serial$: CLOSE #SN
773.     SSerial$ = LEFT$(serial$, 1)
774.     ISerial = VAL(serial$)
775.     ISerial = ISerial + 1:
776.     ISerial$ = LTRIM$(STR$(ISerial))
777.     DO UNTIL LEN(ISerial$) = 9
778.         ISerial$ = "0" + ISerial$
779.     LOOP
780.     OPEN "SerialFile.txt" FOR OUTPUT AS #SN
781.     serial$ = SSerial$ + ISerial$
782.     PRINT #SN, serial$
783.     CLOSE #SN
784. END SUB
785.  
786.  
787. FUNCTION Printerdisplay$
788.     Pos10 = 15
789.     CLS
790.     COLOR 15, 0
791.     SHELL _HIDE "cmd/c wmic printer get name, default> impresora.txt"
792.     DIM impresora(50) AS STRING
793.     OPEN "I", 10, "impresora.txt"
794.     n% = 0
795.     LINE INPUT #10, dato$
796.     DO
797.  
798.         LINE INPUT #10, dato$: LINE INPUT #10, dato$
799.         IF EOF(10) THEN EXIT DO
800.         n% = n% + 1
801.         DO
802.             a% = INSTR(dato$, CHR$(0))
803.             IF a% = 0 THEN EXIT DO
804.             IF a% = 1 THEN
805.                 dato$ = MID$(dato$, a% + 1)
806.             ELSEIF a% = LEN(dato$) THEN
807.                 dato$ = LEFT$(dato$, a% - 1)
808.             ELSE
809.                 dato$ = LEFT$(dato$, a% - 1) + MID$(dato$, a% + 1)
810.             END IF
811.         LOOP
812.         a% = INSTR(dato$, "FALSE"): b% = INSTR(dato$, "TRUE")
813.         IF a% <> 0 THEN
814.             MID$(dato$, a%, 5) = SPACE$(5)
815.             dato$ = LTRIM$(RTRIM$(dato$))
816.  
817.         END IF
818.         IF b% <> 0 THEN
819.             MID$(dato$, b%, 5) = SPACE$(4)
820.             dato$ = LTRIM$(RTRIM$(dato$))
821.             Printerdisplay$ = dato$
822.             loca% = n%
823.         END IF
824.  
825.         impresora(n%) = dato$
826.         impresora(0) = LTRIM$(STR$(n%))
827.     LOOP
828.     CLOSE 10
829. END FUNCTION
830.  
831. SUB CodeCreator (Printer1$, Printer2$, Printer3$)
832.     CLS
833.     'SHELL _HIDE "cmd/c wmic printer where name='" + Printer2$ + "' call setdefaultprinter"
834.     FFONT$ = "free3of9.ttf": FFSize = 120
835.     EFONT$ = "Arial.ttf": EFSize = 60
836.     AFONT$ = "Arial.ttf": AFSize = 60
837.     PageWidth = 216 * 10
838.     PageHeight = 279 * 10
839.  
840.     Colum = 10
841.     LOCATE 7, 1
842.     PRINT "Please Enter information for the label."
843.     INPUT "Barcode Information to print ", DATAPASS1$: DATAPASS1$ = "*" + RTRIM$(UCASE$(DATAPASS1$)) + "*"
844.     PRINT "Please select Output printer"
845.     PRINT "1 " + Printer1$
846.     PRINT "2 " + Printer2$
847.     PRINT "3 " + Printer3$
848.     INPUT "Which Printer to send to?", a
849.     IF a = 1 THEN
850.         Printer$ = Printer1$
851.         'Label designed for the Brother 201 (29mm x 90mm or 1-1/7" x 3-1/2") / Zebra ZDesigner LP 2844 looks compatible.
852.         FFONT$ = "free3of9.ttf": FFSize = 170 '170 for label
853.         EFONT$ = "Arial.ttf": EFSize = 40
854.         AFONT$ = "Arial.ttf": AFSize = 40
855.         PageWidth = 110 * 10 'maximized tweaks for whole label
856.         PageHeight = 29 * 10 'Max is already set do not change.
857.  
858.     END IF
859.  
860.     IF a = 2 THEN
861.         Printer$ = Printer2$
862.         'Label designed plain paper (or 8-1/2" x 11").
863.         FFONT$ = "free3of9.ttf": FFSize = 120
864.         EFONT$ = "Arial.ttf": EFSize = 60
865.         AFONT$ = "Arial.ttf": AFSize = 60
866.         PageWidth = 216 * 10
867.         PageHeight = 279 * 10
868.  
869.     END IF
870.  
871.     IF a = 3 THEN
872.         Printer$ = Printer3$
873.         'Label designed plain paper (or 8-1/2" x 11").
874.         FFONT$ = "free3of9.ttf": FFSize = 120
875.         EFONT$ = "Arial.ttf": EFSize = 60
876.         AFONT$ = "Arial.ttf": AFSize = 60
877.         PageWidth = 216 * 10
878.         PageHeight = 279 * 10
879.  
880.     END IF
881.  
882.     SHELL _HIDE "cmd/c wmic printer where name='" + Printer$ + "' call setdefaultprinter"
883.     SCREEN _NEWIMAGE(PageWidth, PageHeight, 13)
884.     _DEST Page&: CLS _RGB(1, 1, 1), _RGB(256, 256, 256): _DEST 0 'make background white to save ink!
885.     COLOR
886.     F& = _LOADFONT(FFONT$, FFSize)
887.     E& = _LOADFONT(EFONT$, EFSize)
888.     A& = _LOADFONT(AFONT$, AFSize)
889.  
890.     _FONT F&
891.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 45), DATAPASS1$ ' Print upc bars on bottom of label
892.  
893.     _FONT A&
894.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 35), DATAPASS3$ ' Print Line 2 ProductInventory description
895.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 68), DATAPASS4$ ' Print Line 3 ProductInventory description
896.  
897.     _FONT A&
898.     keep = LEN(DATAPASS1$): DATAPASS1$ = MID$(DATAPASS1$, 2, keep - 2)
899.     COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 0), DATAPASS1$ ' Print upc bar information above bar scan font
900.     IF DATAPASS2$ <> "" THEN COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (725, 0), "Use By " + DATAPASS2$ ' Print Product Expiry Date
901.     INPUT "", a
902.     _PRINTIMAGE 0 'print screen page on printer
903.     SCREEN 0
904.  
905. END SUB