Index: AAPClient/UI/DnaCodeReedsGescandScherm.pas =================================================================== diff -u -r171 -r172 --- AAPClient/UI/DnaCodeReedsGescandScherm.pas (.../DnaCodeReedsGescandScherm.pas) (revision 171) +++ AAPClient/UI/DnaCodeReedsGescandScherm.pas (.../DnaCodeReedsGescandScherm.pas) (revision 172) @@ -18,13 +18,21 @@ pnlAnnuleren: TPanel; imgAnnuleren: TImage; lblAnnuleren: TLabel; + edtPallet: TEdit; + lblScanPallet: TLabel; procedure FormShow(Sender: TObject); procedure imgAnnulerenClick(Sender: TObject); procedure pnlAnnulerenClick(Sender: TObject); procedure imgWegnemenClick(Sender: TObject); procedure pnlWegnemenClick(Sender: TObject); + procedure edtPalletKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure pnlVerplaatsenClick(Sender: TObject); + procedure imgVerplaatsenClick(Sender: TObject); private - procedure Wegnemen(); + procedure Wegnemen; + procedure Verplaatsen; + procedure SetPalletControlsVisibility(IsVisible: boolean); public { Public declarations } end; @@ -39,6 +47,16 @@ {$R *.dfm} +procedure TfmDnaCodeReedsGescandScherm.edtPalletKeyUp(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + inherited; + if Key = VK_RETURN then begin + Verplaatsen; + Key := 0; + end; +end; + procedure TfmDnaCodeReedsGescandScherm.FormShow(Sender: TObject); begin inherited; @@ -53,11 +71,17 @@ Self.ModalResult := mrDnaCode; end; +procedure TfmDnaCodeReedsGescandScherm.imgVerplaatsenClick(Sender: TObject); +begin + inherited; + SetPalletControlsVisibility(true); +end; + procedure TfmDnaCodeReedsGescandScherm.imgWegnemenClick(Sender: TObject); begin inherited; + SetPalletControlsVisibility(false); Wegnemen; - Self.ModalResult := mrDnaCode; end; procedure TfmDnaCodeReedsGescandScherm.pnlAnnulerenClick(Sender: TObject); @@ -66,20 +90,69 @@ Self.ModalResult := mrDnaCode; end; +procedure TfmDnaCodeReedsGescandScherm.pnlVerplaatsenClick(Sender: TObject); +begin + inherited; + SetPalletControlsVisibility(true); +end; + procedure TfmDnaCodeReedsGescandScherm.pnlWegnemenClick(Sender: TObject); begin inherited; + SetPalletControlsVisibility(false); Wegnemen; - Self.ModalResult := mrDnaCode; end; -procedure TfmDnaCodeReedsGescandScherm.Wegnemen(); +procedure TfmDnaCodeReedsGescandScherm.SetPalletControlsVisibility( + IsVisible: boolean); +begin + lblScanPallet.Visible := IsVisible; + edtPallet.Visible := IsVisible; +end; + +procedure TfmDnaCodeReedsGescandScherm.Verplaatsen;var + Service: DnaCodeServiceSoap; + Request: HernoemPalletRequest; + Response: HernoemPalletResponse; + Header: RequestHeader; +begin + Service := DnaCodeService.GetDnaCodeServiceSoap(); + // request opbouwen + Request := HernoemPalletRequest.Create; + Header := RequestHeader.Create; + try + Header.Initialen := UiContext.Initialen; + Header.ComputerNaam := FullName(); + Request.Header := Header; + Request.OudeCode := UiContext.Pallet; + Request.NieuweCode := edtPallet.Text; + Request.EnkelDezeDnaCode := UiContext.LaatsteDnaCode; + Response := Service.HernoemPallet(Request); + try + if Response.Header.Status <> '200' then begin + ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw','') + end else begin + ToonPopupScherm(Response.Header.Omschrijving, 'OK',''); + Self.ModalResult := mrDnaCode; + end; + finally + Response.Free; + end; + finally + Request.Free; + end; + if Self.ModalResult = mrDnaCode then + CloseModal; +end; + +procedure TfmDnaCodeReedsGescandScherm.Wegnemen; var Service: DnaCodeServiceSoap; Request: DnaCodeAfmeldenRequest; Response: DnaCodeAfmeldenResponse; Header: RequestHeader; begin + Self.ModalResult := mrDnaCode; Service := DnaCodeService.GetDnaCodeServiceSoap(); // request opbouwen Request := DnaCodeAfmeldenRequest.Create; Index: AAPClient/UI/DnaCodeReedsGescandScherm.dfm =================================================================== diff -u -r171 -r172 --- AAPClient/UI/DnaCodeReedsGescandScherm.dfm (.../DnaCodeReedsGescandScherm.dfm) (revision 171) +++ AAPClient/UI/DnaCodeReedsGescandScherm.dfm (.../DnaCodeReedsGescandScherm.dfm) (revision 172) @@ -4,11 +4,25 @@ ExplicitHeight = 640 PixelsPerInch = 96 TextHeight = 19 + object lblScanPallet: TLabel [0] + Left = 60 + Top = 315 + Width = 155 + Height = 39 + Caption = 'Scan pallet' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + Visible = False + end inherited pnlDrieKnoppen: TPanel Visible = False end - object pnlWegnemen: TPanel [2] - Left = 60 + object pnlWegnemen: TPanel [3] + Left = 256 Top = 96 Width = 157 Height = 183 @@ -46,21 +60,23 @@ ExplicitTop = 134 end end - object pnlVerplaatsen: TPanel [3] - Left = 256 + object pnlVerplaatsen: TPanel [4] + Left = 60 Top = 96 Width = 157 Height = 183 BevelOuter = bvNone Color = 1513421 ParentBackground = False TabOrder = 3 + OnClick = pnlVerplaatsenClick object imgVerplaatsen: TImage Left = 14 Top = 16 Width = 128 Height = 128 Transparent = True + OnClick = imgVerplaatsenClick end object lblVerplaatsen: TLabel Left = 0 @@ -83,7 +99,7 @@ ExplicitTop = 134 end end - object pnlAnnuleren: TPanel [4] + object pnlAnnuleren: TPanel [5] Left = 256 Top = 321 Width = 157 @@ -122,4 +138,22 @@ ExplicitTop = 134 end end + object edtPallet: TEdit [6] + Left = 60 + Top = 360 + Width = 157 + Height = 47 + Alignment = taCenter + AutoSize = False + CharCase = ecUpperCase + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -27 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 5 + Visible = False + OnKeyUp = edtPalletKeyUp + end end Index: AAPClient/WS/DnaCodeService.dfm =================================================================== diff -u -r159 -r172 --- AAPClient/WS/DnaCodeService.dfm (.../DnaCodeService.dfm) (revision 159) +++ AAPClient/WS/DnaCodeService.dfm (.../DnaCodeService.dfm) (revision 172) @@ -1,254 +1,159 @@ -inherited fmDnaCodeScherm: TfmDnaCodeScherm - ActiveControl = edtDnaCode - Caption = 'fmDnaCodeScherm' +inherited fmDnaCodeReedsGescandScherm: TfmDnaCodeReedsGescandScherm + Caption = 'fmDrieKnoppenScherm' + ExplicitWidth = 480 + ExplicitHeight = 640 PixelsPerInch = 96 TextHeight = 19 - object lblToeleveringData: TLabel [0] - Left = 269 - Top = 344 - Width = 174 + object lblScanPallet: TLabel [0] + Left = 60 + Top = 315 + Width = 155 Height = 39 - AutoSize = False - end - object lblScancode: TLabel [1] - Left = 108 - Top = 40 - Width = 109 - Height = 19 - Caption = 'Scan DNA code' - end - object lblHuidigePalletData: TLabel [2] - Left = 269 - Top = 396 - Width = 174 - Height = 39 - AutoSize = False + Caption = 'Scan pallet' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False + Visible = False end - object lblLaatstGescand: TLabel [3] - Left = 39 - Top = 441 - Width = 224 - Height = 39 - Caption = 'Laatst gescand:' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -32 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - end - object lblLaatstGescandData: TLabel [4] - Left = 269 - Top = 441 - Width = 174 - Height = 39 - AutoSize = False - end - object lblAantalGescand: TLabel [5] - Left = 131 - Top = 108 - Width = 51 - Height = 39 - Alignment = taRightJustify - AutoSize = False - Caption = '222' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -32 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - end - object lblTotaalAantal: TLabel [6] - Left = 225 - Top = 108 - Width = 51 - Height = 39 - AutoSize = False - Caption = '222' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -32 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - end - object lblSlash: TLabel [7] - Left = 196 - Top = 108 - Width = 12 - Height = 39 - AutoSize = False - Caption = '/' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -32 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - end - object imgGls: TImage [8] - Left = 77 - Top = 2 - Width = 32 - Height = 32 - Picture.Data = { - 0954506E67496D61676589504E470D0A1A0A0000000D49484452000000200000 - 00200806000000737A7AF4000008614944415478DAD597097054F51DC7BFEFDC - 6459360787211A9A7085D3265968942B4AA18632C40A42B932B6B6D88025C8E1 - A083AD38436B19102B4C024AB596D800024A9948558E2910902B097235014928 - 392037BB9B6477DFB5FDFDDF5B305B8E6AA78EE39BF9EFDBD9DDD9EFE7FFFD5D - FFC7E15BBEB8EF0C405E5E9EA4F8D54C4EE227D96C11E9DD6262FA474646DAD9 - 773E9FBFBDA9B5E50B2DE03FAEAB2812247C929B9BABFE5F00D6AE5A65E322EC - F3BB3ABB2E1D3830395E1204B479DDA8BA7205AD2DADE65FC4C646232929090E - 87138AAEA3BCBCA2AED5E35D23F83BF2172F5B16F89F01D6AC5BE7B2C91105AE - B4B44181760FB6EEDC8D7643C47D0F24C1D9BD17647B17689A41401E781AAFC1 - DD58836851C7B4299361EBE2444969E93F3D8A3F7B796E6EC9D70658F5DA1FA7 - F7EA9DF0EE90E4FE9105EF15C2C345213D6302EDB22B3C7E05BAAA21A01B5014 - 1D7EDAB5A2EAB0C932F4403B2A4F17234EECC0ECD93371BEE292AFEE6AF5CF96 - 2D79EEFDAF0CB092C413FBF42D8C8F750A9B0A3FC4B08C2CD89DB124A2411438 - 701C07C308420B1AD05482D0088200020C8AEEE004889A174D670FE099994FA0 - AEC5A357555E9EF5D21D206E0358B97A7D5AAFDEBD8AFBC6DF17B9F1FD3D481D - 37055EBF0A49E0C1E2CFF33C01D00F8380CA20C805D5304C07983883F42B9A09 - 146397D172761F72664E44556D83AFA6BE7ACC6F731795DC1560D9471FCAD195 - 0D658F8E1D39F8AD821D48703D066F40832C8A90440102418804102482200118 - 410B40A715D02C2714D3052DE48A8A689B0CEE6A3172B2A7E1C091CF2E78FAF4 - 4AFD7DE664E58E002FAF59F7DC0F463DFCFAD9E3C750232642979D24CCC32631 - 716BF1BC1502D287414BD7AC50A8140A9501689AE98675B7963DE847AAA31E29 - 23D271ECE8D1C5AF2C59F8FA6D00BF59F4ACD865B0EBCAC89461F76F2A3A8EC8 - FB87D12E830460ED5E640ED0EE5908AC1830072812F4C242608622E48266DED5 - 10806A923ADA2E63C19491282E3D537B420F247D306F9E1A0EF05ADEA4075D29 - 45B5172B50DADE1386180949124D0099C479C10A81C059001CBD37CC3870D00D - DA310130614DB71251EDE480A2A810341F7E9CD08EF87E03507AEAC4E457972E - 2A0A037861EDFAFC1F8E1D396FD7FE52781D036857BA292E9A8BC469C9BC4877 - 9ECA50474B878AF6806E9622AB082A0EC8026097385A02858412912054452130 - 8D8438F4E3ABF1C47817F61F3ABAE10F8B17CC0F0378695D7E49E62363D236EE - F91C3E39CE1494248916B35F02C70BA869F5A3D6ADD06E418E70B762C8C14A48 - 836082940F14174A3E0ED17611BC59AA2A7D64C0A1D6E3F9292EFCFDE091D295 - 0B725C6100BF2BD8E21EFBE060E7CAEDA7618B4908098B889025B4F8745C6E0E - 50E271D4070482E1CD44BC990BAC2458BE3011830483D4980C0A856668E82A72 - E8E110CDDFB8AF5DC19AA7D371A8ECBC77F953339D6100AF166C35460E49E696 - 6F3983A8B8DE9025CB01B6E3269F618683E705D309AB17B05CE04300D6CE0D02 - 0852E80CC302604B27FBA3C88DA80801D7AF56217FEE081C3D5F117C71CE0C3E - 0C60C55BEF18E31F4EE716FFF924BAC527429645D47955B451AE0A82682E4EF8 - 128239C0851C3077CF209803241E64C29D007AD80574F80370D757A360C1287C - 7AF44470C5333F0F0758B26AAD7B7AD644E7A2774FC1D1A337BC8A8116BF5586 - 3CE50003E043CB0A8160B9700B40334BD2A0796CDC04A052143903B1113C9A3D - 1D686FACC69685A3B16DF71EEF9A654BC243F0F4D2174ECD993EC59577B00EF5 - 5A341A29CB451AECA6382D5E60F710842858007CC801830190ED5A67EB551386 - 89F3D051DBEC4562441B5ECC4CC4E6ED3B4ADF59BD2A3C0967FD3A37EFB1718F - CCAFF0DAB0EB0B99DA2D6F0A9BE2A26CBD172C37F84EA1B0003AC75D356D6700 - 910265BE18349B5255A3073306E8181CADE2937D073614E6AF0F2FC3A9737326 - F6EFD76FCF8F323230FBBD4AC474EBD909C00641667920998B01310821E4806E - 5ACF2CA7316D02907B1492A80882A37ED0ECF5A1E65A1DFE3A3B117B0F1D46D5 - C54B93B6BDFDE69E3080B4E464B1EFA8D155BFCC9EFDC05F4A3D28F1C65007B4 - 6C171880C4EEF29750920561B66426AE2AA6B0290E0D4E2948308AD990AA9BDB - 30BCEB0D3C35DC893F1514D694171F4E3A5B51A1DD368C264D9B913B6050F21B - D31FFF0966910B8E6EF1664312A49BC2B2B564E6840D229529BB58A3D1B58099 - 74364E471791B565FA8CA0EADD3EB436D4A2704E1F6CDFB50B17CB2B167EB47D - EBBA3B4EC39E4F66C929BA58F26456D65029AE0F5E39A4203A2A2A242CDE02B1 - AA82396055018B3FB39C0973D47C98B04EF74612BFDED48A156364688D95D8B9 - 6BF7B932517335ECD87DE771CCAE47274F4E9178F1C8825FFDC25EDE1681FC33 - 22BAC7C6981D3148998F5035888235236C5492B2403D92AA40A55080F2800DA0 - 468F1F4DADAD983F54C340A71FEBDF7CBBC3AFABA30F151595DDF344C4AED113 - 264C952579EBC29CB962BBAD27561C7423AA6702621D367491656B0EB07E100C - 8D658EA6223B17D249C8E35371839A8EAFA9062F6744C1A134E08D0D9B344555 - 6614EFDDBBF33FB5EE7A284D1F9D3195E3829BA73E9E65CFCCCC44DEE13AECAD - 93E9341C0707B9214BD678367380C670BB397635789BAF637CBC8267C7C4E3D3 - 8F3FC68EBFEDEEA0D195FDD9E17F7C70279D7B1ECB5D0F3D94420956F0BD8484 - A1D9337E8A81438662FFA51B28BB4E67FF063FDCA1483A6D40728F080C8F1330 - AE7F342A2E9CC3E62DDBF0AFEAEA7394A8D925C78E9DBE9BC67F7D30494D4D95 - 28B239BAA23DDFBD7B4C42FA881148FBFE30F4EDD3174EA7C3FC8DC7D386CB95 - 9751FAF9591C3F79124D2DADD59427ABA94837969595DDF309E9EB3C1B8A8392 - 9327A8BA3E89FA6E3A2F8AFDE88816C5BED00DC34D878E4B3CC79DA0036CD185 - F2F27D2C325FE54FBF3B0FA7DFD4F56FCFF53C5DA990668E0000002B74455874 - 436F7079726967687400436F7079726967687420A920323030382D3230313120 - 494E434F525320476D6248108E214F0000000049454E44AE426082} + inherited pnlDrieKnoppen: TPanel Visible = False end - object lblHuidigePallet: TLabel [9] - Left = 39 - Top = 396 - Width = 210 - Height = 39 - AutoSize = False - Caption = 'Huidige pallet:' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -32 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False + object pnlWegnemen: TPanel [3] + Left = 256 + Top = 96 + Width = 157 + Height = 183 + BevelOuter = bvNone + Color = 1513421 + ParentBackground = False + TabOrder = 2 + OnClick = pnlWegnemenClick + object imgWegnemen: TImage + Left = 14 + Top = 16 + Width = 128 + Height = 128 + Transparent = True + OnClick = imgWegnemenClick + end + object lblWegnemen: TLabel + Left = 0 + Top = 150 + Width = 157 + Height = 33 + Align = alBottom + Alignment = taCenter + AutoSize = False + Caption = 'Wegnemen' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWhite + Font.Height = -27 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + Layout = tlCenter + WordWrap = True + ExplicitLeft = -8 + ExplicitTop = 134 + end end - object lblScanPallet: TLabel [10] - Left = 132 - Top = 192 - Width = 214 - Height = 39 - Caption = 'Scan Dna-code' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -32 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False + object pnlVerplaatsen: TPanel [4] + Left = 60 + Top = 96 + Width = 157 + Height = 183 + BevelOuter = bvNone + Color = 1513421 + ParentBackground = False + TabOrder = 3 + OnClick = pnlVerplaatsenClick + object imgVerplaatsen: TImage + Left = 14 + Top = 16 + Width = 128 + Height = 128 + Transparent = True + OnClick = imgVerplaatsenClick + end + object lblVerplaatsen: TLabel + Left = 0 + Top = 150 + Width = 157 + Height = 33 + Align = alBottom + Alignment = taCenter + AutoSize = False + Caption = 'Verplaatsen' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWhite + Font.Height = -27 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + Layout = tlCenter + WordWrap = True + ExplicitLeft = -8 + ExplicitTop = 134 + end end - object lblToelevering: TLabel [11] - Left = 39 - Top = 344 - Width = 210 - Height = 39 - AutoSize = False - Caption = 'Toelevering:' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -32 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False + object pnlAnnuleren: TPanel [5] + Left = 256 + Top = 321 + Width = 157 + Height = 183 + BevelOuter = bvNone + Color = 1513421 + ParentBackground = False + TabOrder = 4 + OnClick = pnlAnnulerenClick + object imgAnnuleren: TImage + Left = 14 + Top = 16 + Width = 128 + Height = 128 + Transparent = True + OnClick = imgAnnulerenClick + end + object lblAnnuleren: TLabel + Left = 0 + Top = 150 + Width = 157 + Height = 33 + Align = alBottom + Alignment = taCenter + AutoSize = False + Caption = 'Annuleren' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWhite + Font.Height = -27 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + Layout = tlCenter + WordWrap = True + ExplicitLeft = -8 + ExplicitTop = 134 + end end - object imgInfo: TImage [12] - Left = 334 - Top = 99 - Width = 64 - Height = 64 - end - inherited pnlDrieKnoppen: TPanel - ExplicitTop = 508 - end - object edtDnaCode: TEdit [15] - Left = 67 - Top = 237 - Width = 345 + object edtPallet: TEdit [6] + Left = 60 + Top = 360 + Width = 157 Height = 47 + Alignment = taCenter AutoSize = False CharCase = ecUpperCase Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText - Font.Height = -32 + Font.Height = -27 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 2 - OnKeyPress = edtDnaCodeKeyPress + TabOrder = 5 + Visible = False + OnKeyUp = edtPalletKeyUp end - inherited alAlgemeen: TActionList - Left = 16 - Top = 160 - inherited actVolgende: TAction - OnExecute = actVolgendeExecute - end - inherited actHome: TAction - OnExecute = actHomeExecute - end - inherited actPallet: TAction - OnExecute = actPalletExecute - end - end end Index: AAPClient/WS/DnaCodeService.pas =================================================================== diff -u -r125 -r172 --- AAPClient/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 125) +++ AAPClient/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 172) @@ -5,7 +5,7 @@ // >Import : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1>0 // Encoding : UTF-8 // Version : 1.0 -// (6/09/2019 7:39:37 - - $Rev: 45757 $) +// (26/09/2019 8:53:19 - - $Rev: 45757 $) // ************************************************************************ // unit DnaCodeService; @@ -373,12 +373,17 @@ FHeader: RequestHeader; FOudeCode: string; FNieuweCode: string; + FEnkelDezeDnaCode: string; + FEnkelDezeDnaCode_Specified: boolean; + procedure SetEnkelDezeDnaCode(Index: Integer; const Astring: string); + function EnkelDezeDnaCode_Specified(Index: Integer): boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property OudeCode: string read FOudeCode write FOudeCode; - property NieuweCode: string read FNieuweCode write FNieuweCode; + property Header: RequestHeader read FHeader write FHeader; + property OudeCode: string read FOudeCode write FOudeCode; + property NieuweCode: string read FNieuweCode write FNieuweCode; + property EnkelDezeDnaCode: string Index (IS_OPTN) read FEnkelDezeDnaCode write SetEnkelDezeDnaCode stored EnkelDezeDnaCode_Specified; end; @@ -731,6 +736,17 @@ inherited Destroy; end; +procedure HernoemPalletRequest.SetEnkelDezeDnaCode(Index: Integer; const Astring: string); +begin + FEnkelDezeDnaCode := Astring; + FEnkelDezeDnaCode_Specified := True; +end; + +function HernoemPalletRequest.EnkelDezeDnaCode_Specified(Index: Integer): boolean; +begin + Result := FEnkelDezeDnaCode_Specified; +end; + procedure DnaCode.SetAxProductieOrderNummer(Index: Integer; const Astring: string); begin FAxProductieOrderNummer := Astring;