serial KeyCodesCNTs,PRGACNTs,UILibCtrlCNTs Default %Library.TMFormClass 0 30 %Library.TMForm %Library.String 1 1 Prod.GAData.Product %Library.Integer %Library.String %Library.String 0 %Library.String %Library.String %TMButton %TMButton %TMButton %TMButton %TMButton %TMButton %TMComboBox %Library.Integer %Library.Integer %TMLabel %TMPanel %TMEdit %TMEdit %TMLabel %TMLabel initvalue:%String cache 0 %Status document literal cache 0 document literal lbData format : $LB(RunMode, TemplateID, StartProductID, NewProductID, PRNr, Qty, KLNr)
lbData als .local doorgeven! ]]> cache 0 document literal cache 0 document literal lbData format : $LB(RunMode, TemplateID, StartProductID, NewProductID, PRNr, Qty, KLNr)

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 cache 0 document literal Uitwisselen van gegevens via "lbData" (als .local doorgeven!); lbData format : $LB(RunMode, TemplateID, StartProductID, NewProductID, PRNr, Qty, KLNr)
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 cache 0 document literal cache 0 %Library.Boolean document literal 50:Qty,1:Qty\10*10) ;Qty tussen 1 en 50 in stappen van 10 tnbInvalidPR New msg Set msg=..Product.ValidPRArrayToText(.arValidPR) Do MApplication.MessageBox(msg,"Producten valideren",$$$MBICONEXCLAMATION) d ..TTrace(msg) Quit ]]> cache 0 %Library.Boolean document literal cache 0 document literal cache 0 %Library.Integer document literal 0) Quit:('bln) Set bln=(..txtAantal.Text>0) Quit:('bln) Quit ]]> 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() ;If ..frmWBrowser Do ;. Do ..frmWBrowser.Form.Close() ;. Do ..frmWBrowser.%Close() ;Do ..blTBox.%Close() Do ..TTrace("Close Form"_$C(13,10)) ;End of user code s Args=$lb(Sender,Action) q ]]> cache 0 document literal initvalue:%String cache 0 MApplication document literal cache 0 document literal cache 0 document literal initvalue:%String cache 0 %Library.Status document literal 0) COS.Form.Show() q $$$OK ; ##class(UI.Lib.Ctrl.TComboBox). ; ##class(UI.Lib.Ctrl.TTreeViewEx2) ]]> Uitwisselen van gegevens via "lbData" (als .local doorgeven!); lbData format : $LB(RunMode, TemplateID, StartProductID, NewProductID, PRNr, Qty, KLNr)
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 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. cache 0 document literal parameter: Enabled: "True"/"False" ]]> Enabled:%Boolean cache 0 document literal cache 0 %Library.Boolean document literal Args:%String cache 0 document literal 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 0)&&($LF(Shift,$$$ssAlt)>0) Quit:('..ConsistencyCheck()) Set IsValid=..CompleteProduct() Set MApplication.ScreenCursor=$$$crHourGlass Set:('..frmView) ..frmView=##class(UI.PR.GA.Viewer).%New($LB(%this.Form.Address,0)) d WL^vhDBG("Na %New(UI.GAProd), voor BldPrTree(): "_$$RestartTimer^vhLib) Do ..frmView.BuildProductTree(..Product, blnShowPrijs) Do ..frmView.ExpandTree() Set MApplication.ScreenCursor=$$$crDefault d WL^vhDBG("Na BuildProductTree : "_$$RestartTimer^vhLib) Do ..frmView.ShowModalAndExtras() ;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 "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 Args:%String cache 0 document literal %Library.CacheSerialState "%Library.TMFormClass" Address Form Product Qty RunMode StandAlone WBrCheckDigits WBrKey btnAanmaken btnAllesWissen btnCancel btnOpties btnToonBox btnXMLView cboDesign frmView frmWBrowser lblAantalTxt pnlButtons txtAantal zzLabel1 txtLengteGreep zzLabel10