#include "sbasic_include.sbas"
//Indicator for BARCODE TAG
Var vHost as String
var vMode as Int = 0
Var vCount as Int
Var vCopy as String
Var vBarcode as String
Var vInvDate as String
Var vShipDate as String
Var vLineX as Int
Var vLineXMax as Int
Var vFNLN as String
Var vFNLN2 as String
Var vITEMCODE as String
Var vBRAND as String
Var vMODEL as String
Var vDESCRIPTION as String
Var vIC1 as String
Var vIC2 as String
Var vIC3 as String
Var vIC4 as String
Var vIC5 as String
Var vIC6 as String
Var vIC7 as String
Var vIC8 as String
Var vIC9 as String
Var vIC10 as String
Var vIC11 as String
Var vIC12 as String
Var vIC13 as String
Var vIC14 as String
Var vIC15 as String
Var vIC16 as String
Var vIC17 as String
Var vIC18 as String
Var vIC19 as String
Var vIC20 as String
Var vIC21 as String
Var vIC22 as String
Var vIC23 as String
Var vIC24 as String
Var vIC25 as String
Var vIC26 as String
Var vIC27 as String
Var ITEMCODE as String
Var vNL as Int
Var QTY as Int
vHost = @HostName()

vITEMCODE = @XLU("DATA\INVENT.DB", ITEMCODE,"INVENT!ITEMCODE","ITEMCODE")
vBRAND = @XLU("DATA\INVENT.DB", ITEMCODE,"INVENT!ITEMCODE","BRAND")
vMODEL = @XLU("DATA\INVENT.DB", ITEMCODE,"INVENT!ITEMCODE","MODEL")
vDESCRIPTION = @XLU("DATA\INVENT.DB", ITEMCODE,"INVENT!ITEMCODE","DESCRIPTION")

vLineXMax = 795
vLineX = 50
PopupSelectPosition(3, 325, 550) 
vIC1=@PromptForUserInput("Enter Code 1.","")
vIC2=@PromptForUserInput("Enter Code 2. TYPE D FOR DUPLIICATE","")
IF vIC2 = "D" Then vIC2=vIC1
IF vIC2 > "" Then vIC3=@PromptForUserInput("Enter Code 3. TYPE D FOR DUPLIICATE","")
IF vIC3 = "D" Then vIC3=vIC2
IF vIC3 > "" Then vIC4=@PromptForUserInput("Enter Code 4. TYPE D FOR DUPLIICATE","")
IF vIC4 = "D" Then vIC4=vIC3
IF vIC4 > "" Then vIC5=@PromptForUserInput("Enter Code 5. TYPE D FOR DUPLIICATE","")
IF vIC5 = "D" Then vIC5=vIC4
IF vIC5 > "" Then vIC6=@PromptForUserInput("Enter Code 6. TYPE D FOR DUPLIICATE","")
IF vIC6 = "D" Then vIC6=vIC5
IF vIC6 > "" Then vIC7=@PromptForUserInput("Enter Code 7. TYPE D FOR DUPLIICATE","")
IF vIC7 = "D" Then vIC7=vIC6
IF vIC7 > "" Then vIC8=@PromptForUserInput("Enter Code 8. TYPE D FOR DUPLIICATE","")
IF vIC8 = "D" Then vIC8=vIC7
IF vIC8 > "" Then vIC9=@PromptForUserInput("Enter Code 9. TYPE D FOR DUPLIICATE","")
IF vIC9 = "D" Then vIC9=vIC8
IF vIC9 > "" Then vIC10=@PromptForUserInput("Enter Code 10. TYPE D FOR DUPLIICATE","")
IF vIC10 = "D" Then vIC10=vIC9
IF vIC10 > "" Then vIC11=@PromptForUserInput("Enter Code 11. TYPE D FOR DUPLIICATE","")
IF vIC11 = "D" Then vIC11=vIC10
IF vIC11> "" Then vIC12=@PromptForUserInput("Enter Code 12. TYPE D FOR DUPLIICATE","")
IF vIC12 = "D" Then vIC12=vIC11
IF vIC12 > "" Then vIC13=@PromptForUserInput("Enter Code 13. TYPE D FOR DUPLIICATE","")
IF vIC13 = "D" Then vIC13=vIC12
IF vIC13 > "" Then vIC14=@PromptForUserInput("Enter Code 14. TYPE D FOR DUPLIICATE","")
IF vIC14 = "D" Then vIC14=vIC13
IF vIC14> "" Then vIC15=@PromptForUserInput("Enter Code 15. TYPE D FOR DUPLIICATE","")
IF vIC15 = "D" Then vIC15=vIC14
IF vIC15 > "" Then vIC16=@PromptForUserInput("Enter Code 16. TYPE D FOR DUPLIICATE","")
IF vIC16 = "D" Then vIC16=vIC15
IF vIC16 > "" Then vIC17=@PromptForUserInput("Enter Code 17. TYPE D FOR DUPLIICATE","")
IF vIC17 = "D" Then vIC17=vIC16
IF vIC17 > "" Then vIC18=@PromptForUserInput("Enter Code 18. TYPE D FOR DUPLIICATE","")
IF vIC18 = "D" Then vIC18=vIC17
IF vIC18 > "" Then vIC19=@PromptForUserInput("Enter Code 19. TYPE D FOR DUPLIICATE","")
IF vIC19 = "D" Then vIC19=vIC18
IF vIC19 > "" Then vIC20=@PromptForUserInput("Enter Code 20. TYPE D FOR DUPLIICATE","")
IF vIC20 = "D" Then vIC20=vIC19
IF vIC20 > "" Then vIC21=@PromptForUserInput("Enter Code 21. TYPE D FOR DUPLIICATE","")
IF vIC21 = "D" Then vIC21=vIC20
IF vIC21> "" Then vIC22=@PromptForUserInput("Enter Code 22. TYPE D FOR DUPLIICATE","")
IF vIC22 = "D" Then vIC22=vIC21
IF vIC22 > "" Then vIC23=@PromptForUserInput("Enter Code 23. TYPE D FOR DUPLIICATE","")
IF vIC23 = "D" Then vIC23=vIC22
IF vIC23 > "" Then vIC24=@PromptForUserInput("Enter Code 24. TYPE D FOR DUPLIICATE","")
IF vIC24 = "D" Then vIC24=vIC23
IF vIC25> "" Then vIC25=@PromptForUserInput("Enter Code 25. TYPE D FOR DUPLIICATE","")
IF vIC25 = "D" Then vIC25=vIC24
IF vIC26 > "" Then vIC26=@PromptForUserInput("Enter Code 26. TYPE D FOR DUPLIICATE","")
IF vIC26 = "D" Then vIC26=vIC25
IF vIC27 > "" Then vIC27=@PromptForUserInput("Enter Code 27. TYPE D FOR DUPLIICATE","")
IF vIC27 = "D" Then vIC27=vIC26
IF vHOST = "CAVELPC" THEN AlternateDefaultPrinter("Microsoft Print to PDF") ELSE AlternateDefaultPrinter("Microsoft Print to PDF")
vCopy = "T:\BARCODES\QKCODE"  
SetCopyBuffer(vCopy)
NewPage(850, 250)

