Index: BL/PPS/KAD/OptiBox.cls.xml =================================================================== diff -u -r1867 -r1961 --- BL/PPS/KAD/OptiBox.cls.xml (.../OptiBox.cls.xml) (revision 1867) +++ BL/PPS/KAD/OptiBox.cls.xml (.../OptiBox.cls.xml) (revision 1961) @@ -247,6 +247,8 @@ 1 PRNr + + +Berekent de nodige lengte van het VFF-karton om een gemonteerde kaderdeur te verpakken. +Parameters in mm doorgeven. Resultaat wordt ook in mm teruggegeven. +Er zijn 4 mogelijke manieren om het kader met het karton te verpakken; + - Case 1 en Case 4 ligt de deur in "Portrait" + - Case 2 en Case 3 ligt de deur in "Landscape" +Afhankelijk van de orientatie en afmetingen van de kaderdeur, zal een andere lengte van het karton berekend worden. +1 +KartonBreedteBrut:%String,LenPMax:%Float,LenPMin:%Float + meest economische situatie + Set NodigeLengte = LenPMin+$$$DubbeleZijflappen + } + Else { + Set BreedteKaderPastOpHalfKarton = ( ((LenPMin*2)+$$$RugPlusVoorflap) <= KartonBreedte ) + Set LengteKaderPastOpKarton = ( (LenPMax+$$$DubbeleZijflappen) <= KartonBreedte ) + + Set:(BreedteKaderPastOpHalfKarton) NodigeLengteCase2 = LenPMax+$$$DubbeleZijflappen ; Case 2 + Set:(LengteKaderPastOpKarton ) NodigeLengteCase3 = (LenPMin*2)+$$$RugPlusVoorflap ; Case 3 + + If BreedteKaderPastOpHalfKarton && LengteKaderPastOpKarton { + Set NodigeLengte = $S(NodigeLengteCase2 welke van de 2 het minste karton vereist (in lopende mmeter) + } + ElseIf BreedteKaderPastOpHalfKarton { + // Case 2. Kader in de breedte is kleiner dan halve breedte van VFF-karton + Set NodigeLengte = NodigeLengteCase2 + } + ElseIf LengteKaderPastOpKarton { + // Case 3. Kader in de lengte is kleiner dan de breedte van VFF-karton + Set NodigeLengte = NodigeLengteCase3 + } + Else { + Set BreedteKaderPastOpKarton = ( (LenPMin+$$$DubbeleZijflappen) <= KartonBreedte ) + If BreedteKaderPastOpKarton { + // Case 4. Kader in de breedte is kleiner dan de breedte van VFF-karton + Set NodigeLengte = (LenPMax*2)+$$$RugPlusVoorflap + } + Else { + // PROBLEEM : Kader past op geen enkele wijze op het karton --> manueel knutselen !!! + Set NodigeLengte=9999999 ; expres heel groot, zodat prijs extreem hoog wordt + } + } + } + + Quit NodigeLengte +]]> + + D ##class(BL.PPS.KAD.OptiBox).CreateMeta() Index: Prod/GADef/KaderDeur/KostPrijs.mac.rou =================================================================== diff -u -r1932 -r1961 --- Prod/GADef/KaderDeur/KostPrijs.mac.rou (.../KostPrijs.mac.rou) (revision 1932) +++ Prod/GADef/KaderDeur/KostPrijs.mac.rou (.../KostPrijs.mac.rou) (revision 1961) @@ -137,7 +137,7 @@ Do tnbSetViaProgLabel("LBSL2","") Do tnbSetViaProgLabel("LBOR","") Do tnbSetViaProgLabel("MON",KadObj.Gemonteerd) - Do tnbSetViaProgLabel("VPK",$$tnbCallbackVerpakking(KadObj.Verpakking,$G(KLNr),$G(blnGADataSchaduw))) + Do tnbSetViaProgLabel("VPK",KadObj.Verpakking) Do tnbSetViaProgLabel("DOSNR",KadObj.Dossier) Set BEF2EUR=1 ; 1/40.3399 Do tnbSetViaProgLabel("PROFKS",KadObj.ProfAfwKostSpecial*BEF2EUR) @@ -164,13 +164,9 @@ Quit:('$IsObject(Item)) $$$ERROR($$$GeneralError,"No Item Object") Set Item.FixedKeys=$LB("Object") ; Temporary set key fixed, else it will be cleared before Re-CalcAll() Quit Item.SetObject(KadObj) - Quit $$$OK + Quit $$$OK -tnbCallbackVerpakking(Verpakking,KLNr,blnSchaduw) - d WLIP^vhDBG(97,"Verpakking="_Verpakking_" KLNr="_KLNr_" blnSchaduw="_blnSchaduw) - Quit Verpakking - // ===================================================================================================== // CALCviaResPiKost : // ---------------- Index: zTryout/WV/PM/KAD/RecalcBS.cls.xml =================================================================== diff -u --- zTryout/WV/PM/KAD/RecalcBS.cls.xml (revision 0) +++ zTryout/WV/PM/KAD/RecalcBS.cls.xml (revision 1961) @@ -0,0 +1,270 @@ + + + +vhLib.Macro,%Prod.Product,BL.Derde.KlantSpecifiek +1 +%RegisteredObject +0 + + + +Oproepen via + d ##class(zTryout.WV.PM.KAD.RecalcBS).RecalcLijstHein() +1 +50) + . + . Set IsHeinKader=($D(^KSTPR(PRNr,$$$KlantHein))) + . Quit:('IsHeinKader) + . + . Set CountKaders=CountKaders+1 + . Set lbData(CountKaders)=$LB(PRNr, VersionIsFilled, IsCommActief, $$$PRGet($$$KortTekst)) + . Write $J(CountKaders,5),". ",PRNr," v="_VersionIsFilled," act="_IsCommActief," "_$$$PRGet($$$KortTekst),! + . + . If ..HeeftKostSpecial(PRNr) Do + . . d WLIP^vhDBG(97,"KOST SPECIAL "_PRNr) + . . + . + . Set VPK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("KAD",PRNr,"VPK"),1) + . If VPK="E" Do WLIP^vhDBG(97,PRNr_" VPK="_VPK) + . + . set:(VersionIsFilled) Cnt("v=1")=$I(Cnt("v=1")) + . set:(IsCommActief ) Cnt("c=1")=$I(Cnt("c=1")) + . set:(IsCommActief ) Cnt("c=1","v="_VersionIsFilled)=$I(Cnt("c=1","v="_VersionIsFilled)) + . set:(IsCommActief=0 ) Cnt("c=0","v="_VersionIsFilled)=$I(Cnt("c=0","v="_VersionIsFilled)) + . ;set:(IsCommActief=0 ) Cnt("c=0","v="_VersionIsFilled,Cnt("c=0","v="_VersionIsFilled))=PRNr + . + . Quit:(PRNr'?1(1"665733")) ; ,1"331191",1"331398")) + . ;Set %IsKlantHein=1 + . Set %SwitchVerpakkingExport=1 + . Do ..RebuildBouwSteenFromWizard(PRNr) + . Set %SwitchVerpakkingExport=0 + . ;Set %IsKlantHein=0 + . + + Write !,$$$ArrayTT("Cnt",.Cnt),!,! + + ;Kill %IsKlantHein + Kill %SwitchVerpakkingExport + + Quit +]]> + + + + +Oproepen via + d ##class(zTryout.WV.PM.KAD.RecalcBS).GeefLijstOudeVerkocht() +1 +329400) + . Quit:('IsCommActief) + . Quit:(VersionIsFilled) + . ;Quit:(CountKaders>50) + . + . Set CountKaders=CountKaders+1 + . Set lbData(CountKaders)=$LB(PRNr, VersionIsFilled, IsCommActief, $$$PRGet($$$KortTekst)) + . Write $J(CountKaders,5),". ",PRNr," v="_VersionIsFilled," act="_IsCommActief," "_$$$PRGet($$$KortTekst),! + . + . Set IsNietActief=($$PROD^STAT(PRNr,0,"2010.09 ","2011.09 ",1)="") + . + . If (IsNietActief)&&(VersionIsFilled=0)&&(IsCommActief) Do + . . Do $$$PRSet($$$NONAktief,1) + . . Set arrKAD("NON-ACT",$I(arrKAD("NON-ACT")))=PRNr + . Else Do + . . Set arrKAD("ACT",$I(arrKAD("ACT")))=PRNr + . + + Write !,$$$ArrayTT("Cnt",.Cnt),!,! + + Write "NON-ACT "_$G(arrKAD("NON-ACT")),! + Write " ACT "_$G(arrKAD("ACT")),! + + Do WLIP^vhDBG(97,$$$ArrayTT("arrKAD(""ACT"")",.arrKAD)) + + Quit +]]> + + + + +Oproepen via + d ##class(zTryout.WV.PM.KAD.RecalcBS).GeefLijstPaketten() +1 +KLNr:%String +329400) + . . Quit:('IsCommActief) + . . ;Quit:(VersionIsFilled) + . . ;Quit:(CountKaders>50) + . . + . . Set CountKaders=CountKaders+1 + . . Set lbData(CountKaders)=$LB(PRNr, VersionIsFilled, IsCommActief, $$$PRGet($$$KortTekst)) + . . Write $J(CountKaders,5),". ",PRNr," v="_VersionIsFilled," act="_IsCommActief," "_$$$PRGet($$$KortTekst),! + . . + . . Set ZetProductActief=0 + . . Set ZetProductNonActief=0 + . . + . . Set IsNietActief=($$PROD^STAT(PRNr,0,"2008.09 ","2011.09 ",1)="") + . . If ..HeeftKostSpecial(PRNr) Do + . . . Set ZetProductActief=0 + . . Else Do + . . . Set ZetProductActief=1 + . . + . . If (ZetProductActief=0)&&(1) Do + . . . ;Do:(ZetProductNonActief) $$$PRSet($$$NONAktief,1) + . . . Set arrKAD("NON-ACT",$I(arrKAD("NON-ACT")))=PRNr + . . Else If (ZetProductActief=1)&&(1) Do + . . . ;Do:(ZetProductActief) $$$PRSet($$$NONAktief,"") + . . . Set arrKAD("SET-ACT",$I(arrKAD("SET-ACT")))=PRNr + . . . ;Do ..RebuildBouwSteenFromWizard(PRNr) + . . Else Do + . . . Set arrKAD("ACT",$I(arrKAD("ACT")))=PRNr + . + + Write !,$$$ArrayTT("Cnt",.Cnt),!,! + + Write "NON-ACT "_$G(arrKAD("NON-ACT")),! + Write "SET-ACT "_$G(arrKAD("SET-ACT")),! + Write " ACT "_$G(arrKAD("ACT")),! + + Do WLIP^vhDBG(97,$$$ArrayTT("arrKAD(""ACT"")",.arrKAD)) + + Quit +]]> + + + +1 +PRNr:%String +0 Do WLIP^vhDBG(97,PRNr_" VulKS="_VulKS) + Set ProfKS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("KAD",PRNr,"PROFKS"),1) + If ProfKS>0 Do WLIP^vhDBG(97,PRNr_" ProfKS="_ProfKS) + Set ConsKS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("KAD",PRNr,"CONSKS"),1) + If ConsKS>0 Do WLIP^vhDBG(97,PRNr_" ConsKS="_ConsKS) + Set Staffel=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("KAD",PRNr,"Staffel"),1) + If Staffel>1 Do WLIP^vhDBG(97,PRNr_" Staffel="_Staffel_" IsNietActief="_$G(IsNietActief)) + + If (VulKS>0)||(ProfKS>0)||(ConsKS>0)||(Staffel>1) Do + . Set HeeftKostSpecial=1 + + Quit HeeftKostSpecial +]]> + + + + +Oproepen via + d ##class(zTryout.WV.PM.KAD.RecalcBS).Do() +1 +329400) + . Quit:('IsCommActief) + . ;Quit:(VersionIsFilled=0) + . ;Quit:(CountKaders>50) + . + . Set VersionBSS=$P($G(^PRBS("BSS",PRNr)),"\",3) + . ;Quit:(VersionBSS?1(1"v1.2.0",1"v1.2.1")) + . Quit:(VersionBSS?1(1"v1.2.1")) + . + . Set CountKaders=CountKaders+1 + . Set lbData(CountKaders)=$LB(PRNr, VersionIsFilled, IsCommActief, $$$PRGet($$$KortTekst)) + . Write $J(CountKaders,5),". ",PRNr," v="_VersionIsFilled," act="_IsCommActief," "_$$$PRGet($$$KortTekst)," BSS:"_VersionBSS,! + . + . set:(VersionIsFilled) Cnt("v=1")=$I(Cnt("v=1")) + . set:(IsCommActief ) Cnt("c=1")=$I(Cnt("c=1")) + . set:(IsCommActief ) Cnt("c=1","v="_VersionIsFilled)=$I(Cnt("c=1","v="_VersionIsFilled)) + . set:(IsCommActief=0 ) Cnt("c=0","v="_VersionIsFilled)=$I(Cnt("c=0","v="_VersionIsFilled)) + . ;set:(IsCommActief=0 ) Cnt("c=0","v="_VersionIsFilled,Cnt("c=0","v="_VersionIsFilled))=PRNr + . + . ;Quit:(PRNr'?1(1"330765",1"331191",1"331398")) + . ;Do ..RebuildBouwSteenFromWizard(PRNr) + + Write !,$$$ArrayTT("Cnt",.Cnt),!,! + + Quit +]]> + + + + + d ##class(zTryout.WV.PM.KAD.RecalcBS).Do() +1 +PRNr:%String +0 + + + + Index: PRBS.mac.rou =================================================================== diff -u -r1932 -r1961 --- PRBS.mac.rou (.../PRBS.mac.rou) (revision 1932) +++ PRBS.mac.rou (.../PRBS.mac.rou) (revision 1961) @@ -432,16 +432,19 @@ Set GENTYP=$P($$GENTYP^HAD(MPRNr),"\") Quit:(GENTYP'?1(1"KAD",1"PRF",1"GLA",1"TBX",1"GRP",1"TLM",1"ASM")) Quit:$D(^PRBS("BS",MPRNr))="" - Quit:$G(NoSa)'="S"&&(GENTYP?1(1"KAD",1"PRF",1"GLA")) ; Kaderdeur is niet mogelijk bij normale prijs Set VersionIsFilled=($P($G(^PRBS("BS",MPRNr)),"\",3)'="") - Set:'VersionIsFilled $P(^PRBS("BS",MPRNr),"\",3)="v9.9.9" ; tijdelijk opzetten om de KPRCreate te kunnen uitvoeren + Quit:('VersionIsFilled)&&($G(NoSa)'="S")&&(GENTYP?1(1"KAD",1"PRF",1"GLA")) ; Kaderdeur zonder PRBS-versie rebuilden is niet mogelijk bij normale prijs (modified by WimV on 01/09/2011) + + Set:'VersionIsFilled $P(^PRBS("BS",MPRNr),"\",3)="v9.9.9" ; tijdelijk opzetten om de KPRCreate te kunnen uitvoeren If $G(NoSa)="S" Do . d WLIP^vhDBG(97,"KPRCreateSchaduwViaPRNr") . Do ##class(Prod.GAData.Product).KPRCreateSchaduwViaPRNr(MPRNr) ; Staffel wordt opgehaald uit de kenmerken . Set:'VersionIsFilled $P(^PRBS("BS",MPRNr),"\",3)="" ; terug wissen Else Do ; Normaal . Do ##class(Prod.GAData.Product).KPRModify(MPRNr,"H",0) ; Staffel wordt opgehaald uit de kenmerken + Quit + ASKSAVE(Input) New OldInput Index: Prod/GADef/KaderDeur.cls.xml =================================================================== diff -u -r1894 -r1961 --- Prod/GADef/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 1894) +++ Prod/GADef/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 1961) @@ -1607,12 +1607,16 @@ %List 10 Do ;Groot aantal .. If ('IsLosProf)&&(..Gemonteerd["V") Do ; Groot aantal en Met vulling ... ; ORIG : If $S(Hoogte>Breedte:Hoogte,1:Breedte)<120&($S(Hoogte>Breedte:Breedte,1:Hoogte)<80) Do ; Groot aantal en Met Vulling en Past op een palet