serial KeyCodesCNTs,PRGACNTs,UILibCtrlCNTs Default %Library.TMFormClass 0 cache 0 MApplication document literal initvalue:%String cache 0 MApplication document literal Minimaal toegelaten Interne Breedte voor een lade met Dubbele Blumotion (in mm) 240 Maximaal toegelaten Interne breedte voor een lade (in mm) 1500 Maximaal toegelaten Interne breedte voor een lade (in mm) 1168 Maximumbreedte van een lade die in een VHoss-kast past (=1200- 2x16 mm) 1168 Maximumbreedte van een lade voor Probox is momenteel niet relevant; vandaar 9999mm 9999 Minimaal toegelaten Interne breedte voor een lade (in mm) 155 Minimaal toegelaten breedte van de spoelbakzijstukken voor een lade (in mm) 120 Minimaal toegelaten Interne breedte voor een Spoelbak lade (in mm) 370 Minimaal toegelaten Interne breedte voor een intivo Spoelbak lade (in mm) 411 DEPRECATED : - is vervangen door param "MinimumIBintivoBinL" - MinimumIB gebruiken i.p.v. deze (want waarden zijn toch gelijk) This was modified by WimV on 27/05/2010 modified by WimV on 10/03/2010 (previous value : 212) 155 Minimaal toegelaten breedte voor uitsparing van Spoelbak (in mm) (SPBR) 125 Minimaal toegelaten Interne Breedte voor een intivo binnenlade (in mm) 212 260 Ref naar de global die de defaults bevat voor het sequentieel invoeren van TBox-en. Deze data komt meestal uit ADMIN. %Library.String Structuur : ..FCtrls (Groep, CtrlNaam) = CtrlOref %Library.String 1 1 ..FLookUp (CtrlNaam, "Groep") = GroepNaam
..FLookUp (CtrlNaam, "Type") = CtrlType
..FLookUp (CtrlNaam, "UI") = LinkedCtrlOref ---> bvb.: checkbox gelinked aan een combobox

