Group_01/D7wmguihua
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
b4b5840f18
D7wmguihua/桂华管理系统/U_OrderInPutNew.pas

2946 lines
84 KiB
ObjectPascal
Raw Normal View History

1
2025-01-18 16:22:10 +08:00
unit U_OrderInPutNew;
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, cxCalendar, cxGridBandedTableView,
cxGridDBBandedTableView, Menus, RM_Common, RM_Class, RM_e_Xls,
RM_GridReport, RM_System, RM_Dataset, cxCheckBox, cxGridCustomPopupMenu,
cxGridPopupMenu;
type
TfrmOrderInPutNew = class(TForm)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ScrollBox1: TScrollBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
OrderNo: TEdit;
OrderDate: TDateTimePicker;
Label5: TLabel;
Label6: TLabel;
Label8: TLabel;
ADOTemp: TADOQuery;
DataSourceZ: TDataSource;
Order_SubZ: TClientDataSet;
DataSource2: TDataSource;
ADOZDY: TADOQuery;
CDS_ZDY: TClientDataSet;
WFBCodeName: TcxButtonEdit;
SCXName: TcxButtonEdit;
WJGName: TcxButtonEdit;
ADOQuery1: TADOQuery;
Label12: TLabel;
CustomNoName: TcxButtonEdit;
Note: TRichEdit;
Label13: TLabel;
ArrivalPortName: TcxButtonEdit;
Label9: TLabel;
WFBKZ: TEdit;
Label10: TLabel;
WFBHW: TEdit;
Label11: TLabel;
Label14: TLabel;
WFBFK: TEdit;
Label15: TLabel;
Label16: TLabel;
OrdQty: TEdit;
OrdUnit: TComboBox;
Label17: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
ETADate: TDateTimePicker;
Label22: TLabel;
ETDDate: TDateTimePicker;
Label23: TLabel;
ZGDate: TDateTimePicker;
Label24: TLabel;
BegRKDate: TDateTimePicker;
Label25: TLabel;
BegSCDate: TDateTimePicker;
Day1: TEdit;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Day2: TEdit;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Day3: TEdit;
Label18: TLabel;
Label32: TLabel;
Label33: TLabel;
Label4: TLabel;
Label7: TLabel;
cxGrid4: TcxGrid;
TVDB: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
VDBColumn1: TcxGridDBColumn;
VDBColumn2: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
DataSource3: TDataSource;
CDS_DB: TClientDataSet;
Order_SubF: TClientDataSet;
DataSourceF: TDataSource;
Order_SubQ: TClientDataSet;
DataSourceQ: TDataSource;
ScrollBox2: TScrollBox;
cxGrid3: TcxGrid;
Tv3: TcxGridDBBandedTableView;
v3Column1: TcxGridDBBandedColumn;
v3Column2: TcxGridDBBandedColumn;
v3Column3: TcxGridDBBandedColumn;
v3Column4: TcxGridDBBandedColumn;
v3Column5: TcxGridDBBandedColumn;
cxGridLevel2: TcxGridLevel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBBandedTableView;
v2Column1: TcxGridDBBandedColumn;
v2Column2: TcxGridDBBandedColumn;
v2Column3: TcxGridDBBandedColumn;
v2Column4: TcxGridDBBandedColumn;
v2Column5: TcxGridDBBandedColumn;
cxGridLevel1: TcxGridLevel;
cxGrid1: TcxGrid;
Tv1: TcxGridDBBandedTableView;
v1Column1: TcxGridDBBandedColumn;
v1Column2: TcxGridDBBandedColumn;
v1Column3: TcxGridDBBandedColumn;
v1Column4: TcxGridDBBandedColumn;
v1Column5: TcxGridDBBandedColumn;
v1Column6: TcxGridDBBandedColumn;
cxGrid1Level1: TcxGridLevel;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
TBPrint: TToolButton;
v1Column7: TcxGridDBBandedColumn;
v2Column6: TcxGridDBBandedColumn;
v3Column6: TcxGridDBBandedColumn;
v1Column8: TcxGridDBBandedColumn;
v2Column7: TcxGridDBBandedColumn;
v3Column7: TcxGridDBBandedColumn;
v1Column9: TcxGridDBBandedColumn;
v2Column8: TcxGridDBBandedColumn;
v3Column8: TcxGridDBBandedColumn;
ADOQueryQG: TADOQuery;
RMDB_Main: TRMDBDataSet;
RM2: TRMGridReport;
RMXLSExport1: TRMXLSExport;
Label40: TLabel;
cxGrid5: TcxGrid;
TvSub: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridLevel4: TcxGridLevel;
PanZDY: TPanel;
CXGridZDY: TcxGrid;
TVZDY: TcxGridDBTableView;
VHelpZDYName: TcxGridDBColumn;
CXGridZDYLevel1: TcxGridLevel;
Button1: TButton;
TvSubColumn1: TcxGridDBColumn;
PopupMenu2: TPopupMenu;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
DataSource1: TDataSource;
CDS_Sub: TClientDataSet;
vSubColumn2: TcxGridDBColumn;
Label41: TLabel;
OrderCode: TEdit;
vSubColumn3: TcxGridDBColumn;
Panel1: TPanel;
cxGrid6: TcxGrid;
Tvsel: TcxGridDBTableView;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridLevel5: TcxGridLevel;
vselColumn1: TcxGridDBColumn;
Panel10: TPanel;
Image2: TImage;
Button2: TButton;
Button3: TButton;
DSSel: TDataSource;
CDS_Sel: TClientDataSet;
ADOCMD: TADOQuery;
vSubColumn4: TcxGridDBColumn;
PopupMenu3: TPopupMenu;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
vSubColumn5: TcxGridDBColumn;
vSubColumn6: TcxGridDBColumn;
vSubColumn7: TcxGridDBColumn;
BZ: TcxButtonEdit;
cxGrid7: TcxGrid;
TVKCSel: TcxGridDBTableView;
v1P_ChnName: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
v1ShortName: TcxGridDBColumn;
v1Quantity: TcxGridDBColumn;
v1UnitName: TcxGridDBColumn;
cxGridLevel6: TcxGridLevel;
TVKCSelColumn1: TcxGridDBColumn;
VKCSelColumn1: TcxGridDBColumn;
CDS_KCSel: TClientDataSet;
DataSource4: TDataSource;
VKCSelColumn2: TcxGridDBColumn;
vSubColumn9: TcxGridDBColumn;
v1Column10: TcxGridDBBandedColumn;
N3: TMenuItem;
N4: TMenuItem;
cxGridPopupMenu1: TcxGridPopupMenu;
cxGridPopupMenu2: TcxGridPopupMenu;
cxGridPopupMenu3: TcxGridPopupMenu;
cxGridPopupMenu4: TcxGridPopupMenu;
cxGridPopupMenu5: TcxGridPopupMenu;
v2Column9: TcxGridDBBandedColumn;
v3Column9: TcxGridDBBandedColumn;
PopupMenu4: TPopupMenu;
MenuItem7: TMenuItem;
MenuItem8: TMenuItem;
procedure TBCloseClick(Sender: TObject);
procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure Button1Click(Sender: TObject);
procedure WFBCodeNameKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure TVZDYKeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure CustomNoNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure CustomNoNamePropertiesChange(Sender: TObject);
procedure ArrivalPortNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure SCXNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure WJGNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure WFBCodeNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure WFBCodeNamePropertiesChange(Sender: TObject);
procedure ArrivalPortNamePropertiesChange(Sender: TObject);
procedure SCXNamePropertiesChange(Sender: TObject);
procedure WJGNamePropertiesChange(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Day1Change(Sender: TObject);
procedure OrdQtyKeyPress(Sender: TObject; var Key: Char);
procedure Day2Change(Sender: TObject);
procedure Day3Change(Sender: TObject);
procedure ETADateChange(Sender: TObject);
procedure BegRKDateChange(Sender: TObject);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure v1Column2PropertiesEditValueChanged(Sender: TObject);
procedure v1Column3PropertiesEditValueChanged(Sender: TObject);
procedure v2Column2PropertiesEditValueChanged(Sender: TObject);
procedure OrdQtyChange(Sender: TObject);
procedure v3Column4PropertiesEditValueChanged(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure v1Column1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v2Column1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v3Column1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure MenuItem1Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure vSubColumn2PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure cxGridDBColumn2PropertiesEditValueChanged(Sender: TObject);
procedure TvSubColumn1PropertiesEditValueChanged(Sender: TObject);
procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure vSubColumn4PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure MenuItem3Click(Sender: TObject);
procedure MenuItem4Click(Sender: TObject);
procedure vSubColumn5PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure BZPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure BZPropertiesChange(Sender: TObject);
procedure TBChkOkClick(Sender: TObject);
procedure TBChkNoClick(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure MenuItem7Click(Sender: TObject);
procedure MenuItem8Click(Sender: TObject);
private
MInt,ChkInt,CloInt:Integer;
procedure InitData();
procedure ZDYHelp(FButn:TcxButtonEdit;LType:string);
function SaveData():Boolean;
procedure DelOrderSub(FOrder_Sub:TClientDataSet);
procedure SELYCL(SCDS_Sub:TClientDataSet);
procedure EditYCL(SCDS_Sub:TClientDataSet);
function SaveData10():Boolean;
procedure SaveYCL(SCDS_Sub:TClientDataSet);
procedure YLUpdate();
procedure UpMainId();
function SaveDataMain():Boolean;
function SaveDataSub():Boolean;
function SaveDataDB():Boolean;
function SaveDataPB():Boolean;
procedure SELYCLKC(SCDS_Sub:TClientDataSet);
procedure OnlyUpYCLData();
procedure YCLPBIDUPdate(SOrder_SubZ:TClientDataSet);
procedure SelAll(SCDS_Sub:TClientDataSet;FSEL:Boolean);
{ Private declarations }
public
PState,BState,CopyInt:Integer;
FMainId:String;
FXS:Integer;
{ Public declarations }
end;
var
frmOrderInPutNew: TfrmOrderInPutNew;
implementation
uses
U_DataLink,U_ZDYHelp,U_Fun,U_GetPGJBInList;
{$R *.dfm}
procedure TfrmOrderInPutNew.TBCloseClick(Sender: TObject);
begin
WriteCxBandedGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',Tv1,'<27>޷IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
WriteCxBandedGrid('<27><><EFBFBD>ϸ<EFBFBD>',Tv2,'<27>޷IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
WriteCxBandedGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',Tv3,'<27>޷IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>',TvSub,'<27>޷IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',TVDB,'<27>޷IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
{if PState<>3 then
begin
if Application.MessageBox('<27>Ƿ<EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>','<27><>ʾ',32+4)=IDYES then
begin
CloInt:=1;
TBSave.Click;
Exit;
end;
end; }
Close;
end;
procedure TfrmOrderInPutNew.InitData();
var
i:Integer;
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
sql.Add(' exec P_WFBOrder_List :begdate,:endate,:MainId');
if PState>0 then
begin
ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
ADOQuery1.Parameters.ParamByName('begdate').Value:='';
ADOQuery1.Parameters.ParamByName('endate').Value:='';
end;
if PState=0 then
begin
ADOQuery1.Parameters.ParamByName('MainId').Value:='';
ADOQuery1.Parameters.ParamByName('begdate').Value:='';
ADOQuery1.Parameters.ParamByName('endate').Value:='';
end;
Open;
end;
// SCreateCDS20(ADOQuery1,Order_Sub);
//SInitCDSData20(ADOQuery1,Order_Sub);
SCSHData(ADOQuery1,ScrollBox1,0);
if PState=0 then
begin
OrderDate.DateTime:=StrToDate(FormatDateTime('yyyy-MM-dd',SGetServerDateTime(ADOTemp)));
ETADate.DateTime:=OrderDate.DateTime;
ETDDate.DateTime:=OrderDate.DateTime;
ZGDate.DateTime:=OrderDate.DateTime;
BegRKDate.DateTime:=OrderDate.DateTime;
BegSCDate.DateTime:=OrderDate.DateTime;
ETADate.Checked:=False;
ETDDate.Checked:=False;
ZGDate.Checked:=False;
BegRKDate.Checked:=False;
BegSCDate.Checked:=False;
end;
if Trim(DParameters1)<>'<27><><EFBFBD><EFBFBD>' then
begin
{BegRKDate.Enabled:=False;
Day3.Enabled:=False;
BegSCDate.Enabled:=False;
//Note.Enabled:=False;
cxGrid4.Enabled:=False;
{MJKZX.Enabled:=False;
MJKZD.Enabled:=False;
XJKZX.Enabled:=False;
XJKZD.Enabled:=False;}
{SCXName.Enabled:=False;
WJGName.Enabled:=False;
ScrollBox2.Enabled:=False; }
end;
if PState=4 then
begin
BegRKDate.Enabled:=True;
Day3.Enabled:=True;
BegSCDate.Enabled:=True;
//Note.Enabled:=False;
cxGrid4.Enabled:=True;
{MJKZX.Enabled:=True;
MJKZD.Enabled:=True;
XJKZX.Enabled:=True;
XJKZD.Enabled:=True; }
SCXName.Enabled:=True;
WJGName.Enabled:=True;
ScrollBox2.Enabled:=True;
end;
with ADOQuery1 do
begin
Close;
sql.Clear;
SQL.Add('select * from WFB_DB where MainId='''+Trim(FMainId)+'''');
Open;
end;
SCreateCDS20(ADOQuery1,CDS_DB);
SInitCDSData20(ADOQuery1,CDS_DB);
with ADOQuery1 do
begin
Close;
sql.Clear;
SQL.Add('select * from WFBOrder_Sub where MainId='''+Trim(FMainId)+'''');
Open;
end;
SCreateCDS20(ADOQuery1,CDS_Sub);
SInitCDSData20(ADOQuery1,CDS_Sub);
with ADOQuery1 do
begin
Close;
sql.Clear;
SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+'''');
sql.Add(' and PBType=''<27><>Ҫ'' ');
Open;
end;
SCreateCDS20(ADOQuery1,Order_SubZ);
SInitCDSData20(ADOQuery1,Order_SubZ);
with ADOQuery1 do
begin
Close;
sql.Clear;
SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+'''');
sql.Add(' and PBType=''<27><><EFBFBD><EFBFBD>'' ');
Open;
end;
SCreateCDS20(ADOQuery1,Order_SubF);
SInitCDSData20(ADOQuery1,Order_SubF);
with ADOQuery1 do
begin
Close;
sql.Clear;
SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+'''');
sql.Add(' and PBType=''<27><><EFBFBD><EFBFBD>'' ');
Open;
end;
SCreateCDS20(ADOQuery1,Order_SubQ);
SInitCDSData20(ADOQuery1,Order_SubQ);
PanZDY.Visible:=False;
if PState=4 then
begin
PState:=0;
FMainId:='999999';
//OrderNo.Text:='';
WFBCodeName.Text:='';
WFBCodeName.Hint:='';
PanZDY.Visible:=False;
with CDS_DB do
begin
First;
while not Eof do
begin
Edit;
FieldByName('DBID').Value:='';
Post;
Next;
end;
end;
with Order_SubZ do
begin
First;
while not Eof do
begin
Edit;
FieldByName('PBID').Value:='';
FieldByName('YLKC').Value:=0;
FieldByName('YCLYJKC').Value:=0;
FieldByName('BZ').Value:=0;
FieldByName('SGQty').Value:=0;
Post;
Next;
end;
end;
v1Column1.Options.Focusing:=True;
with Order_SubF do
begin
First;
while not Eof do
begin
Edit;
FieldByName('PBID').Value:='';
FieldByName('YLKC').Value:=0;
FieldByName('YCLYJKC').Value:=0;
FieldByName('BZ').Value:=0;
FieldByName('SGQty').Value:=0;
Post;
Next;
end;
end;
v2Column1.Options.Focusing:=True;
with Order_SubQ do
begin
First;
while not Eof do
begin
Edit;
FieldByName('PBID').Value:='';
FieldByName('YLKC').Value:=0;
FieldByName('YCLYJKC').Value:=0;
FieldByName('BZ').Value:=0;
FieldByName('SGQty').Value:=0;
Post;
Next;
end;
end;
v3Column1.Options.Focusing:=True;
end;
end;
procedure TfrmOrderInPutNew.ZDYHelp(FButn:TcxButtonEdit;LType:string);
var
FType,ZDYName,FText:String;
begin
PanZDY.Visible:=True;
PanZDY.Left:=FButn.Left;
PanZDY.Top:=FButn.Top+FButn.Height;
with ADOZDY do
begin
Filtered:=False;
Close;
SQL.Clear;
SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+'''');
Open;
end;
FText:=Trim(FButn.Text);
if FText<>'' then
SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%'))
else
SDofilter(ADOZDY,'');
VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name);
end;
procedure TfrmOrderInPutNew.TVZDYCellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
var
FName:string;
begin
if ADOZDY.IsEmpty then Exit;
FName:=Trim(VHelpZDYName.Summary.GroupFormat);
TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString);
TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
PanZDY.Visible:=False;
end;
procedure TfrmOrderInPutNew.Button1Click(Sender: TObject);
begin
PanZDY.Visible:=False;
end;
procedure TfrmOrderInPutNew.WFBCodeNameKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key=vk_return) or (Key=vk_Down) then
begin
if ADOZDY.Active then
CXGridZDY.SetFocus;
end;
end;
procedure TfrmOrderInPutNew.TVZDYKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
if ADOZDY.IsEmpty then Exit;
TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString);
TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
PanZDY.Visible:=False;
ADOZDY.Active:=False;
end;
end;
procedure TfrmOrderInPutNew.FormShow(Sender: TObject);
var
fsj:string;
begin
{if Trim(DParameters1)='<27><><EFBFBD><EFBFBD>' then
begin
TBSave.Visible:=False;
//TBChkOk.Visible:=True;
TBChkNo.Visible:=True;
end else
begin
TBSave.Visible:=True;
TBChkOk.Visible:=False;
TBChkNo.Visible:=False;
end; }
fsj:=FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp));
if ( (Trim(FMainId)='') or (CopyInt=1)) then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select Count(*) As SL from WFBOrder_Main where OrderDate='''+Trim(fsj)+'''');
sql.Add(' and MainId not like ''%FZ'' ');
Open;
end;
if ADOTemp.IsEmpty then
begin
fsj:=fsj+'-1'
end else
fsj:=fsj+'-'+Trim(IntToStr(ADOTemp.fieldbyname('SL').AsInteger+1));
OrderCode.Text:=Trim(fsj);
end;
InitData();
ReadCxBandedGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',Tv1,'<27>޷IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
ReadCxBandedGrid('<27><><EFBFBD>ϸ<EFBFBD>',Tv2,'<27>޷IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
ReadCxBandedGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',Tv3,'<27>޷IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>',TvSub,'<27>޷IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',TVDB,'<27>޷IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
end;
function TfrmOrderInPutNew.SaveDataMain():Boolean;
var
maxno,FSubId:String;
begin
try
Result:=False;
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if Trim(FMainId)='' then
begin
if GetLSNo(ADOTemp,maxno,'','WFBOrder_Main',2,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;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from WFBOrder_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);
FieldByName('OrderType').Value:='<27><><EFBFBD><EFBFBD>';
FieldByName('OrderNo').Value:='11';
SSetsaveSql(ADOCmd,'WFBOrder_Main',ScrollBox1,0);
if PState=2 then
begin
FieldByName('Chker').Value:=Trim(DName);
FieldByName('ChkTime').Value:=SGetServerDateTime(ADOTemp);
if ChkInt=1 then
FieldByName('ChkStatus').Value:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'
else if ChkInt=2 then
FieldByName('ChkStatus').Value:='<27><><EFBFBD>˲<EFBFBD>ͨ<EFBFBD><CDA8>';
end;
if Trim(FMainId)='' then
begin
FieldByName('Filler').Value:=Trim(DName);
end else
begin
if Trim(FMainId)<>'' then
begin
FieldByName('Editer').Value:=Trim(DName);
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
end;
end;
Post;
end;
FMainId:=Trim(maxno);
ADOCmd.Connection.CommitTrans;
Result:=True;
except
Result:=False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>쳣<EFBFBD><ECB3A3>','<27><>ʾ',0);
end;
end;
function TfrmOrderInPutNew.SaveDataSub():Boolean;
var
maxno,FSubId:String;
begin
try
Result:=False;
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD>굥
with CDS_Sub do
begin
First;
while not Eof do
begin
if Trim(CDS_Sub.fieldbyname('SubId').AsString)='' then
begin
if GetLSNo(ADOCmd,maxno,'','WFBOrder_Sub',3,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
end else
begin
maxno:=Trim(CDS_Sub.fieldbyname('SubId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from WFBOrder_Sub ');
sql.Add(' where SubId='''+Trim(maxno)+'''');
Open;
end;
with ADOCmd do
begin
if Trim(CDS_Sub.fieldbyname('SubId').AsString)='' then
Append
else
Edit;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('SubId').Value:=Trim(maxno);
FieldByName('SWFBCode').Value:=Trim(CDS_Sub.fieldbyname('SWFBCode').AsString);
SSetSaveDataCDSNew(ADOCmd,TvSub,CDS_Sub,'WFBOrder_Sub',0);
Post;
end;
CDS_Sub.Edit;
CDS_Sub.FieldByName('SubId').Value:=Trim(maxno);
//CDS_Sub.Post;
Next;
end;
end;
ADOCmd.Connection.CommitTrans;
Result:=True;
except
Result:=False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
end;
end;
function TfrmOrderInPutNew.SaveDataDB():Boolean;
var
maxno,FSubId:String;
begin
try
Result:=False;
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ
if Trim(CDS_DB.fieldbyname('DBId').AsString)='' then
begin
if GetLSNo(ADOCmd,maxno,'DB','WFB_DB',3,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
end else
begin
maxno:=Trim(CDS_DB.fieldbyname('DBId').AsString);
end;
with CDS_DB do
begin
First;
while not Eof do
begin
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from WFB_DB ');
sql.Add(' where DBId='''+Trim(maxno)+'''');
Open;
end;
with ADOCmd do
begin
if Trim(CDS_DB.fieldbyname('DBId').AsString)='' then
Append
else
Edit;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('DBId').Value:=Trim(maxno);
SSetSaveDataCDSNew(ADOCmd,TVDB,CDS_DB,'WFB_DB',0);
Post;
end;
CDS_DB.Edit;
CDS_DB.FieldByName('DBId').Value:=Trim(maxno);
//CDS_DB.Post;
Next;
end;
end;
ADOCmd.Connection.CommitTrans;
Result:=True;
except
Result:=False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
end;
end;
function TfrmOrderInPutNew.SaveDataPB():Boolean;
var
maxno,FSubId:String;
begin
try
Result:=False;
ADOCmd.Connection.BeginTrans;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫԭ<D2AA><D4AD>
if not Order_SubZ.IsEmpty then
begin
with Order_SubZ do
begin
First;
while not Eof do
begin
if Trim(Order_SubZ.fieldbyname('PBId').AsString)='' then
begin
if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',3,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
end else
begin
maxno:=Trim(Order_SubZ.fieldbyname('PBId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from WFBYCL_PB ');
sql.Add(' where PBId='''+Trim(maxno)+'''');
Open;
end;
with ADOCmd do
begin
if Trim(Order_SubZ.fieldbyname('PBId').AsString)='' then
Append
else
Edit;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('PBId').Value:=Trim(maxno);
FieldByName('CRId').Value:=Trim(Order_SubZ.fieldbyname('CRID').AsString);
FieldByName('PBType').Value:='<27><>Ҫ';
// SSetSaveDataCDSNew();
SSetSaveDataCDSBandNew(ADOCmd,TV1,Order_SubZ,'WFBYCL_PB',0);
Post;
end;
Order_SubZ.Edit;
Order_SubZ.FieldByName('PBId').Value:=Trim(maxno);
//Order_SubZ.Post;
Next;
end;
end;
end;
//<2F><><EFBFBD>渨<EFBFBD><E6B8A8>ԭ<EFBFBD><D4AD>
if not Order_SubF.IsEmpty then
begin
with Order_SubF do
begin
First;
while not Eof do
begin
if Trim(Order_SubF.fieldbyname('PBId').AsString)='' then
begin
if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',3,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
end else
begin
maxno:=Trim(Order_SubF.fieldbyname('PBId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from WFBYCL_PB ');
sql.Add(' where PBId='''+Trim(maxno)+'''');
Open;
end;
with ADOCmd do
begin
if Trim(Order_SubF.fieldbyname('PBId').AsString)='' then
Append
else
Edit;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('PBId').Value:=Trim(maxno);
FieldByName('PBType').Value:='<27><><EFBFBD><EFBFBD>';
FieldByName('CRId').Value:=Trim(Order_SubF.fieldbyname('CRID').AsString);
// SSetSaveDataCDSNew();
SSetSaveDataCDSBandNew(ADOCmd,TV2,Order_SubF,'WFBYCL_PB',0);
Post;
end;
Order_SubF.Edit;
Order_SubF.FieldByName('PBId').Value:=Trim(maxno);
Order_SubF.Post;
Next;
end;
end;
end;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>
if not Order_SubQ.IsEmpty then
begin
with Order_SubQ do
begin
First;
while not Eof do
begin
if Trim(Order_SubQ.fieldbyname('PBId').AsString)='' then
begin
if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',3,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
end else
begin
maxno:=Trim(Order_SubQ.fieldbyname('PBId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from WFBYCL_PB ');
sql.Add(' where PBId='''+Trim(maxno)+'''');
Open;
end;
with ADOCmd do
begin
if Trim(Order_SubQ.fieldbyname('PBId').AsString)='' then
Append
else
Edit;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('PBId').Value:=Trim(maxno);
FieldByName('PBType').Value:='<27><><EFBFBD><EFBFBD>';
FieldByName('CRId').Value:=Trim(Order_SubQ.fieldbyname('CRID').AsString);
// SSetSaveDataCDSNew();
SSetSaveDataCDSBandNew(ADOCmd,TV3,Order_SubQ,'WFBYCL_PB',0);
Post;
end;
Order_SubQ.Edit;
Order_SubQ.FieldByName('PBId').Value:=Trim(maxno);
Order_SubQ.Post;
Next;
end;
end;
end;
ADOCmd.Connection.CommitTrans;
Result:=True;
except
Result:=False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȱ<EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
end;
end;
function TfrmOrderInPutNew.SaveData():Boolean;
var
maxno,FSubId,FFS:String;
wz:Integer;
begin
try
Result:=False;
SaveDataMain();
SaveDataSub();
SaveDataDB();
SaveDataPB();
wz:=Pos('F',FMainId);
FFS:=Copy(FMainId,wz,4);
if ((CopyInt=1) or (FFS='FZ')) then
begin
UpMainId();
end;
CopyInt:=0;
Result:=True;
except
Result:=False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
end;
end;
function TfrmOrderInPutNew.SaveData10():Boolean;
var
maxno,FSubId:String;
begin
try
Result:=False;
SaveDataMain();
SaveDataDB();
SaveDataSub();
Result:=True;
except
Result:=False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
end;
end;
procedure TfrmOrderInPutNew.TBSaveClick(Sender: TObject);
begin
OrderDate.SetFocus;
if Trim(OrderNo.Text)='' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if Trim(OrdUnit.Text)='' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
{if Trim(WFBCodeName.Hint)='' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>壡','<27><>ʾ',0);
Exit;
end; }
if CDS_DB.Locate('BSL',null,[]) then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if CDS_DB.Locate('JSL',null,[]) then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if CDS_Sub.Locate('SWFBCodeName',null,[]) then
begin
Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if Order_SubZ.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then
begin
Application.MessageBox('<27><>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD>ϣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if Order_SubF.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then
begin
Application.MessageBox('<27><>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD>ϣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if Order_SubQ.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then
begin
Application.MessageBox('<27><>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD>ϣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
YLUpdate();
if SaveData()=True then
begin
if ChkInt>0 then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!','<27><>ʾ',0);
end else
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
if CloInt=1 then ModalResult:=1;
end;
end;
procedure TfrmOrderInPutNew.SaveYCL(SCDS_Sub:TClientDataSet);
var
maxno,maxnosub:string;
begin
try
ADOCmd.Connection.BeginTrans;
with frmGetPGJBInList.ClientDataSet2 do
begin
First;
while not Eof do
begin
if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',4,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from WFBYCL_PB where 1<>1');
Open;
end;
with ADOCmd do
begin
Append;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('PBId').Value:=Trim(maxno);
if MInt=1 then
begin
FieldByName('PBType').Value:='<27><>Ҫ';
end else
if MInt=2 then
begin
FieldByName('PBType').Value:='<27><><EFBFBD><EFBFBD>';
end else
if MInt=3 then
begin
FieldByName('PBType').Value:='<27><><EFBFBD><EFBFBD>';
end;
FieldByName('YCLCode').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLCode').AsString);
FieldByName('YCLName').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLCode').AsString);
FieldByName('YCLSpec').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLCode').AsString);
FieldByName('YLKC').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('QuantityKC').AsString);
FieldByName('YLUnit').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('CRUnit').AsString);
FieldByName('CRID').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('CRID').AsString);
FieldByName('YCLYJKC').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YJKC').AsString);
Post;
end;
with SCDS_Sub do
begin
Edit;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('PBId').Value:=Trim(maxno);
Post;
end;
with Self.CDS_Sel do
begin
First;
while not Eof do
begin
if GetLSNo(ADOCmd,maxnosub,'PS','WFBYCL_PBSub',4,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from WFBYCL_PBSub where 1<>1');
Open;
end;
with ADOCmd do
begin
Append;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('SubId').Value:=Trim(CDS_Sel.fieldbyname('SubId').AsString);
FieldByName('PBId').Value:=Trim(maxno);
FieldByName('PSId').Value:=Trim(maxnosub);
Post;
end;
Next;
end;
end;
Next;
end;
end;
except
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣<EFBFBD><ECB3A3>','<27><>ʾ',0);
end;
end;
procedure TfrmOrderInPutNew.SELYCL(SCDS_Sub:TClientDataSet);
var
maxno,maxnosub:string;
begin
try
frmGetPGJBInList:=TfrmGetPGJBInList.Create(Application);
with frmGetPGJBInList do
begin
if ShowModal=1 then
begin
try ADOCmd.Connection.BeginTrans;
with ClientDataSet2 do
begin
First;
while not Eof do
begin
with SCDS_Sub do
begin
Append;
SCDS_Sub.FieldByName('YCLCode').Value:=Trim(ClientDataSet2.fieldbyname('YCLCode').AsString);
SCDS_Sub.FieldByName('YCLName').Value:=Trim(ClientDataSet2.fieldbyname('YCLName').AsString);
SCDS_Sub.FieldByName('YCLSpec').Value:=Trim(ClientDataSet2.fieldbyname('YCLSpec').AsString);
SCDS_Sub.FieldByName('YLKC').Value:=Trim(ClientDataSet2.fieldbyname('QuantityKC').AsString);
SCDS_Sub.FieldByName('YLUnit').Value:=Trim(ClientDataSet2.fieldbyname('CRUnit').AsString);
SCDS_Sub.FieldByName('CRID').Value:=Trim(ClientDataSet2.fieldbyname('CRID').AsString);
SCDS_Sub.FieldByName('YCLYJKC').Value:=Trim(ClientDataSet2.fieldbyname('YJKC').AsString);
Post;
end;
if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',4,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from WFBYCL_PB where 1<>1');
Open;
end;
with ADOCmd do
begin
Append;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('PBId').Value:=Trim(maxno);
if MInt=1 then
begin
FieldByName('PBType').Value:='<27><>Ҫ';
end else
if MInt=2 then
begin
FieldByName('PBType').Value:='<27><><EFBFBD><EFBFBD>';
end else
if MInt=3 then
begin
FieldByName('PBType').Value:='<27><><EFBFBD><EFBFBD>';
end;
FieldByName('YCLCode').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLCode').AsString);
FieldByName('YCLName').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLName').AsString);
FieldByName('YCLSpec').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YCLSpec').AsString);
FieldByName('YLKC').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('QuantityKC').AsString);
FieldByName('YLUnit').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('CRUnit').AsString);
FieldByName('CRID').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('CRID').AsString);
FieldByName('YCLYJKC').Value:=Trim(frmGetPGJBInList.ClientDataSet2.fieldbyname('YJKC').AsString);
Post;
end;
with SCDS_Sub do
begin
Edit;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('PBId').Value:=Trim(maxno);
Post;
end;
with Self.CDS_Sel do
begin
First;
while not Eof do
begin
if Self.CDS_Sel.FieldByName('SSel').AsBoolean=True then
begin
if GetLSNo(ADOCmd,maxnosub,'PS','WFBYCL_PBSub',4,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from WFBYCL_PBSub where 1<>1');
Open;
end;
with ADOCmd do
begin
Append;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('SubId').Value:=Trim(CDS_Sel.fieldbyname('SubId').AsString);
FieldByName('PBId').Value:=Trim(maxno);
FieldByName('PSId').Value:=Trim(maxnosub);
Post;
end;
end;
Next;
end;
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣<EFBFBD><ECB3A3>','<27><>ʾ',0);
Exit;
end;
//Self.SaveYCL(SCDS_Sub);
end;
end;
finally
frmGetPGJBInList.Free;
end;
end;
procedure TfrmOrderInPutNew.SELYCLKC(SCDS_Sub:TClientDataSet);
var
maxno,maxnosub:string;
YLPB,YLSH:Double;
begin
try ADOCmd.Connection.BeginTrans;
with CDS_KCSel do
begin
First;
while not Eof do
begin
if CDS_KCSel.FieldByName('SSel').AsBoolean=True then
begin
if MInt=1 then
begin
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select Top 1* from WFBYCL_PB where YCLCode='''+Trim(CDS_KCSel.fieldbyname('YCLCode').AsString)+'''');
Open;
end;
if ADOTemp.IsEmpty=False then
begin
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select Top 1* from WFBYCL_PB where YCLCode='''+Trim(CDS_KCSel.fieldbyname('YCLCode').AsString)+'''');
SQL.Add('and YLPB>0 order by FillTime desc');
Open;
end;
if Trim(ADOTemp.fieldbyname('YLPB').AsString)<>'' then
YLPB:=ADOTemp.fieldbyname('YLPB').Value
else
YLPB:=0;
if Trim(ADOTemp.fieldbyname('YLSH').AsString)<>'' then
YLSH:=ADOTemp.fieldbyname('YLSH').Value
else
YLSH:=0;
end else
begin
YLPB:=0;
YLSH:=0;
end;
end;
with SCDS_Sub do
begin
Append;
SCDS_Sub.FieldByName('YCLCode').Value:=Trim(CDS_KCSel.fieldbyname('YCLCode').AsString);
SCDS_Sub.FieldByName('YCLName').Value:=Trim(CDS_KCSel.fieldbyname('YCLName').AsString);
SCDS_Sub.FieldByName('YCLSpec').Value:=Trim(CDS_KCSel.fieldbyname('YCLSpec').AsString);
SCDS_Sub.FieldByName('YLKC').Value:=Trim(CDS_KCSel.fieldbyname('KCQty').AsString);
SCDS_Sub.FieldByName('YLUnit').Value:=Trim(CDS_KCSel.fieldbyname('KCUint').AsString);
SCDS_Sub.FieldByName('CRID').Value:=Trim(CDS_KCSel.fieldbyname('CRID').AsString);
SCDS_Sub.FieldByName('YCLYJKC').Value:=Trim(CDS_KCSel.fieldbyname('YJKC').AsString);
if MInt=1 then
begin
SCDS_Sub.FieldByName('YLPB').Value:=YLPB;
SCDS_Sub.FieldByName('YLSH').Value:=YLSH;
end;
Post;
end;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',4,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from WFBYCL_PB where 1<>1');
Open;
end;
with ADOCmd do
begin
Append;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('PBId').Value:=Trim(maxno);
if MInt=1 then
begin
FieldByName('PBType').Value:='<27><>Ҫ';
end else
if MInt=2 then
begin
FieldByName('PBType').Value:='<27><><EFBFBD><EFBFBD>';
end else
if MInt=3 then
begin
FieldByName('PBType').Value:='<27><><EFBFBD><EFBFBD>';
end;
FieldByName('YCLCode').Value:=Trim(CDS_KCSel.fieldbyname('YCLCode').AsString);
FieldByName('YCLName').Value:=Trim(CDS_KCSel.fieldbyname('YCLName').AsString);
FieldByName('YCLSpec').Value:=Trim(CDS_KCSel.fieldbyname('YCLSpec').AsString);
FieldByName('YLKC').Value:=Trim(CDS_KCSel.fieldbyname('KCQty').AsString);
FieldByName('YLUnit').Value:=Trim(CDS_KCSel.fieldbyname('KCUint').AsString);
FieldByName('CRID').Value:=Trim(CDS_KCSel.fieldbyname('CRID').AsString);
FieldByName('YCLYJKC').Value:=Trim(CDS_KCSel.fieldbyname('YJKC').AsString);
Post;
end;
with SCDS_Sub do
begin
Edit;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('PBId').Value:=Trim(maxno);
Post;
end;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֱ<EFBFBD>
with Self.CDS_Sel do
begin
First;
while not Eof do
begin
if Self.CDS_Sel.FieldByName('SSel').AsBoolean=True then
begin
if GetLSNo(ADOCmd,maxnosub,'PS','WFBYCL_PBSub',4,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from WFBYCL_PBSub where 1<>1');
Open;
end;
with ADOCmd do
begin
Append;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('SubId').Value:=Trim(CDS_Sel.fieldbyname('SubId').AsString);
FieldByName('PBId').Value:=Trim(maxno);
FieldByName('PSId').Value:=Trim(maxnosub);
Post;
end;
end;
Next;
end;
end;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֱ<EFBFBD>
if MInt=1 then
OnlyUpYCLData();
end;
Next;
end;
end;
ADOCmd.Connection.CommitTrans;
except
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣<EFBFBD><ECB3A3>','<27><>ʾ',0);
Exit;
end;
end;
procedure TfrmOrderInPutNew.EditYCL(SCDS_Sub:TClientDataSet);
begin
try
frmGetPGJBInList:=TfrmGetPGJBInList.Create(Application);
with frmGetPGJBInList do
begin
if ShowModal=1 then
begin
with ClientDataSet2 do
begin
//First;
// while not Eof do
//begin
with SCDS_Sub do
begin
Edit;
SCDS_Sub.FieldByName('YCLCode').Value:=Trim(ClientDataSet2.fieldbyname('YCLCode').AsString);
SCDS_Sub.FieldByName('YCLName').Value:=Trim(ClientDataSet2.fieldbyname('YCLName').AsString);
SCDS_Sub.FieldByName('YCLSpec').Value:=Trim(ClientDataSet2.fieldbyname('YCLSpec').AsString);
//SCDS_Sub.FieldByName('GYSName').Value:=Trim(ClientDataSet2.fieldbyname('GYSName').AsString);
//SCDS_Sub.FieldByName('GYS').Value:=Trim(ClientDataSet2.fieldbyname('GYS').AsString);
SCDS_Sub.FieldByName('YLKC').Value:=Trim(ClientDataSet2.fieldbyname('QuantityKC').AsString);
//CDS_Sub.FieldByName('Qty').Value:=Trim(ClientDataSet2.fieldbyname('QtyKC').AsString);
SCDS_Sub.FieldByName('YLUnit').Value:=Trim(ClientDataSet2.fieldbyname('CRUnit').AsString);
SCDS_Sub.FieldByName('CRID').Value:=Trim(ClientDataSet2.fieldbyname('CRID').AsString);
SCDS_Sub.FieldByName('YCLYJKC').Value:=Trim(ClientDataSet2.fieldbyname('YJKC').AsString);
if SCDS_Sub.FieldByName('YLQty').Value-ClientDataSet2.fieldbyname('YJKC').Value>=0 then
SCDS_Sub.FieldByName('BZ').Value:=SCDS_Sub.FieldByName('YLQty').Value-
ClientDataSet2.fieldbyname('YJKC').Value
else
SCDS_Sub.FieldByName('BZ').Value:=null;
//SCDS_Sub.FieldByName('YCLType').Value:=Trim(ClientDataSet2.fieldbyname('YCLType').AsString);
//SCDS_Sub.FieldByName('YCLPrice').Value:=Trim(ClientDataSet2.fieldbyname('YCLPrice').AsString);
//SCDS_Sub.FieldByName('KCPlace').Value:=Trim(ClientDataSet2.fieldbyname('KCPlace').AsString);
//CDS_Sub.FieldByName('DepotShow').Value:=Trim(ClientDataSet2.fieldbyname('DepotShow').AsString);
//Post;
end;
// Next;
//end;
end;
end;
end;
finally
frmGetPGJBInList.Free;
end;
end;
procedure TfrmOrderInPutNew.ToolButton1Click(Sender: TObject);
begin
if CDS_Sub.IsEmpty=True then
begin
Application.MessageBox('<27>굥<EFBFBD><EAB5A5><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
OrderDate.SetFocus;
if Trim(OrderNo.Text)='' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
{if Trim(WFBCodeName.Text)='' then
begin
Application.MessageBox('<27><><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if Trim(WFBCodeName.Hint)='' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>壡','<27><>ʾ',0);
Exit;
end; }
SaveData10();
Panel1.Visible:=True;
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select * from WFBOrder_Sub where MainId='''+Trim(FMainId)+'''');
Open;
{if MInt=1 then
begin
SELYCL(Order_SubZ);
end else
if MInt=2 then
begin
SELYCL(Order_SubF);
end else
if MInt=3 then
begin
SELYCL(Order_SubQ); }
end;
SCreateCDS20(ADOQuery1,CDS_Sel);
SInitCDSData20(ADOQuery1,CDS_Sel);
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add(' exec P_YCLKC_ListKCDD :KCType ');
if MInt=1 then
begin
Parameters.ParamByName('KCType').Value:='<27><>Ҫ';
end else
if MInt=2 then
begin
Parameters.ParamByName('KCType').Value:='<27><><EFBFBD><EFBFBD>';
end else
if MInt=3 then
begin
Parameters.ParamByName('KCType').Value:='<27><><EFBFBD><EFBFBD>';
end;
open;
end;
SCreateCDS20(ADOQuery1,CDS_KCSel);
SInitCDSData20(ADOQuery1,CDS_KCSel);
end;
procedure TfrmOrderInPutNew.ToolButton2Click(Sender: TObject);
begin
if MInt=1 then
begin
DelOrderSub(Order_SubZ);
end else
if MInt=2 then
begin
DelOrderSub(Order_SubF);
end else
if MInt=3 then
begin
DelOrderSub(Order_SubQ);
end;
end;
procedure TfrmOrderInPutNew.DelOrderSub(FOrder_Sub:TClientDataSet);
begin
if FOrder_Sub.IsEmpty then Exit;
if Trim(FOrder_Sub.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 WFBYCL_PB where PBID='''+Trim(FOrder_Sub.fieldbyname('PBID').AsString)+'''');
sql.Add('delete WFBYCL_PBSub where PBID='''+Trim(FOrder_Sub.fieldbyname('PBID').AsString)+'''');
ExecSQL;
end;
end;
FOrder_Sub.Delete;
end;
procedure TfrmOrderInPutNew.CustomNoNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:=Trim('CustomNoName');
flagname:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal=1 then
begin
Self.FXS:=99;
CustomNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
CustomNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPutNew.CustomNoNamePropertiesChange(Sender: TObject);
begin
if FXS=99 then
begin
PanZDY.Visible:=False;
FXS:=0;
Exit;
end;
ZDYHelp(CustomNoName,'CustomNoName');
end;
procedure TfrmOrderInPutNew.ArrivalPortNamePropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:=Trim('ArrivalPort');
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal=1 then
begin
Self.FXS:=99;
ArrivalPortName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
ArrivalPortName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPutNew.SCXNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:=Trim('SCXName');
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal=1 then
begin
Self.FXS:=99;
SCXName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
SCXName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPutNew.WJGNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:=Trim('WJGName');
flagname:='<27><><EFBFBD>ṹ';
if ShowModal=1 then
begin
Self.FXS:=99;
WJGName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
WJGName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPutNew.WFBCodeNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:=Trim(WFBCodeName.Name);
flagname:='<27><><EFBFBD><EFBFBD>';
if ShowModal=1 then
begin
Self.FXS:=99;
WFBCodeName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
WFBCodeName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPutNew.WFBCodeNamePropertiesChange(Sender: TObject);
begin
if FXS=99 then
begin
PanZDY.Visible:=False;
FXS:=0;
Exit;
end;
ZDYHelp(WFBCodeName,Trim(WFBCodeName.Name));
end;
procedure TfrmOrderInPutNew.ArrivalPortNamePropertiesChange(Sender: TObject);
begin
if FXS=99 then
begin
PanZDY.Visible:=False;
FXS:=0;
Exit;
end;
ZDYHelp(ArrivalPortName,'ArrivalPort');
end;
procedure TfrmOrderInPutNew.SCXNamePropertiesChange(Sender: TObject);
begin
if FXS=99 then
begin
PanZDY.Visible:=False;
FXS:=0;
Exit;
end;
ZDYHelp(SCXName,Trim(SCXName.Name));
end;
procedure TfrmOrderInPutNew.WJGNamePropertiesChange(Sender: TObject);
begin
if FXS=99 then
begin
PanZDY.Visible:=False;
FXS:=0;
Exit;
end;
ZDYHelp(WJGName,Trim(WJGName.Name));
end;
procedure TfrmOrderInPutNew.N1Click(Sender: TObject);
begin
with CDS_DB do
begin
Append;
FieldByName('DBUnit').Value:='<27><>/<2F><>';
Post;
end;
end;
procedure TfrmOrderInPutNew.N2Click(Sender: TObject);
begin
if CDS_DB.IsEmpty then Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete WFB_DB where DBID='''+Trim(CDS_DB.fieldbyname('DBID').AsString)+'''');
ExecSQL;
end;
CDS_DB.Delete;
end;
procedure TfrmOrderInPutNew.Day1Change(Sender: TObject);
var
DayL:string;
begin
if trim(Day1.Text)='' then DayL:='0'
else DayL:=Trim(Day1.Text);
ETDDate.DateTime:=ETADate.Date-strtoint(DayL);
end;
procedure TfrmOrderInPutNew.OrdQtyKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in['0'..'9','.',#8,#13]) then
begin
key:=#0;
end;
end;
procedure TfrmOrderInPutNew.Day2Change(Sender: TObject);
var
DayL:string;
begin
if trim(Day2.Text)='' then DayL:='0'
else DayL:=Trim(Day2.Text);
ZGDate.DateTime:=ETDDate.Date-strtoint(DayL);
end;
procedure TfrmOrderInPutNew.Day3Change(Sender: TObject);
var
DayL:string;
begin
if trim(Day3.Text)='' then DayL:='0'
else DayL:=Trim(Day3.Text);
BegSCDate.DateTime:=BegRKDate.Date-strtoint(DayL);
end;
procedure TfrmOrderInPutNew.ETADateChange(Sender: TObject);
begin
if Trim(Day1.Text)<>'' then
begin
ETDDate.DateTime:=ETADate.Date-strtoint(Day1.Text);
end;
if Trim(Day2.Text)<>'' then
begin
ZGDate.DateTime:=ETDDate.Date-strtoint(Day2.Text);
end;
end;
procedure TfrmOrderInPutNew.BegRKDateChange(Sender: TObject);
begin
if Trim(Day3.Text)<>'' then
begin
BegSCDate.DateTime:=BegRKDate.Date-strtoint(Day3.Text);
end;
end;
procedure TfrmOrderInPutNew.Tv1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
MInt:=1;
Tv1.Bands[0].Caption:='<27><>Ҫԭ<D2AA>ϡ<EFBFBD>';
Tv2.Bands[0].Caption:='<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>';
Tv3.Bands[0].Caption:='<27><><EFBFBD><EFBFBD>';
Tv1.Bands[0].Styles.Header.TextColor:=clBlue;
Tv2.Bands[0].Styles.Header.TextColor:=clBlack;
Tv3.Bands[0].Styles.Header.TextColor:=clBlack;
end;
procedure TfrmOrderInPutNew.Tv2MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
MInt:=2;
Tv1.Bands[0].Caption:='<27><>Ҫԭ<D2AA><D4AD>';
Tv2.Bands[0].Caption:='<27><><EFBFBD><EFBFBD>ԭ<EFBFBD>ϡ<EFBFBD>';
Tv3.Bands[0].Caption:='<27><><EFBFBD><EFBFBD>';
Tv1.Bands[0].Styles.Header.TextColor:=clBlack;
Tv2.Bands[0].Styles.Header.TextColor:=clBlue;
Tv3.Bands[0].Styles.Header.TextColor:=clBlack;
end;
procedure TfrmOrderInPutNew.Tv3MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
MInt:=3;
Tv1.Bands[0].Caption:='<27><>Ҫԭ<D2AA><D4AD>';
Tv2.Bands[0].Caption:='<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>';
Tv3.Bands[0].Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
Tv1.Bands[0].Styles.Header.TextColor:=clBlack;
Tv2.Bands[0].Styles.Header.TextColor:=clBlack;
Tv3.Bands[0].Styles.Header.TextColor:=clBlue;
end;
procedure TfrmOrderInPutNew.v1Column2PropertiesEditValueChanged(
Sender: TObject);
var
mvalue,YLSH,DHSL,YLQty:Double;
FOrdQty,FKZ:String;
begin
if Trim(TcxTextEdit(Sender).EditingText)<>'' then
mvalue:=TcxTextEdit(Sender).EditingValue
else
mvalue:=0;
with Order_SubZ do
begin
Edit;
FieldByName('YLPB').Value:=mvalue;
Post;
end;
//<2F>K<EFBFBD>O
YLUpdate();
end;
procedure TfrmOrderInPutNew.OnlyUpYCLData();
var
mvalue,YLSH,DHSL,YLQty:Double;
FOrdQty,FKZ:String;
begin
YLQty:=0;
if Trim(Order_SubZ.fieldbyname('YLPB').AsString)<>'' then
mvalue:=Order_SubZ.fieldbyname('YLPB').Value
else
mvalue:=0; //<2F>K<EFBFBD>O
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add(' select A.* from WFBYCL_PBSub A ');
//SQL.Add(' inner join WFBYCL_PB B on B.PBID=A.PBID ');
sql.Add(' where A.PBID='''+Trim(Order_SubZ.fieldbyname('PBID').AsString)+'''');
Open;
end;
with ADOTemp do
begin
First;
while not Eof do
begin
CDS_Sub.Locate('SubId',Trim(ADOTemp.fieldbyname('SubId').AsString),[]);
if Trim(CDS_Sub.fieldbyname('SOrdQty').AsString)='' then
FOrdQty:='0'
else
FOrdQty:=Trim(CDS_Sub.fieldbyname('SOrdQty').AsString);
if Trim(OrdUnit.Text)='<27>K' then
begin
if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then
begin
YLSH:=0;
end else
YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString);
YLQty:=YLQty+StrToFloat(FOrdQty)*mvalue/100*(1+YLSH/100);
end else
if Trim(OrdUnit.Text)='<27>O' then
begin
if Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString)='' then
begin
FKZ:='0';
end else
FKZ:=Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString);
DHSL:=StrToFloat(FOrdQty)*strtofloat(FKZ)/1000;
if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then
begin
YLSH:=0;
end else
YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString);
YLQty:=YLQty+DHSL*mvalue/100*(1+YLSH/100);
end;
Next;
end;
with Order_SubZ do
begin
Edit;
FieldByName('YLQty').Value:=YLQty;
if YLQty-FieldByName('YCLYJKC').Value>=0 then
FieldByName('BZ').Value:=YLQty-FieldByName('YCLYJKC').Value
else
FieldByName('BZ').Value:=null;
Post;
end;
end;
end;
procedure TfrmOrderInPutNew.v1Column3PropertiesEditValueChanged(
Sender: TObject);
var
mvalue,YLSH,DHSL,YLQty,YLPB:Double;
FOrdQty,FKZ:String;
begin
if Trim(TcxTextEdit(Sender).EditingText)<>'' then
mvalue:=TcxTextEdit(Sender).EditingValue
else
mvalue:=0;
with Order_SubZ do
begin
Edit;
FieldByName('YLSH').Value:=mvalue;
Post;
end;
//<2F>K<EFBFBD>O
YLUpdate();
end;
procedure TfrmOrderInPutNew.v2Column2PropertiesEditValueChanged(
Sender: TObject);
var
mvalue,YLSHQ,DHSL,YLQty,YLPB:Double;
FOrdQty,FKZ:String;
begin
if Trim(TcxTextEdit(Sender).EditingText)<>'' then
mvalue:=TcxTextEdit(Sender).EditingValue
else
mvalue:=0;
with Order_SubF do
begin
Edit;
FieldByName('YLSHQ').Value:=mvalue;
Post;
end;
//<2F>K<EFBFBD>O
YLUpdate();
end;
procedure TfrmOrderInPutNew.OrdQtyChange(Sender: TObject);
begin
YLUpdate();
end;
procedure TfrmOrderInPutNew.YLUpdate();
var
mvalue,YLSH,DHSL,YLQty,YLPB,YLSHQ:Double;
FOrdQty,FKZ:String;
begin
YLQty:=0;
with Order_SubZ do
begin
if Order_SubZ.IsEmpty=False then
begin
First;
while not Eof do
begin
YLQty:=0;
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from WFBYCL_PBSub where PBID='''+Trim(Order_SubZ.fieldbyname('PBID').AsString)+'''');
Open;
end;
with ADOTemp do
begin
First;
while not Eof do
begin
CDS_Sub.Locate('SubId',Trim(ADOTemp.fieldbyname('SubId').AsString),[]);
if Trim(CDS_Sub.fieldbyname('SOrdQty').AsString)='' then
FOrdQty:='0'
else
FOrdQty:=Trim(CDS_Sub.fieldbyname('SOrdQty').AsString);
if Trim(OrdUnit.Text)='<27>K' then
begin
if Trim(Order_SubZ.fieldbyname('YLPB').AsString)='' then
begin
YLPB:=0;
end else
YLPB:=StrToFloat(Order_SubZ.fieldbyname('YLPB').AsString);
if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then
begin
YLSH:=0;
end else
YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString);
YLQty:=YLQty+StrToFloat(FOrdQty)*YLPB/100*(1+YLSH/100);
end else
if Trim(OrdUnit.Text)='<27>O' then
begin
if Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString)='' then
begin
FKZ:='0';
end else
FKZ:=Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString);
DHSL:=StrToFloat(FOrdQty)*strtofloat(FKZ)/1000;
if Trim(Order_SubZ.fieldbyname('YLPB').AsString)='' then
begin
YLPB:=0;
end else
YLPB:=StrToFloat(Order_SubZ.fieldbyname('YLPB').AsString);
if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then
begin
YLSH:=0;
end else
YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString);
YLQty:=YLQty+DHSL*YLPB/100*(1+YLSH/100);
end;
Next;
end;
with Order_SubZ do
begin
Edit;
FieldByName('YLQty').Value:=YLQty;
if YLQty-FieldByName('YCLYJKC').Value>=0 then
FieldByName('BZ').Value:=YLQty-FieldByName('YCLYJKC').Value
else
FieldByName('BZ').Value:=null;
Post;
end;
end;
Next;
end;
end;
end;
if Order_SubF.IsEmpty=False then
begin
with Order_SubF do
begin
First;
while not Eof do
begin
YLQty:=0;
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from WFBYCL_PBSub where PBID='''+Trim(Order_SubF.fieldbyname('PBID').AsString)+'''');
Open;
end;
with ADOTemp do
begin
First;
while not Eof do
begin
CDS_Sub.Locate('SubId',Trim(ADOTemp.fieldbyname('SubId').AsString),[]);
if Trim(CDS_Sub.fieldbyname('SOrdQty').AsString)='' then
FOrdQty:='0'
else
FOrdQty:=Trim(CDS_Sub.fieldbyname('SOrdQty').AsString);
if Trim(OrdUnit.Text)='<27>K' then
begin
if Trim(Order_SubF.fieldbyname('YLSHQ').AsString)='' then
begin
YLSHQ:=0;
end else
YLSHQ:=StrToFloat(Order_SubF.fieldbyname('YLSHQ').AsString);
YLQty:=YLQty+StrToFloat(FOrdQty)*(YLSHQ*1.00/1000);
end else
if Trim(OrdUnit.Text)='<27>O' then
begin
if Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString)='' then
begin
FKZ:='0';
end else
FKZ:=Trim(CDS_Sub.fieldbyname('SWFBKZ').AsString);
DHSL:=StrToFloat(FOrdQty)*strtofloat(FKZ)/1000;
if Trim(Order_SubF.fieldbyname('YLSHQ').AsString)='' then
begin
YLSHQ:=0;
end else
YLSHQ:=StrToFloat(Order_SubF.fieldbyname('YLSHQ').AsString);
YLQty:=YLQty+DHSL*(YLSHQ*1.00/1000);
end;
Next;
end;
with Order_SubF do
begin
Edit;
FieldByName('YLQty').Value:=YLQty;
if YLQty-FieldByName('YCLYJKC').Value>=0 then
FieldByName('BZ').Value:=YLQty-FieldByName('YCLYJKC').Value
else
FieldByName('BZ').Value:=null;
Post;
end;
end;
Next;
end;
end;
end;
end;
procedure TfrmOrderInPutNew.v3Column4PropertiesEditValueChanged(
Sender: TObject);
var
mvalue:Double;
begin
mvalue:=TcxTextEdit(Sender).EditingValue;
with Order_SubQ do
begin
Edit;
FieldByName('YLQty').Value:=mvalue;
if mvalue-fieldbyname('YCLYJKC').Value>=0 then
FieldByName('BZ').Value:=mvalue-fieldbyname('YCLYJKC').Value
else
FieldByName('BZ').Value:=null;
Post;
end;
end;
procedure TfrmOrderInPutNew.TBPrintClick(Sender: TObject);
var
fPrintFile:String;
begin
with ADOQueryQG do
begin
Close;
sql.Clear;
sql.Add(' exec P_Print_SGD :OrderNo');
Parameters.ParamByName('OrderNo').Value:=Trim(OrderNo.Text);
Open;
end;
if ADOQueryQG.IsEmpty then Exit;
fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\<5C>빺<EFBFBD><EBB9BA>.rmf' ;
if FileExists(fPrintFile) then
begin
RM2.LoadFromFile(fPrintFile);
RMVariables['dyr']:=Trim(DName);
RM2.ShowReport;
end else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+ExtractFilePath(Application.ExeName)+'Report\<5C>빺<EFBFBD><EBB9BA>.rmf'),'<27><>ʾ',0);
end;
end;
procedure TfrmOrderInPutNew.v1Column1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
EditYCL(Order_SubZ);
end;
procedure TfrmOrderInPutNew.v2Column1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
EditYCL(Order_SubF);
end;
procedure TfrmOrderInPutNew.v3Column1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
EditYCL(Order_SubQ);
end;
procedure TfrmOrderInPutNew.MenuItem1Click(Sender: TObject);
var
i:Integer;
begin
CopyAddRow(TvSub,CDS_Sub);
i:=CDS_Sub.RecordCount;
with CDS_Sub do
begin
Edit;
FieldByName('MainId').Value:='';
FieldByName('SubId').Value:='';
FieldByName('SWFBColor').Value:='';
FieldByName('SWFBCode').Value:='';
FieldByName('SWFBCodeName').Value:='';
FieldByName('SOrdQty').Value:=0;
FieldByName('XHNO').Value:=IntToStr(i);
Post;
end;
OrdQty.Text:=floattostr(TvSub.DataController.Summary.FooterSummaryValues[0]);
end;
procedure TfrmOrderInPutNew.MenuItem2Click(Sender: TObject);
var
mvalue,YLSH,DHSL,YLQty,YLPB,YLSHQ:Double;
FOrdQty,FKZ:String;
begin
if CDS_Sub.IsEmpty then Exit;
if Trim(CDS_Sub.fieldbyname('SubID').AsString)<>'' then
begin
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from WFBYCL_PBSub where SubId='''+Trim(CDS_Sub.fieldbyname('SubID').AsString)+'''');
Open;
end;
if ADOTemp.IsEmpty=False then
begin
with ADOCMD do
begin
Close;
sql.Clear;
sql.Add('delete WFBYCL_PBSub where SubId='''+Trim(CDS_Sub.fieldbyname('SubID').AsString)+'''');
sql.Add('delete WFBOrder_Sub where SubID='''+Trim(CDS_Sub.fieldbyname('SubID').AsString)+'''');
ExecSQL;
end;
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from WFBYCL_PB where MainId='''+Trim(FMainId)+''' ');
sql.Add(' and not exists(select * from WFBYCL_PBSub A where A.PBId=WFBYCL_PB.PBID and A.MainId='''+Trim(FMainId)+''' )');
open;
end;
with ADOTemp do
begin
ADOTemp.First;
while not ADOTemp.Eof do
begin
if Trim(ADOTemp.fieldbyname('PBID').AsString)<>'' then
begin
if Order_SubZ.IsEmpty=False then
begin
if Order_SubZ.Locate('PBID',Trim(ADOTemp.fieldbyname('PBID').AsString),[]) then
Order_SubZ.Delete;
end;
if Order_SubF.IsEmpty=False then
begin
if Order_SubF.Locate('PBID',Trim(ADOTemp.fieldbyname('PBID').AsString),[]) then
Order_SubF.Delete;
end;
if Order_SubQ.IsEmpty=False then
begin
if Order_SubQ.Locate('PBID',Trim(ADOTemp.fieldbyname('PBID').AsString),[]) then
Order_SubQ.Delete;
end;
end;
ADOTemp.Next;
end;
end;
with ADOCMD do
begin
Close;
SQL.Clear;
sql.Add(' delete WFBYCL_PB where not exists(select * from WFBYCL_PBSub A where A.PBId=WFBYCL_PB.PBID )');
SQL.Add(' and MainId='''+Trim(FMainId)+'''');
ExecSQL;
end;
end else
begin
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('delete WFBOrder_Sub where SubID='''+Trim(CDS_Sub.fieldbyname('SubID').AsString)+'''');
ExecSQL;
end;
end;
end;
CDS_Sub.Delete;
//YLUpdate();
if CDS_Sub.isempty=False then
OrdQty.Text:=floattostr(TvSub.DataController.Summary.FooterSummaryValues[0]);
YLUpdate();
end;
procedure TfrmOrderInPutNew.cxGridDBColumn3PropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='WFBColor';
flagname:='<27><>ɫ';
if ShowModal=1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('SWFBColor').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
//Post;
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPutNew.vSubColumn2PropertiesButtonClick(
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
with Self.CDS_Sub do
begin
Edit;
FieldByName('SWFBHW').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
//Post;
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPutNew.cxGridDBColumn2PropertiesEditValueChanged(
Sender: TObject);
var
mvalue,YLSH,DHSL,YLQty,YLPB,YLSHQ:Double;
FOrdQty,FKZ:String;
begin
FKZ:=TcxTextEdit(Sender).EditingText;
with CDS_Sub do
begin
Edit;
if Trim(FKZ)='' then
FieldByName('SWFBKZ').Value:='0'
else
FieldByName('SWFBKZ').Value:=FKZ;
Post;
end;
YLUpdate();
end;
procedure TfrmOrderInPutNew.TvSubColumn1PropertiesEditValueChanged(
Sender: TObject);
var
mvalue,YLSH,DHSL,YLQty,YLPB,YLSHQ:Double;
FOrdQty,FKZ:String;
begin
FOrdQty:=TcxTextEdit(Sender).EditingText;
with CDS_Sub do
begin
Edit;
if Trim(FOrdQty)='' then
FieldByName('SOrdQty').Value:='0'
else
FieldByName('SOrdQty').Value:=FOrdQty;
Post;
end;
OrdQty.Text:=floattostr(TvSub.DataController.Summary.FooterSummaryValues[0]);
YLUpdate();
end;
procedure TfrmOrderInPutNew.Panel10MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
TWinControl(Panel1).perform(WM_SYSCOMMAND, $F012, 0);
end;
procedure TfrmOrderInPutNew.Image2Click(Sender: TObject);
begin
Panel1.Visible:=False;
end;
procedure TfrmOrderInPutNew.Button3Click(Sender: TObject);
begin
Panel1.Visible:=False;
end;
procedure TfrmOrderInPutNew.Button2Click(Sender: TObject);
begin
if CDS_Sel.Locate('ssel',True,[])=False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if MInt=1 then
begin
SELYCLKC(Order_SubZ);
end else
if MInt=2 then
begin
SELYCLKC(Order_SubF);
end else
if MInt=3 then
begin
SELYCLKC(Order_SubQ);
end;
Panel1.Visible:=False;
end;
procedure TfrmOrderInPutNew.FormClose(Sender: TObject;
var Action: TCloseAction);
var
maxno,FFS:string;
wz:Integer;
begin
WriteCxBandedGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',Tv1,'<27>޷IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
WriteCxBandedGrid('<27><><EFBFBD>ϸ<EFBFBD>',Tv2,'<27>޷IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
WriteCxBandedGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',Tv3,'<27>޷IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>',TvSub,'<27>޷IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',TVDB,'<27>޷IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
{ if CopyInt=1 then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete WFBOrder_Main where MainId='''+Trim(FMainId)+'''');
sql.Add('delete WFBOrder_Sub where MainId='''+Trim(FMainId)+'''');
sql.Add('delete WFB_DB where MainId='''+Trim(FMainId)+'''');
sql.Add('delete WFBYCL_PB where MainId='''+Trim(FMainId)+'''');
sql.Add('delete WFBYCL_PBSub where MainId='''+Trim(FMainId)+'''');
ExecSQL;
end;
end;
wz:=Pos('F',FMainId);
FFS:=Copy(FMainId,wz,4);
if ((CopyInt=1) or (FFS='FZ')) then
begin
UpMainId();
end;}
end;
procedure TfrmOrderInPutNew.UpMainId();
var
maxno:string;
begin
try
ADOCmd.Connection.BeginTrans;
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from WFBYCL_PBSub where MainId='''+Trim(FMainId)+'''');
Open;
end;
with ADOTemp do
begin
First;
while not Eof do
begin
if GetLSNo(ADOCmd,maxno,'PS','WFBYCL_PBSub',4,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('Update WFBYCL_PBSub Set PSID='''+Trim(maxno)+'''');
SQL.Add(' where PSID='''+Trim(ADOTemp.fieldbyname('PSID').AsString)+'''');
ExecSQL;
end;
Next;
end;
end;
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from WFBYCL_PB where MainId='''+Trim(FMainId)+'''');
Open;
end;
with ADOTemp do
begin
First;
while not Eof do
begin
if GetLSNo(ADOCmd,maxno,'PB','WFBYCL_PB',4,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('Update WFBYCL_PB Set PBID='''+Trim(maxno)+'''');
SQL.Add(' where PBID='''+Trim(ADOTemp.fieldbyname('PBID').AsString)+'''');
sql.Add('UPdate WFBYCL_PBSub Set PBID='''+Trim(maxno)+'''');
SQL.Add(' where PBID='''+Trim(ADOTemp.fieldbyname('PBID').AsString)+'''');
ExecSQL;
end;
Next;
end;
end;
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from WFBOrder_Sub where MainId='''+Trim(FMainId)+'''');
Open;
end;
with ADOTemp do
begin
First;
while not Eof do
begin
if GetLSNo(ADOCmd,maxno,'','WFBOrder_Sub',3,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('Update WFBOrder_Sub Set SubID='''+Trim(maxno)+'''');
SQL.Add(' where SubID='''+Trim(ADOTemp.fieldbyname('SubID').AsString)+'''');
sql.Add('UPdate WFBYCL_PBSub Set SubID='''+Trim(maxno)+'''');
SQL.Add(' where SubID='''+Trim(ADOTemp.fieldbyname('SubID').AsString)+'''');
ExecSQL;
end;
Next;
end;
end;
if GetLSNo(ADOCmd,maxno,'','WFBOrder_Main',2,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('Update WFBOrder_Main Set MainID='''+Trim(maxno)+'''');
SQL.Add(' where MainID='''+Trim(FMainId)+'''');
sql.Add('Update WFBOrder_Sub Set MainID='''+Trim(maxno)+'''');
SQL.Add(' where MainID='''+Trim(FMainId)+'''');
sql.Add('Update WFB_DB Set MainID='''+Trim(maxno)+'''');
SQL.Add(' where MainID='''+Trim(FMainId)+'''');
sql.Add('UPdate WFBYCL_PB Set MainID='''+Trim(maxno)+'''');
SQL.Add(' where MainID='''+Trim(FMainId)+'''');
sql.Add('UPdate WFBYCL_PBSub Set MainID='''+Trim(maxno)+'''');
SQL.Add(' where MainID='''+Trim(FMainId)+'''');
ExecSQL;
end;
FMainId:=Trim(maxno);
ADOCmd.Connection.CommitTrans;
except
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
end;
end;
procedure TfrmOrderInPutNew.vSubColumn4PropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:=Trim(WFBCodeName.Name);
flagname:='<27><><EFBFBD><EFBFBD>';
if ShowModal=1 then
begin
CDS_Sub.Edit;
CDS_Sub.FieldByName('SWFBCodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
CDS_Sub.FieldByName('SWFBCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select Top 1* from WFBOrder_Sub where SWFBCode='''+Trim(CDS_Sub.fieldbyname('SWFBCode').AsString)+'''');
Open;
end;
if ADOTemp.IsEmpty then Exit;
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select Top 1* from WFBOrder_Sub where SWFBCode='''+Trim(CDS_Sub.fieldbyname('SWFBCode').AsString)+'''');
sql.Add(' order by SFillTIme Desc');
Open;
end;
with CDS_Sub do
begin
Edit;
FieldByName('SWFBColor').Value:=ADOTemp.fieldbyname('SWFBColor').Value;
FieldByName('SWFBHW').Value:=ADOTemp.fieldbyname('SWFBHW').Value;
FieldByName('SWFBKZ').Value:=ADOTemp.fieldbyname('SWFBKZ').Value;
FieldByName('SWFBFK').Value:=ADOTemp.fieldbyname('SWFBFK').Value;
FieldByName('SOrdPrice').Value:=ADOTemp.fieldbyname('SOrdPrice').Value;
FieldByName('WKMS').Value:=ADOTemp.fieldbyname('WKMS').Value;
FieldByName('KZSmal').Value:=ADOTemp.fieldbyname('KZSmal').Value;
FieldByName('KZBig').Value:=ADOTemp.fieldbyname('KZBig').Value;
//Post;
end;
end;
procedure TfrmOrderInPutNew.MenuItem3Click(Sender: TObject);
begin
CDS_Sel.DisableControls;
with CDS_Sel do
begin
First;
while not Eof do
begin
Edit;
FieldByName('SSel').Value:=True;
Post;
Next;
end;
end;
CDS_Sel.EnableControls;
end;
procedure TfrmOrderInPutNew.MenuItem4Click(Sender: TObject);
begin
CDS_Sel.DisableControls;
with CDS_Sel do
begin
First;
while not Eof do
begin
Edit;
FieldByName('SSel').Value:=False;
Post;
Next;
end;
end;
CDS_Sel.EnableControls;
end;
procedure TfrmOrderInPutNew.vSubColumn5PropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:=Trim('WKMS');
flagname:='<27><><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF>';
if ShowModal=1 then
begin
Self.CDS_Sub.Edit;
CDS_Sub.FieldByName('WKMS').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPutNew.BZPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:=Trim('JJDW');
flagname:='<27>Ƽ۵<C6BC>λ';
if ShowModal=1 then
begin
Self.FXS:=99;
BZ.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
// BZ.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPutNew.BZPropertiesChange(Sender: TObject);
begin
if FXS=99 then
begin
PanZDY.Visible:=False;
FXS:=0;
Exit;
end;
ZDYHelp(BZ,'JJDW');
end;
procedure TfrmOrderInPutNew.TBChkOkClick(Sender: TObject);
begin
ChkInt:=1;
TBSave.Click;
end;
procedure TfrmOrderInPutNew.TBChkNoClick(Sender: TObject);
begin
ChkInt:=2;
TBSave.Click;
end;
procedure TfrmOrderInPutNew.Button4Click(Sender: TObject);
begin
if CDS_Sub.IsEmpty then exit;
if( (Order_SubZ.IsEmpty) and (Order_SubF.IsEmpty) and (Order_SubQ.IsEmpty) )then Exit;
if Trim(OrderNo.Text)='' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
SaveData10();
if CDS_Sub.Locate('SSel',True,[])=False then
begin
Application.MessageBox('<27>굥δѡ<CEB4><D1A1><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8>£<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if Order_SubZ.Locate('SSel',True,[])=False then
begin
if Order_SubF.Locate('SSel',True,[])=False then
if Order_SubZ.Locate('SSel',True,[])=False then
begin
Application.MessageBox('ԭ<>ϱ<EFBFBD>δѡ<CEB4><D1A1><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8>£<EFBFBD>','<27><>ʾ',0);
Exit;
end;
end;
try
ADOCMD.Connection.BeginTrans;
YCLPBIDUPdate(Order_SubZ);
YCLPBIDUPdate(Order_SubF);
YCLPBIDUPdate(Order_SubQ);
ADOCMD.Connection.CommitTrans;
YLUpdate();
Application.MessageBox('<27><><EFBFBD>³ɹ<C2B3><C9B9><EFBFBD>','<27><>ʾ',0);
Exit;
except
ADOCMD.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
end;
end;
procedure TfrmOrderInPutNew.YCLPBIDUPdate(SOrder_SubZ:TClientDataSet);
var
maxno:String;
begin
with CDS_Sub do
begin
First;
while not Eof do
begin
if CDS_Sub.FieldByName('SSel').AsBoolean=True then
begin
with SOrder_SubZ do
begin
First;
while not Eof do
begin
if SOrder_SubZ.FieldByName('SSel').AsBoolean=True then
begin
with ADOCMD do
begin
Close;
sql.Clear;
sql.Add('delete WFBYCL_PBSub where SubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+'''');
sql.Add(' and PBID='''+Trim(SOrder_SubZ.fieldbyname('PBID').AsString)+'''');
ExecSQL;
end;
if GetLSNo(ADOCMD,maxno,'PS','WFBYCL_PBSub',4,1)=False then
begin
ADOCMD.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
with ADOCMD do
begin
Close;
sql.Clear;
sql.Add('select * from WFBYCL_PBSub where 1<>1');
Open;
end;
with ADOCMD do
begin
Append;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('SubId').Value:=Trim(CDS_Sub.fieldbyname('SubId').AsString);
FieldByName('PBID').Value:=Trim(SOrder_SubZ.fieldbyname('PBID').AsString);
FieldByName('PSID').Value:=Trim(maxno);
Post;
end;
end;
Next;
end;
end;
end;
Next;
end;
end;
end;
procedure TfrmOrderInPutNew.N3Click(Sender: TObject);
begin
SelAll(CDS_Sub,True);
end;
procedure TfrmOrderInPutNew.SelAll(SCDS_Sub:TClientDataSet;FSEL:Boolean);
begin
if SCDS_Sub.IsEmpty then exit;
with SCDS_Sub do
begin
First;
while not eof do
begin
Edit;
FieldByName('SSel').Value:=FSEL;
post;
Next;
end;
end;
end;
procedure TfrmOrderInPutNew.N4Click(Sender: TObject);
begin
SelAll(CDS_Sub,False);
end;
procedure TfrmOrderInPutNew.MenuItem7Click(Sender: TObject);
begin
if MInt=1 then
begin
SelAll(Order_SubZ,True);
end else
if MInt=2 then
begin
SelAll(Order_SubF,True);
end else
if MInt=3 then
begin
SelAll(Order_SubQ,True);
end;
end;
procedure TfrmOrderInPutNew.MenuItem8Click(Sender: TObject);
begin
if MInt=1 then
begin
SelAll(Order_SubZ,False);
end else
if MInt=2 then
begin
SelAll(Order_SubF,False);
end else
if MInt=3 then
begin
SelAll(Order_SubQ,False);
end;
end;
end.
Reference in New Issue Copy Permalink