/[projects]/dao/DelphiScanner/Main.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Main.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3054 by torben, Mon Jun 27 11:53:04 2016 UTC revision 3055 by torben, Mon Jun 27 12:18:07 2016 UTC
# Line 56  type Line 56  type
56      radioStorPakke: TRadioButton;      radioStorPakke: TRadioButton;
57      radioLillePakke: TRadioButton;      radioLillePakke: TRadioButton;
58      N4: TMenuItem;      N4: TMenuItem;
59      Storepakker1: TMenuItem;      menuStorePakker: TMenuItem;
60      Smpakker1: TMenuItem;      menuSmaaPakker: TMenuItem;
61      Panel1: TPanel;      Panel1: TPanel;
62      Testlyd2: TMenuItem;      Testlyd2: TMenuItem;
63      Button1: TButton;      Button1: TButton;
# Line 85  type Line 85  type
85      Timer1: TTimer;      Timer1: TTimer;
86      chkScanTjekkode: TCheckBox;      chkScanTjekkode: TCheckBox;
87      Scanogstjekkoden1: TMenuItem;      Scanogstjekkoden1: TMenuItem;
88      Automatisktjekkodestyring1: TMenuItem;      menuAutomatiskTjekkodeStyring: TMenuItem;
89      menuAutomatiskvalg1: TMenuItem;      menuAutomatiskvalg1: TMenuItem;
90      PanelValgA: TPanel;      PanelValgA: TPanel;
91      PanelValg1: TPanel;      PanelValg1: TPanel;
# Line 136  type Line 136  type
136    procedure Sprgefterboghandlernummer1Click(Sender: TObject);    procedure Sprgefterboghandlernummer1Click(Sender: TObject);
137    procedure menuNatxpressReturDAO1Click(Sender: TObject);    procedure menuNatxpressReturDAO1Click(Sender: TObject);
138    procedure menuNatxpressReturfraKunde1Click(Sender: TObject);    procedure menuNatxpressReturfraKunde1Click(Sender: TObject);
139    procedure Storepakker1Click(Sender: TObject);    procedure menuStorePakkerClick(Sender: TObject);
140    procedure Smpakker1Click(Sender: TObject);    procedure menuSmaaPakkerClick(Sender: TObject);
141    procedure Testlyd1Click(Sender: TObject);    procedure Testlyd1Click(Sender: TObject);
142    procedure Testlyd2Click(Sender: TObject);    procedure Testlyd2Click(Sender: TObject);
143    procedure Button1Click(Sender: TObject);    procedure Button1Click(Sender: TObject);
# Line 173  type Line 173  type
173    procedure Timer1Timer(Sender: TObject);    procedure Timer1Timer(Sender: TObject);
174    procedure Scanogstjekkoden1Click(Sender: TObject);    procedure Scanogstjekkoden1Click(Sender: TObject);
175    procedure chkScanTjekkodeClick(Sender: TObject);    procedure chkScanTjekkodeClick(Sender: TObject);
176    procedure Automatisktjekkodestyring1Click(Sender: TObject);    procedure menuAutomatiskTjekkodeStyringClick(Sender: TObject);
177    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
178    procedure menuAutomatiskvalg1Click(Sender: TObject);    procedure menuAutomatiskvalg1Click(Sender: TObject);
179    procedure PanelValgAClick(Sender: TObject);    procedure PanelValgAClick(Sender: TObject);
# Line 431  begin Line 431  begin
431        end;        end;
432      end;      end;
433    
434      if Automatisktjekkodestyring1.Checked then      if menuAutomatiskTjekkodeStyring.Checked then
435      begin      begin
436        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
437        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
# Line 489  begin Line 489  begin
489    StregkodeST.Caption := Stregkode;    StregkodeST.Caption := Stregkode;
490  end;  end;
491    
492  procedure TMainForm.Automatisktjekkodestyring1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskTjekkodeStyringClick(Sender: TObject);
493  begin  begin
494    if Automatisktjekkodestyring1.Checked then    if menuAutomatiskTjekkodeStyring.Checked then
495    begin    begin
496       chkScanTjekkode.Enabled := false;       chkScanTjekkode.Enabled := false;
497       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
# Line 707  begin Line 707  begin
707    
708      if ScanTjekkodeAutomatik = '1' then      if ScanTjekkodeAutomatik = '1' then
709      begin      begin
710        Automatisktjekkodestyring1.Checked := true;        menuAutomatiskTjekkodeStyring.Checked := true;
711        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
712        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
713      end;      end;
# Line 1029  begin Line 1029  begin
1029    
1030      if Pakketype = '1' then      if Pakketype = '1' then
1031      begin      begin
1032        Storepakker1.Checked := true;        menuStorePakker.Checked := true;
1033        radioStorPakke.Checked := true;        radioStorPakke.Checked := true;
1034      end      end
1035      else      else
1036      begin      begin
1037        Smpakker1.Checked := true;        menuSmaaPakker.Checked := true;
1038        radioLillePakke.Checked := true;        radioLillePakke.Checked := true;
1039      end;      end;
1040    
# Line 1097  begin Line 1097  begin
1097        menuNatxpressReturDAO1.Visible := false;        menuNatxpressReturDAO1.Visible := false;
1098        menuNatxpressReturfraKunde1.Visible := false;        menuNatxpressReturfraKunde1.Visible := false;
1099        menuDaoDirekte1.Visible := false;        menuDaoDirekte1.Visible := false;
1100        Storepakker1.Visible := false;        menuStorePakker.Visible := false;
1101        Smpakker1.Visible := false;        menuSmaaPakker.Visible := false;
1102        Testprinter1.Visible := false;        Testprinter1.Visible := false;
1103        menuPakkeshop1.Visible := false;        menuPakkeshop1.Visible := false;
1104        menuPakkeshopRetur1.Visible := false;        menuPakkeshopRetur1.Visible := false;
# Line 1575  begin Line 1575  begin
1575    
1576    
1577    
1578      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
1579      begin      begin
1580        chkScanTjekkode.Checked := false;        chkScanTjekkode.Checked := false;
1581        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
# Line 1701  begin Line 1701  begin
1701            if ( menuNatXpress1.Checked and (pakkeErScannet = 0) and (pakkeForkertSted = 0) and (tjekkodemangler = 0) and (RuteNummerST.Caption <> 'Ukendt') ) or (Copy(Kommentar,1,2) = 'Ok') then            if ( menuNatXpress1.Checked and (pakkeErScannet = 0) and (pakkeForkertSted = 0) and (tjekkodemangler = 0) and (RuteNummerST.Caption <> 'Ukendt') ) or (Copy(Kommentar,1,2) = 'Ok') then
1702            begin            begin
1703              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1704              if Storepakker1.Checked then              if menuStorePakker.Checked then
1705              begin              begin
1706                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1707              end              end
# Line 1714  begin Line 1714  begin
1714            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then
1715            begin            begin
1716              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1717              if Storepakker1.Checked then              if menuStorePakker.Checked then
1718              begin              begin
1719                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1720              end              end
# Line 1741  begin Line 1741  begin
1741    
1742              If (menuDaoDirekte1.Checked) then              If (menuDaoDirekte1.Checked) then
1743              begin              begin
1744                if Storepakker1.Checked then                if menuStorePakker.Checked then
1745                begin                begin
1746                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(ScannetOkStorLyd));
1747                end                end
# Line 2015  begin Line 2015  begin
2015      02 :      02 :
2016            begin;    // BK            begin;    // BK
2017              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2018              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
2019              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
2020              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
2021              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
2022              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
# Line 2053  begin Line 2053  begin
2053            end;            end;
2054      04 :  begin;           // DBK      04 :  begin;           // DBK
2055              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2056              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
2057              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
2058              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
2059              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
2060              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
# Line 2543  end; Line 2543  end;
2543    
2544  procedure TMainForm.radioStorPakkeClick(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2545  begin  begin
2546      Storepakker1.Checked := true;      menuStorePakker.Checked := true;
2547      radioStorPakke.Checked := true;      radioStorPakke.Checked := true;
2548  end;  end;
2549    
2550  procedure TMainForm.radioLillePakkeClick(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2551  begin  begin
2552      Smpakker1.Checked := true;      menuSmaaPakker.Checked := true;
2553      radioLillePakke.Checked := true;      radioLillePakke.Checked := true;
2554  end;  end;
2555    
# Line 3204  end; Line 3204  end;
3204    
3205  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3206  begin  begin
3207        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3208        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3209        menuNatXpress1.Checked := true;        menuNatXpress1.Checked := true;
3210        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
# Line 3218  begin Line 3218  begin
3218        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3219        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3220        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3221        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3222        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3223        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3224        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3225        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3240  end; Line 3240  end;
3240    
3241  procedure TMainForm.InitReturFraDao();  procedure TMainForm.InitReturFraDao();
3242  begin  begin
3243        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3244        menuNatxpressReturDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3245        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3246        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
# Line 3254  begin Line 3254  begin
3254        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3255        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3256        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3257        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3258        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3259        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3260        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3261        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3271  end; Line 3271  end;
3271    
3272  procedure TMainForm.InitReturFraKunde();  procedure TMainForm.InitReturFraKunde();
3273  begin  begin
3274        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3275        menuNatxpressReturfraKunde1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3276        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3277        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
# Line 3284  begin Line 3284  begin
3284        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3285        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3286        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3287        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3288        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3289        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3290        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3291        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3301  end; Line 3301  end;
3301    
3302  procedure TMainForm.InitDirektelevering();  procedure TMainForm.InitDirektelevering();
3303  begin  begin
3304        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3305        menuDaoDirekte1.Checked := true;        menuDaoDirekte1.Checked := true;
3306        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3307        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
# Line 3315  begin Line 3315  begin
3315        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3316        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3317        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3318        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3319        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3320        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3321        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3322        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3341  end; Line 3341  end;
3341    
3342  procedure TMainForm.InitPakkeshoplevering();  procedure TMainForm.InitPakkeshoplevering();
3343  begin  begin
3344        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3345        menuPakkeshop1.Checked := true;        menuPakkeshop1.Checked := true;
3346        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3347        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
# Line 3355  begin Line 3355  begin
3355        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3356        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3357        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3358        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3359        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3360        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3361        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3362        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3381  end; Line 3381  end;
3381    
3382  procedure TMainForm.InitReturFraPakkeshop();  procedure TMainForm.InitReturFraPakkeshop();
3383  begin  begin
3384        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3385        menuPakkeshopRetur1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3386        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3387        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
# Line 3395  begin Line 3395  begin
3395        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3396        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3397        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3398        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3399        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3400        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3401        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3402        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3429  end; Line 3429  end;
3429  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3430  begin  begin
3431        menuIndlevering.Checked := true;        menuIndlevering.Checked := true;
3432        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3433    
3434        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3435        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
# Line 3446  begin Line 3446  begin
3446    
3447    
3448    
3449        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3450        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3451        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3452        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3453        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3472  begin Line 3472  begin
3472  end;  end;
3473    
3474    
3475  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.menuStorePakkerClick(Sender: TObject);
3476  begin  begin
3477    InitStorPakke();    InitStorPakke();
3478  end;  end;
3479    
3480  procedure TMainForm.Smpakker1Click(Sender: TObject);  procedure TMainForm.menuSmaaPakkerClick(Sender: TObject);
3481  begin  begin
3482    InitLillePakke();    InitLillePakke();
3483  end;  end;
# Line 3485  end; Line 3485  end;
3485  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3486  begin  begin
3487    radioLillePakke.Checked := true;    radioLillePakke.Checked := true;
3488    Smpakker1.Checked := true;    menuSmaaPakker.Checked := true;
3489  //  Stregkode := '';  //  Stregkode := '';
3490  end;  end;
3491    
3492  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3493  begin  begin
3494    radioStorPakke.Checked := true;    radioStorPakke.Checked := true;
3495    Storepakker1.Checked := true;    menuStorePakker.Checked := true;
3496  // 20150310: start  // 20150310: start
3497  //  Stregkode := '';  //  Stregkode := '';
3498  // 20150310: slut  // 20150310: slut
# Line 3536  begin Line 3536  begin
3536       exit;       exit;
3537    end;    end;
3538    
3539    if Smpakker1.Checked then    if menuSmaaPakker.Checked then
3540       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
3541       begin       begin
3542         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(ScannetOkLyd));
# Line 3545  begin Line 3545  begin
3545       begin       begin
3546         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3547       end;       end;
3548    if Storepakker1.Checked then    if menuStorePakker.Checked then
3549       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
3550       begin       begin
3551         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(ScannetOkStorLyd));
Legend:
Removed from v.3054  
changed lines
  Added in v.3055
  ViewVC Help
Powered by ViewVC 1.1.20