产品管理修改，来料仓库，来料入库，来料出库增加分页面，修改查询方式
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
672bf06813
commit
eeec0ec912
|
|
@ -1,8 +1,8 @@
|
|||
object frmClientPrintRmf: TfrmClientPrintRmf
|
||||
Left = 874
|
||||
Top = 483
|
||||
Width = 403
|
||||
Height = 240
|
||||
Width = 419
|
||||
Height = 249
|
||||
Caption = #25253#34920#25171#21360
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
|
|
@ -16,6 +16,7 @@ object frmClientPrintRmf: TfrmClientPrintRmf
|
|||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
OnStartDock = FormStartDock
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 11
|
||||
object ADOQueryTemp: TADOQuery
|
||||
|
|
@ -3870,7 +3871,7 @@ object frmClientPrintRmf: TfrmClientPrintRmf
|
|||
Top = 153
|
||||
end
|
||||
object ADOQueryReport: TADOQuery
|
||||
Connection = DataLink_YXYMT.ADOLink
|
||||
Connection = DataLink_MYSC.ADOLink
|
||||
Parameters = <>
|
||||
Left = 183
|
||||
Top = 65503
|
||||
|
|
|
|||
|
|
@ -42,6 +42,7 @@ type
|
|||
procedure FormShow(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure TV1DblClick(Sender: TObject);
|
||||
procedure FormStartDock(Sender: TObject; var DragObject: TDragDockObject);
|
||||
private
|
||||
IsDebug, FPreviewPrint, fIsPreview: Boolean;
|
||||
FLMType, FLBName: string;
|
||||
|
|
@ -52,6 +53,7 @@ type
|
|||
procedure PrintReport();
|
||||
procedure ExportReport();
|
||||
procedure InitAdo(Ado: TADOQuery; SqlStr: string);
|
||||
procedure TfrmClientPrintRmf.GetQrCode();
|
||||
procedure InitArgs();
|
||||
{ Private declarations }
|
||||
public
|
||||
|
|
@ -77,6 +79,34 @@ begin
|
|||
FPrintJson := JsonArgs;
|
||||
end;
|
||||
|
||||
procedure TfrmClientPrintRmf.GetQrCode(Txt: string; );
|
||||
var
|
||||
fPrintFile: string;
|
||||
fImagePath: string;
|
||||
Moudle: THandle;
|
||||
Makebar: TMakebar;
|
||||
Mixtext: TMixtext;
|
||||
CurRow: Integer;
|
||||
begin
|
||||
try
|
||||
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
||||
@Makebar := GetProcAddress(Moudle, 'Make');
|
||||
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
||||
Txt := Trim(ADOQueryPrint.fieldbyname('MXID').AsString);
|
||||
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
|
||||
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
||||
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
|
||||
if FileExists(fImagePath) then
|
||||
DeleteFile(fImagePath);
|
||||
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
|
||||
except
|
||||
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
|
||||
Order_Main.EnableControls;
|
||||
exit;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmClientPrintRmf.InitArgs;
|
||||
var
|
||||
JSONObject, item: ISuperObject;
|
||||
|
|
@ -281,5 +311,10 @@ begin
|
|||
frmClientPrintRmf := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmClientPrintRmf.FormStartDock(Sender: TObject; var DragObject: TDragDockObject);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -1281,39 +1281,39 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ
|
|||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 165
|
||||
Top = 148
|
||||
Left = 760
|
||||
Top = 345
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_MYSC.ADOLink
|
||||
Parameters = <>
|
||||
Left = 205
|
||||
Top = 209
|
||||
Left = 696
|
||||
Top = 313
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_MYSC.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 205
|
||||
Top = 178
|
||||
Left = 728
|
||||
Top = 313
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_MYSC.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 206
|
||||
Top = 149
|
||||
Left = 792
|
||||
Top = 313
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_Main
|
||||
Left = 164
|
||||
Top = 210
|
||||
Left = 792
|
||||
Top = 345
|
||||
end
|
||||
object Order_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 165
|
||||
Top = 179
|
||||
Left = 728
|
||||
Top = 345
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
|
|
@ -1331,15 +1331,15 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ
|
|||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 1048
|
||||
Top = 8
|
||||
Left = 728
|
||||
Top = 409
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDBMain: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = CDS_PRT
|
||||
Left = 1016
|
||||
Top = 8
|
||||
Left = 728
|
||||
Top = 377
|
||||
end
|
||||
object RMXLSExport2: TRMXLSExport
|
||||
ShowAfterExport = False
|
||||
|
|
@ -1352,18 +1352,18 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ
|
|||
ScaleX = 1.000000000000000000
|
||||
ScaleY = 1.000000000000000000
|
||||
CompressFile = False
|
||||
Left = 1108
|
||||
Top = 8
|
||||
Left = 696
|
||||
Top = 409
|
||||
end
|
||||
object CDS_PRT: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1080
|
||||
Top = 8
|
||||
Left = 824
|
||||
Top = 313
|
||||
end
|
||||
object PopupMenu1: TPopupMenu
|
||||
Left = 164
|
||||
Top = 240
|
||||
Left = 824
|
||||
Top = 345
|
||||
object N1: TMenuItem
|
||||
Caption = #20462#25913
|
||||
OnClick = N1Click
|
||||
|
|
@ -1376,15 +1376,15 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ
|
|||
object ClientDataSet1: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 773
|
||||
Top = 259
|
||||
Left = 696
|
||||
Top = 345
|
||||
end
|
||||
object ADOQueryPrint: TADOQuery
|
||||
Connection = DataLink_MYSC.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 280
|
||||
Top = 544
|
||||
Left = 760
|
||||
Top = 313
|
||||
end
|
||||
object RM2: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
|
|
@ -1403,19 +1403,19 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ
|
|||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 344
|
||||
Top = 568
|
||||
Left = 760
|
||||
Top = 417
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDB_Main: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = ADOQueryPrint
|
||||
Left = 320
|
||||
Top = 528
|
||||
Left = 760
|
||||
Top = 377
|
||||
end
|
||||
object PopupMenu2: TPopupMenu
|
||||
Left = 172
|
||||
Top = 392
|
||||
Left = 696
|
||||
Top = 377
|
||||
object MenuItem1: TMenuItem
|
||||
Caption = #20840#36873
|
||||
OnClick = MenuItem1Click
|
||||
|
|
|
|||
|
|
@ -24,7 +24,19 @@ uses
|
|||
dxSkinSharpPlus, dxSkinSpringTime,
|
||||
dxSkinsDefaultPainters,
|
||||
|
||||
dxSkinscxPCPainter, BtnEdit, dxBarBuiltInMenu;
|
||||
dxSkinscxPCPainter, BtnEdit, dxBarBuiltInMenu, dxSkinBlack, dxSkinBlue,
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
|
||||
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
|
||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
|
||||
dxSkinWhiteprint, dxSkinXmas2008Blue;
|
||||
|
||||
type
|
||||
TfrmKCPBCGRKList_RCDJ = class(TForm)
|
||||
|
|
@ -872,8 +884,8 @@ begin
|
|||
begin
|
||||
RMVariables['QRBARCODE'] := fImagePath;
|
||||
RM2.LoadFromFile(fPrintFile);
|
||||
//RM2.ShowReport;
|
||||
RM2.PrintReport;
|
||||
RM2.ShowReport;
|
||||
// RM2.PrintReport;
|
||||
end
|
||||
else
|
||||
begin
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
|
|
@ -11,20 +11,20 @@ uses
|
|||
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
|
||||
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
|
||||
cxDropDownEdit, cxPC, Buttons, cxTextEdit, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
|
||||
dxSkinDarkRoom,
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
dxSkinOffice2013White,
|
||||
dxSkinSharpPlus, dxSkinSpringTime,
|
||||
dxSkinsDefaultPainters,
|
||||
|
||||
dxSkinscxPCPainter;
|
||||
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinDarkRoom,
|
||||
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime,
|
||||
dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue,
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||
dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver,
|
||||
dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine,
|
||||
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
|
||||
|
||||
type
|
||||
TfrmLLCKList = class(TForm)
|
||||
|
|
@ -40,7 +40,7 @@ type
|
|||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
DS_Main: TDataSource;
|
||||
TBExport: TToolButton;
|
||||
Order_Main: TClientDataSet;
|
||||
ToolButton1: TToolButton;
|
||||
|
|
@ -55,7 +55,7 @@ type
|
|||
RM1: TRMGridReport;
|
||||
RMDBMain: TRMDBDataSet;
|
||||
RMXLSExport2: TRMXLSExport;
|
||||
CDS_PRT: TClientDataSet;
|
||||
CDS_3: TClientDataSet;
|
||||
v1Column17: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
Label2: TLabel;
|
||||
|
|
@ -75,7 +75,7 @@ type
|
|||
v1filler: TcxGridDBColumn;
|
||||
Label4: TLabel;
|
||||
filler: TEdit;
|
||||
ClientDataSet1: TClientDataSet;
|
||||
CDS_2: TClientDataSet;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
v1Column10: TcxGridDBColumn;
|
||||
Label5: TLabel;
|
||||
|
|
@ -97,6 +97,63 @@ type
|
|||
Label9: TLabel;
|
||||
MYColor: TEdit;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
PageControl1: TPageControl;
|
||||
TabSheet1: TTabSheet;
|
||||
cxGrid2: TcxGrid;
|
||||
TV2: TcxGridDBTableView;
|
||||
TV2Ssel: TcxGridDBColumn;
|
||||
TV2KHName: TcxGridDBColumn;
|
||||
TV2KHNo: TcxGridDBColumn;
|
||||
TV2MYType: TcxGridDBColumn;
|
||||
TV2PS: TcxGridDBColumn;
|
||||
Tv2Qty: TcxGridDBColumn;
|
||||
TV2KgQty: TcxGridDBColumn;
|
||||
TV2Note: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
TabSheet2: TTabSheet;
|
||||
cxGrid3: TcxGrid;
|
||||
TV3: TcxGridDBTableView;
|
||||
TV3Ssel: TcxGridDBColumn;
|
||||
TV3MLOrderNo: TcxGridDBColumn;
|
||||
TV3KHCode: TcxGridDBColumn;
|
||||
TV3KHName: TcxGridDBColumn;
|
||||
TV3CRTime: TcxGridDBColumn;
|
||||
TV3PBBatchNo: TcxGridDBColumn;
|
||||
TV3GYSNo: TcxGridDBColumn;
|
||||
TV3KHNameJC: TcxGridDBColumn;
|
||||
TV3KHNameJCDH: TcxGridDBColumn;
|
||||
TV3MYType: TcxGridDBColumn;
|
||||
TV3MYName: TcxGridDBColumn;
|
||||
TV3MYColor: TcxGridDBColumn;
|
||||
TV3MYColorNo: TcxGridDBColumn;
|
||||
TV3filler: TcxGridDBColumn;
|
||||
TV3RCGangNo: TcxGridDBColumn;
|
||||
TV3JH: TcxGridDBColumn;
|
||||
TV3JKGQTY: TcxGridDBColumn;
|
||||
TV3JMQTY: TcxGridDBColumn;
|
||||
TV3MYMF: TcxGridDBColumn;
|
||||
TV3MYKZ: TcxGridDBColumn;
|
||||
TV3SJKZ: TcxGridDBColumn;
|
||||
TV3Note: TcxGridDBColumn;
|
||||
TV3RCColor: TcxGridDBColumn;
|
||||
TV3ZKZT: TcxGridDBColumn;
|
||||
TV3CDZSD: TcxGridDBColumn;
|
||||
TV3KW: TcxGridDBColumn;
|
||||
cxGridLevel2: TcxGridLevel;
|
||||
TabSheet3: TTabSheet;
|
||||
cxGrid4: TcxGrid;
|
||||
TV4: TcxGridDBTableView;
|
||||
TV4RCGangNo: TcxGridDBColumn;
|
||||
TV4JH: TcxGridDBColumn;
|
||||
TV4KgQty: TcxGridDBColumn;
|
||||
TV4MQty: TcxGridDBColumn;
|
||||
cxGridLevel4: TcxGridLevel;
|
||||
ADOQuery3: TADOQuery;
|
||||
ADOQuery2: TADOQuery;
|
||||
DS_2: TDataSource;
|
||||
DS_3: TDataSource;
|
||||
DS_Sub: TDataSource;
|
||||
CDS_Sub: TClientDataSet;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
|
|
@ -112,18 +169,21 @@ type
|
|||
procedure CustomerNoNameChange(Sender: TObject);
|
||||
procedure N2Click(Sender: TObject);
|
||||
procedure N1Click(Sender: TObject);
|
||||
procedure cxTabControl1Change(Sender: TObject);
|
||||
procedure ZJStatusChange(Sender: TObject);
|
||||
procedure Tv1DblClick(Sender: TObject);
|
||||
procedure v1Column1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
procedure v1Column17CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
procedure v1Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||||
private
|
||||
FGXName: string;
|
||||
DQdate: TDateTime;
|
||||
procedure InitGrid();
|
||||
procedure InitForm();
|
||||
function DelData(): Boolean;
|
||||
procedure InitGridByCustomer();
|
||||
procedure InitMXGrid();
|
||||
procedure InitSubGrid();
|
||||
{ Private declarations }
|
||||
public
|
||||
FFInt, FCloth: Integer;
|
||||
|
|
@ -211,11 +271,131 @@ begin
|
|||
end;
|
||||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||
InitSubGrid();
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLLCKList.InitGridByCustomer();
|
||||
begin
|
||||
try
|
||||
ADOQuery2.DisableControls;
|
||||
with ADOQuery2 do
|
||||
begin
|
||||
Filtered := False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add(' SELECT A.KHName,A.KHCode,A.MYType,SUM(A.PS) as PS,SUM(A.Qty) AS Qty,SUM(A.KgQty) AS KgQty ');
|
||||
sql.Add(' from CK_MYSC_CR A ');
|
||||
sql.Add(' where 1=1 ');
|
||||
if CheckBox1.Checked = False then
|
||||
begin
|
||||
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + '''');
|
||||
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + '''');
|
||||
BegDate.Visible := false;
|
||||
EndDate.Visible := false;
|
||||
end
|
||||
else
|
||||
begin
|
||||
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
|
||||
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
|
||||
BegDate.Visible := true;
|
||||
EndDate.Visible := true;
|
||||
end;
|
||||
sql.Add(' and isnull(A.CRType,'''')=''À´ÁÏÈë¿â'' ');
|
||||
sql.Add(' GROUP BY A.KHName, A.KHCode, A.MYType ');
|
||||
sql.Add(' ORDER BY MIN(A.CRTime),A.KHName');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQuery2, CDS_2);
|
||||
SInitCDSData20(ADOQuery2, CDS_2);
|
||||
finally
|
||||
ADOQuery2.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLLCKList.InitMXGrid();
|
||||
begin
|
||||
try
|
||||
ADOQuery3.DisableControls;
|
||||
with ADOQuery3 do
|
||||
begin
|
||||
Filtered := False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select AA.* ');
|
||||
sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')');
|
||||
sql.Add('from(');
|
||||
sql.Add(' select A.*,D.KGQTY as JKGQTY ,D.MQTY as JMQTY ,D.MXID,D.CDZSD,D.Fsubid,D.CMXID,D.ZKZT,D.JH,D.KW');
|
||||
sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B ');
|
||||
sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.GYSNo)');
|
||||
sql.Add(',KHNameJCDH=(select Top 1 B.KHNameJC from KH_Main B ');
|
||||
sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.ToGYSNo)');
|
||||
sql.Add(',KHNameHZZ=dbo.getpinyin(isnull(KM.KHNameJC,''''))+B.KHNO+isnull(KM.KHNameJC,'''')');
|
||||
sql.Add(',KHNameJCZ=KM.KHNameJC,B.MLOrderNo,KHNOKH=B.KHNO');
|
||||
sql.Add(' from CK_MYSC_CR A ');
|
||||
sql.Add(' left join CK_MYSC_CR_MX D on D.MYID=A.MYID');
|
||||
sql.Add(' left join ML_OrderMainNew B on A.MainId=B.NewMLID');
|
||||
sql.Add(' left join KH_Main KM on KM.KHNO=B.KHNO ');
|
||||
sql.Add(' where 1=1 ');
|
||||
|
||||
if CheckBox1.Checked = False then
|
||||
begin
|
||||
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + '''');
|
||||
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + '''');
|
||||
BegDate.Visible := false;
|
||||
EndDate.Visible := false;
|
||||
end
|
||||
else
|
||||
begin
|
||||
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
|
||||
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
|
||||
BegDate.Visible := true;
|
||||
EndDate.Visible := true;
|
||||
end;
|
||||
sql.Add(' and isnull(CRType,'''')=''À´ÁÏÈë¿â'' ');
|
||||
sql.Add(')AA');
|
||||
sql.Add(' order by AA.CRTime,AA.KHName');
|
||||
// ShowMessage(SQL.Text);
|
||||
Open;
|
||||
end;
|
||||
|
||||
SCreateCDS20(ADOQuery3, CDS_3);
|
||||
SInitCDSData20(ADOQuery3, CDS_3);
|
||||
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLLCKList.InitSubGrid();
|
||||
var
|
||||
MYID: string;
|
||||
begin
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
|
||||
try
|
||||
ADOQueryTemp.DisableControls;
|
||||
MYID := Order_Main.FieldByName('MYID').AsString;
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Filtered := False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('SELECT * FROM CK_MYSC_CR_MX WHERE MYID = ''' + MYID + '''');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp, CDS_Sub);
|
||||
SInitCDSData20(ADOQueryTemp, CDS_Sub);
|
||||
finally
|
||||
ADOQueryTemp.EnableControls;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmLLCKList.InitForm();
|
||||
var
|
||||
fsj: string;
|
||||
|
|
@ -223,18 +403,41 @@ begin
|
|||
BegDate.Date := StrToDate(formatdatetime('yyyy-MM', SGetServerDate(ADOQueryTemp)) + '-01');
|
||||
EndDate.Date := SGetServerDate(ADOQueryTemp);
|
||||
ReadCxGrid('¼Ó¹¤Âëµ¥', Tv1, 'óÒ×Éú²ú¹ÜÀí');
|
||||
fsj := 'select Name=ZDYName,Code=Null from KH_Zdy where Type=''JGGongXu'' ';
|
||||
SInitComBoxBySql(ADOQueryTemp, MYTypeFlag, False, fsj);
|
||||
|
||||
InitGrid();
|
||||
InitGridByCustomer();
|
||||
InitMXGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmLLCKList.TBFindClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
if ADOQueryMain.Active = False then
|
||||
Exit;
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||
Exit
|
||||
else
|
||||
begin
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||
end;
|
||||
|
||||
if ADOQuery1.Active = False then
|
||||
Exit
|
||||
else
|
||||
begin
|
||||
SDofilter(ADOQuery2, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQuery2, CDS_2);
|
||||
SInitCDSData20(ADOQuery2, CDS_2);
|
||||
end;
|
||||
|
||||
if ADOQuery3.Active = False then
|
||||
Exit
|
||||
else
|
||||
begin
|
||||
SDofilter(ADOQuery3, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQuery3, CDS_3);
|
||||
SInitCDSData20(ADOQuery3, CDS_3);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrmLLCKList.DelData(): Boolean;
|
||||
|
|
@ -285,6 +488,8 @@ end;
|
|||
procedure TfrmLLCKList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
InitGridByCustomer();
|
||||
InitMXGrid();
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
|
|
@ -298,7 +503,7 @@ begin
|
|||
FMainId := '';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid();
|
||||
TBRafresh.Click
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -313,7 +518,7 @@ end;
|
|||
|
||||
procedure TfrmLLCKList.CheckBox1Click(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
TBRafresh.Click
|
||||
end;
|
||||
|
||||
procedure TfrmLLCKList.CheckBox2Click(Sender: TObject);
|
||||
|
|
@ -352,6 +557,33 @@ begin
|
|||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||
|
||||
if ADOQueryMain.Active = False then
|
||||
Exit
|
||||
else
|
||||
begin
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||
end;
|
||||
|
||||
if ADOQuery2.Active = False then
|
||||
Exit
|
||||
else
|
||||
begin
|
||||
SDofilter(ADOQuery1, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQuery2, CDS_2);
|
||||
SInitCDSData20(ADOQuery2, CDS_2);
|
||||
end;
|
||||
|
||||
if ADOQuery3.Active = False then
|
||||
Exit
|
||||
else
|
||||
begin
|
||||
SDofilter(ADOQuery3, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQuery3, CDS_3);
|
||||
SInitCDSData20(ADOQuery3, CDS_3);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLLCKList.N2Click(Sender: TObject);
|
||||
|
|
@ -448,11 +680,6 @@ begin
|
|||
end; }
|
||||
end;
|
||||
|
||||
procedure TfrmLLCKList.cxTabControl1Change(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmLLCKList.ZJStatusChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
|
|
@ -499,5 +726,10 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLLCKList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||||
begin
|
||||
InitSubGrid();
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
|
|
@ -24,7 +24,19 @@ uses
|
|||
dxSkinSharpPlus, dxSkinSpringTime,
|
||||
dxSkinsDefaultPainters,
|
||||
|
||||
dxSkinscxPCPainter, BtnEdit, dxBarBuiltInMenu;
|
||||
dxSkinscxPCPainter, BtnEdit, dxBarBuiltInMenu, dxSkinBlack, dxSkinBlue,
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
|
||||
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
|
||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
|
||||
dxSkinWhiteprint, dxSkinXmas2008Blue;
|
||||
|
||||
type
|
||||
TfrmLLKCList = class(TForm)
|
||||
|
|
@ -40,7 +52,7 @@ type
|
|||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
DS_Main: TDataSource;
|
||||
TBExport: TToolButton;
|
||||
Order_Main: TClientDataSet;
|
||||
ToolButton1: TToolButton;
|
||||
|
|
@ -75,7 +87,7 @@ type
|
|||
Label4: TLabel;
|
||||
filler: TEdit;
|
||||
ToolButton2: TToolButton;
|
||||
ClientDataSet1: TClientDataSet;
|
||||
CDS_2: TClientDataSet;
|
||||
SpeedButton2: TSpeedButton;
|
||||
SpeedButton3: TSpeedButton;
|
||||
SpeedButton4: TSpeedButton;
|
||||
|
|
@ -150,6 +162,64 @@ type
|
|||
Button5: TButton;
|
||||
Button6: TButton;
|
||||
KW: TEdit;
|
||||
PageControl1: TPageControl;
|
||||
TabSheet1: TTabSheet;
|
||||
cxGrid2: TcxGrid;
|
||||
TV2: TcxGridDBTableView;
|
||||
TV2Ssel: TcxGridDBColumn;
|
||||
TV2KHName: TcxGridDBColumn;
|
||||
TV2KHNo: TcxGridDBColumn;
|
||||
TV2MYType: TcxGridDBColumn;
|
||||
TV2PS: TcxGridDBColumn;
|
||||
Tv2Qty: TcxGridDBColumn;
|
||||
TV2KgQty: TcxGridDBColumn;
|
||||
TV2Note: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
TabSheet2: TTabSheet;
|
||||
cxGrid3: TcxGrid;
|
||||
TV3: TcxGridDBTableView;
|
||||
TV3Ssel: TcxGridDBColumn;
|
||||
TV3MLOrderNo: TcxGridDBColumn;
|
||||
TV3KHCode: TcxGridDBColumn;
|
||||
TV3KHName: TcxGridDBColumn;
|
||||
TV3CRTime: TcxGridDBColumn;
|
||||
TV3PBBatchNo: TcxGridDBColumn;
|
||||
TV3GYSNo: TcxGridDBColumn;
|
||||
TV3KHNameJC: TcxGridDBColumn;
|
||||
TV3KHNameJCDH: TcxGridDBColumn;
|
||||
TV3MYType: TcxGridDBColumn;
|
||||
TV3MYName: TcxGridDBColumn;
|
||||
TV3MYColor: TcxGridDBColumn;
|
||||
TV3MYColorNo: TcxGridDBColumn;
|
||||
TV3filler: TcxGridDBColumn;
|
||||
TV3RCGangNo: TcxGridDBColumn;
|
||||
TV3JH: TcxGridDBColumn;
|
||||
TV3JKGQTY: TcxGridDBColumn;
|
||||
TV3JMQTY: TcxGridDBColumn;
|
||||
TV3MYMF: TcxGridDBColumn;
|
||||
TV3MYKZ: TcxGridDBColumn;
|
||||
TV3SJKZ: TcxGridDBColumn;
|
||||
TV3Note: TcxGridDBColumn;
|
||||
TV3RCColor: TcxGridDBColumn;
|
||||
TV3ZKZT: TcxGridDBColumn;
|
||||
TV3CDZSD: TcxGridDBColumn;
|
||||
TV3KW: TcxGridDBColumn;
|
||||
cxGridLevel2: TcxGridLevel;
|
||||
TabSheet3: TTabSheet;
|
||||
cxGrid4: TcxGrid;
|
||||
TV4: TcxGridDBTableView;
|
||||
TV4RCGangNo: TcxGridDBColumn;
|
||||
TV4JH: TcxGridDBColumn;
|
||||
TV4KgQty: TcxGridDBColumn;
|
||||
TV4MQty: TcxGridDBColumn;
|
||||
cxGridLevel4: TcxGridLevel;
|
||||
ADOQuery3: TADOQuery;
|
||||
ADOQuery2: TADOQuery;
|
||||
CDS_3: TClientDataSet;
|
||||
CDS_Sub: TClientDataSet;
|
||||
DS_2: TDataSource;
|
||||
DS_3: TDataSource;
|
||||
DS_Sub: TDataSource;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
|
|
@ -329,8 +399,6 @@ begin
|
|||
BegDate.Date := StrToDate(formatdatetime('yyyy-MM', SGetServerDate(ADOQueryTemp)) + '-01');
|
||||
EndDate.Date := SGetServerDate(ADOQueryTemp);
|
||||
ReadCxGrid('库存来料入库', Tv1, '库存贸易生产管理');
|
||||
fsj := 'select Name=ZDYName,Code=Null from KH_Zdy where Type=''JGGongXu'' ';
|
||||
SInitComBoxBySql(ADOQueryTemp, MYTypeFlag, False, fsj);
|
||||
SetStatus();
|
||||
InitGrid();
|
||||
end;
|
||||
|
|
@ -872,8 +940,8 @@ begin
|
|||
begin
|
||||
RMVariables['QRBARCODE'] := fImagePath;
|
||||
RM2.LoadFromFile(fPrintFile);
|
||||
//RM2.ShowReport;
|
||||
RM2.PrintReport;
|
||||
RM2.ShowReport;
|
||||
// RM2.PrintReport;
|
||||
end
|
||||
else
|
||||
begin
|
||||
|
|
|
|||
|
|
@ -199,7 +199,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 99
|
||||
Top = 11
|
||||
Width = 261
|
||||
Height = 31
|
||||
Height = 29
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -20
|
||||
|
|
@ -214,7 +214,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 479
|
||||
Top = 50
|
||||
Width = 179
|
||||
Height = 23
|
||||
Height = 21
|
||||
Color = clMenuBar
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
|
|
@ -231,7 +231,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 481
|
||||
Top = 11
|
||||
Width = 187
|
||||
Height = 30
|
||||
Height = 28
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -19
|
||||
|
|
@ -575,7 +575,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 99
|
||||
Top = 120
|
||||
Width = 272
|
||||
Height = 23
|
||||
Height = 21
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
|
|
@ -589,7 +589,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 465
|
||||
Top = 22
|
||||
Width = 40
|
||||
Height = 23
|
||||
Height = 21
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
|
|
@ -603,7 +603,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 554
|
||||
Top = 22
|
||||
Width = 71
|
||||
Height = 23
|
||||
Height = 21
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
|
|
@ -618,7 +618,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 663
|
||||
Top = 22
|
||||
Width = 71
|
||||
Height = 23
|
||||
Height = 21
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
|
|
@ -632,7 +632,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 467
|
||||
Top = 191
|
||||
Width = 40
|
||||
Height = 24
|
||||
Height = 23
|
||||
Color = clMenuBar
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlue
|
||||
|
|
@ -648,7 +648,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 553
|
||||
Top = 191
|
||||
Width = 71
|
||||
Height = 24
|
||||
Height = 23
|
||||
Color = clMenuBar
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlue
|
||||
|
|
@ -664,7 +664,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 662
|
||||
Top = 191
|
||||
Width = 71
|
||||
Height = 24
|
||||
Height = 23
|
||||
Color = clMenuBar
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlue
|
||||
|
|
@ -680,7 +680,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 467
|
||||
Top = 251
|
||||
Width = 40
|
||||
Height = 24
|
||||
Height = 23
|
||||
Color = clMenuBar
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
|
|
@ -696,7 +696,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 553
|
||||
Top = 251
|
||||
Width = 71
|
||||
Height = 24
|
||||
Height = 23
|
||||
Color = clMenuBar
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
|
|
@ -712,7 +712,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 662
|
||||
Top = 251
|
||||
Width = 71
|
||||
Height = 24
|
||||
Height = 23
|
||||
Color = clMenuBar
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
|
|
@ -761,7 +761,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 941
|
||||
Top = 64
|
||||
Width = 72
|
||||
Height = 23
|
||||
Height = 21
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
|
|
@ -776,7 +776,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 465
|
||||
Top = 116
|
||||
Width = 289
|
||||
Height = 30
|
||||
Height = 28
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -19
|
||||
|
|
@ -792,7 +792,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 99
|
||||
Top = 21
|
||||
Width = 60
|
||||
Height = 25
|
||||
Height = 23
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -15
|
||||
|
|
@ -808,7 +808,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 277
|
||||
Top = 20
|
||||
Width = 60
|
||||
Height = 25
|
||||
Height = 23
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -15
|
||||
|
|
@ -824,7 +824,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 99
|
||||
Top = 71
|
||||
Width = 60
|
||||
Height = 25
|
||||
Height = 23
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -15
|
||||
|
|
@ -840,7 +840,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 277
|
||||
Top = 71
|
||||
Width = 60
|
||||
Height = 25
|
||||
Height = 23
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -15
|
||||
|
|
@ -856,7 +856,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 465
|
||||
Top = 73
|
||||
Width = 59
|
||||
Height = 23
|
||||
Height = 21
|
||||
Color = clScrollBar
|
||||
Enabled = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -873,7 +873,7 @@ object frmLLRKInPut: TfrmLLRKInPut
|
|||
Left = 641
|
||||
Top = 71
|
||||
Width = 111
|
||||
Height = 25
|
||||
Height = 23
|
||||
TabOrder = 18
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -921,6 +921,7 @@ begin
|
|||
begin
|
||||
Parameters.ParamByName('KGQty').Value := Null;
|
||||
end;
|
||||
|
||||
if Trim(MXHZQty.Text) <> '0' then
|
||||
begin
|
||||
Parameters.ParamByName('MQty').Value := FM;
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
|
|
@ -13,20 +13,19 @@ uses
|
|||
cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent,
|
||||
IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
|
||||
|
||||
dxSkinDarkRoom,
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
dxSkinOffice2013White,
|
||||
dxSkinSharpPlus,
|
||||
dxSkinSpringTime,
|
||||
dxSkinsDefaultPainters,
|
||||
dxSkinscxPCPainter;
|
||||
dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime,
|
||||
dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue,
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||
dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver,
|
||||
dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine,
|
||||
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
|
||||
|
||||
type
|
||||
TfrmLLRKList = class(TForm)
|
||||
|
|
@ -42,10 +41,10 @@ type
|
|||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
DS_Main: TDataSource;
|
||||
TBExport: TToolButton;
|
||||
Order_Main: TClientDataSet;
|
||||
ToolButton1: TToolButton;
|
||||
TbLook: TToolButton;
|
||||
Panel1: TPanel;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
Label34: TLabel;
|
||||
|
|
@ -140,6 +139,64 @@ type
|
|||
Filler: TComboBox;
|
||||
ADOQuery1: TADOQuery;
|
||||
ADOQuery2: TADOQuery;
|
||||
PageControl1: TPageControl;
|
||||
TabSheet1: TTabSheet;
|
||||
TabSheet2: TTabSheet;
|
||||
TabSheet3: TTabSheet;
|
||||
cxGrid2: TcxGrid;
|
||||
TV2: TcxGridDBTableView;
|
||||
TV2Ssel: TcxGridDBColumn;
|
||||
TV2MYType: TcxGridDBColumn;
|
||||
TV2KHName: TcxGridDBColumn;
|
||||
TV2PS: TcxGridDBColumn;
|
||||
TV2KgQty: TcxGridDBColumn;
|
||||
Tv2Qty: TcxGridDBColumn;
|
||||
TV2Note: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
cxGrid3: TcxGrid;
|
||||
TV3: TcxGridDBTableView;
|
||||
TV3Ssel: TcxGridDBColumn;
|
||||
TV3CRTime: TcxGridDBColumn;
|
||||
TV3MYType: TcxGridDBColumn;
|
||||
TV3KHName: TcxGridDBColumn;
|
||||
TV3KHNameJC: TcxGridDBColumn;
|
||||
TV3MYName: TcxGridDBColumn;
|
||||
TV3MYColor: TcxGridDBColumn;
|
||||
TV3MYColorNo: TcxGridDBColumn;
|
||||
TV3SJKZ: TcxGridDBColumn;
|
||||
TV3Note: TcxGridDBColumn;
|
||||
cxGridLevel2: TcxGridLevel;
|
||||
DS_2: TDataSource;
|
||||
DS_3: TDataSource;
|
||||
CDS_2: TClientDataSet;
|
||||
CDS_3: TClientDataSet;
|
||||
DS_Sub: TDataSource;
|
||||
CDS_Sub: TClientDataSet;
|
||||
TV2KHNo: TcxGridDBColumn;
|
||||
TV3MLOrderNo: TcxGridDBColumn;
|
||||
TV3KHCode: TcxGridDBColumn;
|
||||
TV3PBBatchNo: TcxGridDBColumn;
|
||||
TV3GYSNo: TcxGridDBColumn;
|
||||
TV3KHNameJCDH: TcxGridDBColumn;
|
||||
TV3RCGangNo: TcxGridDBColumn;
|
||||
TV3filler: TcxGridDBColumn;
|
||||
TV3JH: TcxGridDBColumn;
|
||||
TV3JKGQTY: TcxGridDBColumn;
|
||||
TV3JMQTY: TcxGridDBColumn;
|
||||
TV3MYMF: TcxGridDBColumn;
|
||||
TV3MYKZ: TcxGridDBColumn;
|
||||
TV3RCColor: TcxGridDBColumn;
|
||||
TV3ZKZT: TcxGridDBColumn;
|
||||
TV3CDZSD: TcxGridDBColumn;
|
||||
TV3KW: TcxGridDBColumn;
|
||||
cxGrid4: TcxGrid;
|
||||
TV4: TcxGridDBTableView;
|
||||
cxGridLevel3: TcxGridLevel;
|
||||
TV4RCGangNo: TcxGridDBColumn;
|
||||
TV4JH: TcxGridDBColumn;
|
||||
TV4KgQty: TcxGridDBColumn;
|
||||
TV4MQty: TcxGridDBColumn;
|
||||
ADOQuery3: TADOQuery;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
|
|
@ -149,13 +206,10 @@ type
|
|||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure TBAddClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CheckBox1Click(Sender: TObject);
|
||||
procedure CheckBox2Click(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure TbLookClick(Sender: TObject);
|
||||
procedure CustomerNoNameChange(Sender: TObject);
|
||||
procedure N2Click(Sender: TObject);
|
||||
procedure N1Click(Sender: TObject);
|
||||
procedure cxTabControl1Change(Sender: TObject);
|
||||
procedure ZJStatusChange(Sender: TObject);
|
||||
procedure Tv1DblClick(Sender: TObject);
|
||||
procedure Image2Click(Sender: TObject);
|
||||
|
|
@ -192,6 +246,8 @@ type
|
|||
procedure Button5Click(Sender: TObject);
|
||||
procedure Button6Click(Sender: TObject);
|
||||
procedure N9Click(Sender: TObject);
|
||||
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||||
procedure CheckBox1Click(Sender: TObject);
|
||||
private
|
||||
canshu1: string;
|
||||
DQdate: TDateTime;
|
||||
|
|
@ -199,6 +255,10 @@ type
|
|||
procedure InitForm();
|
||||
function DelData(): Boolean;
|
||||
procedure Initimage();
|
||||
procedure InitFiller();
|
||||
procedure InitGridByCustomer();
|
||||
procedure InitMXGrid();
|
||||
procedure InitSubGrid();
|
||||
{ Private declarations }
|
||||
public
|
||||
FFInt, FCloth: Integer;
|
||||
|
|
@ -289,7 +349,7 @@ begin
|
|||
sql.Add(',PJKG=cast((case when isnull(PS,0)<>0 then KgQty/PS else 0 end) as decimal(18,1))');
|
||||
SQL.Add(',KHNameQC=(select Top 1 B.KHName from KH_Main B ');
|
||||
sql.add(' where isnull(KHFlag,'''')=''KH'' and isnull(B.Valid,'''')=''Y'' and B.KHNameJC=A.KHName)');
|
||||
sql.add(',IFFZ=(select Count(B.WBID) from TP_File B where B.WBID=A.MYID and B.TFType=''À´ÁÏÈë¿â'')');
|
||||
sql.add(',IFFZ=(select Count(C.WBID) from TP_File C where C.WBID=A.MYID and C.TFType=''来料入库'')');
|
||||
sql.Add(' from CK_MYSC_CR A ');
|
||||
sql.Add(' where 1=1 ');
|
||||
if CheckBox1.Checked = False then
|
||||
|
|
@ -307,16 +367,141 @@ begin
|
|||
EndDate.Visible := true;
|
||||
end;
|
||||
sql.Add(' and isnull(CRType,'''')=''来料入库'' ');
|
||||
sql.Add(' order by A.CRTime');
|
||||
sql.Add(' order by A.CRTime,A.KHName');
|
||||
Open;
|
||||
end;
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||
TBFind.Click;
|
||||
InitSubGrid();
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLLRKList.InitGridByCustomer();
|
||||
begin
|
||||
try
|
||||
ADOQuery1.DisableControls;
|
||||
with ADOQuery1 do
|
||||
begin
|
||||
Filtered := False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add(' SELECT A.KHName,A.KHCode,A.MYType,SUM(A.PS) as PS,SUM(A.Qty) AS Qty,SUM(A.KgQty) AS KgQty ');
|
||||
sql.Add(' from CK_MYSC_CR A ');
|
||||
sql.Add(' where 1=1 ');
|
||||
if CheckBox1.Checked = False then
|
||||
begin
|
||||
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + '''');
|
||||
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + '''');
|
||||
BegDate.Visible := false;
|
||||
EndDate.Visible := false;
|
||||
end
|
||||
else
|
||||
begin
|
||||
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
|
||||
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
|
||||
BegDate.Visible := true;
|
||||
EndDate.Visible := true;
|
||||
end;
|
||||
sql.Add(' and isnull(A.CRType,'''')=''来料入库'' ');
|
||||
sql.Add(' GROUP BY A.KHName, A.KHCode, A.MYType ');
|
||||
sql.Add(' ORDER BY MIN(A.CRTime),A.KHName');
|
||||
Open;
|
||||
end;
|
||||
SDofilter(ADOQuery1, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQuery1, CDS_2);
|
||||
SInitCDSData20(ADOQuery1, CDS_2);
|
||||
finally
|
||||
ADOQuery1.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLLRKList.InitMXGrid();
|
||||
begin
|
||||
try
|
||||
ADOQuery3.DisableControls;
|
||||
with ADOQuery3 do
|
||||
begin
|
||||
Filtered := False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select AA.* ');
|
||||
sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')');
|
||||
sql.Add('from(');
|
||||
sql.Add(' select A.*,D.KGQTY as JKGQTY ,D.MQTY as JMQTY ,D.MXID,D.CDZSD,D.Fsubid,D.CMXID,D.ZKZT,D.JH,D.KW');
|
||||
sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B ');
|
||||
sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.GYSNo)');
|
||||
sql.Add(',KHNameJCDH=(select Top 1 B.KHNameJC from KH_Main B ');
|
||||
sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.ToGYSNo)');
|
||||
sql.Add(',KHNameHZZ=dbo.getpinyin(isnull(KM.KHNameJC,''''))+B.KHNO+isnull(KM.KHNameJC,'''')');
|
||||
sql.Add(',KHNameJCZ=KM.KHNameJC,B.MLOrderNo,KHNOKH=B.KHNO');
|
||||
sql.Add(' from CK_MYSC_CR A ');
|
||||
sql.Add(' left join CK_MYSC_CR_MX D on D.MYID=A.MYID');
|
||||
sql.Add(' left join ML_OrderMainNew B on A.MainId=B.NewMLID');
|
||||
sql.Add(' left join KH_Main KM on KM.KHNO=B.KHNO ');
|
||||
sql.Add(' where 1=1 ');
|
||||
|
||||
if CheckBox1.Checked = False then
|
||||
begin
|
||||
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + '''');
|
||||
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + '''');
|
||||
BegDate.Visible := false;
|
||||
EndDate.Visible := false;
|
||||
end
|
||||
else
|
||||
begin
|
||||
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
|
||||
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
|
||||
BegDate.Visible := true;
|
||||
EndDate.Visible := true;
|
||||
end;
|
||||
sql.Add(' and isnull(CRType,'''')=''来料入库'' ');
|
||||
sql.Add(')AA');
|
||||
sql.Add(' order by AA.CRTime,AA.KHName');
|
||||
// ShowMessage(SQL.Text);
|
||||
Open;
|
||||
end;
|
||||
|
||||
SDofilter(ADOQuery3, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQuery3, CDS_3);
|
||||
SInitCDSData20(ADOQuery3, CDS_3);
|
||||
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLLRKList.InitSubGrid();
|
||||
var
|
||||
MYID: string;
|
||||
begin
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
|
||||
try
|
||||
ADOQueryTemp.DisableControls;
|
||||
MYID := Order_Main.FieldByName('MYID').AsString;
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Filtered := False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('SELECT * FROM CK_MYSC_CR_MX WHERE MYID = ''' + MYID + '''');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp, CDS_Sub);
|
||||
SInitCDSData20(ADOQueryTemp, CDS_Sub);
|
||||
finally
|
||||
ADOQueryTemp.EnableControls;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmLLRKList.InitFiller();
|
||||
begin
|
||||
with ADOQuery2 do
|
||||
begin
|
||||
Filtered := False;
|
||||
|
|
@ -324,6 +509,7 @@ begin
|
|||
sql.Clear;
|
||||
sql.add(' select DISTINCT A.filler AS Name');
|
||||
sql.Add(' from CK_MYSC_CR A where 1=1 ');
|
||||
|
||||
if CheckBox1.Checked = False then
|
||||
begin
|
||||
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + '''');
|
||||
|
|
@ -359,15 +545,39 @@ begin
|
|||
EndDate.Date := SGetServerDate(ADOQueryTemp);
|
||||
ReadCxGrid('来料入库111', Tv1, '贸易生产管理');
|
||||
InitGrid();
|
||||
InitFiller();
|
||||
InitGridByCustomer();
|
||||
InitMXGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmLLRKList.TBFindClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active = False then
|
||||
Exit;
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||
Exit
|
||||
else
|
||||
begin
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||
end;
|
||||
|
||||
if ADOQuery1.Active = False then
|
||||
Exit
|
||||
else
|
||||
begin
|
||||
SDofilter(ADOQuery1, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQuery1, CDS_2);
|
||||
SInitCDSData20(ADOQuery1, CDS_2);
|
||||
end;
|
||||
|
||||
if ADOQuery3.Active = False then
|
||||
Exit
|
||||
else
|
||||
begin
|
||||
SDofilter(ADOQuery3, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQuery3, CDS_3);
|
||||
SInitCDSData20(ADOQuery3, CDS_3);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrmLLRKList.DelData(): Boolean;
|
||||
|
|
@ -415,6 +625,8 @@ end;
|
|||
procedure TfrmLLRKList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
InitMXGrid();
|
||||
InitGridByCustomer();
|
||||
end;
|
||||
|
||||
procedure TfrmLLRKList.TBAddClick(Sender: TObject);
|
||||
|
|
@ -427,17 +639,7 @@ begin
|
|||
InitForm();
|
||||
end;
|
||||
|
||||
procedure TfrmLLRKList.CheckBox1Click(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmLLRKList.CheckBox2Click(Sender: TObject);
|
||||
begin
|
||||
TBRafresh.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmLLRKList.ToolButton1Click(Sender: TObject);
|
||||
procedure TfrmLLRKList.TbLookClick(Sender: TObject);
|
||||
var
|
||||
FFMYType: string;
|
||||
begin
|
||||
|
|
@ -455,7 +657,7 @@ begin
|
|||
frmLLRKInPut.TBSave.Visible := False;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid();
|
||||
// TBRafresh.Click;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -476,7 +678,7 @@ begin
|
|||
FML := '底布';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid();
|
||||
// TBRafresh.Click;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -497,7 +699,7 @@ begin
|
|||
FML := '棉';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid();
|
||||
// TBRafresh.Click;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -518,7 +720,7 @@ begin
|
|||
FML := '无纺布';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid();
|
||||
// TBRafresh.Click;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -539,7 +741,7 @@ begin
|
|||
FML := '线';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid();
|
||||
// TBRafresh.Click;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -551,10 +753,32 @@ end;
|
|||
procedure TfrmLLRKList.CustomerNoNameChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active = False then
|
||||
Exit;
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||
Exit
|
||||
else
|
||||
begin
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||
end;
|
||||
|
||||
if ADOQuery1.Active = False then
|
||||
Exit
|
||||
else
|
||||
begin
|
||||
SDofilter(ADOQuery1, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQuery1, CDS_2);
|
||||
SInitCDSData20(ADOQuery1, CDS_2);
|
||||
end;
|
||||
|
||||
if ADOQuery3.Active = False then
|
||||
Exit
|
||||
else
|
||||
begin
|
||||
SDofilter(ADOQuery3, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQuery3, CDS_3);
|
||||
SInitCDSData20(ADOQuery3, CDS_3);
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmLLRKList.N2Click(Sender: TObject);
|
||||
|
|
@ -618,7 +842,7 @@ begin
|
|||
FML := '面料';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid();
|
||||
TBRafresh.Click;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -638,7 +862,7 @@ begin
|
|||
FML := '底布';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid();
|
||||
TBRafresh.Click;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -658,7 +882,7 @@ begin
|
|||
FML := '棉';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid();
|
||||
TBRafresh.Click;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -678,7 +902,7 @@ begin
|
|||
FML := '无纺布';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid();
|
||||
TBRafresh.Click;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -698,7 +922,7 @@ begin
|
|||
FML := '线';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid();
|
||||
TBRafresh.Click;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -707,11 +931,6 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLLRKList.cxTabControl1Change(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmLLRKList.ZJStatusChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
|
|
@ -725,7 +944,7 @@ begin
|
|||
Initimage();
|
||||
end
|
||||
else
|
||||
ToolButton1.Click;
|
||||
TbLook.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmLLRKList.Image2Click(Sender: TObject);
|
||||
|
|
@ -1581,5 +1800,15 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLLRKList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||||
begin
|
||||
InitSubGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmLLRKList.CheckBox1Click(Sender: TObject);
|
||||
begin
|
||||
TBRafresh.Click;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
object frmLLRKMXInPut: TfrmLLRKMXInPut
|
||||
Left = 477
|
||||
Left = 478
|
||||
Top = 184
|
||||
Width = 1349
|
||||
Height = 653
|
||||
|
|
|
|||
|
|
@ -25,7 +25,19 @@ uses
|
|||
dxSkinSharpPlus, dxSkinSpringTime,
|
||||
dxSkinsDefaultPainters,
|
||||
|
||||
dxSkinscxPCPainter, cxNavigator;
|
||||
dxSkinscxPCPainter, cxNavigator, dxSkinBlack, dxSkinBlue,
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
|
||||
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
|
||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
|
||||
dxSkinWhiteprint, dxSkinXmas2008Blue;
|
||||
|
||||
type
|
||||
TfrmLLRKMXInPut = class(TForm)
|
||||
|
|
|
|||
|
|
@ -132,7 +132,7 @@ type
|
|||
procedure SaveImage(maxnoWB: string; FIMNO: string);
|
||||
procedure ReadINIFile10();
|
||||
function SaveData(): Boolean;
|
||||
function BJData(): Boolean;
|
||||
function BJData(maxno: string): Boolean;
|
||||
function StrFenHang(FStr: string; var FHStr: string): Boolean;
|
||||
{ Private declarations }
|
||||
public
|
||||
|
|
@ -153,9 +153,9 @@ uses
|
|||
|
||||
{$R *.dfm}
|
||||
|
||||
function TfrmZHCPInPut.BJData(): Boolean;
|
||||
function TfrmZHCPInPut.BJData(maxno: string): Boolean;
|
||||
var
|
||||
BJmaxno, BJmaxmxno, FMXID, FBaoJia, FZIID, FZIIDAdd, FAdd, FZIIDYS: string;
|
||||
BJmaxmxno, FMXID, FBaoJia, FZIID, FZIIDAdd, FAdd, FZIIDYS: string;
|
||||
FXH: Integer;
|
||||
FDate: TDateTime;
|
||||
begin
|
||||
|
|
@ -206,14 +206,13 @@ begin
|
|||
FieldByName('Filler').Value := Trim(DName);
|
||||
FieldByName('FillerCode').Value := Trim(DCode);
|
||||
FieldByName('Valid').Value := 'Y';
|
||||
FieldByName('ZIID').Value := Trim(FMainId);
|
||||
FieldByName('ZIID').Value := maxno;
|
||||
FieldByName('ZIName').Value := Trim(ZIName.text);
|
||||
FieldByName('ZIMF').Value := Trim(ZIMF.text);
|
||||
FieldByName('ZIKZ').Value := Trim(ZIKZ.text);
|
||||
FieldByName('ZICF').Value := Trim(ZICF.text);
|
||||
FieldByName('ZICL').Value := Trim(ZICL.text);
|
||||
FieldByName('ZIIDYS').Value := Trim(FMainId);
|
||||
FieldByName('ZDID').Value := Trim(BJmaxno);
|
||||
FieldByName('ZIIDYS').Value := maxno;
|
||||
FieldByName('ZCID').Value := Trim(BJmaxmxno);
|
||||
// FieldByName('CPFiller').Value := Trim(DName);
|
||||
FieldByName('LeiBie').Value := '되션湳';
|
||||
|
|
@ -267,7 +266,8 @@ begin
|
|||
sql.Add(' and isnull(A.IMNo,'''')=''코휭'' and A.Valid=''Y'' ');
|
||||
Open;
|
||||
end;
|
||||
if adoqueryPicture.IsEmpty = False then
|
||||
|
||||
if (adoqueryPicture.IsEmpty = False) and (CopyInt <> 99) then
|
||||
begin
|
||||
FStr := Trim(adoqueryPicture.fieldbyname('ImageName').AsString);
|
||||
Edit1.Text := Copy(FStr, 1, Length(FStr) - 4);
|
||||
|
|
@ -299,7 +299,8 @@ begin
|
|||
sql.Add(' and isnull(A.IMNo,''暠튬'')=''暠튬'' and A.Valid=''Y'' ');
|
||||
Open;
|
||||
end;
|
||||
if adoqueryPicture.IsEmpty = False then
|
||||
|
||||
if (adoqueryPicture.IsEmpty = False) and (CopyInt <> 99) then
|
||||
begin
|
||||
FStr := Trim(adoqueryPicture.fieldbyname('ImageName').AsString);
|
||||
Edit2.Text := Copy(FStr, 1, Length(FStr) - 4);
|
||||
|
|
@ -321,6 +322,7 @@ begin
|
|||
end;
|
||||
Image2.Visible := True;
|
||||
end;
|
||||
|
||||
if TBSave.Visible = False then
|
||||
begin
|
||||
Button1.Visible := False;
|
||||
|
|
@ -332,6 +334,13 @@ begin
|
|||
ZIGY.Color := ZIID.Color;
|
||||
Note.Color := ZIID.Color;
|
||||
end;
|
||||
|
||||
if CopyInt = 99 then
|
||||
begin
|
||||
PState := 0;
|
||||
FMainId := '';
|
||||
ZIID.Text := ''
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmZHCPInPut.FormShow(Sender: TObject);
|
||||
|
|
@ -380,6 +389,7 @@ begin
|
|||
SQL.Add('select * from ZH_CP_Info where ZIId=''' + Trim(maxno) + '''');
|
||||
Open;
|
||||
end;
|
||||
|
||||
with ADOCmd do
|
||||
begin
|
||||
if Trim(FMainId) = '' then
|
||||
|
|
@ -392,6 +402,7 @@ begin
|
|||
Edit;
|
||||
end;
|
||||
FieldByName('ZIId').Value := Trim(maxno);
|
||||
|
||||
if Trim(FMainId) = '' then
|
||||
begin
|
||||
FieldByName('ZIIdYS').Value := Trim(maxno);
|
||||
|
|
@ -411,7 +422,7 @@ begin
|
|||
FieldByName('HXNM').Value := Trim(HXNO.TxtCode);
|
||||
Post;
|
||||
end;
|
||||
FMainId := Trim(maxno);
|
||||
|
||||
if Trim(Image1.Hint) <> '' then
|
||||
begin
|
||||
SaveImage(maxno, '코휭');
|
||||
|
|
@ -422,7 +433,7 @@ begin
|
|||
end;
|
||||
if trim(FZIType) <> '데충죕' then
|
||||
begin
|
||||
if not BJData() then
|
||||
if not BJData(maxno) then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('괏닸嫩끽!', '瓊刻', 0);
|
||||
|
|
@ -920,7 +931,8 @@ begin
|
|||
Image22.Picture.Assign(Bitmap22);
|
||||
Image2.Visible := True;
|
||||
Edit2.Text := Copy(Image2.Hint, 1, Length(Image2.Hint) - 4);
|
||||
ZIName.Text := Edit2.Text;
|
||||
if CopyInt <> 99 then
|
||||
ZIName.Text := Edit2.Text;
|
||||
Panel1.Visible := False;
|
||||
end;
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmZHCPList: TfrmZHCPList
|
||||
Left = 238
|
||||
Top = 137
|
||||
Left = 312
|
||||
Top = 325
|
||||
Width = 1556
|
||||
Height = 857
|
||||
Caption = #20844#21496#20135#21697#31649#29702
|
||||
|
|
@ -63,16 +63,23 @@ object frmZHCPList: TfrmZHCPList
|
|||
Visible = False
|
||||
OnClick = TBAddClick
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
object TbCopy: TToolButton
|
||||
Left = 207
|
||||
Top = 0
|
||||
Caption = #22797#21046
|
||||
ImageIndex = 25
|
||||
OnClick = TbCopyClick
|
||||
end
|
||||
object TbLook: TToolButton
|
||||
Left = 272
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26597#30475
|
||||
ImageIndex = 55
|
||||
OnClick = ToolButton1Click
|
||||
OnClick = TbLookClick
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 276
|
||||
Left = 341
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
|
|
@ -80,7 +87,7 @@ object frmZHCPList: TfrmZHCPList
|
|||
OnClick = ToolButton4Click
|
||||
end
|
||||
object Panel3: TPanel
|
||||
Left = 345
|
||||
Left = 410
|
||||
Top = 0
|
||||
Width = 113
|
||||
Height = 30
|
||||
|
|
@ -104,7 +111,7 @@ object frmZHCPList: TfrmZHCPList
|
|||
end
|
||||
end
|
||||
object Panel8: TPanel
|
||||
Left = 458
|
||||
Left = 523
|
||||
Top = 0
|
||||
Width = 115
|
||||
Height = 30
|
||||
|
|
@ -161,7 +168,7 @@ object frmZHCPList: TfrmZHCPList
|
|||
end
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 573
|
||||
Left = 638
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
|
|
@ -170,7 +177,7 @@ object frmZHCPList: TfrmZHCPList
|
|||
OnClick = TBExportClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 642
|
||||
Left = 707
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
|
|
|
|||
|
|
@ -43,7 +43,7 @@ type
|
|||
DataSource1: TDataSource;
|
||||
TBExport: TToolButton;
|
||||
Order_Main: TClientDataSet;
|
||||
ToolButton1: TToolButton;
|
||||
TbLook: TToolButton;
|
||||
Panel11: TPanel;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v1Column7: TcxGridDBColumn;
|
||||
|
|
@ -143,6 +143,7 @@ type
|
|||
DiBu: TEdit;
|
||||
SpeedButton7: TSpeedButton;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
TbCopy: TToolButton;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
|
|
@ -154,7 +155,7 @@ type
|
|||
procedure FormShow(Sender: TObject);
|
||||
procedure CheckBox1Click(Sender: TObject);
|
||||
procedure CheckBox2Click(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure TbLookClick(Sender: TObject);
|
||||
procedure CustomerNoNameChange(Sender: TObject);
|
||||
procedure TBDelClick(Sender: TObject);
|
||||
procedure cxTabControl1Change(Sender: TObject);
|
||||
|
|
@ -175,6 +176,7 @@ type
|
|||
procedure SpeedButton3Click(Sender: TObject);
|
||||
procedure SpeedButton5Click(Sender: TObject);
|
||||
procedure SpeedButton7Click(Sender: TObject);
|
||||
procedure TbCopyClick(Sender: TObject);
|
||||
private
|
||||
canshu1: string;
|
||||
DQdate: TDateTime;
|
||||
|
|
@ -272,21 +274,21 @@ end;
|
|||
|
||||
procedure TfrmZHCPList.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
if Trim(Self.Caption) = '展会产品录入(高)*' then
|
||||
if Trim(Self.Caption) = '公司产品录入(高)*' then
|
||||
begin
|
||||
WriteCxGrid('展会产品录入(高)', Tv1, '展会产品管理');
|
||||
WriteCxGrid('公司产品录入(高)', Tv1, '公司产品管理');
|
||||
end
|
||||
else if Trim(Self.Caption) = '展会产品录入*' then
|
||||
else if Trim(Self.Caption) = '公司产品录入*' then
|
||||
begin
|
||||
WriteCxGrid('展会产品录入', Tv1, '展会产品管理');
|
||||
WriteCxGrid('公司产品录入', Tv1, '公司产品管理');
|
||||
end
|
||||
else if Trim(Self.Caption) = '展会产品查询*' then
|
||||
else if Trim(Self.Caption) = '公司产品查询*' then
|
||||
begin
|
||||
WriteCxGrid('展会产品查询', Tv1, '展会产品管理');
|
||||
WriteCxGrid('公司产品查询', Tv1, '公司产品管理');
|
||||
end
|
||||
else if Trim(Self.Caption) = '挂钩库存查询*' then
|
||||
begin
|
||||
WriteCxGrid('挂钩库存查询', Tv1, '展会产品管理');
|
||||
WriteCxGrid('挂钩库存查询', Tv1, '公司产品管理');
|
||||
end;
|
||||
Close;
|
||||
end;
|
||||
|
|
@ -511,14 +513,14 @@ begin
|
|||
EndDate.Date := SGetServerDate(ADOQueryTemp);
|
||||
if Trim(Self.Caption) = '公司产品录入(高)*' then
|
||||
begin
|
||||
ReadCxGrid('展会产品录入(高)', Tv1, '展会产品管理');
|
||||
ReadCxGrid('公司产品录入(高)', Tv1, '公司产品管理');
|
||||
TBAdd.Visible := True;
|
||||
TBEdit.Visible := True;
|
||||
TBDel.Visible := True;
|
||||
end
|
||||
else if Trim(Self.Caption) = '公司产品录入*' then
|
||||
begin
|
||||
ReadCxGrid('展会产品录入', Tv1, '展会产品管理');
|
||||
ReadCxGrid('公司产品录入', Tv1, '公司产品管理');
|
||||
TBAdd.Visible := True;
|
||||
TBEdit.Visible := True;
|
||||
v1ZICost.Visible := False;
|
||||
|
|
@ -526,17 +528,19 @@ begin
|
|||
end
|
||||
else if Trim(Self.Caption) = '公司产品查询*' then
|
||||
begin
|
||||
ReadCxGrid('展会产品查询', Tv1, '展会产品管理');
|
||||
ReadCxGrid('公司产品查询', Tv1, '公司产品管理');
|
||||
v1ZICost.Visible := False;
|
||||
v1ZICost.Hidden := True;
|
||||
TbCopy.Visible := False;
|
||||
end
|
||||
else if Trim(Self.Caption) = '挂钩库存查询*' then
|
||||
begin
|
||||
ReadCxGrid('挂钩库存查询', Tv1, '展会产品管理');
|
||||
ReadCxGrid('挂钩库存查询', Tv1, '公司产品管理');
|
||||
v1ZICost.Visible := False;
|
||||
v1ZICost.Hidden := True;
|
||||
canshu1 := '库存';
|
||||
Panel5.Visible := False;
|
||||
TbCopy.Visible := False;
|
||||
end;
|
||||
//InitGrid();
|
||||
end;
|
||||
|
|
@ -719,7 +723,7 @@ begin
|
|||
TBRafresh.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmZHCPList.ToolButton1Click(Sender: TObject);
|
||||
procedure TfrmZHCPList.TbLookClick(Sender: TObject);
|
||||
begin
|
||||
if Order_Main.IsEmpty then
|
||||
Exit;
|
||||
|
|
@ -790,7 +794,7 @@ end;
|
|||
|
||||
procedure TfrmZHCPList.Tv1DblClick(Sender: TObject);
|
||||
begin
|
||||
ToolButton1.Click;
|
||||
TbLook.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmZHCPList.v1Column2PropertiesEditValueChanged(Sender: TObject);
|
||||
|
|
@ -1611,5 +1615,37 @@ begin
|
|||
Order_Main.EnableControls;
|
||||
end;
|
||||
|
||||
procedure TfrmZHCPList.TbCopyClick(Sender: TObject);
|
||||
begin
|
||||
if Order_Main.IsEmpty then
|
||||
Exit;
|
||||
|
||||
// if not assigned(frmZHCPInPut) then
|
||||
// begin
|
||||
try
|
||||
frmZHCPInPut := TfrmZHCPInPut.Create(Application);
|
||||
with frmZHCPInPut do
|
||||
begin
|
||||
PState := 1;
|
||||
CopyInt := 99;
|
||||
FZIType := Trim(Self.Order_Main.fieldbyname('ZIType').AsString);
|
||||
FMainId := Trim(Self.Order_Main.fieldbyname('ZIID').AsString);
|
||||
// Show;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZHCPInPut.Free;
|
||||
end;
|
||||
// end
|
||||
// else
|
||||
// begin
|
||||
// frmZHCPInPut.WindowState := wsMaximized;
|
||||
// frmZHCPInPut.Show;
|
||||
// end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user