1211 lines
43 KiB
ObjectPascal
1211 lines
43 KiB
ObjectPascal
unit U_ClothSCList;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
|
|
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
|
|
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
|
|
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
|
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
|
|
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels,
|
|
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, 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, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
|
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
|
|
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
|
|
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
|
|
dxSkinscxPCPainter, jpeg, U_SLT, dxBarBuiltInMenu, cxPC, cxCheckBox;
|
|
|
|
type
|
|
FdDy = record
|
|
inc: integer; //客户端套接字句柄
|
|
FDdys: string[32]; //客户端套接字
|
|
FdDysName: string[32]; //客户端套接字
|
|
end;
|
|
|
|
type
|
|
TfrmClothSCList = class(TForm)
|
|
ToolBar1: TToolBar;
|
|
TBRafresh: TToolButton;
|
|
TBFind: TToolButton;
|
|
TBAdd: TToolButton;
|
|
TBEdit: TToolButton;
|
|
TBDel: TToolButton;
|
|
TBPrint: TToolButton;
|
|
TBClose: TToolButton;
|
|
Panel1: TPanel;
|
|
BegDate: TDateTimePicker;
|
|
EndDate: TDateTimePicker;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
|
ADOQueryCmd: TADOQuery;
|
|
ADOQueryMain: TADOQuery;
|
|
ADOQueryTemp: TADOQuery;
|
|
DataSource1: TDataSource;
|
|
Label3: TLabel;
|
|
ConNo: TEdit;
|
|
Label5: TLabel;
|
|
C_CodeName: TEdit;
|
|
TBExport: TToolButton;
|
|
Order_Main: TClientDataSet;
|
|
RM1: TRMGridReport;
|
|
RMXLSExport1: TRMXLSExport;
|
|
CDS_PRT: TClientDataSet;
|
|
cxGrid1: TcxGrid;
|
|
Tv1: TcxGridDBTableView;
|
|
v1OrderNo: TcxGridDBColumn;
|
|
v1Column2: TcxGridDBColumn;
|
|
v1Column3: TcxGridDBColumn;
|
|
v1Column5: TcxGridDBColumn;
|
|
v1PRTMF: TcxGridDBColumn;
|
|
v1PRTKZ: TcxGridDBColumn;
|
|
v1PRTOrderQty: TcxGridDBColumn;
|
|
v1Column4: TcxGridDBColumn;
|
|
cxGrid1Level1: TcxGridLevel;
|
|
v1Column6: TcxGridDBColumn;
|
|
v1Column7: TcxGridDBColumn;
|
|
v1Column8: TcxGridDBColumn;
|
|
v1Column9: TcxGridDBColumn;
|
|
RMDBPRT: TRMDBDataSet;
|
|
v1Column12: TcxGridDBColumn;
|
|
TBCopy: TToolButton;
|
|
TBView: TToolButton;
|
|
v1Column19: TcxGridDBColumn;
|
|
RMDBPZ: TRMDBDataSet;
|
|
CDS_PZ: TClientDataSet;
|
|
CDS_SJ: TClientDataSet;
|
|
RMDBSJ: TRMDBDataSet;
|
|
v1Column21: TcxGridDBColumn;
|
|
Label10: TLabel;
|
|
C_Code: TEdit;
|
|
v1Column22: TcxGridDBColumn;
|
|
v1Column1: TcxGridDBColumn;
|
|
v1Column10: TcxGridDBColumn;
|
|
v1Column11: TcxGridDBColumn;
|
|
v1Column15: TcxGridDBColumn;
|
|
v1Column13: TcxGridDBColumn;
|
|
v1Column16: TcxGridDBColumn;
|
|
v1Column17: TcxGridDBColumn;
|
|
v1Column20: TcxGridDBColumn;
|
|
v1Column23: TcxGridDBColumn;
|
|
v1Column24: TcxGridDBColumn;
|
|
v1Column25: TcxGridDBColumn;
|
|
v1Column26: TcxGridDBColumn;
|
|
v1Column27: TcxGridDBColumn;
|
|
v1Column28: TcxGridDBColumn;
|
|
ToolButton1: TToolButton;
|
|
RMDBDataSet1: TRMDBDataSet;
|
|
ClientDataSet1: TClientDataSet;
|
|
Panel2: TPanel;
|
|
WFGYSName: TComboBox;
|
|
Label4: TLabel;
|
|
v1Column14: TcxGridDBColumn;
|
|
CDS_WJG: TClientDataSet;
|
|
RMDBWJG: TRMDBDataSet;
|
|
v1Column18: TcxGridDBColumn;
|
|
v1Column29: TcxGridDBColumn;
|
|
Label6: TLabel;
|
|
YCLNAME: TEdit;
|
|
v1Column31: TcxGridDBColumn;
|
|
v1Column30: TcxGridDBColumn;
|
|
v1Column32: TcxGridDBColumn;
|
|
v1Column33: TcxGridDBColumn;
|
|
ComboBox1: TComboBox;
|
|
v1Column34: TcxGridDBColumn;
|
|
KHNAME: TEdit;
|
|
Label7: TLabel;
|
|
btn1: TToolButton;
|
|
lbl1: TLabel;
|
|
orderflag: TComboBox;
|
|
Tv1Column1: TcxGridDBColumn;
|
|
Tv1Column2: TcxGridDBColumn;
|
|
Tv1Column3: TcxGridDBColumn;
|
|
Tv1Column4: TcxGridDBColumn;
|
|
Tv1Column5: TcxGridDBColumn;
|
|
cxStyleRepository1: TcxStyleRepository;
|
|
cxStyle1: TcxStyle;
|
|
Tv1Column6: TcxGridDBColumn;
|
|
Tv1Column7: TcxGridDBColumn;
|
|
Tv1Column8: TcxGridDBColumn;
|
|
Tv1Column9: TcxGridDBColumn;
|
|
Tv1Column10: TcxGridDBColumn;
|
|
Tv1Column11: TcxGridDBColumn;
|
|
Tv1Column12: TcxGridDBColumn;
|
|
ToolButton2: TToolButton;
|
|
Tv1Column13: TcxGridDBColumn;
|
|
GroupBox1: TGroupBox;
|
|
ScrollBox1: TScrollBox;
|
|
adoqueryPicture: TADOQuery;
|
|
Tv1Column14: TcxGridDBColumn;
|
|
Label8: TLabel;
|
|
RTQYJTInfo: TEdit;
|
|
cxTabControl1: TcxTabControl;
|
|
ToolButton3: TToolButton;
|
|
ToolButton4: TToolButton;
|
|
Tv1Column15: TcxGridDBColumn;
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
procedure TBCloseClick(Sender: TObject);
|
|
procedure TBFindClick(Sender: TObject);
|
|
procedure TBEditClick(Sender: TObject);
|
|
procedure TBDelClick(Sender: TObject);
|
|
procedure TBExportClick(Sender: TObject);
|
|
procedure TBPrintClick(Sender: TObject);
|
|
procedure TBRafreshClick(Sender: TObject);
|
|
procedure TBAddClick(Sender: TObject);
|
|
procedure ConNoChange(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure conPress(Sender: TObject; var Key: Char);
|
|
procedure TBViewClick(Sender: TObject);
|
|
procedure TBCopyClick(Sender: TObject);
|
|
procedure ToolButton1Click(Sender: TObject);
|
|
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
|
procedure btn1Click(Sender: TObject);
|
|
procedure orderflagChange(Sender: TObject);
|
|
procedure C_CodeKeyPress(Sender: TObject; var Key: Char);
|
|
procedure YCLNAMEKeyPress(Sender: TObject; var Key: Char);
|
|
procedure KHNAMEKeyPress(Sender: TObject; var Key: Char);
|
|
procedure C_CodeNameKeyPress(Sender: TObject; var Key: Char);
|
|
procedure Tv1DblClick(Sender: TObject);
|
|
procedure ToolButton2Click(Sender: TObject);
|
|
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
|
procedure ToolButton3Click(Sender: TObject);
|
|
procedure ToolButton4Click(Sender: TObject);
|
|
procedure cxTabControl1Change(Sender: TObject);
|
|
private
|
|
FInt, PFInt: Integer;
|
|
procedure InitGrid();
|
|
procedure InitForm();
|
|
function DelData(): Boolean;
|
|
procedure InitButton();
|
|
procedure InitImage();
|
|
{ Private declarations }
|
|
public
|
|
canshu1, FCheJian: string;
|
|
dFdDy: array[0..20] of FdDy;
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
// frmCPManage: TfrmCPManage;
|
|
Mach: array of TfrmSlt;
|
|
//var
|
|
//frmClothSCList: TfrmClothSCList;
|
|
|
|
implementation
|
|
|
|
uses
|
|
U_DataLink, U_ClothSCInPut, U_Fun, U_ZDYHelp, U_SCPerson, U_ClothSCInPutSC,
|
|
U_FileUp;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfrmClothSCList.InitImage();
|
|
var
|
|
i, j: integer;
|
|
jpg: TJpegImage;
|
|
myStream: TADOBlobStream;
|
|
begin
|
|
j := length(Mach);
|
|
if j > 0 then
|
|
begin
|
|
for i := 0 to j - 1 do
|
|
begin
|
|
Mach[i].free;
|
|
end;
|
|
end;
|
|
SetLength(Mach, 0);
|
|
if order_main.IsEmpty then
|
|
exit;
|
|
try
|
|
with adoqueryPicture do
|
|
begin
|
|
close;
|
|
sql.Clear;
|
|
sql.Add(' select A.TFID,A.WBID,A.FilesOther,B.FileName from TP_File A,XD_File B ');
|
|
sql.add('where A.TFID =B.XFID and A.WBID=' + quotedstr(trim(order_main.fieldbyname('mainid').AsString)));
|
|
open;
|
|
end;
|
|
j := adoqueryPicture.RecordCount;
|
|
if j < 1 then
|
|
exit;
|
|
adoqueryPicture.DisableControls;
|
|
adoqueryPicture.First;
|
|
SetLength(Mach, j);
|
|
jpg := TJpegImage.Create();
|
|
for i := 0 to j - 1 do
|
|
begin
|
|
if triM(adoqueryPicture.fieldbyname('FilesOther').AsString) <> '' then
|
|
begin
|
|
myStream := tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')), bmread);
|
|
jpg.LoadFromStream(myStream);
|
|
Mach[i] := TfrmSlt.Create(Self);
|
|
Mach[i].Name := trim(adoqueryPicture.fieldbyname('TFID').AsString);
|
|
Mach[i].Parent := ScrollBox1;
|
|
Mach[i].Left := 0 + i * 165;
|
|
Mach[i].Init(adoqueryPicture.fieldbyname('TFID').AsString, adoqueryPicture.fieldbyname('FileName').AsString, jpg);
|
|
end;
|
|
adoqueryPicture.Next;
|
|
end;
|
|
adoqueryPicture.EnableControls;
|
|
finally
|
|
jpg.free;
|
|
application.ProcessMessages;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmClothSCList.FormClose(Sender: TObject; var Action: TCloseAction);
|
|
var
|
|
i, j: integer;
|
|
begin
|
|
j := length(Mach);
|
|
if j > 0 then
|
|
begin
|
|
for i := 0 to j - 1 do
|
|
begin
|
|
Mach[i].free;
|
|
end;
|
|
end;
|
|
SetLength(Mach, 0);
|
|
// writeCxGrid(self.C
|
|
Action := caFree;
|
|
end;
|
|
|
|
procedure TfrmClothSCList.InitButton();
|
|
begin
|
|
|
|
if Trim(canshu1) = '查询' then
|
|
begin
|
|
TBAdd.Visible := False;
|
|
TBCopy.Visible := False;
|
|
TBEdit.Visible := False;
|
|
TBDel.Visible := False;
|
|
end;
|
|
if (Trim(canshu1) = '一车间生产') or (Trim(canshu1) = '二车间生产') then
|
|
begin
|
|
TBAdd.Visible := False;
|
|
TBCopy.Visible := False;
|
|
TBEdit.Visible := False;
|
|
TBDel.Visible := False;
|
|
|
|
end;
|
|
|
|
end;
|
|
|
|
procedure TfrmClothSCList.TBCloseClick(Sender: TObject);
|
|
begin
|
|
Close;
|
|
WriteCxGrid('坯布生产计划单', Tv1, '坯布生产管理');
|
|
end;
|
|
|
|
procedure TfrmClothSCList.InitGrid();
|
|
begin
|
|
|
|
try
|
|
ADOQueryMain.DisableControls;
|
|
|
|
with ADOQueryMain do
|
|
begin
|
|
Filtered := False;
|
|
Close;
|
|
sql.Clear;
|
|
// sql.Add('WITH YCLData AS ( SELECT MAINID, YCLNAME = STRING_AGG(YCLNAME, '', '') WITHIN GROUP (ORDER BY pbid, YCLNAME) FROM Cloth_YCL_PB WHERE YCLNAME IS NOT NULL GROUP BY MAINID )');
|
|
sql.Add('select A.*,B.*,CustomerNoName=(select TOP 1 CustomerNoName from JYOrderCon_Main_PB X where X.MainId=A.ConMainId) ');
|
|
SQL.Add(',YCLNAME= STUFF(( SELECT '','' +convert(VARCHAR, YCLNAME) FROM Cloth_YCL_PB c where c.MAINID = A.MAINID order by pbid FOR XML PATH('''')), 1, 1, '''') ');
|
|
// sql.Add(',yclname=(select yclname from YCLData e where e.mainid=a.mainid )');
|
|
sql.Add(' ,HTSYRName=(select TOP 1 SYRName from JYOrderCon_Main_PB X where X.MainId=A.ConMainId)');
|
|
sql.Add(' ,ConPayment=(select TOP 1 Payment from JYOrderCon_Main_PB X where X.MainId=A.ConMainId)');
|
|
sql.Add(' ,ConPRTPrice=(select TOP 1 PRTPrice from JYOrderCon_Sub_PB X where X.SubId=A.ConSubId) ');
|
|
sql.Add(' ,ConDYMoney=(select TOP 1 DYMoney from JYOrderCon_Sub_PB X where X.SubId=A.ConSubId) ');
|
|
|
|
SQL.Add(',APPS=(SELECT COUNT(*) FROM JYCon_Sub_AnPai e where e.subid=b.subid)');
|
|
SQL.Add(',jyps=(SELECT COUNT(*) FROM WFB_MJJY_PB e where e.mainid=a.mainid)');
|
|
SQL.Add(',jyqty=(SELECT sum(mjmaoz) FROM WFB_MJJY_PB e where e.mainid=a.mainid)');
|
|
|
|
SQL.Add(',CKps=(SELECT COUNT(*) FROM WFB_MJJY_PB e where e.mainid=a.mainid AND MJSTR4=''已出库'')');
|
|
SQL.Add(',CKqty=(SELECT sum(mjmaoz) FROM WFB_MJJY_PB e where e.mainid=a.mainid AND MJSTR4=''已出库'')');
|
|
SQL.Add(',KCps=(SELECT COUNT(*) FROM WFB_MJJY_PB e where e.mainid=a.mainid AND MJSTR4=''未出库'')');
|
|
SQL.Add(',KCqty=(SELECT sum(mjmaoz) FROM WFB_MJJY_PB e where e.mainid=a.mainid AND MJSTR4=''未出库'')');
|
|
|
|
SQL.Add(',wjyps=piqty-isnull((SELECT COUNT(*) FROM WFB_MJJY_PB e where e.mainid=a.mainid),0)');
|
|
SQL.Add(',wjyqty=c_qty-isnull((SELECT sum(mjmaoz) FROM WFB_MJJY_PB e where e.mainid=a.mainid),0)');
|
|
|
|
sql.Add(' ,ZdyNameZ=(select TOP 1 X.ZdyNameZ from KH_Zdy_Attachment X inner join JYOrderCon_Main_PB Y on X.Type=''KHName'' and X.ZdyCode=Y.CustomerNo where Y.MainId=A.ConMainId) ');
|
|
sql.Add(' ,DDZT=(case when ');
|
|
SQL.Add(' (SELECT COUNT(*) FROM WFB_MJJY_PB e where e.mainid=a.mainid AND MJSTR4=''已出库'')>=PiQty THEN ''已完成''');
|
|
|
|
sql.add(' when BegFlag=0 then ''待开始'' else ''已开始'' end) ');
|
|
sql.Add(' from Cloth_Main A inner join CLoth_Sub B on A.Mainid=B.MainId');
|
|
sql.Add(' where A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
|
|
sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');
|
|
sql.Add('and A.ORDERFLAG=''' + Trim(orderflag.Text) + '''');
|
|
case cxTabControl1.TabIndex of
|
|
0:
|
|
begin
|
|
sql.Add(' and isnull(A.status,''0'')=''0'' ');
|
|
end;
|
|
1:
|
|
begin
|
|
sql.Add(' and isnull(A.status,''0'')=''1'' ');
|
|
end;
|
|
//SUBSTRING(A.C_colorNO, 2,4)
|
|
end;
|
|
sql.add('order by A.FILLTIME DESC');
|
|
// ShowMessage(sql.Text);
|
|
Open;
|
|
end;
|
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
|
finally
|
|
ADOQueryMain.EnableControls;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmClothSCList.InitForm();
|
|
begin
|
|
InitButton();
|
|
ReadCxGrid('坯布生产计划单', Tv1, '坯布生产管理');
|
|
BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 60;
|
|
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
|
|
InitGrid();
|
|
end;
|
|
|
|
procedure TfrmClothSCList.TBFindClick(Sender: TObject);
|
|
begin
|
|
TBRafresh.Click;
|
|
if ADOQueryMain.Active = False then
|
|
Exit;
|
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
|
end;
|
|
|
|
procedure TfrmClothSCList.TBEditClick(Sender: TObject);
|
|
begin
|
|
if Order_Main.IsEmpty then
|
|
Exit;
|
|
try
|
|
frmClothSCInPut := TfrmClothSCInPut.Create(Application);
|
|
with frmClothSCInPut do
|
|
begin
|
|
PState := 1;
|
|
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
|
|
FSubId := Trim(Self.Order_Main.fieldbyname('SubId').AsString);
|
|
if ShowModal = 1 then
|
|
begin
|
|
InitGrid();
|
|
Self.Order_Main.Locate('MainId', frmClothSCInPut.FMainId, []);
|
|
end;
|
|
end;
|
|
finally
|
|
frmClothSCInPut.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmClothSCList.TBDelClick(Sender: TObject);
|
|
begin
|
|
if Order_Main.IsEmpty then
|
|
Exit;
|
|
with ADOQueryTemp do
|
|
begin
|
|
Close;
|
|
sql.Clear;
|
|
SQL.Add('select A.*');
|
|
sql.Add('from JYCon_Sub_AnPai A');
|
|
sql.Add(' where A.SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
|
|
sql.Add(' and A.MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|
Open;
|
|
end;
|
|
if ADOQueryTemp.IsEmpty = False then
|
|
begin
|
|
Application.MessageBox('已产生安排数据不能删除!', '提示', 0);
|
|
Exit;
|
|
end;
|
|
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
|
Exit;
|
|
if DelData() then
|
|
begin
|
|
//TBRafresh.Click;
|
|
//TBFind.Click;
|
|
Order_Main.Delete;
|
|
end;
|
|
end;
|
|
|
|
function TfrmClothSCList.DelData(): Boolean;
|
|
begin
|
|
try
|
|
Result := false;
|
|
ADOQueryCmd.Connection.BeginTrans;
|
|
with ADOQueryCmd do
|
|
begin
|
|
Close;
|
|
sql.Clear;
|
|
sql.Add('delete Cloth_Sub where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
|
|
ExecSQL;
|
|
end;
|
|
with ADOQueryTemp do
|
|
begin
|
|
Close;
|
|
sql.Clear;
|
|
sql.Add('select * from Cloth_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|
Open;
|
|
end;
|
|
if ADOQueryTemp.IsEmpty then
|
|
begin
|
|
with ADOQueryCmd do
|
|
begin
|
|
Close;
|
|
sql.Clear;
|
|
sql.Add('delete Cloth_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|
ExecSQL;
|
|
end;
|
|
end;
|
|
if Trim(Order_Main.fieldbyname('SubId').AsString) = '' then
|
|
begin
|
|
with ADOQueryCmd do
|
|
begin
|
|
Close;
|
|
sql.Clear;
|
|
sql.Add('delete Cloth_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|
ExecSQL;
|
|
end;
|
|
end;
|
|
with ADOQueryCmd do
|
|
begin
|
|
Close;
|
|
sql.Clear;
|
|
sql.Add('delete Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|
ExecSQL;
|
|
end;
|
|
with ADOQueryCmd do
|
|
begin
|
|
Close;
|
|
sql.Clear;
|
|
sql.Add('delete Cloth_YCL_PB where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|
ExecSQL;
|
|
end;
|
|
ADOQueryCmd.Connection.CommitTrans;
|
|
Result := True;
|
|
except
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|
Result := False;
|
|
Application.MessageBox('数据删除异常！', '提示', 0);
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmClothSCList.TBExportClick(Sender: TObject);
|
|
begin
|
|
if ADOQueryMain.IsEmpty then
|
|
Exit;
|
|
TcxGridToExcel('坯布生产单', cxGrid1);
|
|
end;
|
|
|
|
procedure TfrmClothSCList.TBPrintClick(Sender: TObject);
|
|
var
|
|
fPrintFile, FWeiZhi: string;
|
|
i, j, k: integer;
|
|
begin
|
|
if Order_Main.IsEmpty then
|
|
Exit;
|
|
ExportFtErpFile(trim(ComboBox1.Text) + '.rmf', ADOQueryTemp);
|
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + trim(ComboBox1.Text) + '.rmf';
|
|
|
|
with ADOQueryTemp do
|
|
begin
|
|
Close;
|
|
sql.Clear;
|
|
sql.Add('select PZNote1=PZNote,WeiZhi1=WeiZhi,SPZ1=PZ1,SPZ2=PZ2,SPZ3=PZ3,SPZ4=PZ4,SPZ5=PZ5,SPZ6=PZ6,SPZ7=PZ7,SPZ8=PZ8,SPZ9=PZ9,SPZ10=PZ10 ');
|
|
sql.Add(' ,SPZ11=PZ11,SPZ12=PZ12,SPZ13=PZ13,SPZ14=PZ14,SPZ15=PZ15,SPZ16=PZ16,SPZ17=PZ17,SPZ18=PZ18,SPZ19=PZ19,SPZ20=PZ20 ');
|
|
sql.Add(' ,SPZ21=PZ21,SPZ22=PZ22,SPZ23=PZ23,SPZ24=PZ24,SPZ25=PZ25,SPZ26=PZ26,SPZ27=PZ27,SPZ28=PZ28,SPZ29=PZ29,SPZ30=PZ30 ');
|
|
sql.Add(' ,SPZ31=PZ31,SPZ32=PZ32,SPZ33=PZ33,SPZ34=PZ34,SPZ35=PZ35,SPZ36=PZ36,SPZ37=PZ37, SPZ38=PZ38, SPZ39=PZ39, SPZ40=PZ40 ');
|
|
sql.Add(' ,SPZ41=PZ41, SPZ42=PZ42, SPZ43=PZ43, SPZ44=PZ44, SPZ45=PZ45, SPZ46=PZ46, SPZ47=PZ47, SPZ48=PZ48, SPZ49=PZ49, SPZ50=PZ50 ');
|
|
sql.Add(' ,SPZ51=PZ51, SPZ52=PZ52, SPZ53=PZ53, SPZ54=PZ54, SPZ55=PZ55, SPZ56=PZ56, SPZ57=PZ57, SPZ58=PZ58, SPZ59=PZ59, SPZ60=PZ60');
|
|
sql.Add(' ,SPZ61=PZ61, SPZ62=PZ62, SPZ63=PZ63, SPZ64=PZ64, SPZ65=PZ65, SPZ66=PZ66, SPZ67=PZ67, SPZ68=PZ68, SPZ69=PZ69, SPZ70=PZ70');
|
|
sql.Add(' ,SPZ71=PZ71, SPZ72=PZ72, SPZ73=PZ73, SPZ74=PZ74, SPZ75=PZ75, SPZ76=PZ76, SPZ77=PZ77, SPZ78=PZ78, SPZ79=PZ79, SPZ80=PZ80');
|
|
sql.Add(' ,SPZ81=PZ81, SPZ82=PZ82, SPZ83=PZ83, SPZ84=PZ84, SPZ85=PZ85, SPZ86=PZ86, SPZ87=PZ87, SPZ88=PZ88, SPZ89=PZ89, SPZ90=PZ90');
|
|
sql.Add(' ,SPZ91=PZ91, SPZ92=PZ92, SPZ93=PZ93, SPZ94=PZ94, SPZ95=PZ95, SPZ96=PZ96, SPZ97=PZ97, SPZ98=PZ98, SPZ99=PZ99, SPZ100=PZ100');
|
|
sql.Add(' ,SPZ101=PZ101, SPZ102=PZ102, SPZ103=PZ103, SPZ104=PZ104, SPZ105=PZ105, SPZ106=PZ106, SPZ107=PZ107, SPZ108=PZ108 ,SPZ109=PZ109 ,SPZ110=PZ110');
|
|
sql.Add(',SPZ111=PZ111 ,SPZ112=PZ112 ,SPZ113=PZ113 ,SPZ114=PZ114 ,SPZ115=PZ115 ,SPZ116=PZ116 ,SPZ117=PZ117 ,SPZ118=PZ118 ,SPZ119=PZ119 ,SPZ120=PZ120');
|
|
sql.Add(',SPZ121=PZ121 ,SPZ122=PZ122 ,SPZ123=PZ123 ,SPZ124=PZ124 ,SPZ125=PZ125 ,SPZ126=PZ126 ,SPZ127=PZ127 ,SPZ128=PZ128 ,SPZ129=PZ129 ,SPZ130=PZ130');
|
|
sql.Add(',SPZ131=PZ131 ,SPZ132=PZ132 ,SPZ133=PZ133 ,SPZ134=PZ134 ,SPZ135=PZ135 ,SPZ136=PZ136 ,SPZ137=PZ137 ,SPZ138=PZ138 ,SPZ139=PZ139 ,SPZ140=PZ140');
|
|
sql.Add(',SPZ141=PZ141 ,SPZ142=PZ142 ,SPZ143=PZ143 ,SPZ144=PZ144 ');
|
|
sql.Add(' from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|
sql.Add(' and RTrim(PZType)=''排针'' ');
|
|
Open;
|
|
end;
|
|
SCreateCDS20(ADOQueryTemp, CDS_PZ);
|
|
SInitCDSData20(ADOQueryTemp, CDS_PZ);
|
|
if CDS_PZ.IsEmpty then
|
|
begin
|
|
CDS_PZ.Append;
|
|
CDS_PZ.Post;
|
|
end;
|
|
|
|
with ADOQueryTemp do
|
|
begin
|
|
Close;
|
|
sql.Clear;
|
|
sql.Add('select * from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|
sql.Add(' and RTrim(PZType)=''三角'' ');
|
|
Open;
|
|
end;
|
|
SCreateCDS20(ADOQueryTemp, CDS_SJ);
|
|
SInitCDSData20(ADOQueryTemp, CDS_SJ);
|
|
|
|
// j := 0;
|
|
// k := 1;
|
|
//
|
|
// ADOQueryTemp.First;
|
|
// FWeiZhi := ADOQueryTemp.FieldByName('WeiZhi').AsString;
|
|
// while not ADOQueryTemp.Eof do
|
|
// begin
|
|
// if Trim(ADOQueryTemp.FieldByName('WeiZhi').AsString) <> FWeiZhi then
|
|
// begin
|
|
// with CDS_SJ do
|
|
// begin
|
|
// Append;
|
|
// Post;
|
|
// end;
|
|
// end;
|
|
// FWeiZhi := ADOQueryTemp.FieldByName('WeiZhi').AsString;
|
|
// with CDS_SJ do
|
|
// begin
|
|
// Append;
|
|
// for i := 0 to ADOQueryTemp.FieldCount - 1 do
|
|
// begin
|
|
// fields[i].value := ADOQueryTemp.Fields[i].Value;
|
|
// end;
|
|
// fieldByName('Sflag').AsString := '1';
|
|
// fieldByName('Sindex').value := k;
|
|
// fieldByName('Ssel').value := false;
|
|
// fieldByName('SDefNote').value := '';
|
|
// inc(k);
|
|
// Post;
|
|
// end;
|
|
//
|
|
// ADOQueryTemp.Next;
|
|
// j := j + 1;
|
|
// end;
|
|
|
|
if CDS_SJ.IsEmpty then
|
|
begin
|
|
CDS_SJ.Append;
|
|
CDS_SJ.Post;
|
|
end;
|
|
|
|
with ADOQueryTemp do
|
|
begin
|
|
Filtered := False;
|
|
Close;
|
|
sql.Clear;
|
|
sql.Add('Select A.* ');
|
|
sql.Add(',YLQty=Cast(C_Qty*PBQty*0.01*(1+isnull(ZPSH,0)*0.01) as decimal(18,1))');
|
|
sql.Add(' from Cloth_YCL_PB A');
|
|
sql.Add(' inner join Cloth_Sub B on A.SubId=B.SubId');
|
|
sql.Add(' where A.SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
|
|
Open;
|
|
end;
|
|
SCreateCDS20(ADOQueryTemp, CDS_PRT);
|
|
SInitCDSData20(ADOQueryTemp, CDS_PRT);
|
|
|
|
if CDS_PRT.IsEmpty then
|
|
begin
|
|
CDS_PRT.Append;
|
|
CDS_PRT.Post;
|
|
end;
|
|
with ADOQueryTemp do
|
|
begin
|
|
Close;
|
|
sql.Clear;
|
|
sql.Add('select * from Cloth_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|
Open;
|
|
end;
|
|
SCreateCDS20(ADOQueryTemp, ClientDataSet1);
|
|
SInitCDSData20(ADOQueryTemp, ClientDataSet1);
|
|
if FileExists(fPrintFile) then
|
|
begin
|
|
RM1.LoadFromFile(fPrintFile);
|
|
RMVariables['ZSCPS'] := ClientDataSet1.fieldbyname('ZSCPS').Value;
|
|
RMVariables['ZSCQty'] := ClientDataSet1.fieldbyname('ZSCQty').Value;
|
|
RMVariables['WFJHPSHZ'] := ClientDataSet1.fieldbyname('WFJHPSHZ').Value;
|
|
RMVariables['WFJHQtyHZ'] := ClientDataSet1.fieldbyname('WFJHQtyHZ').Value;
|
|
RMVariables['C_Code'] := Order_Main.fieldbyname('C_Code').Value;
|
|
RMVariables['ConNo'] := Order_Main.fieldbyname('ConNo').Value;
|
|
RMVariables['C_CodeName'] := Order_Main.fieldbyname('C_CodeName').Value;
|
|
RMVariables['DayQty'] := Order_Main.fieldbyname('DayQty').Value;
|
|
RMVariables['CarType'] := Order_Main.fieldbyname('CarType').Value;
|
|
RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
|
|
RMVariables['KZQty'] := Order_Main.fieldbyname('KZQty').Value;
|
|
RMVariables['MFQty'] := Order_Main.fieldbyname('MFQty').Value;
|
|
RMVariables['JXPERSON1'] := Order_Main.fieldbyname('JXPERSON1').Value;
|
|
|
|
RMVariables['ISHS'] := Order_Main.fieldbyname('ISHS').Value;
|
|
RMVariables['dprice'] := ClientDataSet1.fieldbyname('dprice').Value;
|
|
|
|
RMVariables['KZ'] := Order_Main.fieldbyname('KZ').Value;
|
|
RMVariables['MF'] := Order_Main.fieldbyname('MF').Value;
|
|
RMVariables['PiKgQty'] := Order_Main.fieldbyname('PiKgQty').Value;
|
|
RMVariables['ZhuanQty'] := Order_Main.fieldbyname('ZhuanQty').Value;
|
|
RMVariables['PiQty'] := Order_Main.fieldbyname('PiQty').Value;
|
|
RMVariables['C_Qty'] := Order_Main.fieldbyname('C_Qty').Value;
|
|
RMVariables['QDTime'] := Order_Main.fieldbyname('QDTime').Value;
|
|
RMVariables['JHChejian'] := Order_Main.fieldbyname('JHChejian').Value;
|
|
RMVariables['DeliveryDate'] := Order_Main.fieldbyname('DeliveryDate').Value;
|
|
RMVariables['ShaChang1'] := Order_Main.fieldbyname('ShaChang').Value;
|
|
RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
|
|
RMVariables['C_Spec'] := Order_Main.fieldbyname('C_Spec').Value;
|
|
RMVariables['C_Color'] := Order_Main.fieldbyname('C_Color').Value;
|
|
RMVariables['C_Note'] := Order_Main.fieldbyname('C_Note').Value;
|
|
RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
|
|
RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
|
|
RMVariables['PiKgQtyFD'] := Order_Main.fieldbyname('PiKgQtyFD').Value;
|
|
RMVariables['BatchNoHZ'] := Order_Main.fieldbyname('BatchNoHZ').Value;
|
|
RMVariables['ConPayment'] := Order_Main.fieldbyname('ConPayment').Value;
|
|
RMVariables['ConPRTPrice'] := Order_Main.fieldbyname('ConPRTPrice').Value;
|
|
RMVariables['ConDYMoney'] := Order_Main.fieldbyname('ConDYMoney').Value;
|
|
RMVariables['ZdyNameZ'] := Order_Main.fieldbyname('ZdyNameZ').Value;
|
|
RMVariables['Zdr'] := Order_Main.fieldbyname('Filler').Value;
|
|
RMVariables['WzPrice'] := Order_Main.fieldbyname('WzPrice').Value;
|
|
RMVariables['BZNote'] := Order_Main.fieldbyname('BZNote').Value;
|
|
RMVariables['ZZYQ'] := Order_Main.fieldbyname('ZZYQ').Value;
|
|
RMVariables['ZZSH'] := Order_Main.fieldbyname('ZZSH').Value;
|
|
RMVariables['MFZZS'] := Order_Main.fieldbyname('MFZZS').Value;
|
|
RMVariables['ALBL'] := Order_Main.fieldbyname('ALBL').Value;
|
|
RMVariables['gongyi'] := Order_Main.fieldbyname('gongyi').Value;
|
|
RMVariables['ZongJieNote'] := Order_Main.fieldbyname('ZongJieNote').Value;
|
|
RMVariables['ZhenCun'] := Order_Main.fieldbyname('ZhenCun').Value;
|
|
RMVariables['Filler'] := Order_Main.fieldbyname('Filler').Value;
|
|
RMVariables['JHChejian'] := Order_Main.fieldbyname('JHChejian').Value;
|
|
RMVariables['HTSYRName'] := Order_Main.fieldbyname('HTSYRName').Value;
|
|
RMVariables['YWY'] := Order_Main.fieldbyname('YWY').Value;
|
|
RMVariables['KJTS'] := Order_Main.fieldbyname('KJTS').Value;
|
|
RMVariables['PBMF'] := Order_Main.fieldbyname('PBMF').Value;
|
|
RMVariables['kzzhuan'] := Order_Main.fieldbyname('kzzhuan').Value;
|
|
RMVariables['PBKZ'] := Order_Main.fieldbyname('PBKZ').Value;
|
|
RMVariables['ZongZhenQty'] := Order_Main.fieldbyname('ZongZhenQty').Value;
|
|
RMVariables['KHName'] := Order_Main.fieldbyname('KHName').Value;
|
|
RMVariables['HZPaiSha'] := Order_Main.fieldbyname('HZPaiSha').Value;
|
|
RMVariables['KHConNo'] := Order_Main.fieldbyname('KHConNo').Value;
|
|
RMVariables['dangwei'] := ClientDataSet1.fieldbyname('dangwei').Value;
|
|
RMVariables['xiaolv'] := ClientDataSet1.fieldbyname('xiaolv').Value;
|
|
RM1.ShowReport;
|
|
end
|
|
else
|
|
begin
|
|
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmClothSCList.TBRafreshClick(Sender: TObject);
|
|
begin
|
|
InitGrid();
|
|
end;
|
|
|
|
procedure TfrmClothSCList.TBAddClick(Sender: TObject);
|
|
begin
|
|
|
|
try
|
|
frmClothSCInPut := TfrmClothSCInPut.Create(Application);
|
|
with frmClothSCInPut do
|
|
begin
|
|
PState := 0;
|
|
FMainId := '';
|
|
FSubId := '';
|
|
frmClothSCInPut.orderflag.text := '生产';
|
|
if ShowModal = 1 then
|
|
begin
|
|
InitGrid();
|
|
end;
|
|
end;
|
|
finally
|
|
frmClothSCInPut.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmClothSCList.ConNoChange(Sender: TObject);
|
|
begin
|
|
if ADOQueryMain.Active = False then
|
|
Exit;
|
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
|
end;
|
|
|
|
procedure TfrmClothSCList.FormShow(Sender: TObject);
|
|
begin
|
|
InitForm();
|
|
end;
|
|
|
|
procedure TfrmClothSCList.conPress(Sender: TObject; var Key: Char);
|
|
begin
|
|
if Key = #13 then
|
|
begin
|
|
if Length(Trim(ConNo.Text)) < 4 then
|
|
Exit;
|
|
try
|
|
ADOQueryMain.DisableControls;
|
|
with ADOQueryMain do
|
|
begin
|
|
Filtered := False;
|
|
Close;
|
|
sql.Clear;
|
|
//sql.Add('exec Cloth_QryList :MainId,:WSql');
|
|
// Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''
|
|
// +' and ConType=''生产'' ';
|
|
sql.Add('select * from Cloth_Main A inner join CLoth_Sub B on A.Mainid=B.MainId');
|
|
sql.Add(' where A.ConNo like ''' + '%' + Trim(ConNo.Text) + '%' + '''');
|
|
|
|
Open;
|
|
end;
|
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
|
finally
|
|
ADOQueryMain.EnableControls;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmClothSCList.TBViewClick(Sender: TObject);
|
|
begin
|
|
try
|
|
frmClothSCInPut := TfrmClothSCInPut.Create(Application);
|
|
with frmClothSCInPut do
|
|
begin
|
|
PState := 1;
|
|
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
|
|
FSubId := Trim(Self.Order_Main.fieldbyname('SubId').AsString);
|
|
FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString);
|
|
TBSave.Visible := False;
|
|
ToolBar3.Visible := False;
|
|
ScrollBox1.Enabled := False;
|
|
if ShowModal = 1 then
|
|
begin
|
|
|
|
end;
|
|
end;
|
|
finally
|
|
frmClothSCInPut.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmClothSCList.TBCopyClick(Sender: TObject);
|
|
begin
|
|
if Order_Main.IsEmpty then
|
|
Exit;
|
|
try
|
|
frmClothSCInPut := TfrmClothSCInPut.Create(Application);
|
|
with frmClothSCInPut do
|
|
begin
|
|
PState := 1;
|
|
FCopyInt := 1;
|
|
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
|
|
FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString);
|
|
if ShowModal = 1 then
|
|
begin
|
|
|
|
end;
|
|
end;
|
|
finally
|
|
frmClothSCInPut.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmClothSCList.ToolButton1Click(Sender: TObject);
|
|
var
|
|
fPrintFile: string;
|
|
begin
|
|
if Order_Main.IsEmpty then
|
|
Exit;
|
|
if Trim(WFGYSName.Text) = '' then
|
|
begin
|
|
Application.MessageBox('外发单位不能为空!', '提示', 0);
|
|
Exit;
|
|
end;
|
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\外发工艺单.rmf';
|
|
|
|
with ADOQueryTemp do
|
|
begin
|
|
Close;
|
|
sql.Clear;
|
|
sql.Add('select PZNote1=PZNote,WeiZhi1=WeiZhi,SPZ1=PZ1,SPZ2=PZ2,SPZ3=PZ3,SPZ4=PZ4,SPZ5=PZ5,SPZ6=PZ6,SPZ7=PZ7,SPZ8=PZ8,SPZ9=PZ9,SPZ10=PZ10 ');
|
|
sql.Add(' ,SPZ11=PZ11,SPZ12=PZ12,SPZ13=PZ13,SPZ14=PZ14,SPZ15=PZ15,SPZ16=PZ16,SPZ17=PZ17,SPZ18=PZ18,SPZ19=PZ19,SPZ20=PZ20 ');
|
|
sql.Add(' ,SPZ21=PZ21,SPZ22=PZ22,SPZ23=PZ23,SPZ24=PZ24,SPZ25=PZ25,SPZ26=PZ26,SPZ27=PZ27,SPZ28=PZ28,SPZ29=PZ29,SPZ30=PZ30 ');
|
|
sql.Add(' ,SPZ31=PZ31,SPZ32=PZ32,SPZ33=PZ33,SPZ34=PZ34,SPZ35=PZ35,SPZ36=PZ36,SPZ37=PZ37, SPZ38=PZ38, SPZ39=PZ39, SPZ40=PZ40 ');
|
|
sql.Add(' ,SPZ41=PZ41, SPZ42=PZ42, SPZ43=PZ43, SPZ44=PZ44, SPZ45=PZ45, SPZ46=PZ46, SPZ47=PZ47, SPZ48=PZ48, SPZ49=PZ49, SPZ50=PZ50 ');
|
|
sql.Add(' ,SPZ51=PZ51, SPZ52=PZ52, SPZ53=PZ53, SPZ54=PZ54, SPZ55=PZ55, SPZ56=PZ56, SPZ57=PZ57, SPZ58=PZ58, SPZ59=PZ59, SPZ60=PZ60');
|
|
sql.Add(' ,SPZ61=PZ61, SPZ62=PZ62, SPZ63=PZ63, SPZ64=PZ64, SPZ65=PZ65, SPZ66=PZ66, SPZ67=PZ67, SPZ68=PZ68, SPZ69=PZ69, SPZ70=PZ70');
|
|
sql.Add(' ,SPZ71=PZ71, SPZ72=PZ72, SPZ73=PZ73, SPZ74=PZ74, SPZ75=PZ75, SPZ76=PZ76, SPZ77=PZ77, SPZ78=PZ78, SPZ79=PZ79, SPZ80=PZ80');
|
|
sql.Add(' ,SPZ81=PZ81, SPZ82=PZ82, SPZ83=PZ83, SPZ84=PZ84, SPZ85=PZ85, SPZ86=PZ86, SPZ87=PZ87, SPZ88=PZ88, SPZ89=PZ89, SPZ90=PZ90');
|
|
sql.Add(' ,SPZ91=PZ91, SPZ92=PZ92, SPZ93=PZ93, SPZ94=PZ94, SPZ95=PZ95, SPZ96=PZ96, SPZ97=PZ97, SPZ98=PZ98, SPZ99=PZ99, SPZ100=PZ100');
|
|
sql.Add(' ,SPZ101=PZ101, SPZ102=PZ102, SPZ103=PZ103, SPZ104=PZ104, SPZ105=PZ105, SPZ106=PZ106, SPZ107=PZ107, SPZ108=PZ108 ,SPZ109=PZ109 ,SPZ110=PZ110');
|
|
sql.Add(' ,SPZ111=PZ111 ,SPZ112=PZ112 ,SPZ113=PZ113 ,SPZ114=PZ114 ,SPZ115=PZ115 ,SPZ116=PZ116 ,SPZ117=PZ117 ,SPZ118=PZ118 ,SPZ119=PZ119 ,SPZ120=PZ120');
|
|
sql.Add(' ,SPZ121=PZ121 ,SPZ122=PZ122 ,SPZ123=PZ123 ,SPZ124=PZ124 ,SPZ125=PZ125 ,SPZ126=PZ126 ,SPZ127=PZ127 ,SPZ128=PZ128 ,SPZ129=PZ129 ,SPZ130=PZ130');
|
|
sql.Add(' ,SPZ131=PZ131 ,SPZ132=PZ132 ,SPZ133=PZ133 ,SPZ134=PZ134 ,SPZ135=PZ135 ,SPZ136=PZ136 ,SPZ137=PZ137 ,SPZ138=PZ138 ,SPZ139=PZ139 ,SPZ140=PZ140');
|
|
sql.Add(' ,SPZ141=PZ141 ,SPZ142=PZ142 ,SPZ143=PZ143 ,SPZ144=PZ144 ');
|
|
sql.Add(' from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|
sql.Add(' and RTrim(PZType)=''排针'' ');
|
|
Open;
|
|
end;
|
|
SCreateCDS20(ADOQueryTemp, CDS_PZ);
|
|
SInitCDSData20(ADOQueryTemp, CDS_PZ);
|
|
if CDS_PZ.IsEmpty then
|
|
begin
|
|
CDS_PZ.Append;
|
|
CDS_PZ.Post;
|
|
end;
|
|
|
|
with ADOQueryTemp do
|
|
begin
|
|
Close;
|
|
sql.Clear;
|
|
sql.Add('select * from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|
sql.Add(' and RTrim(PZType)=''三角'' ');
|
|
Open;
|
|
end;
|
|
SCreateCDS20(ADOQueryTemp, CDS_SJ);
|
|
SInitCDSData20(ADOQueryTemp, CDS_SJ);
|
|
if CDS_SJ.IsEmpty then
|
|
begin
|
|
CDS_SJ.Append;
|
|
CDS_SJ.Post;
|
|
end;
|
|
|
|
with ADOQueryTemp do
|
|
begin
|
|
Filtered := False;
|
|
Close;
|
|
sql.Clear;
|
|
sql.Add('Select A.* ');
|
|
sql.Add(',YLQty=Cast(C_Qty*PBQty*0.01*(1+isnull(ZPSH,0)*0.01) as decimal(18,1))');
|
|
sql.Add(' from Cloth_YCL_PB A');
|
|
sql.Add(' inner join Cloth_Sub B on A.SubId=B.SubId');
|
|
sql.Add(' where A.SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
|
|
Open;
|
|
end;
|
|
SCreateCDS20(ADOQueryTemp, CDS_PRT);
|
|
SInitCDSData20(ADOQueryTemp, CDS_PRT);
|
|
if CDS_PRT.IsEmpty then
|
|
begin
|
|
CDS_PRT.Append;
|
|
CDS_PRT.Post;
|
|
end;
|
|
with ADOQueryTemp do
|
|
begin
|
|
Close;
|
|
sql.Clear;
|
|
sql.Add('select * from Cloth_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|
Open;
|
|
end;
|
|
SCreateCDS20(ADOQueryTemp, ClientDataSet1);
|
|
SInitCDSData20(ADOQueryTemp, ClientDataSet1);
|
|
with ADOQueryTemp do
|
|
begin
|
|
Close;
|
|
sql.Clear;
|
|
sql.Add('select * from Cloth_WJG where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
|
sql.Add(' and WFGYSName=''' + Trim(WFGYSName.Text) + '''');
|
|
Open;
|
|
end;
|
|
SCreateCDS20(ADOQueryTemp, CDS_WJG);
|
|
SInitCDSData20(ADOQueryTemp, CDS_WJG);
|
|
if FileExists(fPrintFile) then
|
|
begin
|
|
RM1.LoadFromFile(fPrintFile);
|
|
RMVariables['WFGYSName'] := CDS_WJG.fieldbyname('WFGYSName').Value;
|
|
RMVariables['WFJHPS'] := CDS_WJG.fieldbyname('WFJHPS').Value;
|
|
RMVariables['WFJHQty'] := CDS_WJG.fieldbyname('WFJHQty').Value;
|
|
RMVariables['JGPrice'] := CDS_WJG.fieldbyname('JGPrice').Value;
|
|
RMVariables['JHJiaoQi'] := CDS_WJG.fieldbyname('JHJiaoQi').Value;
|
|
RMVariables['C_Code'] := Order_Main.fieldbyname('C_Code').Value;
|
|
RMVariables['ConNo'] := Order_Main.fieldbyname('ConNo').Value;
|
|
RMVariables['C_CodeName'] := Order_Main.fieldbyname('C_CodeName').Value;
|
|
RMVariables['DayQty'] := Order_Main.fieldbyname('DayQty').Value;
|
|
RMVariables['CarType'] := Order_Main.fieldbyname('CarType').Value;
|
|
RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
|
|
RMVariables['KZQty'] := Order_Main.fieldbyname('KZQty').Value;
|
|
RMVariables['MFQty'] := Order_Main.fieldbyname('MFQty').Value;
|
|
RMVariables['KZ'] := Order_Main.fieldbyname('KZ').Value;
|
|
RMVariables['MF'] := Order_Main.fieldbyname('MF').Value;
|
|
RMVariables['PiKgQty'] := Order_Main.fieldbyname('PiKgQty').Value;
|
|
RMVariables['ZhuanQty'] := Order_Main.fieldbyname('ZhuanQty').Value;
|
|
RMVariables['PiQty'] := Order_Main.fieldbyname('PiQty').Value;
|
|
RMVariables['C_Qty'] := Order_Main.fieldbyname('C_Qty').Value;
|
|
RMVariables['QDTime'] := Order_Main.fieldbyname('QDTime').Value;
|
|
RMVariables['C_Note'] := Order_Main.fieldbyname('C_Note').Value;
|
|
RMVariables['DeliveryDate'] := Order_Main.fieldbyname('DeliveryDate').Value;
|
|
RMVariables['ShaChang1'] := Order_Main.fieldbyname('ShaChang').Value;
|
|
RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
|
|
RMVariables['C_Spec'] := Order_Main.fieldbyname('C_Spec').Value;
|
|
RMVariables['C_Color'] := Order_Main.fieldbyname('C_Color').Value;
|
|
RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
|
|
RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
|
|
RMVariables['PiKgQtyFD'] := Order_Main.fieldbyname('PiKgQtyFD').Value;
|
|
RMVariables['Price'] := Order_Main.fieldbyname('Price').Value;
|
|
RMVariables['MFZZS'] := Order_Main.fieldbyname('MFZZS').Value;
|
|
RMVariables['ALBL'] := Order_Main.fieldbyname('ALBL').Value;
|
|
RMVariables['gongyi'] := Order_Main.fieldbyname('gongyi').Value;
|
|
RMVariables['ZongJieNote'] := Order_Main.fieldbyname('ZongJieNote').Value;
|
|
RMVariables['ZhenCun'] := Order_Main.fieldbyname('ZhenCun').Value;
|
|
RMVariables['BZNote'] := Order_Main.fieldbyname('BZNote').Value;
|
|
RMVariables['ZZYQ'] := Order_Main.fieldbyname('ZZYQ').Value;
|
|
RMVariables['Zdr'] := Order_Main.fieldbyname('Filler').Value;
|
|
RMVariables['JHChejian'] := Order_Main.fieldbyname('JHChejian').Value;
|
|
RMVariables['HTSYRName'] := Order_Main.fieldbyname('HTSYRName').Value;
|
|
RMVariables['YWY'] := Order_Main.fieldbyname('YWY').Value;
|
|
RMVariables['KJTS'] := Order_Main.fieldbyname('KJTS').Value;
|
|
RMVariables['PBMF'] := Order_Main.fieldbyname('PBMF').Value;
|
|
RMVariables['PBKZ'] := Order_Main.fieldbyname('PBKZ').Value;
|
|
RMVariables['ZongZhenQty'] := Order_Main.fieldbyname('ZongZhenQty').Value;
|
|
RMVariables['KHName'] := Order_Main.fieldbyname('KHName').Value;
|
|
RMVariables['HZPaiSha'] := Order_Main.fieldbyname('HZPaiSha').Value;
|
|
RMVariables['KHConNo'] := Order_Main.fieldbyname('KHConNo').Value;
|
|
RM1.ShowReport;
|
|
end
|
|
else
|
|
begin
|
|
Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\外发工艺单.rmf'), '提示', 0);
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmClothSCList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|
var
|
|
fsj: string;
|
|
begin
|
|
if Order_Main.IsEmpty = False then
|
|
fsj := 'select Name=WFGYSName,Code=WFGYSNo from Cloth_WJG where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''
|
|
else
|
|
fsj := 'select Name=WFGYSName,Code=WFGYSNo from Cloth_WJG where 1=2';
|
|
WFGYSName.Items.Clear;
|
|
SInitComBoxBySql(ADOQueryTemp, WFGYSName, True, fsj);
|
|
end;
|
|
|
|
procedure TfrmClothSCList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
|
var
|
|
FDDZT: string;
|
|
begin
|
|
|
|
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('DDZT').Index] = null then
|
|
Exit;
|
|
|
|
FDDZT := AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('DDZT').Index];
|
|
|
|
if FDDZT = '已开始' then
|
|
ACanvas.Font.Color := $FF0000;
|
|
if FDDZT = '已完成' then
|
|
ACanvas.Font.Color := $0000FF;
|
|
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('jyps').Index] > AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('PiQty').Index] then
|
|
begin
|
|
ACanvas.Brush.Color := $008080FF;
|
|
end;
|
|
|
|
end;
|
|
|
|
procedure TfrmClothSCList.btn1Click(Sender: TObject);
|
|
begin
|
|
|
|
try
|
|
frmClothSCInPut := TfrmClothSCInPut.Create(Application);
|
|
with frmClothSCInPut do
|
|
begin
|
|
PState := 0;
|
|
frmClothSCInPut.FMainId := '';
|
|
FSubId := '';
|
|
frmClothSCInPut.orderflag.text := '打样';
|
|
if ShowModal = 1 then
|
|
begin
|
|
InitGrid();
|
|
end;
|
|
end;
|
|
finally
|
|
frmClothSCInPut.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmClothSCList.orderflagChange(Sender: TObject);
|
|
begin
|
|
TBRafresh.Click;
|
|
end;
|
|
|
|
procedure TfrmClothSCList.C_CodeKeyPress(Sender: TObject; var Key: Char);
|
|
begin
|
|
if Key = #13 then
|
|
TBRafresh.Click();
|
|
if ADOQueryMain.Active = False then
|
|
Exit;
|
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
|
end;
|
|
|
|
procedure TfrmClothSCList.YCLNAMEKeyPress(Sender: TObject; var Key: Char);
|
|
begin
|
|
if Key = #13 then
|
|
TBRafresh.Click();
|
|
if ADOQueryMain.Active = False then
|
|
Exit;
|
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
|
end;
|
|
|
|
procedure TfrmClothSCList.KHNAMEKeyPress(Sender: TObject; var Key: Char);
|
|
begin
|
|
if Key = #13 then
|
|
TBRafresh.Click();
|
|
if ADOQueryMain.Active = False then
|
|
Exit;
|
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
|
end;
|
|
|
|
procedure TfrmClothSCList.C_CodeNameKeyPress(Sender: TObject; var Key: Char);
|
|
begin
|
|
if Key = #13 then
|
|
TBRafresh.Click();
|
|
if ADOQueryMain.Active = False then
|
|
Exit;
|
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
|
end;
|
|
|
|
procedure TfrmClothSCList.Tv1DblClick(Sender: TObject);
|
|
begin
|
|
TBView.Click();
|
|
end;
|
|
|
|
procedure TfrmClothSCList.ToolButton2Click(Sender: TObject);
|
|
begin
|
|
try
|
|
frmFileUp := TfrmFileUp.Create(Application);
|
|
with frmFileUp do
|
|
begin
|
|
Code.Text := Trim(Self.Order_Main.fieldbyname('mainid').AsString);
|
|
CYID := Trim(Self.Order_Main.fieldbyname('mainid').AsString);
|
|
if ShowModal = 1 then
|
|
begin
|
|
Self.InitGrid();
|
|
// Self.Order_Main.Locate('CYID', CYID, []);
|
|
end;
|
|
end;
|
|
finally
|
|
frmFileUp.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmClothSCList.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
|
begin
|
|
if Order_Main.ISEMPTY = FALSE then
|
|
begin
|
|
InitImage();
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmClothSCList.ToolButton3Click(Sender: TObject);
|
|
begin
|
|
if Order_Main.IsEmpty then
|
|
exit;
|
|
if not Order_Main.Locate('SSel', True, []) then
|
|
begin
|
|
application.MessageBox('请选择数据！', '提示信息', 0);
|
|
Exit;
|
|
end;
|
|
try
|
|
while Order_Main.Locate('SSel', True, []) do
|
|
begin
|
|
with ADOQueryCmd do
|
|
begin
|
|
close;
|
|
sql.Clear;
|
|
sql.Add('update CLOTH_Main SET status=''1''');
|
|
sql.Add('where mainid=' + quotedstr(trim(Order_Main.fieldbyname('MAINID').AsString)));
|
|
|
|
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
|
sql.Add(' ' + quotedstr(trim(DName)));
|
|
sql.Add(',getdate() ');
|
|
sql.Add(',' + quotedstr(trim(self.Caption)));
|
|
sql.Add(',' + quotedstr(trim('计划单完成')));
|
|
sql.Add(',' + quotedstr(trim('键：' + trim(Order_Main.FieldByName('mainid').AsString))));
|
|
sql.Add(',' + quotedstr(trim('成功')));
|
|
sql.Add(')');
|
|
execsql;
|
|
end;
|
|
Order_Main.Delete;
|
|
end;
|
|
application.MessageBox('完成成功！', '提示信息');
|
|
TBRafresh.Click;
|
|
except
|
|
application.MessageBox('完成失败！', '提示信息', 0);
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmClothSCList.ToolButton4Click(Sender: TObject);
|
|
begin
|
|
if Order_Main.IsEmpty then
|
|
exit;
|
|
if not Order_Main.Locate('SSel', True, []) then
|
|
begin
|
|
application.MessageBox('请选择数据！', '提示信息', 0);
|
|
Exit;
|
|
end;
|
|
try
|
|
while Order_Main.Locate('SSel', True, []) do
|
|
begin
|
|
with ADOQueryCmd do
|
|
begin
|
|
close;
|
|
sql.Clear;
|
|
sql.Add('update CLOTH_Main SET status=''0''');
|
|
sql.Add('where mainid=' + quotedstr(trim(Order_Main.fieldbyname('MAINID').AsString)));
|
|
|
|
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
|
sql.Add(' ' + quotedstr(trim(DName)));
|
|
sql.Add(',getdate() ');
|
|
sql.Add(',' + quotedstr(trim(self.Caption)));
|
|
sql.Add(',' + quotedstr(trim('计划单撤销完成')));
|
|
sql.Add(',' + quotedstr(trim('键：' + trim(Order_Main.FieldByName('mainid').AsString))));
|
|
sql.Add(',' + quotedstr(trim('成功')));
|
|
sql.Add(')');
|
|
execsql;
|
|
end;
|
|
Order_Main.Delete;
|
|
end;
|
|
application.MessageBox('撤销成功！', '提示信息');
|
|
TBRafresh.Click;
|
|
except
|
|
application.MessageBox('撤销失败！', '提示信息', 0);
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmClothSCList.cxTabControl1Change(Sender: TObject);
|
|
begin
|
|
ToolButton3.VISIBLE := FALSE;
|
|
ToolButton4.VISIBLE := FALSE;
|
|
case cxTabControl1.TabIndex of
|
|
0:
|
|
begin
|
|
ToolButton3.VISIBLE := TRUE;
|
|
end;
|
|
1:
|
|
begin
|
|
ToolButton4.VISIBLE := TRUE;
|
|
end;
|
|
//SUBSTRING(A.C_colorNO, 2,4)
|
|
end;
|
|
initgrid();
|
|
end;
|
|
|
|
end.
|
|
|