Index: BL/PR/GA/TandemBox.cls.xml =================================================================== diff -u -r484 -r507 --- BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 484) +++ BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 507) @@ -1,9 +1,7 @@ - PRGACNTs,BL.EC.Common -0 BL.Lib.BaseObj 0 @@ -13,34 +11,29 @@ %String - %Library.String 1 1 - %Library.String 1 1 - %Library.String array - %Library.String 1 1 - @@ -51,7 +44,6 @@ %Library.String 1 1 - @@ -119,7 +111,7 @@ Quit $LB("TBDesign","TBKlasse","TBGlijderType","TBLadeType","TBZijwand","TBRugHoogte","TBFBevestiging","TBCBreedte","TBWandDikte", "TBSPZijkant","TBLadeDiepte","TBDraagKracht","TBBodemKleur","TBRelingKleur","TBFrontKleur","TBLadeKleur","TBRugKleur", "TBBlumotion","TBBoxSide","TBBoxsideKleur","TBVulstukKleur","TBVulstukMateriaal","TBStabilisator","TBHangMap","TBFrontSteun", - "TBStalenRug","TBMat","TBBinnenGreep","TBDesignCode","TBDwarsVerdeling","TBOndSpecial","TBRugStukVerlaagd","PlaatMat","Verpakking") ; ,"TBSpoelbakKleur" + "TBStalenRug","TBMat","TBBinnenGreep","TBDesignCode","TBDwarsVerdeling","TBOndSpecial","TBRugStukVerlaagd","TBOpvullijstKleur","PlaatMat","Verpakking") ; ,"TBSpoelbakKleur" ]]> @@ -204,6 +196,7 @@ Set tmpAr("TBDwarsVerdeling")= $LB("DWV") Set tmpAr("TBRugStukVerlaagd")=$LB("RSTL") Set tmpAr("TBVulstukMateriaal")=$LB("VSM") + Set tmpAr("TBOpvullijstKleur")=$LB("KLROPVL") Kill %this.LookUp ;New BT @@ -358,7 +351,7 @@ #define lcLT $G(tmpAr(LCodeID,"TBLadeType")) #define lcZW $G(tmpAr(LCodeID,"TBZijwand")) #define lcRH $G(tmpAr(LCodeID,"TBRugHoogte")) - + Kill LCodeArray Kill LCodeID,KMNaam,KMWaarde,tmpAr &SQL(DECLARE crLC3 CURSOR FOR SELECT LadeCode,element_key,TBKenm INTO :LCodeID,:KMNaam,:KMWaarde FROM Prod_GAMeta_BT.LadeCode_TBKenm) @@ -386,6 +379,20 @@ ]]> + + +Oproepen via + s bln=##class(BL.PR.GA.TandemBox).IsGeldigeLadecodeVoorDesign("DM/Z","WA") +1 +LadeCodeID:%String,DesignID:%String +1 +%Boolean + + + Bouwt een array op van de TBDesign-elementen met de BeperkTemplateCode. @@ -506,6 +513,27 @@ ]]> + +1 +1 +%ListOfDataTypes + + + + +1 +Product:Prod.GAData.Product +%ListOfDataTypes +0 { + Do LijstUitsparingAfmetingen.Insert(Product.Val("SPZLI")) + Set SPBR1=Product.Val("SPBR1") + If SPBR1'>0 { + Set SPBR1=Product.Val("SPBR") + } + Do LijstUitsparingAfmetingen.Insert(SPBR1) + + If AantalUitsparingen=2 { + Do LijstUitsparingAfmetingen.Insert(Product.Val("SPRUGMID")) + Set SPBR2=Product.Val("SPBR2") + If SPBR2'>0 { + Set SPBR2=Product.Val("SPBR") + } + Do LijstUitsparingAfmetingen.Insert(SPBR2) + } + + Do LijstUitsparingAfmetingen.Insert(Product.Val("SPZRE")) + } + + Quit LijstUitsparingAfmetingen +]]> + + Geeft de (gebruikers)code van het ORGALUX product terug @@ -744,8 +803,9 @@ Else If ( LadeCode = "DLS2" ) Set SPBinHoogte="M" ; =$S(SPZK="SA":"M",SPZK?1(1"S2",1"B2",1"M"):"M",1:"M") } ElseIf DC?1(1"A") { If ( LadeCode = "MS2" ) Set SPBinHoogte="M" - Else If ( LadeCode = "BS2" ) Set SPBinHoogte="M" + Else If ( LadeCode = "BS2" ) Set SPBinHoogte="M" ; zonder relingen op de binnenzijwanden (zoals intivo DLS2) Else If ( LadeCode = "CMS2" ) Set SPBinHoogte="M" ; zonder relingen op de binnenzijwanden (zoals intivo DLS2) + Else If ( LadeCode = "DMS2" ) Set SPBinHoogte="M" ; zonder relingen op de binnenzijwanden (zoals intivo DLS2) } Quit SPBinHoogte ]]> @@ -772,16 +832,83 @@ ]]> + + +Geeft de karton-breedte voor de V1-verpakking +1 +BreedteIntern:%Float,LadeCode:%String,LadeDiepte:%Integer,DesignCode:%String +1 +%Float + + + + + +Geeft de karton-lengte voor de V1-verpakking +1 +LadeCode:%String,BreedteIntern:%Float,DesignCode:%String +1 +%Float + + + + + +Geeft de karton-breedte voor de doos met losse onderdelen bij V1-verpakking +1 +BreedteIntern:%Float,LadeCode:%String,LadeDiepte:%Integer,DesignCode:%String +1 +%Float + + + + + +Geeft de karton-lengte voor de doos met losse onderdelen bij V1-verpakking +1 +LadeCode:%String,DesignCode:%String +1 +%Float + + + + + +Geeft de karton-breedte voor de boxcap bij V1-verpakking +1 +BreedteIntern:%Float,LadeZijkantHoogte:%String,LadeDiepte:%Integer +1 +%Float + + + + + +Geeft de karton-lengte voor de boxcap bij V1-verpakking +1 +LadeZijkantHoogte:%String,Boxside:%String +1 +%Float + + + Geeft de wikkel-lengte voor een tandembox-lade in Probox verpakking 1 -DesignCode:%String,IsBinnenlade:%Boolean,LadeHoogte:%String,LadeBreedte:%Float +DesignCode:%String,LadeType:DOM.PM.enu.TBXLadeType,LadeHoogte:%String,LadeZijkantHoogte:%String,LadeBreedte:%Float 1 %List @@ -801,16 +928,29 @@ Geeft het volume-aandeel voor een tandembox-lade in Probox verpakking 1 -DesignCode:%String,IsBinnenlade:%Boolean,LadeDiepte:%Integer,LadeHoogte:%String,LadeBreedte:%Float +DesignCode:%String,LadeType:DOM.PM.enu.TBXLadeType,LadeDiepte:%Integer,LadeHoogte:%String,LadeZijkantHoogte:%String,LadeBreedte:%Float 1 %Float + + +Voor sommige ladedieptes moeten opvullijsten ingekort worden. +Geeft de in te korten lengte voor opvullijst. +1 +LadeDiepte:%Integer +1 +%Float + + + Geeft de enumeratie van LadeVariant voor de DesignCode (S, I, B, F, MA). @@ -943,13 +1083,10 @@ // Uitzonderingen Set:(LC="MB") LC="M" ; Burolade - ;Set:(BS?1(1"BG")) BS="BD" ; Glazen boxside dan image voor dubbelwandige boxside - ;Set:(LC?1(1"DY",1"DYZ"))&&(BS'?1(1"DR")) BS="DR" ; sifonlade enkel dubbele reling beschikbaar If DC="I" Do ; intivo . Set:(BoxSide?1(1"BK",1"CAP")) BS="CAP" . Set:(BoxSide?1(1"BC",1"BZ",1"COV")) BS="COV" - . ;Set:(LadeCode?1(1"N")) DC="" ; geen aparte beelden voor N lade en MS2 spoelbaklade . If $G(BinnenGreep)="V" Do ; binnenlade met glas (Verre) . . Set BS=BS_"_FG" Else If DC="A" Do ; Dus niet DC="MA" @@ -1011,7 +1148,7 @@ Set BoxSide=$S(LC?1(1"DLS"):"CAP", LC?1(1"DL",1"DLZ",1"CL",1"CLZ",1"DLY",1"DLYZ",1"CLY",1"CLYZ"):"COV", LC?1(1"D"):"ER", 1:"ZR") } ElseIf DC?1(1"A") { ; antaro - Set BoxSide=$S(LC?1(1"CM",1"CMZ",1"CMY",1"CMYZ"):"ER", 1:"ZR") + Set BoxSide=$S(LC?1(1"CM",1"CMZ",1"CMY",1"CMYZ",1"CMS",1"B",1"BS",1"BY",1"DM",1"DMZ",1"DMS",1"DMY",1"DK",1"DKZ"):"ER", 1:"ZR") } Else { Set BoxSide=$S(LC?1(1"DS"):"BD", LC?1(1"D",1"DZ",1"DY",1"DYZ"):"DR", LC?1(1"B",1"BZ",1"BS",1"BY",1"BYZ",1"C",1"CZ"):"ER", 1:"ZR") @@ -1081,7 +1218,7 @@ Set:(WSLn.ItemSB>0 ) tmpLB=tmpLB_$LB("SB",##class(cspBasis.GAProdTBox).WebTextValue("Stabilisator",actTaal,"L")) Set:($$$FScond ) tmpLB=tmpLB_$LB("FS", $$$FCase(##class(Prod.GAMeta.BT.TBFrontSteun).TaalAfhOmsClass("",WSLn.ItemFS,actTaal,,,DC)) ) ; ##class(cspBasis.GAProdTBox).WebTextValue("Frontsteun",actTaal,"L")_": "_WSLn.ItemFS) Set:($$$DWVcond ) tmpLB=tmpLB_$LB("DWV", $$$FCase(##class(Prod.GAMeta.BT.TBDwarsVerdeling).TaalAfhOmsClass("",WSLn.ItemDWV,actTaal,,,DC)) ) ; ##class(cspBasis.GAProdTBox).WebTextValue("Dwarsverdeling",actTaal,"L")_": "_WSLn.ItemDWV) - Set:($L(WSLn.ItemOPVL)) tmpLB=tmpLB_$LB("OPVL",##class(cspBasis.GAProdTBox).WebTextValue("Opvullijst",actTaal,"L")_": "_WSLn.ItemOPVL) + Set:($L(WSLn.ItemOPVL)) tmpLB=tmpLB_$LB("OPVL",##class(cspBasis.GAProdTBox).WebTextValue("Opvullijst",actTaal,"L")_": "_WSLn.ItemOPVL) ; _ ##class(Prod.GAMeta.BT.TBOpvullijstKleur).TaalAfhOmsClass("",WSLn.ItemKLROPVL,actTaal,,,DC) Set:($$$isBulkVPK ) tmpLB=tmpLB_$LB("VPK",##class(cspBasis.GAProdTBox).WebTextValue("VerpakBulk",actTaal,"L")_" - "_##class(cspBasis.GAProdTBox).WebTextValue("VPK_"_WSLn.ItemVPK_"_kort",actTaal,"L")) Set:($IsObject(ActieTeksten)) tmpLB=tmpLB_$LB("ACTIE",ActieTeksten.GetNext("")) ; Moet uitgebreid worden naar alle acties, te overlopen met een iterator (added by WimV on 21/12/2010)