| #(..WebTextValue("VeldenInvullen",Taal,"L"))# | ++ | |
| + | ||
#(..WebTextValue("KLNaamOPTIMA",Taal,"L"))# : |
+ + | + |
| + + + + + + + + + + | +||
#(..WebTextValue("KLNaam",Taal,"L"))# * : |
+ + | + |
#(..WebTextValue("KLStraatNr",Taal,"L"))# : |
+ + | + |
#(..WebTextValue("Postcode",Taal,"L"))# : |
+ + | + |
#(..WebTextValue("Gemeente",Taal,"L"))# : |
+ + | + |
#(..WebTextValue("Telefoon",Taal,"L"))# (*) : |
+ + | + |
#(..WebTextValue("Fax",Taal,"L"))# (*) : |
+ + | + |
#(..WebTextValue("Email",Taal,"L"))# (*) : |
+ + | + |
#(..WebTextValue("BTWNummer",Taal,"L")_$S(BTWInputMode=3:" *", 1:""))# : |
+ + | + |
#(..WebTextValue("Commissie",Taal,"L"))# * : |
+ + | + |
#(..WebTextValue("Levertijd",Taal,"L")_$S(blnVHEPN:"",1:" *"))# : |
+
+ |
+ + |
|
+ #(..WebTextValue("AfdrukCode",Taal,"L"))# :
+ |
+ + | + |
| + |
+
+
+ |
+ + |
| + |
+
+ * #(..WebTextValue("jsDVerplichtGegeven",Taal,"O"))#
+ |
+ |
met stabilisator
bulk verpakt
grijze mat", 1, null, "|", null, null, "B"); + tmpData[i++]=Array("D", 800, 16, 450, 50, null, "ER", "brede zijstukken
opvullijst:L+R", 17, null, "|", "v", "R", "B", CodeStdLade, "v"); +// tmpData[i++]=Array("D", 900,CodeBinMaat, 500, 30, "v", "BD", null, 17, null, "|", "v", "L+R", null); +// tmpData[i++]=Array("B", 800, 16, 500, 50, null, "ER", null, 16, null, "|", null, null, null); + + var tmpData2=Array(); + for (var j=0; j
| ",!
+ Write $c(9,9,9,9)_" "_(..WebTextValue("ErrWizOnverwachteStatus",Taal,"O"))_" ",! + Write $c(9,9,9)_" | ",!
+ Write $c(9,9)_"
| ",!
+ Write $c(9,9,9,9)_" ",! + Write $c(9,9,9,9) + Write " "
+ Write " "
+ Write " "
+ Write !,$c(9,9,9,9)_"",! + Write $c(9,9,9,9)_" "_(..WebTextValue("ErrWizAutoReload",Taal,"O"))_" ",! + Write $c(9,9,9,9)_"",! + Write $c(9,9,9,9)_" "_(..WebTextValue("ErrWizUpdateCacheMan",Taal,"O"))_" ",! + Write $c(9,9,9,9)_"",! + Write $c(9,9,9,9)_" "_(..WebTextValue("ErrWizDoReport",Taal,"O"))_". " + Write "" + Write "Submit error" + Write "" + Write " ",! + Write $c(9,9,9,9)_"",! + Write $c(9,9,9,9)_" "_(..WebTextValue("ErrWizBackToMain",Taal,"O"))_" ",! + Write !,!,$c(9,9,9)_" | ",!
+ Write $c(9,9)_"
"_$$ParseStatus^vhLib(scMail) + Else Do + . Set ErrTxt=##class(cspBasis.GAProdTBox).WebTextValue("ErrPageDoReport",Taal,"O") + Set BtnCloseTxt=##class(cspBasis.GAProdTBox).WebTextValue("Sluiten",Taal,"L") + &html< + +
+
+
+
+
+
+
| + |  |
+ + |
+
| + |
+
+ #(ErrTxt)# ++ |
+ + |
| + |
+ #(BtnCloseTxt)# ++ + |
+ + |
+
+ >
+ Quit $$$OK
+]]>
+
+
+
+1
+lbErrTypes
+
+
+
Index: _vhisie/TBX/TBox WebOrder LMC_TLOLD.xsl
===================================================================
diff -u
--- _vhisie/TBX/TBox WebOrder LMC_TLOLD.xsl (revision 0)
+++ _vhisie/TBX/TBox WebOrder LMC_TLOLD.xsl (revision 2)
@@ -0,0 +1,547 @@
+
+
+
+ OPTIMA - TandemBOX - Web Order
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ 
+
+
+
+
+
+
+
+
+
+
+ 
+
+
+
+
+ 1
+
+
+
+
+
+
+
+
+ clsMRowEven
+ clsMRowOdd
+ clsMRowLastX
+
+
+
+
+
+
+
+
+ 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ # FOUT #
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ LadetypeTH BreedteTH WanddikteTH LadediepteTH DraagkrachtTH BlumotionTH BoxsideTH *DiverseTH AantalTH Ink. Prijs/st PrijsPerStukTH InfoTH
+
+
+
+ Boxside (Legende )
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ :
+
+
+
+
+
+
+
+ ==
+ ---
+
+
+
+
+
+
+ BX_DR BX_ER BX_ZR /Boxside BX_BD BX_BC BX_BZ BX_BF (Code
+
+
+
+
Index: vhVisual.mac.rou
===================================================================
diff -u
--- vhVisual.mac.rou (revision 0)
+++ vhVisual.mac.rou (revision 2)
@@ -0,0 +1,283 @@
+#include %Const
+#include %occInclude
+
+ShowCmdLine(ShowModal)
+ Set ShowModal=$G(ShowModal,1)
+ Kill Xecuter
+ Set Xecuter=##class(UI.Utils.Spy.dlgCmdLine).%New($LB(MApplication.Address,0))
+ If ShowModal Do
+ . Do Xecuter.Form.ShowModal()
+ . Kill Xecuter
+ Else Do
+ . Do Xecuter.Form.Show()
+ Quit
+
+CreateFlyingMsg(MainMsg,Width,ProcessMessages,BGColor,ShowProgressBar)
+ Set ProcessMessages=$G(ProcessMessages)
+ Set FlyingMsg=##class(UI.Lib.Dlg.TFlyingMsg).%New($LB(MApplication.Address))
+ Set FlyingMsg.lblMainMsg.Caption=MainMsg
+ If $D(BGColor) Do
+ . Set FlyingMsg.shBack.Brush.Color=BGColor
+ . Set FlyingMsg.Form.Color=BGColor
+ . Set FlyingMsg.lblMainMsg.Color=BGColor
+ . Set FlyingMsg.lblSubMsg.Color=BGColor
+ If $D(Width) Do
+ . Set FlyingMsg.Form.Width=Width
+ . Set FlyingMsg.Form.Position="poScreenCenter"
+ If $G(ShowProgressBar,0) Do
+ . Set FlyingMsg.ProgressBar.Visible="True"
+ . Set FlyingMsg.lblSubMsg.Visible="False"
+ Do FlyingMsg.Form.Show()
+ Do FlyingMsg.Form.Update()
+ Do:(ProcessMessages) MApplication.ProcessMessages()
+ Quit
+
+SetFlyingMsg(Msg,ProcessMessages)
+ Quit:('$D(FlyingMsg))
+ Set ProcessMessages=$G(ProcessMessages)
+ Set FlyingMsg.lblMainMsg.Caption=Msg
+ Do:(ProcessMessages) MApplication.ProcessMessages()
+ Quit
+
+SetFlyingProgressBar(Value,ProcessMessages)
+ Quit:('$D(FlyingMsg))
+ If FlyingMsg.ProgressBar.Visible="False" Do
+ . Set FlyingMsg.lblSubMsg.Visible="False"
+ . Set FlyingMsg.ProgressBar.Visible="True"
+ Set FlyingMsg.ProgressBar.Position=Value
+ Do:(ProcessMessages) MApplication.ProcessMessages()
+ Quit
+
+SetFlyingSubMsg(SubMsg,ProcessMessages,BringToFront)
+ Quit:('$D(FlyingMsg))
+ If FlyingMsg.lblSubMsg.Visible="False" Do
+ . Set FlyingMsg.lblSubMsg.Visible="True"
+ . Set FlyingMsg.ProgressBar.Visible="False"
+ Set ProcessMessages=$G(ProcessMessages)
+ Set BringToFront=$G(BringToFront)
+ Set FlyingMsg.lblSubMsg.Caption=SubMsg
+ Do:(ProcessMessages) MApplication.ProcessMessages()
+ Do:(BringToFront) FlyingMsg.Form.BringToFront()
+ Quit
+
+BringFlyingMsgToFront()
+ Quit:('$D(FlyingMsg))
+ Do FlyingMsg.Form.BringToFront()
+ Quit
+
+DestroyFlyingMsg()
+ Quit:('$D(FlyingMsg))
+ Do FlyingMsg.Form.Close()
+ Do FlyingMsg.%Close()
+ Kill FlyingMsg
+ Quit
+
+ //---------------------------------------------------------------------------------
+InputBox(Title,Question,Default,PasswordChar,Width)
+ New InputForm
+ Set InputForm=##class(UI.Lib.Dlg.TInputBox).%New($LB(%this.Form.Address,0))
+ Set InputForm.Form.Caption=$G(Title,"Van Hoecke")
+ Set InputForm.lblMessage.Caption=$G(Question,"Geef de waarde op:")
+ Set InputForm.txtValue.Text=$G(Default,"")
+ Set InputForm.txtValue.PasswordChar=$G(PasswordChar,$C(0))
+ Set:($D(Width)) InputForm.Form.Width=Width
+
+ New tmpAnswer
+ Set tmpAnswer=InputForm.Form.ShowModal()
+
+ Set Default=InputForm.txtValue.Text
+
+ Do InputForm.%Close()
+
+ Quit tmpAnswer
+
+ //---------------------------------------------------------------------------------
+BuildPropsArray(PropArrayName,ObjORef,ClassFilter)
+ Set ClassFilter=$G(ClassFilter)
+
+ Kill @PropArrayName@(ObjORef)
+
+ Quit:($G(ObjORef)=0)
+
+ New ClassDef
+ Set ClassDef=##class(%ClassDefinition).%OpenId(ObjORef.%ClassName(1))
+
+ New Count
+ Set Count=ClassDef.Properties.Count()
+
+ New Loop,PropName
+ For Loop=1:1:Count Do
+ . Quit:(ClassDef.Properties.GetAt(Loop).Type'[ClassFilter)
+ . Set PropName=ClassDef.Properties.GetAt(Loop).Name
+ . Xecute "Set @PropArrayName@(ObjORef,PropName)=ObjORef."_PropName
+
+ Do ClassDef.%Close()
+
+ Quit
+
+ //---------------------------------------------------------------------------------
+RE(ErrorType,Msg,MsgBoxType) //Report Error
+ #Include ReportErrorCNTs
+
+ New Header,Body,Namespace
+ Set Namespace=$ZUTIL(67,6,$J)
+ Set ErrorType=$G(ErrorType,0)
+
+ If ErrorType=$$$reMsg Do
+ . Set Header="Specifieke fout"
+ . Set Body=Msg
+ Else If ErrorType=$$$reObjDoesNotExist Do
+ . Set Header="Object bestaat niet"
+ . Set Body="Kan het object '" _ Msg _ "' niet vinden (" _ Namespace _ ")."
+ Else If ErrorType=$$$reUnableToOpenObj Do
+ . Set Header="Object niet te openen"
+ . Set Body="Het object '" _ Msg _ "' bestaat, maar kan niet geopend worden (" _ Namespace _ ")."
+ Else If ErrorType=$$$reCannotCreateNewObj Do
+ . Set Header="Nieuwe instantie onmogelijk"
+ . Set Body="Kan een nieuwe instantie van '" _ Msg _ "' niet aanmaken."
+ Else If ErrorType=$$$reStatusError Do
+ . Set Header="Status error"
+ . Set Body=$$ParseStatus^vhLib(Msg)
+ Else If ErrorType=$$$reAppException Do
+ . Set Header="Application exception"
+ . Set Body="Tijdens het uitvoeren van de applicatie is een fout opgetreden."
+
+ //Clearen van eventuele Mouse=Busy
+ Set MApplication.ScreenCursor=0 //0=$$$crDefault
+
+ //Stack wegschrijven naar een bestand
+ ;New FN
+ ;Set FN=$$GetCaller^vhLib("REStack_"_"_"_$P($H,",",1)_$P($H,",",2),"ReportError")
+
+ //Tonen van message
+ New REForm
+ Set REForm=##class(UI.Lib.Dlg.ReportError).%New($LB(%this.Form.Address,0))
+ Set REForm.ExtraSendMsg=$ZDATETIME($H,4)
+ ;Set REForm.ExtraSendMsg="Stackfile: "_FN
+ Do REForm.SetErrorTxt(..%ClassName(1),Header,Body)
+ Set REForm.Form.Height=REForm.Form.Height-25
+ Do REForm.Form.ShowModal()
+ Do REForm.%Close()
+
+ Quit
+
+ //---------------------------------------------------------------------------------
+pdaMsgBox(Caption,Msg,Type,OKCancelMode,InputMode,InputDefault)
+ Set OKCancelMode=$G(OKCancelMode,0)
+ Set InputMode=$G(InputMode,0)
+ Set:(InputMode) OKCancelMode=1 ;Deze gaan steeds samen...
+ Set:(InputMode) InputDefault=$G(InputDefault)
+
+ New MBForm,tmpAnswer
+ If $D(%this) Do
+ . Set MBForm=##class(UI.MB.UGLYPicking.dlgMsgBox).%New($LB(%this.Form.Address,0))
+ Else Do
+ . Set MBForm=##class(UI.MB.UGLYPicking.dlgMsgBox).%New($LB(MApplication.Address,0))
+ Set MBForm.Form.Caption=Caption
+ Do MBForm.ShowMsg(Caption,Msg,Type,OKCancelMode)
+ If InputMode Do
+ . Set MBForm.txtValue.Text=InputDefault
+ . Set MBForm.txtValue.Visible="True"
+ Set tmpAnswer=MBForm.Form.ShowModal()
+ Set:(InputMode) InputDefault=MBForm.txtValue.Text
+ Do MBForm.%Close()
+
+ Quit tmpAnswer
+
+ //---------------------------------------------------------------------------------
+AppIsEnabled(App,SubApp,Msg)
+ #define IP4 $P(MApplication.GetClientIP(),".",4)
+
+ New arEnable
+ Merge arEnable=^UI.Settings(App,SubApp,"Enable")
+
+ Quit:($G(arEnable("ALL"),1)) 1 ; Enabled for all users
+ Quit:($G(arEnable("IP",$$$IP4),0)) 1
+
+ If '$D(Msg) Do
+ . Set Msg="Het programma wordt momenteel aangepast,"_$C(13,10)
+ . Set Msg=Msg_"probeer later nog eens opnieuw."
+
+ Do:(Msg'="") MApplication.MessageBox(Msg,..Form.Caption,$$$MBICONINFORMATION)
+
+ Quit 0
+
+
+ //---------------------------------------------------------------------------------
+SetGlyph(Ctrl,Glyphs...)
+ ;Project ter beschikking? Zoniet, direct afsluiten
+ Quit:(MApplication.Name="")
+
+ New ValidGlyphName
+ ;Afhankelijk vh type control de gegevens toekennen
+ If Ctrl.%ClassName()="%TMImageList" Do
+ . New Loop,BitmapList
+ . Set BitmapList=""
+ . For Loop=1:1:Glyphs Do
+ .. Set ValidGlyphName=$$sgGetValidGlyphName(Glyphs(Loop))
+ .. Set:(ValidGlyphName'="") BitmapList=$S(BitmapList="":ValidGlyphName,1:BitmapList_","_ValidGlyphName)
+ . Set:(BitmapList'="") Ctrl.Bitmap=BitmapList
+ Else Do
+ . Set ValidGlyphName=$$sgGetValidGlyphName(Glyphs(1))
+ . Set:(ValidGlyphName'="") Ctrl.Glyph.Data=ValidGlyphName
+
+ Quit
+
+sgGetValidGlyphName(Glyph)
+ New GlyphPiece
+ Set GlyphPiece=$ZCVT($P(Glyph,".",1),"U")
+
+ New Found,tmpGlyph,FoundGlyph
+ Set Found=0
+ Set tmpGlyph=""
+ For Set tmpGlyph=$O(^SMProject(MApplication.Name,"Images",tmpGlyph)) Quit:((tmpGlyph="") || Found) Do
+ . If $ZCVT($P(tmpGlyph,".",1),"U")=GlyphPiece Do
+ .. Set Found=1
+ .. Set FoundGlyph=tmpGlyph
+
+ If 'Found Do Quit ""
+ . Do MApplication.MessageBox("Kan de glyph '"_Glyph_"' niet toekennen: niet aanwezig in het project.",MApplication.Name,$$$MBICONERROR)
+
+ Quit FoundGlyph
+
+ //---------------------------------------------------------------------------------
+ColorNrToStr(ColorNr)
+ Quit:(ColorNr=-1) "None"
+ Quit:(ColorNr=0) "Black"
+ Quit:(ColorNr=128) "Maroon"
+ Quit:(ColorNr=32768) "Green"
+ Quit:(ColorNr=12648384) "LtGreen"
+ Quit:(ColorNr=8454016) "MedGreen"
+ Quit:(ColorNr=32896) "Olive"
+ Quit:(ColorNr=8388608) "Navy"
+ Quit:(ColorNr=8388736) "Purple"
+ Quit:(ColorNr=8421376) "Teal"
+ Quit:(ColorNr=8421504) "Gray"
+ Quit:(ColorNr=12632256) "Silver"
+ Quit:(ColorNr=255) "Red"
+ Quit:(ColorNr=8421631) "MedRed"
+ Quit:(ColorNr=12632319) "LtRed"
+ Quit:(ColorNr=33023) "Orange"
+ Quit:(ColorNr=8438015) "MedOrange"
+ Quit:(ColorNr=12640511) "LtOrange"
+ Quit:(ColorNr=65280) "Lime"
+ Quit:(ColorNr=65535) "Yellow"
+ Quit:(ColorNr=8454143) "MedYellow"
+ Quit:(ColorNr=12648447) "LtYellow"
+ Quit:(ColorNr=16711680) "Blue"
+ Quit:(ColorNr=16744576) "MedBlue"
+ Quit:(ColorNr=16761024) "LtBlue"
+ Quit:(ColorNr=16711935) "Fuchsia"
+ Quit:(ColorNr=16711935) "Pink"
+ Quit:(ColorNr=16744703) "MedPink"
+ Quit:(ColorNr=16761087) "LtPink"
+ Quit:(ColorNr=16776960) "Aqua"
+ Quit:(ColorNr=16777088) "MedAqua"
+ Quit:(ColorNr=16761024) "LtAqua"
+ Quit:(ColorNr=12632256) "LtGray"
+ Quit:(ColorNr=8421504) "DkGray"
+ Quit:(ColorNr=8421631) "Focus"
+ Quit:(ColorNr=16777215) "White"
+ Quit:(ColorNr=536870911) "None"
+ Quit:(ColorNr=536870912) "Default"
+ Quit ColorNr_" ("_$ZH(+ColorNr)_"h)"
\ No newline at end of file
Index: cspBasis/Library.mac.rou
===================================================================
diff -u
--- cspBasis/Library.mac.rou (revision 0)
+++ cspBasis/Library.mac.rou (revision 2)
@@ -0,0 +1,136 @@
+
+#include PRGACNTs
+#include APPS.TBXWeb
+
+ // Munt pariteit tov. de EURO.
+ // Om een bedrag in EUR om te zetten naar de de resp. munt : bedrag / MuntPar
+GetMuntPar(Munt)
+ Quit:(Munt="CHF") $$$MuntParCHF
+ Quit 1
+PrijsConvert(Munt,Prijs)
+ Quit:(Munt="")||(Munt="EUR") Prijs
+ Quit Prijs/$$GetMuntPar(Munt)
+
+GetUserMunt(sDomVERW,VERW)
+ Quit $S($G(VERW)="VHEPN":"EUR", sDomVERW="SFS":"CHF", 1:"EUR")
+
+
+AppIsEnabled(App,SubApp,IPAddress)
+#define IP4 $P(IPAddress,".",4)
+ Quit:('$D(^UI.Settings(App,SubApp))) 1 ; Enabled if global/nodes not defined
+ New arEnable
+ Merge arEnable=^UI.Settings(App,SubApp,"Enable")
+ Quit:($G(arEnable("ALL"),1)) 1 ; Enabled for all users
+ Quit:($G(arEnable("IP",$$$IP4),0)) 1 ; internal IP address
+ Quit:($G(arEnable("IP",IPAddress),0)) 1 ; any IP address
+ Quit 0
+
+RedirectPage(RedirURL)
+ Set RedirURL=$G(RedirURL,"/Under Construction.htm")
+ Set %response.Redirect=RedirURL
+ ;Set %response.ServerSideRedirect=RedirURL
+ Quit
+
+SesDataFromRq(SesKey,RqKey,DflVal)
+ Set RqKey=$G(RqKey,SesKey)
+ Quit $$SetSesData^cspBasis.Library($Name(%session.Data(SesKey)),$Name(%request.Data(RqKey,1)),.DflVal)
+
+SesDataFromLocal(SesKey,Local,DflVal)
+ Quit $$SetSesData^cspBasis.Library($Name(%session.Data(SesKey)),$Name(Local),.DflVal)
+
+SetSesData(SesRef,NewValRef,DflVal)
+ If $D(@NewValRef) Do
+ . Set @SesRef=@NewValRef
+ Else Do
+ . Set:('$$$aHasData(@SesRef)) @SesRef=$G(DflVal)
+ Quit @SesRef
+
+DataFromRqOrSes(RqKey,SesKey,DflVal)
+ Set SesKey=$G(SesKey,RqKey)
+ Quit $$drsGetData^cspBasis.Library($Name(%request.Data(RqKey,1)),$Name(%session.Data(SesKey)),.DflVal)
+drsGetData(RqRef,SesRef,DflVal) ; GetRqOrSesData
+ Quit:($$$aHasData(@RqRef)) @RqRef
+ Quit $G(@SesRef,$G(DflVal))
+
+
+GetURLDomain()
+ New ServName,ServPort
+ Set ServName=$$$LCase($G(%request.CgiEnvs("SERVER_NAME")))
+ Set ServPort=$G(%request.CgiEnvs("SERVER_PORT"),80)
+ Set:(ServName="") ServName="www.tandem-box.com"
+ Set:(ServPort'=80) ServName=ServName_":"_ServPort
+ Quit ServName
+
+TBXDomainCVT(Domain)
+ #define DefaultDomain $G(^Settings("TBX","DefaultDomain"),"www.tandem-box.com")
+ #define OtherDomain $G(^Settings("TBX","OtherDomain"),"www.optima-tbx.fr")
+ ;#define OtherDomain $G(^Settings("TBX","OtherDomain"),"www.tandem-box.com")
+
+ Set Domain=$$$LCase(Domain)
+ Set TestDomeinenOmzetten=##class(TECH.Config.ConfigMgr).Instance().GetBoolean("cspBasis.Library_TestDomeinenOmzetten")
+ If TestDomeinenOmzetten {
+ Quit:($$$Server="CACHE01" ) $S(Domain="cache01":$$$OtherDomain, 1:$$$DefaultDomain) // Alleen voor Cache01 (Uitzondering)
+ Quit:(Domain="test.tandem-box.com" ) "www.tandem-box.com"
+ Quit:(Domain="test.optima-tbx.fr" ) "www.optima-tbx.fr"
+ Quit:(Domain="test.tandem-box.de" ) "tbx.tandem-box.de"
+ Quit:(Domain="test.du-pont.be" ) "tbx.du-pont.be"
+ Quit:(Domain="test.destil.nl" ) "tbx.destil.nl"
+ Quit:(Domain="testhafele.tandem-box.com") "hafele.tandem-box.com"
+ Quit:(Domain="test.sfsunimarket.biz" ) "tbx.sfsunimarket.biz"
+ Quit:(Domain="testtandembox.meubelbeslagholland.nl") $$$TBoxWebDomeinMBHO
+ Quit:(Domain="demo.tandem-box.com" ) "demo.tandem-box.com"
+ Quit:(Domain="demo.sfsunimarket.biz" ) "demo.sfsunimarket.biz"
+ Quit:(Domain="192.168.1.67" ) $$$DefaultDomain
+ Quit:(Domain="cache02" ) $$$OtherDomain
+
+ Quit:(Domain="test.tandem-box.eu" ) "www.tandem-box.com"
+ Quit:(Domain="195.130.157.3" ) "www.tandem-box.com"
+
+ Quit Domain
+ ;Quit $$$DefaultDomain
+ }
+ Else {
+ Quit $P(Domain,":",1) ; 2e piece is de HTTP-poort (indien aanwezig)
+ }
+
+ Quit ""
+
+
+ // SendMiniMail eXtended :
+ // Replace the domain "vanhoecke.be" in if also contains "vanhoecke.be" domain(s)
+SendMiniMailXtd(From,lbTo,Subject,Body,BodyIsStream,Args6,Args7,Args8,lbAttachments,Args10) ; ,Args11,Args12)
+ #define MailsViaNotes01 1
+ Do:('$$$MailsViaNotes01) smxSenderFakeDomain^vhLib.Mail(.From,lbTo,,)
+ Quit $$SendMiniMail^vhLib.Mail(.From,.lbTo,.Subject,.Body,.BodyIsStream,.Args6,.Args7,.Args8,.lbAttachments,.Args10) ; ,.Args11,.Args12)
+ Quit ""
+
+
+ /// Ophalen van de vertaalde waarde van de interne code en omzetten naar HTML-code.
+ /// lbFlags om extra conversies te doen (zoals Uppercase, Lowercase, ...)
+WebTextValue(VtlGroep,Intern,Taal,TextType,VervangWaarde,lbFlags)
+ ; Ter info:
+ ; lbFlags is optioneel (later toegevoegd).
+ ; Is dus by default leeg ==> Immediate conversion to HTML (zoals voorheen)
+ ; Als lbFlags waarde(n) bevat ==> GetVertaling moet plainText teruggeven -> eerst conversie voor lbFlags -> dan convert to HTML
+ Quit:($G(Intern)="") ""
+ New Val,blnPlainText,ReturnsHTML,FlgItem
+ Set Taal=$G(Taal,"N")
+ Set TextType=$G(TextType,"L")
+ Set lbFlags=$G(lbFlags,"")
+ Set blnPlainText=(lbFlags'="")
+ Set Val=##class(Res.Vertaling).GetVertalingPlus(VtlGroep,Intern,TextType,Taal,.VervangWaarde,blnPlainText,.ReturnsHTML)
+ Quit:(Val="") Intern_" ("_TextType_"-"_Taal_")"
+ ; Else
+ If $L(lbFlags) Do
+ . Do wtvBeforeHTML ; First item of lbFlags
+ Quit $S($G(ReturnsHTML):Val, 1:$$ConvertToHTML^vhRtn1(Val))
+wtvBeforeHTML
+ Quit:($LG(lbFlags,1)="")
+ Set FlgItem=$LG(lbFlags,1)
+ If FlgItem="L" Set Val=$$$LCase(Val)
+ Else If FlgItem="U" Set Val=$$$UCase(Val)
+ Else If FlgItem="F" Set Val=$$$FCase(Val)
+ Else If '$$$IsList(FlgItem) Quit
+ Else If ($LG(FlgItem,1)="X")&&($L($LG(FlgItem,2))) Do
+ . X "Set Val="_$$$Replace($LI(FlgItem,2),"%v","Val")
+ Quit
\ No newline at end of file
Index: _vhisie/TBX/TBox WebOrder SFS_D.xsl
===================================================================
diff -u
--- _vhisie/TBX/TBox WebOrder SFS_D.xsl (revision 0)
+++ _vhisie/TBX/TBox WebOrder SFS_D.xsl (revision 2)
@@ -0,0 +1,496 @@
+
+
+EUR
+
+ SFS unimarket - TandemBOX - Web Order
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ clsMRowEven
+ clsMRowOdd
+ clsMRowLastX
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ # FEHLER #
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ :
+ Schraubversion
+ INSERTA
+ EXPANDO
+ für Alurahmen / VollKern
+ drevel
+ Ohne
+ (Code
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ :
+
+
+
+
+
+ ==
+ ---
+
+
+
+
+
+
+ Doppelreling
+ Einzelreling
+ Ohne Reling/erhöhte seiten
+ BOXSIDE doppelwandig
+ Glas BOXSIDE
+ BOXCAP
+ BOXCOVER mit ...
+ Boxcover ohne Einschubelement
+ (Code
+
+
+
+
Index: DW/WWW/StaticSessMat.cls.xml
===================================================================
diff -u
--- DW/WWW/StaticSessMat.cls.xml (revision 0)
+++ DW/WWW/StaticSessMat.cls.xml (revision 2)
@@ -0,0 +1,54 @@
+
+
+
+
+
+persistent
+1
+%Persistent
+
+
+%Integer
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%Library.CacheStorage
+^DW.WWW.StaticSessMatD
+StaticSessMatDefaultData
+^DW.WWW.StaticSessMatD
+^DW.WWW.StaticSessMatI
+^DW.WWW.StaticSessMatS
+
+listnode
+
+%%CLASSNAME
+
+
+Aantal
+
+
+Datum
+
+
+Site
+
+
+Tijd
+
+
+
+
+
Index: EH/Makova/EventCtrlr.cls.xml
===================================================================
diff -u
--- EH/Makova/EventCtrlr.cls.xml (revision 0)
+++ EH/Makova/EventCtrlr.cls.xml (revision 2)
@@ -0,0 +1,274 @@
+
+
+
+%Library.RegisteredObject
+
+
+EH.Makova.EventQueue
+
+
+
+%Library.TMTimer
+
+
+
+
+Tijdsgedeelte van laatste keer getriggered = $P($ZTS,",",2)
+%Library.String
+
+
+
+
+Boolean: 1=timer is in Sleep-mode; 0=timer is inActive-mode
+%Library.Integer
+
+
+
+%Library.List
+
+
+
+
+Geeft terug:
+Args : $LB(CntMsg)
+%Library.List
+
+
+
+%Library.List
+
+
+
+
+Event=$LB(MethodObjORef,MethodName)
+
+Wordt uitgevoerd bij DirectDispatch
+%Library.List
+
+
+
+%Library.List
+
+
+
+
+(in ms)
+%Library.Integer
+
+
+
+
+(in ms)
+%Library.Integer
+
+
+
+
+Tijd vooraleer de Timer in Sleep-mode gaat (in seconds)
+%Library.Integer
+
+
+
+blnForce:%Library.Integer=0
+0
+
+
+
+0
+0)||(..tmrSleepInterval'>0)
+ Set ..FTimer.Interval=..tmrSleepInterval
+ Set ..IsSleeping=1
+ Do ..FTriggerEvent(..OnGotoSleep)
+ Quit
+
+]]>
+
+
+
+Event:%String,Args:%String=""
+0
+
+
+
+0
+
+
+
+eqID:%Library.String,QueueInterval:%Library.String=1000
+0
+%Library.Status
+
+
+
+Args:%Library.List
+0
+
+
+
+Args:%Library.String
+0
+0)||(..tmrSleepInterval'>0)
+ . Do:($$$pmTimeDiff'<..tmrSleepTimeOut) ..FSetTimerSleep()
+ Else Do
+ . For Quit:('..EventQueue.GetMessage()) Do
+ .. Set CntMsg=CntMsg+1
+ .. Do ..TriggerDispatch(..EventQueue.Msg)
+ . Do ..FSetTimerActive()
+
+ Set ..FTimer.Enabled="True"
+ Do ..FTriggerEvent(..OnAfterProcessMsgs,$LB(CntMsg))
+ Quit
+
+pmTimeDiff()
+ Quit $$$Time($ZTS) - ..FtmrLastActive
+]]>
+
+
+
+0
+
+
+
+0
+
+
+
+
+Parameters: ActiveInterval, SleepInterval (in ms) , SleepTimeOut (in sec !!!)
+ActiveInterVal:%Library.Integer,SleepInterval:%Library.Integer,SleepTimeOut:%Library.Integer
+0
+
+
+
+Args:%Library.List
+0
+
+
+
Index: DW/CSP/BLogic.cls.xml
===================================================================
diff -u
--- DW/CSP/BLogic.cls.xml (revision 0)
+++ DW/CSP/BLogic.cls.xml (revision 2)
@@ -0,0 +1,354 @@
+
+
+
+%RegisteredObject,%XML.Adaptor
+0
+
+
+1
+Site
+
+
+
+1
+Site
+
+
+
+1
+Site
+%List
+1800 Do
+ ... $$$SetSession(RS.Data("ID"),1)
+ ... Set SessID=RS.Data("ID")
+ ... $$$SetSessionID(RS.Data("ID"),SessID)
+ .. Else Do
+ ... $$$SetSession(RS.Data("ID"),0)
+ ... $$$SetSessionID(RS.Data("ID"),SessID)
+ .. Set OldSecs=NewSecs
+ . Else Do
+ .. $$$SetSession(RS.Data("ID"),1)
+ .. Set SessID=RS.Data("ID")
+ .. $$$SetSessionID(RS.Data("ID"),SessID)
+ .. Set IP=RS.Data("IP")
+ .. Set OldSecs=(RS.Data("Datum")*86400)+RS.Data("Tijd")
+ Quit $LB(1)
+]]>
+
+
+
+1
+IpAdres:%String
+%String
+"_FileName)
+
+ /// Textfile uitlezen en naam van host uitlezen.
+ Set TextFile=##class(%FileCharacterStream).%New(FileName)
+ Do TextFile.LinkToFile(FileName)
+
+ New FileLen,TextLine,HostName
+ Set FileLen=TextFile.Size
+ Set HostName="Onbekend"
+ For Quit:TextFile.AtEnd Set TextLine=TextFile.ReadLine(FileLen) Do
+ . If TextLine["Name:" Set HostName=$P(TextLine," ",2)
+ Quit HostName
+]]>
+
+
+
+
+Om statistieken te updaten
+Eerst worden de globals met statische gegevens verwijderd
+Daarna worden de gegevens bijgewerkt
+1
+
+
+
Index: csp/sessmat.cls.xml
===================================================================
diff -u
--- csp/sessmat.cls.xml (revision 0)
+++ csp/sessmat.cls.xml (revision 2)
@@ -0,0 +1,148 @@
+
+
+
+User
+cache
+%CSP.Page
+
+
+1
+code
+%Status
+
+
+
+1
+code
+%Boolean
+",!
+ Write " ",!
+ Write " "
+ Write " ",!
+ Write " ",!
+ Write " ",!
+ Write " "_$c(9)_""
+ Write " ",!
+ Write " "
+ Write " ",!
+ Write " "
+ Write " ",!
+ Write $c(9)_""
+ Write " ",!
+ Write " "
+ Write " ",!
+ Write $c(9)_""
+ Write " ",!
+ Write " "
+ Write " ",!
+ Write $c(9)_""
+ Write " ",!
+ Write " ",!
+ Write " ",!
+ Write " "
+ For u=0:1:23 {
+ Write !," ",!
+ Write " "
+ Write " ",!
+ Write $c(9)
+ For d=1:1:7 {
+ Write !,$c(9)
+ New Temp
+ Set Temp=$G(arrValues(d,u))
+ Set Temp=$S((Temp>0):Temp,1:0) /// om lege velden tegen te gaan (leeg wordt 0)
+ Set CellColor=$S(($G(arrTopTwintig(d,u))="TOP10"):"#FFDDDD",($G(arrTopTwintig(d,u))="TOP20"):"#FFFFCA",1:"white")
+ Write !," "
+ Write " ",!
+ Write $c(9)
+ }
+ Write !," ",!
+ Write " "
+ }
+ Write !," ",!
+ Write "",!
+ Write "
" +]]>
+
+
+
+c:\cachesys\csp\httplog\sessmat.csp
+
+
+
+/csp/httplog/sessmat.csp
+
+
+
+59626,55369
+
+
+
Index: Prod/GADef/emKadBoring.cls.xml
===================================================================
diff -u
--- Prod/GADef/emKadBoring.cls.xml (revision 0)
+++ Prod/GADef/emKadBoring.cls.xml (revision 2)
@@ -0,0 +1,938 @@
+
+
+
+ Afspraken i.v.m. Posities van Beslag en Boringen:
+
+serial
+%Library.SerialObject,%VHSys.Library
+
+
+%Library.Float
+0
+
+
+
+%Library.Float
+0
+
+
+
+
+Volgende waarden moeten gebruikt worden:
+ 0 : PuntBoring
+ -1 : Doorboring
+ 1 : Default Diepte]]>
+%Library.Float
+0
+
+
+
+
+Alleen te gebruiken indien er in het glas en in het kader wordt geboord voor de "glas"-profielen.
+Deze is nodig omdat de boring in glas dan verschillend is van de profielboring.
+De BoorGlasDiameter is standaard 9mm
+%Library.Float
+0
+
+
+
+
+PL - PR - PB - PO - VUL - P?;VUL
+Kader - id - id - id - Vulling - Kader&Vulling; +Is enkel ingevuld in het geval van een "geldige boring".]]>
+%Library.String
+0
+
+
+
+
+Dit is de nieuwe datastructuur sinds 14/03/2001
+%Library.String
+0
+
+
+
+
+Als "Niet Automatisch Frezen" gekozen, dan is het eerste character een "!"]]>
+%Library.String
+0
+
+
+
+%String
+0
+
+
+
+%Library.String
+0
+
+
+
+%Library.String
+0
+
+
+
+%Library.String
+0
+
+
+
+
+Bevat de code voor TxtOpmerking. Transient.
+TxtOpmKode wordt samen met TxtOpmerking opgevuld door de method TxtOpmerkingSet
+%Library.String
+0
+1
+
+
+
+%Library.String
+0
+1
+
+
+
+%Library.String
+0
+1
+
+
+
+%Library.String
+0
+
+
+
+%Library.Float
+0
+
+
+
+%Library.Float
+0
+
+
+
+%Library.Float
+0
+
+
+
+
+Berekent de Absolute Positie voor de gegeven coördinaat (X, Y, Z) uitgaande van de relatieve positie.
+Als relatieve positie leeg is, of als blnAbsOnly=1 , dan wordt de gewone (absolute) Pos teruggegeven.
+OPM: "Next" en "Previous" zijn hier niet mogelijk.
+code
+sCode:%Library.String,KadObj:Prod.GADef.KaderDeur,blnAbsOnly:%Library.String=0
+%Library.Float
+0 Do
+ . Set AbsPos=RelIPos
+ Else If (RelIPos'="") Do
+ . Set AbsPos=KadObj.AbsPosCalc(sCode,RelIPos)
+ . Set:(AbsPos=RelIPos) AbsPos=""
+ Set:($G(AbsPos)="") AbsPos=IPos
+
+ Quit AbsPos
+
+]]>
+
+
+
+
+Als blnOpposite=1, dan geeft CalcHoogtePos steeds de dikte/breedte (voor onder+boven/interne+externe zijde).]]>
+code
+GADefProd:Prod.GADef.KaderDeur,blnOpposite:%Library.Integer=1
+%Library.Float
+
+
+
+code
+GADefProd:Prod.GADef.KaderDeur
+%Library.Float
+
+
+
+code
+GADefProd:Prod.GADef.KaderDeur
+%Library.Float
+
+
+
+
+Returns "" (empty string) if OK.
+Mogelijke waarschuwingen zijn:
+Boring in Vrije zone Verbinder
+Boring in profiel van Scharnierzijde.]]>
+code
+KadObj:Prod.GADef.KaderDeur
+%Library.String
+0)&(%this.AfschuinDiameter>%this.BoorDiameter) D2=%this.AfschuinDiameter/2
+ . ; Transformatie naar eerste kwadrant
+ . Set:((2*pX)>KadObj.Breedte) pX=KadObj.Breedte-pX
+ . Set:((2*pY)>KadObj.Hoogte) pY=KadObj.Hoogte-pY
+ . ; Take BoorDiameter into account
+ . Set pX=pX-D2
+ . Set pY=pY-D2
+ . ; Get Vrijze Zone verbinder
+ . Set HoekL=KadObj.ProfType.Hoek.ConstructAfm.GetAt("VRZBOR")
+ . Set HoekB=KadObj.ProfType.Hoek.ConstructAfm.GetAt("BORAX") ; "VRZBORB"
+ . ; Controle Vrije Zone
+ . If ((pX
+
+
+
+
+Voor een D=5;7 doorboring wordt automatisch CncID="HULS" en AD=6.5, behalve als CncID="BOR".
+Info wordt weggeschreven in de property]]>
+code
+Breedte:%Library.Float,Hoogte:%Library.Float,ProfType:Res.PI.ProfType,VullingObj:Prod.GADef.emKadVulling,KadObj:Prod.GADef.KaderDeur
+%Library.Boolean
+0)&(%this.AfschuinDiameter>%this.BoorDiameter) D2=%this.AfschuinDiameter/2
+
+ ; Transformatie naar eerste kwadrant
+ Set:((2*pX)>Breedte) pX=Breedte-pX
+ Set:((2*pY)>Hoogte) pY=Hoogte-pY
+
+ If (%this.BoringType="ON")!(%this.BoringType="BO") Do ; Laterale boring
+ . ; Diameter ligt volledig binnen de Kaderdeur ?
+ . Set:(pX-D2'>0) msg="Rand Kader"
+ . Set:(pY-D2'>0) msg="Rand Kader"
+ . Quit:(msg'="")
+ . ;
+ . ; Boring beslist welke punten (posities) in het profiel moet gecontroleerd worden
+ . Set Pos1D=$S(pX"" of CncID="BOR"
+ ... Set %this.CncID="HULS"
+ ... Set %this.AfschuinDiameter=6.5
+ . If %this.CncID["HULS", ((%this.BoringType'="ON")!(%this.BoorDiameter'=5)!(%this.BoorDiepte'<0)) Do
+ .. ; Reset/Remove "HULS" indien niet meer van toepassing
+ .. Set %this.CncID=""
+ .. Set:(%this.AfschuinDiameter=6.5) %this.AfschuinDiameter=""
+ . ;
+ . ; Controle Vulling
+ . If (%this.BoorDiepte=-1) Quit:($$cbgControleVulling(.msg,VullingObj)=0) ; Doorboring NIET mogelijk ? --> Quit
+ . Else Set:(msg="OK: VUL") msg="Rugboring in Glas" ; Rugboring in glas NIET mogelijk
+ . ;
+ . Quit:($E(msg,1,3)'="OK:") ; Set msg="Fout Boring"
+ . Set OK=1
+
+ Else If (%this.BoringType="IN")!(%this.BoringType="EX") Do ; Dwarse (zij)boring
+ . ; Diameter ligt op de rand van de Kaderdeur ?
+ . Set:(%this.BoringType="EX") ProfPos=0
+ . Set:(%this.BoringType="IN") ProfPos=ProfType.Breedte
+ . ;
+ . Set:(pX-ProfPos\1=0)&(pY-ProfPos\1=0) msg="Fout Rand"
+ . Set:(pX-ProfPos\1<0)!(pY-ProfPos\1<0) msg="Niet op Rand"
+ . Set:(pX-ProfPos\1'=0)&(pY-ProfPos\1'=0) msg="Niet op Rand"
+ . Quit:(msg'="")
+ . ;
+ . Set Pos1D=%this.ZPos
+ . Set msg=$$cbgTestBoring1D(ProfType,%this.BoringType,Pos1D,D2,%this.BoorDiepte)
+ . Quit:($E(msg,1,3)'="OK:")
+ . ;
+ . Set OK=1
+
+ Else Do
+ . ; Type boring onbekend
+ . Set OK=0
+ . Quit
+
+ Do %this.OpmerkingKodeSet(msg,"NL")
+ Quit OK
+
+
+cbgTestBoring1D(ProfielType,Kant,Pos1D,Straal,Diepte)
+ New TypePlus,TypeMin
+ Set TypePlus=ProfielType.PuntInfoGet(Kant,Pos1D+Straal,Diepte)
+ Set TypeMin=ProfielType.PuntInfoGet(Kant,Pos1D-Straal,Diepte)
+ ;Set %this.Opmerking="Test: TP="_TypePlus_" , TM="_TypeMin_" , P+S="_(Pos1D+Straal)_" , P-S="_(Pos1D-Straal)
+ Quit:(TypePlus'=TypeMin) "Fout Boring"
+ Quit TypePlus
+
+
+cbgControleVulling(msg,VullingObj)
+ ; msg should be passed by reference !
+ New vOK,ResultB
+
+ If msg'["VUL" Set vOK=1
+ Else Do
+ . Set ResultB=VullingObj.ControleBoring($E(msg,4,999))
+ . If (ResultB'="OK:"),(ResultB'="") Do
+ .. ; Fout bij boring in de vulling: foutmelding via teruggeven.
+ .. Set msg=ResultB
+ .. Set vOK=0
+ . Else Set vOK=1
+ . ;
+
+ Quit vOK
+
+]]>
+
+
+
+]]>
+code
+MaxX:%Library.Float,MaxY:%Library.Float,MaxZ:%Library.Float,MaxD:%Library.Float
+%Library.String
+0)!(%this.XPos'0)!(%this.YPos'0),%this.BoorDiameter'="",(%this.BoorDiameter'>0)!(%this.BoorDiameter'0)!(%this.AfschuinDiameter'0,%this.BoorDiameter>0,(%this.AfschuinDiameter'>%this.BoorDiameter) Set msg="A" ; AfschuinD is kleiner dan BoorDiameter
+ . Else If %this.BoorGlasDiameter'="",(%this.BoorGlasDiameter<5) Set msg="BGD"
+ . Else If (%this.XPos="")&(%this.YPos="")&(%this.BoorDiameter="") Set msg="Leeg"
+ . Else If (%this.XPos="")!(%this.YPos="")!(%this.BoorDiameter="") Set msg="Onvolledig"
+ . ;Else If (%this.XPos="")!(%this.YPos="")!(%this.BoorDiameter="")!((%this.BoringPlaats="KG")&(%this.BoorGlasDiameter="")) Set msg="Onvolledig"
+ . Else Set OK=1
+
+ Else IF (%this.BoringType="EX")!(%this.BoringType="IN") Do
+ . ; Zijboring
+ . If %this.XPos'="",(%this.XPos<0)!(%this.XPos>MaxX) Set msg="X"
+ . Else If %this.YPos'="",(%this.YPos<0)!(%this.YPos>MaxY) Set msg="Y"
+ . Else If %this.ZPos'="",(%this.ZPos'>0)!(%this.ZPos'0)!(%this.BoorDiameter'0),%this.BoorDiameter'="",(%this.BoorDiameter'>0)!(%this.BoorDiameter'0)!(%this.AfschuinDiameter'%this.BoorDiameter) Set msg="A" ; AfschuinD is kleiner dan BoorDiameter
+ . Else If (%this.XPos="")&(%this.YPos="")&(%this.ZPos="")&(%this.BoorDiameter="") Set msg="Leeg"
+ . Else If (%this.XPos="")!(%this.YPos="")!(%this.ZPos="")!(%this.BoorDiameter="") Set msg="Onvolledig"
+ . Else Set OK=1
+ . ;
+
+ Else Do
+ . ; Type boring onbekend
+ . Set OK=0
+ . Quit
+
+
+ Do:(OK'=1) %this.OpmerkingKodeSet(msg,"NL")
+ Quit OK
+
+]]>
+
+
+
+
+Copy maken van een boring in een nieuw object.
+Verschillende CopyModes: "FullCopy" (=Default), "BorNormal", "Empty"
+code
+CopyMode:%Library.String="FullCopy"
+Prod.GADef.emKadBoring
+
+
+
+
+Geeft True of False terug, naargelang de boring een speciale of een gewone is.
+code
+%Library.Boolean
+0) Quit 0
+ ; boring is een "HULS" doorboring
+ If %this.BoorDiepte<0, %this.BoorDiameter=5, %this.AfschuinDiameter=6.5, %this.BoorGlasDiameter>5, $E(%this.CncID,1,4)="HULS" Quit 0
+ ; boring is een normale doorboring
+ If %this.BoorDiepte<0, ('%this.BoorDiameter)!(%this.BoorDiameter>0), %this.AfschuinDiameter'>0, ('%this.BoorGlasDiameter)!(%this.BoorGlasDiameter=7) Quit 0
+ ; boring is een normale rugboring
+ If %this.BoorDiepte>0, ('%this.BoorDiameter)!(%this.BoorDiameter>0), %this.AfschuinDiameter'>0, ('%this.BoorGlasDiameter)!(%this.BoorGlasDiameter=7) Quit 0
+
+ Quit 1
+
+]]>
+
+
+
+code
+QtyStaffel:%Library.Integer,MuntPar:%Library.Float,DtlObj:Res.PI.emKostDetail,Opties:%Library.String,Omtrek:%Library.Float,Opp:%Library.Float,Volume:%Library.Float
+%Library.Float
+
+
+
+code
+Kode:%Library.String,Taal:%Library.String="NL"
+
+
+
+
+Creëert een tekstlijn op basis van de gegevens van het Embedded Boring Object.
+Deze Tekst wordt tijdelijk opgeslagen in de property TxtSpecial (Transient).
+code
+Taal:%Library.String="NL"
+%Library.String
+
+
+
+
+Tekenen van de VML-boringen binnen de groep van alle beslag.
+Voor iedere boring van het beslag wordt deze routine telkens opgeroepen.
+code
+DevObj:%Library.String,Plaats:%Library.String,ProfBreedte:%Library.Float,TekeningCode:%Library.String,Opties:%Library.String
+"
+ ; "
+
+
+
+
+Voor een zijboring ("Z") is [objParent] of ( [Plaats] en [ProfBreedte]) verplicht door te geven.]]>
+code
+
+ ; ...
+ ;
+
+ New BType,strVML,strVML2,intLeft,intTop,intSize,intRotate,strColor,FKey
+ New sProf,Opposite,NL
+ Set NL=$C(13)_$C(10)
+ Set BType=$S((%this.BoringType="EX")!(%this.BoringType="IN"):"Z", 1:%this.BoringType)
+ If BType="Z",$G(Plaats)="",'$G(objParent) Quit
+ Set:($G(Plaats)="") Plaats=objParent.ProfielPlaatsGet(%this)
+ Quit:(objParent.NietOpProfiel(Plaats))
+
+ ; Prepare Boring Symbol
+ ; ---------------------
+ Set strVML=""
+ Set strColor="black"
+
+ If BType="Z" Do
+ . ; Zijboring
+ . ;Set:($G(Plaats)="") Plaats=objParent.ProfielPlaatsGet(%this)
+ . Set intRotate=$S(Plaats="PL":0, Plaats="PB":90, Plaats="PR":180, Plaats="PO":270, 1:0) ; Externe boring
+ . Set:(%this.BoringType="IN") intRotate=(intRotate+180)#360
+ . Set strColor="red"
+ . Set strVML=$$TCross^VHSys.Library.VMLLib(50,50,50,50,strColor,intRotate,)_NL
+ . ; Values for
+ . Set intSize=14*2
+
+ Else If %this.IsSpecialeBoring() Do
+ . ; Speciale boring: put (+) sign to draw users attention
+ . Set strVML=$$CrossHV^VHSys.Library.VMLLib(50,50,100,100,strColor,)_NL
+ . ; Values for
+ . Set intSize=12
+
+ Else If %this.BoorDiepte<0 Do
+ . ; Doorboring (normal circle)
+ . Set strVML=$$Circle^VHSys.Library.VMLLib(50,50,100,strColor,)_NL
+ . ; Values for
+ . Set intSize=$S(%this.BoorDiameter<2:2, 1:%this.BoorDiameter)
+
+ Else If (%this.BoorDiameter<0)||(%this.BoorDiepte=0) Do
+ . ; Puntboring (X : diagonal cross)
+ . Set strVML=$$CrossDiag^VHSys.Library.VMLLib(50,50,100,100,strColor,)_NL
+ . ; Values for
+ . Set intSize=10
+
+ Else Do
+ . ; Standaard Rugboring (
+ . Set strVML=$$CrossDiag^VHSys.Library.VMLLib(50,50,100,100,strColor,)_NL
+ . Set strVML=strVML_$$Circle^VHSys.Library.VMLLib(50,50,$S(%this.BoorDiameter<2:2, 1:%this.BoorDiameter)*10,strColor,)_NL
+ . ; Values for
+ . Set intSize=10
+
+
+ Set intLeft=%this.XPos-(intSize\2)
+ Set intTop=%this.YPos-(intSize\2)
+
+ ; Set VML Group and surrounding rectangle
+ Set strVML2=""
+ If $G(Opties)["C" Set strVML2=strVML2_""_NL
+ Set strVML2=strVML2_$$xvwVMLGroepOpen(intLeft,intTop, intSize,intSize)_NL
+ Set strVML2=strVML2_strVML
+ Set strVML2=strVML2_$$xvwVMLGroepClose()_NL
+ Do WRITE^XMLWRITE(DevObj,strVML2)
+
+
+ ; !!! DOORBORING in zijkant - draw OPPOSITE zijboring !!!
+ If (BType="Z"),(%this.BoorDiepte<0) Do
+ . Set strVML=$$TCross^VHSys.Library.VMLLib(50,50,50,50,strColor,(intRotate+180)#360,)_NL
+ . Set sProf=%this.BoringType_"-"_Plaats
+ . Set:($G(ProfBreedte)="") ProfBreedte=objParent.ProfType.Breedte
+ . Set Opposite=ProfBreedte*$S((sProf="IN-PL")!(sProf="IN-PB")!(sProf="EX-PR")!(sProf="EX-PO"):-1,(sProf="EX-PL")!(sProf="EX-PB")!(sProf="IN-PR")!(sProf="IN-PO"):1,1:0)
+ . Set:(Plaats="PL")!(Plaats="PR") intLeft=intLeft+Opposite
+ . Set:(Plaats="PB")!(Plaats="PO") intTop=intTop+Opposite
+ . Set strVML2=""
+ . Set strVML2=strVML2_$$xvwVMLGroepOpen(intLeft,intTop, intSize,intSize)_NL
+ . Set strVML2=strVML2_strVML
+ . Set strVML2=strVML2_$$xvwVMLGroepClose()_NL
+ . Do WRITE^XMLWRITE(DevObj,strVML2)
+
+ Quit
+
+
+xvwVMLGroepOpen(Left,Top,Width,Height)
+ Set:(Width\1'>0) Width=1
+ Set:(Height\1'>0) Height=1
+ Quit ""
+
+xvwVMLGroepClose()
+ Quit " "
+]]>
+
+
+
+code
+0 Do ; Punten van boring
+ . Do:(%this.BoorDiameter) TAGWRITE^XMLWRITE(DevObj,"DIAMETER",%this.BoorDiameter,"UNIT=""mm""")
+ . Do:(%this.BoorGlasDiameter) TAGWRITE^XMLWRITE(DevObj,"GLASDIAMETER",%this.BoorGlasDiameter,"UNIT=""mm""")
+ . Do:(%this.AfschuinDiameter) TAGWRITE^XMLWRITE(DevObj,"AFSCHUINDIAMETER",%this.AfschuinDiameter,"UNIT=""mm""")
+ Else Do ; Puntboring
+ . Do:(%this.BoorDiameter'="") TAGWRITE^XMLWRITE(DevObj,"DIAMETER","punt","")
+
+ ; Plaatsbepaling
+ If %this.BoringType="ON" Do ;Standaard boring langs ONder
+ . Set Param=$S(%this.BoorDiepte<0:"doorboring",%this.BoorDiepte>0:"rugboring",%this.BoorDiepte=0:"puntboring",1:"")
+ . Do TAGWRITE^XMLWRITE(DevObj,"BOORTYPE",%this.BoringType)
+ . Do TAGWRITE^XMLWRITE(DevObj,"BOORDIEPTE",%this.BoorDiepte,"OMS="""_Param_"""")
+ Else Do ;Speciale boring
+ . Set Param=$S(%this.BoringType="BO":"bovenkant",%this.BoringType="EX":"externe",%this.BoringType="IN":"interne",1:"fout profielkant")
+ . Do TAGWRITE^XMLWRITE(DevObj,"BOORTYPE",%this.BoringType,"OMS="""_Param_"""")
+ . Set Param=$S(%this.BoorDiepte<0:"doorboring",%this.BoorDiepte>0:"zijboring",%this.BoorDiepte=0:"puntboring",1:"")
+ . Do TAGWRITE^XMLWRITE(DevObj,"BOORDIEPTE",%this.BoorDiepte,"OMS="""_Param_"""")
+
+ Set Param=""
+ Set:($E(%this.BoringPlaats,1,2)?1"P"1E) Param=$Case($E(%this.BoringPlaats,1,2), "PL":"links", "PR":"rechts", "PB":"bovenste", "PO":"onderste", :"")_" profiel"
+ Set:(%this.BoringPlaats["VUL") Param=$S(Param'="":Param_" en ",1:"")_"glas"
+ Set:(Param="") Param="fout"
+ Do TAGWRITE^XMLWRITE(DevObj,"BOORPLAATS",%this.BoringPlaats,"OMS="""_Param_"""")
+ Do:($L(%this.Opmerking)) TAGWRITE^XMLWRITE(DevObj,"OPMERKING",%this.Opmerking)
+ Do:($L(%this.CncID)) TAGWRITE^XMLWRITE(DevObj,"CNCID",%this.CncID)
+ Do:($L(%this.VmlID)) TAGWRITE^XMLWRITE(DevObj,"VMLID",%this.VmlID)
+
+ Set LPos=%this.CalcLPos(GADefProd)
+ Set RandPos=%this.CalcRandPos(GADefProd)
+ Do:(LPos'="") TAGWRITE^XMLWRITE(DevObj,"LPOS",LPos,"UNIT=""mm""")
+ Do:(RandPos'="") TAGWRITE^XMLWRITE(DevObj,"RANDPOS",RandPos,"UNIT=""mm""")
+
+ Do ENDTAG^XMLWRITE(DevObj,"BORING")
+
+]]>
+
+
+
+%Library.CacheSerialState
+emPSBoringState
+^Prod.GAD.emKadBoringS
+
+
+AfschuinDiameter
+
+
+BoorDiameter
+
+
+BoringType
+
+
+Opmerking
+
+
+XPos
+
+
+YPos
+
+
+ZPos
+
+
+BoringPlaats
+
+
+BoorGlasDiameter
+
+
+BoorDiepte
+
+
+RelXPos
+
+
+RelYPos
+
+
+RelZPos
+
+
+CncID
+
+
+VmlID
+
+
+CStream
+
+
+
+
+
Index: Prod/ProductBasis.cls.xml
===================================================================
diff -u
--- Prod/ProductBasis.cls.xml (revision 0)
+++ Prod/ProductBasis.cls.xml (revision 2)
@@ -0,0 +1,1829 @@
+
+
+
+persistent
+DataM
+%Library.Persistent
+
+
+
+A = 80% van de meest roterende producten
+B = 15% van de tweede meest roterende producten
+C = 5% van de minst roterende producten
+
+De klassificatie wordt opnieuw berekend door ^PRABC
+De klassificatie wordt berekend op het aantal uitgaande gecumuleerde faktuurlijnen in ^KSTPR
+%Library.String
+
+
+
+
+Toeleveringen opgedeeld in drie velden door "#"
+1. Aantal stock ++ KOM
+Format: Numeric: 7
+
+2. Aantal stock
+Format: Numeric: 7
+
+3. Aantal KOM
+Format: Numeric: 7
+%Library.String
+
+
+
+
+Reservatie opgedeeld in drie velden door "#"
+1. Aantal Stock + KOM
+Format: Numeric: 7
+2. Aantal Stock
+Format: Numeric: 7
+3. Aantal KOM
+Format: Numeric: 7
+%Library.String
+
+
+
+%Library.String
+
+
+
+
+Format: Char: 2
+Waarde: E1,E2,...,H1,H2,...
+%Library.String
+
+
+
+
+Format: Char: 2
+Waarde: E1, E2,...,H1,H2,...
+%Library.String
+
+
+
+
+Format: Char: 2
+Waarde: E1,E2,...,H1,H2,...
+%Library.String
+
+
+
+
+Format: Char: 2
+Waarde: E1,E2,...,H1,H2,...
+%Library.String
+
+
+
+
+Format: Numeric: 1
+%Library.String
+
+
+
+
+Popup: PRODUKT;PRBARCODE
+%Library.String
+
+
+
+
+Fomat: 20 char
+%Library.String
+
+
+
+
+Copy van de fysische stock. Genomen bij het begin van de inventaris om na de inventaris een vergelijking te maken
+%Library.Integer
+
+
+
+
+Format: Numeric: 7
+%Library.Integer
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+1 = Niet bijhouden
+"" = Bijhouden
+%Library.String
+
+
+
+%Library.String
+
+
+
+
+Breedte in mm van de grootverpakking
+%Library.Integer
+
+
+
+
+Format: Numeriek, aantal weken
+%Library.Integer
+
+
+
+
+Popup PRODUKT;CYCLECOUNT
+0 = Nooit
+1 = Altijd
+2 = Grenswaardeoverschrijding
+3 = 2 + 4
+4 = Bij leegworden drager
+%Library.Integer
+
+
+
+
+Format: DD.MM.JJ
+Sys.cDate
+
+
+
+
+Geeft aan wanneer een produkt veranderd is zodanig dat nieuwe goederen niet meer mogen bijgestapeld worden.
+Er moet een nieuwe paletplaats voor voorzien worden.
+%Library.Date
+
+
+
+Sys.cDate
+
+
+
+
+Opgedeeld in Stock en KOM door #
+Het gemiddelde wordt berekend door (totaal verkoop over 52 weken) / 48
+1. Stock gem weekverkoop
+Format: Numeric: 7
+2. KOM gem weekverkoop
+Format: Numeric: 7
+3. Frequentie: hoeveel weken er verkoop is per jaar
+%Library.String
+
+
+
+
+Bij orderingave wordt deze routine opgeroepen voor kreatie van het afgeleide product
+%Library.String
+
+
+
+
+Format: Real: 12,3
+%Library.Numeric
+
+
+
+
+Gemiddelde weekverkoop waar de recenste weken zwaarder wegen dan de oude weken
+( VerkoopWeekx * (Weekx) MOD 4) / Weekx MOD 4 * ISVERLOF(Weekx)
+Waar Weekx gaat van 1 (= oudste week) tot 52 (= recenste week)
+De functie ISVERLOF geeft voor de verlof weken een 0 terug en voor de ander een 1.
+%Library.String
+
+
+
+
+Hoogte in mm van de grootverpakking
+%Library.Integer
+
+
+
+
+Format: String: 11
+%Library.String
+
+
+
+%Library.Integer
+
+
+
+
+Format: Char: 1
+Waarde: Indien empty is geen KATALOOG PRIJS - product
+Anders L,S,G dan KATALOOG PRIJS - product
+%Library.String
+
+
+
+
+1 = verschijnt in de KS-prijslijst
+%Library.String
+
+
+
+
+Format: Char: 1
+Waarde: Indien empty is geen KATALOOG PRIJS - product
+Anders L,S,G dan KATALOOG PRIJS - product
+%Library.String
+
+
+
+%Library.String
+
+
+
+
+Format: String: 25
+%Library.String
+
+
+
+
+Lengte in mm van de grootverpakking
+%Library.Integer
+
+
+
+%Library.String
+
+
+
+
+K = Kind of leeg
+Indien "K" dan kan dit product niet alleen verkocht worden, alleen als deel van een moederproduct
+%Library.String
+
+
+
+
+Waarde: 1= NON-Aktief, empty = Aktief
+%Library.String
+
+
+
+%Library.String
+
+
+
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 26
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Boekhoudkundig rekeningnummer waarop gefaktureerd wordt. Wordt gebruikt bv. voor verpakking.
+%Library.String
+
+
+
+
+Popup: PRODUKT;OPSLAGZONE
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+
+Format: String: 44
+%Library.String
+
+
+
+%Library.String
+1
+ Set {*}=##class(Prod.Product).GetPropViaNr({InternProductNr},"ProductGroep")
+
+1
+
+
+
+
+Popup: PRODUKT; STOCKAGEGRP
+Geeft aan tot welke productgroep dit product behoort voor opslag van dit product in een bep. opslagzone
+%Library.String
+
+
+
+
+Aantal dat gereserveerd van de fysische stock tijdens het doorsturen van de OL's naar ht WMS en het feitelijke op uitleveringsbon zetten van de lijnen
+%Library.Integer
+
+
+
+
+door "#" gescheiden
+1. Rotatie
+2. Gem. Fys Stock
+%Library.String
+
+
+
+
+Format: Char: 1
+Indien leeg = Simulatie
+Indien numeriek: Limiet met als limietwaarde de ingevulde waarde
+%Library.String
+
+
+
+
+Format: Numeric: 4
+%Library.Integer
+
+
+
+
+Format: Real: 4,2
+%Library.Numeric
+
+
+
+
+Dekkingsbijdrage
+Format: Real: 4,2
+%Library.Numeric
+
+
+
+
+Extra schaduw DB% voor de PRIJSLIJST-klanten (Codex = "P")
+Format: Real: 4,2
+%Library.Numeric
+
+
+
+
+Format: Real: 4,2
+%Library.Numeric
+
+
+
+%Library.String
+
+
+
+
+Format: Real: 12,2
+%Library.Numeric
+
+
+
+
+Format: Real: 4,2
+%Library.Numeric
+
+
+
+
+"" = Neen, 1 = Ja
+%Library.String
+
+
+
+
+Format: Numeric: 2
+%Library.Integer
+
+
+
+
+Waarde: 1 = stock, empty = Niet stock
+%Library.String
+
+
+
+
+Is een vermenigvuldigingsfaktor om het aantal verkochte producten correct te herleiden naar bv. hoeveel laden hebben we verkocht
+Indien Telbaar = 0 dan is het produkt niet telbaar bv. accessoires
+Waarde: 0;1;2;...;0,5;0,25;...
+%Library.String
+
+
+
+
+Popup: PRODUKT;SAMPLETYPE
+E = Eenmalig sampelen
+B = Altijd hersampelen
+N = Niet sampelen
+Opmerking: Indien Sample = E en het produkt wordt geteld door de telweegschaal dan
+wordt door het WMS 's nachts een feedback gegeven van Sample = "N". Om te melden
+dat de sample is genomen.
+%Library.String
+
+
+
+
+Popu: PRODUKT;TELWIJZE
+Z = Zonderbijsamplen
+B = Bijsamplen
+L = aansturing meettoestel niet van toepassing
+%Library.String
+
+
+
+
+Format: Numeric: 7
+%Library.Integer
+
+
+
+
+Uniekheid index voor property InternProductNr
+1
+InternProductNr
+1
+
+
+
+1
+%Library.String
+M.AB.9 of BQBC1->B.QBC.1 of MAHBC2->M.AH.BC.2
+
+ Set vGroep=""
+ Set vDossierNr=""
+ Set vCtrlNr=""
+
+ ;Input onthouden voor foutmeldigen
+ New OrigDossier
+ Set OrigDossier=Dossier
+
+ ;Eventueel reeds geplaatste (foutieve of correcte) punten weghalen
+ Set Dossier=$TR(Dossier,".","")
+
+ ;Controlecijfer ophalen
+ New Loop,tmpChar,CtrlNr
+ Set CtrlNr=""
+ For Loop=$L(Dossier):-1:1 Set tmpChar=$E(Dossier,Loop) Quit:('$IsValidNum(tmpChar)) Do
+ . Set CtrlNr=tmpChar_CtrlNr
+
+ Quit:(CtrlNr="") ""
+
+ Write "Controlecijfer: "_CtrlNr,!
+
+ ;Controlecijfer van dossier strippen
+ New Rest
+ Set Rest=$ZSTRIP(Dossier,">N")
+
+ Quit:(Rest="") ""
+
+ ;Groep (Tandembox,banco,...) strippen (1e char)
+ New Groep,DossierNr
+ Set Groep=$E(Rest,1)
+ Set DossierNr=$E(Rest,2,99999)
+
+ Write "Groep: "_Groep,!
+
+ Quit:(DossierNr="") ""
+
+ Write "ProdCode: "_DossierNr,!
+
+ New DottedProdCode,PCLen
+ Set PCLen=$L(DossierNr)
+ If PCLen<4 Do
+ . Set DottedProdCode=DossierNr
+ Else Do
+ . Set DottedProdCode=$CASE(PCLen,4:$E(DossierNr,1,2)_"."_$E(DossierNr,3,4),5:$E(DossierNr,1,3)_"."_$E(DossierNr,4,5),6:$E(DossierNr,1,2)_"."_$E(DossierNr,3,4)_"."_$E(DossierNr,5,6),:"")
+
+ Quit:(DottedProdCode="") ""
+
+ Set vGroep=Groep
+ Set vDossierNr=DossierNr
+ Set vCtrlNr=CtrlNr
+
+ Quit Groep_"."_DottedProdCode_"."_CtrlNr
+
+]]>
+
+
+
+1
+Opslagzone:%Library.Integer
+%Library.String
+
+
+
+1
+Groep:%Library.String,DossierNr:%Library.String
+%Library.String
+
+
+
+
+Ophalen van een property via het internproductnummer, zonder het product object te opene
+1
+PRNr:%Library.Integer,PropName:%Library.String
+%Library.String
+
+
+
+1
+IdentNr:%Library.String
+%Library.String
+
+
+
+
+Wegschrijven van een property via het internproductnummer, zonder het product object te openen.
+Geeft 1 terug als OK anders 0 of foutmelding.
+1
+PRNr:%Library.Integer,PropName:%Library.String,Val:%Library.String
+%Library.String
+
+
+
+
+Opties:
+
+"PROM" ;Omschrijving
+"PRLK" ; Lijst kindproducten incl.
+"PRIK" ; Is kindproduct
+"PRQTY" : Qty
+"PRKR" : incl .KLantreferentie
+Input:%Library.String,DevObj:%Library.String,Taal:%Library.String,Opties:%Library.String,XSLURL:%Library.String=""
+")
+ . Do WRITE^XMLWRITE(DevObj,"")
+ . Do WRITELN^XMLWRITE(DevObj)
+
+ Do ONEPROD(%this.InternProductNr,tmpKLNr,tmpQty,Opties)
+
+ Quit
+
+ONEPROD(PRNr,KLNr,Qty,Opties)
+ New KortTxt,IDNr,TekRef,Cnt,J,I,Node,Piece,Txt
+ Set Opties=$G(Opties)
+ Do BEGINTAG^XMLWRITE(DevObj,$S(Opties["PRIK":"KINDPRODUCT",1:"PRODUCT"))
+ Do WRITELN^XMLWRITE(DevObj)
+ Set KortTxt=%this.KortTekst ;$P(^KPR(PRNr,0),D)
+
+ ;New tmpGADefObjID,tmpGADefObj
+ ;Set tmpGADefObjID=$P(^KPR(PRNr,"G"),D,13)
+ ;If tmpGADefObjID Do
+ ;. Set tmpGADefObj=##class(Prod.GADef.AfgeleidDef).%OpenId(tmpGADefObjID)
+ ;. If '(Opties[";GAV;GAO") Do Set Opties=Opties_";GAV;GAO" ;XMLWrite van KaderDeur zeker VML & Omschrijving-opties meegeven
+ ;. Do tmpGADefObj.XMLWrite(DevObj,$G(Taal),$G(Opties),"")
+ ;. Do tmpGADefObj.%Close()
+ ;
+ ; Aanpassingen voor GAData.Product:
+ New GAProdID,GAProd,GENTYP
+ Set GAProdID=$P(^KPR(PRNr,"G"),D,13)
+ If $L(GAProdID) Do
+ . Set GENTYP=$P(##class(Prod.Product).GetPropViaNr(PRNr,"GENTYP"),"\",1) ; Geeft TBX, KAD, BAN, ... terug naargelang het product
+ . If GENTYP?1(1"TBX",1"STG") Do
+ .. If '(Opties[";GAO") Do Set Opties=Opties_";GAO" ;XMLWrite van GAData.Product zeker Omschrijving-opties meegeven
+ .. Set GAProd=##class(Prod.GAData.Product).OpenWithCalc(GAProdID)
+ . Else Do
+ .. If '(Opties[";GAV;GAO") Do Set Opties=Opties_";GAV;GAO" ;XMLWrite van KaderDeur zeker VML & Omschrijving-opties meegeven
+ .. Set GAProd=##class(Prod.GADef.AfgeleidDef).%OpenId(GAProdID)
+ . ; Als GAProd bestaat, dan XMLWrite() uitvoeren.
+ . If GAProd Do
+ .. Do GAProd.XMLWrite(DevObj,$G(Taal),$G(Opties),"")
+ .. Do GAProd.%Close()
+
+ Set IDNr=$P(^KPR(PRNr,2),D,25)
+
+ Do BEGINTAG^XMLWRITE(DevObj,"BARCODE")
+ Do TAGWRITE^XMLWRITE(DevObj,"TYPE",%this.BarcodeType)
+ Do WRITELN^XMLWRITE(DevObj)
+ Do TAGWRITE^XMLWRITE(DevObj,"WAARDE",%this.BarcodeWaarde)
+ Do WRITELN^XMLWRITE(DevObj)
+ Do ENDTAG^XMLWRITE(DevObj,"BARCODE")
+
+ Do TAGWRITE^XMLWRITE(DevObj,"PRNR",PRNr)
+ Do WRITELN^XMLWRITE(DevObj)
+ Do TAGWRITE^XMLWRITE(DevObj,"KORTTEKST",KortTxt)
+ Do WRITELN^XMLWRITE(DevObj)
+ Do TAGWRITE^XMLWRITE(DevObj,"IDENTNR",IDNr)
+ Do WRITELN^XMLWRITE(DevObj)
+ Do:Opties["PRKR" KLANTREF(PRNr,KLNr) ; Klantreferenties
+ Do:Opties["PRQTY" TAGWRITE^XMLWRITE(DevObj,"QTY",Qty)
+ Do WRITELN^XMLWRITE(DevObj)
+ Set Talen=$G(Taal,"NFDE")
+ If Opties["PROM" For I=1:1:$L(Talen) Do
+ . Set Taal=$E(Talen,I)
+ . Set:Taal="N" List="0.2,0.11,6.1,6.2,6.3"
+ . Set:Taal="F" List="1.22,3.21,8.1,8.2,8.3"
+ . Set:Taal="D" List="2.2,3.23,10.1,10.2,10.3"
+ . Set:Taal="E" List="2.1,3.22,12.1,12.2,12.3"
+ . Do BEGINTAG^XMLWRITE(DevObj,"OMS",$$PARAMFILL^XMLWRITE("TAAL",Taal))
+ . Set Cnt=0
+ . For J=1:1:$L(List,",") Do
+ .. Set Node=$P($P(List,",",J),".",1)
+ .. Set Piece=$P($P(List,",",J),".",2)
+ .. Set Txt=$P($G(^KPR(PRNr,Node)),D,Piece)
+ .. Quit:Txt=""
+ .. Set Cnt=Cnt+1
+ .. Do TAGWRITE^XMLWRITE(DevObj,"LIJN",$$ConvertToHTML^vhRtn1(Txt),$$PARAMFILL^XMLWRITE("VOLGNR",Cnt))
+ .. Do WRITELN^XMLWRITE(DevObj)
+ . Do ENDTAG^XMLWRITE(DevObj,"OMS")
+ . Do WRITELN^XMLWRITE(DevObj)
+ Do:Opties["PRLK" KINDPROD(PRNr)
+ Do ENDTAG^XMLWRITE(DevObj,$S(Opties["PRIK":"KINDPRODUCT",1:"PRODUCT"))
+ Do WRITELN^XMLWRITE(DevObj)
+ Quit
+
+TEKREF(PRNr,Opties)
+ New TekRef
+ Set TekRef=$P(^KPR(PRNr,0),D)
+ Set TekRef=$E(TekRef,4,99)
+ Set TekRef=$TR($E(TekRef,1,8),".# ","")
+ Set:($E(TekRef,7,8)=16)!($E(TekRef,7,8)=18)!($E(TekRef,7,8)=19) $E(TekRef,7,8)="xx"
+ Set:($E(TekRef,7,8)="IN")!($E(TekRef,7,8)="GR")!($E(TekRef,7,8)="WI") $E(TekRef,7,8)=""
+ Quit $S($L(TekRef):TekRef_".Gif",1:"")
+
+KINDPROD(PRNr)
+ New KPRNr,Sort
+ Set KPRNr=""
+ For Set KPRNr=$O(^PRLINK("D",PRNr,KPRNr)) Quit:KPRNr="" Do
+ . Set Sort($$SORTKEY^PRODUKT(KPRNr))=KPRNr_D_$P(^PRLINK("D",PRNr,KPRNr),D)
+ Set Sort=""
+ For Set Sort=$O(Sort(Sort)) Quit:Sort="" Do
+ . Do ONEPROD($P(Sort(Sort),D,1),$P(Sort(Sort),D,2),"QK") ; Recursie
+ Quit
+
+KLANTREF(PRNr,KLNr)
+ ; Dummy
+ Quit
+
+]]>
+
+
+
+%CacheSQLStorage
+^Prod.ProductBasisS
+
+data
+^KPR
+delimited
+
+{InternProductNr}
+0.1
+
+
+"\"
+0
+8
+
+
+"\"
+0
+17
+
+
+"\"
+2
+9
+
+
+"\"
+3
+20
+
+
+"\"
+1
+14
+
+
+"\"
+1
+10
+
+
+"\"
+1
+15
+
+
+"\"
+1
+16
+
+
+"\"
+0
+5
+
+
+"\"
+2
+13
+
+
+"\"
+2
+14
+
+
+"\"
+1
+9
+
+
+"\"
+0
+12
+
+
+"\"
+4
+1
+
+
+"\"
+4
+7
+
+
+"\"
+4
+8
+
+
+"\"
+4
+9
+
+
+"\"
+4
+10
+
+
+"\"
+5
+4
+
+
+"\"
+5
+5
+
+
+"\"
+5
+6
+
+
+"\"
+5
+7
+
+
+"\"
+5
+8
+
+
+"\"
+5
+9
+
+
+"\"
+4
+2
+
+
+"\"
+5
+10
+
+
+"\"
+4
+3
+
+
+"\"
+5
+1
+
+
+"\"
+5
+2
+
+
+"\"
+5
+3
+
+
+"\"
+4
+4
+
+
+"\"
+4
+5
+
+
+"\"
+4
+6
+
+
+"\"
+0
+15
+
+
+"\"
+3
+1
+
+
+"\"
+1
+5
+
+
+"\"
+1
+17
+
+
+"\"
+1
+2
+
+
+"\"
+0
+13
+
+
+"\"
+1
+8
+
+
+"\"
+0
+16
+
+
+"\"
+1
+23
+
+
+"\"
+0
+3
+
+
+"\"
+1
+13
+
+
+"\"
+1
+21
+
+
+"\"
+1
+4
+
+
+"\"
+2
+25
+
+
+"\"
+1
+18
+
+
+"\"
+3
+3
+
+
+"\"
+1
+19
+
+
+"\"
+3
+2
+
+
+"\"
+0
+1
+
+
+"\"
+1
+6
+
+
+"\"
+0
+6
+
+
+"\"
+0
+23
+
+
+"\"
+1
+25
+
+
+"\"
+0
+20
+
+
+"\"
+0
+21
+
+
+"\"
+2
+2
+
+
+"\"
+3
+23
+
+
+"\"
+2
+1
+
+
+"\"
+3
+22
+
+
+"\"
+1
+22
+
+
+"\"
+3
+21
+
+
+"\"
+0
+2
+
+
+"\"
+0
+11
+
+
+"\"
+0
+10
+
+
+"\"
+2
+15
+
+
+"\"
+8
+9
+
+
+"\"
+6
+9
+
+
+"\"
+8
+10
+
+
+"\"
+6
+10
+
+
+"\"
+9
+1
+
+
+"\"
+7
+1
+
+
+"\"
+9
+2
+
+
+"\"
+7
+2
+
+
+"\"
+9
+3
+
+
+"\"
+7
+3
+
+
+"\"
+9
+4
+
+
+"\"
+7
+4
+
+
+"\"
+9
+5
+
+
+"\"
+7
+5
+
+
+"\"
+9
+6
+
+
+"\"
+7
+6
+
+
+"\"
+9
+7
+
+
+"\"
+7
+7
+
+
+"\"
+9
+8
+
+
+"\"
+7
+8
+
+
+"\"
+9
+9
+
+
+"\"
+7
+9
+
+
+"\"
+9
+10
+
+
+"\"
+7
+10
+
+
+"\"
+8
+1
+
+
+"\"
+6
+1
+
+
+"\"
+8
+2
+
+
+"\"
+6
+2
+
+
+"\"
+8
+3
+
+
+"\"
+6
+3
+
+
+"\"
+8
+4
+
+
+"\"
+6
+4
+
+
+"\"
+8
+5
+
+
+"\"
+6
+5
+
+
+"\"
+8
+6
+
+
+"\"
+6
+6
+
+
+"\"
+8
+7
+
+
+"\"
+6
+7
+
+
+"\"
+8
+8
+
+
+"\"
+6
+8
+
+
+"\"
+1
+1
+
+
+"\"
+0
+9
+
+
+"\"
+1
+24
+
+
+"\"
+0
+24
+
+
+"\"
+0
+18
+
+
+"\"
+2
+7
+
+
+"\"
+2
+6
+
+
+"\"
+2
+10
+
+
+"\"
+2
+4
+
+
+"\"
+1
+3
+
+
+"\"
+2
+3
+
+
+"\"
+2
+5
+
+
+"\"
+2
+16
+
+
+"\"
+2
+8
+
+
+"\"
+1
+20
+
+
+"\"
+1
+7
+
+
+"\"
+2
+12
+
+
+"\"
+2
+11
+
+
+"\"
+0
+14
+
+
+
+
+
Index: csp/productmenusa.cls.xml
===================================================================
diff -u
--- csp/productmenusa.cls.xml (revision 0)
+++ csp/productmenusa.cls.xml (revision 2)
@@ -0,0 +1,203 @@
+
+
+
+User
+cache
+%CSP.Page,cspBasis.ProductMenu
+
+
+1
+code
+%Status
+
+
+
+1
+code
+%Boolean
+"
+ Write !,""
+ Write !,"",!
+ Write $c(9)_"
",!
+ Write !,$c(9)
+ Set i=""
+ Write !
+%csp00006 If '(..LoopArray(.MenuArray,.i)) Goto %csp00005 ;{
+ Write !,"
| + |
+ |
+ ||||
 |
+ |||||
ID: |
+ |||||
| + | + | + | + | + | |
+
|
+
+ |
+
+
| + |
+ |
+ + |
+ |
+ |
+
|
+ |
+
+
|
+ |
+
+
|
+
+ 
+ |
+
+
|
+ |||||||||||||||
+
| + |
+ EDI Nr.: |
+ ||||
|
+ NAME: |
+ ||||
ID: |
+ |||||
E-MAIL: |
+ |||||
WUNSCHLIEFERDATUM: |
+ |||||
REFERENZ: |
+ |||||
| + | + | + | + | + | |
+
|
+
+ Fax an +41 71 727 52 04 |
+
+
| Standard Schubkästen (vom Lager): | +
| Nicht liefern: | ||||
|
+ Total: |
+
+ |
+ + |
+ |
+
+
|
+ Dieses Angebot ist 30 Tage gültig, bis zum |
+
+
|
+ |
+
+
|
+ |
+
| DESIGN : Zargen | +FARBEN : Bestandteile | +||||||||
|
+
+
+ |
+
+
|
+
Code
Breite
ST
Tiefe
Gew.
FB *
Box
Divers
Stk
* FB : Frontbefestigung (Legende)
+* Box : Erhöhte Seiten (Legende)
+"
+ Write ""
+ Write ""
+ Write "Aantal sessies per dag/uur"
+ Write ""
+ Write ""
+ Write "
"
+ Write ""
+ Write " "
+ Write "
"
+ Write ""
+ Write ""
+ Write "Zo"
+ Write ""
+ Write "
"
+ Write ""
+ Write ""
+ Write "Ma"
+ Write ""
+ Write "
"
+ Write ""
+ Write ""
+ Write "Di"
+ Write ""
+ Write "
"
+ Write ""
+ Write ""
+ Write "Wo"
+ Write ""
+ Write "
"
+ Write ""
+ Write ""
+ Write "Do"
+ Write ""
+ Write "
"
+ Write ""
+ Write ""
+ Write "Vr"
+ Write ""
+ Write "
"
+ Write ""
+ Write ""
+ Write "Za"
+ Write ""
+ Write "
"
+ Write ""
+ Write ""
+ Write ($G(u)_" uur ")
+ Write ""
+ Write "
"
+ Write ""
+ Write ""
+ Write (Temp)
+ Write ""
+ Write "
"
+ Write "" +]]>
- +Standaard zijn posities STEEDS gemeten van Links (X), van Boven (Y) en vanaf de Rug (Z)
- +AfstandRand is steeds relatief (t.o.v. de buitenrand van het profiel)
-
+Negatieve posities zijn gemeten van de tegenovergestelde kant:
+| PosX < 0 ==> X = KD.Breedte - PosX
+| PosY < 0 ==> Y = KD.Hoogte - PosY
+| PosZ < 0 ==> Z = KD.ProfType.Dikte - PosZ -
+De negatieve posities zijn
+- te tonen als positieve waarden in de User Interface
+- op te slaan in Caché als negatieve waarden
+- in XML eveneens als negatieve waarden op te slaan met ev. een Attribute "omschrijving", bvb. "OMS=Van onderkant"
+ +
+Kader - id - id - id - Vulling - Kader&Vulling; +Is enkel ingevuld in het geval van een "geldige boring".]]>
+Mogelijke waarschuwingen zijn:
+Info wordt weggeschreven in de property
| "
+ Write " | ",!
+ Write $c(9,9)
+ Set i=""
+ Write !,$c(9)
+%csp00002 If '(..LoopArray(.MenuArray,.i)) Goto %csp00001 ;{
+ Write !,$c(9,9)_""_(i)_" | ",! + Write $c(9,9)_""
+ Write " | ",!
+ Write $c(9)
+ Goto %csp00002
+%csp00001 ;}
+ Write !,$c(9,9)_""
+ Write " | ",!
+ Write $c(9,9)_""
+ Write " | ",!
+ Write $c(9)_"
| "
+ Write " | ",!
+ Write $c(9,9)
+ Set i=""
+ Write !,$c(9)
+%csp00004 If '(..LoopArray(.MenuArray,.i)) Goto %csp00003 ;{
+ Write !,$c(9,9)
+ Set ImgURL=##class(Res.VertalingLink).GetLinkVertaling("PK",$G(MenuArray(i)),"LB",Taal,,"WWW")
+ Write !,$c(9,9)_"",!
+ Write $c(9,9,9)
+ Write ", "_(") "
+ Write " | ",!
+ Write $c(9,9)_""
+ Write " | ",!
+ Write $c(9)
+ Goto %csp00004
+%csp00003 ;}
+ Write !,$c(9,9)_"",!
+ Write $c(9,9,9)
+ Write ""
+ Write !,$c(9,9,9,9)
+ Write " | ",!
+ Write $c(9,9)_""
+ Write " | ",!
+ Write $c(9)_"
| "
+ Write " | ",!
+ Write $c(9)_"
"
+ Write "..."
+ Write "
"
+ Write !
+ Goto %csp00006
+%csp00005 ;}
+ Write !,"