Group_02/D7zzCixin
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
48a82ff3f9
D7zzCixin/坯布生产计划(WeavingSchedule)/U_ClothSCList.pas

1211 lines
43 KiB
ObjectPascal
Raw Normal View History

0
2025-09-30 15:00:54 +08:00
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; //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>׽<EFBFBD><D7BD>־<EFBFBD><D6BE><EFBFBD>
FDdys: string[32]; //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>׽<EFBFBD><D7BD><EFBFBD>
FdDysName: string[32]; //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>׽<EFBFBD><D7BD><EFBFBD>
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) = '<27><>ѯ' then
begin
TBAdd.Visible := False;
TBCopy.Visible := False;
TBEdit.Visible := False;
TBDel.Visible := False;
end;
if (Trim(canshu1) = 'һ<><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') or (Trim(canshu1) = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
begin
TBAdd.Visible := False;
TBCopy.Visible := False;
TBEdit.Visible := False;
TBDel.Visible := False;
end;
end;
procedure TfrmClothSCList.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD>', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
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=''<27>ѳ<EFBFBD><D1B3><EFBFBD>'')');
SQL.Add(',CKqty=(SELECT sum(mjmaoz) FROM WFB_MJJY_PB e where e.mainid=a.mainid AND MJSTR4=''<27>ѳ<EFBFBD><D1B3><EFBFBD>'')');
SQL.Add(',KCps=(SELECT COUNT(*) FROM WFB_MJJY_PB e where e.mainid=a.mainid AND MJSTR4=''δ<><CEB4><EFBFBD><EFBFBD>'')');
SQL.Add(',KCqty=(SELECT sum(mjmaoz) FROM WFB_MJJY_PB e where e.mainid=a.mainid AND MJSTR4=''δ<><CEB4><EFBFBD><EFBFBD>'')');
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=''<27>ѳ<EFBFBD><D1B3><EFBFBD>'')>=PiQty THEN ''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''');
sql.add(' when BegFlag=0 then ''<27><><EFBFBD><EFBFBD>ʼ'' else ''<27>ѿ<EFBFBD>ʼ'' 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('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD>', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
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('<27>Ѳ<EFBFBD><D1B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>ɾ<EFBFBD><C9BE>!', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 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('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
end;
end;
procedure TfrmClothSCList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', 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)=''<27><><EFBFBD><EFBFBD>'' ');
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)=''<27><><EFBFBD><EFBFBD>'' ');
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('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 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 := '<27><><EFBFBD><EFBFBD>';
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=''<27><><EFBFBD><EFBFBD>'' ';
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('<27>ⷢ<EFBFBD><E2B7A2>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C>ⷢ<EFBFBD><E2B7A2><EFBFBD>յ<EFBFBD>.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)=''<27><><EFBFBD><EFBFBD>'' ');
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)=''<27><><EFBFBD><EFBFBD>'' ');
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('û<><C3BB><EFBFBD><EFBFBD>' + ExtractFilePath(Application.ExeName) + 'Report\<5C>ⷢ<EFBFBD><E2B7A2><EFBFBD>յ<EFBFBD>.rmf'), '<27><>ʾ', 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 = '<27>ѿ<EFBFBD>ʼ' then
ACanvas.Font.Color := $FF0000;
if FDDZT = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' 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 := '<27><><EFBFBD><EFBFBD>';
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('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 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('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD>' + trim(Order_Main.FieldByName('mainid').AsString))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
execsql;
end;
Order_Main.Delete;
end;
application.MessageBox('<27><><EFBFBD>ɳɹ<C9B3><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
TBRafresh.Click;
except
application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 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('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 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('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD>' + trim(Order_Main.FieldByName('mainid').AsString))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
execsql;
end;
Order_Main.Delete;
end;
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
TBRafresh.Click;
except
application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 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.
Reference in New Issue Copy Permalink