serial Default %Library.TMFormClass 0 %Library.TMForm %Library.String %Library.Boolean 0 %Library.String %TMButton %TMButton %TMCheckBox %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel initvalue:%String cache 0 %Status document literal Sender:%RegisteredObject cache 0 document literal 0)&&(..txtSPZRE.Text>0)&&(..txtSPBR1.Text>0)) . . Do $$$SetCtrlLayout02(..txtSPZLI) . . Do $$$SetCtrlLayout02(..txtSPZRE) . . Do $$$SetCtrlLayout02(..txtSPBR1) . If SifonQty=2 Do . . Set ..lblSPZMI.Caption="" . . Do $$$SetCtrlLayout02(..txtSPZMI) . . ;Do $$$SetCtrlLayout01(..txtSPBR2) Quit clmSetCtrlLayout(Ctrl, blnAllowReset, blnGrayed, blnFontRed) Quit:(..blnSyfonLade || ..blnIsNieuweSifonlade)&&(Ctrl.ReadOnly="True") New FontColor Set:($D(blnFontRed)) FontColor=$S(blnFontRed:$$$clRed, 1:$$$clWindowText) Set:($L($G(FontColor))) Ctrl.Font.Color=FontColor If blnGrayed Do . Set Ctrl.Color=$$$clLtGray . Set:($G(blnAllowReset)) Ctrl.Text="" Else Do . Set Ctrl.Color=$$$clWindow Quit clmCalcMaten() #define ValueOrEmpty(%v) $S($G(%v)>0:%v, 1:"") New IB,tmpLI,tmpRE,tmpBR,tmpMI,sc Set IB=..lblNuttigeBreedte.Caption ;Quit:(IB'>0) Set tmpLI=..txtSPZLI.Text Set tmpRE=..txtSPZRE.Text Set tmpBR=..txtSPBR1.Text Quit:(tmpLI>0)&&(tmpRE>0)&&(tmpBR>0)&&(SifonQty'=2) ; alle drie gedefinieerd : no calc! If (..chkSymm.Checked="True") Quit:((tmpLI>0)&&(tmpRE>0))||((tmpLI>0)&&(tmpBR>0))||((tmpRE>0)&&(tmpBR>0)) If SifonQty=2 Do . Set tmpMI=..txtSPZMI.Text . Set tmpBR2=..txtSPBR2.Text . Set sc=##class(BL.PR.GA.TandemBox).CalcSPBreedtesOpMaat(IB-(tmpBR+tmpBR2),.tmpLI,.tmpMI,.tmpRE) ; Maten gesimuleerd door IB-(SPBR+SPBR2) als ladebreedte te nemen en SPZMI als uitsparing . Set ..lblSPZMI.Caption=$$$ValueOrEmpty(tmpMI) . Set ..lblSPBR2.Caption=$$$ValueOrEmpty(tmpBR2) Else Do . Set sc=##class(BL.PR.GA.TandemBox).CalcSPBreedtesOpMaat(IB,.tmpLI,.tmpBR,.tmpRE) Set ..lblSPZLI.Caption=$$$ValueOrEmpty(tmpLI) Set ..lblSPZRE.Caption=$$$ValueOrEmpty(tmpRE) Set ..lblSPBR1.Caption=$$$ValueOrEmpty(tmpBR) Quit ]]> cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal cache 0 document literal cache 0 document literal cache 0 document literal Args:%String cache 0 document literal cache 0 document literal initvalue:%String cache 0 MApplication document literal cache 0 document literal cache 0 %Library.Boolean document literal 0)&&(..txtSPBR1.Text>0)&&(..txtSPZRE.Text>0) . If (..lblSifonQty.Caption=2) Set IsVolledig = (IsVolledig) && ((..txtSPZLI.Text>0)&&(..txtSPZMI.Text>0)&&(..txtSPZRE.Text>0)) ; Else If (..lblSifonQty.Caption=2) Quit (..txtSPZLI.Text>0)&&(..txtSPZMI.Text>0)&&(..txtSPZRE.Text>0) Quit:(..lblSPZLI.Caption="") 0 Quit:(..lblSPZRE.Caption="") 0 Quit:(..lblSPBR1.Caption="") 0 Quit 1 ]]> cache 0 document literal Args:%String cache 0 document literal initvalue:%String cache 0 %Library.Status document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal %Library.CacheSerialState list "%Library.TMFormClass" Address Form btnCancel btnOK cboMatKlant cboStalenRug cboVerpakking chkNietMee1 chkNietMee2 chkNietMee3 chkNietMee4 chkNietMee5 chkNietMee6 chkNietMee7 grpBasis zzLabel1 zzLabel2 zzLabel3 CheckBox1 CheckBox2 chkNietMee8 chkNietMee9 chkNietMee10 NMAnswer chkNietMee11 cboOndSpecial zzLabel4 lblSPBR lblSPZLI lblSPZRE txtSPBR txtSPZLI txtSPZRE chkSymm lblNuttigeBreedte blnSyfonLade lblSPBR2 lblSPZMI txtSPBR2 txtSPZMI zzLabel5 zzLabel6 lblSifonQty zzLabel7 lblSPBR1 txtSPBR1 blnIsNieuweSifonlade IsUitsparingBreedteFixed