Index: ProScan/ProScanMain.pas =================================================================== diff -u -r679 -r681 --- ProScan/ProScanMain.pas (.../ProScanMain.pas) (revision 679) +++ ProScan/ProScanMain.pas (.../ProScanMain.pas) (revision 681) @@ -29,7 +29,7 @@ implementation uses - OnderdelenScherm, LoginScherm2, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm, + OnderdelenScherm, DnaCodeSchermVoorOnderdelen, LoginScherm2, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm, BestaandePalletscherm, DnaCodeScherm, InfoLogScherm, Images, HernoemPalletScherm, DimmerForm, DnaCodeReedsGescandScherm, Agent; @@ -106,15 +106,16 @@ end else begin fHuidigScherm.Free; case mr of - mrLogin : fHuidigScherm := TfmLoginScherm2.Create(pnlMain); - mrHome : fHuidigScherm := TfmHomeScherm.Create(pnlMain); - mrPallet : fHuidigScherm := TfmPalletScherm.Create(pnlMain); - mrHernoemPallet : fHuidigScherm := TfmHernoemPalletScherm.Create(pnlMain); - mrBestaandePallet : fHuidigScherm := TfmBestaandePalletScherm.Create(pnlMain); - mrDnaCode : fHuidigScherm := TfmDnaCodeScherm.Create(pnlMain); - mrInfoLog : fHuidigScherm := TfmInfoLogScherm.Create(pnlMain); - mrDnaCodeReedsGescand : fHuidigScherm := TfmDnaCodeReedsGescandScherm.Create(pnlMain); - mrOnderdelen : fHuidigScherm := TfmOnderdelenScherm.Create(pnlMain); + mrLogin : fHuidigScherm := TfmLoginScherm2.Create(pnlMain); + mrHome : fHuidigScherm := TfmHomeScherm.Create(pnlMain); + mrPallet : fHuidigScherm := TfmPalletScherm.Create(pnlMain); + mrHernoemPallet : fHuidigScherm := TfmHernoemPalletScherm.Create(pnlMain); + mrBestaandePallet : fHuidigScherm := TfmBestaandePalletScherm.Create(pnlMain); + mrDnaCode : fHuidigScherm := TfmDnaCodeScherm.Create(pnlMain); + mrInfoLog : fHuidigScherm := TfmInfoLogScherm.Create(pnlMain); + mrDnaCodeReedsGescand : fHuidigScherm := TfmDnaCodeReedsGescandScherm.Create(pnlMain); + mrOnderdelen : fHuidigScherm := TfmOnderdelenScherm.Create(pnlMain); + mrDnaCodeVoorOnderdelen : fHuidigScherm := TfmDnaCodeSchermVoorOnderdelen.Create(pnlMain); end; fHuidigScherm.Parent := pnlMain; Index: ProScan/UI/DnaCodeSchermVoorOnderdelen.pas =================================================================== diff -u -r680 -r681 --- ProScan/UI/DnaCodeSchermVoorOnderdelen.pas (.../DnaCodeSchermVoorOnderdelen.pas) (revision 680) +++ ProScan/UI/DnaCodeSchermVoorOnderdelen.pas (.../DnaCodeSchermVoorOnderdelen.pas) (revision 681) @@ -27,10 +27,10 @@ imgBlumXs: TImage; lblAantalOpPallet: TLabel; procedure FormShow(Sender: TObject); + procedure actTerugExecute(Sender: TObject); procedure actPalletExecute(Sender: TObject); procedure FormCreate(Sender: TObject); procedure btnInfoClick(Sender: TObject); - procedure FormActivate(Sender: TObject); private fImagesScherm: TImagesScherm; procedure ToeleveringDataOphalen(); @@ -53,12 +53,6 @@ {$R *.dfm} -procedure TfmDnaCodeSchermVoorOnderdelen.FormActivate(Sender: TObject); -begin - inherited; - ActiveControl := edtDnaCode; -end; - procedure TfmDnaCodeSchermVoorOnderdelen.FormCreate(Sender: TObject); begin inherited; @@ -68,8 +62,8 @@ procedure TfmDnaCodeSchermVoorOnderdelen.FormShow(Sender: TObject); begin btnLinksOnder.Action := actPallet; + btnCentraalOnder.Action := actTerug; btnRechtsOnder.Action := actAfronden; - edtDnaCode.Text := ''; lblHuidigePalletData.Caption := UiContext.Pallet; lblToeleveringData.Caption := UiContext.Toelevering; lblAantalGescand.Caption := ''; @@ -93,10 +87,16 @@ imgBlumXs.Visible := false; end; ZetIcoontjesBovenaan; - edtDnaCode.SetFocus; inherited; end; +procedure TfmDnaCodeSchermVoorOnderdelen.actTerugExecute(Sender: TObject); +begin + inherited; + PostMessage(Self.Handle,WM_Close,0,0); + (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrOnderdelen); +end; + procedure TfmDnaCodeSchermVoorOnderdelen.actPalletExecute(Sender: TObject); var fAantalLadesOpHuidigePallet: integer; @@ -155,6 +155,8 @@ procedure TfmDnaCodeSchermVoorOnderdelen.btnInfoClick(Sender: TObject); begin inherited; + UiContext.VanuitOnderdelen := true; + if UiContext.Modus = modusVHOSS then begin UiContext.InfoLogSchermToonGescand := true; Self.ModalResult := mrInfoLog; Index: ProScan/UI/UiContext.pas =================================================================== diff -u -r679 -r681 --- ProScan/UI/UiContext.pas (.../UiContext.pas) (revision 679) +++ ProScan/UI/UiContext.pas (.../UiContext.pas) (revision 681) @@ -6,18 +6,19 @@ Images, Classes; const - mrLogin = 101; - mrHome = 102; - mrPallet = 103; - mrBestaandePallet = 104; - mrDnaCode = 105; - mrInfoLog = 106; - mrHernoemPallet = 107; - mrDnaCodeReedsGescand = 108; - mrOnderdelen = 109; - modusDefault = 1; - modusKAD = 2; - modusVHOSS = 3; + mrLogin = 101; + mrHome = 102; + mrPallet = 103; + mrBestaandePallet = 104; + mrDnaCode = 105; + mrInfoLog = 106; + mrHernoemPallet = 107; + mrDnaCodeReedsGescand = 108; + mrOnderdelen = 109; + mrDnaCodeVoorOnderdelen = 110; + modusDefault = 1; + modusKAD = 2; + modusVHOSS = 3; type TUiContext = class @@ -44,6 +45,7 @@ fFormHoogte: integer; fLaatsteDnaCodeGoedAfgemeld: boolean; fLaatstAfgedrukteDnaCodes: TStringList; + fVanuitOnderdelen: boolean; public Constructor Create; overload; Property Initialen: String Read fInitialen Write fInitialen; @@ -68,6 +70,7 @@ Property FormHoogte: integer Read fFormHoogte Write fFormHoogte; Property LaatsteDnaCodeGoedAfgemeld: boolean Read fLaatsteDnaCodeGoedAfgemeld Write fLaatsteDnaCodeGoedAfgemeld; Property LaatstAfgedrukteDnaCodes: TStringList Read fLaatstAfgedrukteDnaCodes Write fLaatstAfgedrukteDnaCodes; + Property VanuitOnderdelen: boolean Read fVanuitOnderdelen Write fVanuitOnderdelen; end; implementation Index: ProScan/UI/OnderdelenScherm.dfm =================================================================== diff -u -r678 -r681 --- ProScan/UI/OnderdelenScherm.dfm (.../OnderdelenScherm.dfm) (revision 678) +++ ProScan/UI/OnderdelenScherm.dfm (.../OnderdelenScherm.dfm) (revision 681) @@ -57,5 +57,8 @@ inherited actHome: TAction OnExecute = actHomeExecute end + inherited actTerug: TAction + OnExecute = actTerugExecute + end end end Index: ProScan/UI/DnaCodeSchermVoorOnderdelen.dfm =================================================================== diff -u -r680 -r681 --- ProScan/UI/DnaCodeSchermVoorOnderdelen.dfm (.../DnaCodeSchermVoorOnderdelen.dfm) (revision 680) +++ ProScan/UI/DnaCodeSchermVoorOnderdelen.dfm (.../DnaCodeSchermVoorOnderdelen.dfm) (revision 681) @@ -1,8 +1,5 @@ inherited fmDnaCodeSchermVoorOnderdelen: TfmDnaCodeSchermVoorOnderdelen Caption = 'fmDnaCodeSchermVoorOnderdelen' - OnActivate = FormActivate - ExplicitWidth = 480 - ExplicitHeight = 640 PixelsPerInch = 96 TextHeight = 19 object lblToeleveringData: TLabel [0] @@ -189,5 +186,8 @@ inherited actPallet: TAction OnExecute = actPalletExecute end + inherited actTerug: TAction + OnExecute = actTerugExecute + end end end Index: ProScan/UI/DnaCodeScherm.pas =================================================================== diff -u -r675 -r681 --- ProScan/UI/DnaCodeScherm.pas (.../DnaCodeScherm.pas) (revision 675) +++ ProScan/UI/DnaCodeScherm.pas (.../DnaCodeScherm.pas) (revision 681) @@ -314,6 +314,8 @@ procedure TfmDnaCodeScherm.btnInfoClick(Sender: TObject); begin inherited; + UiContext.VanuitOnderdelen := false; + if UiContext.Modus = modusVHOSS then begin UiContext.InfoLogSchermToonGescand := true; Self.ModalResult := mrInfoLog; Index: ProScan/UI/InfoLogScherm.pas =================================================================== diff -u -r669 -r681 --- ProScan/UI/InfoLogScherm.pas (.../InfoLogScherm.pas) (revision 669) +++ ProScan/UI/InfoLogScherm.pas (.../InfoLogScherm.pas) (revision 681) @@ -64,8 +64,12 @@ procedure TfmInfoLogScherm.actTerugExecute(Sender: TObject); begin inherited; + Self.ModalResult := mrDnaCode; + if UiContext.VanuitOnderdelen then + Self.ModalResult := mrDnaCodeVoorOnderdelen; + PostMessage(Self.Handle,WM_Close,0,0); - (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode); + (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult); end; procedure TfmInfoLogScherm.actOngedaanMakenExecute(Sender: TObject); Index: ProScan/UI/OnderdelenScherm.pas =================================================================== diff -u -r679 -r681 --- ProScan/UI/OnderdelenScherm.pas (.../OnderdelenScherm.pas) (revision 679) +++ ProScan/UI/OnderdelenScherm.pas (.../OnderdelenScherm.pas) (revision 681) @@ -15,6 +15,7 @@ procedure FormShow(Sender: TObject); procedure actHomeExecute(Sender: TObject); procedure actVolgendeExecute(Sender: TObject); + procedure actTerugExecute(Sender: TObject); procedure GenereerTbpCodeVoorOnderdelen; procedure edtToeleveringKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); @@ -46,7 +47,7 @@ fAgent: TAgent; fZoekViaToeleveringResponse: ZoekViaToeleveringResponse; begin - Self.ModalResult := mrDnaCode; + Self.ModalResult := mrDnaCodeVoorOnderdelen; fAgent := TAgent.Create(UiContext); fZoekViaToeleveringResponse := fAgent.ZoekViaToelevering(edtToelevering.Text); @@ -67,6 +68,13 @@ (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult); end; +procedure TfmOnderdelenScherm.actTerugExecute(Sender: TObject); +begin + inherited; + PostMessage(Self.Handle,WM_Close,0,0); + (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrPallet); +end; + procedure TfmOnderdelenScherm.GenereerTbpCodeVoorOnderdelen; var fGeefVolgendeTbpCodeResponse: GeefVolgendeTbpCodeResponse; @@ -108,7 +116,7 @@ procedure TfmOnderdelenScherm.FormShow(Sender: TObject); begin - btnLinksOnder.Action := nil; + btnLinksOnder.Action := actTerug; btnCentraalOnder.Action := actHome; btnRechtsOnder.Action := actVolgende; edtToelevering.Text := '';