Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Chris80194

Pages: [1] 2 3
1
QB64 Discussion / Re: Read Multiple IP using Function but getting subscript error...
« on: October 17, 2021, 09:40:24 pm »
So I made the changes and a few tweaks

Code: QB64: [Select]
  1. '$DYNAMIC
  2. ReDim IPs$(0) ' <<<<
  3. ReDim Found$(0)
  4. Print GetLocalIP$(IPs$()); ""
  5. For i = 1 To UBound(IPs$) 'OK it does look like it starts at item #1
  6.        Stack$ = Stack$ + " " + IPs$(i)
  8. Print Stack$
  9.  
  10.  
  11. Function GetLocalIP$ (Found$())
  12.  
  13.     'Shell _Hide "cmd /c ipconfig > IPconfig.tmp" ' << still need this commented for current conditions
  14.     Open "IPconfig.tmp" For Input As #3
  15.     Do
  16.         If Not EOF(3) Then Line Input #3, ipline$ Else GoTo 888
  17.         If Left$(LTrim$(ipline$), 2) = "IP" Then
  18.             'Close #3
  19.             GetLocalIP$ = Mid$(ipline$, InStr(ipline$, ":") + 1)
  20.             If Left$(ipline$, 3) = "169" Then ipline$ = "Invalid IP" + ipline$
  21.             IPP = 1 + IPP
  22.             ReDim _Preserve Found$(IPP)
  23.             Found$(IPP) = Mid$(ipline$, InStr(ipline$, ":") + 1)
  24.             'Exit Do
  25.         End If
  26.     Loop Until EOF(3)
  27.    888
  28.     Close #3
  29.     'Kill "IPconfig.tmp" 'kill the messenger? still need this for not cluttering folder
  31.  
When it is run I get the print out of the

Print GetLocalIP$(IPs$()); ""

But I get the great idea that I would have eventually tried to figure out, I probably would have made a file and then loaded it again in the main program, this is a much better way.

For i = 1 To UBound(IPs$) 'OK it does look like it starts at item #1
    Print i, IPs$(i)
Next

So now I am trying to figure out how to "CALL" the function with out printing the extra line.

This is a part of another program and the invalid IP is part of the devices that we may need to factory reset, its IP sets to a 169 by default, so the idea is to set the Stack to each IP we use.

I am thinking of pulling the network card from the file to create the batch file also...
Thanks for the kick in the right direction bplus

Edit:
Quick read only print function works...

2
QB64 Discussion / Re: Read Multiple IP using Function but getting subscript error...
« on: October 17, 2021, 08:45:03 pm »
Aww Let me try these things, then.
I will post results.

3
QB64 Discussion / Re: Read Multiple IP using Function but getting subscript error...
« on: October 17, 2021, 02:35:38 am »
'$DYNAMIC
Still have one error to look at.
Spoke to soon still have the out or subscription error...

4
QB64 Discussion / Re: Read Multiple IP using Function but getting subscript error...
« on: October 17, 2021, 02:32:28 am »
I forgot that command...
But I get a error line one which is that line...

5
QB64 Discussion / Read Multiple IP using Function but getting subscript error...
« on: October 17, 2021, 01:58:18 am »
So I am working n a TCPIP tool to make identifying issues faster and this program works but has errors on lines 15 and 16 so I am trying to figure out how to fix that.
Code: QB64: [Select]
  1. Print GetLocalIP$
  2.  
  3. Function GetLocalIP$
  4.  
  5.     'Shell _Hide "cmd /c ipconfig > IPconfig.tmp"
  6.     Open "IPconfig.tmp" For Input As #3
  7.     Do
  8.         If Not EOF(3) Then Line Input #3, ipline$ Else GoTo 888
  9.         If Left$(LTrim$(ipline$), 2) = "IP" Then
  10.             'Close #3
  11.             GetLocalIP$ = Mid$(ipline$, InStr(ipline$, ":") + 1)
  12.             If Left$(ipline$, 3) = "169" Then ipline$ = "Invalid IP" + ipline$
  13.             Print Mid$(ipline$, InStr(ipline$, ":") + 1): IPP = 1 + IPP
  14.             Found$(IPP) = Mid$(ipline$, InStr(ipline$, ":") + 1)
  15.             Print Found$(IPP)
  16.             'Exit Do
  17.         End If
  18.     Loop Until EOF(3)
  19.    888
  20.     Close #3
  21.     'Kill "IPconfig.tmp" 'kill the messenger?
  23.  

The file that is loaded and searched is this IPconfig.tmp

Quote
Windows IP Configuration


Unknown adapter VPN - VPN Client:

   Media State . . . . . . . . . . . : Media disconnected
   Connection-specific DNS Suffix  . :

Ethernet adapter TAP-Windows Adapter V9:

   Media State . . . . . . . . . . . : Media disconnected
   Connection-specific DNS Suffix  . :

Wireless LAN adapter Wi-Fi:

   Media State . . . . . . . . . . . : Media disconnected
   Connection-specific DNS Suffix  . : autumn.com

Wireless LAN adapter Local Area Connection* 3:

   Media State . . . . . . . . . . . : Media disconnected
   Connection-specific DNS Suffix  . :

Wireless LAN adapter Local Area Connection* 4:

   Media State . . . . . . . . . . . : Media disconnected
   Connection-specific DNS Suffix  . :