vITEMCODE = @XLU("DATA\INVENT.DB", vIC1,"INVENT!ITEMCODE","ITEMCODE")
vBRAND = @XLU("DATA\INVENT.DB", vIC1,"INVENT!ITEMCODE","BRAND")
vMODEL = @XLU("DATA\INVENT.DB", vIC1,"INVENT!ITEMCODE","MODEL")
vDESCRIPTION = @XLU("DATA\INVENT.DB", vIC1,"INVENT!ITEMCODE","DESCRIPTION")

// LINE 1
		vITEMCODE = @XLU("DATA\INVENT.DB", vIC1,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,15,25,240,90)
		PrintString(vITEMCODE, 70, 25, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 30, 55, 0, "3 of 9 Barcode", 50, 0)


If vIC2 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC2,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,265,25,240,90)
		PrintString(vITEMCODE, 320, 25, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 280, 55,0,"3 of 9 Barcode", 50, 0)}

If  vIC3 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC3,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,525,25,240,90)
		PrintString(vITEMCODE, 580, 25, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 540, 55, 0, "3 of 9 Barcode", 50, 0)}


// LINE 2

vNL = vNL + 120

If  vIC4 > "" THEN

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC4,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,15,25 + vNL,240,90)
		PrintString(vITEMCODE, 70, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 30, 55 + vNL, 0, "3 of 9 Barcode", 50, 0)}


If vIC5 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC5,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,265,25 + vNL,240,90)
		PrintString(vITEMCODE, 320, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 280, 55 + vNL,0,"3 of 9 Barcode", 50, 0)}

If  vIC6 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC6,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,525,25 + vNL,240,90)
		PrintString(vITEMCODE, 580, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 540, 55 + vNL, 0, "3 of 9 Barcode", 50, 0)}


// LINE 3

vNL = vNL + 120

If  vIC7 > "" THEN

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC7,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,15,25 + vNL,240,90)
		PrintString(vITEMCODE, 70, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 30, 55 + vNL, 0, "3 of 9 Barcode", 50, 0)}


