BL.Derde.KlantSpecifiek,BL.Derde.LevSpecifiek,vhLib.Macro 0 %RegisteredObject 0 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) 1 2 3 4 5 6 7 8 9 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.LEV.Toelevering 1 %List Instellen van het scherm "HATBXLEAN": bovenste 2 lijnen BatchID:%Integer 1 %Integer Write en Update van lijst OldsSel Nazicht of een toelevering in een andere batch is opgenomen Toelevering:DOM.LEV.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 1 1 Controleert of Batch reeds in de sequence staat BatchNr %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 TOENr %String Controleert of Batch Probox is BatchNr %Boolean Callback-functie in de global ^RES Tip-On in selectielijst of niet 1 1 Substring:%String 1 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 Toevoegen van een toeleveringsnummer 0) { Set Inp=$$^vhTXTPOP("HATBXLEAN","ODSP","",Toelevering.GeefToeNr(),ToeleveringProductInfo.AantalOnderdelenSpeciaal) } Set Selected(TOENr)="" If ..HaluxBatch.GeefBatchID()="" { Set $ZTRAP="ToevoegenFout" Do ..HaluxBatch.VoegToeToelevering(Toelevering) Set $ZTRAP = "" } Else { Set $ZTRAP="ToevoegenFout" Set Status=..blLeanBatch.AddToelev(..HaluxBatch,Toelevering) Set $ZTRAP = "" 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 ToevoegenFout Set $ZTRAP = "" Set Exception = ##class(TECH.ExceptionHandler).Catch("APPS.Halux.common.impl.ToeleveringException") Do WARN^vhTXTPOP(..FormateerLangeString(Exception.GeefOmschrijving()),"") Goto Begin ]]> Zijn alle laden afgewerkt? TOENr 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^vhDTyp(TOENr,0,".",0)) Quit Afgewerkt ]]> String:%String 1 1 %String Toelevering 1 Verwijderen van een toeleveringsnummer Verwijderen van alle toeleveringen Toont HADOPV van de geselecteerde toelevering BatchNr,LijnNr 1 Sequencenummer:%Integer 1 1