Index: APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking.cls.xml =================================================================== diff -u -r69623 -r69701 --- APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking.cls.xml (.../OnderdelenPicking.cls.xml) (revision 69623) +++ APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking.cls.xml (.../OnderdelenPicking.cls.xml) (revision 69701) @@ -13,16 +13,21 @@ 2 - + %Integer 3 - + %Integer 4 + +%Integer +5 + + %String \ @@ -234,10 +239,11 @@ #dim OPVoorEenProductLijst As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst = OnderdelenPickingen.Next() If ..HeeftItems(OPVoorEenProductLijst) { #dim OPEenProduct As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo = OPVoorEenProductLijst.GetAt(1) - Set Lijn = ##class(TECH.StringUtils).AddLeadingChar("",..#Delimiter,4)_OPEenProduct.DossierCode_" "_OPVoorEenProductLijst.Count() + Set Lijn = ##class(TECH.StringUtils).AddLeadingChar("",..#Delimiter,5)_OPEenProduct.DossierCode_" "_OPVoorEenProductLijst.Count() If ($$$HasLength(DataVoorLijn.HFV.GeefLengte()) || VermeldKorttekst) && EersteLijnProduct { Set $Piece(Lijn,..#Delimiter,..#PosAantal) = DataVoorLijn.HFV.GeefAantal() Set $Piece(Lijn,..#Delimiter,..#PosLengte) = DataVoorLijn.HFV.GeefLengte() + Set $Piece(Lijn,..#Delimiter,..#PosLocatie) = DataVoorLijn.HFV.GeefLocatie() Set EersteLijnProduct = 0 } If VermeldKorttekst { // Op de eerste lijn van het Halffab staat soms de korttekst. @@ -278,7 +284,7 @@ Lijn:%String 1 %Boolean - Index: APPS/Halux/PPS/DocumentDefinitie/TAX/OnderdelenPickingLijst.cls.xml =================================================================== diff -u -r60544 -r69701 --- APPS/Halux/PPS/DocumentDefinitie/TAX/OnderdelenPickingLijst.cls.xml (.../OnderdelenPickingLijst.cls.xml) (revision 60544) +++ APPS/Halux/PPS/DocumentDefinitie/TAX/OnderdelenPickingLijst.cls.xml (.../OnderdelenPickingLijst.cls.xml) (revision 69701) @@ -22,8 +22,9 @@ Do DocumentType.ClearDocument() // maak kolommen aan - Do DocumentType.VoegKolomDefinitieToe(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Product omschrijving",35,##class(APPS.common.Print.Kolommen.TekstType).String(),##class(APPS.common.Print.Kolommen.TekstUitlijning).Links())) + Do DocumentType.VoegKolomDefinitieToe(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Product omschrijving",32,##class(APPS.common.Print.Kolommen.TekstType).String(),##class(APPS.common.Print.Kolommen.TekstUitlijning).Links())) Do DocumentType.VoegKolomDefinitieToe(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Korttekst",25,##class(APPS.common.Print.Kolommen.TekstType).String(),##class(APPS.common.Print.Kolommen.TekstUitlijning).Rechts())) + Do DocumentType.VoegKolomDefinitieToe(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Loc",4,##class(APPS.common.Print.Kolommen.TekstType).String(),##class(APPS.common.Print.Kolommen.TekstUitlijning).Rechts())) Do DocumentType.VoegKolomDefinitieToe(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("#",3,##class(APPS.common.Print.Kolommen.TekstType).String(),##class(APPS.common.Print.Kolommen.TekstUitlijning).Rechts())) Do DocumentType.VoegKolomDefinitieToe(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Lengte",6,##class(APPS.common.Print.Kolommen.TekstType).String(),##class(APPS.common.Print.Kolommen.TekstUitlijning).Rechts())) Index: vhDeploy/D20221102xTAXOnderdelenPickingDocument.cls.xml =================================================================== diff -u --- vhDeploy/D20221102xTAXOnderdelenPickingDocument.cls.xml (revision 0) +++ vhDeploy/D20221102xTAXOnderdelenPickingDocument.cls.xml (revision 69701) @@ -0,0 +1,19 @@ + + + +vhDeploy.Deploy + + +%String +TAX onderdelenPicking document aanpassen + + + +1 + + + + + + Index: APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarUitvoeringInfoVisitor.cls.xml =================================================================== diff -u -r65931 -r69701 --- APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarUitvoeringInfoVisitor.cls.xml (.../HalffabItemNaarUitvoeringInfoVisitor.cls.xml) (revision 65931) +++ APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarUitvoeringInfoVisitor.cls.xml (.../HalffabItemNaarUitvoeringInfoVisitor.cls.xml) (revision 69701) @@ -40,6 +40,10 @@ %String + +%String + + APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.ToonInbegrepenHalffabItemBepaler 1 @@ -98,6 +102,12 @@ ]]> + +%String + + + Item:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem %Status @@ -165,6 +175,7 @@ Set ..Korttekst = AdministratiefProduct.GeefKorttekst() Set ..ProductID = AdministratiefProduct.GeefID() Set ..Omschrijving = Item.GeefOmschrijvingVoorPicking() + Set ..Locatie = $Piece(^KPR(AdministratiefProduct.GeefID(), 1), "\", 12) Do ..VulInKleur(Item)