private string doString(ref string lString, ref ADODB.Recordset rs) { string functionReturnValue = null; string lString1 = null; string lString2 = null; string lText = null; if (Strings.Len(lString) > 15) { lText = Strings.Mid(lString, 16); if (Strings.InStr(lText, "NAME 1 CENTER")) { lString1 = rs.Fields("PersonName").Value; splitString(ref Strings.Len(lText), ref lString1, ref lString2); functionReturnValue = Strings.Left(lString, 15) + doCenter(ref lText, ref lString1); return functionReturnValue; } if (Strings.InStr(lText, "DATE")) { lString1 = Strings.Format(DateAndTime.Now, "yymm"); functionReturnValue = Strings.Left(lString, 15) + Strings.Format(DateAndTime.Now, "yymm"); return functionReturnValue; } if (Strings.InStr(lText, "BARCODE")) { if (doCheckSum(ref rs.Fields("Person_QuickAccess").Value)) { } else { functionReturnValue = Strings.Left(lString, 15) + rs.Fields("Person_QuickAccess").Value; } return functionReturnValue; } if (Strings.InStr(lText, "600106007141")) { if (doCheckSum(ref rs.Fields("Person_QuickAccess").Value)) functionReturnValue = Strings.Left(lString, 15) + rs.Fields("Person_QuickAccess").Value; return functionReturnValue; } functionReturnValue = lString; } else { functionReturnValue = lString; } return functionReturnValue; }
private void adoPrimaryRS_FieldChangeComplete(int cFields, object Fields, ADODB.Error pError, ref ADODB.EventStatusEnum adStatus, ADODB.Recordset pRecordset) { string sql = null; sql = "DELETE From PriceChannelLnk WHERE (((PriceChannelLnk.PriceChannelLnk_StockItemID)=" + adoPrimaryRS.Fields("CatalogueChannelLnk_StockItemID").Value + ") AND ((PriceChannelLnk.PriceChannelLnk_Quantity)=" + adoPrimaryRS.Fields("CatalogueChannelLnk_Quantity").Value + ") AND ((PriceChannelLnk.PriceChannelLnk_ChannelID)=" + adoPrimaryRS.Fields("CatalogueChannelLnk_ChannelID").Value + "));"; modRecordSet.cnnDB.Execute(sql); sql = "INSERT INTO PriceChannelLnk ( PriceChannelLnk_StockItemID, PriceChannelLnk_Quantity, PriceChannelLnk_ChannelID, PriceChannelLnk_Price ) SELECT CatalogueChannelLnk.CatalogueChannelLnk_StockItemID, CatalogueChannelLnk.CatalogueChannelLnk_Quantity, CatalogueChannelLnk.CatalogueChannelLnk_ChannelID, " + pRecordset.Fields("CatalogueChannelLnk_Price").Value + " AS Price From CatalogueChannelLnk WHERE (((CatalogueChannelLnk.CatalogueChannelLnk_StockItemID)=" + pRecordset.Fields("CatalogueChannelLnk_StockItemID").Value + ") AND ((CatalogueChannelLnk.CatalogueChannelLnk_Quantity)=" + pRecordset.Fields("CatalogueChannelLnk_Quantity").Value + ") AND ((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID)=" + pRecordset.Fields("CatalogueChannelLnk_ChannelID").Value + ") AND ((CatalogueChannelLnk.CatalogueChannelLnk_PriceSystem)<>" + pRecordset.Fields("CatalogueChannelLnk_Price").Value + "));"; modRecordSet.cnnDB.Execute(sql); }
private string doString(ref string lString, ref ADODB.Recordset rs) { string functionReturnValue = null; short x = 0; string lString1 = null; string lString2 = null; string lText = null; ADODB.Recordset rsP = default(ADODB.Recordset); ADODB.Recordset rsShrink = default(ADODB.Recordset); if (Strings.Len(lString) > 15) { lText = Strings.Mid(lString, 16); if (Strings.InStr(lText, "COMPANY NAME CENTER")) { functionReturnValue = Strings.Left(lString, 15) + doCenter(ref lText, ref rs.Fields("Company_Name").Value); return functionReturnValue; } if (Strings.InStr(lText, "COMPANY NAME LEFT")) { functionReturnValue = Strings.Left(lString, 15) + Strings.Left(rs.Fields("Company_Name").Value, Strings.Len(lText)); return functionReturnValue; } if (Strings.InStr(lText, "COMPANY NAME RIGHT")) { functionReturnValue = Strings.Left(lString, 15) + Strings.Right(new string(" ", Strings.Len(lText)) + rs.Fields("Company_Name").Value, Strings.Len(lText)); return functionReturnValue; } if (Strings.InStr(lText, "TELEPHONE CENTER")) { functionReturnValue = Strings.Left(lString, 15) + doCenter(ref lText, ref rs.Fields("Company_Telephone").Value); return functionReturnValue; } if (Strings.InStr(lText, "TELEPHONE LEFT")) { functionReturnValue = Strings.Left(lString, 15) + Strings.Left(rs.Fields("Company_Telephone").Value, Strings.Len(lText)); return functionReturnValue; } if (Strings.InStr(lText, "TELEPHONE RIGHT")) { functionReturnValue = Strings.Left(lString, 15) + Strings.Right(new string(" ", Strings.Len(lText)) + rs.Fields("Company_Telephone").Value, Strings.Len(lText)); return functionReturnValue; } if (Strings.InStr(lText, "PRICEXXXXX")) { functionReturnValue = Strings.Left(lString, 15) + Strings.Replace(lText, lText, Strings.Right(new string(" ", Strings.Len(lText)) + rs.Fields("Price").Value, Strings.Len(lText))); return functionReturnValue; } if (Strings.InStr(lText, "PRICEX")) { functionReturnValue = Strings.Left(lString, 15) + Strings.Replace(lText, lText, Strings.Right(new string(" ", Strings.Len(lText)) + Strings.Split(rs.Fields("Price").Value + ".00", ".")[0], Strings.Len(lText))); return functionReturnValue; } if (Strings.InStr(lText, "PRIC4XXXXX")) { functionReturnValue = Strings.Left(lString, 15) + Strings.Replace(lText, lText, Strings.Right(new string(" ", Strings.Len(lText)) + rs.Fields("Price").Value, Strings.Len(lText))); return functionReturnValue; } if (Strings.InStr(lText, "PRIC1XXXXX")) { rsShrink = modRecordSet.getRS(ref "SELECT StockItem.StockItemID, StockItem.StockItem_ShrinkID, Shrink.ShrinkID, ShrinkItem.ShrinkItem_ShrinkID, ShrinkItem.ShrinkItem_Quantity FROM (Shrink INNER JOIN StockItem ON Shrink.ShrinkID = StockItem.StockItem_ShrinkID) INNER JOIN ShrinkItem ON Shrink.ShrinkID = ShrinkItem.ShrinkItem_ShrinkID Where (((StockItem.stockitemID) = " + rs.Fields("StockItemID").Value + ")) ORDER BY StockItem.StockItemID, ShrinkItem.ShrinkItem_Quantity;"); x = 0; if (rsShrink.RecordCount > 0) { while (!(rsShrink.EOF)) { if (rsShrink.Fields("ShrinkItem_Quantity").Value > 1) { if (x == 0) { rsP = modRecordSet.getRS(ref "SELECT TOP 1 PriceChannelLnk.PriceChannelLnk_StockItemID, PriceChannelLnk.PriceChannelLnk_Quantity, PriceChannelLnk.PriceChannelLnk_ChannelID, PriceChannelLnk.PriceChannelLnk_Price From PriceChannelLnk Where (((PriceChannelLnk.PriceChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((PriceChannelLnk.PriceChannelLnk_ChannelID) = 1) And ((PriceChannelLnk.PriceChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY PriceChannelLnk.PriceChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Replace(lText, lText, Strings.Right(new string(" ", Strings.Len(lText)) + Strings.FormatNumber(rsP.Fields("PriceChannelLnk_Price").Value, 2) + " FOR ", Strings.Len(lText))); } else { rsP = modRecordSet.getRS(ref "SELECT TOP 1 CatalogueChannelLnk.CatalogueChannelLnk_StockItemID, CatalogueChannelLnk.CatalogueChannelLnk_Quantity, CatalogueChannelLnk.CatalogueChannelLnk_ChannelID, CatalogueChannelLnk.CatalogueChannelLnk_Price From CatalogueChannelLnk Where (((CatalogueChannelLnk.CatalogueChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID) = 1) And ((CatalogueChannelLnk.CatalogueChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY CatalogueChannelLnk.CatalogueChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Replace(lText, lText, Strings.Right(new string(" ", Strings.Len(lText)) + Strings.FormatNumber(rsP.Fields("CatalogueChannelLnk_Price").Value, 2) + " FOR ", Strings.Len(lText))); } else { //doString = Left(lString, 15) & Replace(lText, lText, Right(String(Len(lText), " ") & Split(rs("Price") & ".00", ".")(0), Len(lText))) } } x = x + 1; } else if (x == 1) { x = x + 1; } else if (x == 2) { x = x + 1; } } rsShrink.MoveNext(); } } return functionReturnValue; } if (Strings.InStr(lText, "PRIC2XXXXX")) { rsShrink = modRecordSet.getRS(ref "SELECT StockItem.StockItemID, StockItem.StockItem_ShrinkID, Shrink.ShrinkID, ShrinkItem.ShrinkItem_ShrinkID, ShrinkItem.ShrinkItem_Quantity FROM (Shrink INNER JOIN StockItem ON Shrink.ShrinkID = StockItem.StockItem_ShrinkID) INNER JOIN ShrinkItem ON Shrink.ShrinkID = ShrinkItem.ShrinkItem_ShrinkID Where (((StockItem.stockitemID) = " + rs.Fields("StockItemID").Value + ")) ORDER BY StockItem.StockItemID, ShrinkItem.ShrinkItem_Quantity;"); x = 0; if (rsShrink.RecordCount > 0) { while (!(rsShrink.EOF)) { if (rsShrink.Fields("ShrinkItem_Quantity").Value > 1) { if (x == 0) { x = x + 1; } else if (x == 1) { rsP = modRecordSet.getRS(ref "SELECT TOP 1 PriceChannelLnk.PriceChannelLnk_StockItemID, PriceChannelLnk.PriceChannelLnk_Quantity, PriceChannelLnk.PriceChannelLnk_ChannelID, PriceChannelLnk.PriceChannelLnk_Price From PriceChannelLnk Where (((PriceChannelLnk.PriceChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((PriceChannelLnk.PriceChannelLnk_ChannelID) = 1) And ((PriceChannelLnk.PriceChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY PriceChannelLnk.PriceChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Replace(lText, lText, Strings.Right(new string(" ", Strings.Len(lText)) + Strings.FormatNumber(rsP.Fields("PriceChannelLnk_Price").Value, 2) + " FOR ", Strings.Len(lText))); } else { rsP = modRecordSet.getRS(ref "SELECT TOP 1 CatalogueChannelLnk.CatalogueChannelLnk_StockItemID, CatalogueChannelLnk.CatalogueChannelLnk_Quantity, CatalogueChannelLnk.CatalogueChannelLnk_ChannelID, CatalogueChannelLnk.CatalogueChannelLnk_Price From CatalogueChannelLnk Where (((CatalogueChannelLnk.CatalogueChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID) = 1) And ((CatalogueChannelLnk.CatalogueChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY CatalogueChannelLnk.CatalogueChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Replace(lText, lText, Strings.Right(new string(" ", Strings.Len(lText)) + Strings.FormatNumber(rsP.Fields("CatalogueChannelLnk_Price").Value, 2) + " FOR ", Strings.Len(lText))); } else { //doString = Left(lString, 15) & Replace(lText, lText, Right(String(Len(lText), " ") & Split(rs("Price") & ".00", ".")(0), Len(lText))) } } x = x + 1; } else if (x == 2) { x = x + 1; } } rsShrink.MoveNext(); } } return functionReturnValue; } if (Strings.InStr(lText, "PRIC3XXXXX")) { rsShrink = modRecordSet.getRS(ref "SELECT StockItem.StockItemID, StockItem.StockItem_ShrinkID, Shrink.ShrinkID, ShrinkItem.ShrinkItem_ShrinkID, ShrinkItem.ShrinkItem_Quantity FROM (Shrink INNER JOIN StockItem ON Shrink.ShrinkID = StockItem.StockItem_ShrinkID) INNER JOIN ShrinkItem ON Shrink.ShrinkID = ShrinkItem.ShrinkItem_ShrinkID Where (((StockItem.stockitemID) = " + rs.Fields("StockItemID").Value + ")) ORDER BY StockItem.StockItemID, ShrinkItem.ShrinkItem_Quantity;"); x = 0; if (rsShrink.RecordCount > 0) { while (!(rsShrink.EOF)) { if (rsShrink.Fields("ShrinkItem_Quantity").Value > 1) { if (x == 0) { x = x + 1; } else if (x == 1) { x = x + 1; } else if (x == 2) { rsP = modRecordSet.getRS(ref "SELECT TOP 1 PriceChannelLnk.PriceChannelLnk_StockItemID, PriceChannelLnk.PriceChannelLnk_Quantity, PriceChannelLnk.PriceChannelLnk_ChannelID, PriceChannelLnk.PriceChannelLnk_Price From PriceChannelLnk Where (((PriceChannelLnk.PriceChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((PriceChannelLnk.PriceChannelLnk_ChannelID) = 1) And ((PriceChannelLnk.PriceChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY PriceChannelLnk.PriceChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Replace(lText, lText, Strings.Right(new string(" ", Strings.Len(lText)) + Strings.FormatNumber(rsP.Fields("PriceChannelLnk_Price").Value, 2) + " FOR ", Strings.Len(lText))); } else { rsP = modRecordSet.getRS(ref "SELECT TOP 1 CatalogueChannelLnk.CatalogueChannelLnk_StockItemID, CatalogueChannelLnk.CatalogueChannelLnk_Quantity, CatalogueChannelLnk.CatalogueChannelLnk_ChannelID, CatalogueChannelLnk.CatalogueChannelLnk_Price From CatalogueChannelLnk Where (((CatalogueChannelLnk.CatalogueChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID) = 1) And ((CatalogueChannelLnk.CatalogueChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY CatalogueChannelLnk.CatalogueChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Replace(lText, lText, Strings.Right(new string(" ", Strings.Len(lText)) + Strings.FormatNumber(rsP.Fields("CatalogueChannelLnk_Price").Value, 2) + " FOR ", Strings.Len(lText))); } else { //doString = Left(lString, 15) & Replace(lText, lText, Right(String(Len(lText), " ") & Split(rs("Price") & ".00", ".")(0), Len(lText))) } } x = x + 1; } } rsShrink.MoveNext(); } } return functionReturnValue; } if (lText == "S1") { rsShrink = modRecordSet.getRS(ref "SELECT StockItem.StockItemID, StockItem.StockItem_ShrinkID, Shrink.ShrinkID, ShrinkItem.ShrinkItem_ShrinkID, ShrinkItem.ShrinkItem_Quantity FROM (Shrink INNER JOIN StockItem ON Shrink.ShrinkID = StockItem.StockItem_ShrinkID) INNER JOIN ShrinkItem ON Shrink.ShrinkID = ShrinkItem.ShrinkItem_ShrinkID Where (((StockItem.stockitemID) = " + rs.Fields("StockItemID").Value + ")) ORDER BY StockItem.StockItemID, ShrinkItem.ShrinkItem_Quantity;"); x = 0; if (rsShrink.RecordCount > 0) { while (!(rsShrink.EOF)) { if (rsShrink.Fields("ShrinkItem_Quantity").Value > 1) { if (x == 0) { rsP = modRecordSet.getRS(ref "SELECT TOP 1 PriceChannelLnk.PriceChannelLnk_StockItemID, PriceChannelLnk.PriceChannelLnk_Quantity, PriceChannelLnk.PriceChannelLnk_ChannelID, PriceChannelLnk.PriceChannelLnk_Price From PriceChannelLnk Where (((PriceChannelLnk.PriceChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((PriceChannelLnk.PriceChannelLnk_ChannelID) = 1) And ((PriceChannelLnk.PriceChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY PriceChannelLnk.PriceChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Right(new string(" ", Strings.Len(lText)) + rsP.Fields("PriceChannelLnk_Quantity").Value, Strings.Len(lText)); } else { rsP = modRecordSet.getRS(ref "SELECT TOP 1 CatalogueChannelLnk.CatalogueChannelLnk_StockItemID, CatalogueChannelLnk.CatalogueChannelLnk_Quantity, CatalogueChannelLnk.CatalogueChannelLnk_ChannelID, CatalogueChannelLnk.CatalogueChannelLnk_Price From CatalogueChannelLnk Where (((CatalogueChannelLnk.CatalogueChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID) = 1) And ((CatalogueChannelLnk.CatalogueChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY CatalogueChannelLnk.CatalogueChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Right(new string(" ", Strings.Len(lText)) + rsP.Fields("CatalogueChannelLnk_Quantity").Value, Strings.Len(lText)); } else { } } x = x + 1; } else if (x == 1) { x = x + 1; } else if (x == 2) { x = x + 1; } } rsShrink.MoveNext(); } } return functionReturnValue; } if (lText == "S2") { rsShrink = modRecordSet.getRS(ref "SELECT StockItem.StockItemID, StockItem.StockItem_ShrinkID, Shrink.ShrinkID, ShrinkItem.ShrinkItem_ShrinkID, ShrinkItem.ShrinkItem_Quantity FROM (Shrink INNER JOIN StockItem ON Shrink.ShrinkID = StockItem.StockItem_ShrinkID) INNER JOIN ShrinkItem ON Shrink.ShrinkID = ShrinkItem.ShrinkItem_ShrinkID Where (((StockItem.stockitemID) = " + rs.Fields("StockItemID").Value + ")) ORDER BY StockItem.StockItemID, ShrinkItem.ShrinkItem_Quantity;"); x = 0; if (rsShrink.RecordCount > 0) { while (!(rsShrink.EOF)) { if (rsShrink.Fields("ShrinkItem_Quantity").Value > 1) { if (x == 0) { x = x + 1; } else if (x == 1) { rsP = modRecordSet.getRS(ref "SELECT TOP 1 PriceChannelLnk.PriceChannelLnk_StockItemID, PriceChannelLnk.PriceChannelLnk_Quantity, PriceChannelLnk.PriceChannelLnk_ChannelID, PriceChannelLnk.PriceChannelLnk_Price From PriceChannelLnk Where (((PriceChannelLnk.PriceChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((PriceChannelLnk.PriceChannelLnk_ChannelID) = 1) And ((PriceChannelLnk.PriceChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY PriceChannelLnk.PriceChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Right(new string(" ", Strings.Len(lText)) + rsP.Fields("PriceChannelLnk_Quantity").Value, Strings.Len(lText)); } else { rsP = modRecordSet.getRS(ref "SELECT TOP 1 CatalogueChannelLnk.CatalogueChannelLnk_StockItemID, CatalogueChannelLnk.CatalogueChannelLnk_Quantity, CatalogueChannelLnk.CatalogueChannelLnk_ChannelID, CatalogueChannelLnk.CatalogueChannelLnk_Price From CatalogueChannelLnk Where (((CatalogueChannelLnk.CatalogueChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID) = 1) And ((CatalogueChannelLnk.CatalogueChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY CatalogueChannelLnk.CatalogueChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Right(new string(" ", Strings.Len(lText)) + rsP.Fields("CatalogueChannelLnk_Quantity").Value, Strings.Len(lText)); } else { } } x = x + 1; } else if (x == 2) { x = x + 1; } } rsShrink.MoveNext(); } } return functionReturnValue; } if (lText == "S3") { rsShrink = modRecordSet.getRS(ref "SELECT StockItem.StockItemID, StockItem.StockItem_ShrinkID, Shrink.ShrinkID, ShrinkItem.ShrinkItem_ShrinkID, ShrinkItem.ShrinkItem_Quantity FROM (Shrink INNER JOIN StockItem ON Shrink.ShrinkID = StockItem.StockItem_ShrinkID) INNER JOIN ShrinkItem ON Shrink.ShrinkID = ShrinkItem.ShrinkItem_ShrinkID Where (((StockItem.stockitemID) = " + rs.Fields("StockItemID").Value + ")) ORDER BY StockItem.StockItemID, ShrinkItem.ShrinkItem_Quantity;"); x = 0; if (rsShrink.RecordCount > 0) { while (!(rsShrink.EOF)) { if (rsShrink.Fields("ShrinkItem_Quantity").Value > 1) { if (x == 0) { x = x + 1; } else if (x == 1) { x = x + 1; } else if (x == 2) { rsP = modRecordSet.getRS(ref "SELECT TOP 1 PriceChannelLnk.PriceChannelLnk_StockItemID, PriceChannelLnk.PriceChannelLnk_Quantity, PriceChannelLnk.PriceChannelLnk_ChannelID, PriceChannelLnk.PriceChannelLnk_Price From PriceChannelLnk Where (((PriceChannelLnk.PriceChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((PriceChannelLnk.PriceChannelLnk_ChannelID) = 1) And ((PriceChannelLnk.PriceChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY PriceChannelLnk.PriceChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Right(new string(" ", Strings.Len(lText)) + rsP.Fields("PriceChannelLnk_Quantity").Value, Strings.Len(lText)); } else { rsP = modRecordSet.getRS(ref "SELECT TOP 1 CatalogueChannelLnk.CatalogueChannelLnk_StockItemID, CatalogueChannelLnk.CatalogueChannelLnk_Quantity, CatalogueChannelLnk.CatalogueChannelLnk_ChannelID, CatalogueChannelLnk.CatalogueChannelLnk_Price From CatalogueChannelLnk Where (((CatalogueChannelLnk.CatalogueChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID) = 1) And ((CatalogueChannelLnk.CatalogueChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY CatalogueChannelLnk.CatalogueChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Right(new string(" ", Strings.Len(lText)) + rsP.Fields("CatalogueChannelLnk_Quantity").Value, Strings.Len(lText)); } else { } } x = x + 1; } } rsShrink.MoveNext(); } } return functionReturnValue; } if (lText == "(P1 ea)") { rsShrink = modRecordSet.getRS(ref "SELECT StockItem.StockItemID, StockItem.StockItem_ShrinkID, Shrink.ShrinkID, ShrinkItem.ShrinkItem_ShrinkID, ShrinkItem.ShrinkItem_Quantity FROM (Shrink INNER JOIN StockItem ON Shrink.ShrinkID = StockItem.StockItem_ShrinkID) INNER JOIN ShrinkItem ON Shrink.ShrinkID = ShrinkItem.ShrinkItem_ShrinkID Where (((StockItem.stockitemID) = " + rs.Fields("StockItemID").Value + ")) ORDER BY StockItem.StockItemID, ShrinkItem.ShrinkItem_Quantity;"); x = 0; if (rsShrink.RecordCount > 0) { while (!(rsShrink.EOF)) { if (rsShrink.Fields("ShrinkItem_Quantity").Value > 1) { if (x == 0) { rsP = modRecordSet.getRS(ref "SELECT TOP 1 PriceChannelLnk.PriceChannelLnk_StockItemID, PriceChannelLnk.PriceChannelLnk_Quantity, PriceChannelLnk.PriceChannelLnk_ChannelID, PriceChannelLnk.PriceChannelLnk_Price From PriceChannelLnk Where (((PriceChannelLnk.PriceChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((PriceChannelLnk.PriceChannelLnk_ChannelID) = 1) And ((PriceChannelLnk.PriceChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY PriceChannelLnk.PriceChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Left("(" + Strings.FormatNumber((rsP.Fields("PriceChannelLnk_Price").Value ? rsP.Fields("PriceChannelLnk_Price").Value : 1) / (rsP.Fields("PriceChannelLnk_Quantity").Value ? rsP.Fields("PriceChannelLnk_Quantity").Value : 1), 2) + " ea)", Strings.Len(" (" + Strings.FormatNumber((rsP.Fields("PriceChannelLnk_Price").Value ? rsP.Fields("PriceChannelLnk_Price").Value : 1) / (rsP.Fields("PriceChannelLnk_Quantity").Value ? rsP.Fields("PriceChannelLnk_Quantity").Value : 1), 2) + " ea)")); } else { rsP = modRecordSet.getRS(ref "SELECT TOP 1 CatalogueChannelLnk.CatalogueChannelLnk_StockItemID, CatalogueChannelLnk.CatalogueChannelLnk_Quantity, CatalogueChannelLnk.CatalogueChannelLnk_ChannelID, CatalogueChannelLnk.CatalogueChannelLnk_Price From CatalogueChannelLnk Where (((CatalogueChannelLnk.CatalogueChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID) = 1) And ((CatalogueChannelLnk.CatalogueChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY CatalogueChannelLnk.CatalogueChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Left("(" + Strings.FormatNumber((rsP.Fields("CatalogueChannelLnk_Price").Value ? rsP.Fields("CatalogueChannelLnk_Price").Value : 1) / (rsP.Fields("CatalogueChannelLnk_Quantity").Value ? rsP.Fields("CatalogueChannelLnk_Quantity").Value : 1), 2) + " ea)", Strings.Len(" (" + Strings.FormatNumber((rsP.Fields("CatalogueChannelLnk_Price").Value ? rsP.Fields("CatalogueChannelLnk_Price").Value : 1) / (rsP.Fields("CatalogueChannelLnk_Quantity").Value ? rsP.Fields("CatalogueChannelLnk_Quantity").Value : 1), 2) + " ea)")); } else { } } x = x + 1; } else if (x == 1) { x = x + 1; } else if (x == 2) { x = x + 1; } } rsShrink.MoveNext(); } } return functionReturnValue; } if (lText == "(P2 ea)") { rsShrink = modRecordSet.getRS(ref "SELECT StockItem.StockItemID, StockItem.StockItem_ShrinkID, Shrink.ShrinkID, ShrinkItem.ShrinkItem_ShrinkID, ShrinkItem.ShrinkItem_Quantity FROM (Shrink INNER JOIN StockItem ON Shrink.ShrinkID = StockItem.StockItem_ShrinkID) INNER JOIN ShrinkItem ON Shrink.ShrinkID = ShrinkItem.ShrinkItem_ShrinkID Where (((StockItem.stockitemID) = " + rs.Fields("StockItemID").Value + ")) ORDER BY StockItem.StockItemID, ShrinkItem.ShrinkItem_Quantity;"); x = 0; if (rsShrink.RecordCount > 0) { while (!(rsShrink.EOF)) { if (rsShrink.Fields("ShrinkItem_Quantity").Value > 1) { if (x == 0) { x = x + 1; } else if (x == 1) { rsP = modRecordSet.getRS(ref "SELECT TOP 1 PriceChannelLnk.PriceChannelLnk_StockItemID, PriceChannelLnk.PriceChannelLnk_Quantity, PriceChannelLnk.PriceChannelLnk_ChannelID, PriceChannelLnk.PriceChannelLnk_Price From PriceChannelLnk Where (((PriceChannelLnk.PriceChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((PriceChannelLnk.PriceChannelLnk_ChannelID) = 1) And ((PriceChannelLnk.PriceChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY PriceChannelLnk.PriceChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Left("(" + Strings.FormatNumber((rsP.Fields("PriceChannelLnk_Price").Value ? rsP.Fields("PriceChannelLnk_Price").Value : 1) / (rsP.Fields("PriceChannelLnk_Quantity").Value ? rsP.Fields("PriceChannelLnk_Quantity").Value : 1), 2) + " ea)", Strings.Len(" (" + Strings.FormatNumber((rsP.Fields("PriceChannelLnk_Price").Value ? rsP.Fields("PriceChannelLnk_Price").Value : 1) / (rsP.Fields("PriceChannelLnk_Quantity").Value ? rsP.Fields("PriceChannelLnk_Quantity").Value : 1), 2) + " ea)")); } else { rsP = modRecordSet.getRS(ref "SELECT TOP 1 CatalogueChannelLnk.CatalogueChannelLnk_StockItemID, CatalogueChannelLnk.CatalogueChannelLnk_Quantity, CatalogueChannelLnk.CatalogueChannelLnk_ChannelID, CatalogueChannelLnk.CatalogueChannelLnk_Price From CatalogueChannelLnk Where (((CatalogueChannelLnk.CatalogueChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID) = 1) And ((CatalogueChannelLnk.CatalogueChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY CatalogueChannelLnk.CatalogueChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Left("(" + Strings.FormatNumber((rsP.Fields("CatalogueChannelLnk_Price").Value ? rsP.Fields("CatalogueChannelLnk_Price").Value : 1) / (rsP.Fields("CatalogueChannelLnk_Quantity").Value ? rsP.Fields("CatalogueChannelLnk_Quantity").Value : 1), 2) + " ea)", Strings.Len(" (" + Strings.FormatNumber((rsP.Fields("CatalogueChannelLnk_Price").Value ? rsP.Fields("CatalogueChannelLnk_Price").Value : 1) / (rsP.Fields("CatalogueChannelLnk_Quantity").Value ? rsP.Fields("CatalogueChannelLnk_Quantity").Value : 1), 2) + " ea)")); } else { } } x = x + 1; } else if (x == 2) { x = x + 1; } } rsShrink.MoveNext(); } } return functionReturnValue; } if (lText == "(P3 ea)") { rsShrink = modRecordSet.getRS(ref "SELECT StockItem.StockItemID, StockItem.StockItem_ShrinkID, Shrink.ShrinkID, ShrinkItem.ShrinkItem_ShrinkID, ShrinkItem.ShrinkItem_Quantity FROM (Shrink INNER JOIN StockItem ON Shrink.ShrinkID = StockItem.StockItem_ShrinkID) INNER JOIN ShrinkItem ON Shrink.ShrinkID = ShrinkItem.ShrinkItem_ShrinkID Where (((StockItem.stockitemID) = " + rs.Fields("StockItemID").Value + ")) ORDER BY StockItem.StockItemID, ShrinkItem.ShrinkItem_Quantity;"); x = 0; if (rsShrink.RecordCount > 0) { while (!(rsShrink.EOF)) { if (rsShrink.Fields("ShrinkItem_Quantity").Value > 1) { if (x == 0) { x = x + 1; } else if (x == 1) { x = x + 1; } else if (x == 2) { rsP = modRecordSet.getRS(ref "SELECT TOP 1 PriceChannelLnk.PriceChannelLnk_StockItemID, PriceChannelLnk.PriceChannelLnk_Quantity, PriceChannelLnk.PriceChannelLnk_ChannelID, PriceChannelLnk.PriceChannelLnk_Price From PriceChannelLnk Where (((PriceChannelLnk.PriceChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((PriceChannelLnk.PriceChannelLnk_ChannelID) = 1) And ((PriceChannelLnk.PriceChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY PriceChannelLnk.PriceChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Left("(" + Strings.FormatNumber((rsP.Fields("PriceChannelLnk_Price").Value ? rsP.Fields("PriceChannelLnk_Price").Value : 1) / (rsP.Fields("PriceChannelLnk_Quantity").Value ? rsP.Fields("PriceChannelLnk_Quantity").Value : 1), 2) + " ea)", Strings.Len(" (" + Strings.FormatNumber((rsP.Fields("PriceChannelLnk_Price").Value ? rsP.Fields("PriceChannelLnk_Price").Value : 1) / (rsP.Fields("PriceChannelLnk_Quantity").Value ? rsP.Fields("PriceChannelLnk_Quantity").Value : 1), 2) + " ea)")); } else { rsP = modRecordSet.getRS(ref "SELECT TOP 1 CatalogueChannelLnk.CatalogueChannelLnk_StockItemID, CatalogueChannelLnk.CatalogueChannelLnk_Quantity, CatalogueChannelLnk.CatalogueChannelLnk_ChannelID, CatalogueChannelLnk.CatalogueChannelLnk_Price From CatalogueChannelLnk Where (((CatalogueChannelLnk.CatalogueChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID) = 1) And ((CatalogueChannelLnk.CatalogueChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY CatalogueChannelLnk.CatalogueChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Left("(" + Strings.FormatNumber((rsP.Fields("CatalogueChannelLnk_Price").Value ? rsP.Fields("CatalogueChannelLnk_Price").Value : 1) / (rsP.Fields("CatalogueChannelLnk_Quantity").Value ? rsP.Fields("CatalogueChannelLnk_Quantity").Value : 1), 2) + " ea)", Strings.Len(" (" + Strings.FormatNumber((rsP.Fields("CatalogueChannelLnk_Price").Value ? rsP.Fields("CatalogueChannelLnk_Price").Value : 1) / (rsP.Fields("CatalogueChannelLnk_Quantity").Value ? rsP.Fields("CatalogueChannelLnk_Quantity").Value : 1), 2) + " ea)")); } else { } } x = x + 1; } } rsShrink.MoveNext(); } } return functionReturnValue; } if (lText == "(P1 EA)") { rsShrink = modRecordSet.getRS(ref "SELECT StockItem.StockItemID, StockItem.StockItem_ShrinkID, Shrink.ShrinkID, ShrinkItem.ShrinkItem_ShrinkID, ShrinkItem.ShrinkItem_Quantity FROM (Shrink INNER JOIN StockItem ON Shrink.ShrinkID = StockItem.StockItem_ShrinkID) INNER JOIN ShrinkItem ON Shrink.ShrinkID = ShrinkItem.ShrinkItem_ShrinkID Where (((StockItem.stockitemID) = " + rs.Fields("StockItemID").Value + ")) ORDER BY StockItem.StockItemID, ShrinkItem.ShrinkItem_Quantity;"); x = 0; if (rsShrink.RecordCount > 0) { while (!(rsShrink.EOF)) { if (rsShrink.Fields("ShrinkItem_Quantity").Value > 1) { if (x == 0) { rsP = modRecordSet.getRS(ref "SELECT TOP 1 PriceChannelLnk.PriceChannelLnk_StockItemID, PriceChannelLnk.PriceChannelLnk_Quantity, PriceChannelLnk.PriceChannelLnk_ChannelID, PriceChannelLnk.PriceChannelLnk_Price From PriceChannelLnk Where (((PriceChannelLnk.PriceChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((PriceChannelLnk.PriceChannelLnk_ChannelID) = 1) And ((PriceChannelLnk.PriceChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY PriceChannelLnk.PriceChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Left("(" + Strings.FormatNumber((rsP.Fields("PriceChannelLnk_Price").Value ? rsP.Fields("PriceChannelLnk_Price").Value : 1) / (rsP.Fields("PriceChannelLnk_Quantity").Value ? rsP.Fields("PriceChannelLnk_Quantity").Value : 1), 2) + " ea)", Strings.Len(" (" + Strings.FormatNumber((rsP.Fields("PriceChannelLnk_Price").Value ? rsP.Fields("PriceChannelLnk_Price").Value : 1) / (rsP.Fields("PriceChannelLnk_Quantity").Value ? rsP.Fields("PriceChannelLnk_Quantity").Value : 1), 2) + " EA)")); } else { rsP = modRecordSet.getRS(ref "SELECT TOP 1 CatalogueChannelLnk.CatalogueChannelLnk_StockItemID, CatalogueChannelLnk.CatalogueChannelLnk_Quantity, CatalogueChannelLnk.CatalogueChannelLnk_ChannelID, CatalogueChannelLnk.CatalogueChannelLnk_Price From CatalogueChannelLnk Where (((CatalogueChannelLnk.CatalogueChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID) = 1) And ((CatalogueChannelLnk.CatalogueChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY CatalogueChannelLnk.CatalogueChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Left("(" + Strings.FormatNumber((rsP.Fields("CatalogueChannelLnk_Price").Value ? rsP.Fields("CatalogueChannelLnk_Price").Value : 1) / (rsP.Fields("CatalogueChannelLnk_Quantity").Value ? rsP.Fields("CatalogueChannelLnk_Quantity").Value : 1), 2) + " ea)", Strings.Len(" (" + Strings.FormatNumber((rsP.Fields("CatalogueChannelLnk_Price").Value ? rsP.Fields("CatalogueChannelLnk_Price").Value : 1) / (rsP.Fields("CatalogueChannelLnk_Quantity").Value ? rsP.Fields("CatalogueChannelLnk_Quantity").Value : 1), 2) + " EA)")); } else { } } x = x + 1; } else if (x == 1) { x = x + 1; } else if (x == 2) { x = x + 1; } } rsShrink.MoveNext(); } } return functionReturnValue; } if (lText == "(P2 EA)") { rsShrink = modRecordSet.getRS(ref "SELECT StockItem.StockItemID, StockItem.StockItem_ShrinkID, Shrink.ShrinkID, ShrinkItem.ShrinkItem_ShrinkID, ShrinkItem.ShrinkItem_Quantity FROM (Shrink INNER JOIN StockItem ON Shrink.ShrinkID = StockItem.StockItem_ShrinkID) INNER JOIN ShrinkItem ON Shrink.ShrinkID = ShrinkItem.ShrinkItem_ShrinkID Where (((StockItem.stockitemID) = " + rs.Fields("StockItemID").Value + ")) ORDER BY StockItem.StockItemID, ShrinkItem.ShrinkItem_Quantity;"); x = 0; if (rsShrink.RecordCount > 0) { while (!(rsShrink.EOF)) { if (rsShrink.Fields("ShrinkItem_Quantity").Value > 1) { if (x == 0) { x = x + 1; } else if (x == 1) { rsP = modRecordSet.getRS(ref "SELECT TOP 1 PriceChannelLnk.PriceChannelLnk_StockItemID, PriceChannelLnk.PriceChannelLnk_Quantity, PriceChannelLnk.PriceChannelLnk_ChannelID, PriceChannelLnk.PriceChannelLnk_Price From PriceChannelLnk Where (((PriceChannelLnk.PriceChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((PriceChannelLnk.PriceChannelLnk_ChannelID) = 1) And ((PriceChannelLnk.PriceChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY PriceChannelLnk.PriceChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Left("(" + Strings.FormatNumber((rsP.Fields("PriceChannelLnk_Price").Value ? rsP.Fields("PriceChannelLnk_Price").Value : 1) / (rsP.Fields("PriceChannelLnk_Quantity").Value ? rsP.Fields("PriceChannelLnk_Quantity").Value : 1), 2) + " ea)", Strings.Len(" (" + Strings.FormatNumber((rsP.Fields("PriceChannelLnk_Price").Value ? rsP.Fields("PriceChannelLnk_Price").Value : 1) / (rsP.Fields("PriceChannelLnk_Quantity").Value ? rsP.Fields("PriceChannelLnk_Quantity").Value : 1), 2) + " EA)")); } else { rsP = modRecordSet.getRS(ref "SELECT TOP 1 CatalogueChannelLnk.CatalogueChannelLnk_StockItemID, CatalogueChannelLnk.CatalogueChannelLnk_Quantity, CatalogueChannelLnk.CatalogueChannelLnk_ChannelID, CatalogueChannelLnk.CatalogueChannelLnk_Price From CatalogueChannelLnk Where (((CatalogueChannelLnk.CatalogueChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID) = 1) And ((CatalogueChannelLnk.CatalogueChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY CatalogueChannelLnk.CatalogueChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Left("(" + Strings.FormatNumber((rsP.Fields("CatalogueChannelLnk_Price").Value ? rsP.Fields("CatalogueChannelLnk_Price").Value : 1) / (rsP.Fields("CatalogueChannelLnk_Quantity").Value ? rsP.Fields("CatalogueChannelLnk_Quantity").Value : 1), 2) + " ea)", Strings.Len(" (" + Strings.FormatNumber((rsP.Fields("CatalogueChannelLnk_Price").Value ? rsP.Fields("CatalogueChannelLnk_Price").Value : 1) / (rsP.Fields("CatalogueChannelLnk_Quantity").Value ? rsP.Fields("CatalogueChannelLnk_Quantity").Value : 1), 2) + " EA)")); } else { } } x = x + 1; } else if (x == 2) { x = x + 1; } } rsShrink.MoveNext(); } } return functionReturnValue; } if (lText == "(P3 EA)") { rsShrink = modRecordSet.getRS(ref "SELECT StockItem.StockItemID, StockItem.StockItem_ShrinkID, Shrink.ShrinkID, ShrinkItem.ShrinkItem_ShrinkID, ShrinkItem.ShrinkItem_Quantity FROM (Shrink INNER JOIN StockItem ON Shrink.ShrinkID = StockItem.StockItem_ShrinkID) INNER JOIN ShrinkItem ON Shrink.ShrinkID = ShrinkItem.ShrinkItem_ShrinkID Where (((StockItem.stockitemID) = " + rs.Fields("StockItemID").Value + ")) ORDER BY StockItem.StockItemID, ShrinkItem.ShrinkItem_Quantity;"); x = 0; if (rsShrink.RecordCount > 0) { while (!(rsShrink.EOF)) { if (rsShrink.Fields("ShrinkItem_Quantity").Value > 1) { if (x == 0) { x = x + 1; } else if (x == 1) { x = x + 1; } else if (x == 2) { rsP = modRecordSet.getRS(ref "SELECT TOP 1 PriceChannelLnk.PriceChannelLnk_StockItemID, PriceChannelLnk.PriceChannelLnk_Quantity, PriceChannelLnk.PriceChannelLnk_ChannelID, PriceChannelLnk.PriceChannelLnk_Price From PriceChannelLnk Where (((PriceChannelLnk.PriceChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((PriceChannelLnk.PriceChannelLnk_ChannelID) = 1) And ((PriceChannelLnk.PriceChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY PriceChannelLnk.PriceChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Left("(" + Strings.FormatNumber((rsP.Fields("PriceChannelLnk_Price").Value ? rsP.Fields("PriceChannelLnk_Price").Value : 1) / (rsP.Fields("PriceChannelLnk_Quantity").Value ? rsP.Fields("PriceChannelLnk_Quantity").Value : 1), 2) + " ea)", Strings.Len(" (" + Strings.FormatNumber((rsP.Fields("PriceChannelLnk_Price").Value ? rsP.Fields("PriceChannelLnk_Price").Value : 1) / (rsP.Fields("PriceChannelLnk_Quantity").Value ? rsP.Fields("PriceChannelLnk_Quantity").Value : 1), 2) + " EA)")); } else { rsP = modRecordSet.getRS(ref "SELECT TOP 1 CatalogueChannelLnk.CatalogueChannelLnk_StockItemID, CatalogueChannelLnk.CatalogueChannelLnk_Quantity, CatalogueChannelLnk.CatalogueChannelLnk_ChannelID, CatalogueChannelLnk.CatalogueChannelLnk_Price From CatalogueChannelLnk Where (((CatalogueChannelLnk.CatalogueChannelLnk_StockItemID) = " + rsShrink.Fields("StockItemID").Value + ") And ((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID) = 1) And ((CatalogueChannelLnk.CatalogueChannelLnk_Quantity) = " + rsShrink.Fields("ShrinkItem_Quantity").Value + ")) ORDER BY CatalogueChannelLnk.CatalogueChannelLnk_Quantity DESC;"); if (rsP.RecordCount > 0) { functionReturnValue = Strings.Left(lString, 15) + Strings.Left("(" + Strings.FormatNumber((rsP.Fields("CatalogueChannelLnk_Price").Value ? rsP.Fields("CatalogueChannelLnk_Price").Value : 1) / (rsP.Fields("CatalogueChannelLnk_Quantity").Value ? rsP.Fields("CatalogueChannelLnk_Quantity").Value : 1), 2) + " ea)", Strings.Len(" (" + Strings.FormatNumber((rsP.Fields("CatalogueChannelLnk_Price").Value ? rsP.Fields("CatalogueChannelLnk_Price").Value : 1) / (rsP.Fields("CatalogueChannelLnk_Quantity").Value ? rsP.Fields("CatalogueChannelLnk_Quantity").Value : 1), 2) + " EA)")); } else { } } x = x + 1; } } rsShrink.MoveNext(); } } return functionReturnValue; } if (lText == "CCCC MM") { //doString = Left(lString, 15) & Replace(lText, lText, Left(String(Len(lText), " ") & Year(Now) & " " & Month(Now), Len(lText))) functionReturnValue = Strings.Left(lString, 15) + Strings.Left(DateAndTime.Year(DateAndTime.Now) + " " + DateAndTime.Month(DateAndTime.Now), Strings.Len(lText)); return functionReturnValue; } //If InStr(lText, "XX") Then if (lText == "XX") { functionReturnValue = Strings.Left(lString, 15) + Strings.Replace(lText, lText, Strings.Right(new string(" ", Strings.Len(lText)) + Strings.Split(rs.Fields("Price").Value, ".")[1], Strings.Len(lText))); return functionReturnValue; } if (Strings.InStr(lText, "DEPARTMENT CENTER")) { functionReturnValue = Strings.Left(lString, 15) + doCenter(ref lText, ref rs.Fields("PricingGroup_Name").Value); return functionReturnValue; } if (Strings.InStr(lText, "DEPARTMENT LEFT")) { functionReturnValue = Strings.Left(lString, 15) + Strings.Left(rs.Fields("PricingGroup_Name").Value, Strings.Len(lText)); return functionReturnValue; } if (Strings.InStr(lText, "DEPARTMENT RIGHT")) { functionReturnValue = Strings.Left(lString, 15) + Strings.Right(new string(" ", Strings.Len(lText)) + rs.Fields("PricingGroup_Name").Value, Strings.Len(lText)); return functionReturnValue; } if (Strings.InStr(lText, "BARREAD CENTER")) { functionReturnValue = Strings.Left(lString, 15) + doCenter(ref lText, ref rs.Fields("Catalogue_Barcode").Value); return functionReturnValue; } if (Strings.InStr(lText, "BARREAD LEFT")) { functionReturnValue = Strings.Left(lString, 15) + Strings.Left(rs.Fields("Catalogue_Barcode").Value, Strings.Len(lText)); return functionReturnValue; } if (Strings.InStr(lText, "BARREAD RIGHT")) { functionReturnValue = Strings.Left(lString, 15) + Strings.Right(new string(" ", Strings.Len(lText)) + rs.Fields("Catalogue_Barcode").Value, Strings.Len(lText)); return functionReturnValue; } if (Strings.InStr(lText, "BARCODEXXXXXX")) { functionReturnValue = Strings.Left(lString, 15) + Strings.Right(new string(" ", Strings.Len(lText)) + rs.Fields("Catalogue_Barcode").Value, Strings.Len(lText)); return functionReturnValue; } if (Strings.InStr(lText, "NAME 1 CENTER")) { lString1 = rs.Fields("Stockitem_Name").Value; if (rs.Fields("Catalogue_Quantity").Value != 1) lString1 = rs.Fields("Catalogue_Quantity").Value + "X" + lString1; splitString(ref Strings.Len(lText), ref lString1, ref lString2); functionReturnValue = Strings.Left(lString, 15) + doCenter(ref lText, ref lString1); return functionReturnValue; } if (Strings.InStr(lText, "NAME 1 LEFT")) { lString1 = rs.Fields("Stockitem_Name").Value; if (rs.Fields("Catalogue_Quantity").Value != 1) lString1 = rs.Fields("Catalogue_Quantity").Value + "X" + lString1; splitString(ref Strings.Len(lText), ref lString1, ref lString2); functionReturnValue = Strings.Left(lString, 15) + Strings.Left(lString1, Strings.Len(lText)); return functionReturnValue; } if (Strings.InStr(lText, "NAME 1 RIGHT")) { lString1 = rs.Fields("Stockitem_Name").Value; if (rs.Fields("Catalogue_Quantity").Value != 1) lString1 = rs.Fields("Catalogue_Quantity").Value + "X" + lString1; splitString(ref Strings.Len(lText), ref lString1, ref lString2); functionReturnValue = Strings.Left(lString, 15) + Strings.Right(new string(" ", Strings.Len(lText)) + lString1, Strings.Len(lText)); return functionReturnValue; } if (Strings.InStr(lText, "NAME 2 CENTER")) { lString1 = rs.Fields("Stockitem_Name").Value; if (rs.Fields("Catalogue_Quantity").Value != 1) lString1 = rs.Fields("Catalogue_Quantity").Value + "X" + lString1; splitString(ref Strings.Len(lText), ref lString1, ref lString2); functionReturnValue = Strings.Left(lString, 15) + doCenter(ref lText, ref lString2); return functionReturnValue; } if (Strings.InStr(lText, "NAME 2 LEFT")) { lString1 = rs.Fields("Stockitem_Name").Value; if (rs.Fields("Catalogue_Quantity").Value != 1) lString1 = rs.Fields("Catalogue_Quantity").Value + "X" + lString1; splitString(ref Strings.Len(lText), ref lString1, ref lString2); functionReturnValue = Strings.Left(lString, 15) + Strings.Left(lString2, Strings.Len(lText)); return functionReturnValue; } if (Strings.InStr(lText, "NAME 2 RIGHT")) { lString1 = rs.Fields("Stockitem_Name").Value; if (rs.Fields("Catalogue_Quantity").Value != 1) lString1 = rs.Fields("Catalogue_Quantity").Value + "X" + lString1; splitString(ref Strings.Len(lText), ref lString1, ref lString2); functionReturnValue = Strings.Left(lString, 15) + Strings.Right(new string(" ", Strings.Len(lText)) + lString2, Strings.Len(lText)); return functionReturnValue; } if (Strings.InStr(lText, "DATE")) { lString1 = Strings.Format(DateAndTime.Now, "yymm"); functionReturnValue = Strings.Left(lString, 15) + Strings.Format(DateAndTime.Now, "yymm"); return functionReturnValue; } //Expiry Date if (Strings.InStr(lText, "SELL BY")) { //lString1 = Format((Now() + rs("StockItem_ExpiryDays")), "dd/mm/yy") //doString = Left(lString, 15) & Format((Now() + rs("StockItem_ExpiryDays")), "dd/mm/yy") lString1 = rs.Fields("StockItem_ExpiryDays").Value; functionReturnValue = Strings.Left(lString, 15) + rs.Fields("StockItem_ExpiryDays").Value; return functionReturnValue; } if (lText == "BARCODE") { //If InStr(lText, "BARCODE") Then if (doCheckSum(ref rs.Fields("Catalogue_Barcode").Value)) { } else { functionReturnValue = Strings.Left(lString, 15) + rs.Fields("Catalogue_Barcode").Value; } return functionReturnValue; } if (Strings.InStr(lText, "600106007141")) { if (doCheckSum(ref rs.Fields("Catalogue_Barcode").Value)) { functionReturnValue = Strings.Left(lString, 15) + Strings.Left(rs.Fields("Catalogue_Barcode").Value + "0000", 13); } return functionReturnValue; } functionReturnValue = lString; } else { if (lString == "Q0001") { functionReturnValue = Strings.Replace(lString, "Q0001", "Q" + Strings.Right("0000" + rs.Fields("barcodePersonLnk_PrintQTY").Value, 4)); } else { functionReturnValue = lString; } } return functionReturnValue; }
public bool PrintBarcodeDatamax(ref ADODB.Recordset rs) { string sql = null; string mm = null; int i = 0; int lline = 0; int lTop = 0; int lHeight = 0; System.Drawing.Printing.PrintDocument Printer = new System.Drawing.Printing.PrintDocument(); System.Drawing.Printing.PrintDocument lObject = new System.Drawing.Printing.PrintDocument(); int y = 0; int x = 0; ADODB.Recordset rsData = default(ADODB.Recordset); int currentPic = 0; int twipsToMM = 0; int lLeft = 0; int lWidth = 0; short lCol = 0; short lCols = 0; short lRows = 0; short lrow = 0; ADODB.Recordset rsPrice = default(ADODB.Recordset); //Printer.ScaleMode = ScaleModeConstants.vbTwips 'twips //twipsToMM = Printer.ScaleWidth //Printer.ScaleMode = ScaleModeConstants.vbMillimeters 'mm //twipsToMM = twipsToMM / Printer.ScaleWidth //Printer.ScaleMode = ScaleModeConstants.vbTwips 'twips lObject = Printer; string lString1 = null; string lString2 = null; rsData = modRecordSet.getRS(ref "SELECT * FROM labelItem INNER JOIN label ON labelItem.labelItem_LabelID = label.labelID Where (((label.labelID) = " + rs.Fields("LabelID").Value + ")) ORDER BY label.labelID, labelItem.labelItem_Line;"); //lLeft = (lObject.Width - (lWidth)) / 2 + (gOffsetLabel * twipsToMM) lLeft = 0; if (rsData.Fields("Label_Rotate").Value) { lWidth = rsData.Fields("label_Height").Value * twipsToMM; lHeight = rsData.Fields("label_Width").Value * twipsToMM; } else { lWidth = rsData.Fields("label_width").Value * twipsToMM; lHeight = rsData.Fields("label_Height").Value * twipsToMM; } lTop = rsData.Fields("label_Top").Value * twipsToMM; //lCols = CDec(Printer.Width / (lWidth + 60)) - 0.49999 //lRows = CDec(Printer.Height / (lHeight + 60)) - 0.49999 while (!(rs.EOF)) { rsData.MoveFirst(); y = 0; //If y < 0 Then y = 0 //lObject.FontName = "Tahoma" rsData.MoveFirst(); if (rsData.RecordCount) { lline = rsData.Fields("labelItem_Line").Value; for (i = 1; i <= rs.Fields("barcodePersonLnk_PrintQTY").Value; i++) { lLeft = (Information.IsDBNull(rsData.Fields("Label_Left").Value) ? 0 : rsData.Fields("Label_Left").Value) * twipsToMM; //lObject.CurrentY = lrow * (lHeight + 60) rsData.MoveFirst(); //y = lObject.CurrentY //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(Me.BackColor) // ERROR: Not supported in C#: OnErrorStatement //lObject.Line((lLeft, y) - (lLeft, y + 100)) //lObject.Line((lLeft, y) - (lLeft + 100, y)) //lObject.Line((lLeft + lWidth, y) - (lLeft + lWidth - 100, y)) //lObject.Line((lLeft + lWidth, y) - (lLeft + lWidth, y + 100)) //lObject.Line((lLeft + lWidth, lHeight + y) - (lLeft + lWidth, lHeight + y - 100)) //lObject.Line((lLeft + lWidth, lHeight + y) - (lLeft + lWidth - 100, lHeight + y)) //lObject.Line((lLeft, lHeight + y) - (lLeft, lHeight + y - 100)) //lObject.Line((lLeft, lHeight + y) - (lLeft + 100, lHeight + y)) //lObject.CurrentY = lrow * (lHeight + 60) + lTop //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black) //y = lObject.CurrentY + 10 while (!(rsData.EOF)) { if (lline != rsData.Fields("labelItem_Line").Value) { //y = lObject.CurrentY + 10 lline = rsData.Fields("labelItem_Line").Value; } switch (Strings.LCase(Strings.Trim(rsData.Fields("labelItem_Field").Value))) { case "blank": break; //lObject.FontSize = rsData.Fields("labelItem_Size").Value //lObject.FontBold = rsData.Fields("labelItem_Bold").Value //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.White) //lObject.Print(" ") case "line": break; //lObject.Line((15 + lLeft, y) - (lLeft + lWidth, y), System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black)) case "code": switch (rsData.Fields("labelItem_Align").Value) { case 1: break; //printBarcode(lObject, rs.Fields("Catalogue_Barcode").Value, lLeft + 90, y) case 2: break; //printBarcode(lObject, rs.Fields("Catalogue_Barcode").Value, lLeft + 90, y, lWidth + lWidth - 1440) default: break; //printBarcode(lObject, rs.Fields("Catalogue_Barcode").Value, lLeft, y, lWidth) } break; default: //lObject.FontSize = rsData.Fields("labelItem_Size").Value //lObject.FontBold = rsData.Fields("labelItem_Bold").Value //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.White) mm = rsData.Fields("labelItem_Field").Value; //code for printing shrinks if (mm == "Price6") { sql = "SELECT StockItem.StockItemID, Format([CatalogueChannelLnk_Price],'Currency') AS Price "; sql = sql + "FROM (StockItem INNER JOIN Catalogue ON StockItem.StockItemID = Catalogue.Catalogue_StockItemID) INNER JOIN CatalogueChannelLnk ON StockItem.StockItemID = CatalogueChannelLnk.CatalogueChannelLnk_StockItemID "; sql = sql + "WHERE (((StockItem.StockItemID)=" + rs.Fields("StockItemID").Value + ") AND ((Catalogue.Catalogue_Quantity)=6) AND ((CatalogueChannelLnk.CatalogueChannelLnk_Quantity)=6) AND ((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID)=1));"; rsPrice = modRecordSet.getRS(ref sql); if (rsPrice.RecordCount) { lString1 = rsPrice.Fields("Price").Value + " FOR 6"; } else { lString1 = " "; } } else if (mm == "Price12") { sql = "SELECT StockItem.StockItemID, Format([CatalogueChannelLnk_Price],'Currency') AS Price "; sql = sql + "FROM (StockItem INNER JOIN Catalogue ON StockItem.StockItemID = Catalogue.Catalogue_StockItemID) INNER JOIN CatalogueChannelLnk ON StockItem.StockItemID = CatalogueChannelLnk.CatalogueChannelLnk_StockItemID "; sql = sql + "WHERE (((StockItem.StockItemID)=" + rs.Fields("StockItemID").Value + ") AND ((Catalogue.Catalogue_Quantity)=12) AND ((CatalogueChannelLnk.CatalogueChannelLnk_Quantity)=12) AND ((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID)=1));"; rsPrice = modRecordSet.getRS(ref sql); if (rsPrice.RecordCount) { lString1 = rsPrice.Fields("Price").Value + " FOR 12"; } else { lString1 = " "; } } else if (mm == "Price24") { sql = "SELECT StockItem.StockItemID, Format([CatalogueChannelLnk_Price],'Currency') AS Price "; sql = sql + "FROM (StockItem INNER JOIN Catalogue ON StockItem.StockItemID = Catalogue.Catalogue_StockItemID) INNER JOIN CatalogueChannelLnk ON StockItem.StockItemID = CatalogueChannelLnk.CatalogueChannelLnk_StockItemID "; sql = sql + "WHERE (((StockItem.StockItemID)=" + rs.Fields("StockItemID").Value + ") AND ((Catalogue.Catalogue_Quantity)=24) AND ((CatalogueChannelLnk.CatalogueChannelLnk_Quantity)=24) AND ((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID)=1));"; rsPrice = modRecordSet.getRS(ref sql); if (rsPrice.RecordCount) { lString1 = rsPrice.Fields("Price").Value + " FOR 24"; } else { lString1 = " "; } } else { lString1 = rs.Fields(mm).Value; } //code for printing shrinks //lString1 = rs(mm) switch (rsData.Fields("labelItem_Align").Value) { case 1: break; //lObject.PSet(New Point[](lLeft + 90, y)) //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black) //lObject.Print(lString1) case 2: break; //lObject.PSet(New Point[](lLeft + lWidth - lObject.TextWidth(lString1) - 90, y)) //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black) //lObject.Print(lString1) case 3: //splitStringA4(lObject, lWidth, lString1, lString2) //lObject.PSet(New Point[](CShort(lLeft + (lWidth - lObject.TextWidth(lString1)) / 2), y)) //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black) //lObject.Print(lString1) //y = lObject.CurrentY + 10 //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.White) lString1 = lString2; break; //lObject.PSet(New Point[](CShort(lLeft + (lWidth - lObject.TextWidth(lString1)) / 2), y)) //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black) //lObject.Print(lString1) default: break; //lObject.PSet(New Point[](CShort(lLeft + (lWidth - lObject.TextWidth(lString1)) / 2), y)) // lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black) // lObject.Print(lString1) } break; } rsData.MoveNext(); } //New code for tesing barcode printing //Printer.NewPage() } } rs.MoveNext(); } //Printer.EndDoc() }
private void printStockBarcode(ref ADODB.Recordset rs) { Scripting.FileSystemObject fso = new Scripting.FileSystemObject(); Scripting.TextStream lStream = default(Scripting.TextStream); string lString = null; string[] lArray = null; string lText = null; short x = 0; while (!(rs.EOF)) { lString = rs.Fields("label_textstream").Value; lArray = Strings.Split(lString, Constants.vbCrLf); lString = ""; for (x = 0; x <= Information.UBound(lArray); x++) { lText = lArray[x]; lString = lString + Constants.vbCrLf + doString(ref lText, ref rs); } lStream = fso.OpenTextFile("c:\\aa.txt", Scripting.IOMode.ForWriting, true); lStream.Write(lString); lStream.Close(); lString = "C:\\AA.TXT"; modSpool.SpoolFile(lString, (lblPrinter.Text)); rs.MoveNext(); } }
private void printStockA4(ref ADODB.Recordset rs) { decimal mm = default(decimal); int i = 0; int lline = 0; string bGroup = null; string sGroup = null; int lTop = 0; int lHeight = 0; int gOffsetLabel = 0; int dasd = 0; System.Drawing.Printing.PrintDocument Printer = new System.Drawing.Printing.PrintDocument(); System.Drawing.Printing.PrintDocument lObject = new System.Drawing.Printing.PrintDocument(); int y = 0; int x = 0; ADODB.Recordset rsData = default(ADODB.Recordset); int currentPic = 0; int twipsToMM = 0; int lLeft = 0; int lWidth = 0; short lCol = 0; short lCols = 0; short lRows = 0; short lrow = 0; // ERROR: Not supported in C#: OnErrorStatement dasd = Printer.PrinterSettings.DefaultPageSettings.PaperSize.Width; //Printer.PrinterSettings.DefaultPageSettings.ScaleMode = ScaleModeConstants.vbTwips 'twips //twipsToMM = Printer.ScaleWidth //Printer.ScaleMode = ScaleModeConstants.vbMillimeters 'mm //twipsToMM = twipsToMM / Printer.ScaleWidth //Printer.ScaleMode = ScaleModeConstants.vbTwips 'twips lObject = Printer; string lString1 = null; string lString2 = null; rsData = modRecordSet.getRS(ref "SELECT * FROM labelItem INNER JOIN label ON labelItem.labelItem_LabelID = label.labelID Where (((label.labelID) = " + rs.Fields("LabelID").Value + ")) ORDER BY label.labelID, labelItem.labelItem_Line;"); lLeft = (lObject.PrinterSettings.DefaultPageSettings.PaperSize.Width - (lWidth)) / 2 + (gOffsetLabel * twipsToMM); lLeft = 0; if (rsData.Fields("Label_Rotate").Value) { lWidth = rsData.Fields("label_Height").Value * twipsToMM; lHeight = rsData.Fields("label_Width").Value * twipsToMM; } else { lWidth = rsData.Fields("label_width").Value * twipsToMM; lHeight = rsData.Fields("label_Height").Value * twipsToMM; } lTop = rsData.Fields("label_Top").Value * twipsToMM; lCols = Convert.ToDecimal(Printer.PrinterSettings.DefaultPageSettings.PaperSize.Width / (lWidth + 60)) - 0.49999; lRows = Convert.ToDecimal(Printer.PrinterSettings.DefaultPageSettings.PaperSize.Height / (lHeight + 60)) - 0.49999; sGroup = "1"; if (Strings.InStr(Strings.LCase(rsData.Fields("Label_Name").Value), "nursery")) { bGroup = "Yes"; } else { bGroup = "No"; printStockA4(ref rs); return; } while (!(rs.EOF)) { rsData.MoveFirst(); y = 0; if (y < 0) y = 0; //lObject.FontName = "Tahoma" rsData.MoveFirst(); if (rsData.RecordCount) { lline = rsData.Fields("labelItem_Line").Value; for (i = 1; i <= rs.Fields("barcodePersonLnk_PrintQTY").Value; i++) { lLeft = (Information.IsDBNull(rsData.Fields("Label_Left").Value) ? 0 : rsData.Fields("Label_Left").Value) * twipsToMM; //lLeft = 1200 'lCol * (lWidth + 60) //lObject.CurrentY = lrow * (lHeight + 60) rsData.MoveFirst(); //y = lObject.CurrentY //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(Me.BackColor) // ERROR: Not supported in C#: OnErrorStatement //lObject.Line((lLeft, y) - (lLeft, y + 100)) //lObject.Line((lLeft, y) - (lLeft + 100, y)) //lObject.Line((lLeft + lWidth, y) - (lLeft + lWidth - 100, y)) //lObject.Line((lLeft + lWidth, y) - (lLeft + lWidth, y + 100)) //lObject.Line((lLeft + lWidth, lHeight + y) - (lLeft + lWidth, lHeight + y - 100)) //lObject.Line((lLeft + lWidth, lHeight + y) - (lLeft + lWidth - 100, lHeight + y)) //lObject.Line((lLeft, lHeight + y) - (lLeft, lHeight + y - 100)) //lObject.Line((lLeft, lHeight + y) - (lLeft + 100, lHeight + y)) //lObject.CurrentY = lrow * (lHeight + 60) + lTop //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black) //y = lObject.CurrentY + 10 while (!(rsData.EOF)) { if (lline != rsData.Fields("labelItem_Line").Value) { //y = lObject.CurrentY + 10 lline = rsData.Fields("labelItem_Line").Value; } switch (Strings.LCase(Strings.Trim(rsData.Fields("labelItem_Field").Value))) { case "blank": break; //lObject.FontSize = rsData.Fields("labelItem_Size").Value //lObject.FontBold = rsData.Fields("labelItem_Bold").Value //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.White) //lObject.Print(" ") case "line": break; //lObject.Line((15 + lLeft, y) - (lLeft + lWidth, y), System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black)) case "code": switch (rsData.Fields("labelItem_Align").Value) { case 1: if (bGroup == "Yes") { //Barcode CodeType, txtData, Printer, 15, 700, 3000, 250 //Barcode "128", rs("Catalogue_Barcode"), lObject, 15, 700, lLeft + 90, Y AllCodes.Barcode(ref "128", ref rs.Fields("Catalogue_Barcode").Value, ref lObject, ref 24, ref 500, ref 2400, ref Convert.ToSingle(y)); } else { //printBarcode(lObject, rs.Fields("Catalogue_Barcode").Value, lLeft + 90, y) } break; case 2: if (bGroup == "Yes") { AllCodes.Barcode(ref "128", ref rs.Fields("Catalogue_Barcode").Value, ref lObject, ref 24, ref 500, ref 2400, ref Convert.ToSingle(y)); } else { //old line before jonas printBarcode lObject, rs("Catalogue_Barcode"), lLeft + 90, y //printBarcode(lObject, rs.Fields("Catalogue_Barcode").Value, lLeft + 90, y, lWidth + lWidth - 1440) } break; default: if (bGroup == "Yes") { //Barcode "128", rs("Catalogue_Barcode"), lObject, 15, 700, lLeft + 90, Y AllCodes.Barcode(ref "128", ref rs.Fields("Catalogue_Barcode").Value, ref lObject, ref 24, ref 500, ref 2400, ref Convert.ToSingle(y)); //3600 //Barcode "128", "tZst1234", lObject, 24, 700, 2500, 130 } else { //printBarcode(lObject, rs.Fields("Catalogue_Barcode").Value, lLeft, y, lWidth) } break; } break; default: //lObject.FontSize = rsData.Fields("labelItem_Size").Value //lObject.FontBold = rsData.Fields("labelItem_Bold").Value //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.White) mm = rsData.Fields("labelItem_Field").Value; //code for printing shrinks //code for printing shrinks lString1 = rs.Fields(mm).Value; switch (rsData.Fields("labelItem_Align").Value) { case 1: break; //lObject.PSet(New Point[](lLeft + 90, y)) //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black) //lObject.Print(lString1) case 2: break; //lObject.PSet(New Point[](lLeft + lWidth - lObject.TextWidth(lString1) - 90, y)) //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black) //lObject.Print(lString1) case 3: //splitStringA4(lObject, lWidth, lString1, lString2) //lObject.PSet(New Point[](CShort(lLeft + (lWidth - lObject.TextWidth(lString1)) / 2), y)) //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black) //lObject.Print(lString1) //y = lObject.CurrentY + 10 //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.White) lString1 = lString2; break; //lObject.PSet(New Point[](CShort(lLeft + (lWidth - lObject.TextWidth(lString1)) / 2), y)) //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black) //lObject.Print(lString1) default: break; //lObject.PSet(New Point[](CShort(lLeft + (lWidth - lObject.TextWidth(lString1)) / 2), y)) //lObject.ForeColor = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black) //lObject.Print(lString1) } break; } if (bGroup == "Yes") { //sGroup = "1" //And rs("barcodePersonLnk_PrintQTY") = 1 Then if (sGroup != rsData.Fields("labelItem_Sample").Value) { if (rs.Fields("barcodePersonLnk_PrintQTY").Value == 1) { rs.moveNext(); } else if (rs.Fields("barcodePersonLnk_PrintQTY").Value >= 1) { if (i == rs.Fields("barcodePersonLnk_PrintQTY").Value & sGroup == "4") { sGroup = "1"; break; // TODO: might not be correct. Was : Exit Do } else if (i == rs.Fields("barcodePersonLnk_PrintQTY").Value) { rs.moveNext(); i = 0; } i = i + 1; } sGroup = rsData.Fields("labelItem_Sample").Value; } //i = i + 1 //If i >= rs("barcodePersonLnk_PrintQTY") Then // sGroup = rsData("labelItem_Sample") // 'rs.moveNext // Exit Do //End If if (rs.EOF) break; // TODO: might not be correct. Was : Exit Do } rsData.moveNext(); } lCol = lCol + 1; if (lCol >= lCols) { lCol = 0; lrow = lrow + 1; //If (lrow + 1) * lHeight > lObject.Height Then // Printer.NewPage() // If bGroup = "Yes" Then // lrow = 0 '-1 //Else // lrow = -1 // End If //End If } if (sGroup == "4") sGroup = "1"; } } if (bGroup == "Yes") { if (rs.EOF) break; // TODO: might not be correct. Was : Exit Do if (sGroup == "4") sGroup = "1"; } rs.moveNext(); } //Printer.EndDoc() return; Err_printStockA4: //MsgBox Err.Description // ERROR: Not supported in C#: ResumeStatement }