serial
KeyCodesCNTs,PRGACNTs,UILibCtrlCNTs
Default
%Library.TMFormClass
62144,41634.722483
62144,41093
0
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
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()="")&&(TBKlas?1(1"SP",1"SP2",1"SY")):0, 1:1)) Quit:('bln)
. Set bln=($S((..cboSPZijkant.SelectedGetKey()'="")&&(TBKlas'?1(1"SP",1"SP2",1"SY")):0, 1:1)) Quit:('bln)
. Set bln=($S($$$SPZkOpMaat(..cboSPZijkant.SelectedGetKey())&&('$$givSpoelbakMatenVolledig()):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()
New BTV
Set BTV=..blTBox.BTValues
Quit:($G(..SpoelbakDim("SifonQty"))>1) (BTV.GetAt("SpoelbakZkLi")>0)&&(BTV.GetAt("SpoelbakZkRe")>0)&&(BTV.GetAt("SpoelbakBreedte")>0)&&(BTV.GetAt("SpoelbakZkMi")>0)
Quit (BTV.GetAt("SpoelbakZkLi")>0)&&(BTV.GetAt("SpoelbakZkRe")>0)&&(BTV.GetAt("SpoelbakBreedte")>0)
]]>
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""):""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,SPBR:%String,UserLI:%String,UserRE:%String,UserBR:%String,SifonQty:%String,SPZMI:%String,UserMI:%String
cache
0
%Library.Integer
document
literal
0:%v, 1:"")
New Klasse
Set AftrekLadeProf=$S(..cboKlasse.SelectedGetKey()="SP":"", 1:0) ; "" = Default AftrekLadeProf (75)
Set SifonQty=##class(BL.PR.GA.TandemBox).SpoelbakUitsparingen(..cboLadeCode.SelectedGetKey(), ..cboSPZijkant.SelectedGetKey(), .Klasse)
Set:(Klasse'?1(1"SY")) 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", SPBR)
Quit 1
csmCalcAfmetingen()
new IB,scSPBR
Set IB=..txtNutBreedte.Text
Set UserLI=$G(..SpoelbakDim("SPZLI"))
Set UserRE=$G(..SpoelbakDim("SPZRE"))
Set UserMI=$G(..SpoelbakDim("SPZMI"))
Set UserBR=$G(..SpoelbakDim("SPBR"))
Set SPZLI=UserLI
Set SPZRE=UserRE
Set SPZMI=UserMI
Set SPBR=UserBR
If SifonQty>1 Do
. ;Set scSPBR=$S(SPZLI+SPBR+SPZMI+SPBR+SPZRE=IB:$$$OK, 1:$$$ERROR($$$GeneralError,"Afmetingen dubbele sifonlade incorrect"))
. ;d WL^vhDBG("Dubbele sifon in BLCalc : "_SPZLI_"+"_SPBR_"+"_SPZMI_"+"_SPBR_"+"_SPZRE_"="_(SPZLI+SPBR+SPZMI+SPBR+SPZRE)_" IB="_IB)
. ;Set sc=scSPBR
. Set sc=##class(BL.PR.GA.TandemBox).CalcSPBreedtesOpMaat(IB-(SPBR*2),.SPZLI,.SPZMI,.SPZRE) ; Maten gesimuleerd door IB-2*SPBR als ladebreedte te nemen en SPZMI als uitsparing
Else Do
. Set sc=##class(BL.PR.GA.TandemBox).CalcSPBreedtesOpMaat(IB,.SPZLI,.SPBR,.SPZRE,AftrekLadeProf)
Set SPZLI=$$$ValueOrEmpty(SPZLI)
Set SPZRE=$$$ValueOrEmpty(SPZRE)
Set SPZMI=$$$ValueOrEmpty(SPZMI)
Set SPBR=$$$ValueOrEmpty(SPBR)
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 (..cboKlasse.SelectedGetKey()?1(1"SP",1"SP2",1"SY"))&&(+..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."
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 : "_SPBR_$S(UserBR>0:" (*)",1:"")
. Else Do
. . Set txtItemMid="SpB : "_SPBR_$S(UserBR>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
cache
0
MApplication
document
literal
initvalue:%String
cache
0
MApplication
document
literal
Args:%String
cache
0
document
literal
Args:%String
cache
0
document
literal
Zie method AppShowWithParams()
cache
0
%Library.Integer
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.chkSymm.Checked=$S(blnSymm:"True", 1:"False")
Set frmDlgSpoelbak.lblSPZLI.Caption=..blTBox.BTValues.GetAt("SpoelbakZkLi")
Set frmDlgSpoelbak.lblSPZRE.Caption=..blTBox.BTValues.GetAt("SpoelbakZkRe")
Set frmDlgSpoelbak.lblSPBR.Caption=..blTBox.BTValues.GetAt("SpoelbakBreedte")
Set frmDlgSpoelbak.lblSifonQty.Caption=SifonQty
If SifonQty>1 Do ; Dubbele sifonlade
. Set frmDlgSpoelbak.txtSPZMI.Text=SPZMI
. Set frmDlgSpoelbak.txtSPBR2.Text=SPBR
. Set frmDlgSpoelbak.lblSPZMI.Caption=..blTBox.BTValues.GetAt("SpoelbakZkMi")
. Set frmDlgSpoelbak.lblSPBR2.Caption=..blTBox.BTValues.GetAt("SpoelbakBreedte")
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("SPBR")=frmDlgSpoelbak.txtSPBR.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
1) Do
. Do ..cboRelingKleur.SetIndex(0)
;End of user code
s Args=$lb(Sender)
q
]]>
Args:%String
cache
0
document
literal
Args:%String
cache
0
document
literal
0) Do
. Set SPRB=objSP.Parameters.GetAt("SPBR")
Else Do
. Set SPZLI=objSP.Parameters.GetAt("ZKLI")
. Set SPZRE=objSP.Parameters.GetAt("ZKRE")
Set objSP=""
Quit
]]>
Args:%String
cache
0
document
literal
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
W")
;Set:($$$TRIM(Sender.Text)="") 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
]]>
%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