Index: PlanScan/WS/AfdrukService.pas =================================================================== diff -u -r457 -r625 --- PlanScan/WS/AfdrukService.pas (.../AfdrukService.pas) (revision 457) +++ PlanScan/WS/AfdrukService.pas (.../AfdrukService.pas) (revision 625) @@ -5,7 +5,7 @@ // >Import : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.AfdrukService.CLS?WSDL=1>0 // Encoding : UTF-8 // Version : 1.0 -// (14/07/2020 14:42:34 - - $Rev: 45757 $) +// (24/09/2021 11:44:37 - - $Rev: 45757 $) // ************************************************************************ // unit AfdrukService; @@ -119,11 +119,16 @@ private FHeader: RequestHeader; FDnaCodes: ArrayOfStringString; + FLijnWaaropGeprintMoetWorden: String_; + FLijnWaaropGeprintMoetWorden_Specified: boolean; + procedure SetLijnWaaropGeprintMoetWorden(Index: Integer; const AString_: String_); + function LijnWaaropGeprintMoetWorden_Specified(Index: Integer): boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes; + property Header: RequestHeader read FHeader write FHeader; + property DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes; + property LijnWaaropGeprintMoetWorden: String_ Index (IS_OPTN) read FLijnWaaropGeprintMoetWorden write SetLijnWaaropGeprintMoetWorden stored LijnWaaropGeprintMoetWorden_Specified; end; @@ -265,6 +270,17 @@ inherited Destroy; end; +procedure ProboxEtiketAfdrukkenRequest.SetLijnWaaropGeprintMoetWorden(Index: Integer; const AString_: String_); +begin + FLijnWaaropGeprintMoetWorden := AString_; + FLijnWaaropGeprintMoetWorden_Specified := True; +end; + +function ProboxEtiketAfdrukkenRequest.LijnWaaropGeprintMoetWorden_Specified(Index: Integer): boolean; +begin + Result := FLijnWaaropGeprintMoetWorden_Specified; +end; + destructor GeneriekeResponse.Destroy; begin SysUtils.FreeAndNil(FHeader);