20 |
IdExplicitTLSClientServerBase, IdFTP, IdException, |
IdExplicitTLSClientServerBase, IdFTP, IdException, |
21 |
ShellApi, ClipBrd, Buttons, wininet, |
ShellApi, ClipBrd, Buttons, wininet, |
22 |
UITypes, |
UITypes, |
23 |
PakkeshopLabels, |
LabelData, |
24 |
Utils, |
Utils, |
25 |
ParentForm, |
ParentForm, |
26 |
LabelPrint, |
LabelPrint, |
202 |
procedure LogMessage( msg : string); |
procedure LogMessage( msg : string); |
203 |
procedure SetPrinterstatusText( txt: string; alert: boolean); |
procedure SetPrinterstatusText( txt: string; alert: boolean); |
204 |
function GetFormObject() : TForm; |
function GetFormObject() : TForm; |
205 |
|
function GetXMLDocument() : TXMLDocument; |
206 |
|
|
207 |
|
|
208 |
|
|
539 |
|
|
540 |
// Sætter lige en default panel størrelse |
// Sætter lige en default panel størrelse |
541 |
MainForm.ClientWidth := 1000; |
MainForm.ClientWidth := 1000; |
542 |
MainForm.ClientHeight := 820; |
MainForm.ClientHeight := 920; |
543 |
|
|
544 |
Config := TConfiguration.Create(); |
Config := TConfiguration.Create(); |
545 |
Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ); //ToDo: clean up duplicate ini ref |
Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ); //ToDo: clean up duplicate ini ref |
1430 |
end; |
end; |
1431 |
end; |
end; |
1432 |
|
|
1433 |
|
// EmballageRepareret skal bare sætte reklamationkoden, |
1434 |
|
// og så ellers fortsætte med scanning som normalt |
1435 |
|
if (chkEmballageRepareret.Checked = True) then |
1436 |
|
begin |
1437 |
|
URLStr := Format(Config.UrlEmballageRepareret,[Sted,Stregkode]); |
1438 |
|
WebSvar := IdHTTP1.Get(URLStr); |
1439 |
|
|
1440 |
|
chkEmballageRepareret.Checked := False; |
1441 |
|
end; |
1442 |
|
|
1443 |
|
if (chkUdenforSpecifikation.Checked = True) then |
1444 |
|
begin |
1445 |
|
URLStr := Format(Config.URLUdenforSpecifikation,[Sted,Stregkode]); |
1446 |
|
//InputBox( '1', '1', URLStr); |
1447 |
|
|
1448 |
|
WebSvar := IdHTTP1.Get(URLStr); |
1449 |
|
//InputBox( '2', '2', WebSvar ); |
1450 |
|
|
1451 |
|
chkUdenforSpecifikation.Checked := False; |
1452 |
|
LabelPrint.PrintLabel(Stregkode); |
1453 |
|
|
1454 |
|
StregkodeST.Caption := ''; |
1455 |
|
Stregkode := ''; |
1456 |
|
|
1457 |
|
RuteNummerST.Caption := ''; |
1458 |
|
BoghandlerNavnST.Caption := ''; |
1459 |
|
KommentarST.Caption := 'Retur til leverandør'; |
1460 |
|
|
1461 |
|
|
1462 |
|
|
1463 |
|
|
1464 |
|
exit; //leave procedure |
1465 |
|
end; |
1466 |
|
|
1467 |
|
|
1468 |
|
|
1469 |
|
|
1470 |
if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then |
if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then |
1968 |
pakkestorrelse : String; |
pakkestorrelse : String; |
1969 |
PrintNyLabelInteger : Integer; |
PrintNyLabelInteger : Integer; |
1970 |
|
|
1971 |
PakkeshopLabel: TPakkeshopLabel; |
PakkeshopLabel: TLabelData; |
1972 |
begin |
begin |
1973 |
if radioStorPakke.Checked then |
if radioStorPakke.Checked then |
1974 |
begin |
begin |
2077 |
if (Kommentar = 'Ok') then |
if (Kommentar = 'Ok') then |
2078 |
begin |
begin |
2079 |
PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label |
PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label |
2080 |
PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc |
PakkeshopLabel := TLabelData.Create( XMLDocument1 ); //Opret struct og parse xml doc |
2081 |
RuteNummer := PakkeshopLabel.Koreliste + ' -> ' + PakkeshopLabel.PakkeshopTurid; |
RuteNummer := PakkeshopLabel.Koreliste + ' -> ' + PakkeshopLabel.PakkeshopTurid; |
2082 |
Stregkode := PakkeshopLabel.Stregkode; |
Stregkode := PakkeshopLabel.Stregkode; |
2083 |
|
|
2126 |
begin |
begin |
2127 |
if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then |
if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then |
2128 |
begin |
begin |
2129 |
Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted; |
Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted; |
2130 |
//PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel |
//PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel |
2131 |
end; |
end; |
2132 |
end |
end |
2133 |
else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then |
else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then |
2134 |
begin |
begin |
2135 |
Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted; |
Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted; |
2136 |
//PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel |
//PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel |
2137 |
end; |
end; |
2138 |
except on e:exception do |
except on e:exception do |
2234 |
kontrolKoreliste : string; |
kontrolKoreliste : string; |
2235 |
nytRuteNummer, nyFarve : String; |
nytRuteNummer, nyFarve : String; |
2236 |
begin |
begin |
2237 |
|
if (PrintNyLabel = True OR chkAltidPrintLabel.Checked = True) then |
2238 |
|
begin |
2239 |
|
LabelPrint.PrintLabel( Stregkode ); |
2240 |
|
end; |
2241 |
|
|
2242 |
|
|
2243 |
|
exit; |
2244 |
|
|
2245 |
if menuDaoDirekte1.Checked then |
if menuDaoDirekte1.Checked then |
2246 |
RuteNummerST.Color := TUtils.HexToTColor(Farve); |
RuteNummerST.Color := TUtils.HexToTColor(Farve); |
2247 |
|
|
2306 |
logTekst := RightStr(List1Msg, Length(List1Msg)-10); |
logTekst := RightStr(List1Msg, Length(List1Msg)-10); |
2307 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |
2308 |
|
|
2309 |
if (Config.PrinterNavn = 'Ingen') then |
// if (Config.PrinterNavn = 'Ingen') then |
2310 |
begin |
// begin |
2311 |
PrintNyLabel := false; |
// PrintNyLabel := false; |
2312 |
end; |
// end; |
2313 |
|
|
2314 |
if (PrintNyLabel = false) then // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm |
if (PrintNyLabel = false) then // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm |
2315 |
begin |
begin |
2427 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |
2428 |
|
|
2429 |
LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ; |
LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ; |
2430 |
|
|
2431 |
end; |
end; |
2432 |
end; |
end; |
2433 |
|
|
2858 |
SmsKode := '999999'; |
SmsKode := '999999'; |
2859 |
DBKbane := '999'; |
DBKbane := '999'; |
2860 |
Leveringssted := 'XXX'; |
Leveringssted := 'XXX'; |
2861 |
|
|
2862 |
|
|
2863 |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
2864 |
FocusControl(StregkodeST); |
FocusControl(StregkodeST); |
2865 |
end; |
end; |
2877 |
SmsKode : String; |
SmsKode : String; |
2878 |
DBKbane : String; |
DBKbane : String; |
2879 |
Leveringssted : String; |
Leveringssted : String; |
2880 |
|
LabelData : TLabelData; |
2881 |
begin |
begin |
2882 |
RuteNummer := 'Rutenr'; |
RuteNummer := 'Rutenr'; |
2883 |
Kommentar := '***** Kommentar *****'; |
Kommentar := '***** Kommentar *****'; |
2889 |
begin |
begin |
2890 |
ShowMessage('Der er ikke installeret en printer på denne PC.'); |
ShowMessage('Der er ikke installeret en printer på denne PC.'); |
2891 |
end |
end |
2892 |
else if Config.PrinterNavn = 'Ingen' then |
// else if Config.PrinterNavn = 'Ingen' then //Det giver ikke længere mening at kunne fravælge printer |
2893 |
begin |
// begin |
2894 |
ShowMessage('Der er fravalgt printer i dette program.'); |
// ShowMessage('Der er fravalgt printer i dette program.'); |
2895 |
end |
// end |
2896 |
else |
else |
2897 |
begin |
begin |
2898 |
UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); |
UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); |
2899 |
SmsKode := '999999'; |
// SmsKode := '999999'; |
2900 |
DBKbane := '999'; |
// DBKbane := '999'; |
2901 |
Leveringssted := 'XXX'; |
// Leveringssted := 'XXX'; |
2902 |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
// PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
2903 |
|
|
2904 |
|
|
2905 |
|
LabelData := TLabelData.Create(nil); |
2906 |
|
LabelData.LabelType := 'simpel'; |
2907 |
|
LabelData.SimpelLinie1 := '999999'; |
2908 |
|
LabelData.SimpelLinie2 := '999'; |
2909 |
|
LabelData.SimpelLinie3 := 'xxx'; |
2910 |
|
LabelPrint.PrintLabelData(Labeldata); |
2911 |
|
|
2912 |
LabelPrint.CheckPrintQue('Test', Config.PrinterNavn); |
LabelPrint.CheckPrintQue('Test', Config.PrinterNavn); |
2913 |
|
|
2914 |
|
LabelData.Free(); |
2915 |
|
|
2916 |
end; |
end; |
2917 |
FocusControl(StregkodeST); |
FocusControl(StregkodeST); |
2918 |
end; |
end; |
4916 |
Result := self; |
Result := self; |
4917 |
end; |
end; |
4918 |
|
|
4919 |
|
//Nedarvet fra IParentForm |
4920 |
|
function TMainForm.GetXMLDocument() : TXMLDocument; |
4921 |
|
begin |
4922 |
|
Result := XMLDocument1 |
4923 |
|
end; |
4924 |
|
|
4925 |
|
|
4926 |
end. |
end. |
4927 |
|
|