Index: development/models/zTryout/LengthProduct.mtd
===================================================================
diff -u
--- development/models/zTryout/LengthProduct.mtd (revision 0)
+++ development/models/zTryout/LengthProduct.mtd (revision 3451)
@@ -0,0 +1,4 @@
+
+
+
+
\ No newline at end of file
Index: development/models/zTryout/LengthProduct.trl
===================================================================
diff -u
--- development/models/zTryout/LengthProduct.trl (revision 0)
+++ development/models/zTryout/LengthProduct.trl (revision 3451)
@@ -0,0 +1,70 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
Index: development/models/zTryout/LengthProduct.xml
===================================================================
diff -u
--- development/models/zTryout/LengthProduct.xml (revision 0)
+++ development/models/zTryout/LengthProduct.xml (revision 3451)
@@ -0,0 +1,288 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Init.AtStartUp
+ Init.AtStartUp = false;
+ At startup
+ ;init.atstartup@value;
+
+
+ true
+ AXCon = GetSetting("data.navision.connectionstring");
+ Connections
+ ;axcon@value;
+
+
+
+
+ true
+ Product.Product@options =
+ GetOptions(Product.Product@localname; true; AXCon; "Item";
+ "ItemId"; "="; "0.447.756.1");
+ Retrieve data for Product.Product
+ ;product.product@options;
+
+
+ Product.Product.Product <> ""
+ Product.Product.OmschrijvingNL =
+ GetStringValue(AXCon; "EcoResProductTranslation"; "Description";
+ "Product"; "="; Product.Product.Product;
+ "LanguageID" "="; "nl-be");
+
+Product.Product.OmschrijvingFR =
+ GetStringValue(AXCon; "EcoResProductTranslation"; "Description";
+ "Product"; "="; Product.Product.Product;
+ "LanguageID" "="; "fr");
+ Descriptions
+ ;product.product.omschrijvingnl@value;product.product.omschrijvingfr@value;
+
+
+
+
+ true
+ local double lSumLengths;
+
+index l of Length;
+ lSumLengths = lSumLengths + Length(l).Length;
+end index;
+
+TotalLength = lSumLengths;
+
+ Total length
+ ;totallength@value;
+
+
+ TotalLength > Product.Product.Width
+ "Total length is greater than the product length"
+ Validation1
+ ;
+
+
+
+
+ true
+ ItemId = "9.660.418.5";
+ Item
+ ;itemid@value;
+
+
+ true
+ if ADUConfigVariant.ConfigVariantId == "" then
+ ADUConfigVariant.ConfigVariantId = NewID();
+end if;
+ADUConfigVariant.ItemId = ItemId;
+ADUConfigVariant.EConObjectID = CLng(GetArg("saveas"));
+ADUConfigVariant.ProductName = "Test";
+ ADU Config variant ID
+ ;aduconfigvariant.configvariantid@value;aduconfigvariant.itemid@value;aduconfigvariant.econobjectid@value;aduconfigvariant.productname@value;
+
+
+ true
+ local long lLine;
+local string lID = "";
+
+lLine = RemovePosition(ADUConfigVariant.BOMLine@localname; ADUConfigVariant.BOMLine[1].ID@id; lID);
+
+index l of ADUConfigVariant.BOMLine;
+ ADUConfigVariant.BOMLine(l)@repeat = false;
+ ADUConfigVariant.BOMLine(l).BOMLine = l;
+
+end index;
+ ADU BOM line general
+ ;
+
+
+ true
+ local long lLine;
+local string lID = "GeselecteerdeArtikel";
+
+lLine = AddPosition(ADUConfigVariant.BOMLine@localname; ADUConfigVariant.BOMLine[1].ID@id; lID);
+
+ADUConfigVariant.BOMLine(lLine).ID = lID;
+ADUConfigVariant.BOMLine(lLine).ItemId = Product.Product.ItemId;
+ADUConfigVariant.BOMLine(lLine).BOMQty = 1;
+ Gekozen artikel
+ ;aduconfigvariant.bomline[1].id@value;aduconfigvariant.bomline[1].itemid@value;aduconfigvariant.bomline[1].bomqty@value;
+
+
+ true
+ local long lLine;
+local string lID = "Zaagkosten";
+
+lLine = AddPosition(ADUConfigVariant.BOMLine@localname; ADUConfigVariant.BOMLine[1].ID@id; lID);
+
+ADUConfigVariant.BOMLine(lLine).ID = lID;
+ADUConfigVariant.BOMLine(lLine).ItemId = "9.931.080.17";
+ADUConfigVariant.BOMLine(lLine).BOMQty = Length@length;
+ Zaagkosten
+ ;aduconfigvariant.bomline[1].id@value;aduconfigvariant.bomline[1].itemid@value;aduconfigvariant.bomline[1].bomqty@value;
+
+
+
+
+ true
+ local long lLine;
+local string lID = "";
+
+lLine = RemovePosition(ADUConfigVariant.Description@localname; ADUConfigVariant.Description[1].ID@id; lID);
+
+index l of ADUConfigVariant.Description;
+ ADUConfigVariant.Description(l)@repeat = false;
+
+end index;
+ ADU Descriptions
+ ;
+
+
+ true
+ local long lLine;
+local string lID = "Nederlands";
+
+lLine = AddPosition(ADUConfigVariant.Description@localname; ADUConfigVariant.Description[1].ID@id; lID);
+
+ADUConfigVariant.Description(lLine).ID = lID;
+ADUConfigVariant.Description(lLine).LanguageID = "NL-BE";
+ADUConfigVariant.Description(lLine).Description = "Nederlandse tekst";
+ADUConfigVariant.Description(lLine).Name = Product.Product.ProductName;
+ Nederlands
+ ;aduconfigvariant.description[1].id@value;aduconfigvariant.description[1].languageid@value;aduconfigvariant.description[1].description@value;aduconfigvariant.description[1].name@value;
+
+
+ true
+ local long lLine;
+local string lID = "Frans";
+
+lLine = AddPosition(ADUConfigVariant.Description@localname; ADUConfigVariant.Description[1].ID@id; lID);
+
+ADUConfigVariant.Description(lLine).ID = lID;
+ADUConfigVariant.Description(lLine).LanguageID = "FR-BE";
+ADUConfigVariant.Description(lLine).Description = "Franse tekst";
+ADUConfigVariant.Description(lLine).Name = Product.Product.ProductName;
+ Frans
+ ;aduconfigvariant.description[1].id@value;aduconfigvariant.description[1].languageid@value;aduconfigvariant.description[1].description@value;aduconfigvariant.description[1].name@value;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file