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 - - +} - - - +} +*/ +]]> + - - +