调整
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
7bd71c65c5
commit
a66403bfa6
5931
A00通用窗体/U_MachineManageSel.dfm
Normal file
5931
A00通用窗体/U_MachineManageSel.dfm
Normal file
File diff suppressed because it is too large
Load Diff
241
A00通用窗体/U_MachineManageSel.pas
Normal file
241
A00通用窗体/U_MachineManageSel.pas
Normal file
|
|
@ -0,0 +1,241 @@
|
|||
unit U_MachineManageSel;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
|
||||
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
|
||||
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
|
||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
|
||||
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
|
||||
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
|
||||
dxBarBuiltInMenu, U_BaseList, RM_BarCode, dxScrollbarAnnotations, cxContainer,
|
||||
cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, System.ImageList,
|
||||
Vcl.ImgList, cxImageList;
|
||||
|
||||
type
|
||||
TfrmMachineManageSel = class(TfrmBaseList)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ToolButton2: TToolButton;
|
||||
ADOQueryMain: TADOQuery;
|
||||
cxGrid2: TcxGrid;
|
||||
Tv2: TcxGridDBTableView;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
GPM_1: TcxGridPopupMenu;
|
||||
DS_HZ: TDataSource;
|
||||
CDS_HZ: TClientDataSet;
|
||||
PopupMenu1: TPopupMenu;
|
||||
N1: TMenuItem;
|
||||
N2: TMenuItem;
|
||||
Panel1: TPanel;
|
||||
v2Column8: TcxGridDBColumn;
|
||||
Label1: TLabel;
|
||||
v2Column12: TcxGridDBColumn;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
VNO: TcxTextEdit;
|
||||
ADOConnection1: TADOConnection;
|
||||
cxImageList_bar: TcxImageList;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure cxTabControl1Change(Sender: TObject);
|
||||
procedure N1Click(Sender: TObject);
|
||||
procedure N2Click(Sender: TObject);
|
||||
procedure CustomerChange(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure ToolButton3Click(Sender: TObject);
|
||||
procedure Tv2Column1PropertiesChange(Sender: TObject);
|
||||
procedure MCNOPropertiesChange(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
procedure InitGrid();
|
||||
public
|
||||
fFlag: integer;
|
||||
{ Public declarations }
|
||||
RKFlag, FCYID, fmanage: string;
|
||||
end;
|
||||
|
||||
var
|
||||
frmMachineManageSel: TfrmMachineManageSel;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmMachineManageSel.InitGrid();
|
||||
begin
|
||||
ToolBar1.SetFocus;
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add(' select A.* from Bs_Vehicle A order by VNO ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryMain, CDS_HZ);
|
||||
SInitCDSData(ADOQueryMain, CDS_HZ);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
ToolButton2.Click;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMachineManageSel.MCNOPropertiesChange(Sender: TObject);
|
||||
var
|
||||
sql: string;
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
sql := SGetFilters(Panel1, 1, 2);
|
||||
SDofilter(ADOQueryMain, sql);
|
||||
SCreateCDS(ADOQueryMain, CDS_HZ);
|
||||
SInitCDSData(ADOQueryMain, CDS_HZ);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMachineManageSel.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmMachineManageSel := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmMachineManageSel.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmMachineManageSel.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(Trim(Self.Caption), Tv2, '车辆管理');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmMachineManageSel.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ReadCxGrid(Trim(Self.Caption), Tv2, '车辆管理');
|
||||
// Enddate.DateTime:=SGetServerDate(ADOQueryTemp);
|
||||
// begdate.DateTime:=Enddate.DateTime-30;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmMachineManageSel.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
ModalResult := 1;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmMachineManageSel.cxTabControl1Change(Sender: TObject);
|
||||
begin
|
||||
InitGrid;
|
||||
end;
|
||||
|
||||
procedure TfrmMachineManageSel.N1Click(Sender: TObject);
|
||||
begin
|
||||
if CDS_HZ.IsEmpty then
|
||||
exit;
|
||||
SelOKNo(CDS_HZ, True);
|
||||
end;
|
||||
|
||||
procedure TfrmMachineManageSel.N2Click(Sender: TObject);
|
||||
begin
|
||||
if CDS_HZ.IsEmpty then
|
||||
exit;
|
||||
SelOKNo(CDS_HZ, False);
|
||||
end;
|
||||
|
||||
procedure TfrmMachineManageSel.CustomerChange(Sender: TObject);
|
||||
begin
|
||||
ToolButton2.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmMachineManageSel.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
fmanage := Trim(DParameters1);
|
||||
end;
|
||||
|
||||
procedure TfrmMachineManageSel.ToolButton3Click(Sender: TObject);
|
||||
var
|
||||
RTValues: TArray<string>;
|
||||
begin
|
||||
|
||||
if CDS_HZ.IsEmpty then
|
||||
Exit;
|
||||
if CDS_HZ.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('请先选择数据！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
RTValues := SelCDSKey(CDS_HZ, ['VID']);
|
||||
|
||||
try
|
||||
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||
with frmLabelPrint do
|
||||
begin
|
||||
FLMType := 'Machine';
|
||||
FFiltration1 := RTValues[0];
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
// Self.InitGrid();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmLabelPrint.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMachineManageSel.Tv2Column1PropertiesChange(Sender: TObject);
|
||||
var
|
||||
mvalue, FFieldName: string;
|
||||
begin
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
with CDS_HZ do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName(FFieldName).Value := Trim(mvalue);
|
||||
Post;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('UPdate Bs_Vehicle ');
|
||||
sql.Add(' Set ' + FFieldName + '=''' + Trim(mvalue) + '''');
|
||||
sql.Add(' , Editer=''' + Trim(DName) + '''');
|
||||
sql.Add(' , Edittime=getdate()');
|
||||
sql.Add(' where VID=' + quotedstr(CDS_HZ.fieldbyname('VID').AsString));
|
||||
// ShowMessage(sql.text);
|
||||
ExecSQL;
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
tv2.Controller.EditingController.ShowEdit();
|
||||
except
|
||||
tv2.Controller.EditingController.ShowEdit();
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('保存失败！', '提示', 0);
|
||||
end
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
@ -733,6 +733,10 @@ inherited frmClothInfo: TfrmClothInfo
|
|||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skCount
|
||||
Column = cxGridDBColumn2
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
|
|
|
|||
|
|
@ -699,6 +699,7 @@ begin
|
|||
with frmClothInfoInput do
|
||||
begin
|
||||
canshu3 := Self.canshu3;
|
||||
canshu4 := Self.canshu4;
|
||||
TypeInt := 0;
|
||||
FBCIID := '';
|
||||
FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
|
||||
|
|
|
|||
|
|
@ -754,7 +754,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
object C_FromName: TcxButtonEdit
|
||||
Tag = 7
|
||||
Left = 115
|
||||
Top = -2
|
||||
Top = 1
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
|
|
|
|||
|
|
@ -190,7 +190,7 @@ type
|
|||
public
|
||||
FBCIID, FCTID: string;
|
||||
TypeInt: Integer; //0ÐÂÔö_1¸´ÖÆ_2ÐÞ¸Ä
|
||||
fbuzhongedit, canshu3: string;
|
||||
fbuzhongedit, canshu3, canshu4: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
|
|
@ -775,7 +775,8 @@ procedure TfrmClothInfoInput.FormShow(Sender: TObject);
|
|||
begin
|
||||
readCxGrid(self.Caption + 'TV1', Tv1, 'ÑùÆ·¹ÜÀí');
|
||||
|
||||
if FCTID = 'CT2412300005' then
|
||||
// if FCTID = 'CT2412300005' then
|
||||
if canshu4 = '¶þ´Î¼Ó¹¤' then
|
||||
begin
|
||||
C_Name.Enabled := False;
|
||||
C_FromName.Enabled := True;
|
||||
|
|
@ -1223,7 +1224,16 @@ var
|
|||
i, j, k, LX, ExcelRowCount: integer;
|
||||
maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('insert into BS_Cloth_Info_Sub_Del select * from BS_Cloth_Info_Sub where BCIID=''' + Trim(FBCIID) + '''');
|
||||
sql.Add('delete from BS_Cloth_Info_Sub where BCIID=''' + Trim(FBCIID) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
|
||||
CDS_1.EmptyDataSet;
|
||||
try
|
||||
excelApp := CreateOleObject('Excel.Application');
|
||||
openDialog1.Filter := '*.CSV;*.xls';
|
||||
|
|
@ -1317,6 +1327,7 @@ begin
|
|||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('insert into BS_Cloth_Info_Sub_Del select * from BS_Cloth_Info_Sub where BCIID=''' + Trim(FBCIID) + '''');
|
||||
sql.Add('delete from BS_Cloth_Info_Sub where BCIID=''' + Trim(FBCIID) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
|
|
@ -1501,6 +1512,7 @@ begin
|
|||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('insert into BS_Cloth_Info_Sub_Del select * from BS_Cloth_Info_Sub where BCISID=''' + Trim(CDS_1.fieldbyname('BCISID').AsString) + '''');
|
||||
sql.Add('delete from BS_Cloth_Info_Sub where BCISID=''' + Trim(CDS_1.fieldbyname('BCISID').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
|
|
@ -1703,7 +1715,7 @@ begin
|
|||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete from Bs_Cloth_Info_Coefficient where CICID=''' + Trim(CDS_1.fieldbyname('CICID').AsString) + '''');
|
||||
sql.Add('delete from Bs_Cloth_Info_Coefficient where CICID=''' + Trim(CDS_3.fieldbyname('CICID').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
|
|
|
|||
|
|
@ -23,7 +23,6 @@ object frmEdit: TfrmEdit
|
|||
Align = alClient
|
||||
Caption = 'Panel6'
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 625
|
||||
object cxGrid4: TcxGrid
|
||||
Left = 1
|
||||
Top = 1
|
||||
|
|
@ -32,7 +31,6 @@ object frmEdit: TfrmEdit
|
|||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 623
|
||||
object TV4: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
FindPanel.DisplayMode = fpdmAlways
|
||||
|
|
@ -118,7 +116,6 @@ object frmEdit: TfrmEdit
|
|||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
ExplicitWidth = 625
|
||||
object ToolButton1: TToolButton
|
||||
Tag = 1
|
||||
Left = 0
|
||||
|
|
|
|||
|
|
@ -194,7 +194,14 @@ var
|
|||
i, j, k, LX, ExcelRowCount: integer;
|
||||
maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
|
||||
begin
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('insert into BS_Cloth_Info_Sub_Del select * from BS_Cloth_Info_Sub where BCIID=''' + Trim(FBCIID) + '''');
|
||||
sql.Add('delete from BS_Cloth_Info_Sub where BCIID=''' + Trim(FBCIID) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
try
|
||||
excelApp := CreateOleObject('Excel.Application');
|
||||
openDialog1.Filter := '*.CSV;*.xls';
|
||||
|
|
|
|||
|
|
@ -77,7 +77,8 @@ uses
|
|||
U_TradeRRList in 'U_TradeRRList.pas' {frmTradeRRList},
|
||||
U_TradeRRInPut in 'U_TradeRRInPut.pas' {frmTradeRRInPut},
|
||||
U_RPFun in '..\..\..\public10\ThreeFun\Fun\U_RPFun.pas',
|
||||
U_InputReceiptType in 'U_InputReceiptType.pas' {frmInputReceiptType};
|
||||
U_InputReceiptType in 'U_InputReceiptType.pas' {frmInputReceiptType},
|
||||
U_MachineManageSel in '..\A00通用窗体\U_MachineManageSel.pas' {frmMachineManageSel};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
|
|
|
|||
|
|
@ -364,6 +364,10 @@
|
|||
<DCCReference Include="U_InputReceiptType.pas">
|
||||
<Form>frmInputReceiptType</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\A00通用窗体\U_MachineManageSel.pas">
|
||||
<Form>frmMachineManageSel</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
|
|
|
|||
|
|
@ -22,7 +22,7 @@ uses
|
|||
U_TradePackClothOutList, U_TradePackClothStkList, U_TradeSampleClothInList,
|
||||
U_TradeSampleClothOutList, U_TradeSampleClothStkList, U_ClothPurchaseEnterList,
|
||||
U_ClothScheduleList, U_TradeClothTotalStkList, U_TradeClothTotalInList,
|
||||
U_TradeClothTotalOutList, U_TradeDeliveryRequest, U_TradeRRList,
|
||||
U_TradeClothTotalOutList, U_TradeDeliveryRequest, U_TradeRRList,U_PlanScanInEdit,
|
||||
U_ItemizedListList, U_TradeXinYuStkList, U_TradeXinYuOutList;
|
||||
|
||||
/////////////////////////////////////////////////////////////////
|
||||
|
|
@ -140,7 +140,7 @@ begin
|
|||
|
||||
911: //采购回仓
|
||||
begin
|
||||
with TfrmClothPurchaseEnterList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
||||
with TfrmClothPurchaseEnterList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
WindowState := mstate;
|
||||
|
|
@ -150,7 +150,7 @@ begin
|
|||
|
||||
912: //面料生产安排
|
||||
begin
|
||||
with TfrmClothScheduleList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
||||
with TfrmClothScheduleList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
WindowState := mstate;
|
||||
|
|
@ -160,7 +160,7 @@ begin
|
|||
|
||||
920: //码单登记
|
||||
begin
|
||||
with TfrmItemizedListList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
||||
with TfrmItemizedListList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
WindowState := mstate;
|
||||
|
|
@ -170,7 +170,7 @@ begin
|
|||
|
||||
921: //贸易布匹入库
|
||||
begin
|
||||
with TfrmTradeClothTotalInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
||||
with TfrmTradeClothTotalInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
WindowState := mstate;
|
||||
|
|
@ -180,7 +180,7 @@ begin
|
|||
|
||||
221: //退货申请
|
||||
begin
|
||||
with TfrmTradeRRList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
||||
with TfrmTradeRRList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
WindowState := mstate;
|
||||
|
|
@ -190,7 +190,7 @@ begin
|
|||
|
||||
211: //发货申请
|
||||
begin
|
||||
with TfrmTradeDeliveryRequest.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
||||
with TfrmTradeDeliveryRequest.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
WindowState := mstate;
|
||||
|
|
@ -200,7 +200,7 @@ begin
|
|||
|
||||
922: //贸易布匹出库
|
||||
begin
|
||||
with TfrmTradeClothTotalOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
||||
with TfrmTradeClothTotalOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
WindowState := mstate;
|
||||
|
|
@ -210,7 +210,7 @@ begin
|
|||
|
||||
923: //贸易布匹库存
|
||||
begin
|
||||
with TfrmTradeClothTotalStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
||||
with TfrmTradeClothTotalStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
WindowState := mstate;
|
||||
|
|
@ -220,7 +220,7 @@ begin
|
|||
|
||||
924: //新余库存
|
||||
begin
|
||||
with TfrmTradeXinYuStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
||||
with TfrmTradeXinYuStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
WindowState := mstate;
|
||||
|
|
@ -230,7 +230,7 @@ begin
|
|||
|
||||
925: //新余出库
|
||||
begin
|
||||
with TfrmTradeXinYuOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
||||
with TfrmTradeXinYuOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
WindowState := mstate;
|
||||
|
|
@ -240,7 +240,7 @@ begin
|
|||
|
||||
511: //样布入库
|
||||
begin
|
||||
with TfrmTradeSampleClothInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
||||
with TfrmTradeSampleClothInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||
begin
|
||||
FSTKName := '贸易样布';
|
||||
fFormID := FormID;
|
||||
|
|
@ -251,7 +251,7 @@ begin
|
|||
|
||||
521: //样布出库
|
||||
begin
|
||||
with TfrmTradeSampleClothOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
||||
with TfrmTradeSampleClothOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||
begin
|
||||
FSTKName := '贸易样布';
|
||||
fFormID := FormID;
|
||||
|
|
@ -262,7 +262,7 @@ begin
|
|||
|
||||
531: //样布库存
|
||||
begin
|
||||
with TfrmTradeSampleClothStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
||||
with TfrmTradeSampleClothStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||
begin
|
||||
FSTKName := '贸易样布';
|
||||
fFormID := FormID;
|
||||
|
|
@ -270,7 +270,16 @@ begin
|
|||
mnewHandle := Handle;
|
||||
end;
|
||||
end;
|
||||
|
||||
666: //ÉϳµÉ¨Âë
|
||||
begin
|
||||
with TfrmPlanScanInEdit.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||
begin
|
||||
// FSTKName := 'óÒ×Ñù²¼';
|
||||
fFormID := FormID;
|
||||
WindowState := mstate;
|
||||
mnewHandle := Handle;
|
||||
end;
|
||||
end;
|
||||
10000:
|
||||
begin
|
||||
for i := 0 to application.MainForm.MDIChildCount - 1 do
|
||||
|
|
|
|||
361
T02贸易汇总仓库/U_PlanScanInEdit.dfm
Normal file
361
T02贸易汇总仓库/U_PlanScanInEdit.dfm
Normal file
|
|
@ -0,0 +1,361 @@
|
|||
inherited frmPlanScanInEdit: TfrmPlanScanInEdit
|
||||
Caption = #24211#23384#24211#20301#25195#25551
|
||||
ClientHeight = 632
|
||||
ClientWidth = 1350
|
||||
Visible = True
|
||||
ExplicitWidth = 1366
|
||||
ExplicitHeight = 671
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 17
|
||||
object Panel1: TPanel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1350
|
||||
Height = 145
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
TabOrder = 2
|
||||
object Panel3: TPanel
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 1346
|
||||
Height = 141
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = -1
|
||||
object Label6: TLabel
|
||||
Left = 13
|
||||
Top = 68
|
||||
Width = 66
|
||||
Height = 33
|
||||
Caption = #25195#25551
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlue
|
||||
Font.Height = -32
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 470
|
||||
Top = 67
|
||||
Width = 66
|
||||
Height = 33
|
||||
Caption = #21306#22495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -32
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 670
|
||||
Top = 67
|
||||
Width = 66
|
||||
Height = 33
|
||||
Caption = #36710#36742
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -32
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 1016
|
||||
Top = 41
|
||||
Width = 48
|
||||
Height = 17
|
||||
Caption = #20837#24211#21333#21495
|
||||
Visible = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 1022
|
||||
Top = 72
|
||||
Width = 48
|
||||
Height = 17
|
||||
Caption = #20837#24211#26102#38388
|
||||
Visible = False
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 1022
|
||||
Top = 98
|
||||
Width = 48
|
||||
Height = 17
|
||||
Caption = #20837#24211#31867#22411
|
||||
Visible = False
|
||||
end
|
||||
object ToolBar3: TToolBar
|
||||
Tag = 1
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1344
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
Caption = 'ToolBar1'
|
||||
Color = clWhite
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeTotalClothStk.cxImageList_bar
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object ToolButton3: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #30721#21333#25171#21360
|
||||
ImageIndex = 21
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 87
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #24211#20301#36873#25321
|
||||
ImageIndex = 8
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 174
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
ImageIndex = 16
|
||||
OnClick = ToolButton8Click
|
||||
end
|
||||
object ToolButton7: TToolButton
|
||||
Left = 261
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 7
|
||||
OnClick = ToolButton7Click
|
||||
end
|
||||
object btnGetOutNo: TToolButton
|
||||
Left = 324
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21462#21495
|
||||
ImageIndex = 2
|
||||
Visible = False
|
||||
OnClick = btnGetOutNoClick
|
||||
end
|
||||
end
|
||||
object edtScan: TEdit
|
||||
Left = 85
|
||||
Top = 37
|
||||
Width = 379
|
||||
Height = 72
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -64
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
OnKeyPress = edtScanKeyPress
|
||||
end
|
||||
object IOPosition: TBtnEditA
|
||||
Left = 535
|
||||
Top = 69
|
||||
Width = 121
|
||||
Height = 30
|
||||
TabOrder = 2
|
||||
OnBtnClick = IOPositionBtnClick
|
||||
end
|
||||
object InNo: TEdit
|
||||
Left = 1070
|
||||
Top = 37
|
||||
Width = 100
|
||||
Height = 25
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
end
|
||||
object CRTime: TDateTimePicker
|
||||
Left = 1070
|
||||
Top = 68
|
||||
Width = 100
|
||||
Height = 20
|
||||
Date = 41337.000000000000000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 0.663190821760508700
|
||||
TabOrder = 4
|
||||
Visible = False
|
||||
end
|
||||
object CRType: TComboBox
|
||||
Left = 1070
|
||||
Top = 94
|
||||
Width = 100
|
||||
Height = 25
|
||||
Style = csDropDownList
|
||||
ItemIndex = 0
|
||||
TabOrder = 5
|
||||
Text = #26816#39564#20837#24211
|
||||
Visible = False
|
||||
Items.Strings = (
|
||||
#26816#39564#20837#24211
|
||||
#36864#36135#20837#24211)
|
||||
end
|
||||
object carPlate: TBtnEditA
|
||||
Left = 742
|
||||
Top = 69
|
||||
Width = 121
|
||||
Height = 30
|
||||
TabOrder = 6
|
||||
OnBtnClick = carPlateBtnClick
|
||||
end
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel [1]
|
||||
Left = 0
|
||||
Top = 145
|
||||
Width = 1350
|
||||
Height = 487
|
||||
Align = alClient
|
||||
Caption = 'Panel2'
|
||||
TabOrder = 3
|
||||
object cxGrid3: TcxGrid
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1348
|
||||
Height = 485
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 2
|
||||
ExplicitTop = -2
|
||||
object Tv3: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_3
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Format = #21367#25968#37327#65306'#'
|
||||
Kind = skCount
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skCount
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
object cxGridDBColumn4: TcxGridDBColumn
|
||||
Caption = #20986#24211#21333
|
||||
DataBinding.FieldName = 'PieceNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 207
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = Tv3
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited cxProgressBar2: TcxProgressBar
|
||||
ExplicitHeight = 25
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||
Left = 785
|
||||
Top = 200
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||
Left = 697
|
||||
Top = 185
|
||||
end
|
||||
object GPM_1: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 168
|
||||
Top = 400
|
||||
end
|
||||
object CDS_1: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 264
|
||||
Top = 400
|
||||
end
|
||||
object DS_1: TDataSource
|
||||
DataSet = CDS_1
|
||||
Left = 336
|
||||
Top = 408
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 704
|
||||
Top = 248
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||
Parameters = <>
|
||||
Left = 792
|
||||
Top = 256
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 872
|
||||
Top = 256
|
||||
end
|
||||
object CDS_2: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 264
|
||||
Top = 328
|
||||
end
|
||||
object DS_2: TDataSource
|
||||
DataSet = CDS_2
|
||||
Left = 336
|
||||
Top = 328
|
||||
end
|
||||
object GPM_2: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 176
|
||||
Top = 324
|
||||
end
|
||||
object DS_3: TDataSource
|
||||
DataSet = CDS_3
|
||||
Left = 808
|
||||
Top = 408
|
||||
end
|
||||
object CDS_3: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 760
|
||||
Top = 408
|
||||
end
|
||||
object GPM_3: TcxGridPopupMenu
|
||||
Grid = cxGrid3
|
||||
PopupMenus = <>
|
||||
Left = 712
|
||||
Top = 408
|
||||
end
|
||||
end
|
||||
350
T02贸易汇总仓库/U_PlanScanInEdit.pas
Normal file
350
T02贸易汇总仓库/U_PlanScanInEdit.pas
Normal file
|
|
@ -0,0 +1,350 @@
|
|||
unit U_PlanScanInEdit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, strUtils, SysUtils, Variants, Classes, Graphics, Controls,
|
||||
Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, MMSystem,
|
||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||||
cxControls, cxGridCustomView, cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, U_BaseList, dxSkinsCore,
|
||||
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, RM_Common, RM_Class,
|
||||
RM_GridReport, RM_Dataset, Vcl.ToolWin, dxSkinBasic, dxSkinBlack, dxSkinBlue,
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
|
||||
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
|
||||
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
|
||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
|
||||
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
|
||||
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
|
||||
dxSkinXmas2008Blue, dxScrollbarAnnotations, cxContainer, cxProgressBar,
|
||||
BtnEdit;
|
||||
|
||||
type
|
||||
TfrmPlanScanInEdit = class(TfrmBaseList)
|
||||
GPM_1: TcxGridPopupMenu;
|
||||
CDS_1: TClientDataSet;
|
||||
DS_1: TDataSource;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
Panel1: TPanel;
|
||||
CDS_2: TClientDataSet;
|
||||
DS_2: TDataSource;
|
||||
GPM_2: TcxGridPopupMenu;
|
||||
DS_3: TDataSource;
|
||||
CDS_3: TClientDataSet;
|
||||
GPM_3: TcxGridPopupMenu;
|
||||
Panel2: TPanel;
|
||||
cxGrid3: TcxGrid;
|
||||
Tv3: TcxGridDBTableView;
|
||||
cxGridDBColumn4: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
Panel3: TPanel;
|
||||
ToolBar3: TToolBar;
|
||||
ToolButton3: TToolButton;
|
||||
btnGetOutNo: TToolButton;
|
||||
ToolButton7: TToolButton;
|
||||
ToolButton8: TToolButton;
|
||||
edtScan: TEdit;
|
||||
Label6: TLabel;
|
||||
Label1: TLabel;
|
||||
ToolButton5: TToolButton;
|
||||
Label2: TLabel;
|
||||
IOPosition: TBtnEditA;
|
||||
Label5: TLabel;
|
||||
InNo: TEdit;
|
||||
Label4: TLabel;
|
||||
CRTime: TDateTimePicker;
|
||||
Label11: TLabel;
|
||||
CRType: TComboBox;
|
||||
carPlate: TBtnEditA;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure ToolButton3Click(Sender: TObject);
|
||||
procedure btnGetOutNoClick(Sender: TObject);
|
||||
procedure ToolButton7Click(Sender: TObject);
|
||||
procedure ToolButton8Click(Sender: TObject);
|
||||
procedure edtScanKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure ToolButton5Click(Sender: TObject);
|
||||
procedure IOPositionBtnClick(Sender: TObject);
|
||||
procedure carPlateBtnClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
FScan, FSubIds: string;
|
||||
procedure PlayWav(MWav: string);
|
||||
procedure InitKC();
|
||||
procedure ScanKW();
|
||||
procedure ScanCIID();
|
||||
public
|
||||
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmPlanScanInEdit: TfrmPlanScanInEdit;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_LabelPrint, U_ZDYHelp, U_MachineManageSel; //U_TradeClothWaitStorage, U_PositionSel
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmPlanScanInEdit.PlayWav(MWav: string);
|
||||
begin
|
||||
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\' + MWav + '.wav')) then
|
||||
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\' + MWav + '.wav'), 0, SND_ASYNC);
|
||||
end;
|
||||
|
||||
procedure TfrmPlanScanInEdit.InitKC();
|
||||
begin
|
||||
|
||||
if IOPosition.Text = '' then
|
||||
exit;
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select A.IOFlag,A.IONo,A.IOID,A.IOPosition,B.* from Trade_Cloth_IO A ');
|
||||
sql.Add('inner join Trade_Cloth_Stock B on A.StkId=B.StkId and A.IOCycles=B.StkCycles ');
|
||||
sql.Add('where A.IOFlag=''入库'' and B.StkExists=1 ');
|
||||
if IOPosition.Text <> '' then
|
||||
sql.add('and IOPosition =' + QuotedStr(TRIm(IOPosition.Text)))
|
||||
else
|
||||
sql.add('and 1=2');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryTemp, CDS_3);
|
||||
SInitCDSData(ADOQueryTemp, CDS_3);
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmPlanScanInEdit.ScanKW();
|
||||
var
|
||||
MStkIds: string;
|
||||
begin
|
||||
try
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
close;
|
||||
SQL.Clear;
|
||||
sql.Add('select * from Bs_Position where POSID =''' + trim(FScan) + ''' ');
|
||||
open;
|
||||
end;
|
||||
|
||||
IOPosition.Text := ADOQueryTemp.FieldByName('posno').AsString;
|
||||
|
||||
btnGetOutNo.Click;
|
||||
except
|
||||
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmPlanScanInEdit.ScanCIID();
|
||||
var
|
||||
MStkIds: string;
|
||||
begin
|
||||
try
|
||||
if Trim(IOPosition.Text) = '' then
|
||||
raise Exception.Create('库位不能为空!');
|
||||
if Trim(InNo.Text) = '' then
|
||||
raise Exception.Create('入库单号不能为空!');
|
||||
|
||||
MStkIds := FScan;
|
||||
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
Sql.Clear;
|
||||
Sql.Add('exec P_Market_Position_In ');
|
||||
Sql.Add('@StkIds=' + quotedstr(trim(MStkIds)));
|
||||
Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime)));
|
||||
Sql.Add(',@IOType=' + Quotedstr(crtype.Text));
|
||||
Sql.Add(',@IONO=' + Quotedstr(InNo.Text));
|
||||
Sql.Add(',@StkPosition=' + Quotedstr(IOPosition.Text));
|
||||
Sql.Add(',@FillId=' + Quotedstr(DCode));
|
||||
Sql.Add(',@Filler=' + Quotedstr(DName));
|
||||
// ShowMessage(sql.Text);
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||
begin
|
||||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
PlayWav('正确');
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
raise Exception.Create(PChar(Exception(ExceptObject).Message));
|
||||
end;
|
||||
|
||||
except
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
// PlayWav('发货错误');
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmPlanScanInEdit.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmPlanScanInEdit.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmPlanScanInEdit := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmPlanScanInEdit.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ReadCxGrid(self.caption + 'Tv3', Tv3, '成品仓库');
|
||||
InitKC();
|
||||
CRTime.DateTime := SGetServerDate(ADOQueryTemp);
|
||||
end;
|
||||
|
||||
procedure TfrmPlanScanInEdit.edtScanKeyPress(Sender: TObject; var Key: Char);
|
||||
var
|
||||
maxno, SMFlag, KYCKFlag, FMainId, ff: string;
|
||||
FFQty: Integer;
|
||||
begin
|
||||
if Key = #13 then
|
||||
begin
|
||||
FScan := TRIM(edtScan.Text);
|
||||
edtScan.Text := '';
|
||||
if Copy(FScan, 1, 2) = 'KW' then
|
||||
begin
|
||||
ScanKW();
|
||||
end
|
||||
else
|
||||
begin
|
||||
ScanCIID();
|
||||
end;
|
||||
InitKC();
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmPlanScanInEdit.ToolButton3Click(Sender: TObject);
|
||||
begin
|
||||
if Trim(InNo.Text) = '' then
|
||||
Exit;
|
||||
|
||||
try
|
||||
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||
with frmLabelPrint do
|
||||
begin
|
||||
FLMType := 'TradeClothIn1';
|
||||
FFiltration1 := Trim(Self.InNo.Text);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmLabelPrint.Free;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmPlanScanInEdit.ToolButton5Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
{ try
|
||||
frmPositionSel := TfrmPositionSel.Create(Application);
|
||||
with frmPositionSel do
|
||||
begin
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
IOPosition.Text := CDS_1.FieldByName('POSNO').AsString;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmPositionSel.Free;
|
||||
btnGetOutNo.Click;
|
||||
initkc();
|
||||
end; }
|
||||
end;
|
||||
|
||||
procedure TfrmPlanScanInEdit.IOPositionBtnClick(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
MainType := 'Cust';
|
||||
flag := 'AREA';
|
||||
flagname := '区域';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
IOPosition.text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmPlanScanInEdit.carPlateBtnClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
try
|
||||
frmMachineManageSel := TfrmMachineManageSel.Create(Application);
|
||||
with frmMachineManageSel do
|
||||
begin
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
carPlate.text := Trim(CDS_HZ.fieldbyname('VNO').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmMachineManageSel.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmPlanScanInEdit.btnGetOutNoClick(Sender: TObject);
|
||||
var
|
||||
maxNo: string;
|
||||
begin
|
||||
if GetLSNo(ADOQueryCmd, maxNo, 'RK', 'Trade_Cloth_IO', 3, 1) = False then
|
||||
begin
|
||||
Application.MessageBox('取入库单号失败!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
InNo.Text := Trim(maxNo);
|
||||
CRTime.DateTime := SGetServerDate(ADOQueryTemp);
|
||||
InitKC();
|
||||
end;
|
||||
|
||||
procedure TfrmPlanScanInEdit.ToolButton7Click(Sender: TObject);
|
||||
begin
|
||||
tv3.Controller.EditingController.ShowEdit();
|
||||
Close;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmPlanScanInEdit.ToolButton8Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(self.caption + 'Tv3', Tv3, '成品仓库');
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
@ -21,9 +21,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
|
|||
Height = 518
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 152
|
||||
ExplicitTop = 36
|
||||
ExplicitHeight = 732
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnMouseDown = Tv1MouseDown
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
|
|
@ -181,6 +179,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
|
|||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = Tv1Column8PropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 77
|
||||
|
|
|
|||
|
|
@ -243,7 +243,7 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
|
|||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 2
|
||||
ExplicitTop = 116
|
||||
ExplicitTop = 123
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
|
|||
|
|
@ -3,14 +3,15 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
|||
Top = 4
|
||||
Caption = #26032#20313#35746#21333#24405#20837
|
||||
ClientHeight = 736
|
||||
ClientWidth = 1921
|
||||
ClientWidth = 1540
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Height = -16
|
||||
Position = poMainFormCenter
|
||||
WindowState = wsMaximized
|
||||
OnClose = FormClose
|
||||
ExplicitLeft = -422
|
||||
ExplicitWidth = 1937
|
||||
ExplicitLeft = -347
|
||||
ExplicitTop = -270
|
||||
ExplicitWidth = 1556
|
||||
ExplicitHeight = 775
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
|
|
@ -18,7 +19,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
|||
Tag = 1
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1921
|
||||
Width = 1540
|
||||
Height = 38
|
||||
AutoSize = True
|
||||
ButtonHeight = 38
|
||||
|
|
@ -84,7 +85,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
|||
Tag = 1
|
||||
Left = 0
|
||||
Top = 193
|
||||
Width = 1921
|
||||
Width = 1540
|
||||
Height = 30
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 99
|
||||
|
|
@ -121,7 +122,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
|||
object Panel2: TPanel [2]
|
||||
Left = 0
|
||||
Top = 223
|
||||
Width = 1921
|
||||
Width = 1540
|
||||
Height = 513
|
||||
Align = alClient
|
||||
Caption = 'Panel2'
|
||||
|
|
@ -129,7 +130,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
|||
object Panel3: TPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1633
|
||||
Width = 1252
|
||||
Height = 511
|
||||
Align = alClient
|
||||
Caption = 'Panel2'
|
||||
|
|
@ -137,7 +138,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
|||
object cxGrid1: TcxGrid
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1631
|
||||
Width = 1250
|
||||
Height = 509
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
|
|
@ -418,12 +419,19 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
|||
object Tv1Column19: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #20986#24211#25968#37327
|
||||
DataBinding.FieldName = 'OutQty'
|
||||
DataBinding.FieldName = 'SubOutQty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 89
|
||||
end
|
||||
object Tv1Column23: TcxGridDBColumn
|
||||
Caption = #20986#24211#21305#25968
|
||||
DataBinding.FieldName = 'SubOutPS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
|
|
@ -431,7 +439,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
|||
end
|
||||
end
|
||||
object Panel4: TPanel
|
||||
Left = 1634
|
||||
Left = 1253
|
||||
Top = 1
|
||||
Width = 286
|
||||
Height = 511
|
||||
|
|
@ -545,7 +553,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
|
|||
object ScrollBox1: TScrollBox [3]
|
||||
Left = 0
|
||||
Top = 38
|
||||
Width = 1921
|
||||
Width = 1540
|
||||
Height = 155
|
||||
Align = alTop
|
||||
BevelInner = bvNone
|
||||
|
|
|
|||
|
|
@ -138,6 +138,7 @@ type
|
|||
TBAdd: TToolButton;
|
||||
ToolButton6: TToolButton;
|
||||
TBEdit: TToolButton;
|
||||
Tv1Column23: TcxGridDBColumn;
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
|
|
@ -359,6 +360,8 @@ begin
|
|||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select A.*,StkQty =(select sum(isnull(X.StkQty,0)) from Bs_Cloth_IO X where X.C_Code=A.C_Code and X.C_Color=A.C_Color) ');
|
||||
sql.Add(',SubOutQty =(select sum(isnull(X.Qty,0)) from Trade_Market_Sub_Qty X where X.TMSID=A.TMSID ) ');
|
||||
sql.Add(',SubOutPS =(select count(isnull(X.TMSQID,0)) from Trade_Market_Sub_Qty X where X.TMSID=A.TMSID ) ');
|
||||
sql.Add('from Trade_Market_Sub A ');
|
||||
SQL.adD('where 1=1 ');
|
||||
if PState = 1 then
|
||||
|
|
|
|||
|
|
@ -146,8 +146,6 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
|
|||
Height = 232
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitTop = 407
|
||||
ExplicitHeight = 226
|
||||
object Tv2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -235,8 +233,6 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
|
|||
Height = 634
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
ExplicitLeft = 789
|
||||
ExplicitWidth = 634
|
||||
object ToolBar2: TToolBar
|
||||
Tag = 1
|
||||
Left = 1
|
||||
|
|
@ -251,7 +247,6 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
|
|||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 632
|
||||
end
|
||||
object cxGrid3: TcxGrid
|
||||
Left = 1
|
||||
|
|
@ -343,9 +338,6 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
|
|||
Height = 238
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitTop = 407
|
||||
ExplicitWidth = 632
|
||||
ExplicitHeight = 226
|
||||
object Tv4: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
|
|||
|
|
@ -130,7 +130,11 @@ end;
|
|||
procedure TfrmTradeMarketList_JD.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
InitGrid();
|
||||
InitGrid1();
|
||||
InitGrid2();
|
||||
InitGrid3();
|
||||
InitGrid4();
|
||||
|
||||
// InitForm();
|
||||
end;
|
||||
|
||||
|
|
@ -162,6 +166,7 @@ begin
|
|||
sql.clear;
|
||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||
sql.add('where 1=1 ');
|
||||
sql.add('and AddressArea=''温岭县W'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADO_1, CDS_1);
|
||||
|
|
@ -176,6 +181,7 @@ begin
|
|||
sql.clear;
|
||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||
sql.add('where 1=1');
|
||||
sql.add('and AddressArea=''东塘线D'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADO_2, CDS_2);
|
||||
|
|
@ -190,6 +196,7 @@ begin
|
|||
sql.clear;
|
||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||
sql.add('where 1=1');
|
||||
sql.add('and AddressArea=''石粘线S'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADO_3, CDS_3);
|
||||
|
|
@ -204,6 +211,7 @@ begin
|
|||
sql.clear;
|
||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||
sql.add('where 1=1');
|
||||
sql.add('and AddressArea=''上洋林Y'' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADO_4, CDS_4);
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user