Ethernet adapter Ethernet 2 Dock:

   Connection-specific DNS Suffix  . : owentechnologysolutions.com
   Link-local IPv6 Address . . . . . : fe80::b509:444b:7e06:265a%24
   IPv4 Address. . . . . . . . . . . : 10.1.1.105
   Subnet Mask . . . . . . . . . . . : 255.0.0.0
   IPv4 Address. . . . . . . . . . . : 10.11.1.105
   Subnet Mask . . . . . . . . . . . : 255.255.255.0
   IPv4 Address. . . . . . . . . . . : 192.168.0.105
   Subnet Mask . . . . . . . . . . . : 255.255.255.0
   IPv4 Address. . . . . . . . . . . : 192.168.51.105
   Subnet Mask . . . . . . . . . . . : 255.255.255.0
   IPv4 Address. . . . . . . . . . . : 169.254.198.161
   Subnet Mask . . . . . . . . . . . : 255.255.0.0
   Default Gateway . . . . . . . . . :

Ethernet adapter Ethernet:

   Media State . . . . . . . . . . . : Media disconnected
   Connection-specific DNS Suffix  . :

Ethernet adapter Bluetooth Network Connection 2:

   Media State . . . . . . . . . . . : Media disconnected
   Connection-specific DNS Suffix  . :

So it runs and finds each IP but gives a subscript error for each instance...

6
Programs / Re: QB64 Spell Checker
« on: August 08, 2019, 11:17:51 pm »
Just 20K words???  I think I would never have gotten past 200.
A nice example though.  Who would have thought a "BASIC" program could do that.
I think some of these examples are really breathing life into the language.
Thanks for the help, ideas, and tutoring.

7
Programs / Re: Scrollable output in QB64
« on: August 08, 2019, 11:13:13 pm »
OldMoses  Ok I hate you.... Now I have another idea to try in my program ughhhhh and if I only DID NOT KNOW how to do that I would not have even worried about but NOW I have to make it work.  LOL

SMcNeill That works great in the test window the data looks a bit corrupted which could be the issue I am having with some searching...
Of course I have also made changes and did not clear that main data file too but that is what I was looking for.
Thanks.

8
Programs / Re: Scrollable output in QB64
« on: August 08, 2019, 11:03:30 pm »
Thank you ill bang it into the compiler.

I have this bad habit of falling asleep from time to time, I just can not seem to get over it. 
Not sure if there is a support group that can help with it either.

9
Programs / Re: Inventory with barcode print out
« on: August 03, 2019, 08:23:33 pm »
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
  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
  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.  
  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
  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"
  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"
  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"
  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"
  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"
  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$ = ""
  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
  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
  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
  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.  
  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
  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.  
  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.  
  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
  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
  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
  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.  

10
Programs / Re: Code to print out a barcode on a label printer works well
« on: July 31, 2019, 09:35:10 pm »
Yeah pretty much what I did.
I was able to get the laser sheets right but had to buy a label printer to format it right.

The laser printer was just not formating it right.

so 40 bucks later a week wait and a trip to office depot for an extra 400 labels....

Got it all working  Then someone gave me a Zebra label printer,  it works too.

But yeah had to print adjust and print again.  That is where the mash came from.

I like how Petr's output looks but it is not working with my printers. (frown face)

really in my program, once the data is scanned in the last thing it does is make a serialized label for that box to be used for control purposes of a "perishable" product.
Also to check in and out that product you "scan" that serial number.

11
Programs / Re: Code to print out a barcode on a label printer works well
« on: July 30, 2019, 02:53:11 am »
Petr
So I tried the printout and the barcode won't scan????  Most likely spacing.
I like the output this makes using any other font, some tweaking.
Would be good for making return labels and send to labels.

The Barcode has to be JUSssttttttttt--------rrrriiiiigghhHHTTTTT.
30 some wasted labels until I got one to read on the scanner.

Bplus that is what happened on the above code I supplied to start out with.
Trial by error until the label worked right.  Messy but functional, pretty much how I do most things.
LOL
Thanks,

12
Programs / Re: Code to print out a barcode on a label printer works well
« on: July 30, 2019, 02:27:08 am »
Petr
Nice output.
It was what I was going for.
I have a whole program that I have wacked keys on it does a decent job of input so now I have to work on retrieval.
the employee edit part sucks but that is a low priority to the other aspects that I am working towards.
Got rid of the append to file for random access hopefully much faster.
Sure there is code to remove edit and tweak.  Have a peek and a good laugh it's at.

https://www.qb64.org/forum/index.php?topic=1545.0

I am mashing things back and forth, then the next part will be retrieval and editing of the parts section...

13
Programs / Re: Code to print out a barcode on a label printer works well
« on: July 30, 2019, 01:58:39 am »
Petr I wacked this together for a complete printing program for labels with a 3 of 9 barcode the 128 does not seem to work and since it is not really needed I did not want to waste more labels adjusting the font size so it would also scan.

I cut this out to make it available to others that might want to print labels.
I have it set for my mom to print return labels and labels to the girls on the WPGA that she heads up.

Ill have a look at your code.  Thanks for edits, it is probably cleaner then mine.  I added and removed things until it did what I needed in my full code program.

Bplus yeah I was stopping the run to show what the label would look like before it prints out on the printer.
A pause in the actual label was causing a ? to appear in the screen that would then print on the actual label.
I put this on here so that others could use it, adjust it, clean it up some, and in general a decent place to start from.

My code is more like a monkey in a cage throwing feces.  throw things around and see what sticks.

14
Programs / Re: Inventory with barcode print out
« on: July 29, 2019, 03:51:38 am »
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
  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
  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.  
  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.  
  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$ = ""
  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
  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
  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.  
  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
  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.  
  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.  
  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
  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
  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
  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.  

15
Programs / Re: Inventory with barcode print out
« on: July 29, 2019, 03:48:36 am »
ok

Pages: [1] 2 3