Dim N As ItemType
N.But = ""
N.OrderNum = Main.General1.OrderNum
N.Gid = Main.General1.Client_GID
N.LineAA = Main.General1.LineAA
N.Code = ItemTable_All_Items.GetValue(0,row)
N.Description = ItemTable_All_Items.GetValue(1,row)
N.Munit = ItemTable_All_Items.GetValue(2,row)
N.Price = ItemTable_All_Items.GetValue(3,row)
N.Quantity = ItemTable_All_Items.GetValue(4,row)
N.Perc1 = Main.General1.Percent1
N.Perc2 = Main.General1.Percent2
N.AxiaProEkptosis = Total1
N.KathariAxia = KathariAxia
N.PosostoFPA = Main.General1.VatPercent
N.AxiaFPA = AxiaFPA
N.Comment = ""
ItemList.Add(N)