Index: PV TBX Zaag.prj.xml
===================================================================
diff -u -r2400 -r2575
--- PV TBX Zaag.prj.xml (.../PV TBX Zaag.prj.xml) (revision 2400)
+++ PV TBX Zaag.prj.xml (.../PV TBX Zaag.prj.xml) (revision 2575)
@@ -1,41 +1,67 @@
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
+
+
-
+
-
+
+
+
+
+
+
+
Index: APPS/Halux/PPS/TBXZaag/impl/EtiketHelper.cls.xml
===================================================================
diff -u -r2466 -r2575
--- APPS/Halux/PPS/TBXZaag/impl/EtiketHelper.cls.xml (.../EtiketHelper.cls.xml) (revision 2466)
+++ APPS/Halux/PPS/TBXZaag/impl/EtiketHelper.cls.xml (.../EtiketHelper.cls.xml) (revision 2575)
@@ -5,12 +5,26 @@
%RegisteredObject
0
-
+
+Halux_Zaag_Appl
+
+
+
+Halux_Zaag_Appl
+
+
+
+HALUX PPS TBXZaag Manueel 5x10
+
+
+
1
-ZaagOpdracht:APPS.Halux.PPS.TBXZaag.Opdrachten,Device:%String
+ZaagOpdracht:APPS.Halux.PPS.TBXZaag.Opdrachten,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice
+
+
+1
+Subtitel:%String,BodemKleur:%String,BodemHoogte:%Integer,BodemLengte:%Float,BodemBewerking:DOM.PM.enu.TBXBodemBewerking,RugKleur:%String,RugHoogte:%Integer,RugLengte:%Float,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice
+
+
+
+
+1
+Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice
+1
+%String
+
+
Index: APPS/Halux/PPS/TBXZaag/dto/EtiketManueel.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/dto/EtiketManueel.cls.xml (revision 0)
+++ APPS/Halux/PPS/TBXZaag/dto/EtiketManueel.cls.xml (revision 2575)
@@ -0,0 +1,57 @@
+
+
+
+1
+BL.Sys.pxLabel
+0
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%Integer
+
+
+
+%Float
+
+
+
+DOM.PM.enu.TBXBodemBewerking
+
+
+
+%String
+
+
+
+%Integer
+
+
+
+%Float
+
+
+
+APPS.Halux.PPS.TBXZaag.enu.Output2Lijn
+
+
+
+%Status
+
+
+
+
FishEye: Tag 2575 refers to a dead (removed) revision in file `APPS/Halux/PPS/TBXZaag/enu/Werkpost.cls.xml'.
FishEye: No comparison available. Pass `N' to diff?
Index: WS/Halux/PPS/TBXZaagServer.cls.xml
===================================================================
diff -u -r2465 -r2575
--- WS/Halux/PPS/TBXZaagServer.cls.xml (.../TBXZaagServer.cls.xml) (revision 2465)
+++ WS/Halux/PPS/TBXZaagServer.cls.xml (.../TBXZaagServer.cls.xml) (revision 2575)
@@ -53,7 +53,7 @@
Opm : SessionKey en Werkpost zijn constante waarden]]>
-SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,BatchKey:%String,LijnNr:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn
+SessionKey:%String,Werkpost:APPS.Halux.enu.Werkpost,BatchKey:%String,LijnNr:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn
%XML.DataSet
1
Wordt opgehaald bij opstart van de zaag
Dmv BodemRug kan je de lijst eventueel beperken tot Rug, Bodem
Opm : SessionKey en Werkpost zijn constante waarden]]>
-SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug
+SessionKey:%String,Werkpost:APPS.Halux.enu.Werkpost,BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug
%XML.DataSet
1
Wordt opgehaald bij opstart van de zaag
Opm : SessionKey en Werkpost zijn constante waarden]]>
-SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost
+SessionKey:%String,Werkpost:APPS.Halux.enu.Werkpost
%XML.DataSet
1
Berekent de lengte van en aantal bodems op de buffer tussen zaag en boxpress
en geeft voor de verschillende productielijnen of de batch gewijzigd is.
Opm : SessionKey en Werkpost zijn constante waarden]]>
-SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,L1BatchKey:%String,L2BatchKey:%String,DirectBatchKey:%String
+SessionKey:%String,Werkpost:APPS.Halux.enu.Werkpost,L1BatchKey:%String,L2BatchKey:%String,DirectBatchKey:%String
%XML.DataSet
1
De afdruk van de label verloopt via Bartender
Aan de zaag zijn er 2 devices gekoppeld (LabelApplicator en LabelBackup)
Opm : SessionKey en Werkpost zijn constante waarden]]>
-SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,ZaagID:%Integer,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice
+SessionKey:%String,Werkpost:APPS.Halux.enu.Werkpost,ZaagID:%Integer,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice
1
De afdruk van het etiket verloopt via Bartender
Aan de zaag zijn er 2 devices gekoppeld (LabelApplicator en LabelBackup)
Opm : SessionKey en Werkpost zijn constante waarden]]>
-SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,Titel:%String,BodemHoogte:%Integer,BodemLengte:%Float,RugHoogte:%Integer,RugLengte:%Float,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice
+SessionKey:%String,Werkpost:APPS.Halux.enu.Werkpost,Titel:%String,BodemKleur:%String,BodemHoogte:%Integer,BodemLengte:%Float,BodemBewerking:DOM.PM.enu.TBXBodemBewerking,RugKleur:%String,RugHoogte:%Integer,RugLengte:%Float,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice
1
@@ -159,13 +159,12 @@
Parameter DuurStilstand geeft de duur van de laatste zaagbeweging tot de registratie van de stilstand
Parameter Redenstilstand is de code van de resulset GeefStilstanden
Opm : SessionKey en Werkpost zijn constante waarden]]>
-SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,ZaagID:%Integer,RedenStilstand:%String,DuurStilstand:%Integer
+SessionKey:%String,Werkpost:APPS.Halux.enu.Werkpost,ZaagID:%Integer,RedenStilstand:%String,DuurStilstand:%Integer
1
@@ -176,7 +175,7 @@
Parameter Status = "F" ; Finished
Parameter LijnNr = op welke lijn het plaatmateriaal werd afgezet
Opm : SessionKey en Werkpost zijn constante waarden]]>
-SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,ZaagID:%Integer,Status:APPS.Halux.PPS.TBXZaag.enu.Status,LijnNr:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn
+SessionKey:%String,Werkpost:APPS.Halux.enu.Werkpost,ZaagID:%Integer,Status:APPS.Halux.PPS.TBXZaag.enu.Status,LijnNr:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn
1
Opm : SessionKey en Werkpost zijn constante waarden]]>
-SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,ZaagID:%Integer
+SessionKey:%String,Werkpost:APPS.Halux.enu.Werkpost,ZaagID:%Integer
%String
1
Via BodemOfRug wordt bepaald welk deel (bodem en/of rug) er beschadigd is, de voorraad wordt verminderd.
Als rework wordt true is dan wordt er een nieuwe zaagopdracht toegevoegd aan de huidige batch.
Opm : SessionKey en Werkpost zijn constante waarden]]>
-SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Rework:%Boolean,Reden:%String
+SessionKey:%String,Werkpost:APPS.Halux.enu.Werkpost,ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Rework:%Boolean,Reden:%String
1
Het PlaatPRNr is een product uit de lijst van method GeefPlaatMateriaal
De voorraad wordt met lengte verminderd, indien lengte is -1 wordt een ganse plaat genomen
Opm : SessionKey en Werkpost zijn constante waarden]]>
-SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,PlaatPRNr:%Integer,Lengte:%Float,Reden:%String
+SessionKey:%String,Werkpost:APPS.Halux.enu.Werkpost,PlaatPRNr:%Integer,Lengte:%Float,Reden:%String
1
Opm : SessionKey en Werkpost zijn constante waarden]]>
-SessionKey:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost,ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,GewensteLengte:%Float,GemetenLengte:%Float
+SessionKey:%String,Werkpost:APPS.Halux.enu.Werkpost,ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,GewensteLengte:%Float,GemetenLengte:%Float
1
-Session:%String,Werkpost:APPS.Halux.PPS.TBXZaag.enu.Werkpost
+Session:%String,Werkpost:APPS.Halux.enu.Werkpost
1
Index: APPS/Halux/PPS/TBXZaag/dto/LabelManueel.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/dto/LabelManueel.cls.xml (revision 0)
+++ APPS/Halux/PPS/TBXZaag/dto/LabelManueel.cls.xml (revision 2575)
@@ -0,0 +1,53 @@
+
+
+
+1
+BL.Sys.pxLabel
+0
+
+
+%String
+
+
+
+%String
+
+
+
+%Integer
+
+
+
+%Float
+
+
+
+DOM.PM.enu.TBXBodemBewerking
+
+
+
+%String
+
+
+
+%Integer
+
+
+
+%Float
+
+
+
+APPS.Halux.PPS.TBXZaag.enu.Output2Lijn
+
+
+
+%Status
+
+
+
+
Index: APPS/Halux/PPS/TBXZaag/dto/Opdracht.cls.xml
===================================================================
diff -u -r2466 -r2575
--- APPS/Halux/PPS/TBXZaag/dto/Opdracht.cls.xml (.../Opdracht.cls.xml) (revision 2466)
+++ APPS/Halux/PPS/TBXZaag/dto/Opdracht.cls.xml (.../Opdracht.cls.xml) (revision 2575)
@@ -3,6 +3,7 @@
1
%RegisteredObject
+0
%Integer
@@ -73,6 +74,8 @@
+
+not used
%String
@@ -93,8 +96,6 @@
Set:$isObject(..Bodem) BodemKey=..Bodem.GetPlaatKey()
Set:$isObject(..Rug) RugKey=..Rug.GetPlaatKey()
Quit BodemKey_"/"_RugKey
-
-
]]>
@@ -116,14 +117,13 @@
Set dtoOpdracht.KlantNaam=Queue.Klant.Naam
Set dtoOpdracht.PRNr=Queue.Product.%Id()
Set dtoOpdracht.KortTekst=Queue.Product.KortTekst
- ;w dtoOpdracht.PRNr," ", dtoOpdracht.KortTekst,! r k w !
Set dtoOpdracht.TOENr=Queue.TOENr
Set dtoOpdracht.DOSNr=Queue.DOSNr
Set dtoOpdracht.SequenceNr=Queue.Sequence
Set dtoOpdracht.DeelAantal=Queue.DeelAantal
Set dtoOpdracht.TotaalAantal=Queue.TotaalAantal
- Set dtoOpdracht.Status="W" ;ZaagOpdracht.Status - tijdelijk PV tijdens testen
+ Set dtoOpdracht.Status="W" ;ZaagOpdracht.Status ;- tijdelijk PV tijdens testen
Set dtoOpdracht.BodemRug=ZaagOpdracht.BodemRug
Set dtoOpdracht.Titel=$CASE(ZaagOpdracht.BodemRug,##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug():"Bodem en rug",##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem():"Bodem",##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug():"Rug",:"*** Special ***")
; plaatmateriaal
@@ -145,8 +145,6 @@
}
Quit dtoOpdracht
-
-
]]>
@@ -156,8 +154,6 @@
Set List=$LB(..ZaagID,..PRNr,..KortTekst,..BatchID,..SubBatch,..KlantNaam,..TOENr,..DOSNr,..SequenceNr,..DeelAantal,..TotaalAantal,..Status,..Transferlijn,..BodemRug,..Titel,..Opmerking1,..Opmerking2,..PrintXML,..OpmetenBodem)
Set List=List_..Bodem.BuildList()_..Rug.BuildList()
Quit List
-
-
]]>
Index: zTryout/PV/TBXZaag/Test.cls.xml
===================================================================
diff -u -r2478 -r2575
--- zTryout/PV/TBXZaag/Test.cls.xml (.../Test.cls.xml) (revision 2478)
+++ zTryout/PV/TBXZaag/Test.cls.xml (.../Test.cls.xml) (revision 2575)
@@ -3,7 +3,7 @@
1
%RegisteredObject
-1
+0
@@ -138,7 +138,7 @@
-Do ##class(zTryout.PV.TBXZaag.Test).Lijst(11545,"")
+Do ##class(zTryout.PV.TBXZaag.Test).Lijst(11548,"TipOn")
1
BatchID,SubBatch
-ZaagID:%Integer,Device:%String
+ZaagID:%Integer,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,Device:%String
-Titel:%String,BodemHoogte:%Integer,BodemLengte:%Float,RugHoogte:%Integer,RugLengte:%Float,Device:%String
+Titel:%String,BodemKleur:%String,BodemHoogte:%Integer,BodemLengte:%Float,BodemBewerking:DOM.PM.enu.TBXBodemBewerking,RugKleur:%String,RugHoogte:%Integer,RugLengte:%Float,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice
Index: BL/Sys/LabelPrinter.cls.xml
===================================================================
diff -u -r2508 -r2575
--- BL/Sys/LabelPrinter.cls.xml (.../LabelPrinter.cls.xml) (revision 2508)
+++ BL/Sys/LabelPrinter.cls.xml (.../LabelPrinter.cls.xml) (revision 2575)
@@ -82,6 +82,12 @@
]]>
+
+%Status
+
+
+
onmiddellijk 1 etiket afdrukken
Index: APPS/Halux/PPS/TBXZaag/impl/PlaatMateriaalHelper.cls.xml
===================================================================
diff -u -r2466 -r2575
--- APPS/Halux/PPS/TBXZaag/impl/PlaatMateriaalHelper.cls.xml (.../PlaatMateriaalHelper.cls.xml) (revision 2466)
+++ APPS/Halux/PPS/TBXZaag/impl/PlaatMateriaalHelper.cls.xml (.../PlaatMateriaalHelper.cls.xml) (revision 2575)
@@ -110,11 +110,13 @@
If BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem()
{
Set Plaat=..ProductAPI.GeefProduct(PRNr)
+ Continue:Plaat.GeefActiefStatus()=##class(DOM.PM.enu.ActiefStatus).NietActief()
Set dtoPlaat=##class(APPS.Halux.PPS.TBXZaag.dto.PlaatMateriaal).GetBodem(Plaat)
}
ElseIf BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug()
{
Set Plaat=..ProductAPI.GeefProduct(PRNr)
+ Continue:Plaat.GeefActiefStatus()=##class(DOM.PM.enu.ActiefStatus).NietActief()
Set dtoPlaat=##class(APPS.Halux.PPS.TBXZaag.dto.PlaatMateriaal).GetRug(Plaat)
}
Continue:'$isObject(dtoPlaat)
Index: APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml
===================================================================
diff -u -r2466 -r2575
--- APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml (.../Werkpost.cls.xml) (revision 2466)
+++ APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml (.../Werkpost.cls.xml) (revision 2575)
@@ -11,14 +11,6 @@
1
-
-Halux_Zaag_Appl
-
-
-
-Halux_Zaag_Appl
-
-
vhLib.Logger
1
@@ -115,39 +107,23 @@
-ZaagID:%Integer,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice
+ZaagID:%Integer,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice
-
-Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice
-1
-%String
+
+Titel:%String,BodemKleur:%String,BodemHoogte:%Integer,BodemLengte:%Float,BodemBewerking:DOM.PM.enu.TBXBodemBewerking,RugKleur:%String,RugHoogte:%Integer,RugLengte:%Float,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice
-
-Titel:%String,BodemHoogte:%Integer,BodemLengte:%Float,RugHoogte:%Integer,RugLengte:%Float,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice
-
-
-
Reden:%String,Duur:%Integer,ZaagID:%String=""
-d ##class(APPS.Halux.PPS.TBXZaag.impl.WerkpostZaag).%New().ZetStatus("Z1",518,"F","L1")
+d ##class(APPS.Halux.PPS.TBXZaag.impl.WerkpostZaag).%New().ZetStatus("Z1",711,"F","L1")
WerkPost:APPS.Halux.enu.Werkpost,ZaagID:%Integer,NewStatus:APPS.Halux.PPS.TBXZaag.enu.Status,ProductieLijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn
vhUnitTest.TestCase
0
-
-%Status
-
+
-
+}
-
-%Status
-
-
+}
-
-
-
+}
+*/
+]]>
+
-
-
+