BL.Derde.KlantSpecifiek,BL.Derde.LevSpecifiek,vhLib.Macro 0 %RegisteredObject Verwijzing naar Labeldefinitie BL.PPS.TBX.LeanBatch lijst op sortkey %String 1 lijst op volgnr %String 1 lijst definitie %String 1 %Integer 1 BL.PPS.TBX.ToeleveringProductInfo 1 APPS.Halux.common.Batch 1 $LB(TOENr,Datum,KlantNaam,ProdDatum,Type,AantLaden,AantTipOn,AantSpoelbak,AantBaliko) %Integer 1 %Integer 2 %Integer 3 %Integer 4 %Integer 5 %Integer 6 %Integer 7 %Integer 8 %Integer 9 %Integer 10 1 %RegisteredObject Do ##class(CHUI.PPS.TBX.LeanBatch).HATBXLean() 1 Batch:APPS.Halux.common.Batch 1 Scrollen in de toeleveringlijst 0 %String 0) { Set Batch = "" } Else { Kill Batch } // Nodig om de gui mooi te laten werken :) If Input="COM" { Do CALL^vhMenu("LEANBATCH") } Do EXEC^vhMenu("LEANBATCH",.Input) } Do ..Save() Quit Input ]]> Een batchnummer selecteren uit de actieve batches 1 %Integer 1 1 Lijst opbouwen om op het scherm te tonen 1 Eén lijn opzoeken Toelevering:DOM.AKP.Toelevering 1 %List Instellen van het scherm "HATBXLEAN": bovenste 2 lijnen BatchID:%Integer 1 %Integer Write en Update van lijst OldsSel:%String Nazicht of een toelevering in een andere batch is opgenomen Toelevering:DOM.AKP.Toelevering 1 1 Opslaan van een nieuwe batch 1 Controleert of in de batch toeleveringen zitten voor SFS 1 1 Controleert of in de batch toeleveringen zitten met antislipmat of producten met verpakking O,B 1 1 %Boolean Controleert of Batch reeds in de sequence staat BatchNr:%Integer %Boolean Controleert de printstatus van de tipon PrintLijst:%List 1 1 %String PrintLijst:%List 1 1 %String PrintLijst:%List 1 1 %String PrintLijst:%List 1 1 %String PrintLijst:%List 1 1 %String PrintLijst:%List 1 1 %String PrintLijst:%List 1 1 %String Controleert de opties voor het afdrukken van documenten 1 1 %String Controleert of Batch Probox is BatchNr:%Integer %Boolean Callback-functie in de global ^RES Tip-On in selectielijst of niet 1 [Previously private] 1 Substring:%String Als de etiketten reeds afgedrukt zijn, dan wordt gevraagd om een selectie van de etiketten die opnieuw afgedrukt moeten worden MaxNr Set EndNr=MaxNr If StartNr'>EndNr Do . Set Aantal=EndNr-StartNr+1 . ;Do WARN^vhTXTPOP($S(Aantal=1:"Er is "_Aantal_" etiketlijn geselecteerd!",1:"Er zijn "_Aantal_" etiketlijnen geselecteerd!"),"Herafdruk etiketten") ]]> Selecteer de productielijn 1 %String Afdrukken van de labels 2 WARN^vhTXTPOP($E(Text,2,999),"Overzicht") Do:$L($G(SkippedText)) WARN^vhTXTPOP($$REPLACE^vhRtn1(SkippedText,">CR<","~"),"Producten die niet werden toegevoegd") if ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("CHUI.PPS.TBX.LeanBatch_ToonExtraInfoScherm") { Do DISPLAY^vhScherm("HATBXLEAN",,,,"BATCHNR") Do ..Fetch(.Selected) Do ..ToonHeader() Do ..Init() Do ..Write(OldSel) } else { Do ..Write(OldSel) } ]]> Verwijderen van een sequence BatchNr:%Integer Toevoegen van een toeleveringsnummer 0) { Set Inp=$$^vhTXTPOP("HATBXLEAN","ODSP","",Toelevering.GeefID(),ToeleveringProductInfo.AantalOnderdelenSpeciaal) } Set Selected(TOENr)="" If ..HaluxBatch.GeefID()="" { Try{ Set ProductieService = ##class(APPS.Halux.common.ProductieService).%New() If (ProductieService.GeefCategorieVoorToelevering(Toelevering) '= ##class(APPS.Halux.common.enu.Categorie).Tandembox()) { Set BatchError = ##class(APPS.Halux.common.impl.BatchError).%New() Set BatchError.ToeleveringNummer = Toelevering.GeefID() Do BatchError.Boodschappen.Insert("Deze toelevering bevat geen tandemboxproducten") Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.Halux.common.impl.ToeleveringException).%New(BatchError)) } Do ..HaluxBatch.VoegToeToelevering(Toelevering) }Catch(E){ Set Exception = ##class(TECH.ExceptionHandler).Catch("APPS.Halux.common.impl.ToeleveringException") Do WARN^vhTXTPOP(..FormateerLangeString(Exception.GeefOmschrijving()),"") Goto Begin } } Else { Try{ Set Status=..blLeanBatch.AddToelev(..HaluxBatch,Toelevering) }Catch(E){ Set Exception = ##class(TECH.ExceptionHandler).Catch("APPS.Halux.common.impl.ToeleveringException") Do WARN^vhTXTPOP(..FormateerLangeString(Exception.GeefOmschrijving()),"") Goto Begin } If ($system.Status.IsError(Status)) Do WARN^vhTXTPOP($Piece($$ParseStatus^vhLib(Status),": ",2,99),"Toevoegen van Toelevering "_TOENr_ "is mislukt") } Set Lijst("MAX")=..AantalLijnen+1 Set Lijst("SELECT")=Lijst("MAX") } Do ..Fetch(.Selected) Do ..ToonHeader() Do ..Write() Do STORE^vhTERMINA() Set TOENr=$$SELECT^FLOW("KTO","KTO1",1,.Selected,.DERDENr) Do REFRESH^vhTERMINA() } Set Lijst("POS")=LijstOld("POS"),Lijst("SET")=LijstOld("SET") ; terug zetten naar full screen Do WRITE^vhLIST(.Lijst) Quit ]]> Zijn alle laden afgewerkt? TOENr:%Integer 1 MaxCount Do . For Count=Count:-1:MaxCount Set TLNr=$O(NietAfgewerkt(TLNr),-1) Kill NietAfgewerkt(TLNr) . Set NietAfgewerkt(TLNr)="..." Set:$D(NietAfgewerkt) NietAfgewerkt="NietAfgewerkt",Afgewerkt=$$^vhTXTPOP("HATBXLEAN","AFGEWERKT","",$$EXTNUM^vhLib.DataTypes(TOENr,0,".",0)) Quit Afgewerkt ]]> String:%String 1 1 %String Toelevering:%CacheString 1 Verwijderen van een toeleveringsnummer Verwijderen van alle toeleveringen Toont HADOPV van de geselecteerde toelevering BatchNr:%Integer,LijnNr:%Integer 1 Sequencenummer:%Integer 1 1