serial KeyCodesCNTs,PRGACNTs,UILibCtrlCNTs Default %Library.TMFormClass 0 %Library.String %Library.Boolean 0 %Library.String %Library.TMForm %TMLabel %TMLabel %TMLabel %Library.String 1 1 %TMButton %TMButton %TMButton %TMComboBox %TMComboBox %TMPageControl %TMTabSheet %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel initvalue:%String cache 0 %Status document literal NdMain:%String,lbNodes:%List cache 0 %Library.List document literal cache 0 document literal Args:%String cache 0 document literal cache 0 document literal cache 0 document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal cache 0 document literal cache 0 document literal 0 Do . new tmpApplic . Do pprViaIPCom . If ..Applic="GAPR" Do pprPrepareGAPR . Else If ..Applic="xxx" Do ;ppcPrepareXXX Quit ;============================================================================= pprViaSettings ; Get defaults from global ^... or from hard-coded defaults Set ..Applic="GAPR" If $D(^wvMAPLSettings(..Applic)) Do . Merge ..Params(..Applic)=^wvMAPLSettings(..Applic) Else Do . Set ..Params("GAPR","ProdGroep")="TBX" . ;Set ..Params("GAPR","ProdGroep")="KAD" ; "TBX" ; "GRP" ; "TLM" ; "ASM" ; "KAD" . Set ..Params("GAPR","RunMode")=$$$rmNewFromTemplate . Set ..Params("GAPR","TemplateID")="" Quit ;----------------------------------------------------------------------------- pprViaIPCom #define IsGAProd tmpApplic?1(1"TBX",1"GRP",1"TLM",1"ASM",1"KAD") Merge IPCom=^IPCom("D",..ComKey) Set BaseNode=$G(IPCom) Set tmpApplic=$P(BaseNode,"`",1) Set Actie=$P(BaseNode,"`",2) Set ..Applic=$S($$$IsGAProd:"GAPR", 1:tmpApplic) Quit ;----------------------------------------------------------------------------- pprPrepareGAPR ; lbData format: $LB(RunMode, TemplateID, StartProductID, NewProductID, PRNr, Qty, DFLRef) Kill ..Params("GAPR") ;d ..TTrace($$ArrayToText^vhLib("IPCom")) Set ..Params("GAPR","ProdGroep")=tmpApplic If ($G(IPCom("P","HALID"))>0)&&($$pprCheckGenType) Do . Set ..Params("GAPR","RunMode")=$S(Actie="CREATE":$$$rmNewFromProduct, 1:$$$rmEditProduct) . Set ..Params("GAPR","StartProductID")=IPCom("P","HALID") . Set:(tmpApplic="ASM") ..Params("GAPR","TemplateID")=217 Else Do . Set ..Params("GAPR","RunMode")=$$$rmNewFromTemplate . Set ..Params("GAPR","TemplateID")=$G(IPCom("P","...?...")) Set ..Params("GAPR","Qty")=$G(IPCom("P","AANTAL")) Set ..Params("GAPR","KLNr")=$G(IPCom("P","KLANT")) Set ..Params("GAPR","DFLRef")=$S($$pprCheckGenType:$G(IPCom("P","DFLREF")), 1:"") ;Set ..Params("GAPR","KLNr")=1000 ;Set ..Params("GAPR","PRNr")=$G(IPCom("P","PRNR")) ; n.v.t. in Input; alleen in Output Quit pprCheckGenType() New blnOK Set blnOK=($G(IPCom("P","GENTYPE"))[tmpApplic) d:('blnOK) ..TTrace("Foutief GenType ("_$G(IPCom("P","GENTYPE"))_") voor applicatie "_tmpApplic_"! --> NewFromTemplate will be called") Quit blnOK /* ;Merge IPCom=^IPCom("D",..ComKey) IPCom="TBX`CREATE`59176,47950`192.168.1.97" IPCom("P","AANTAL")=1 IPCom("P","FORM")="" IPCom("P","HALID")="" IPCom("P","GENTYPE")="" IPCom("P","KLANT")="" IPCom("P","MUNT")="EUR" IPCom("P","OBJTYP")="OFF" IPCom("P","DFLREF")=$Name(^HADPR("P",PRNr,"BP")) */ ]]> cache 0 document literal cache 0 document literal cache 0 document literal cache 0 document literal cache 0 document literal cache 0 document literal cache 0 document literal Msg:%String cache 0 document literal Opbouwen van de CmdLine voor het oproepen van MAppLauncher via VBA. Nieuwe implementaties moeten rechtstreeks de classmethods van "UI.Utils.Makova" oproepen !!! 1 cache 0 %Library.String document literal 1 cache 0 %Library.String document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal -1) ..Params("GAPR","ProdGroep")=..cboGAProdGroep.SelectedGetKey() ;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 UI.Utils.MAppLauncher.MainForm 0 %Library.CacheSerialState "%Library.TMFormClass" Address Form btnAnnuleren btnOk cmsStartAppl btnStartAppl AutoStart ComKey Actie Applic Label1 Label2 Label3 cboRunMode pgcSettings tshTBX txtNewProductID txtStartProductID txtTemplateID zzLabel1 txtAantal zzLabel2 zzLabel3 zzLabel4 zzLabel5 txtPRNr txtKlantNr cboGAProdGroep