..FLookUp ("ViaOref", CtrlOref) = CtrlNaam
..FLookUp ("Fixed", CtrlNaam, Propt) = "True"/"False" ]]> %Library.String 1 1 %Library.TMForm %TMLabel %Library.String 1 1 Prod.GAData.Product Prod.GAData.Product %Library.String Array %Library.String 1 %Library.String 0 %Library.String %Library.String BL.PR.GA.TandemBox %TMButton %TMButton %TMButton %TMButton %TMButton %TMButton %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMComboBox %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox %Library.String 0 %Library.Integer %Library.String %TMGroupBox %TMGroupBox %TMGroupBox %TMGroupBox %TMImage %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMListBox %TMPanel %TMPanel %TMEdit %TMEdit %TMEdit %TMEdit %TMMemo %TMEdit %TMEdit %TMButton %TMButton %TMComboBox %TMLabel %TMComboBox %TMComboBox %TMLabel %TMComboBox %TMLabel %TMComboBox %TMComboBox %TMLabel %TMGroupBox %TMLabel %TMLabel %TMListBox %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMShape %TMShape %TMShape initvalue:%String cache 0 %Status document literal Args:%String cache 0 document literal Args:%String cache 0 document literal -1 Do ..txtAantal.SetFocus() Else Do ..cboBoxSide.SetFocus() ;d ..TTrace("BTValues:"_$C(13,10)_$$ArrayToText^vhLib($Name(..blTBox.BTExtent))) /* New Key,Val,tmpValues Set Key="" For Set Val=..blTBox.BTValues.GetNext(.Key) Quit:(Key="") Set tmpValues(Key)=Val d ..TTrace("BTValues:"_$C(13,10)_$$ArrayToText^vhLib("tmpValues")) */ ;End of user code s Args=$lb(Sender) q ;============================================================================= b1cFakeUserInput(ComboOref,Key) ; When Key is omitted, the SelectByKey() is not executed, just simulate OnEnter+OnExit Do ..cboAlgemeenEnter($LB(ComboOref,0)) Do:($D(Key)) ComboOref.SelectByKey(Key) Do ..cboAlgemeenExit($LB(ComboOref)) Quit ]]> cache 0 document literal cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal MetPrijs:%Boolean cache 0 document literal cache 0 document literal CtrlOref:%TMWinControl cache 0 %Library.Boolean document literal OmsCtrl:%String,Params:%List cache 0 document literal cache 0 document literal Args:%String cache 0 document literal 0) COS.%Close() If $L(..WBrCheckDigits) Kill:(..WBrCheckDigits=$P($G(^Hulp(..WBrKey,"I")),"\",1)) ^Hulp(..WBrKey) Else Kill ^Hulp(..WBrKey) If ..frmView Do . Do ..frmView.tvProduct.CloseProgram() . Do ..frmView.Form.Close() . Do ..frmView.%Close() . Set ..frmView="" If ..frmWBrowser Do . ;Do ..frmWBrowser.ocBrowser.FShellObj.%Close() . Do ..frmWBrowser.Form.Close() . Do ..frmWBrowser.%Close() . Set ..frmWBrowser="" Do ..blTBox.%Close() Do ..TTrace("Close Form"_$C(13,10)) ;End of user code s Args=$lb(Sender,Action) q ]]> Args:%String cache 0 document literal cache 0 document literal chkOref:UI.Lib.Ctrl.TCheckBox,lbBool:%List,NewVal:%Boolean cache 0 document literal ComboOref:UI.Lib.Ctrl.TComboBox,lbIDs:%List cache 0 document literal 1) Do . Do ..CtrlIOComboCheckBox(chkOref,ComboOref,$LB("Value")) Quit ]]> txtOref:%TMEdit,lbIDs:%List cache 0 document literal lbIDs:%List cache 0 document literal Ctrl is de Oref van de Control. ]]> Ctrl:%TMWinControl cache 0 %Library.String document literal NOT IN USE Kenm:%String,KenmGroep:%String="TBX" cache 0 %Library.String document literal lbData format : $LB(RunMode, TemplateID, StartProductID, NewProductID, PRNr, Qty, KLNr, DFLRef)
lbData als .local doorgeven! ]]> cache 0 document literal Groep:%String,arBTCopy:%String,TriggerEvent:%Boolean=1 cache 0 document literal GroepNaam:%String cache 0 %Library.Integer document literal 0), ..cboCBreedte.Visible="True":(..cboCBreedte.SelectedGetKey()'=""), 1:1)) Quit:('bln) . Set bln=($S((..cboSPZijkant.SelectedGetKey()="")&&(..SpoelbakCtrlsInvullen(TBKlas)):0, 1:1)) Quit:('bln) . Set bln=($S((..cboSPZijkant.SelectedGetKey()'="")&&('..SpoelbakCtrlsInvullen(TBKlas)):0, 1:1)) Quit:('bln) . Set bln=($S(($$$SPZkOpMaat(..cboSPZijkant.SelectedGetKey())||(..IsNieuweSifonlade(TBKlas)))&&('$$givSpoelbakMatenVolledig(TBKlas)):0, 1:1)) Quit:('bln) . Set bln=($S(..cboLadeDiepte.SelectedGetKey()="":0, 1:1)) Quit:('bln) . Set bln=($S(..cboDraagKracht.SelectedGetKey()="":0, 1:1)) Quit:('bln) . ; txtCDiepte en txtNutBreedte zijn berekende velden Else If GroepNaam="Kleur" Do Quit bln . Set bln=($S(..cboBodemKleur.SelectedGetKey()="":(..cboBodemKleur.Items.Count=0), 1:1)) Quit:('bln) . Set bln=($S(..cboRelingKleur.SelectedGetKey()="":(..cboRelingKleur.Items.Count=0), 1:1)) Quit:('bln) . Set bln=($S(..cboBoxsideKleur.SelectedGetKey()="":(..cboBoxsideKleur.Items.Count=0), 1:1)) Quit:('bln) . ;Set bln=($S((..cboBoxSide.SelectedGetKey()?1(1"BD",1"BE"))&&(..cboBoxsideKleur.SelectedGetKey()=""):0, 1:1)) Quit:('bln) . Set blnCAPx=((..cboBoxSide.SelectedGetKey()="CAP")&&(..cboLadeType.SelectedGetKey()'="B")) ; bij intivo lade (lees: Niet-Binnenlade) met BoxCap --> VulstukKleur niet vereist. . Set bln=($S(blnCAPx:1, ..cboVulstukKleur.SelectedGetKey()="":(..cboVulstukKleur.Items.Count=0), 1:1)) Quit:('bln) Else If GroepNaam="Acces" Do Quit bln . Set bln=($S(..cboBlumotion.SelectedGetKey()="":0, 1:1)) Quit:('bln) . Set bln=($S((..cboHangMap.SelectedGetKey()="")&&(TBKlas="B"):0, 1:1)) Quit:('bln) . Set bln=($S(..cboAntislipmat.SelectedGetKey()="":0, 1:1)) Quit:('bln) . Set bln=($S((..cboLadeType.SelectedGetKey()?1(1"B",1"X"))&&(..cboBinnenGreep.SelectedGetKey()=""):0, 1:1)) Quit:('bln) . Set bln=($S((..cboDwarsVerdeling.SelectedGetKey()=""):0, 1:1)) Quit:('bln) . Set bln=($S((..cboFrontSteun.SelectedGetKey()=""):0, 1:1)) Quit:('bln) . Set bln=1 Quit 0 givSpoelbakMatenVolledig(Klasse) New BTV,IsVolledig Set BTV=..blTBox.BTValues Set IsVolledig=0 If ..IsNieuweSifonlade(Klasse) { If ($G(..SpoelbakDim("SifonQty"))>1) { Set IsVolledig=(BTV.GetAt("SpoelbakZkLi")>0)&&(BTV.GetAt("SpoelbakZkRe")>0)&&(BTV.GetAt("SpoelbakBreedte1")>0)&&(BTV.GetAt("SpoelbakZkMi")>0)&&(BTV.GetAt("SpoelbakBreedte2")>0) } Else { Set IsVolledig=(BTV.GetAt("SpoelbakZkLi")>0)&&(BTV.GetAt("SpoelbakZkRe")>0)&&(BTV.GetAt("SpoelbakBreedte1")>0) } } Else { If ($G(..SpoelbakDim("SifonQty"))>1) { Set IsVolledig=(BTV.GetAt("SpoelbakZkLi")>0)&&(BTV.GetAt("SpoelbakZkRe")>0)&&(BTV.GetAt("SpoelbakBreedte")>0)&&(BTV.GetAt("SpoelbakZkMi")>0) } Else { Set IsVolledig=(BTV.GetAt("SpoelbakZkLi")>0)&&(BTV.GetAt("SpoelbakZkRe")>0)&&(BTV.GetAt("SpoelbakBreedte")>0) } } Quit IsVolledig ]]> Groep:%String cache 0 document literal BTNaam:%String cache 0 %Library.Boolean document literal BTNaam:%String cache 0 %Library.Boolean document literal De list lbPropts bevat property-namen van de te wijzigen properties. Het spreekt vanzelf dat deze properties moeten overeenkomen in beide controls, met uitzondering van "Value" en "Items". Deze laatste twee worden afzonderlijk behandeld; lbKeys is enkel van toepassing bij propt "Items". ]]> FromOref:%Integer,ToOref:%Integer,lbPropts:%List="",lbKeys:%List cache 0 document literal initvalue:%String cache 0 MApplication document literal cache 0 document literal cache 0 document literal cache 0 document literal cache 0 document literal cache 0 document literal 0:NB, 1:NB) ]]> chkOref:UI.Lib.Ctrl.TCheckBox cache 0 document literal - Eerst kijken of er default via REF is. REF is de naam van een global/local waarin waarden voor de velden reeds gegeven zijn. Bij sequentiële ingave zijn dit de waarden van het vorige/eerste product.
- Indien niet geslaagd via REF of REF is niet gedefinieerd, dan default via UI: mogelijkheden: "K:key" selecteer item via gegeven key, "I:index" selecteer item via gegeven (list)-index, "T:text" selecteer item via gegeven text, "X:code" eXecute de string die bepaald is door code: deze kan bijvoorbeeld de default herzetten naar "K:DR" ]]> ComboOref:UI.Lib.Ctrl.TComboBox cache 0 document literal wijzigen, zodat defaulting dynamisch ; Set Dfl=$S(..blTBox.BTValues.GetAt("TBKlasse")="SP":"K:BD", 1:"") Quit:(ByType'="X") New XecString,Key Set XecString="" Set Key=$P(Dfl,":",2) ;If Key="BS" Set XecString="Set Dfl=$S(..blTBox.BTValues.GetAt(""TBKlasse"")?1(1""SP"",1""SP2"",1""SY"",1""SY2""):""K:BD"", 1:"""")" If Key="BS" Set XecString="Set Dfl=$S(..SpoelbakCtrlsInvullen(..blTBox.BTValues.GetAt(""TBKlasse"")):""K:BD"", 1:"""")" If Key="DWV" Set XecString="Set Dfl=$S(..blTBox.BTValues.GetAt(""TBKlasse"")'=""SP2"":""I:0"", ..blTBox.BTValues.GetAt(""LadeCode"")?1(1""DS2"",1""DS2/Z""):""K:4"", 1:""K:0"")" If Key="BHM" Set XecString="Set Dfl=$S(..blTBox.BTValues.GetAt(""TBKlasse"")=""B"":"""", ..blTBox.BTValues.GetAt(""LadeCode"")?1(1""M""):""K:0"", 1:"""")" ; Boring HangMap: alleen defaulting bij M-lade ;d ..TTrace("Dfl="_Dfl_" Key="_Key_" XcStr="_XecString) Quit:(XecString="") ; Else X XecString Set ByType=$P(Dfl,":",1) Quit ]]> ComboOref:UI.Lib.Ctrl.TComboBox cache 0 document literal -1) Do ..BLRefreshSpecTabs(BTCur) Quit ]]> initvalue:%String cache 0 %Library.Status document literal 0) COS.Form.Show() q $$$OK ; ##class(UI.Lib.Ctrl.TComboBox). ; ##class(UI.Lib.Ctrl.TTreeViewEx2). ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal -1) lbKenm=lbKenm_$LB($LB(BT,Oref.SelectedGetKey())) Quit ]]> txtOref:%TMEdit cache 0 document literal KLNr:%String cache 0 document literal lbData format : $LB(RunMode, TemplateID, StartProductID, NewProductID, PRNr, Qty, KLNr, DFLRef)

