Group_02/D7zzHanglin
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D7zzHanglin/坯布生产计划(WeavingSchedule)/U_ClothSCInPut.pas

2158 lines
61 KiB
ObjectPascal
Raw Permalink Normal View History

0
2025-08-06 16:42:07 +08:00
unit U_ClothSCInPut;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit,
StrUtils, cxPC, ShellAPI, cxCalendar, Math;
type
TfrmClothSCInPut = class(TForm)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ScrollBox1: TScrollBox;
Label1: TLabel;
ConNo: TEdit;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
ADOQuery1: TADOQuery;
Label2: TLabel;
QDTime: TDateTimePicker;
Label3: TLabel;
Label11: TLabel;
CarType: TcxButtonEdit;
MFQty: TEdit;
Label9: TLabel;
Label14: TLabel;
CompanyName: TcxButtonEdit;
Label15: TLabel;
ZhuanQty: TEdit;
ADOQueryTemp: TADOQuery;
Label18: TLabel;
Label19: TLabel;
Panel2: TPanel;
ToolBar3: TToolBar;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
DataSource2: TDataSource;
CDS_YuanLiao: TClientDataSet;
Label20: TLabel;
DayQty: TEdit;
Label21: TLabel;
KaiFu: TcxButtonEdit;
Label22: TLabel;
ADOQueryCmd: TADOQuery;
Label5: TLabel;
DeliveryDate: TDateTimePicker;
Label4: TLabel;
C_Color: TEdit;
Label6: TLabel;
Label8: TLabel;
Label12: TLabel;
PiKgQty: TEdit;
PiQty: TEdit;
Label10: TLabel;
Label13: TLabel;
C_Qty: TEdit;
Label16: TLabel;
cxPageControl1: TcxPageControl;
cxTabSheet1: TcxTabSheet;
cxTabSheet2: TcxTabSheet;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
v2Column4: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxTabSheet4: TcxTabSheet;
Panel1: TPanel;
Panel3: TPanel;
cxGrid6: TcxGrid;
Tv6: TcxGridDBTableView;
cxGridDBColumn41: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
cxGridDBColumn42: TcxGridDBColumn;
cxGridLevel4: TcxGridLevel;
ClientDataSet6: TClientDataSet;
DataSource6: TDataSource;
ClientDataSet5: TClientDataSet;
DataSource3: TDataSource;
ClientDataSet3: TClientDataSet;
DataSource5: TDataSource;
Panel4: TPanel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
PiZhong: TEdit;
Label7: TLabel;
Label17: TLabel;
ZhenCun: TcxButtonEdit;
ZongZhenQty: TEdit;
Label23: TLabel;
ChouZhen: TcxButtonEdit;
Label29: TLabel;
SongBu: TcxButtonEdit;
Label24: TLabel;
v2Column1: TcxGridDBColumn;
Label25: TLabel;
JGPrice: TEdit;
Label30: TLabel;
v2Column3: TcxGridDBColumn;
ToolButton1: TToolButton;
v2Column5: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
Label31: TLabel;
ToolButton2: TToolButton;
Label32: TLabel;
GZGSType: TComboBox;
Label36: TLabel;
PiKgQtyFD: TEdit;
Label37: TLabel;
Label38: TLabel;
Price: TEdit;
Label39: TLabel;
Label40: TLabel;
C_Note: TRichEdit;
v2Column7: TcxGridDBColumn;
v2Column8: TcxGridDBColumn;
v2Column9: TcxGridDBColumn;
Label55: TLabel;
WFGYS: TBtnEditC;
Label41: TLabel;
v2Column10: TcxGridDBColumn;
v2Column11: TcxGridDBColumn;
Label42: TLabel;
LabName: TComboBox;
cxTabSheet3: TcxTabSheet;
cxGrid7: TcxGrid;
Tv7: TcxGridDBTableView;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn29: TcxGridDBColumn;
cxGridDBColumn30: TcxGridDBColumn;
cxGridDBColumn31: TcxGridDBColumn;
cxGridLevel5: TcxGridLevel;
Tv7Column1: TcxGridDBColumn;
ClientDataSet7: TClientDataSet;
DataSource7: TDataSource;
v7Column1: TcxGridDBColumn;
v7Column2: TcxGridDBColumn;
v7Column3: TcxGridDBColumn;
v7Column4: TcxGridDBColumn;
v7Column5: TcxGridDBColumn;
v7Column6: TcxGridDBColumn;
v7Column7: TcxGridDBColumn;
v7Column8: TcxGridDBColumn;
v7Column9: TcxGridDBColumn;
v7Column10: TcxGridDBColumn;
Label44: TLabel;
KHConNo: TEdit;
Label45: TLabel;
BatchNoHZ: TEdit;
Label46: TLabel;
WzPrice: TEdit;
Label47: TLabel;
ConPRTPrice: TEdit;
Label49: TLabel;
Label33: TLabel;
BZNote: TcxButtonEdit;
Label34: TLabel;
ZZYQ: TcxButtonEdit;
Label35: TLabel;
ZZSH: TcxButtonEdit;
Label52: TLabel;
MFZZS: TcxButtonEdit;
Label53: TLabel;
ALBL: TcxButtonEdit;
Label54: TLabel;
gongyi: TcxButtonEdit;
Label56: TLabel;
SQRatio: TEdit;
Label57: TLabel;
JHChejian: TcxButtonEdit;
C_Spec: TRichEdit;
Label58: TLabel;
ZongJieNote: TcxButtonEdit;
SJCarNO: TcxButtonEdit;
ShaChang: TEdit;
KZ: TEdit;
MF: TEdit;
C_Code: TcxButtonEdit;
C_CodeName: TEdit;
KHName: TcxButtonEdit;
Label43: TLabel;
YWY: TcxButtonEdit;
Label48: TLabel;
KJTS: TEdit;
Label50: TLabel;
PBMF: TEdit;
Label51: TLabel;
PBKZ: TEdit;
Label59: TLabel;
HZPaiSha: TRichEdit;
ToolButton5: TToolButton;
cxGrid5: TcxGrid;
TV5: TcxGridDBTableView;
cxGridDBColumn32: TcxGridDBColumn;
cxGridDBColumn34: TcxGridDBColumn;
cxGridDBColumn35: TcxGridDBColumn;
cxGridDBColumn36: TcxGridDBColumn;
cxGridDBColumn37: TcxGridDBColumn;
cxGridDBColumn38: TcxGridDBColumn;
cxGridDBColumn39: TcxGridDBColumn;
cxGridDBColumn40: TcxGridDBColumn;
cxGridDBColumn43: TcxGridDBColumn;
cxGridDBColumn44: TcxGridDBColumn;
cxGridDBColumn45: TcxGridDBColumn;
cxGridDBColumn46: TcxGridDBColumn;
cxGridDBColumn47: TcxGridDBColumn;
cxGridDBColumn48: TcxGridDBColumn;
cxGridDBColumn49: TcxGridDBColumn;
cxGridDBColumn50: TcxGridDBColumn;
cxGridDBColumn51: TcxGridDBColumn;
cxGridDBColumn52: TcxGridDBColumn;
cxGridDBColumn53: TcxGridDBColumn;
cxGridDBColumn54: TcxGridDBColumn;
cxGridDBColumn55: TcxGridDBColumn;
cxGridDBColumn56: TcxGridDBColumn;
cxGridDBColumn57: TcxGridDBColumn;
cxGridDBColumn58: TcxGridDBColumn;
cxGridDBColumn59: TcxGridDBColumn;
cxGridDBColumn60: TcxGridDBColumn;
cxGridDBColumn61: TcxGridDBColumn;
cxGridDBColumn62: TcxGridDBColumn;
cxGridDBColumn63: TcxGridDBColumn;
cxGridDBColumn64: TcxGridDBColumn;
cxGridDBColumn65: TcxGridDBColumn;
cxGridDBColumn66: TcxGridDBColumn;
cxGridDBColumn67: TcxGridDBColumn;
cxGridDBColumn68: TcxGridDBColumn;
cxGridDBColumn69: TcxGridDBColumn;
cxGridDBColumn70: TcxGridDBColumn;
cxGridDBColumn71: TcxGridDBColumn;
cxGridDBColumn72: TcxGridDBColumn;
cxGridDBColumn73: TcxGridDBColumn;
cxGridDBColumn74: TcxGridDBColumn;
cxGridDBColumn75: TcxGridDBColumn;
cxGridDBColumn76: TcxGridDBColumn;
cxGridDBColumn77: TcxGridDBColumn;
cxGridDBColumn78: TcxGridDBColumn;
cxGridDBColumn79: TcxGridDBColumn;
cxGridDBColumn80: TcxGridDBColumn;
cxGridDBColumn81: TcxGridDBColumn;
cxGridDBColumn82: TcxGridDBColumn;
cxGridDBColumn83: TcxGridDBColumn;
cxGridDBColumn84: TcxGridDBColumn;
cxGridDBColumn85: TcxGridDBColumn;
cxGridDBColumn86: TcxGridDBColumn;
cxGridDBColumn87: TcxGridDBColumn;
cxGridDBColumn88: TcxGridDBColumn;
cxGridDBColumn89: TcxGridDBColumn;
cxGridDBColumn90: TcxGridDBColumn;
cxGridDBColumn91: TcxGridDBColumn;
cxGridDBColumn92: TcxGridDBColumn;
cxGridDBColumn93: TcxGridDBColumn;
cxGridDBColumn94: TcxGridDBColumn;
cxGridDBColumn95: TcxGridDBColumn;
cxGridDBColumn96: TcxGridDBColumn;
cxGridDBColumn97: TcxGridDBColumn;
cxGridDBColumn98: TcxGridDBColumn;
cxGridDBColumn99: TcxGridDBColumn;
cxGridDBColumn100: TcxGridDBColumn;
cxGridDBColumn101: TcxGridDBColumn;
cxGridDBColumn102: TcxGridDBColumn;
cxGridDBColumn103: TcxGridDBColumn;
cxGridDBColumn104: TcxGridDBColumn;
cxGridDBColumn105: TcxGridDBColumn;
cxGridDBColumn106: TcxGridDBColumn;
cxGridDBColumn107: TcxGridDBColumn;
cxGridDBColumn108: TcxGridDBColumn;
cxGridDBColumn109: TcxGridDBColumn;
cxGridDBColumn110: TcxGridDBColumn;
cxGridDBColumn111: TcxGridDBColumn;
cxGridDBColumn112: TcxGridDBColumn;
cxGridDBColumn113: TcxGridDBColumn;
cxGridDBColumn114: TcxGridDBColumn;
cxGridDBColumn115: TcxGridDBColumn;
cxGridDBColumn116: TcxGridDBColumn;
cxGridDBColumn117: TcxGridDBColumn;
cxGridDBColumn118: TcxGridDBColumn;
cxGridDBColumn119: TcxGridDBColumn;
cxGridLevel6: TcxGridLevel;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
v3Column37: TcxGridDBColumn;
v3Column38: TcxGridDBColumn;
v3Column1: TcxGridDBColumn;
v3Column2: TcxGridDBColumn;
v3Column3: TcxGridDBColumn;
v3Column4: TcxGridDBColumn;
v3Column5: TcxGridDBColumn;
v3Column6: TcxGridDBColumn;
v3Column7: TcxGridDBColumn;
v3Column8: TcxGridDBColumn;
v3Column9: TcxGridDBColumn;
v3Column10: TcxGridDBColumn;
v3Column11: TcxGridDBColumn;
v3Column12: TcxGridDBColumn;
v3Column13: TcxGridDBColumn;
v3Column14: TcxGridDBColumn;
v3Column15: TcxGridDBColumn;
v3Column16: TcxGridDBColumn;
v3Column17: TcxGridDBColumn;
v3Column18: TcxGridDBColumn;
v3Column19: TcxGridDBColumn;
v3Column20: TcxGridDBColumn;
v3Column21: TcxGridDBColumn;
v3Column22: TcxGridDBColumn;
v3Column23: TcxGridDBColumn;
v3Column24: TcxGridDBColumn;
v3Column25: TcxGridDBColumn;
v3Column26: TcxGridDBColumn;
v3Column27: TcxGridDBColumn;
v3Column28: TcxGridDBColumn;
v3Column29: TcxGridDBColumn;
v3Column30: TcxGridDBColumn;
v3Column31: TcxGridDBColumn;
v3Column32: TcxGridDBColumn;
v3Column33: TcxGridDBColumn;
v3Column34: TcxGridDBColumn;
v3Column35: TcxGridDBColumn;
v3Column36: TcxGridDBColumn;
v3Column39: TcxGridDBColumn;
v3Column40: TcxGridDBColumn;
v3Column41: TcxGridDBColumn;
v3Column42: TcxGridDBColumn;
v3Column43: TcxGridDBColumn;
v3Column44: TcxGridDBColumn;
v3Column45: TcxGridDBColumn;
v3Column46: TcxGridDBColumn;
v3Column47: TcxGridDBColumn;
v3Column48: TcxGridDBColumn;
v3Column49: TcxGridDBColumn;
v3Column50: TcxGridDBColumn;
v3Column51: TcxGridDBColumn;
v3Column52: TcxGridDBColumn;
v3Column53: TcxGridDBColumn;
v3Column54: TcxGridDBColumn;
v3Column55: TcxGridDBColumn;
v3Column56: TcxGridDBColumn;
v3Column57: TcxGridDBColumn;
v3Column58: TcxGridDBColumn;
v3Column59: TcxGridDBColumn;
v3Column60: TcxGridDBColumn;
v3Column61: TcxGridDBColumn;
v3Column62: TcxGridDBColumn;
v3Column63: TcxGridDBColumn;
v3Column64: TcxGridDBColumn;
v3Column65: TcxGridDBColumn;
v3Column66: TcxGridDBColumn;
v3Column67: TcxGridDBColumn;
v3Column68: TcxGridDBColumn;
v3Column69: TcxGridDBColumn;
v3Column70: TcxGridDBColumn;
v3Column71: TcxGridDBColumn;
v3Column72: TcxGridDBColumn;
v3Column73: TcxGridDBColumn;
v3Column74: TcxGridDBColumn;
v3Column75: TcxGridDBColumn;
v3Column76: TcxGridDBColumn;
v3Column77: TcxGridDBColumn;
v3Column78: TcxGridDBColumn;
v3Column79: TcxGridDBColumn;
v3Column80: TcxGridDBColumn;
v3Column81: TcxGridDBColumn;
v3Column82: TcxGridDBColumn;
v3Column83: TcxGridDBColumn;
v3Column84: TcxGridDBColumn;
v3Column85: TcxGridDBColumn;
v3Column86: TcxGridDBColumn;
v3Column87: TcxGridDBColumn;
v3Column88: TcxGridDBColumn;
v3Column89: TcxGridDBColumn;
v3Column90: TcxGridDBColumn;
v3Column91: TcxGridDBColumn;
v3Column92: TcxGridDBColumn;
v3Column93: TcxGridDBColumn;
v3Column94: TcxGridDBColumn;
v3Column95: TcxGridDBColumn;
v3Column96: TcxGridDBColumn;
v3Column97: TcxGridDBColumn;
v3Column98: TcxGridDBColumn;
v3Column99: TcxGridDBColumn;
v3Column100: TcxGridDBColumn;
v3Column101: TcxGridDBColumn;
v3Column102: TcxGridDBColumn;
v3Column103: TcxGridDBColumn;
v3Column104: TcxGridDBColumn;
v3Column105: TcxGridDBColumn;
v3Column106: TcxGridDBColumn;
v3Column107: TcxGridDBColumn;
v3Column108: TcxGridDBColumn;
v3Column109: TcxGridDBColumn;
v3Column110: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
v3Column111: TcxGridDBColumn;
v3Column112: TcxGridDBColumn;
v3Column113: TcxGridDBColumn;
v3Column114: TcxGridDBColumn;
v3Column115: TcxGridDBColumn;
v3Column116: TcxGridDBColumn;
v3Column117: TcxGridDBColumn;
v3Column118: TcxGridDBColumn;
v3Column119: TcxGridDBColumn;
v3Column120: TcxGridDBColumn;
v3Column121: TcxGridDBColumn;
v3Column122: TcxGridDBColumn;
v3Column123: TcxGridDBColumn;
v3Column124: TcxGridDBColumn;
v3Column125: TcxGridDBColumn;
v3Column126: TcxGridDBColumn;
v3Column127: TcxGridDBColumn;
v3Column128: TcxGridDBColumn;
v3Column129: TcxGridDBColumn;
v3Column130: TcxGridDBColumn;
v3Column131: TcxGridDBColumn;
v3Column132: TcxGridDBColumn;
v3Column133: TcxGridDBColumn;
v3Column134: TcxGridDBColumn;
v3Column135: TcxGridDBColumn;
v3Column136: TcxGridDBColumn;
v3Column137: TcxGridDBColumn;
v3Column138: TcxGridDBColumn;
v3Column139: TcxGridDBColumn;
v3Column140: TcxGridDBColumn;
v3Column141: TcxGridDBColumn;
v3Column142: TcxGridDBColumn;
v3Column143: TcxGridDBColumn;
v3Column144: TcxGridDBColumn;
v3Column145: TcxGridDBColumn;
v3Column146: TcxGridDBColumn;
v2Column12: TcxGridDBColumn;
lbl1: TLabel;
kzzhuan: TEdit;
lbl2: TLabel;
orderflag: TEdit;
btn1: TToolButton;
btn2: TToolButton;
pnl1: TPanel;
edt1: TEdit;
lbl3: TLabel;
btn3: TButton;
btn4: TButton;
btn5: TToolButton;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure C_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v2Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv6DblClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Tv5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure WFGYSBtnUpClick(Sender: TObject);
procedure WFGYSBtnDnClick(Sender: TObject);
procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v2Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure SJCarNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure C_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure KHNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure PiKgQtyChange(Sender: TObject);
procedure PiQtyChange(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure C_CodeKeyPress(Sender: TObject; var Key: Char);
procedure ConNoKeyPress(Sender: TObject; var Key: Char);
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
private
FXS, Fint: Integer;
procedure InitData();
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
function SaveData(): Boolean;
function SaveData2(): Boolean;
{ Private declarations }
public
PState, FCopyInt: Integer;
FMainId, FConNo, PType, FSubId: string;
{ Public declarations }
end;
var
frmClothSCInPut: TfrmClothSCInPut;
newh: hwnd;
implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_CompressionFun, U_ZdyAttachGYS,
U_ShaKCSelList, U_SCPerson, U_ContractListNXSel, U_FjList_RZ, U_JTAllSel,
U_CPManageFMSel, U_ZdyAttachment, U_jitaibiao;
{$R *.dfm}
procedure TfrmClothSCInPut.TBCloseClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmClothSCInPut.InitData();
var
PBNO, PBFlag: string;
begin
if PState = 1 then
begin
ConNo.ReadOnly := True;
end;
with ADOQuery1 do
begin
Close;
SQL.Clear;
sql.Add(' exec Cloth_QryList :MainId,:WSql');
if PState = 1 then
begin
ADOQuery1.Parameters.ParamByName('MainId').Value := Trim(FMainId);
ADOQuery1.Parameters.ParamByName('WSQl').Value := '';
end;
if PState = 0 then
begin
ADOQuery1.Parameters.ParamByName('MainId').Value := Trim(FMainId);
ADOQuery1.Parameters.ParamByName('WSql').Value := ' and 1<>1 ';
end;
Open;
end;
SCSHData(ADOQuery1, ScrollBox1, 0);
SCSHData(ADOQuery1, ScrollBox1, 2);
with ADOTemp do
begin
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))');
if FCopyInt <> 1 then
begin
sql.Add(',CKQty=(select sum(Qty) from CK_SXPB_CR SQ where SQ.PBNO=C.ConNo and SQ.SPName=A.YCLName ');
sql.Add(' and isnull(SQ.PBNO,'''')<>'''' and ZFFlag=0 and CKName=''ɴ<><C9B4>'' and CRFlag=''<27><><EFBFBD><EFBFBD>'' and CRType=''֯<><D6AF><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>'' )');
end;
sql.Add('from Cloth_YCL_PB A ');
sql.Add('inner join Cloth_Sub B on A.SubId=B.SubId');
SQL.Add(' inner join Cloth_Main C on B.Mainid=C.MainId');
sql.Add(' where A.MainId=''' + Trim(FMainId) + '''');
Open;
end;
SCreateCDS20(ADOTemp, CDS_YuanLiao);
SInitCDSData20(ADOTemp, CDS_YuanLiao);
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Cloth_PaiZhen where MainId=''' + Trim(FMainId) + '''');
sql.Add(' and PZType=''<27><><EFBFBD><EFBFBD>'' ');
Open;
end;
SCreateCDS20(ADOTemp, ClientDataSet3);
SInitCDSData20(ADOTemp, ClientDataSet3);
if ClientDataSet3.IsEmpty then
begin
with ClientDataSet3 do
begin
Append;
Post;
Append;
Post;
end;
end;
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Cloth_PaiZhen where MainId=''' + Trim(FMainId) + '''');
sql.Add(' and PZType=''<27><><EFBFBD><EFBFBD>'' ');
Open;
end;
SCreateCDS20(ADOTemp, ClientDataSet5);
SInitCDSData20(ADOTemp, ClientDataSet5);
if PState = 0 then
begin
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select Top 1* from Cloth_Main order by FillTime desc ');
Open;
end;
QDTime.DateTime := SGetServerDate(ADOTemp);
QDTime.Checked := True;
DeliveryDate.Date := QDTime.DateTime;
// PiZhong.Text := '0.1';
end;
if FCopyInt = 1 then
begin
FMainId := '';
ConNo.Text := '';
ConNo.ReadOnly := False;
CDS_YuanLiao.DisableControls;
with CDS_YuanLiao do
begin
First;
while not Eof do
begin
Edit;
FieldByName('MainId').Value := '';
FieldByName('SubId').Value := '';
FieldByName('PBId').Value := '';
FieldByName('BegPBQty').Value := Null;
Post;
Next;
end;
end;
CDS_YuanLiao.EnableControls;
ClientDataSet3.DisableControls;
with ClientDataSet3 do
begin
First;
while not Eof do
begin
Edit;
FieldByName('MainId').Value := '';
FieldByName('SubId').Value := '';
FieldByName('PZId').Value := '';
Post;
Next;
end;
end;
ClientDataSet3.EnableControls;
ClientDataSet5.DisableControls;
with ClientDataSet5 do
begin
First;
while not Eof do
begin
Edit;
FieldByName('MainId').Value := '';
FieldByName('SubId').Value := '';
FieldByName('PZId').Value := '';
Post;
Next;
end;
end;
ClientDataSet5.EnableControls;
end;
with ADOTemp do
begin
close;
sql.Clear;
sql.Add('select TFID,FileName,TFdate,Filler,FillTime from TP_File ');
sql.Add('where WBID=' + quotedstr(FMainId));
sql.Add('and TFType=''PB<50><42><EFBFBD><EFBFBD>'' ');
open;
end;
SCreateCDS20(ADOTemp, ClientDataSet6);
SInitCDSData20(ADOTemp, ClientDataSet6);
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Cloth_WJG where MainId=''' + Trim(FMainId) + '''');
Open;
end;
SCreateCDS20(ADOTemp, ClientDataSet7);
SInitCDSData20(ADOTemp, ClientDataSet7);
end;
procedure TfrmClothSCInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string);
begin
end;
procedure TfrmClothSCInPut.FormShow(Sender: TObject);
begin
InitData();
end;
function TfrmClothSCInPut.SaveData(): Boolean;
var
maxno, maxsubno, maxpbno, maxpzno, maxsjno: string;
begin
try
ADOCmd.Connection.BeginTrans;
if Trim(FMainId) = '' then
begin
if GetLSNo(ADOCmd, maxno, 'CM', 'Cloth_Main', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
exit;
end;
end
else
begin
maxno := Trim(FMainId);
end;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from Cloth_Main where MainId=''' + Trim(FMainId) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(FMainId) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('MainId').Value := Trim(maxno);
RTSetsavedata(ADOCmd, 'Cloth_Main', ScrollBox1, 0);
FieldByName('ConType').Value := '<27><><EFBFBD><EFBFBD>';
if Trim(FMainId) = '' then
begin
FieldByName('Filler').Value := Trim(DName);
end
else
begin
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update Cloth_Main Set ConMainId=(select MainId from JYOrderCon_Sub_PB A where A.SubId=Cloth_Main.ConSubId)');
sql.Add(' where MainId=''' + Trim(maxno) + '''');
ExecSQL;
end;
//FMainId:=Trim(maxno);
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Cloth_Main where ConNo=''' + Trim(ConNo.Text) + '''');
Open;
end;
if ADOTemp.RecordCount > 1 then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
///<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>
if Trim(FSubId) = '' then
begin
if GetLSNo(ADOTemp, maxsubno, '9', 'Cloth_Sub', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxsubno := Trim(FSubId);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Cloth_Sub where ');
sql.Add(' SubId=''' + Trim(maxsubno) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(FSubId) = '' then
Append
else
Edit;
FieldByName('MainId').Value := Trim(maxno);
FieldByName('SubId').Value := Trim(maxsubno);
RTSetsavedata(ADOCmd, 'Cloth_Sub', ScrollBox1, 2);
Post;
end;
///<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȱ<EFBFBD>
with CDS_YuanLiao do
begin
First;
while not Eof do
begin
if Trim(CDS_YuanLiao.fieldbyname('PBId').AsString) = '' then
begin
if GetLSNo(ADOTemp, maxpbno, 'PB', 'Cloth_YCL_PB', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxpbno := Trim(CDS_YuanLiao.fieldbyname('PBId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Cloth_YCL_PB where ');
sql.Add(' PBId=''' + Trim(maxpbno) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(CDS_YuanLiao.fieldbyname('PBId').AsString) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
FieldByName('FillTime').Value := SGetServerDateTime(ADOTemp);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
FieldByName('MainId').Value := Trim(maxno);
FieldByName('SubId').Value := Trim(maxsubno);
FieldByName('PBId').Value := Trim(maxpbno);
FieldByName('SPId').Value := Trim(CDS_YuanLiao.fieldbyname('SPId').AsString);
RTSetSaveDataCDS(ADOCmd, Tv2, CDS_YuanLiao, 'Cloth_YCL_PB', 0);
Post;
end;
CDS_YuanLiao.Edit;
CDS_YuanLiao.FieldByName('SubId').Value := Trim(maxsubno);
CDS_YuanLiao.FieldByName('MainId').Value := Trim(maxno);
CDS_YuanLiao.FieldByName('PBId').Value := Trim(maxpbno);
//Order_Sub.Post;
Next;
end;
end;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȱ<EFBFBD>
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
ClientDataSet3.DisableControls;
with ClientDataSet3 do
begin
First;
while not Eof do
begin
if Trim(ClientDataSet3.fieldbyname('PZId').AsString) = '' then
begin
if GetLSNo(ADOCmd, maxpzno, 'PZ', 'Cloth_PaiZhen', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxpzno := Trim(ClientDataSet3.fieldbyname('PZId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Cloth_PaiZhen where ');
sql.Add(' PZId=''' + Trim(maxpzno) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(ClientDataSet3.fieldbyname('PZId').AsString) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
FieldByName('FillTime').Value := SGetServerDateTime(ADOTemp);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
FieldByName('MainId').Value := Trim(maxno);
FieldByName('SubId').Value := Trim(maxsubno);
FieldByName('PZId').Value := Trim(maxpzno);
RTSetSaveDataCDS(ADOCmd, Tv3, ClientDataSet3, 'Cloth_PaiZhen', 0);
FieldByName('PZType').Value := '<27><><EFBFBD><EFBFBD>';
FieldByName('PZName').Value := ClientDataSet3.fieldbyname('PZName').AsString;
Post;
end;
ClientDataSet3.Edit;
ClientDataSet3.FieldByName('PZId').Value := Trim(maxpzno);
//Order_Sub.Post;
Next;
end;
end;
ClientDataSet3.EnableControls;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>DZ<EFBFBD>
ClientDataSet5.DisableControls;
with ClientDataSet5 do
begin
First;
while not Eof do
begin
if Trim(ClientDataSet5.fieldbyname('PZId').AsString) = '' then
begin
if GetLSNo(ADOCmd, maxsjno, 'PZ', 'Cloth_PaiZhen', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxsjno := Trim(ClientDataSet5.fieldbyname('PZId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Cloth_PaiZhen where ');
sql.Add(' PZId=''' + Trim(maxsjno) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(ClientDataSet5.fieldbyname('PZId').AsString) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
FieldByName('FillTime').Value := SGetServerDateTime(ADOTemp);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
FieldByName('MainId').Value := Trim(maxno);
FieldByName('SubId').Value := Trim(maxsubno);
FieldByName('PZId').Value := Trim(maxsjno);
RTSetSaveDataCDS(ADOCmd, Tv5, ClientDataSet5, 'Cloth_PaiZhen', 0);
FieldByName('PZType').Value := '<27><><EFBFBD><EFBFBD>';
Post;
end;
ClientDataSet5.Edit;
ClientDataSet5.FieldByName('PZId').Value := Trim(maxsjno);
//Order_Sub.Post;
Next;
end;
end;
ClientDataSet5.EnableControls;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>DZ<EFBFBD>
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD>
ClientDataSet7.DisableControls;
with ClientDataSet7 do
begin
First;
while not Eof do
begin
if Trim(ClientDataSet7.fieldbyname('JGId').AsString) = '' then
begin
if GetLSNo(ADOCmd, maxsjno, 'JG', 'Cloth_WJG', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<>ⷢ<EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxsjno := Trim(ClientDataSet7.fieldbyname('JGId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Cloth_WJG where ');
sql.Add(' JGId=''' + Trim(maxsjno) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(ClientDataSet7.fieldbyname('JGId').AsString) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
FieldByName('FillTime').Value := SGetServerDateTime(ADOTemp);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
FieldByName('MainId').Value := Trim(maxno);
FieldByName('SubId').Value := Trim(maxsubno);
FieldByName('JGId').Value := Trim(maxsjno);
FieldByName('WFGYSNo').Value := Trim(ClientDataSet7.fieldbyname('WFGYSNo').AsString);
FieldByName('WFGYSNameJC').Value := Trim(ClientDataSet7.fieldbyname('WFGYSNameJC').AsString);
RTSetSaveDataCDS(ADOCmd, Tv7, ClientDataSet7, 'Cloth_WJG', 0);
Post;
end;
ClientDataSet7.Edit;
ClientDataSet7.FieldByName('JGId').Value := Trim(maxsjno);
//Order_Sub.Post;
Next;
end;
end;
ClientDataSet7.EnableControls;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select WFGYSName from Cloth_WJG where MainId=''' + Trim(maxno) + '''');
sql.Add(' group by WFGYSName having count(*)>1');
Open;
end;
if ADOCmd.RecordCount > 0 then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27>ⷢ<EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD>λ<EFBFBD><CEBB>һ<EFBFBD>Ŷ<EFBFBD><C5B6><EFBFBD><EFBFBD><EFBFBD>ֻ<EFBFBD>ܴ<EFBFBD><DCB4><EFBFBD>һ<EFBFBD><D2BB>!', '<27><>ʾ', 0);
Exit;
end;
////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>ⷢ<EFBFBD><E2B7A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('Update Cloth_WJG Set JGMoney=isnull(JGPrice,0)*isnull(WFWCQtyZP,0)');
sql.Add(',JSMoney=isnull(JGPrice,0)*isnull(WFWCQtyZP,0)-isnull(KKMoney,0)');
sql.Add(' where MainId=''' + Trim(maxno) + '''');
ExecSQL;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_Update_Cloth_Sub_WJG_Qty :MainId');
Parameters.ParamByName('MainId').Value := Trim(maxno);
ExecSQL;
end;
///////////////<2F><><EFBFBD><EFBFBD><EFBFBD>ⷢ<EFBFBD><E2B7A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD>
///<2F><><EFBFBD>¸<EFBFBD><C2B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
ClientDataSet6.DisableControls;
with ClientDataSet6 do
begin
First;
while not Eof do
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('Update TP_File Set WBID=''' + Trim(maxno) + '''');
sql.Add(' where TFID=''' + Trim(ClientDataSet6.fieldbyname('TFID').AsString) + '''');
ExecSQL;
end;
Next;
end;
end;
ClientDataSet6.EnableControls;
///<2F><><EFBFBD>¸<EFBFBD><C2B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// with ADOCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('UPdate Cloth_Sub Set BatchNoHZ=[dbo].[F_Get_Order_SubStr_PB](Cloth_Sub.MainId,''SXBatChNo'')');
// sql.Add(' where MainId='''+Trim(maxno)+'''');
// ExecSQL;
// end;
ADOCmd.Connection.CommitTrans;
FMainId := Trim(maxno);
FSubId := Trim(maxsubno);
Result := True;
except
Result := False;
ClientDataSet3.EnableControls;
ClientDataSet5.EnableControls;
ClientDataSet6.EnableControls;
CDS_YuanLiao.EnableControls;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
end;
end;
procedure TfrmClothSCInPut.TBSaveClick(Sender: TObject);
var
FReal: Double;
maxConNo: string;
begin
QDTime.SetFocus;
if Trim(ConNo.Text) = '' then
begin
if GetLSNo(ADOCmd, maxConNo, 'MS', 'Cloth_Main', 3, 1) = False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
exit;
end;
ConNo.Text := maxConNo;
end;
if Trim(C_CodeName.Text) = '' then
begin
Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if Trim(C_Code.Text) = '' then
begin
Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if Trim(LabName.Text) = '' then
begin
Application.MessageBox('<27><>ǩ<EFBFBD><C7A9>ʽ<EFBFBD><CABD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if Trim(JHChejian.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD>䲻<EFBFBD><E4B2BB>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
{if DeliveryDate.Checked=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڲ<EFBFBD><DAB2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;}
if QDTime.Checked = False then
begin
Application.MessageBox('<27>µ<EFBFBD><C2B5><EFBFBD><EFBFBD>ڲ<EFBFBD><DAB2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
{if Trim(C_Qty.Text)='' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end; }
if Trim(C_Qty.Text) <> '' then
begin
if TryStrToFloat(C_Qty.Text, FReal) = False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
if Trim(DayQty.Text) <> '' then
begin
if TryStrToFloat(DayQty.Text, FReal) = False then
begin
Application.MessageBox('<27>ղ<EFBFBD><D5B2>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
if Trim(ZongZhenQty.Text) <> '' then
begin
if TryStrToFloat(ZongZhenQty.Text, FReal) = False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
if Trim(ZhuanQty.Text) = '' then
begin
ZhuanQty.Text := '0';
end;
if TryStrToFloat(ZhuanQty.Text, FReal) = False then
begin
Application.MessageBox('ת<><D7AA><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
// if Trim(PiQty.Text) = '' then
// begin
// Application.MessageBox('ƥ<><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
// Exit;
// end;
// if TryStrToFloat(PiQty.Text, FReal) = False then
// begin
// Application.MessageBox('ƥ<><C6A5><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
// if Trim(PiQty.Text) = '' then
// begin
// Application.MessageBox('ƥ<>ز<EFBFBD><D8B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
// Exit;
// end;
// if TryStrToFloat(PiQty.Text, FReal) = False then
// begin
// Application.MessageBox('ƥ<>طǷ<D8B7><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
{if Trim(PiZhong.Text)='' then
begin
Application.MessageBox('Ƥ<>ز<EFBFBD><D8B2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end; }
if Trim(PiZhong.Text) <> '' then
begin
if TryStrToFloat(PiZhong.Text, FReal) = False then
begin
Application.MessageBox('<27>ռӷǷ<D3B7><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
if Trim(GZGSType.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD>ʹ<EFBFBD>ʽ<EFBFBD><CABD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
// if Trim(KZQty.Text) <> '' then
// begin
// if TryStrToFloat(Trim(KZQty.Text), FReal) = False then
// begin
// Application.MessageBox('<27><><EFBFBD>طǷ<D8B7><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
// end;
// if Trim(MFQty.Text) <> '' then
// begin
// if TryStrToFloat(Trim(MFQty.Text), FReal) = False then
// begin
// Application.MessageBox('<27>ŷ<EFBFBD><C5B7>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
// end;
// if CDS_YuanLiao.IsEmpty then
// begin
// Application.MessageBox('ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
// Exit;
// end;
// if CDS_YuanLiao.Locate('PBQty',Null,[])=True then
// begin
// Application.MessageBox('ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD>Ȳ<EFBFBD><C8B2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
// Exit;
// end;
if CDS_YuanLiao.Locate('YCLName', Null, []) = True then
begin
Application.MessageBox('ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if SaveData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
ModalResult := 1;
end;
end;
procedure TfrmClothSCInPut.C_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
if fsj = '' then
begin
{try
frmCPManageCX:=TfrmCPManageCX.Create(Application);
with frmCPManageCX do
begin
if ShowModal=1 then
begin
Self.C_CodeName.Text:=Trim(frmCPManageCX.CDS_Main.fieldbyname('CYName').AsString);
Self.C_Code.Text:=Trim(frmCPManageCX.CDS_Main.fieldbyname('CYNo').AsString);
Self.C_Spec.Text:=Trim(frmCPManageCX.CDS_Main.fieldbyname('CYSpec').AsString);
end;
end;
finally
frmCPManageCX.Free;
end; }
end
else
begin
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if Trim(flag) = 'C_CodeName' then
begin
fnote := True;
V1Note.Caption := '<27><><EFBFBD><EFBFBD>';
end;
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
end;
procedure TfrmClothSCInPut.ToolButton3Click(Sender: TObject);
var
OpenDiaLog: TOpenDialog;
fFileName: string;
fFilePath: string;
maxNo: string;
FJStream: TMemoryStream;
mfileSize: integer;
mCreationTime: TdateTime;
mWriteTime: TdateTime;
begin
//if cxPageControl1.ActivePageIndex=0 then Exit;
if cxPageControl1.ActivePageIndex = 0 then
begin
with CDS_YuanLiao do
begin
Append;
FieldByName('PBQty').Value := 0;
Post;
end;
end
else if cxPageControl1.ActivePageIndex = 1 then
begin
if Fint = 1 then
begin
with ClientDataSet3 do
begin
Append;
Post;
end;
end
else if Fint = 2 then
with ClientDataSet5 do
begin
Append;
Post;
end;
end
else if cxPageControl1.ActivePageIndex = 2 then
begin
try
adoqueryCmd.Connection.BeginTrans;
OpenDiaLog := TOpenDialog.Create(Self);
if OpenDiaLog.Execute then
begin
fFilePath := OpenDiaLog.FileName;
fFileName := ExtractFileName(OpenDiaLog.FileName);
Panel4.Caption := '<27><><EFBFBD>ڼ<EFBFBD><DABC><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ե<EFBFBD>...';
Panel4.Visible := true;
application.ProcessMessages;
if GetLSNo(ADOQueryCmd, maxNo, 'FJ', 'TP_File', 4, 1) = False then
begin
adoqueryCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
//<2F><>ȡ<EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>Ϣ
GetFileInfo(fFilePath, mfileSize, mCreationTime, mWriteTime);
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('delete from TP_File ');
sql.Add('where TFID=' + quotedstr(trim(maxNo)));
execsql;
end;
try
FJStream := TMemoryStream.Create;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from TP_File ');
sql.Add('where TFID=' + quotedstr(trim(maxNo)));
open;
append;
fieldbyname('TFID').Value := trim(maxNo);
fieldbyname('TFType').Value := 'PB<50><42><EFBFBD><EFBFBD>';
fieldbyname('Filler').Value := trim(DName);
fieldbyname('FileName').Value := trim(fFileName);
fieldbyname('TFDate').Value := mWriteTime;
FJStream.LoadFromFile(fFilePath);
CompressionStream(FJStream);
tblobfield(FieldByName('Filesother')).LoadFromStream(FJStream);
post;
end;
with ClientDataSet6 do
begin
Append;
FieldByName('TFID').Value := Trim(maxNo);
FieldByName('FillTime').Value := SGetServerDateTime(ADOTemp);
FieldByName('TFdate').Value := mWriteTime;
FieldByName('Filler').Value := Trim(DName);
fieldbyname('FileName').Value := trim(fFileName);
Post;
end;
finally
FJStream.Free;
end;
end;
adoqueryCmd.Connection.CommitTrans;
Panel4.Visible := False;
except
Panel4.Visible := False;
adoqueryCmd.Connection.RollbackTrans;
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end
else if cxPageControl1.ActivePageIndex = 3 then
begin
with ClientDataSet7 do
begin
Append;
Post;
end;
end;
end;
procedure TfrmClothSCInPut.ToolButton4Click(Sender: TObject);
begin
if cxPageControl1.ActivePageIndex = 0 then
begin
if CDS_YuanLiao.IsEmpty then
Exit;
if Trim(CDS_YuanLiao.fieldbyname('PBId').AsString) <> '' then
begin
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete Cloth_YCL_PB where PBId=''' + Trim(CDS_YuanLiao.fieldbyname('PBId').AsString) + '''');
ExecSQL;
end;
end;
CDS_YuanLiao.Delete;
end
else if cxPageControl1.ActivePageIndex = 1 then
begin
if Fint = 1 then
begin
if ClientDataSet3.IsEmpty then
Exit;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete Cloth_PaiZhen where PZID=''' + Trim(ClientDataSet3.fieldbyname('PZID').AsString) + '''');
ExecSQL;
end;
ClientDataSet3.Delete;
end
else if Fint = 2 then
begin
if ClientDataSet5.IsEmpty then
Exit;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete Cloth_PaiZhen where PZID=''' + Trim(ClientDataSet5.fieldbyname('PZID').AsString) + '''');
ExecSQL;
end;
ClientDataSet5.Delete;
end;
end
else if cxPageControl1.ActivePageIndex = 2 then
begin
if ClientDataSet6.IsEmpty then
Exit;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete TP_File where TFID=''' + Trim(ClientDataSet6.fieldbyname('TFID').AsString) + '''');
ExecSQL;
end;
ClientDataSet6.Delete;
end
else if cxPageControl1.ActivePageIndex = 3 then
begin
if ClientDataSet7.IsEmpty then
Exit;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete Cloth_WJG where JGID=''' + Trim(ClientDataSet7.fieldbyname('JGID').AsString) + '''');
ExecSQL;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Update_Cloth_Sub_WJG_Qty :Mainid');
Parameters.ParamByName('Mainid').Value := Trim(FMainId);
ExecSQL;
end;
ClientDataSet7.Delete;
end;
end;
procedure TfrmClothSCInPut.cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'SXYCLName';
flagname := 'ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
Self.CDS_YuanLiao.Edit;
Self.CDS_YuanLiao.FieldByName('YCLName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmClothSCInPut.v2Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'PinPai';
flagname := 'Ʒ<><C6B7>';
if ShowModal = 1 then
begin
Self.CDS_YuanLiao.Edit;
Self.CDS_YuanLiao.FieldByName('PinPai').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmClothSCInPut.Tv6DblClick(Sender: TObject);
var
sFieldName: string;
fileName: string;
ff: TADOBlobStream;
FJStream: TMemoryStream;
begin
if ClientDataSet6.IsEmpty then
exit;
Panel4.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ե<EFBFBD>...';
Panel4.Visible := true;
application.ProcessMessages;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from TP_File where TFID=''' + Trim(ClientDataSet6.fieldbyname('TFID').AsString) + '''');
Open;
end;
sFieldName := 'D:\ͼƬ<CDBC>鿴';
if not DirectoryExists(pchar(sFieldName)) then
CreateDirectory(pchar(sFieldName), nil);
fileName := ClientDataSet6.fieldbyname('FileName').AsString;
sFieldName := sFieldName + '\' + trim(fileName);
try
ff := TADOBlobstream.Create(ADOQueryTemp.fieldByName('FilesOther') as TblobField, bmRead);
FJStream := TMemoryStream.Create;
ff.SaveToStream(FJStream);
UnCompressionStream(FJStream);
FJStream.SaveToFile(sFieldName);
Panel4.Visible := False;
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
finally
Panel4.Visible := False;
FJStream.free;
ff.Free;
end;
end;
procedure TfrmClothSCInPut.ToolButton1Click(Sender: TObject);
begin
if cxPageControl1.ActivePageIndex <> 0 then
Exit;
try
frmShaKCSelList := TfrmShaKCSelList.Create(Application);
with frmShaKCSelList do
begin
if ShowModal = 1 then
begin
with CDS_YuanLiao do
begin
Append;
FieldByName('YCLName').Value := frmShaKCSelList.CDS_Main.fieldbyname('SPName').Value;
FieldByName('YCLSpec').Value := frmShaKCSelList.CDS_Main.fieldbyname('SPSpec').Value;
FieldByName('PinPai').Value := frmShaKCSelList.CDS_Main.fieldbyname('SXPinPai').Value;
FieldByName('GYSName').Value := frmShaKCSelList.CDS_Main.fieldbyname('FactoryName').Value;
FieldByName('BatchNo').Value := frmShaKCSelList.CDS_Main.fieldbyname('BatchNo').Value;
FieldByName('SPID').Value := frmShaKCSelList.CDS_Main.fieldbyname('SPID').Value;
//Post;
end;
end;
end;
finally
frmShaKCSelList.Free;
end;
end;
procedure TfrmClothSCInPut.ToolButton2Click(Sender: TObject);
begin
if cxPageControl1.ActivePageIndex <> 0 then
Exit;
if CDS_YuanLiao.IsEmpty then
Exit;
try
frmShaKCSelList := TfrmShaKCSelList.Create(Application);
with frmShaKCSelList do
begin
if ShowModal = 1 then
begin
with CDS_YuanLiao do
begin
Edit;
FieldByName('YCLName').Value := frmShaKCSelList.CDS_Main.fieldbyname('SPName').Value;
FieldByName('YCLSpec').Value := frmShaKCSelList.CDS_Main.fieldbyname('SPSpec').Value;
FieldByName('PinPai').Value := frmShaKCSelList.CDS_Main.fieldbyname('SXPinPai').Value;
FieldByName('GYSName').Value := frmShaKCSelList.CDS_Main.fieldbyname('FactoryName').Value;
// FieldByName('BatchNo').Value:=frmShaKCSelList.CDS_Main.fieldbyname('BatchNo').Value;
FieldByName('SPID').Value := frmShaKCSelList.CDS_Main.fieldbyname('SPID').Value;
//Post;
end;
end;
end;
finally
frmShaKCSelList.Free;
end;
end;
procedure TfrmClothSCInPut.Tv3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Fint := 1;
end;
procedure TfrmClothSCInPut.Tv5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Fint := 2;
end;
procedure TfrmClothSCInPut.WFGYSBtnUpClick(Sender: TObject);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
if ShowModal = 1 then
begin
Self.WFGYS.Text := Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmClothSCInPut.WFGYSBtnDnClick(Sender: TObject);
begin
WFGYS.Text := '';
end;
procedure TfrmClothSCInPut.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
FactType.ItemIndex := FactType.Items.IndexOf('<27>ӹ<EFBFBD><D3B9><EFBFBD>');
if ShowModal = 1 then
begin
with Self.ClientDataSet7 do
begin
Edit;
FieldByName('WFGYSName').Value := Trim(CDS_HZ.fieldbyname('CoName').AsString);
FieldByName('WFGYSNo').Value := Trim(CDS_HZ.fieldbyname('CoCode').AsString);
FieldByName('WFGYSNameJC').Value := Trim(CDS_HZ.fieldbyname('CoHRName').AsString);
end;
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmClothSCInPut.v2Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
if ShowModal = 1 then
begin
with Self.CDS_YuanLiao do
begin
Edit;
FieldByName('GYSName').Value := Trim(CDS_HZ.fieldbyname('CoName').AsString);
end;
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmClothSCInPut.SJCarNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
FSJCarNO: string;
begin
try
frmJTAllSel := TfrmJTAllSel.Create(Application);
with frmJTAllSel do
begin
if ShowModal = 1 then
begin
with frmJTAllSel.ClientDataSet1 do
begin
while frmJTAllSel.ClientDataSet1.Locate('SSel', true, []) do
begin
if trim(FSJCarNO) = '' then
FSJCarNO := trim(ClientDataSet1.fieldbyname('MCNO').AsString)
else
FSJCarNO := FSJCarNO + ',' + trim(ClientDataSet1.fieldbyname('MCNO').AsString);
JHChejian.Text := trim(ClientDataSet1.fieldbyname('MCCJ').AsString);
frmJTAllSel.ClientDataSet1.delete;
end;
end;
end;
end;
finally
frmJTAllSel.Free;
end;
SJCarNO.Text := FSJCarNO;
end;
procedure TfrmClothSCInPut.C_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCPManageFMSel := TfrmCPManageFMSel.Create(Application);
with frmCPManageFMSel do
begin
if ShowModal = 1 then
begin
C_Code.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYNo').AsString;
C_CodeName.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYName').AsString;
C_Spec.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYSpec').AsString;
C_Color.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYColor').AsString;
MF.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYMF').AsString;
KZ.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYKZ').AsString;
self.ShaChang.Text := frmCPManageFMSel.CDS_Main.fieldbyname('ShaChang').AsString;
self.CarType.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CarType').AsString;
self.KHName.Text := frmCPManageFMSel.CDS_Main.fieldbyname('ForCustomer').AsString;
end;
end;
finally
frmCPManageFMSel.Free;
end;
end;
procedure TfrmClothSCInPut.KHNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZdyAttachment := TfrmZdyAttachment.Create(Application);
with frmZdyAttachment do
begin
if ShowModal = 1 then
begin
KHName.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
end;
end;
finally
frmZdyAttachment.Free;
end;
end;
procedure TfrmClothSCInPut.PiKgQtyChange(Sender: TObject);
var
FC_Qty, FPiKgQty: Double;
begin
FC_Qty := StrToFloatDef(C_Qty.Text, 0);
FPiKgQty := StrToFloatDef(PiKgQty.Text, 0);
if FPiKgQty > 0 then
PiQty.Text := IntToStr(Ceil(FC_Qty / FPiKgQty))
else
PiQty.Text := '0';
end;
procedure TfrmClothSCInPut.PiQtyChange(Sender: TObject);
var
FC_Qty, FPiKgQty, FPiQty: Double;
begin
FPiKgQty := StrToFloatDef(PiKgQty.Text, 0);
FPiQty := StrToFloatDef(PiQty.Text, 0);
if FPiQty > 0 then
C_Qty.Text := FloatToStr(FPiKgQty * FPiQty)
else
C_Qty.Text := '0';
end;
procedure TfrmClothSCInPut.ToolButton5Click(Sender: TObject);
var
FSZ, FSC, FLS, ZZL: Double;
begin
ZZL := 0;
with CDS_YuanLiao do
begin
First;
while not eof do
begin
FSZ := StrToFloatDef(FieldByName('YCLSpec').AsString, 1);
FSC := StrToFloatDef(FieldByName('ShaChang').AsString, 1);
FLS := StrToFloatDef(FieldByName('YongShaLuShu').AsString, 1);
ZZL := ZZL + FSZ * FSC * FLS;
Next;
end;
end;
with CDS_YuanLiao do
begin
First;
while not eof do
begin
FSZ := StrToFloatDef(FieldByName('YCLSpec').AsString, 1);
FSC := StrToFloatDef(FieldByName('ShaChang').AsString, 1);
FLS := StrToFloatDef(FieldByName('YongShaLuShu').AsString, 1);
Edit;
FieldByName('PBQty').Value := FSZ * FSC * FLS / ZZL * 100;
FieldByName('PBQty2').Value := FSZ * FSC * FLS / ZZL * 100;
Next;
end;
end;
end;
procedure TfrmClothSCInPut.C_CodeKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SelectNext(ActiveControl as TWinControl, True, True);
end;
end;
procedure TfrmClothSCInPut.ConNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SelectNext(ActiveControl as TWinControl, True, True);
end;
end;
procedure TfrmClothSCInPut.btn1Click(Sender: TObject);
begin
pnl1.Visible := True;
end;
function TfrmClothSCInPut.SaveData2(): Boolean;
var
maxpzno, maxno, maxsubno, maxsjno, Fpbnname: string;
begin
try
ADOCmd.Connection.BeginTrans;
ClientDataSet3.DisableControls;
with ClientDataSet3 do
begin
First;
while not Eof do
begin
if Trim(ClientDataSet3.fieldbyname('PZId').AsString) = '' then
begin
if GetLSNo(ADOCmd, maxpzno, 'PZB', 'Cloth_PaiZhen2', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxpzno := Trim(ClientDataSet3.fieldbyname('PZId').AsString);
end;
// with ADOCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add('select * from Cloth_PaiZhen2 where ');
// sql.Add(' PZname=''' + Trim(edt1.Text) + '''');
// Open;
// end;
// if adocmd.IsEmpty = false then
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>!', '<27><>ʾ', 0);
// Exit;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Cloth_PaiZhen2 where ');
sql.Add(' PZId=''' + Trim(maxpzno) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(ClientDataSet3.fieldbyname('PZId').AsString) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
FieldByName('FillTime').Value := SGetServerDateTime(ADOTemp);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
FieldByName('MainId').Value := Trim(maxno);
FieldByName('SubId').Value := Trim(maxsubno);
FieldByName('PZId').Value := Trim(maxpzno);
RTSetSaveDataCDS(ADOCmd, Tv3, ClientDataSet3, 'Cloth_PaiZhen2', 0);
FieldByName('PZType').Value := '<27><><EFBFBD><EFBFBD>';
FieldByName('PZName').Value := edt1.Text;
FieldByName('PBName').Value := C_CodeName.Text;
Post;
end;
ClientDataSet3.Edit;
ClientDataSet3.FieldByName('PZId').Value := Trim(maxpzno);
//Order_Sub.Post;
Next;
end;
end;
ClientDataSet3.EnableControls;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>DZ<EFBFBD>
ClientDataSet5.DisableControls;
with ClientDataSet5 do
begin
First;
while not Eof do
begin
if Trim(ClientDataSet5.fieldbyname('PZId').AsString) = '' then
begin
if GetLSNo(ADOCmd, maxsjno, 'PZB', 'Cloth_PaiZhen2', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxsjno := Trim(ClientDataSet5.fieldbyname('PZId').AsString);
end;
// with ADOCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add('select * from Cloth_PaiZhen2 where ');
// sql.Add(' PZname=''' + Trim(edt1.Text) + '''');
// Open;
// end;
// if adocmd.IsEmpty = false then
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>!', '<27><>ʾ', 0);
// Exit;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Cloth_PaiZhen2 where ');
sql.Add(' PZId=''' + Trim(maxsjno) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(ClientDataSet5.fieldbyname('PZId').AsString) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
FieldByName('FillTime').Value := SGetServerDateTime(ADOTemp);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
FieldByName('MainId').Value := Trim(maxno);
FieldByName('SubId').Value := Trim(maxsubno);
FieldByName('PZId').Value := Trim(maxsjno);
RTSetSaveDataCDS(ADOCmd, Tv5, ClientDataSet5, 'Cloth_PaiZhen2', 0);
FieldByName('PZType').Value := '<27><><EFBFBD><EFBFBD>';
FieldByName('PBName').Value := C_CodeName.Text;
FieldByName('PZName').Value := edt1.Text;
Post;
end;
ClientDataSet5.Edit;
ClientDataSet5.FieldByName('PZId').Value := Trim(maxsjno);
//Order_Sub.Post;
Next;
end;
end;
ClientDataSet5.EnableControls;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>DZ<EFBFBD>
ADOCmd.Connection.CommitTrans;
Result := True;
except
Result := False;
ClientDataSet3.EnableControls;
ClientDataSet5.EnableControls;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
end;
end;
procedure TfrmClothSCInPut.btn2Click(Sender: TObject);
var
i: Integer;
s: string;
K: string;
begin
try
frmMachineManage := TfrmMachineManage.Create(Application);
with frmMachineManage do
begin
K := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
frmMachineManage.CDS_HZ.DisableControls;
with frmMachineManage.CDS_HZ do
begin
First;
while Locate('SSel', True, []) do
begin
with ClientDataSet5 do
begin
Append;
FieldByName('weizhi').Value := frmMachineManage.CDS_HZ.fieldbyname('weizhi').Value;
for i := 1 to 80 do
begin
s := 'PZ' + inttostr(i);
FieldByName(s).Value := frmMachineManage.CDS_HZ.fieldbyname(s).Value;
end;
end;
frmMachineManage.CDS_HZ.Delete;
end;
end;
frmMachineManage.CDS_HZ.EnableControls;
end;
end;
finally
frmMachineManage.Free;
end;
end;
procedure TfrmClothSCInPut.btn3Click(Sender: TObject);
begin
// fname := edt1.text;
if SaveData2() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
pnl1.Visible := False;
// ModalResult := 1;
end;
end;
procedure TfrmClothSCInPut.btn4Click(Sender: TObject);
begin
pnl1.Visible := False;
end;
procedure TfrmClothSCInPut.btn5Click(Sender: TObject);
var
i: Integer;
s: string;
begin
try
frmMachineManage := TfrmMachineManage.Create(Application);
with frmMachineManage do
begin
K := '';
if ShowModal = 1 then
begin
frmMachineManage.CDS_HZ.DisableControls;
with frmMachineManage.CDS_HZ do
begin
First;
while Locate('SSel', True, []) do
begin
with ClientDataSet3 do
begin
Append;
FieldByName('weizhi').Value := frmMachineManage.CDS_HZ.fieldbyname('weizhi').Value;
for i := 1 to 80 do
begin
s := 'PZ' + inttostr(i);
FieldByName(s).Value := frmMachineManage.CDS_HZ.fieldbyname(s).Value;
end;
end;
frmMachineManage.CDS_HZ.Delete;
end;
end;
frmMachineManage.CDS_HZ.EnableControls;
end;
end;
finally
frmMachineManage.Free;
end;
end;
end.
Reference in New Issue Copy Permalink