Index: PlanScan/PlanScan.dproj
===================================================================
diff -u -r303 -r348
--- PlanScan/PlanScan.dproj (.../PlanScan.dproj) (revision 303)
+++ PlanScan/PlanScan.dproj (.../PlanScan.dproj) (revision 348)
@@ -96,6 +96,11 @@
dfm
+
+
+ dfm
+ TFrame
+
Cfg_2
Index: PlanScan/PlanScan.dproj.local
===================================================================
diff -u -r346 -r348
--- PlanScan/PlanScan.dproj.local (.../PlanScan.dproj.local) (revision 346)
+++ PlanScan/PlanScan.dproj.local (.../PlanScan.dproj.local) (revision 348)
@@ -2,39 +2,47 @@
2020/02/17 10:05:16.000.600,=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas
- 2020/02/17 10:06:02.000.921,C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm=E:\svn\Delphi\PlanScan\Main.dfm
- 2020/02/17 10:06:02.000.921,C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas=E:\svn\Delphi\PlanScan\Main.pas
- 2020/02/17 10:06:12.000.996,C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj=E:\svn\Delphi\PlanScan\PlanScan.dproj
- 2020/02/17 11:09:31.000.808,=E:\svn\Delphi\PlanScan\WS\Agent.pas
+ 2020/02/17 10:06:02.000.921,E:\svn\Delphi\PlanScan\Main.pas=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas
+ 2020/02/17 10:06:02.000.921,E:\svn\Delphi\PlanScan\Main.dfm=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm
+ 2020/02/17 10:06:12.000.996,E:\svn\Delphi\PlanScan\PlanScan.dproj=C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj
2020/02/17 11:09:31.000.812,=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas
- 2020/02/17 11:09:31.000.815,=E:\svn\Delphi\PlanScan\WS\__history
2020/02/17 11:09:31.000.810,=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas
+ 2020/02/17 11:09:31.000.808,=E:\svn\Delphi\PlanScan\WS\Agent.pas
+ 2020/02/17 11:09:31.000.815,=E:\svn\Delphi\PlanScan\WS\__history
2020/02/17 11:12:28.000.857,=E:\svn\Delphi\AAPClient\UI\UiContext.pas
2020/02/17 11:13:01.000.260,E:\svn\Delphi\AAPClient\UI\UiContext.pas=
2020/02/17 11:14:30.000.384,=E:\svn\Delphi\PlanScan\UI\UiContext.pas
2020/02/17 11:16:33.000.742,=E:\svn\Delphi\PlanScan\UI\Images.pas
2020/02/18 08:16:12.000.093,=E:\svn\Delphi\PlanScan\WS.pas
2020/02/18 08:21:57.000.780,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=
- 2020/02/18 08:22:15.000.174,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas
+ 2020/02/18 08:22:15.000.174,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas
2020/02/18 08:32:28.000.107,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=
2020/02/18 08:32:46.000.480,=E:\svn\Delphi\PlanScan\WS.pas
- 2020/02/18 08:33:00.000.884,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas
+ 2020/02/18 08:33:00.000.884,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas
2020/02/18 11:21:59.000.209,=E:\svn\Delphi\PlanScan\WS.pas
2020/02/18 11:22:27.000.481,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=
- 2020/02/18 11:22:42.000.597,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas
+ 2020/02/18 11:22:42.000.597,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas
2020/03/02 09:30:33.000.825,=E:\svn\Delphi\PlanScan\WS.pas
2020/03/02 09:30:46.000.906,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas=
- 2020/03/02 09:31:23.000.040,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas
+ 2020/03/02 09:31:23.000.040,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas=E:\svn\Delphi\PlanScan\WS.pas
2020/03/04 11:43:31.000.229,=E:\svn\Delphi\PlanScan\Unit1.pas
- 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\Unit1.pas=E:\svn\Delphi\PlanScan\UI\LoginScherm.pas
- 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\LoginScherm.dfm
+ 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\UI\LoginScherm.pas=E:\svn\Delphi\PlanScan\Unit1.pas
+ 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\UI\LoginScherm.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm
+ 2020/04/20 08:48:05.552,=E:\svn\Delphi\PlanScan\Unit1.pas
+ 2020/04/20 08:48:21.787,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm
+ 2020/04/20 08:48:21.787,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas=E:\svn\Delphi\PlanScan\Unit1.pas
+ 2020/04/20 09:19:59.705,E:\svn\Delphi\PlanScan\UI\frameDnaCodes.dfm=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm
+ 2020/04/20 09:19:59.705,E:\svn\Delphi\PlanScan\UI\frameDnaCodes.pas=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas
+ 2020/04/20 09:21:17.241,=E:\svn\Delphi\PlanScan\Unit1.pas
+
+
Index: PlanScan/PlanScan.dpr
===================================================================
diff -u -r346 -r348
--- PlanScan/PlanScan.dpr (.../PlanScan.dpr) (revision 346)
+++ PlanScan/PlanScan.dpr (.../PlanScan.dpr) (revision 348)
@@ -13,7 +13,8 @@
DnaCodeService in 'WS\DnaCodeService.pas',
GebruikerService in 'WS\GebruikerService.pas',
LoginScherm in 'UI\LoginScherm.pas' {fmLogin},
- MidasLib;
+ MidasLib,
+ frameDnaCodes in 'UI\frameDnaCodes.pas' {frmDnaCodes: TFrame};
{$R *.res}
Index: PlanScan/Main.dfm
===================================================================
diff -u -r347 -r348
--- PlanScan/Main.dfm (.../Main.dfm) (revision 347)
+++ PlanScan/Main.dfm (.../Main.dfm) (revision 348)
@@ -2,8 +2,8 @@
Left = 0
Top = 0
Caption = 'PlanScan'
- ClientHeight = 360
- ClientWidth = 640
+ ClientHeight = 408
+ ClientWidth = 698
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -27,180 +27,36 @@
00000000FFFFFFFF}
end
object pcMain: TPageControl
- Left = 0
- Top = 0
- Width = 640
- Height = 360
+ Left = 197
+ Top = 184
+ Width = 368
+ Height = 184
ActivePage = tsDnaCodes
- Align = alClient
+ MultiLine = True
TabOrder = 1
- ExplicitWidth = 635
- ExplicitHeight = 336
+ TabPosition = tpLeft
object tsDnaCodes: TTabSheet
Caption = 'DnaCodes'
- ExplicitWidth = 627
- ExplicitHeight = 308
- object pnlZoekKnoppen: TPanel
- Left = 0
- Top = 0
- Width = 632
- Height = 41
- Align = alTop
- BevelEdges = []
- BevelOuter = bvNone
- TabOrder = 0
- ExplicitWidth = 627
- object btnZoekViaToelevering: TButton
- Left = 135
- Top = 9
- Width = 75
- Height = 25
- Caption = 'Toelevering'
- TabOrder = 0
- OnClick = btnZoekViaToeleveringClick
- end
- object edtZoekInput: TEdit
- Left = 8
- Top = 10
- Width = 121
- Height = 21
- TabOrder = 1
- end
- object btnZoekViaPallet: TButton
- Left = 216
- Top = 9
- Width = 75
- Height = 25
- Caption = 'Pallet'
- TabOrder = 2
- OnClick = btnZoekViaPalletClick
- end
- object btnZoekViaDnaCode: TButton
- Left = 297
- Top = 9
- Width = 75
- Height = 25
- Caption = 'DnaCode'
- TabOrder = 3
- OnClick = btnZoekViaDnaCodeClick
- end
- end
- object pnlActies: TPanel
- Left = 505
- Top = 41
- Width = 127
- Height = 291
- Align = alRight
- BevelEdges = []
- BevelOuter = bvNone
- TabOrder = 1
- ExplicitLeft = 500
- ExplicitHeight = 267
- object btnMaatwerketiket: TButton
- Left = 6
- Top = 6
- Width = 115
- Height = 25
- Caption = 'Maatwerketiket'
- TabOrder = 0
- OnClick = btnMaatwerketiketClick
- end
- object btnKlantEtiket: TButton
- Left = 6
- Top = 37
- Width = 115
- Height = 25
- Caption = 'Klantetiket'
- TabOrder = 1
- OnClick = btnKlantEtiketClick
- end
- object btnProboxetiket: TButton
- Left = 6
- Top = 68
- Width = 115
- Height = 25
- Caption = 'Proboxetiket'
- TabOrder = 2
- Visible = False
- OnClick = btnProboxetiketClick
- end
- end
- object dbgDnaCodes: TDBGrid
- Left = 0
- Top = 41
- Width = 505
- Height = 291
- Align = alClient
- DataSource = dsDnaCodes
- Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
- TabOrder = 2
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'Tahoma'
- TitleFont.Style = []
- Columns = <
- item
- Expanded = False
- FieldName = 'cdsDnaCodesDnaCode'
- Title.Caption = 'DnaCode'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'cdsDnaCodesPallet'
- Title.Caption = 'Pallet'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'cdsDnaCodesToelevering'
- Title.Caption = 'Toelevering'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'cdsDnaCodesStatus'
- Title.Caption = 'Status'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'cdsDnaCodesBatch'
- Title.Caption = 'Batch'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'cdsDnaCodesScantijdstip'
- Title.Caption = 'Scantijdstip'
- Visible = True
- end
- item
- Expanded = False
- FieldName = 'cdsDnaCodesInitialen'
- Title.Caption = 'Initialen'
- Visible = True
- end>
- end
+ ExplicitWidth = 427
+ ExplicitHeight = 352
end
object tsGebruikers: TTabSheet
Caption = 'Gebruikers'
ImageIndex = 1
OnShow = tsGebruikersShow
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
+ ExplicitWidth = 427
+ ExplicitHeight = 352
object Panel1: TPanel
- Left = 500
+ Left = 213
Top = 0
Width = 127
- Height = 308
+ Height = 176
Align = alRight
BevelEdges = []
BevelOuter = bvNone
TabOrder = 0
+ ExplicitLeft = 300
+ ExplicitHeight = 352
object btnGebruikerAfmelden: TButton
Left = 6
Top = 6
@@ -214,8 +70,8 @@
object dbgGebruikers: TDBGrid
Left = 0
Top = 0
- Width = 500
- Height = 308
+ Width = 213
+ Height = 176
Align = alClient
DataSource = dsGebruikers
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
@@ -256,66 +112,65 @@
end
end
end
- object dsDnaCodes: TDataSource
- DataSet = cdsDnaCodes
- Left = 32
- Top = 192
+ object pnlLinks: TPanel
+ Left = 0
+ Top = 0
+ Width = 185
+ Height = 408
+ Align = alLeft
+ BevelOuter = bvNone
+ TabOrder = 2
+ ExplicitLeft = 8
+ ExplicitTop = 73
+ ExplicitHeight = 41
+ object Panel2: TPanel
+ Left = 0
+ Top = 0
+ Width = 185
+ Height = 169
+ Align = alTop
+ BevelOuter = bvNone
+ Color = 1513421
+ ParentBackground = False
+ TabOrder = 0
+ end
+ object pnlKnoppen: TPanel
+ Left = 0
+ Top = 169
+ Width = 185
+ Height = 239
+ Align = alClient
+ BevelOuter = bvNone
+ Color = 1513421
+ ParentBackground = False
+ TabOrder = 1
+ ExplicitLeft = 6
+ ExplicitTop = 248
+ ExplicitHeight = 41
+ end
end
- object cdsDnaCodes: TClientDataSet
- Active = True
- Aggregates = <>
- FieldDefs = <
- item
- Name = 'cdsDnaCodesDnaCode'
- DataType = ftString
- Size = 10
- end
- item
- Name = 'cdsDnaCodesPallet'
- DataType = ftString
- Size = 10
- end
- item
- Name = 'cdsDnaCodesToelevering'
- DataType = ftString
- Size = 10
- end
- item
- Name = 'cdsDnaCodesStatus'
- DataType = ftString
- Size = 10
- end
- item
- Name = 'cdsDnaCodesBatch'
- DataType = ftString
- Size = 6
- end
- item
- Name = 'cdsDnaCodesScantijdstip'
- DataType = ftString
- Size = 20
- end
- item
- Name = 'cdsDnaCodesInitialen'
- DataType = ftString
- Size = 3
- end>
- IndexDefs = <>
- Params = <>
- StoreDefs = True
- Left = 32
- Top = 240
- Data = {
- 320100009619E0BD010000001800000007000000000003000000320112636473
- 446E61436F646573446E61436F64650100490000000100055749445448020002
- 000A0011636473446E61436F64657350616C6C65740100490000000100055749
- 445448020002000A0016636473446E61436F646573546F656C65766572696E67
- 0100490000000100055749445448020002000A0011636473446E61436F646573
- 5374617475730100490000000100055749445448020002000A0010636473446E
- 61436F6465734261746368010049000000010005574944544802000200060017
- 636473446E61436F6465735363616E74696A6473746970010049000000010005
- 574944544802000200140014636473446E61436F646573496E697469616C656E
- 01004900000001000557494454480200020003000000}
+ inline frmDnaCodes: TfrmDnaCodes
+ Left = 296
+ Top = 0
+ Width = 402
+ Height = 408
+ Align = alRight
+ TabOrder = 3
+ ExplicitLeft = 296
+ ExplicitWidth = 402
+ ExplicitHeight = 408
+ inherited dbgDnaCodes: TDBGrid
+ Width = 275
+ Height = 367
+ end
+ inherited pnlActies: TPanel
+ Left = 275
+ Height = 367
+ end
+ inherited pnlZoekKnoppen: TPanel
+ Width = 402
+ ExplicitWidth = 640
+ end
end
object cdsGebruikers: TClientDataSet
Aggregates = <>
Index: PlanScan/Main.pas
===================================================================
diff -u -r303 -r348
--- PlanScan/Main.pas (.../Main.pas) (revision 303)
+++ PlanScan/Main.pas (.../Main.pas) (revision 348)
@@ -7,23 +7,11 @@
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables, Vcl.Grids,
Vcl.DBGrids, Vcl.OleCtrls, CACHEQUERYLib_TLB, TLLib_TLB, Vcl.OleServer,
CacheActiveX_TLB, Vcl.StdCtrls, Datasnap.DBClient, UiContext, Vcl.ComCtrls,
- DnaCodeService, Vcl.ExtCtrls, GebruikerService;
+ DnaCodeService, Vcl.ExtCtrls, GebruikerService, frameDnaCodes;
type
TfmMain = class(TForm)
- dsDnaCodes: TDataSource;
CacheQuery1: TCacheQuery;
- cdsDnaCodes: TClientDataSet;
- dbgDnaCodes: TDBGrid;
- pnlZoekKnoppen: TPanel;
- pnlActies: TPanel;
- btnZoekViaToelevering: TButton;
- edtZoekInput: TEdit;
- btnZoekViaPallet: TButton;
- btnZoekViaDnaCode: TButton;
- btnMaatwerketiket: TButton;
- btnKlantEtiket: TButton;
- btnProboxetiket: TButton;
pcMain: TPageControl;
tsDnaCodes: TTabSheet;
tsGebruikers: TTabSheet;
@@ -32,23 +20,18 @@
dbgGebruikers: TDBGrid;
cdsGebruikers: TClientDataSet;
dsGebruikers: TDataSource;
- procedure btnZoekViaToeleveringClick(Sender: TObject);
- procedure btnZoekViaPalletClick(Sender: TObject);
- procedure btnZoekViaDnaCodeClick(Sender: TObject);
- procedure btnMaatwerketiketClick(Sender: TObject);
- procedure btnKlantEtiketClick(Sender: TObject);
- procedure btnProboxetiketClick(Sender: TObject);
+ pnlLinks: TPanel;
+ frmDnaCodes: TfrmDnaCodes;
+ Panel2: TPanel;
+ pnlKnoppen: TPanel;
procedure tsGebruikersShow(Sender: TObject);
procedure btnGebruikerAfmeldenClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
fUiContext: TUiContext;
- procedure VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode);
procedure VulGebruikersGridMetData(Gebruikers: ArrayOfGebruikerGebruiker);
- function BepaalGeselecteerdeDnaCodes(): TStringList;
- function GeefAlleDnaCodesUitGrid(): TStringList;
procedure ZoekAlleGebruikers();
public
property UiContext: TUiContext Read fUiContext Write fUiContext;
@@ -60,7 +43,7 @@
implementation
uses
- Agent, typinfo, System.StrUtils, LoginScherm;
+ Agent, System.StrUtils, LoginScherm;
{$R *.dfm}
@@ -80,99 +63,6 @@
ZoekAlleGebruikers();
end;
-procedure TfmMain.btnKlantEtiketClick(Sender: TObject);
-var
- DnaCodesStringList: TStringList;
-begin
- DnaCodesStringList := BepaalGeselecteerdeDnaCodes();
- //relevante webmethod oproepen
-end;
-
-procedure TfmMain.btnMaatwerketiketClick(Sender: TObject);
-var
- DnaCodesStringList: TStringList;
-begin
- DnaCodesStringList := BepaalGeselecteerdeDnaCodes()
- //relevante webmethod oproepen
-end;
-
-procedure TfmMain.btnProboxetiketClick(Sender: TObject);
-var
- DnaCodesStringList: TStringList;
- fProboxAfdrukkenResponse: ProboxEtiketAfdrukkenResponse;
-begin
- DnaCodesStringList := GeefAlleDnaCodesUitGrid();
- fProboxAfdrukkenResponse := TAgent.Create(UiContext).ProboxEtiketAfdrukken(DnaCodesStringList);
- try
- if fProboxAfdrukkenResponse.Header.Status <> '200' then begin
- ShowMessage(fProboxAfdrukkenResponse.Header.Omschrijving)
- end else begin
- Self.ModalResult := mrPallet;
- end;
- finally
- fProboxAfdrukkenResponse.Free;
- end;
-end;
-
-procedure TfmMain.btnZoekViaDnaCodeClick(Sender: TObject);
-var
- fZoekViaDnaCodeResponse: ZoekViaDnaCodeResponse;
- DnaCodes: ArrayOfDnaCodeDnaCode;
-begin
- fZoekViaDnaCodeResponse := TAgent.Create(UiContext).ZoekViaDnaCode(edtZoekInput.Text);
- try
- if fZoekViaDnaCodeResponse.Header.Status = '200' then begin
- SetLength(DnaCodes,1);
- DnaCodes[0] := fZoekViaDnaCodeResponse.DnaCodes;
- VulDnaCodeGridMetData(DnaCodes);
- btnProboxetiket.Visible := false;
- end else begin
- ShowMessage(fZoekViaDnaCodeResponse.Header.Omschrijving);
- end;
- finally
- fZoekViaDnaCodeResponse.Free;
- end;
-end;
-
-procedure TfmMain.btnZoekViaPalletClick(Sender: TObject);
-var
- fZoekViaPalletResponse: ZoekViaPalletCodeResponse;
- DnaCodes: ArrayOfDnaCodeDnaCode;
-begin
- fZoekViaPalletResponse := TAgent.Create(UiContext).ZoekViaPalletCode(edtZoekInput.Text);
- try
- if fZoekViaPalletResponse.Header.Status = '200' then begin
- DnaCodes := fZoekViaPalletResponse.DnaCodes;
- VulDnaCodeGridMetData(DnaCodes);
- if StartsText('TBP',edtZoekInput.Text) then
- btnProboxetiket.Visible := true;
- end else begin
- ShowMessage(fZoekViaPalletResponse.Header.Omschrijving);
- end;
- finally
- fZoekViaPalletResponse.Free;
- end;
-end;
-
-procedure TfmMain.btnZoekViaToeleveringClick(Sender: TObject);
-var
- fZoekViaToeleveringResponse: ZoekViaToeleveringResponse;
- DnaCodes: ArrayOfDnaCodeDnaCode;
-begin
- fZoekViaToeleveringResponse := TAgent.Create(UiContext).ZoekViaToelevering(edtZoekInput.Text);
- try
- if fZoekViaToeleveringResponse.Header.Status = '200' then begin
- DnaCodes := fZoekViaToeleveringResponse.DnaCodes;
- VulDnaCodeGridMetData(DnaCodes);
- btnProboxetiket.Visible := false;
- end else begin
- ShowMessage(fZoekViaToeleveringResponse.Header.Omschrijving);
- end;
- finally
- fZoekViaToeleveringResponse.Free;
- end;
-end;
-
procedure TfmMain.FormCreate(Sender: TObject);
begin
UiContext := TUiContext.Create();
@@ -219,34 +109,6 @@
TAgent.Create(UiContext).GebruikerAfmelden(UiContext.Initialen, UiContext.LoginCode);
end;
-function TfmMain.BepaalGeselecteerdeDnaCodes: TStringList;
-var
- DnaCodesStringList: TStringList;
- RijTeller: integer;
-begin
- DnaCodesStringList := TStringList.Create();
- if dbgDnaCodes.SelectedRows.Count > 0 then begin
- for rijteller := 0 to dbgDnaCodes.SelectedRows.Count - 1 do begin
- dbgDnaCodes.DataSource.DataSet.GotoBookmark(Pointer(dbgDnaCodes.SelectedRows.Items[rijteller]));
- DnaCodesStringList.Add(dbgDnaCodes.DataSource.DataSet.FieldByName('cdsDnaCodesDnaCode').AsString);
- end;
- end;
- result := DnaCodesStringList;
-end;
-
-function TfmMain.GeefAlleDnaCodesUitGrid: TStringList;
-var
- DnaCodesStringList: TStringList;
-begin
- DnaCodesStringList := TStringList.Create();
- dbgDnaCodes.DataSource.DataSet.First;
- while not dbgDnaCodes.DataSource.DataSet.Eof do begin
- DnaCodesStringList.Add(dbgDnaCodes.DataSource.DataSet.FieldByName('cdsDnaCodesDnaCode').AsString);
- dbgDnaCodes.DataSource.DataSet.Next;
- end;
- result := DnaCodesStringList;
-end;
-
procedure TfmMain.tsGebruikersShow(Sender: TObject);
begin
UiContext.LoginCode := '1513';
@@ -270,32 +132,6 @@
end;
end;
-procedure TfmMain.VulDnaCodeGridMetData(DnaCodes: ArrayOfDnaCodeDnaCode);
-var
- ii: integer;
- ScanTijdstipAsString: string;
-begin
- cdsDnaCodes.Close;
- cdsDnaCodes.CreateDataSet;
-
- ii := 0;
- while ii <= length(DnaCodes)-1 do begin
- if DnaCodes[ii].ScanTijdstip = nil then
- ScanTijdstipAsString := ''
- else
- ScanTijdstipAsString := DateTimeToStr(DnaCodes[ii].ScanTijdstip.AsUTCDateTime);
-
- cdsDnaCodes.InsertRecord([DnaCodes[ii].DnaCode,
- DnaCodes[ii].PalletCode,
- DnaCodes[ii].Toelevering,
- GetEnumName(typeInfo(DnaCodeStatus),Ord(DnaCodes[ii].Status)),
- DnaCodes[ii].BatchId,
- ScanTijdstipAsString,
- DnaCodes[ii].InitialenScanner]);
- ii := ii + 1;
- end;
-end;
-
procedure TfmMain.VulGebruikersGridMetData(Gebruikers: ArrayOfGebruikerGebruiker);
var
ii: integer;