RunModes:

$LB($$$rmViewTemplate, TemplateID,,,,Qty)

$LB($$$rmEditTemplate, TemplateID,,,,Qty)

$LB($$$rmNewFromTemplate, TemplateID,,,,Qty)

$LB($$$rmNewFromProduct, , StartProductID,,,Qty)

$LB($$$rmViewProduct, , StartProductID,,,Qty)

$LB($$$rmEditProduct, , StartProductID,,,Qty) ]]> lbData:%List cache 0 %Library.Boolean document literal 0) ; Do nothing, TPCode is OK Else If (TPCode="")&&($LL(lbTPs)=1) Set TPCode=$LI(lbTPs,1) Else Quit 0 Set:($L(TPCode)) TemplateID=$LG(##class(Prod.GAData.Template).IDsViaCode(TPCode),1) Quit:($G(TemplateID)="") 0 Set ..PresetValues("TBDesign")=DSVal Set:($D(@DFLRef@("PRO"))) ..PresetValues("IsPRO")=+@DFLRef@("PRO") Quit 1 prdStartValues Quit:($$prdStartValuesViaDFL) new frmDlgStart,TPCode Set frmDlgStart=##class(UI.PR.GA.dlgTBStartNew).%New($LB(%this.Form.Address,0)) If frmDlgStart.Form.ShowModal()=$$$mrOk Do . ; waarden uitlezen . Set ..PresetValues("TBDesign")=frmDlgStart.cboDesign.SelectedGetKey() . Set ..PresetValues("IsPRO")=(frmDlgStart.chkPRO.Checked="True") . Set TPCode=frmDlgStart.cboTemplateCode.SelectedGetKey() . Set:($L(TPCode)) TemplateID=$LG(##class(Prod.GAData.Template).IDsViaCode(TPCode),1) Else Do . Set StopTBX=1 Do frmDlgStart.Form.Close() Do frmDlgStart.%Close() Set:(TemplateID="") TemplateID=$$prdDefaultTemplID Quit ;----------------------------------------------------------------------------- prdDefaultTemplID() #define TBXBasis "TBXBasis" Quit $LG(##class(Prod.GAData.Template).IDsViaCode($$$TBXBasis),1) ;----------------------------------------------------------------------------- prdOpenTemplate() #define msg "Kan de Template met ID "_TemplateID_" niet vinden." New tmp If TemplateID="" Set tmp=0 Else Set tmp=##class(Prod.GAData.Template).%OpenId(TemplateID) If 'tmp Do . ; display msg . Do MApplication.MessageBox($$$msg,"TandemBOX ingave",$$$MBICONSTOP) Quit tmp ;----------------------------------------------------------------------------- prdBackupProduct(Prod) Quit:('Prod) Set ..ProductBackup=Prod.CopyObject("FullCopy") Quit ]]> Nieuwe waarde vastleggen in de BL en afhankelijke waarden en beperkingen berekenen + refresh BTCur:%String,NewVal:%String,Propg:%Integer cache 0 document literal cache 0 document literal Afhankelijke waarden uit Speciale Tabellen herberekenen en refreshen indien nodig BTCur:%String cache 0 document literal cache 0 document literal Prod:Prod.GAData.Product,blnShowPrijs:%Boolean cache 0 document literal Uitwisselen van gegevens via "lbData" (als .local doorgeven!); lbData format : $LB(RunMode, TemplateID, StartProductID, NewProductID, PRNr, Qty, KLNr, DFLRef)
Geeft de waarde van de ModalResult property terug

RunModes:

$LB($$$rmViewTemplate, TemplateID,,,,Qty) ==> Returned lbData: [onveranderd]

$LB($$$rmEditTemplate, TemplateID,,,,Qty) ==> Returned lbData: [onveranderd]

$LB($$$rmNewFromTemplate, TemplateID,,,,Qty) ==> Returned lbData: $LB($$$rmNewFromTemplate, TemplateID, , NewProductID, PRNr, Qty)

$LB($$$rmNewFromProduct, , StartProductID,,,Qty) ==> Returned lbData: $LB($$$rmNewFromProduct, , StartProductID, NewProductID, PRNr, Qty)

$LB($$$rmViewProduct, , StartProductID,,,Qty) ==> Returned lbData: [onveranderd]

$LB($$$rmEditProduct, , StartProductID,,,Qty) ==> Returned lbData: [onveranderd] ]]> cache 0 %Library.Integer document literal SPZLI:%String,SPZRE:%String,SPBR1:%String,UserLI:%String,UserRE:%String,UserBR1:%String,SifonQty:%String,SPZMI:%String,UserMI:%String,SPBR2:%String,UserBR2:%String cache 0 %Library.Integer document literal 0:%v, 1:"") New Klasse Set Klasse=..cboKlasse.SelectedGetKey() Set AftrekLadeProf=$S(Klasse="SP":"", 1:0) ; "" = Default AftrekLadeProf (75) d WLIP^vhDBG(97,"Klasse ="_Klasse) Set SifonQty=##class(BL.PR.GA.TandemBox).SpoelbakUitsparingen(..cboLadeCode.SelectedGetKey(), ..cboSPZijkant.SelectedGetKey(), Klasse) d WLIP^vhDBG(97,"SifonQty ="_SifonQty) Set:(Klasse'?1(1"SY",1"SY2")) SifonQty=0 Do csmCalcAfmetingen() Do $$$TBoxParameter("SpoelbakZkLi", SPZLI) Do $$$TBoxParameter("SpoelbakZkRe", SPZRE) Do $$$TBoxParameter("SpoelbakZkMi", $S(SifonQty>1:SPZMI, 1:"")) ;d WL^vhDBG("BTValues : "_(..blTBox.BTValues.GetAt("SpoelbakZkMi"))_" SifonQty="_SifonQty_" SPZMI="_SPZMI) Do $$$TBoxParameter("SpoelbakBreedte", SPBR1) Do $$$TBoxParameter("SpoelbakBreedte1", SPBR1) Do $$$TBoxParameter("SpoelbakBreedte2", SPBR2) Quit 1 csmCalcAfmetingen() new IB,sc Set IB=..txtNutBreedte.Text Set UserLI=$G(..SpoelbakDim("SPZLI")) Set UserRE=$G(..SpoelbakDim("SPZRE")) Set UserMI=$G(..SpoelbakDim("SPZMI")) Set SPZLI=UserLI Set SPZRE=UserRE Set SPZMI=UserMI If ..IsNieuweSifonlade(Klasse) Do . ; Geen berekeningen, want alles manueel in te geven in DlgSpoelbak . Set UserBR1=$G(..SpoelbakDim("SPBR1")) . Set UserBR2=$G(..SpoelbakDim("SPBR2")) . Set SPBR1=UserBR1 . Set SPBR2=UserBR2 Else Do . Set UserBR1=$G(..SpoelbakDim("SPBR1")) . Set SPBR1=UserBR1 . If SifonQty>1 Do . . Set UserBR2=UserBR1 . . Set SPBR2=UserBR2 . . ;Set sc=$S(SPZLI+SPBR1+SPZMI+SPBR1+SPZRE=IB:$$$OK, 1:$$$ERROR($$$GeneralError,"Afmetingen dubbele sifonlade incorrect")) . . ;d WL^vhDBG("Dubbele sifon in BLCalc : "_SPZLI_"+"_SPBR1_"+"_SPZMI_"+"_SPBR1_"+"_SPZRE_"="_(SPZLI+SPBR1+SPZMI+SPBR1+SPZRE)_" IB="_IB) . . Set sc=##class(BL.PR.GA.TandemBox).CalcSPBreedtesOpMaat(IB-(SPBR1*2),.SPZLI,.SPZMI,.SPZRE) ; Maten gesimuleerd door IB-2*SPBR1 als ladebreedte te nemen en SPZMI als uitsparing . Else Do . . Set UserBR2=0 . . Set SPBR2=0 . . Set sc=##class(BL.PR.GA.TandemBox).CalcSPBreedtesOpMaat(IB,.SPZLI,.SPBR1,.SPZRE,AftrekLadeProf) Set SPZLI=$$$ValueOrEmpty(SPZLI) Set SPZRE=$$$ValueOrEmpty(SPZRE) Set SPZMI=$$$ValueOrEmpty(SPZMI) Set SPBR1=$$$ValueOrEmpty(SPBR1) Set SPBR2=$$$ValueOrEmpty(SPBR2) Quit ]]> Msg:%String cache 0 document literal Validatie van de groep + toegang wijzigen. CtrlOref moet verwijzen naar een groep (GroupBox) of naar een bepalende control in een GroupBox. CtrlOref:%Integer cache 0 document literal "L") : alleen de eerstvolgende groep wordt ge-enabled. ]]> GroepNaam:%String cache 0 document literal 0) p ; Else Groepnaam niet rechtstreeks gevonden; is waarschijnlijk in $LB(,,) For q=1:1:$LL(lbGroepen) Set:($LF($LI(lbGroepen,q),GroepNaam)>0) p=q Quit:(p>0) Quit p ;----------------------------------------------------------------------------- tsqToegangBplList(lbGrp) ; lbGrp: ListBuild omdat meerdere groepen eventueel kunnen samengenomen worden. ; bevat dus meestal slechts één element. New Toegang,j Set Toegang=1 For j=1:1:$LL(lbGrp) Do:('..BLGroepIsVolledig($LI(lbGrp,j))) Quit:(Toegang=0) . Set Toegang=0 Quit Toegang ;----------------------------------------------------------------------------- tsqToegangWzgList(lbGrp,blnToegang) New j,GrpOref For j=1:1:$LL(lbGrp) Do . Set GrpOref=$S($L($LG(lbGrp,j)):..FCtrls($LI(lbGrp,j),$LI(lbGrp,j)), 1:0) . Do ..BLToegangWijzigen(GrpOref,$S(blnToegang=0:"False", 1:"True"),0) Quit ]]> parameter: Enabled: "True"/"False"
parameter: blnForce=1 : de method wordt sowieso uitgevoerd, ook als de property Enabled reeds gelijk is aan de doorgegeven parameter Enabled (Default: 0) ]]> Ctrl:%TMWinControl,Enabled:%Boolean,blnForce:%Integer=0 cache 0 document literal wordt overruled als de node bestaat. . If ..FLookUp(BT,"Type")="chkVH1" Do ..FCtrls(Groep,BT).SetEnabled(tmpEnabled) . Else Set ..FCtrls(Groep,BT).Enabled=tmpEnabled . Do:(..CtrlHasLinkedChk(BT)) ..FLookUp(BT,"UI").SetEnabled(tmpEnabled) Quit ;----------------------------------------------------------------------------- wztButtons Set ..btnOpties.Enabled=Enabled Set ..btnToonBox.Enabled=Enabled Set ..btnXMLView.Enabled=Enabled Set ..btnAanmaken.Enabled=Enabled Set ..txtAantal.Enabled=Enabled Set ..lblAantalTxt.Enabled=Enabled Quit ]]> cache 0 document literal cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal 0)&&(..txtNutBreedte.Text< ..#BlumotionMinIB) Do Quit 0 . Set msg="Voor Blumotion ""Beide"" is de nuttige (interne) breedte minimum "_..#BlumotionMinIB_" mm." Else If (..cboBlumotion.SelectedGetKey()="T")&&(..txtNutBreedte.Text>0)&&(..txtNutBreedte.Text< ..#TiponMinIB) Do Quit 0 . Set msg="Voor TIP-ON is de nuttige (interne) breedte minimum "_..#TiponMinIB_" mm." ; Else Quit 1 ]]> cache 0 %Library.Boolean document literal ..#MaximumIB) Do Quit 0 . Set msg="De nuttige (interne) breedte van de"_$S(DC="I":" "_"intivo"_" ", 1:" ")_$S(blnBinL:"binnen-",1:"")_"lade moet minimum "_MinIB_" mm en maximum "_..#MaximumIB_" mm zijn." ; Else If (blnBinL)&&(+..txtNutBreedte.Text>..#MaximumIBBinL) Do Quit 0 . Set msg="De nuttige (interne) breedte van de binnenlade mag maximum "_..#MaximumIBBinL_" mm zijn." ; Else If (..SpoelbakCtrlsInvullen(..cboKlasse.SelectedGetKey()))&&(+..txtNutBreedte.Text<..#MinimumIBSP) Do Quit 0 . Set msg="De nuttige (interne) breedte van de spoelbaklade moet minimum "_..#MinimumIBSP_" mm zijn." ; Else If (DC="I")&&(..cboKlasse.SelectedGetKey()?1(1"SP2"))&&(+..txtNutBreedte.Text<..#MinimumIBSPintivo) Do Quit 0 . Set msg="De nuttige (interne) breedte van de intivo spoelbaklade moet minimum "_..#MinimumIBSPintivo_" mm zijn." ; Else Quit 1 ]]> cache 0 %Library.Boolean document literal ..#MaximumIBVHoss) Do Quit 0 . Set msg="Voor de VHoss-kasten kan de (interne) breedte van een lade maximaal "_..#MaximumIBVHoss_" mm bedragen." . Set msg=msg_$$$CRLF_"Kies een andere verpakking voor deze lade via het 'Opties' scherm." If (..blTBox.BTValues.GetAt("Verpakking")?1(1"X",1"Y"))&&(+..txtNutBreedte.Text>..#MaximumIBProbox) Do Quit 0 . Set msg="Voor Probox-verpakking kan de (interne) breedte van een lade maximaal "_..#MaximumIBProbox_" mm bedragen." . Set msg=msg_$$$CRLF_"Kies een andere verpakking voor deze lade via het 'Opties' scherm." Quit 1 ]]> cache 0 %Library.Boolean document literal NietMee-opties automatisch aangevinkt) New blnBoxside Set msg="" Quit:(..cboLadeType.SelectedGetKey()'?1(1"B",1"X")) 1 ; is geen binnenlade Quit:(..cboBoxSide.SelectedGetKey()="ZR") 1 ; is zonder reling/boxside Set blnBoxside=(..cboBoxSide.SelectedGetKey()'?1(1"ER",1"DR",1"VR")) ; Binnenlade met Boxside If (blnBoxside) && ((..blTBox.BTValues.GetAt("NMZijReling")=1)||(..blTBox.BTValues.GetAt("NMBoxSide")=1)) Do Quit 0 . Set msg="De relingen/boxsides van de binnenlade worden niet meegeleverd." ; Else : Binnenlade met reling, zonder Boxside If ('blnBoxside) && (..blTBox.BTValues.GetAt("NMZijReling")=1) Do Quit 0 . Set msg="De relingen van de binnenlade worden niet meegeleverd." Quit 1 ]]> cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal cache 0 document literal ") Else Do . If SifonQty>1 Do . . Set txtItemMid="Mid : "_SPZMI_$S(UserMI>0:" (*)",1:"") . Else If SifonQty=1 Do . . Set txtItemMid="Sifon : "_SPBR1_$S(UserBR1>0:" (*)",1:"") . Else Do . . Set txtItemMid="SpB : "_SPBR1_$S(UserBR1>0:" (*)",1:"") . . Set ..lstSP2BreedtesOpMaat.Font.Color=$$$clWindowText . ;Set ..lstSP2BreedtesOpMaat.Font.Style="" . Do ..lstSP2BreedtesOpMaat.Items.Add("Li : "_SPZLI_$S(UserLI>0:" (*)",1:"")) . Do ..lstSP2BreedtesOpMaat.Items.Add(txtItemMid) . Do ..lstSP2BreedtesOpMaat.Items.Add("Re : "_SPZRE_$S(UserRE>0:" (*)",1:"")) Set ..lstSP2BreedtesOpMaat.ItemIndex=-1 Quit ]]> Args:%String cache 0 document literal 0) ]]> VerpakID:%String,strNietMee:%String cache 0 document literal Args:%String cache 0 document literal LadeCode:%String,BoxSide:%String,Design:%String,blnRetryBSdefault:%Integer=0,BinnenGreep:%String,SPZK:%String cache 0 document literal Klasse cache 0 %Library.Boolean document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Zie method AppShowWithParams() cache 0 %Library.Integer document literal TBKlasse:%String cache 0 %Library.Boolean document literal Args:%String cache 0 document literal 0)&&($LF(Shift,$$$ssAlt)>0) Quit:('..BLConsistencyCheck()) Quit:('..BLUpdateFinal()) 0 Set IsValid=..BLCompleteProduct() ;q:(..chkPRO.Checked="True")&&(IsValid) ; To test products on errors. Do ..AppShowInTreeView(..Product,blnShowPrijs) ;new TotKost ;Set TotKost=..Product.Cumuls("KPrijs") ;d ..TTrace("Totale prijs van de Greep: "_$J(TotKost,0,2)_" EUR") ;End of user code s Args=$lb(Sender,Button,Shift,X,Y) q ]]> Args:%String cache 0 document literal 1) blnSymm=0 } Set frmDlgSpoelbak.blnSyfonLade=(..cboKlasse.SelectedGetKey()="SY") Set frmDlgSpoelbak.blnIsNieuweSifonlade=(IsNieuweSifonlade) Set frmDlgSpoelbak.lblNuttigeBreedte.Caption=..txtNutBreedte.Text Set frmDlgSpoelbak.chkSymm.Checked=$S(blnSymm:"True", 1:"False") Set frmDlgSpoelbak.IsUitsparingBreedteFixed=(frmDlgSpoelbak.blnSyfonLade) || (IsNieuweSifonlade && $$$Not($$$NieuweSifonladeOpMaat(..cboSPZijkant.SelectedGetKey()))) Set frmDlgSpoelbak.txtSPZLI.Text=SPZLI Set frmDlgSpoelbak.txtSPZRE.Text=SPZRE Set frmDlgSpoelbak.txtSPBR1.Text=SPBR1 Set frmDlgSpoelbak.lblSPZLI.Caption=..blTBox.BTValues.GetAt("SpoelbakZkLi") Set frmDlgSpoelbak.lblSPZRE.Caption=..blTBox.BTValues.GetAt("SpoelbakZkRe") Set frmDlgSpoelbak.lblSPBR1.Caption=..blTBox.BTValues.GetAt("SpoelbakBreedte"_$S(IsNieuweSifonlade:"1", 1:"")) Set frmDlgSpoelbak.lblSifonQty.Caption=SifonQty If SifonQty>1 Do ; Dubbele sifonlade . Set frmDlgSpoelbak.txtSPZMI.Text=SPZMI . Set frmDlgSpoelbak.txtSPBR2.Text=SPBR2 . Set frmDlgSpoelbak.lblSPZMI.Caption=..blTBox.BTValues.GetAt("SpoelbakZkMi") . Set frmDlgSpoelbak.lblSPBR2.Caption=..blTBox.BTValues.GetAt("SpoelbakBreedte"_$S(IsNieuweSifonlade:"2", 1:"")) Quit ;----------------------------------------------------------------------------- spbGetFromDlg New SPZLI,SPZRE,SPBR Set ..SpoelbakDim("SPZLI")=frmDlgSpoelbak.txtSPZLI.Text Set ..SpoelbakDim("SPZRE")=frmDlgSpoelbak.txtSPZRE.Text Set ..SpoelbakDim("SPZMI")=frmDlgSpoelbak.txtSPZMI.Text Set ..SpoelbakDim("SPBR1")=frmDlgSpoelbak.txtSPBR1.Text Set ..SpoelbakDim("SPBR2")=frmDlgSpoelbak.txtSPBR2.Text If $G(..SpoelbakDim("SifonQty"))=1 { Set ..SpoelbakDim("SPBR2")=0 } Else { Set ..SpoelbakDim("SPBR2")=frmDlgSpoelbak.txtSPBR2.Text } Do ..CtrlFillSP2BreedtesOpMaatLst() Quit ;----------------------------------------------------------------------------- ]]> Args:%String cache 0 document literal "http://192.168.1.67/csp/admin1/PRGAProduct.csp?KEY="_Key_"&CHK="_CheckDigits Do ..frmWBrowser.ocBrowser.Navigate(URL) Do ..frmWBrowser.Form.Show() Quit ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal -1) ..blTBox.BTValues.SetAt(Sender.SelectedGetKey(),BTCur) ;Do ..OnComboExit(..cboBoxSide) Do ..EventAllBTChangeItem(.Args) Do ..cboKleurChangeItem($LB(..cboBoxsideKleur,)) Do ..CtrlShowLadeImage(,..cboBoxSide.SelectedGetKey(),) ;End of user code s Args=$lb(Sender,PrevIndex) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal -1) ..cboLadeCode.SetFocus() ;End of user code s Args=$lb(Sender,Key,Shift) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal -1) lckFocusNextCtrl ;End of user code s Args=$lb(Sender,Key,Shift) q ;============================================================================= lckFocusNextCtrl Quit:(..cboLadeCode.Focused()="False") If ..cboBoxSide.ItemIndex=-1 Do Quit . Do lckSafeSetFocus(..cboBoxSide) If ..cboKlasse.ItemIndex=-1 Do Quit . Do lckSafeSetFocus(..cboKlasse) If ..cboGlijderType.ItemIndex=-1 Do Quit . Do lckSafeSetFocus(..cboGlijderType) If ..cboLadeType.ItemIndex=-1 Do Quit . Do lckSafeSetFocus(..cboLadeType) If ..cboZijwand.ItemIndex=-1 Do Quit . Do lckSafeSetFocus(..cboZijwand) If ..cboRugHoogte.ItemIndex=-1 Do Quit . Do lckSafeSetFocus(..cboRugHoogte) Do lckSafeSetFocus(..cboFBevestiging) Quit lckSafeSetFocus(ctlToFocus) If (ctlToFocus.Enabled="True")&&(ctlToFocus.Visible="True") Do Quit 1 . Do ctlToFocus.SetFocus() ;Else Quit 0 Quit 0 ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 0) Do . Set SPBR=objSP.Parameters.GetAt("SPBR") . If $L(SPBR,";")>1 Do . . Set SPBR1=$P(SPBR,";",1) . . Set SPBR2=$P(SPBR,";",2) . Else Do . . Set SPBR1=SPBR . . Set SPBR2="" Else Do . Set SPZLI=objSP.Parameters.GetAt("ZKLI") . Set SPZRE=objSP.Parameters.GetAt("ZKRE") Set objSP="" d WLIP^vhDBG(97,"SPBR "_$G(SPBR1)_" ; "_$G(SPBR2)) Quit ]]> Args:%String cache 0 document literal -1) ..blTBox.BTValues.SetAt(Sender.SelectedGetKey(),BTCur) Do ..EventAllBTChangeItem(.Args) ;End of user code s Args=$lb(Sender,PrevIndex) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 0)||(..txtOpvulLijstRe.Text>0) #define msg "Stabilisator kan niet in combinatie met een ""Opvullijst""." If ($$$OpvulLijst)&&(..chkStabilisator.Checked="True") Do Quit . Do:(..CtrlUserAction(Sender)) MApplication.MessageBox($$$msg,"conflict",$$$MBICONEXCLAMATION) . Set ..chkStabilisator.Checked="False" ; Else Do ..EventAllBTChangeItem(.Args) Do ..OnCheckboxExit(Sender) ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal -1) Do ..BLRefreshSpecTabs(BTCur) Quit ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal W") #define msg "Een ""Opvullijst"" kan niet in combinatie met Stabilisator." If $$$TRIM(Sender.Text)="" Do . Set Sender.Text="0" Else If ..chkStabilisator.Checked="True" Do . Do MApplication.MessageBox($$$msg, "Conflict", $$$MBICONEXCLAMATION) . Set Sender.Text="0" If $IsValidNum(Sender.Text) Do . Do ..OnTextboxExit(Sender) . Set:(Sender.Text=0) Sender.Text="" ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal %Library.CacheSerialState "%Library.TMFormClass" Address Form Button1 Memo1 blTBox btnAanmaken btnCancel btnOpties btnToonBox cboBodemKleur cboCBreedte cboDesign cboDraagKracht cboFBevestiging cboGlijderType cboLadeDiepte cboLadeType cboRelingKleur cboRugHoogte cboWandDikte cboZijwand chkBlumMotion chkBoxSide chkFrontSteun chkPRO chkStabilisator chkStalenRug grpAcces grpAfmetingen grpBasis grpKleur lstImages pnlMain txtCDiepte txtNutBreedte zzLabel1 zzLabel10 zzLabel11 zzLabel12 zzLabel13 zzLabel14 zzLabel2 zzLabel3 zzLabel4 zzLabel5 zzLabel6 zzLabel7 zzLabel8 zzLabel9 btnAllesWissen pnlButtons btnTerug chkBlumotion cboBoxSide cboStalenRug cboVerpakking flgForceChangeItem Edit1 Product RunMode txtCBreedte txtOpmerkingen ProductBackup txtOpvulLijstLI txtOpvulLijstRE zzLabel15 txtOpvulLijstLi txtOpvulLijstRe Label1 Label2 Label3 cboFrontKleur cboLadeKleur cboRugKleur zzButton1 zzLabel16 zzLabel17 zzLabel18 Label4 Label5 Label6 StandAlone lblAndereKleuren ComboBox1 lblBoxsideKleur cboBoxsideKleur Shape1 Shape2 zzLabel19 cboLadeCode btnTestXML frmView frmWBrowser WBrCheckDigits WBrKey btnXMLView txtAantal zzLabel20 Image1 PaintBox1 Shape3 imgLade lblNutBreedte chkMinTolerantie cboBlumotion zzLabel21 zzShape1 zzShape2 zzShape3 lblAantalTxt chkAntislipmat DFLRef cboKlasse chkHangMap cboSPZijkant cboHangMap zzLabel22 zzLabel23 zzLabel24 ListBox1 lstSPBreedteInfo lblOpvulLijstTxt lblSPZijkantCbo cboAntislipmat cboBinnenGreep zzLabel25 cboDwarsVerdeling cboFrontSteun zzLabel26 btnButton1 zzShape4 btnSPZijkantOpMaat lstSP2BreedtesOpMaat cboRugStukVerlaagd lblVerpakInfo zzLabel27 zzLabel28 cboVulstukKleur grpMainFake