75 lines
1.5 KiB
Plaintext
75 lines
1.5 KiB
Plaintext
|
unit fOrderUnflag;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||
|
|
fAutoSz, StdCtrls, ComCtrls, ORFn, rOrders, ORCtrls;
|
||
|
|
|
||
|
|
type
|
||
|
|
TfrmUnflagOrder = class(TfrmAutoSz)
|
||
|
|
txtComment: TCaptionEdit;
|
||
|
|
Label1: TLabel;
|
||
|
|
cmdOK: TButton;
|
||
|
|
cmdCancel: TButton;
|
||
|
|
memReason: TMemo;
|
||
|
|
memOrder: TMemo;
|
||
|
|
procedure FormCreate(Sender: TObject);
|
||
|
|
procedure cmdOKClick(Sender: TObject);
|
||
|
|
procedure cmdCancelClick(Sender: TObject);
|
||
|
|
private
|
||
|
|
OKPressed: Boolean;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function ExecuteUnflagOrder(AnOrder: TOrder): Boolean;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.DFM}
|
||
|
|
|
||
|
|
function ExecuteUnflagOrder(AnOrder: TOrder): Boolean;
|
||
|
|
var
|
||
|
|
frmUnflagOrder: TfrmUnflagOrder;
|
||
|
|
begin
|
||
|
|
Result := False;
|
||
|
|
frmUnflagOrder := TfrmUnflagOrder.Create(Application);
|
||
|
|
try
|
||
|
|
ResizeFormToFont(TForm(frmUnflagOrder));
|
||
|
|
with frmUnflagOrder do
|
||
|
|
begin
|
||
|
|
memOrder.SetTextBuf(PChar(AnOrder.Text));
|
||
|
|
LoadFlagReason(memReason.Lines, AnOrder.ID);
|
||
|
|
ShowModal;
|
||
|
|
if OKPressed then
|
||
|
|
begin
|
||
|
|
UnflagOrder(AnOrder, txtComment.Text);
|
||
|
|
Result := True;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
finally
|
||
|
|
frmUnflagOrder.Release;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrmUnflagOrder.FormCreate(Sender: TObject);
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
OKPressed := False;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrmUnflagOrder.cmdOKClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
OKPressed := True;
|
||
|
|
Close;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrmUnflagOrder.cmdCancelClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
Close;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
end.
|