1176 lines
31 KiB
ObjectPascal
1176 lines
31 KiB
ObjectPascal
|
unit U_ProductOrderLBNameSet;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
|
|||
|
|
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
|
|||
|
|
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
|
|||
|
|
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
|||
|
|
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
|
|||
|
|
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, StrUtils, Menus, cxTextEdit,
|
|||
|
|
cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
|||
|
|
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu,
|
|||
|
|
U_BaseList, cxButtonEdit, RM_e_Graphic, RM_e_Jpeg, RM_e_bmp;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfrmProductOrderLBNameSet = class(TfrmBaseList)
|
|||
|
|
ToolBar1: TToolBar;
|
|||
|
|
TBRafresh: TToolButton;
|
|||
|
|
TBFind: TToolButton;
|
|||
|
|
TBClose: TToolButton;
|
|||
|
|
Panel1: TPanel;
|
|||
|
|
BegDate: TDateTimePicker;
|
|||
|
|
EndDate: TDateTimePicker;
|
|||
|
|
Label1: TLabel;
|
|||
|
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
|||
|
|
ADOQueryCmd: TADOQuery;
|
|||
|
|
ADOQueryMain: TADOQuery;
|
|||
|
|
ADOQueryTemp: TADOQuery;
|
|||
|
|
DataSource1: TDataSource;
|
|||
|
|
Order_Main: TClientDataSet;
|
|||
|
|
RM1: TRMGridReport;
|
|||
|
|
RMDBMain: TRMDBDataSet;
|
|||
|
|
RMXLSExport1: TRMXLSExport;
|
|||
|
|
Label4: TLabel;
|
|||
|
|
BuyerNameHZ: TEdit;
|
|||
|
|
PopupMenu1: TPopupMenu;
|
|||
|
|
N2: TMenuItem;
|
|||
|
|
ToolButton1: TToolButton;
|
|||
|
|
Label8: TLabel;
|
|||
|
|
mprtcodename: TEdit;
|
|||
|
|
Label9: TLabel;
|
|||
|
|
orderno: TEdit;
|
|||
|
|
ADOQueryPrint: TADOQuery;
|
|||
|
|
CDS_Print: TClientDataSet;
|
|||
|
|
ToolButton2: TToolButton;
|
|||
|
|
ToolButton3: TToolButton;
|
|||
|
|
PiZhong: TEdit;
|
|||
|
|
ToolButton4: TToolButton;
|
|||
|
|
ToolButton5: TToolButton;
|
|||
|
|
ToolButton6: TToolButton;
|
|||
|
|
ToolButton7: TToolButton;
|
|||
|
|
ToolButton8: TToolButton;
|
|||
|
|
ADOQueryCmdSC: TADOQuery;
|
|||
|
|
ADOQueryCmdFileContent: TBlobField;
|
|||
|
|
ADOQueryCmdFtFileName: TStringField;
|
|||
|
|
ADOQueryCmdFileEditDate: TDateTimeField;
|
|||
|
|
ADOQueryCmdFileSize: TFloatField;
|
|||
|
|
ADOQueryCmdFiller: TStringField;
|
|||
|
|
ADOQueryCmdLastEditTime: TDateTimeField;
|
|||
|
|
ADOQueryCmdLastEditer: TStringField;
|
|||
|
|
ADOQueryCmdFileCreateDate: TDateTimeField;
|
|||
|
|
ADOQueryCmdchildPath: TStringField;
|
|||
|
|
ADOQueryCmdFileType: TStringField;
|
|||
|
|
ToolButton9: TToolButton;
|
|||
|
|
ToolButton10: TToolButton;
|
|||
|
|
cxGrid1: TcxGrid;
|
|||
|
|
Tv1: TcxGridDBTableView;
|
|||
|
|
v1Column16: TcxGridDBColumn;
|
|||
|
|
v1OrdDate: TcxGridDBColumn;
|
|||
|
|
v1OrderNo: TcxGridDBColumn;
|
|||
|
|
v1DeliveryDate: TcxGridDBColumn;
|
|||
|
|
v1Column8: TcxGridDBColumn;
|
|||
|
|
Tv1Column6: TcxGridDBColumn;
|
|||
|
|
Tv1Column2: TcxGridDBColumn;
|
|||
|
|
Tv1Column12: TcxGridDBColumn;
|
|||
|
|
Tv1Column1: TcxGridDBColumn;
|
|||
|
|
Tv1Column13: TcxGridDBColumn;
|
|||
|
|
Tv1Column14: TcxGridDBColumn;
|
|||
|
|
cxGrid1Level1: TcxGridLevel;
|
|||
|
|
cxGrid2: TcxGrid;
|
|||
|
|
TV2: TcxGridDBTableView;
|
|||
|
|
cxGridDBColumn1: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn2: TcxGridDBColumn;
|
|||
|
|
Tv1Column4: TcxGridDBColumn;
|
|||
|
|
Tv1Column5: TcxGridDBColumn;
|
|||
|
|
Tv1Column8: TcxGridDBColumn;
|
|||
|
|
Tv1Column9: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn3: TcxGridDBColumn;
|
|||
|
|
Tv1Column7: TcxGridDBColumn;
|
|||
|
|
v1PRTColor: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn4: TcxGridDBColumn;
|
|||
|
|
v1Column5: TcxGridDBColumn;
|
|||
|
|
VC_PRTPs: TcxGridDBColumn;
|
|||
|
|
v1PRTOrderQty: TcxGridDBColumn;
|
|||
|
|
v1OrderUnit: TcxGridDBColumn;
|
|||
|
|
v1Column9: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn6: TcxGridDBColumn;
|
|||
|
|
TV2Column1: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn7: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn8: TcxGridDBColumn;
|
|||
|
|
Tv1Column3: TcxGridDBColumn;
|
|||
|
|
cxGridLevel1: TcxGridLevel;
|
|||
|
|
ADOQuerySub: TADOQuery;
|
|||
|
|
DataSource2: TDataSource;
|
|||
|
|
ORDER_SUB: TClientDataSet;
|
|||
|
|
Tv1Column15: TcxGridDBColumn;
|
|||
|
|
Tv1Column16: TcxGridDBColumn;
|
|||
|
|
Tv1Column17: TcxGridDBColumn;
|
|||
|
|
Tv1Column18: TcxGridDBColumn;
|
|||
|
|
RMJPEGExport1: TRMJPEGExport;
|
|||
|
|
RMBMPExport1: TRMBMPExport;
|
|||
|
|
TV2Column2: TcxGridDBColumn;
|
|||
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
procedure FormCreate(Sender: TObject);
|
|||
|
|
procedure TBCloseClick(Sender: TObject);
|
|||
|
|
procedure TBFindClick(Sender: TObject);
|
|||
|
|
procedure TBRafreshClick(Sender: TObject);
|
|||
|
|
procedure OrderNoMChange(Sender: TObject);
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure CheckBox1Click(Sender: TObject);
|
|||
|
|
procedure CheckBox2Click(Sender: TObject);
|
|||
|
|
procedure ToolButton1Click(Sender: TObject);
|
|||
|
|
procedure ordernoKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
procedure ToolButton2Click(Sender: TObject);
|
|||
|
|
procedure ToolButton3Click(Sender: TObject);
|
|||
|
|
procedure ToolButton4Click(Sender: TObject);
|
|||
|
|
procedure v1Column3PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure v1Column1PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure ToolButton5Click(Sender: TObject);
|
|||
|
|
procedure v1Column6PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
|||
|
|
procedure ToolButton6Click(Sender: TObject);
|
|||
|
|
procedure ToolButton7Click(Sender: TObject);
|
|||
|
|
procedure v1Column8PropertiesChange(Sender: TObject);
|
|||
|
|
procedure ToolButton8Click(Sender: TObject);
|
|||
|
|
procedure ToolButton9Click(Sender: TObject);
|
|||
|
|
procedure ToolButton10Click(Sender: TObject);
|
|||
|
|
procedure BuyNameKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
procedure ordernoChange(Sender: TObject);
|
|||
|
|
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
|||
|
|
private
|
|||
|
|
DQdate: TDateTime;
|
|||
|
|
procedure InitGrid();
|
|||
|
|
procedure InitSub();
|
|||
|
|
procedure InitForm();
|
|||
|
|
procedure SCLABEL(MMainId: string);
|
|||
|
|
procedure UPBQ(MMainId: string);
|
|||
|
|
function UPLabel(LabelName, LabelPath: string): Boolean;
|
|||
|
|
function PostFileToData(LabelName, LabelPath: string): boolean;
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
FFInt, FCloth: Integer;
|
|||
|
|
canshu1, CANSHU2: string;
|
|||
|
|
{ Public declarations }
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
newh: hwnd;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
U_DataLink, U_OrderInPut, U_RTFun, U_LabelList, U_CompressionFun;
|
|||
|
|
|
|||
|
|
{$R *.dfm}
|
|||
|
|
procedure TfrmProductOrderLBNameSet.UPBQ(MMainId: string);
|
|||
|
|
var
|
|||
|
|
OpenDiaLog: TOpenDialog;
|
|||
|
|
fFileName: string;
|
|||
|
|
fFilePath: string;
|
|||
|
|
maxNo: string;
|
|||
|
|
FJStream: TMemoryStream;
|
|||
|
|
mfileSize: integer;
|
|||
|
|
mCreationTime: TdateTime;
|
|||
|
|
mWriteTime: TdateTime;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
try
|
|||
|
|
ADOQueryCmd.Connection.BeginTrans;
|
|||
|
|
fFilePath := ExtractFilePath(Application.ExeName) + 'image\label0001.jpg';
|
|||
|
|
fFileName := 'label.jpg';
|
|||
|
|
application.ProcessMessages;
|
|||
|
|
if GetLSNo(ADOQueryCmd, maxNo, 'FJ', 'TP_File', 4, 1) = False then
|
|||
|
|
begin
|
|||
|
|
adoqueryCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
//<2F><>ȡ<EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>Ϣ
|
|||
|
|
GetFileInfo(fFilePath, mfileSize, mCreationTime, mWriteTime);
|
|||
|
|
with adoqueryCmd do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('delete from TP_File ');
|
|||
|
|
sql.Add('where TFType=''<27><>ǩͼƬ'' and WBID=' + quotedstr(Trim(MMainId)));
|
|||
|
|
// ShowMessage(SQL.Text) ;
|
|||
|
|
execsql;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
try
|
|||
|
|
FJStream := TMemoryStream.Create;
|
|||
|
|
with adoqueryCmd do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from TP_File ');
|
|||
|
|
sql.Add('where TFID=' + quotedstr(trim(maxNo)));
|
|||
|
|
open;
|
|||
|
|
append;
|
|||
|
|
fieldbyname('TFID').Value := trim(maxNo);
|
|||
|
|
fieldbyname('WBID').Value := Trim(MMainId);
|
|||
|
|
fieldbyname('TFType').Value := trim('<27><>ǩͼƬ');
|
|||
|
|
fieldbyname('Filler').Value := trim(DName);
|
|||
|
|
fieldbyname('FileName').Value := trim(fFileName);
|
|||
|
|
fieldbyname('TFDate').Value := mWriteTime;
|
|||
|
|
FJStream.LoadFromFile(fFilePath);
|
|||
|
|
// CompressionStream(FJStream);
|
|||
|
|
tblobfield(FieldByName('Filesother')).LoadFromStream(FJStream);
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
FJStream.Free;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
adoqueryCmd.Connection.CommitTrans;
|
|||
|
|
except
|
|||
|
|
adoqueryCmd.Connection.RollbackTrans;
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.SCLABEL(MMainId: string);
|
|||
|
|
var
|
|||
|
|
fPrintFile, fImagePath2: string;
|
|||
|
|
i, j, k: integer;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + MMainId + '.rmf';
|
|||
|
|
ExportFtErpFile(MMainId + '.rmf', ADOQueryTemp);
|
|||
|
|
|
|||
|
|
with ADOQueryPrint do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('exec P_Ord_Print_CSRoll2 ');
|
|||
|
|
sql.Add('@SubID=''' + trim(Order_Sub.fieldbyname('SubID').AsString) + ''' ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
if FileExists(fPrintFile) then
|
|||
|
|
begin
|
|||
|
|
RM1.LoadFromFile(fPrintFile);
|
|||
|
|
|
|||
|
|
fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\label0001.jpg';
|
|||
|
|
if FileExists(fImagePath2) then
|
|||
|
|
DeleteFile(fImagePath2);
|
|||
|
|
fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\label.jpg';
|
|||
|
|
RM1.PrepareReport;
|
|||
|
|
RM1.ExportTo(RMjpegExport1, fImagePath2);
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.InitSub();
|
|||
|
|
begin
|
|||
|
|
ADOQuerySub.Close;
|
|||
|
|
if Order_Main.IsEmpty then
|
|||
|
|
exit;
|
|||
|
|
ADOQuerySub.DisableControls;
|
|||
|
|
with ADOQuerySub do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * ');
|
|||
|
|
sql.Add(',HZJGC=[dbo].[F_Ord_Get_JGC](subid)');
|
|||
|
|
sql.Add(' from JYOrder_sub A');
|
|||
|
|
sql.Add('where mainid =' + quotedstr((Order_Main.fieldbyname('mainID').AsString)));
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS(ADOQuerySub, ORDER_SUB);
|
|||
|
|
SInitCDSData(ADOQuerySub, ORDER_SUB);
|
|||
|
|
|
|||
|
|
ADOQuerySub.EnableControls;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TfrmProductOrderLBNameSet.PostFileToData(LabelName, LabelPath: string): boolean;
|
|||
|
|
var
|
|||
|
|
mFileName, fFileName, fpathFileName: string;
|
|||
|
|
Stream: TMemoryStream;
|
|||
|
|
mfileSize: integer;
|
|||
|
|
mCreationTime: TdateTime;
|
|||
|
|
mWriteTime: TdateTime;
|
|||
|
|
// ADOQueryCmdFileContent: TBlobField;
|
|||
|
|
begin
|
|||
|
|
result := false;
|
|||
|
|
fFileName := Trim(LabelName) + '.rmf';
|
|||
|
|
fpathFileName := Trim(LabelPath);
|
|||
|
|
try
|
|||
|
|
ADOQueryCmdSC.Connection.BeginTrans;
|
|||
|
|
try
|
|||
|
|
with ADOQueryCmdSC do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('delete from RT_FileUpdate');
|
|||
|
|
sql.Add('where FileName=' + quotedStr(trim(fFileName)));
|
|||
|
|
execsql;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmdSC do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from RT_FileUpdate');
|
|||
|
|
sql.Add('where FileName=' + quotedStr(trim(fFileName)));
|
|||
|
|
Open;
|
|||
|
|
//////////////////////////
|
|||
|
|
//<2F><>ȡ<EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>Ϣ
|
|||
|
|
GetFileInfo(Trim(fpathFileName), mfileSize, mCreationTime, mWriteTime);
|
|||
|
|
|
|||
|
|
if RecordCount <= 0 then
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
fieldByName('FileName').AsString := trim(fFileName);
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
fieldByName('FileEditDate').Value := mWriteTime;
|
|||
|
|
fieldByName('FileCreateDate').Value := mCreationTime;
|
|||
|
|
fieldByName('FileSize').Value := mfileSize;
|
|||
|
|
fieldByName('Filler').Value := Dname;
|
|||
|
|
fieldByName('LastEditer').Value := Dname;
|
|||
|
|
fieldByName('LastEditTime').Value := Now();
|
|||
|
|
// if pos('.rmf',fFileName)>0 then
|
|||
|
|
begin
|
|||
|
|
fieldByName('FilePath').Value := 'report';
|
|||
|
|
fieldByName('FileType').Value := '<27><><EFBFBD><EFBFBD>';
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
//<2F><>OLE<4C><45><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD>
|
|||
|
|
RM1.SaveToBlobField(TBlobField(FieldByName('Files')));
|
|||
|
|
|
|||
|
|
// ADOQueryCmdFileContent.LoadFromFile(fpathFileName);
|
|||
|
|
//ADOQueryCmdFileContent.LoadFromStream(Stream);
|
|||
|
|
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
end;
|
|||
|
|
result := true;
|
|||
|
|
ADOQueryCmdSC.Connection.CommitTrans;
|
|||
|
|
except
|
|||
|
|
ADOQueryCmdSC.Connection.RollbackTrans;
|
|||
|
|
Result := False;
|
|||
|
|
application.MessageBox(pchar('<27>ύ<EFBFBD>ļ<EFBFBD>[' + trim(fFileName) + ']ʧ<><CAA7>!'), '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TfrmProductOrderLBNameSet.UPLabel(LabelName, LabelPath: string): Boolean;
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
ADOQueryCmd.Connection.BeginTrans;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from P_Label');
|
|||
|
|
sql.Add('where LabelCaption=' + quotedstr(LabelName));
|
|||
|
|
Open;
|
|||
|
|
if ADOQueryCmd.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
fieldByName('filler').value := DName;
|
|||
|
|
fieldByName('filltime').value := DServerDate;
|
|||
|
|
fieldByName('beizhu').value := '';
|
|||
|
|
fieldByName('LabelCaption').value := trim(LabelPath);
|
|||
|
|
fieldByName('LabelType').value := '<27><><EFBFBD>ı<EFBFBD>ǩ';
|
|||
|
|
fieldByName('LabelFileName').value := trim(LabelName);
|
|||
|
|
RM1.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
fieldByName('Editer').value := DName;
|
|||
|
|
fieldByName('EditTime').value := DServerDate;
|
|||
|
|
end;
|
|||
|
|
RM1.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
ADOQueryCmd.Connection.CommitTrans;
|
|||
|
|
result := true;
|
|||
|
|
except
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
Result := false;
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩģ<C7A9><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ', 0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
begin
|
|||
|
|
inherited;
|
|||
|
|
Action := caFree;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.FormCreate(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
inherited;
|
|||
|
|
cxgrid1.Align := alClient;
|
|||
|
|
//BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7;
|
|||
|
|
//EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
|
|||
|
|
DQdate := SGetServerDate(ADOQueryTemp);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.TBCloseClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
WriteCxGrid('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.InitGrid();
|
|||
|
|
var
|
|||
|
|
fwhere, Pwhere: string;
|
|||
|
|
begin
|
|||
|
|
Pwhere := SGetFilters(Panel1, 1, 2);
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
if trim(Pwhere) <> '' then
|
|||
|
|
fwhere := fwhere + ' and ' + trim(Pwhere);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
try
|
|||
|
|
ADOQueryMain.DisableControls;
|
|||
|
|
with ADOQueryMain do
|
|||
|
|
begin
|
|||
|
|
Filtered := False;
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.add('select AA.* ');
|
|||
|
|
sql.add(' from ');
|
|||
|
|
sql.add(' (select A.*');
|
|||
|
|
sql.add(' ,mprtcodename=(select top 1 mprtcodename from JYOrder_Sub B where B.MainId=A.MainId ) ');
|
|||
|
|
sql.add(' ,BuyerNameHZ=cast((select B.BuyerName+'';'' from JYOrder_Sub B where B.MainId=A.MainId for xml path('''')) as varchar(200)) ');
|
|||
|
|
sql.add(' from JYOrder_Main A ');
|
|||
|
|
sql.add(' where A.OrdDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
|
|||
|
|
sql.add(' and A.OrdDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
|
|||
|
|
sql.Add('AND ISNULL(DANWEI,''<27><>'')=' + quotedstr(canshu2));
|
|||
|
|
sql.add(')AA where 1=1 ' + fwhere);
|
|||
|
|
// showmessage(sql.text);
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS(ADOQueryMain, Order_Main);
|
|||
|
|
SInitCDSData(ADOQueryMain, Order_Main);
|
|||
|
|
finally
|
|||
|
|
ADOQueryMain.EnableControls;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.InitForm();
|
|||
|
|
begin
|
|||
|
|
ReadCxGrid('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|||
|
|
BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 7;
|
|||
|
|
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.TBFindClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if ADOQueryMain.Active = False then
|
|||
|
|
Exit;
|
|||
|
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
|||
|
|
SCreateCDS(ADOQueryMain, Order_Main);
|
|||
|
|
SInitCDSData(ADOQueryMain, Order_Main);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.TBRafreshClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
InitGrid();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.OrderNoMChange(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if ADOQueryMain.Active = False then
|
|||
|
|
Exit;
|
|||
|
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
|||
|
|
SCreateCDS(ADOQueryMain, Order_Main);
|
|||
|
|
SInitCDSData(ADOQueryMain, Order_Main);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.FormShow(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
inherited;
|
|||
|
|
canshu1 := self.fParameters1;
|
|||
|
|
CANSHU2 := self.fParameters2;
|
|||
|
|
InitForm();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.BuyNameKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
begin
|
|||
|
|
if Key = #13 then
|
|||
|
|
begin
|
|||
|
|
InitGrid();
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.CheckBox1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
InitGrid();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.CheckBox2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
TBRafresh.Click;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.ToolButton1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Order_Main.IsEmpty then
|
|||
|
|
Exit;
|
|||
|
|
try
|
|||
|
|
frmOrderInPut := TfrmOrderInPut.Create(Application);
|
|||
|
|
with frmOrderInPut do
|
|||
|
|
begin
|
|||
|
|
PState := 1;
|
|||
|
|
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
|
|||
|
|
ToolBar2.Visible := False;
|
|||
|
|
TBSave.Visible := False;
|
|||
|
|
ScrollBox1.Enabled := False;
|
|||
|
|
Tv1.OptionsSelection.CellSelect := False;
|
|||
|
|
if ShowModal = 1 then
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmOrderInPut.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.ordernoChange(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if ADOQueryMain.Active = False then
|
|||
|
|
Exit;
|
|||
|
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
|||
|
|
SCreateCDS(ADOQueryMain, Order_Main);
|
|||
|
|
SInitCDSData(ADOQueryMain, Order_Main);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.ordernoKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
begin
|
|||
|
|
// if Key = #13 then
|
|||
|
|
// begin
|
|||
|
|
// if Length(conno.Text) < 3 then
|
|||
|
|
// Exit;
|
|||
|
|
// try
|
|||
|
|
// ADOQueryMain.DisableControls;
|
|||
|
|
// with ADOQueryMain do
|
|||
|
|
// begin
|
|||
|
|
// Filtered := False;
|
|||
|
|
// Close;
|
|||
|
|
// sql.Clear;
|
|||
|
|
// sql.add('exec P_View_Order :begdate,:enddate,:WSql');
|
|||
|
|
// begin
|
|||
|
|
// Parameters.ParamByName('WSql').Value := ' and conno like ''' + '%' + Trim(conno.Text) + '%' + '''';
|
|||
|
|
// end;
|
|||
|
|
// Parameters.ParamByName('begdate').Value := '1899-01-01';
|
|||
|
|
// Parameters.ParamByName('enddate').Value := '2050-01-01';
|
|||
|
|
// ExecSQL;
|
|||
|
|
// Open;
|
|||
|
|
// end;
|
|||
|
|
// SCreateCDS(ADOQueryMain, Order_Main);
|
|||
|
|
// SInitCDSData(ADOQueryMain, Order_Main);
|
|||
|
|
// finally
|
|||
|
|
// ADOQueryMain.EnableControls;
|
|||
|
|
// end;
|
|||
|
|
// end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.ToolButton2Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
FlabelCaption: string;
|
|||
|
|
fmainid: string;
|
|||
|
|
begin
|
|||
|
|
if Order_Main.IsEmpty = true then
|
|||
|
|
begin
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
fmainid := Trim(Order_main.fieldbyname('mainid').AsString);
|
|||
|
|
try
|
|||
|
|
frmLabelList := TfrmLabelList.Create(Application);
|
|||
|
|
with frmLabelList do
|
|||
|
|
begin
|
|||
|
|
if ShowModal = 1 then
|
|||
|
|
begin
|
|||
|
|
FlabelCaption := Trim(ADOQueryLabel.fieldbyname('labelCaption').AsString);
|
|||
|
|
SCLABEL(Trim(FlabelCaption));
|
|||
|
|
Sleep(150);
|
|||
|
|
UPBQ(Trim(FlabelCaption));
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmLabelList.Free;
|
|||
|
|
end;
|
|||
|
|
// if FlabelCaption <> '' then
|
|||
|
|
// begin
|
|||
|
|
// with Order_Main do
|
|||
|
|
// begin
|
|||
|
|
//
|
|||
|
|
// with ADOQueryCmd do
|
|||
|
|
// begin
|
|||
|
|
// Close;
|
|||
|
|
// sql.Clear;
|
|||
|
|
// sql.Add('Update JYOrder_Main Set LBName=''' + Trim(FlabelCaption) + '''');
|
|||
|
|
// sql.Add(' where mainid=''' + Trim(self.Order_main.fieldbyname('mainid').AsString) + '''');
|
|||
|
|
// ExecSQL;
|
|||
|
|
// end;
|
|||
|
|
// with Self.Order_Main do
|
|||
|
|
// begin
|
|||
|
|
// Edit;
|
|||
|
|
// FieldByName('LBName').Value := Trim(FlabelCaption);
|
|||
|
|
// Post;
|
|||
|
|
// end;
|
|||
|
|
//
|
|||
|
|
// end;
|
|||
|
|
// end;
|
|||
|
|
|
|||
|
|
if FlabelCaption = '' then
|
|||
|
|
exit;
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
DisableControls;
|
|||
|
|
First;
|
|||
|
|
while not eof do
|
|||
|
|
begin
|
|||
|
|
if fieldbyname('ssel').AsBoolean then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update JYOrder_Main Set LBName=''' + Trim(FlabelCaption) + '''');
|
|||
|
|
sql.Add(' where mainid=''' + Trim(self.Order_main.fieldbyname('mainid').AsString) + '''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with Self.Order_Main do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('LBName').Value := Trim(FlabelCaption);
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
next;
|
|||
|
|
end;
|
|||
|
|
First;
|
|||
|
|
EnableControls;
|
|||
|
|
end;
|
|||
|
|
// initgrid();
|
|||
|
|
tv1.Controller.EditingController.ShowEdit();
|
|||
|
|
order_main.locate('mainid', fmainid, []);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.ToolButton3Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
FPiZhong: string;
|
|||
|
|
FReal: Double;
|
|||
|
|
begin
|
|||
|
|
if Order_Main.IsEmpty = true then
|
|||
|
|
begin
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if Trim(PiZhong.Text) = '' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('Ƥ<>ز<EFBFBD><D8B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if TryStrToFloat(PiZhong.Text, FReal) = False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('Ƥ<>طǷ<D8B7><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
DisableControls;
|
|||
|
|
First;
|
|||
|
|
while not eof do
|
|||
|
|
begin
|
|||
|
|
if fieldbyname('ssel').AsBoolean then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update JYOrder_Main Set PiZhong=' + (PiZhong.Text));
|
|||
|
|
sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('PiZhong').Value := PiZhong.Text;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
next;
|
|||
|
|
end;
|
|||
|
|
First;
|
|||
|
|
EnableControls;
|
|||
|
|
end;
|
|||
|
|
// initgrid();
|
|||
|
|
tv1.Controller.EditingController.ShowEdit();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.ToolButton4Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
FlabelCaption: string;
|
|||
|
|
fmainid: string;
|
|||
|
|
begin
|
|||
|
|
if Order_Main.IsEmpty = true then
|
|||
|
|
begin
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
fmainid := Trim(Order_main.fieldbyname('mainid').AsString);
|
|||
|
|
try
|
|||
|
|
frmLabelList := TfrmLabelList.Create(Application);
|
|||
|
|
with frmLabelList do
|
|||
|
|
begin
|
|||
|
|
if ShowModal = 1 then
|
|||
|
|
begin
|
|||
|
|
FlabelCaption := Trim(ADOQueryLabel.fieldbyname('labelCaption').AsString);
|
|||
|
|
SCLABEL(Trim(FlabelCaption));
|
|||
|
|
Sleep(150);
|
|||
|
|
UPBQ(Trim(FlabelCaption));
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmLabelList.Free;
|
|||
|
|
end;
|
|||
|
|
if FlabelCaption = '' then
|
|||
|
|
exit;
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
DisableControls;
|
|||
|
|
First;
|
|||
|
|
while not eof do
|
|||
|
|
begin
|
|||
|
|
if fieldbyname('ssel').AsBoolean then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update JYOrder_Main Set NLBName=''' + Trim(FlabelCaption) + '''');
|
|||
|
|
sql.Add(' where mainid=''' + Trim(self.Order_Main.fieldbyname('mainid').AsString) + '''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with Self.Order_Main do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('NLBName').Value := Trim(FlabelCaption);
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
next;
|
|||
|
|
end;
|
|||
|
|
First;
|
|||
|
|
EnableControls;
|
|||
|
|
end;
|
|||
|
|
// initgrid();
|
|||
|
|
tv1.Controller.EditingController.ShowEdit();
|
|||
|
|
order_main.locate('mainid', fmainid, []);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.v1Column3PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
mvalues: string;
|
|||
|
|
begin
|
|||
|
|
mvalues := TCXTextEdit(Sender).Text;
|
|||
|
|
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
fieldbyname('NLBName').Value := mvalues;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
tv1.Controller.EditingController.ShowEdit();
|
|||
|
|
if trim(mvalues) = '' then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update JYOrder_Main Set NLBName='''' ');
|
|||
|
|
sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.v1Column1PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
mvalues, FFieldName: string;
|
|||
|
|
begin
|
|||
|
|
mvalues := TCXTextEdit(Sender).Text;
|
|||
|
|
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
fieldbyname(FFieldName).Value := mvalues;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
tv1.Controller.EditingController.ShowEdit();
|
|||
|
|
if trim(mvalues) = '' then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update JYOrder_Main Set' + Trim(FFieldName) + '='''' ');
|
|||
|
|
sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.ToolButton5Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
FReal: Double;
|
|||
|
|
begin
|
|||
|
|
if Order_Main.IsEmpty = true then
|
|||
|
|
begin
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if Trim(PiZhong.Text) = '' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if TryStrToFloat(PiZhong.Text, FReal) = False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
DisableControls;
|
|||
|
|
First;
|
|||
|
|
while not eof do
|
|||
|
|
begin
|
|||
|
|
if fieldbyname('ssel').AsBoolean then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update JYOrder_Main Set XS=' + (PiZhong.Text));
|
|||
|
|
sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('XS').Value := PiZhong.Text;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
next;
|
|||
|
|
end;
|
|||
|
|
First;
|
|||
|
|
EnableControls;
|
|||
|
|
end;
|
|||
|
|
// initgrid();
|
|||
|
|
tv1.Controller.EditingController.ShowEdit();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.v1Column6PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
mvalues: string;
|
|||
|
|
begin
|
|||
|
|
mvalues := TCXTextEdit(Sender).Text;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update JYOrder_Main Set XSType=''' + trim(mvalues) + ''' ');
|
|||
|
|
sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
fieldbyname('XSType').Value := mvalues;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
tv1.Controller.EditingController.ShowEdit();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
|||
|
|
begin
|
|||
|
|
if Order_Main.IsEmpty then
|
|||
|
|
exit;
|
|||
|
|
ToolButton1.Click;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
|||
|
|
begin
|
|||
|
|
InitSub();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.ToolButton6Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
fPrintFile: string;
|
|||
|
|
Txt, fImagePath: string;
|
|||
|
|
Moudle: THandle;
|
|||
|
|
Makebar: TMakebar;
|
|||
|
|
Mixtext: TMixtext;
|
|||
|
|
begin
|
|||
|
|
if Order_Main.IsEmpty = true then
|
|||
|
|
begin
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if Order_Sub.IsEmpty then
|
|||
|
|
exit;
|
|||
|
|
|
|||
|
|
if trim(Order_main.fieldbyname('LBName').AsString) = '' then
|
|||
|
|
exit;
|
|||
|
|
|
|||
|
|
with ADOQueryPrint do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('exec P_Ord_Print_CSRoll ');
|
|||
|
|
sql.Add('@SubID=''' + trim(Order_Sub.fieldbyname('SubID').AsString) + ''' ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('LBName').AsString) + '.rmf', ADOQueryTemp);
|
|||
|
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('LBName').AsString) + '.rmf';
|
|||
|
|
if FileExists(fPrintFile) then
|
|||
|
|
begin
|
|||
|
|
RM1.LoadFromFile(fPrintFile);
|
|||
|
|
PostFileToData(trim(ADOQueryPrint.fieldbyname('LBName').AsString), fPrintFile);
|
|||
|
|
UPLabel(trim(ADOQueryPrint.fieldbyname('LBName').AsString), fPrintFile);
|
|||
|
|
RM1.ShowReport;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox(PChar('û<><C3BB><EFBFBD>ҵ<EFBFBD>' + trim(fPrintFile)), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.ToolButton7Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
fPrintFile: string;
|
|||
|
|
Txt, fImagePath: string;
|
|||
|
|
Moudle: THandle;
|
|||
|
|
Makebar: TMakebar;
|
|||
|
|
Mixtext: TMixtext;
|
|||
|
|
begin
|
|||
|
|
if Order_Main.IsEmpty then
|
|||
|
|
exit;
|
|||
|
|
if trim(Order_Main.fieldbyname('NLBName').AsString) = '' then
|
|||
|
|
exit;
|
|||
|
|
with ADOQueryPrint do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('exec P_Ord_Print_CSBao ');
|
|||
|
|
sql.Add('@MainId=''' + trim(Order_Main.fieldbyname('MainId').AsString) + ''' ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) + '.rmf', ADOQueryTemp);
|
|||
|
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) + '.rmf';
|
|||
|
|
if FileExists(fPrintFile) then
|
|||
|
|
begin
|
|||
|
|
// RMVariables['QRBARCODE'] := fImagePath;
|
|||
|
|
RM1.LoadFromFile(fPrintFile);
|
|||
|
|
RM1.ShowReport;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox(PChar('û<><C3BB><EFBFBD>ҵ<EFBFBD>' + trim(fPrintFile)), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.v1Column8PropertiesChange(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
mvalues: string;
|
|||
|
|
begin
|
|||
|
|
mvalues := TCXTextEdit(Sender).Text;
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
fieldbyname('Orddefstr15').Value := mvalues;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
tv1.Controller.EditingController.ShowEdit();
|
|||
|
|
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update JYOrder_Main Set Orddefstr15=''' + trim(mvalues) + ''' ');
|
|||
|
|
sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.ToolButton8Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
FReal: Double;
|
|||
|
|
begin
|
|||
|
|
if Order_Main.IsEmpty = true then
|
|||
|
|
begin
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if Trim(PiZhong.Text) = '' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if TryStrToFloat(PiZhong.Text, FReal) = False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
DisableControls;
|
|||
|
|
First;
|
|||
|
|
while not eof do
|
|||
|
|
begin
|
|||
|
|
if fieldbyname('ssel').AsBoolean then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update JYOrder_Main Set LabQty=' + (PiZhong.Text));
|
|||
|
|
sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('LabQty').Value := PiZhong.Text;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
next;
|
|||
|
|
end;
|
|||
|
|
First;
|
|||
|
|
EnableControls;
|
|||
|
|
end;
|
|||
|
|
// initgrid();
|
|||
|
|
tv1.Controller.EditingController.ShowEdit();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.ToolButton9Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
FReal: Double;
|
|||
|
|
begin
|
|||
|
|
if Order_Main.IsEmpty = true then
|
|||
|
|
begin
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if Trim(PiZhong.Text) = '' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if TryStrToFloat(PiZhong.Text, FReal) = False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
DisableControls;
|
|||
|
|
First;
|
|||
|
|
while not eof do
|
|||
|
|
begin
|
|||
|
|
if fieldbyname('ssel').AsBoolean then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update JYOrder_Main Set MBJS=' + (PiZhong.Text));
|
|||
|
|
sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('MBJS').Value := PiZhong.Text;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
next;
|
|||
|
|
end;
|
|||
|
|
First;
|
|||
|
|
EnableControls;
|
|||
|
|
end;
|
|||
|
|
// initgrid();
|
|||
|
|
tv1.Controller.EditingController.ShowEdit();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmProductOrderLBNameSet.ToolButton10Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
FReal: Double;
|
|||
|
|
begin
|
|||
|
|
if Order_Main.IsEmpty = true then
|
|||
|
|
begin
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if Trim(PiZhong.Text) = '' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if TryStrToFloat(PiZhong.Text, FReal) = False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
DisableControls;
|
|||
|
|
First;
|
|||
|
|
while not eof do
|
|||
|
|
begin
|
|||
|
|
if fieldbyname('ssel').AsBoolean then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update JYOrder_Main Set BBQFS=' + (PiZhong.Text));
|
|||
|
|
sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('BBQFS').Value := PiZhong.Text;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
next;
|
|||
|
|
end;
|
|||
|
|
First;
|
|||
|
|
EnableControls;
|
|||
|
|
end;
|
|||
|
|
// initgrid();
|
|||
|
|
tv1.Controller.EditingController.ShowEdit();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|
|||
|
|
|