1 BL.PR.GA.TandemBoxRecalc 0 Herberekenen van de Bouwstenen voor TBX-producten spoelbak die antislipmat bevatten. Deze routine kan in drie stappen Added: 30/11/2011 Oproepen via s sc=##class(BL.PR.GA.impl.TandemBoxRecalcBS).RecalcSPTUSASM(1000,1) w sc,! 1 KLNr:%String,Stap:%String %Status Herberekenen van de Bouwstenen voor TBX-producten die Boxcap bevatten. Deze routine kan in drie stappen Added: 22/06/2011 Oproepen via s sc=##class(BL.PR.GA.impl.TandemBoxRecalcBS).RecalcBOXCAP(1000,1) w sc,! 1 KLNr:%String,Stap:%String %Status Herberekenen van de Bouwstenen voor TBX-producten die Dwarsverdelingen bevatten. Deze routine kan in drie stappen Added: 20/01/2011 Oproepen via s sc=##class(BL.PR.GA.impl.TandemBoxRecalcBS).RecalcDWV(1000,1) w sc,! 1 KLNr:%String,Stap:%String %Status Herberekenen van de Bouwstenen voor TBX-producten die "Verlaagde rug" bevatten. Added: 29/10/2010 Oproepen via s sc=##class(BL.PR.GA.impl.TandemBoxRecalcBS).RecalcRSTL(1000,1) w sc,! 1 KLNr:%String,Stap:%String %Status Herberekenen van de Bouwstenen voor TBX-producten die "ZIF intivo" bevatten. Added: 21/09/2010 Oproepen via s sc=##class(BL.PR.GA.impl.TandemBoxRecalcBS).RecalcZIFintivo(1000,1) w sc,! 1 KLNr:%String,Stap:%String %Status Herberekenen van de Bouwstenen voor TBX-producten die een ANTISLIPMAT bevatten. Added: 04/06/2010 Oproepen via s sc=##class(BL.PR.GA.impl.TandemBoxRecalcBS).RecalcASM(1000,1) w sc,! 1 KLNr:%String,Stap:%String %Status Herrekenen van de producten arProd als .local doorgeven Beperken tot de TBox-producten (spoelbak) met antislipmatten "PRTUSASMROL" (Added by WimV on 30/11/2011) %Boolean Beperken tot de TBox-producten met Boxcap (Added by WimV on 22/06/2011) %Boolean Beperken tot de TBox-producten met Dwarsverdelingen (Added by WimV on 21/01/2011) %Boolean 0) 0 Set DS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DS")) ; Design Set RK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RK")) ; RelingKleur Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC")) ; LadeCode ;d WL^vhDBG("DS: "_DS_" RH: "_RH) ;Quit:($$$Not((DS?1(1"WI",1"ZI",1"GI",1"II"))&&(RH?1(1"D",1"C")))) 0 // Selectie verder te beperken, wanneer slechts gedeeltelijke omschakeling naar nieuwe producten // Bijvoorbeeld : enkel MG, SW en TS omzetten Set blnOK=1 ; $$$Not((RK?1(1"NI",1"CR",1"WI"))&&(1=1)) Set LadeInfo=LC_";"_DS_";"_RK_";" d:(blnOK) WL^vhDBG("LadeInfo: "_LadeInfo) Quit blnOK ]]> Beperken tot de TBox-producten met Verlaagde ruggen (met/zonder hoge sifonlades) (Added by WimV on 29/10/2010) %Boolean Beperken tot de TBox-producten met ZIF intivo (D of C - binnenlade) (Added by WimV on 21/09/2010) %Boolean Beperken tot de TBox-producten met antislipmatten (Added by WimV on 04/06/2010) %Boolean 500) ; bouwstenen van dit product herberekenen ? CONDITIE hangt af welke matten (kleur/afmeting) omgezet worden naar AGO Set blnOK=(DS'?1(1"AS",1"AI")) ; bouwstenen van dit product herberekenen ? ;Quit:(KLAS?1(1"SP2")) 0 ; spoelbakken voorlopig effe skippen (Added by WimV on 04/06/2010) Set LadeInfo=ASM_";"_LD_";"_LC_";" Quit blnOK ]]> %Boolean