If vIC8 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC8,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,265,25 + vNL,240,90)
		PrintString(vITEMCODE, 320, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 280, 55 + vNL,0,"3 of 9 Barcode", 50, 0)}

If  vIC9 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC9,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,525,25 + vNL,240,90)
		PrintString(vITEMCODE, 580, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 540, 55 + vNL, 0, "3 of 9 Barcode", 50, 0)}

// LINE 4

vNL = vNL + 120

If  vIC10 > "" THEN

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC10,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,15,25 + vNL,240,90)
		PrintString(vITEMCODE, 70, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 30, 55 + vNL, 0, "3 of 9 Barcode", 50, 0)}


If vIC11 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC11,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,265,25 + vNL,240,90)
		PrintString(vITEMCODE, 320, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 280, 55 + vNL,0,"3 of 9 Barcode", 50, 0)}

If  vIC12 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC12,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,525,25 + vNL,240,90)
		PrintString(vITEMCODE, 580, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 540, 55 + vNL, 0, "3 of 9 Barcode", 50, 0)}


// LINE 5

vNL = vNL + 120

If  vIC13 > "" THEN

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC13,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,15,25 + vNL,240,90)
		PrintString(vITEMCODE, 70, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 30, 55 + vNL, 0, "3 of 9 Barcode", 50, 0)}


If vIC14 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC14,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,265,25 + vNL,240,90)
		PrintString(vITEMCODE, 320, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 280, 55 + vNL,0,"3 of 9 Barcode", 50, 0)}

If  vIC15 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC15,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,525,25 + vNL,240,90)
		PrintString(vITEMCODE, 580, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 540, 55 + vNL, 0, "3 of 9 Barcode", 50, 0)}


// LINE 6

vNL = vNL + 120

If  vIC16 > "" THEN

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC16,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,15,25 + vNL,240,90)
		PrintString(vITEMCODE, 70, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 30, 55 + vNL, 0, "3 of 9 Barcode", 50, 0)}


If vIC17 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC17,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,265,25 + vNL,240,90)
		PrintString(vITEMCODE, 320, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 280, 55 + vNL,0,"3 of 9 Barcode", 50, 0)}

If  vIC18 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC18,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,525,25 + vNL,240,90)
		PrintString(vITEMCODE, 580, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 540, 55 + vNL, 0, "3 of 9 Barcode", 50, 0)}


// LINE 7

vNL = vNL + 120

If  vIC19 > "" THEN

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC19,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,15,25 + vNL,240,90)
		PrintString(vITEMCODE, 70, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 30, 55 + vNL, 0, "3 of 9 Barcode", 50, 0)}


If vIC20 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC20,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,265,25 + vNL,240,90)
		PrintString(vITEMCODE, 320, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 280, 55 + vNL,0,"3 of 9 Barcode", 50, 0)}

If  vIC21 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC21,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,525,25 + vNL,240,90)
		PrintString(vITEMCODE, 580, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 540, 55 + vNL, 0, "3 of 9 Barcode", 50, 0)}
// LINE 8

vNL = vNL + 120

If  vIC22 > "" THEN

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC22,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,15,25 + vNL,240,90)
		PrintString(vITEMCODE, 70, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 30, 55 + vNL, 0, "3 of 9 Barcode", 50, 0)}


If vIC23 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC23,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,265,25 + vNL,240,90)
		PrintString(vITEMCODE, 320, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 280, 55 + vNL,0,"3 of 9 Barcode", 50, 0)}

If  vIC24 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC24,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,525,25 + vNL,240,90)
		PrintString(vITEMCODE, 580, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 540, 55 + vNL, 0, "3 of 9 Barcode", 50, 0)}

// LINE 9

vNL = vNL + 120

If  vIC25 > "" THEN

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC25,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,15,25 + vNL,240,90)
		PrintString(vITEMCODE, 70, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 30, 55 + vNL, 0, "3 of 9 Barcode", 50, 0)}


If vIC26 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC26,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,265,25 + vNL,240,90)
		PrintString(vITEMCODE, 320, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 280, 55 + vNL,0,"3 of 9 Barcode", 50, 0)}

If  vIC27 > "" THEN 

		{vITEMCODE = @XLU("DATA\INVENT.DB", vIC27,"INVENT!ITEMCODE","ITEMCODE")
		Printbox(12 ,525,25 + vNL,240,90)
		PrintString(vITEMCODE, 580, 25 + vNL, 0, "BArial", 22, 0)
		vBarcode = "*"+ vITEMCODE + "*"
		PrintString(vBarcode, 540, 55 + vNL, 0, "3 of 9 Barcode", 50, 0)}

	FinishPage()
RestoreDefaultPrinter()