PRGACNTs 1 TECH.RegisteredObject 0 cspBasis.GAProdDfls 1 1 AlleenV1Wissen:%Boolean,TeWijzigenHandels:%ListOfDataTypes 1 "_pdlMatenDfl } } } } ]]> %ListOfDataTypes KlantIDs:%ListOfDataTypes verpakking wordt gewijzigd naar '"_Verpakking_"'." Set $$$pcDefaultVPK = Verpakking ; Nieuwe waarde invullen Do ..BewaarMatenDefaults(pdlMatenDfl,DC,DS) Do ..TBoxWebDefaultsBepaler.Close() ; Oldschool :-P } Write !! ]]> KlantID:%String,sDomVERW:APPS.TBXWeb.enu.TBXHandel 1 cspBasis.GAProdDfls DC:%String 1 %String 0 { Set tmpLB = $LI(lbDFL,1) ; alleen het eerste list-item ;Set DC = $LI(tmpLB,1) ;Set DS = $LI(tmpLB,2) Set pdlMatenDfl = $LI(tmpLB,3) } Quit pdlMatenDfl ]]> pdlMatenDfl:%String,DC:%String,DS:%String 1