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)