1183 lines
34 KiB
ObjectPascal
1183 lines
34 KiB
ObjectPascal
unit U_JiangLiaoSet;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
|
||
cxGridTableView, cxGridDBTableView, ADODB, DBClient,
|
||
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
|
||
cxControls, cxGridCustomView, cxGrid, cxPC, StdCtrls, ComCtrls, ExtCtrls,
|
||
ToolWin, cxCheckBox, Menus, cxTextEdit, RM_Common, RM_Class,
|
||
RM_GridReport, RM_System, RM_Dataset, RM_e_Xls, cxContainer, cxMaskEdit,
|
||
cxButtonEdit;
|
||
|
||
type
|
||
TfrmJiangLiaoSet = class(TForm)
|
||
ToolBar1: TToolBar;
|
||
TBClose: TToolButton;
|
||
Panel1: TPanel;
|
||
Label1: TLabel;
|
||
Label2: TLabel;
|
||
Label3: TLabel;
|
||
BegDate: TDateTimePicker;
|
||
EndDate: TDateTimePicker;
|
||
OrderNo: TEdit;
|
||
cxTabControl1: TcxTabControl;
|
||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||
CDS_Main: TClientDataSet;
|
||
DSOrdNo: TDataSource;
|
||
ADOCmd: TADOQuery;
|
||
ADOQueryMain: TADOQuery;
|
||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||
DSSub: TDataSource;
|
||
CDS_Sub: TClientDataSet;
|
||
ToolButton1: TToolButton;
|
||
PopupMenu3: TPopupMenu;
|
||
MenuItem3: TMenuItem;
|
||
MenuItem4: TMenuItem;
|
||
cxStyleRepository1: TcxStyleRepository;
|
||
cxStyle1: TcxStyle;
|
||
RMDBMain: TRMDBDataSet;
|
||
RM1: TRMGridReport;
|
||
ADOQueryPrint: TADOQuery;
|
||
RMXLSExport1: TRMXLSExport;
|
||
Label10: TLabel;
|
||
CustomNoName: TEdit;
|
||
Label11: TLabel;
|
||
Label12: TLabel;
|
||
cxGridPopupMenu3: TcxGridPopupMenu;
|
||
TvOrdNo: TcxGridDBTableView;
|
||
cxGrid4Level1: TcxGridLevel;
|
||
cxGrid4: TcxGrid;
|
||
vOrderBakColumn1: TcxGridDBColumn;
|
||
vOrderBakColumn2: TcxGridDBColumn;
|
||
vOrderBakColumn3: TcxGridDBColumn;
|
||
vOrderBakColumn4: TcxGridDBColumn;
|
||
vOrderBakColumn5: TcxGridDBColumn;
|
||
RMDBZY: TRMDBDataSet;
|
||
RMDBFZ: TRMDBDataSet;
|
||
SWFBColor: TComboBox;
|
||
vOrdNoColumn1: TcxGridDBColumn;
|
||
Label18: TLabel;
|
||
ZuHeID: TEdit;
|
||
vOrdNoColumn2: TcxGridDBColumn;
|
||
vOrdNoColumn3: TcxGridDBColumn;
|
||
Panel2: TPanel;
|
||
Label4: TLabel;
|
||
Label5: TLabel;
|
||
Label14: TLabel;
|
||
Label16: TLabel;
|
||
Label17: TLabel;
|
||
MCQty: TEdit;
|
||
WFBCpSpec: TcxButtonEdit;
|
||
WKMS: TcxButtonEdit;
|
||
SWFBHW: TcxButtonEdit;
|
||
BtnSave: TButton;
|
||
BtnPrint: TButton;
|
||
BtnChkNo: TButton;
|
||
BtnChkOk: TButton;
|
||
Panel3: TPanel;
|
||
cxGrid1: TcxGrid;
|
||
Tv1: TcxGridDBTableView;
|
||
v1Column1: TcxGridDBColumn;
|
||
v1Column3: TcxGridDBColumn;
|
||
v1Column4: TcxGridDBColumn;
|
||
v1Column5: TcxGridDBColumn;
|
||
cxGrid1Level4: TcxGridLevel;
|
||
cxGrid3: TcxGrid;
|
||
Tv2: TcxGridDBTableView;
|
||
v2Column1: TcxGridDBColumn;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
v2Column4: TcxGridDBColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
Label7: TLabel;
|
||
Label8: TLabel;
|
||
Label9: TLabel;
|
||
ADOTemp: TADOQuery;
|
||
DSJYFZ: TDataSource;
|
||
CDS_JYFZ: TClientDataSet;
|
||
PopupMenu1: TPopupMenu;
|
||
MenuItem1: TMenuItem;
|
||
MenuItem2: TMenuItem;
|
||
v1Column2: TcxGridDBColumn;
|
||
Panel4: TPanel;
|
||
Panel5: TPanel;
|
||
Panel8: TPanel;
|
||
MCNote: TRichEdit;
|
||
Panel6: TPanel;
|
||
OrderNoSL: TRichEdit;
|
||
ToolButton2: TToolButton;
|
||
v2Column2: TcxGridDBColumn;
|
||
Label6: TLabel;
|
||
Label13: TLabel;
|
||
MCQty10: TEdit;
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure ToolButton1Click(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure cxTabControl1Change(Sender: TObject);
|
||
procedure OrderNoChange(Sender: TObject);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure MenuItem3Click(Sender: TObject);
|
||
procedure MenuItem4Click(Sender: TObject);
|
||
procedure BtnSaveClick(Sender: TObject);
|
||
procedure TvOrdNoCellClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
procedure MCQtyKeyPress(Sender: TObject; var Key: Char);
|
||
procedure BtnChkOkClick(Sender: TObject);
|
||
procedure BtnChkNoClick(Sender: TObject);
|
||
procedure BtnPrintClick(Sender: TObject);
|
||
procedure MenuItem1Click(Sender: TObject);
|
||
procedure MenuItem2Click(Sender: TObject);
|
||
procedure SWFBCodeNamePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure WKMSPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure cxButtonEdit2PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure v1Column2PropertiesEditValueChanged(Sender: TObject);
|
||
procedure MCQtyChange(Sender: TObject);
|
||
procedure ToolButton2Click(Sender: TObject);
|
||
procedure MCQty10Change(Sender: TObject);
|
||
procedure v2Column2PropertiesEditValueChanged(Sender: TObject);
|
||
private
|
||
{ Private declarations }
|
||
ChkInt:Integer;
|
||
procedure InitGridMain();
|
||
procedure InitGrid();
|
||
procedure MCData();
|
||
procedure InitGridMainSel();
|
||
public
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmJiangLiaoSet: TfrmJiangLiaoSet;
|
||
|
||
implementation
|
||
uses
|
||
U_DataLink,U_Fun,U_GetPGJBOneTwoInList,U_ZDYHelp;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmJiangLiaoSet.FormClose(Sender: TObject;
|
||
var Action: TCloseAction);
|
||
begin
|
||
Action:=caFree;
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmJiangLiaoSet:=nil;
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.InitGrid();
|
||
begin
|
||
try
|
||
ADOTemp.DisableControls;
|
||
with ADOTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
if cxTabControl1.TabIndex=0 then
|
||
begin
|
||
sql.Add('select * from WFBYCL_JiangYe where MCID='''+Trim(CDS_Main.fieldbyname('MCID').AsString)+'''');
|
||
end else
|
||
sql.Add('select * from WFBYCL_JiangYe where ZuHeID='''+Trim(CDS_Main.fieldbyname('ZuHeID').AsString)+'''');
|
||
sql.Add(' and JYType=''<27><>Ҫ<EFBFBD><D2AA>Һ'' ');
|
||
sql.Add(' order by OrderNo');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOTemp,CDS_Sub);
|
||
SInitCDSData20(ADOTemp,CDS_Sub);
|
||
with ADOTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
if cxTabControl1.TabIndex=0 then
|
||
begin
|
||
sql.Add('select * from WFBYCL_JiangYe where MCID='''+Trim(CDS_Main.fieldbyname('MCID').AsString)+'''');
|
||
end else
|
||
sql.Add('select * from WFBYCL_JiangYe where ZuHeID='''+Trim(CDS_Main.fieldbyname('ZuHeID').AsString)+'''');
|
||
sql.Add(' and JYType=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Һ'' ');
|
||
sql.Add(' order by OrderNo');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOTemp,CDS_JYFZ);
|
||
SInitCDSData20(ADOTemp,CDS_JYFZ);
|
||
finally
|
||
ADOTemp.EnableControls;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.InitGridMain();
|
||
begin
|
||
//BegDate.SetFocus;
|
||
try
|
||
ADOQueryMain.DisableControls;
|
||
with ADOQueryMain do
|
||
begin
|
||
Filtered:=False;
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' select A.*,OrderNo=(select OrderNo from WFBOrder_Main B where B.MainId=A.MainId), ');
|
||
sql.Add(' OrderQty=(select Sum(SOrdQty) from WFBOrder_Sub WS where WS.MainId=A.MainId and WS.SWFBColor=A.SWFBColor),');
|
||
SQL.Add(' OrderUnit=(select OrdUnit from WFBOrder_Main B where B.MainId=A.MainId),');
|
||
sql.Add(' OrderNoSL=dbo.F_Get_WFBOrder_SubStr(A.ZuHeId,''OrderNoSL''),');
|
||
sql.Add(' CustomNoName=(select ZdyName from KH_Zdy B inner join WFBOrder_Main C on B.ZdyNo=C.CustomNo');
|
||
sql.Add(' where C.MainId=A.MainId)');
|
||
sql.Add(' from WFBYCL_MainIdColor_JiangYe A ');
|
||
SQL.Add(' inner join WFBOrder_Main C on A.MainId=C.MainId where C.ChkStatus=''<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'' ');
|
||
if cxTabControl1.TabIndex=0 then
|
||
SQL.Add(' and not exists(select * from WFBYCL_JiangYe WJY where WJY.ZuHeId=A.ZuHeId)')
|
||
else
|
||
if cxTabControl1.TabIndex>0 then
|
||
begin
|
||
sql.Add('and exists(select * from WFBYCL_JiangYe WJY where WJY.ZuHeId=A.ZuHeId) and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''');
|
||
sql.Add('and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+'''');
|
||
end;
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||
finally
|
||
ADOQueryMain.EnableControls;
|
||
end;
|
||
end;
|
||
procedure TfrmJiangLiaoSet.InitGridMainSel();
|
||
begin
|
||
//BegDate.SetFocus;
|
||
{ try
|
||
ADOTemp.DisableControls;
|
||
with ADOTemp do
|
||
begin
|
||
Filtered:=False;
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add(' select A.*,OrderNo=(select OrderNo from WFBOrder_Main B ');
|
||
sql.Add(' where B.MainId=A.MainId), ');
|
||
sql.Add(' CustomNoName=(select ZdyName from KH_Zdy B inner join WFBOrder_Main C on B.ZdyNo=C.CustomNo');
|
||
sql.Add(' where C.MainId=A.MainId)');
|
||
sql.Add(' from WFBYCL_MainIdColor_JiangYe A ');
|
||
sql.Add(' where A.ZuHeId='''+Trim(CDS_Main.fieldbyname('ZuHeId').AsString)+'''');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryMain,CDS_Sel);
|
||
SInitCDSData20(ADOQueryMain,CDS_Sel);
|
||
finally
|
||
ADOQueryMain.EnableControls;
|
||
end; }
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.ToolButton1Click(Sender: TObject);
|
||
begin
|
||
InitGridMain();
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.FormShow(Sender: TObject);
|
||
var
|
||
fsj:String;
|
||
begin
|
||
fsj:='select ZdyName name from KH_Zdy where Type=''WFBColor'' ';
|
||
SInitComBoxBySql(ADOTemp,SWFBColor,False,fsj);
|
||
EndDate.DateTime:=SGetServerDate(ADOTemp);
|
||
BegDate.DateTime:=EndDate.DateTime-30;
|
||
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>New',Tv1,'<27>IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
|
||
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>FZ',Tv2,'<27>IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
|
||
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ',TvOrdNo,'<27>IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
|
||
InitGridMain();
|
||
if Trim(DParameters1)='<27><><EFBFBD><EFBFBD>' then
|
||
begin
|
||
BtnSave.Visible:=False;
|
||
vOrderBakColumn1.Visible:=False;
|
||
v1Column1.Options.Focusing:=False;
|
||
v1Column2.Options.Focusing:=False;
|
||
v2Column1.Options.Focusing:=False;
|
||
v1Column5.Options.Focusing:=False;
|
||
v2Column4.Options.Focusing:=False;
|
||
MCQty.ReadOnly:=True;
|
||
MCQty10.ReadOnly:=True;
|
||
end else
|
||
begin
|
||
BtnChkOk.Visible:=False;
|
||
BtnChkNo.Visible:=False;
|
||
vOrderBakColumn1.Visible:=True;
|
||
end;
|
||
|
||
//InitGrid();
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.cxTabControl1Change(Sender: TObject);
|
||
begin
|
||
InitGridMain();
|
||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||
InitGrid();
|
||
MCQty.Text:=Trim(CDS_Main.fieldbyname('MCQty').AsString);
|
||
MCQty10.Text:=Trim(CDS_Main.fieldbyname('MCQtySJ').AsString);
|
||
MCNote.Text:=Trim(CDS_Main.fieldbyname('MCNote').AsString);
|
||
if cxTabControl1.TabIndex>0 then
|
||
begin
|
||
Label7.Visible:=True;
|
||
Label8.Visible:=True;
|
||
Label9.Visible:=True;
|
||
Label7.Caption:='<27>Ƶ<EFBFBD><C6B5>ˣ<EFBFBD>'+Trim(CDS_Main.fieldbyname('Filler').AsString);
|
||
Label8.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD>'+Trim(CDS_Main.fieldbyname('Chker').AsString);
|
||
Label9.Caption:='<27><><EFBFBD><EFBFBD>״̬<D7B4><CCAC>'+Trim(CDS_Main.fieldbyname('ChkStatus').AsString);
|
||
end else
|
||
begin
|
||
Label7.Visible:=False;
|
||
Label8.Visible:=False;
|
||
Label9.Visible:=False;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.OrderNoChange(Sender: TObject);
|
||
begin
|
||
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.TBCloseClick(Sender: TObject);
|
||
begin
|
||
Close;
|
||
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>New',Tv1,'<27>IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
|
||
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>FZ',Tv2,'<27>IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
|
||
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ',TvOrdNo,'<27>IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.MenuItem3Click(Sender: TObject);
|
||
begin
|
||
if BtnSave.Visible=False then Exit;
|
||
try
|
||
frmGetPGJBOneTwoInList:=TfrmGetPGJBOneTwoInList.Create(Application);
|
||
with frmGetPGJBOneTwoInList do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
with ClientDataSet2 do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
with CDS_Sub do
|
||
begin
|
||
Append;
|
||
CDS_Sub.FieldByName('YCLCode').Value:=Trim(ClientDataSet2.fieldbyname('YCLCode').AsString);
|
||
CDS_Sub.FieldByName('YCLName').Value:=Trim(ClientDataSet2.fieldbyname('YCLName').AsString);
|
||
//CDS_Sub.FieldByName('CRID').Value:=Trim(ClientDataSet2.fieldbyname('CRID').AsString);
|
||
Post;
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmGetPGJBOneTwoInList.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.MenuItem4Click(Sender: TObject);
|
||
begin
|
||
if BtnSave.Visible=False then Exit;
|
||
if CDS_Sub.IsEmpty then Exit;
|
||
if Trim(CDS_Sub.FieldByName('YJID').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 WFBYCL_JiangYe where YJID='''+Trim(CDS_Sub.FieldByName('YJID').AsString)+'''');
|
||
ExecSQL;
|
||
end;
|
||
end;
|
||
CDS_Sub.Delete;
|
||
{if CDS_Sub.IsEmpty=False then
|
||
MCQty.Text:=FloatToStr(Tv1.DataController.Summary.FooterSummaryValues[0])
|
||
else
|
||
MCQty.Text:='0'; }
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.BtnSaveClick(Sender: TObject);
|
||
var
|
||
maxno,FMCQty,FColor,FZuHeId:string;
|
||
begin
|
||
if ChkInt<>1 then
|
||
begin
|
||
if Trim(CDS_Main.fieldbyname('ChkStatus').AsString)='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>ģ<DEB8>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
if Trim(CDS_Main.fieldbyname('ChkStatus').AsString)='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then
|
||
begin
|
||
if Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then
|
||
begin
|
||
ChkInt:=2;
|
||
Exit;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
|
||
if CDS_Main.IsEmpty then Exit;
|
||
if CDS_Sub.IsEmpty then Exit;
|
||
if CDS_Main.Locate('SSel',True,[])=False then
|
||
begin
|
||
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
CDS_Main.DisableControls;
|
||
with CDS_Main do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if CDS_Main.FieldByName('SSel').AsBoolean=True then
|
||
begin
|
||
if Trim(FColor)='' then
|
||
FColor:=Trim(CDS_Main.fieldbyname('SWFBColor').AsString)
|
||
else
|
||
if Trim(CDS_Main.fieldbyname('SWFBColor').AsString)<>FColor then
|
||
begin
|
||
CDS_Main.EnableControls;
|
||
Application.MessageBox('<27><>ɫ<EFBFBD><C9AB>ͬ<EFBFBD><CDAC><EFBFBD>ܺϲ<DCBA><CFB2><EFBFBD><EFBFBD>ƣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
CDS_Main.EnableControls;
|
||
if Trim(MCQty.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
try
|
||
BegDate.SetFocus;
|
||
ADOCmd.Connection.BeginTrans;
|
||
if GetLSNo(ADOCmd,FZuHeId,'ZH','WFBYCL_MainIdColor_JiangYe',3,1)=False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ID<49><44>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
with CDS_Sub do
|
||
begin
|
||
First;
|
||
while not eof do
|
||
begin
|
||
if Trim(CDS_Sub.fieldbyname('YJID').AsString)='' then
|
||
begin
|
||
if GetLSNo(ADOCmd,maxno,'YJ','WFBYCL_JiangYe',3,1)=False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
maxno:=Trim(CDS_Sub.fieldbyname('YJID').AsString);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from WFBYCL_JiangYe where YJID='''+Trim(maxno)+'''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(CDS_Sub.fieldbyname('YJID').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;
|
||
if Trim(CDS_Sub.fieldbyname('MCID').AsString)<>'' then
|
||
begin
|
||
FieldByName('MCID').Value:=Trim(CDS_Sub.fieldbyname('MCID').AsString);
|
||
FieldByName('MainId').Value:=Trim(CDS_Sub.fieldbyname('MainId').AsString);
|
||
FieldByName('SWFBColor').Value:=Trim(CDS_Sub.fieldbyname('SWFBColor').AsString);
|
||
end else
|
||
begin
|
||
FieldByName('MCID').Value:='HB';
|
||
FieldByName('MainId').Value:='HB';
|
||
FieldByName('SWFBColor').Value:='HB';
|
||
end;
|
||
|
||
FieldByName('YJID').Value:=Trim(maxno);
|
||
FieldByName('JYType').Value:='<27><>Ҫ<EFBFBD><D2AA>Һ';
|
||
|
||
FieldByName('YCLCode').Value:=Trim(CDS_Sub.fieldbyname('YCLCode').AsString);
|
||
FieldByName('YCLName').Value:=Trim(CDS_Sub.fieldbyname('YCLName').AsString);
|
||
If Trim(CDS_Sub.fieldbyname('YGQty').AsString)<>'' then
|
||
FieldByName('YGQty').Value:=Trim(CDS_Sub.fieldbyname('YGQty').AsString)
|
||
else
|
||
FieldByName('YGQty').Value:=0;
|
||
If Trim(CDS_Sub.fieldbyname('SJQty').AsString)<>'' then
|
||
FieldByName('SJQty').Value:=CDS_Sub.fieldbyname('SJQty').Value
|
||
else
|
||
FieldByName('SJQty').Value:=0;
|
||
If Trim(CDS_Sub.fieldbyname('OrderNo').AsString)<>'' then
|
||
FieldByName('OrderNo').Value:=CDS_Sub.fieldbyname('OrderNo').Value
|
||
else
|
||
FieldByName('OrderNo').Value:=99;
|
||
If Trim(CDS_Sub.fieldbyname('PBQty').AsString)<>'' then
|
||
FieldByName('PBQty').Value:=CDS_Sub.fieldbyname('PBQty').Value
|
||
else
|
||
FieldByName('PBQty').Value:=0;
|
||
FieldByName('ZuHeId').Value:=Trim(FZuHeId);
|
||
Post;
|
||
end;
|
||
with CDS_Sub do
|
||
begin
|
||
Edit;
|
||
FieldByName('YJID').Value:=Trim(maxno);
|
||
Post;
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
with CDS_JYFZ do
|
||
begin
|
||
First;
|
||
while not eof do
|
||
begin
|
||
if Trim(CDS_JYFZ.fieldbyname('YJID').AsString)='' then
|
||
begin
|
||
if GetLSNo(ADOCmd,maxno,'YF','WFBYCL_JiangYe',3,1)=False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
maxno:=Trim(CDS_JYFZ.fieldbyname('YJID').AsString);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from WFBYCL_JiangYe where YJID='''+Trim(maxno)+'''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(CDS_JYFZ.fieldbyname('YJID').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;
|
||
if Trim(CDS_JYFZ.fieldbyname('MCID').AsString)<>'' then
|
||
begin
|
||
FieldByName('MCID').Value:=Trim(CDS_JYFZ.fieldbyname('MCID').AsString);
|
||
FieldByName('MainId').Value:=Trim(CDS_JYFZ.fieldbyname('MainId').AsString);
|
||
FieldByName('SWFBColor').Value:=Trim(CDS_JYFZ.fieldbyname('SWFBColor').AsString);
|
||
end else
|
||
begin
|
||
FieldByName('MCID').Value:='HB';
|
||
FieldByName('MainId').Value:='HB';
|
||
FieldByName('SWFBColor').Value:='HB';
|
||
end;
|
||
FieldByName('YJID').Value:=Trim(maxno);
|
||
FieldByName('JYType').Value:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Һ';
|
||
FieldByName('YCLCode').Value:=Trim(CDS_JYFZ.fieldbyname('YCLCode').AsString);
|
||
FieldByName('YCLName').Value:=Trim(CDS_JYFZ.fieldbyname('YCLName').AsString);
|
||
If Trim(CDS_JYFZ.fieldbyname('SJQty').AsString)<>'' then
|
||
FieldByName('SJQty').Value:=CDS_JYFZ.fieldbyname('SJQty').Value
|
||
else
|
||
FieldByName('SJQty').Value:=0;
|
||
If Trim(CDS_JYFZ.fieldbyname('OrderNo').AsString)<>'' then
|
||
FieldByName('OrderNo').Value:=CDS_JYFZ.fieldbyname('OrderNo').Value
|
||
else
|
||
FieldByName('OrderNo').Value:=0;
|
||
If Trim(CDS_Sub.fieldbyname('PBQty').AsString)<>'' then
|
||
FieldByName('PBQty').Value:=CDS_Sub.fieldbyname('PBQty').Value
|
||
else
|
||
FieldByName('PBQty').Value:=0;
|
||
FieldByName('ZuHeId').Value:=Trim(FZuHeId);
|
||
Post;
|
||
end;
|
||
with CDS_JYFZ do
|
||
begin
|
||
Edit;
|
||
FieldByName('YJID').Value:=Trim(maxno);
|
||
Post;
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
if Trim(MCQty.Text)='' then
|
||
FMCQty:='0'
|
||
else
|
||
FMCQty:=MCQty.Text;
|
||
CDS_Main.DisableControls;
|
||
with CDS_Main do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if CDS_Main.FieldByName('SSel').AsBoolean=True then
|
||
begin
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from WFBYCL_MainIdColor_JiangYe where MCID='''+Trim(CDS_Main.fieldbyname('MCID').AsString)+'''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Edit;
|
||
FieldByName('MCQty').Value:=FMCQty;
|
||
if Trim(MCQty10.Text)='' then
|
||
FieldByName('MCQtySJ').Value:=0
|
||
else
|
||
FieldByName('MCQty').Value:=StrToFloat(MCQty10.Text);
|
||
FieldByName('MCNote').Value:=Trim(MCNote.Text);
|
||
FieldByName('WFBCpSpec').Value:=Trim(WFBCpSpec.Text);
|
||
FieldByName('WKMS').Value:=Trim(WKMS.Text);
|
||
FieldByName('SWFBHW').Value:=Trim(SWFBHW.Text);
|
||
FieldByName('ZuHeId').Value:=Trim(FZuHeId);
|
||
if Trim(CDS_Main.fieldbyname('ChkStatus').AsString)='<27><><EFBFBD>˲<EFBFBD>ͨ<EFBFBD><CDA8>' then
|
||
begin
|
||
FieldByName('ChkStatus').Value:='<27><><EFBFBD><EFBFBD>';
|
||
FieldByName('Chker').Value:='';
|
||
with CDS_Main do
|
||
begin
|
||
Edit;
|
||
FieldByName('ChkStatus').Value:='<27><><EFBFBD><EFBFBD>';
|
||
|
||
Post;
|
||
end;
|
||
end;
|
||
if Trim(CDS_Main.fieldbyname('Filler').AsString)='' then
|
||
begin
|
||
fieldbyname('Filler').Value:=Trim(DName);
|
||
fieldbyname('FillTime').Value:=SGetServerDateTime(ADOTemp);
|
||
with CDS_Main do
|
||
begin
|
||
Edit;
|
||
FieldByName('Filler').Value:=Trim(DName);
|
||
Post;
|
||
end;
|
||
end else
|
||
begin
|
||
fieldbyname('Editer').Value:=Trim(DName);
|
||
fieldbyname('EditTime').Value:=SGetServerDateTime(ADOTemp);
|
||
end;
|
||
Post;
|
||
end;
|
||
with CDS_Main do
|
||
begin
|
||
Edit;
|
||
FieldByName('ZuHeId').Value:=Trim(FZuHeId);
|
||
Post;
|
||
end;
|
||
if cxTabControl1.TabIndex=0 then
|
||
begin
|
||
CDS_Main.Delete;
|
||
end else
|
||
Next;
|
||
end else
|
||
Next;
|
||
end;
|
||
end;
|
||
CDS_Main.EnableControls;
|
||
|
||
ADOCmd.Connection.CommitTrans;
|
||
if ChkInt<>1 then
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
|
||
InitGrid();
|
||
Exit;
|
||
except
|
||
ADOCmd.Connection.RollbackTrans;
|
||
if ChkInt<>1 then
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0)
|
||
else
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.TvOrdNoCellClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
var
|
||
FFHBID,maxno:string;
|
||
begin
|
||
FFHBID:=Trim(CDS_Main.fieldbyname('ZuHeID').AsString);
|
||
maxno:=Trim(CDS_Main.fieldbyname('MCID').AsString);
|
||
with ADOTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
if cxTabControl1.TabIndex=0 then
|
||
begin
|
||
sql.Add('select * from WFBYCL_JiangYe where MCID='''+Trim(maxno)+'''');
|
||
end else
|
||
sql.Add('select * from WFBYCL_JiangYe where ZuHeID='''+Trim(FFHBID)+'''');
|
||
sql.Add(' and JYType=''<27><>Ҫ<EFBFBD><D2AA>Һ'' ');
|
||
sql.Add(' order by OrderNo');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOTemp,CDS_Sub);
|
||
SInitCDSData20(ADOTemp,CDS_Sub);
|
||
with ADOTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
if cxTabControl1.TabIndex=0 then
|
||
begin
|
||
sql.Add('select * from WFBYCL_JiangYe where MCID='''+Trim(maxno)+'''');
|
||
end else
|
||
sql.Add('select * from WFBYCL_JiangYe where ZuHeID='''+Trim(FFHBID)+'''');
|
||
sql.Add(' and JYType=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Һ'' ');
|
||
sql.Add(' order by OrderNo');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOTemp,CDS_JYFZ);
|
||
SInitCDSData20(ADOTemp,CDS_JYFZ);
|
||
|
||
with ADOTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select Top 1*,');
|
||
sql.Add(' OrderNoSL=dbo.F_Get_WFBOrder_SubStr(A.ZuHeId,''OrderNoSL'')');
|
||
if Trim(FFHBID)<>'' then
|
||
sql.Add(' from WFBYCL_MainIdColor_JiangYe A where ZuHeId='''+Trim(FFHBID)+'''')
|
||
else
|
||
sql.Add(' from WFBYCL_MainIdColor_JiangYe A where MCId='''+Trim(CDS_Main.fieldbyname('MCID').AsString)+'''') ;
|
||
Open;
|
||
end;
|
||
MCQty.Text:=Trim(ADOTemp.fieldbyname('MCQty').AsString);
|
||
MCQty10.Text:=Trim(ADOTemp.fieldbyname('MCQtySJ').AsString);
|
||
MCNote.Text:=Trim(ADOTemp.fieldbyname('MCNote').AsString);
|
||
WKMS.Text:=Trim(ADOTemp.fieldbyname('WKMS').AsString);
|
||
SWFBHW.Text:=Trim(ADOTemp.fieldbyname('SWFBHW').AsString);
|
||
WFBCpSpec.Text:=Trim(ADOTemp.fieldbyname('WFBCpSpec').AsString);
|
||
OrderNoSL.Text:=Trim(ADOTemp.fieldbyname('OrderNoSL').AsString);
|
||
if cxTabControl1.TabIndex>0 then
|
||
begin
|
||
Label7.Visible:=True;
|
||
Label8.Visible:=True;
|
||
Label9.Visible:=True;
|
||
Label7.Caption:='<27>Ƶ<EFBFBD><C6B5>ˣ<EFBFBD>'+Trim(ADOTemp.fieldbyname('Filler').AsString);
|
||
Label8.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD>'+Trim(ADOTemp.fieldbyname('Chker').AsString);
|
||
Label9.Caption:='<27><><EFBFBD><EFBFBD>״̬<D7B4><CCAC>'+Trim(ADOTemp.fieldbyname('ChkStatus').AsString);
|
||
end else
|
||
begin
|
||
Label7.Visible:=False;
|
||
Label8.Visible:=False;
|
||
Label9.Visible:=False;
|
||
end;
|
||
|
||
|
||
|
||
end;
|
||
procedure TfrmJiangLiaoSet.MCData();
|
||
begin
|
||
MCQty.Text:=Trim(CDS_Main.fieldbyname('MCQty').AsString);
|
||
MCNote.Text:=Trim(CDS_Main.fieldbyname('MCNote').AsString);
|
||
if cxTabControl1.TabIndex>0 then
|
||
begin
|
||
Label7.Visible:=True;
|
||
Label8.Visible:=True;
|
||
Label9.Visible:=True;
|
||
Label7.Caption:='<27>Ƶ<EFBFBD><C6B5>ˣ<EFBFBD>'+Trim(CDS_Main.fieldbyname('Filler').AsString);
|
||
Label8.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD>'+Trim(CDS_Main.fieldbyname('Chker').AsString);
|
||
Label9.Caption:='<27><><EFBFBD><EFBFBD>״̬<D7B4><CCAC>'+Trim(CDS_Main.fieldbyname('ChkStatus').AsString);
|
||
end else
|
||
begin
|
||
Label7.Visible:=False;
|
||
Label8.Visible:=False;
|
||
Label9.Visible:=False;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.MCQtyKeyPress(Sender: TObject; var Key: Char);
|
||
begin
|
||
if not (Key in['0'..'9','.',#13,#8]) then
|
||
begin
|
||
Key:=#0;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.BtnChkOkClick(Sender: TObject);
|
||
begin
|
||
if cxTabControl1.TabIndex=0 then Exit;
|
||
ChkInt:=1;
|
||
// BtnSave.Click;
|
||
if ChkInt=2 then Exit;
|
||
if Trim(DName)=Trim(CDS_Main.fieldbyname('Filler').AsString) then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫִ<D2AA>д˲<D0B4><CBB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
|
||
try
|
||
ADOCmd.Connection.BeginTrans;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('Update WFBYCL_MainIdColor_JiangYe Set Chker='''+Trim(DName)+'''');
|
||
SQL.Add(',ChkTime=getdate(),ChkStatus=''<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'' ');
|
||
sql.Add('where ZuHeId='''+Trim(CDS_Main.fieldbyname('ZuHeId').AsString)+'''');
|
||
ExecSQL;
|
||
end;
|
||
ADOCmd.Connection.CommitTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
|
||
with CDS_Main do
|
||
begin
|
||
Edit;
|
||
FieldByName('ChkStatus').Value:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
|
||
FieldByName('Chker').Value:=Trim(DName);
|
||
Post;
|
||
end;
|
||
MCData();
|
||
ChkInt:=0;
|
||
except
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.BtnChkNoClick(Sender: TObject);
|
||
begin
|
||
if cxTabControl1.TabIndex=0 then Exit;
|
||
ChkInt:=1;
|
||
// BtnSave.Click;
|
||
if ChkInt=2 then Exit;
|
||
if Trim(DName)=Trim(CDS_Main.fieldbyname('Filler').AsString) then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫִ<D2AA>д˲<D0B4><CBB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
|
||
try
|
||
ADOCmd.Connection.BeginTrans;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('Update WFBYCL_MainIdColor_JiangYe Set Chker='''+Trim(DName)+'''');
|
||
SQL.Add(',ChkTime=getdate(),ChkStatus=''<27><><EFBFBD>˲<EFBFBD>ͨ<EFBFBD><CDA8>'' ');
|
||
sql.Add('where ZuHeId='''+Trim(CDS_Main.fieldbyname('ZuHeId').AsString)+'''');
|
||
ExecSQL;
|
||
end;
|
||
ADOCmd.Connection.CommitTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
|
||
with CDS_Main do
|
||
begin
|
||
Edit;
|
||
FieldByName('ChkStatus').Value:='<27><><EFBFBD>˲<EFBFBD>ͨ<EFBFBD><CDA8>';
|
||
FieldByName('Chker').Value:=Trim(DName);
|
||
Post;
|
||
end;
|
||
MCData();
|
||
except
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.BtnPrintClick(Sender: TObject);
|
||
var
|
||
fPrintFile:string;
|
||
begin
|
||
if Trim(CDS_Main.fieldbyname('ChkStatus').AsString)<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then
|
||
begin
|
||
Application.MessageBox('δ<><CEB4><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܴ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD>ݣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
with ADOQueryPrint do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('exec P_Print_JiangYe :ZuHeId');
|
||
Parameters.ParamByName('ZuHeId').Value:=Trim(CDS_Main.fieldbyname('ZuHeId').AsString);
|
||
Open;
|
||
end;
|
||
fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD>10.rmf' ;
|
||
if FileExists(fPrintFile) then
|
||
begin
|
||
RM1.LoadFromFile(fPrintFile);
|
||
RM1.ShowReport;
|
||
end else
|
||
begin
|
||
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+ExtractFilePath(Application.ExeName)+'Report\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD>.rmf'),'<27><>ʾ',0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.MenuItem1Click(Sender: TObject);
|
||
begin
|
||
if BtnSave.Visible=False then Exit;
|
||
try
|
||
frmGetPGJBOneTwoInList:=TfrmGetPGJBOneTwoInList.Create(Application);
|
||
with frmGetPGJBOneTwoInList do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
with ClientDataSet2 do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
with CDS_JYFZ do
|
||
begin
|
||
Append;
|
||
CDS_JYFZ.FieldByName('YCLCode').Value:=Trim(ClientDataSet2.fieldbyname('YCLCode').AsString);
|
||
CDS_JYFZ.FieldByName('YCLName').Value:=Trim(ClientDataSet2.fieldbyname('YCLName').AsString);
|
||
//CDS_Sub.FieldByName('CRID').Value:=Trim(ClientDataSet2.fieldbyname('CRID').AsString);
|
||
Post;
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmGetPGJBOneTwoInList.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.MenuItem2Click(Sender: TObject);
|
||
begin
|
||
if BtnSave.Visible=False then Exit;
|
||
if CDS_JYFZ.IsEmpty then Exit;
|
||
if Trim(CDS_JYFZ.FieldByName('YJID').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 WFBYCL_JiangYe where YJID='''+Trim(CDS_JYFZ.FieldByName('YJID').AsString)+'''');
|
||
ExecSQL;
|
||
end;
|
||
end;
|
||
CDS_JYFZ.Delete;
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.SWFBCodeNamePropertiesButtonClick(
|
||
Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='WFBCpSpec';
|
||
flagname:='<27><>Ʒ<EFBFBD>ͺ<EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.WFBCpSpec.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.WKMSPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='WKMS';
|
||
flagname:='<27><><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF>';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.WKMS.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.cxButtonEdit2PropertiesButtonClick(
|
||
Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='WFBHX';
|
||
flagname:='<27><><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.SWFBHW.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.v1Column2PropertiesEditValueChanged(
|
||
Sender: TObject);
|
||
var
|
||
mvalue,FMCQty:string;
|
||
begin
|
||
mvalue:=TcxTextEdit(Sender).EditingText;
|
||
if Trim(MCQty.Text)='' then
|
||
begin
|
||
FMCQty:='0'
|
||
end else
|
||
begin
|
||
FMCQty:=Trim(MCQty.Text);
|
||
end;
|
||
if Trim(mvalue)='' then
|
||
begin
|
||
mvalue:='0';
|
||
end;
|
||
with CDS_Sub do
|
||
begin
|
||
Edit;
|
||
FieldByName('SJQty').Value:=StrToFloat(mvalue)*StrToFloat(FMCQty)/100;
|
||
FieldByName('PBQty').Value:=StrToFloat(mvalue);
|
||
Post;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.MCQtyChange(Sender: TObject);
|
||
var
|
||
mvalue,FMCQty:string;
|
||
begin
|
||
if( (MCQty.Focused) and (MCQty.ReadOnly=False) )then
|
||
begin
|
||
if Trim(MCQty.Text)='' then
|
||
begin
|
||
FMCQty:='0'
|
||
end else
|
||
begin
|
||
FMCQty:=Trim(MCQty.Text);
|
||
end;
|
||
CDS_Sub.DisableControls;
|
||
with CDS_Sub do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
if Trim(fieldbyname('PBQty').AsString)<>'' then
|
||
mvalue:=Trim(fieldbyname('PBQty').AsString)
|
||
else
|
||
mvalue:='0';
|
||
FieldByName('SJQty').Value:=StrToFloat(mvalue)*StrToFloat(FMCQty)/100;
|
||
Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
CDS_Sub.EnableControls;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.ToolButton2Click(Sender: TObject);
|
||
begin
|
||
if cxTabControl1.TabIndex=0 then Exit;
|
||
if Trim(CDS_Main.FieldByName('ChkStatus').AsString)='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then Exit;
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫִ<D2AA>д˲<D0B4><CBB2><EFBFBD><EFBFBD><EFBFBD>?','<27><>ʾ',32+4)<>IDYES then Exit;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('Update WFBYCL_JiangYe Set ZuHeId=NULL where MCID='''+Trim(CDS_Main.fieldbyname('MCID').AsString)+'''');
|
||
sql.Add('Update WFBYCL_MainIdColor_JiangYe Set ZuHeId=NULL where MCID='''+Trim(CDS_Main.fieldbyname('MCID').AsString)+'''');
|
||
ExecSQL;
|
||
end;
|
||
CDS_Main.Delete;
|
||
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.MCQty10Change(Sender: TObject);
|
||
var
|
||
mvalue,FMCQty:string;
|
||
begin
|
||
if( (MCQty10.Focused) and (MCQty10.ReadOnly=False) )then
|
||
begin
|
||
if Trim(MCQty10.Text)='' then
|
||
begin
|
||
FMCQty:='0'
|
||
end else
|
||
begin
|
||
FMCQty:=Trim(MCQty10.Text);
|
||
end;
|
||
CDS_JYFZ.DisableControls;
|
||
with CDS_JYFZ do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
if Trim(fieldbyname('PBQty').AsString)<>'' then
|
||
mvalue:=Trim(fieldbyname('PBQty').AsString)
|
||
else
|
||
mvalue:='0';
|
||
FieldByName('SJQty').Value:=StrToFloat(mvalue)*StrToFloat(FMCQty)/100;
|
||
Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
CDS_JYFZ.EnableControls;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmJiangLiaoSet.v2Column2PropertiesEditValueChanged(
|
||
Sender: TObject);
|
||
var
|
||
mvalue,FMCQty:string;
|
||
begin
|
||
mvalue:=TcxTextEdit(Sender).EditingText;
|
||
if Trim(MCQty10.Text)='' then
|
||
begin
|
||
FMCQty:='0'
|
||
end else
|
||
begin
|
||
FMCQty:=Trim(MCQty10.Text);
|
||
end;
|
||
if Trim(mvalue)='' then
|
||
begin
|
||
mvalue:='0';
|
||
end;
|
||
with CDS_JYFZ do
|
||
begin
|
||
Edit;
|
||
FieldByName('SJQty').Value:=StrToFloat(mvalue)*StrToFloat(FMCQty)/100;
|
||
FieldByName('PBQty').Value:=StrToFloat(mvalue);
|
||
Post;
|
||
end;
|
||
end;
|
||
|
||
end.
|