Index: PlanScan/WS/Agent.pas =================================================================== diff -u -r483 -r625 --- PlanScan/WS/Agent.pas (.../Agent.pas) (revision 483) +++ PlanScan/WS/Agent.pas (.../Agent.pas) (revision 625) @@ -37,7 +37,7 @@ function ZoekViaOrdernummer(Ordernummer: string): ZoekViaOrdernummerResponse; function ZoekViaBatchId(BatchId: string): ZoekViaBatchResponse; function BewerkKlantinstellingen(Actie: string; KlantId: string; IsExport: boolean; WegwerpPallet: boolean; MeerdereToeleveringen: boolean): BewerkKlantinstellingenResponse; - function ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): AfdrukService.ProboxEtiketAfdrukkenResponse; + function ProboxEtiketAfdrukken(DnaCodesStringList: TStringList; LijnWaaropGeprintMoetWorden: string): AfdrukService.ProboxEtiketAfdrukkenResponse; function KlantEtiketAfdrukken(DnaCodesStringList: TStringList): KlantEtiketAfdrukkenResponse; function ProductEtiketAfdrukken(DnaCodesStringList: TStringList): ProductEtiketAfdrukkenResponse; end; @@ -412,7 +412,7 @@ end; end; -function TAgent.ProboxEtiketAfdrukken(DnaCodesStringList: TStringList): AfdrukService.ProboxEtiketAfdrukkenResponse; +function TAgent.ProboxEtiketAfdrukken(DnaCodesStringList: TStringList; LijnWaaropGeprintMoetWorden: string): AfdrukService.ProboxEtiketAfdrukkenResponse; var Header: AfdrukService.RequestHeader; fProboxEtiketAfdrukkenRequest: AfdrukService.ProboxEtiketAfdrukkenRequest; @@ -436,6 +436,7 @@ end; fProboxEtiketAfdrukkenRequest.DnaCodes := DnaCodesArray; + fProboxEtiketAfdrukkenRequest.LijnWaaropGeprintMoetWorden := LijnWaaropGeprintMoetWorden; result := fAfdrukServiceSoap.ProboxEtiketAfdrukken(fProboxEtiketAfdrukkenRequest); finally