Group_99/D7myChuangpin
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D7myChuangpin/创品贸易管理/U_OrderInPut.pas

1926 lines
53 KiB
ObjectPascal
Raw Permalink Normal View History

1
2024-07-23 20:18:14 +08:00
unit U_OrderInPut;
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, StrUtils,
cxDropDownEdit, cxGridBandedTableView, cxGridDBBandedTableView, cxSplitter,
RM_Common, RM_Class, RM_e_Xls, RM_System, RM_GridReport, RM_Dataset,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter, cxNavigator;
type
TfrmOrderInPut = class(TForm)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ScrollBox1: TScrollBox;
Label1: TLabel;
OrderNo: TEdit;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DataSource1: TDataSource;
Order_Sub: TClientDataSet;
ADOQuery1: TADOQuery;
Label10: TLabel;
Label3: TLabel;
Label14: TLabel;
Label12: TLabel;
Label13: TLabel;
OrdDate: TDateTimePicker;
MPRTMF: TBtnEditC;
MPRTKZ: TBtnEditC;
Label2: TLabel;
MPRTCodeName: TBtnEditC;
Label6: TLabel;
MPRTSpec: TBtnEditC;
Label25: TLabel;
DLYDate: TDateTimePicker;
Label41: TLabel;
LiDanPerson: TBtnEditC;
Label43: TLabel;
YWY: TBtnEditC;
CustomerNoName: TEdit;
Label29: TLabel;
note: TBtnEditC;
cxGrid4: TcxGrid;
TV4: TcxGridDBBandedTableView;
cxGridDBBandedColumn1: TcxGridDBBandedColumn;
cxGridDBBandedColumn2: TcxGridDBBandedColumn;
cxGridDBBandedColumn3: TcxGridDBBandedColumn;
V4FPType: TcxGridDBBandedColumn;
V4OtherMoney: TcxGridDBBandedColumn;
V4Note: TcxGridDBBandedColumn;
cxGridLevel1: TcxGridLevel;
Button5: TButton;
DataSource4: TDataSource;
Order_RLDJ: TClientDataSet;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxStyle2: TcxStyle;
V4SKDate: TcxGridDBBandedColumn;
V4SKMoney: TcxGridDBBandedColumn;
V4BanKFee: TcxGridDBBandedColumn;
V4BZType: TcxGridDBBandedColumn;
V4WRLMoney: TcxGridDBBandedColumn;
V4WYHMoney: TcxGridDBBandedColumn;
cxStyle3: TcxStyle;
ADOQueryCmd: TADOQuery;
ConNO: TBtnEditC;
Label4: TLabel;
Label5: TLabel;
JGFactoryName: TBtnEditC;
Panel1: TPanel;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
TYPTP: TToolButton;
ToolButton3: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1XHNo: TcxGridDBColumn;
v1StyleNo: TcxGridDBColumn;
v1PRTColor: TcxGridDBColumn;
v1PRTColorEng: TcxGridDBColumn;
v1PRTHX: TcxGridDBColumn;
v1HXTuGao: TcxGridDBColumn;
v1PRTColorNo: TcxGridDBColumn;
v1OrdColQty: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
v1OrdNote: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Panel2: TPanel;
ToolBar3: TToolBar;
TAdd: TToolButton;
TDel: TToolButton;
DataSource2: TDataSource;
Order_GX: TClientDataSet;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
TV2PSXH: TcxGridDBColumn;
TV2PSName: TcxGridDBColumn;
v2PSSH: TcxGridDBColumn;
TV2PSNote: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
ToolBar4: TToolBar;
ToolButton8: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
cxGridDBColumn3: TcxGridDBColumn;
v3Column1: TcxGridDBColumn;
v3Column8: TcxGridDBColumn;
Tv3Column1: TcxGridDBColumn;
v3Column2: TcxGridDBColumn;
v3Column3: TcxGridDBColumn;
v3Column5: TcxGridDBColumn;
v3Column6: TcxGridDBColumn;
v3Column7: TcxGridDBColumn;
v3Column4: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
DataSource3: TDataSource;
CDS_JGC: TClientDataSet;
cxSplitter1: TcxSplitter;
CDS_Print: TClientDataSet;
ADOQueryTemp: TADOQuery;
RM1: TRMGridReport;
RMXLSExport1: TRMXLSExport;
v3TOGYSName: TcxGridDBColumn;
RMDBMain: TRMDBDataSet;
TKCTX: TToolButton;
ToolButton6: TToolButton;
v3PSCodeName: TcxGridDBColumn;
Label9: TLabel;
BPPiZhong: TBtnEditC;
Label16: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
MPRTYaoFeng: TBtnEditC;
MPRTTangJin: TBtnEditC;
Label22: TLabel;
GanKou: TBtnEditC;
Label23: TLabel;
KHConNO: TEdit;
MPRTBZNote: TMemo;
MPRTTeBieNote: TMemo;
MPRTZuRanXing: TMemo;
MPRTCode: TEdit;
Label11: TLabel;
Label15: TLabel;
Label17: TLabel;
Label18: TLabel;
MPRTMFNOte: TBtnEditC;
MPRTKZNOte: TBtnEditC;
MPRTChuanY: TBtnEditC;
MPRTKaiJian: TBtnEditC;
Label7: TLabel;
OrdDefNote2: TMemo;
v1PBFK: TcxGridDBColumn;
v1PBSpec: TcxGridDBColumn;
v1PBKZ: TcxGridDBColumn;
v1PRTGY: TcxGridDBColumn;
v1ZXChiCun: TcxGridDBColumn;
v1PBQty: TcxGridDBColumn;
v1CJNote: TcxGridDBColumn;
v1PBQtyUnit: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure v1PRTColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure CustomerNoNameBtnDnClick(Sender: TObject);
procedure MPRTCodeNameBtnUpClick(Sender: TObject);
procedure NoteDblClick(Sender: TObject);
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure OrdDefStr2BtnUpClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure YCLFactoryBtnUpClick(Sender: TObject);
procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure v1HXTuGaoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1SKTuGaoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ConNOBtnUpClick(Sender: TObject);
procedure v1PRTHXPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure JGFactoryNameBtnUpClick(Sender: TObject);
procedure v1OrdColQtyPropertiesEditValueChanged(Sender: TObject);
procedure TYPTPClick(Sender: TObject);
procedure v1OrdMSQtyPropertiesEditValueChanged(Sender: TObject);
procedure TAddClick(Sender: TObject);
procedure Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure TDelClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure TV2PSNotePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v3Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v3TOGYSNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure TKCTXClick(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure v3PSCodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure MPRTBZNoteDblClick(Sender: TObject);
procedure MPRTTeBieNoteDblClick(Sender: TObject);
procedure MPRTZuRanXingDblClick(Sender: TObject);
procedure v1PBFKPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1PBSpecPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1PBKZPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1PRTGYPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1PBQtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
procedure InitData();
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
function SaveData(): Boolean;
function SaveDataSubOne(): Boolean;
function SaveDataMain(): Boolean;
function SaveDataSubMore(): Boolean;
{ Private declarations }
public
PState, CopyInt, PriceFlag: Integer;
FMainId, FFMainId, FOrderNo, ConSubId: string;
FXS: Integer;
canshu1: string;
{ Public declarations }
end;
var
frmOrderInPut: TfrmOrderInPut;
newh: hwnd;
implementation
uses
U_DataLink, U_ZDYHelp, U_Fun, U_ZDYHelpSel, U_ContractListSel, U_FileUp_TuGao,
U_ZdyAttachment, U_ZdyAttachKH, U_CPManageCX, U_Order_KCTX, U_FjList_RZ;
{$R *.dfm}
procedure TfrmOrderInPut.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('ָʾ<D6B8><CABE>¼<EFBFBD><C2BC>AA', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure TfrmOrderInPut.InitData();
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
sql.Add(' select * from JYOrder_Sub where 1=1 ');
if PState = 1 then
begin
sql.Add(' and MainId=''' + Trim(FMainId) + '''');
end;
if PState = 0 then
begin
sql.Add(' and 1=2');
end;
Open;
end;
SCreateCDS20(ADOQuery1, Order_Sub);
SInitCDSData20(ADOQuery1, Order_Sub);
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrder_Main where MainId=''' + Trim(FMainId) + '''');
Open;
end;
SCSHDataNew(ADOQuery1, ScrollBox1, 2);
ConSubId := Trim(ADOQuery1.fieldbyname('ConSubId').AsString);
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrder_Process where MainId=''' + Trim(FMainId) + '''');
Open;
end;
SCreateCDS20(ADOQueryCmd, Order_GX);
SInitCDSData20(ADOQueryCmd, Order_GX);
if PState = 0 then
begin
OrdDate.DateTime := SGetServerDateTime(ADOTemp);
DlyDate.DateTime := OrdDate.DateTime;
end
else
begin
end;
if CopyInt = 99 then
begin
PState := 0;
FMainId := '';
OrderNo.Text := '';
with Order_Sub do
begin
First;
while not Eof do
begin
Edit;
FieldByName('MainId').Value := '';
FieldByName('SubId').Value := '';
Post;
Next;
end;
end;
with Order_GX do
begin
First;
while not Eof do
begin
Edit;
FieldByName('MainId').Value := '';
FieldByName('PSId').Value := '';
Post;
Next;
end;
end;
end;
end;
procedure TfrmOrderInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string);
var
FType, ZDYName, FText: string;
begin
end;
procedure TfrmOrderInPut.FormShow(Sender: TObject);
begin
readCxGrid('ָʾ<D6B8><CABE>¼<EFBFBD><C2BC>AA', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
YWY.Text := Trim(DName);
InitData();
end;
function TfrmOrderInPut.SaveData(): Boolean;
var
maxno, maxsubno: string;
begin
try
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if Trim(FMainId) = '' then
begin
if GetLSNo(ADOCmd, maxno, 'JM', 'JYOrder_Main', 3, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxno := Trim(FMainId);
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from JYOrder_Main where MainId=''' + Trim(FMainId) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(FMainId) = '' then
begin
Append;
FieldByName('OrdFlag1').Value := 0;
FieldByName('ChkStatus').Value := '';
end
else
begin
Edit;
end;
FieldByName('MainId').Value := Trim(maxno);
fieldbyname('fillCode').Value := trim(DCode);
SSetsaveSqlNew(ADOCmd, 'JYOrder_Main', ScrollBox1, 2);
if Trim(FMainId) = '' then
begin
FieldByName('Filler').Value := Trim(DName);
end
else
begin
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
FieldByName('ConSubId').Value := Trim(ConSubId);
Post;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrder_Main where orderno=''' + Trim(OrderNo.Text) + '''');
Open;
end;
if ADOCmd.RecordCount > 1 then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
FMainId := Trim(maxno);
///<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>
with Order_Sub do
begin
First;
while not Eof do
begin
if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then
begin
if GetLSNo(ADOCmd, maxno, 'JS', 'JYOrder_Sub', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxno := Trim(Order_Sub.fieldbyname('SubId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from JYOrder_Sub where MainId=''' + Trim(FMainId) + '''');
sql.Add(' and SubId=''' + Trim(maxno) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then
Append
else
Edit;
FieldByName('MainId').Value := Trim(FMainId);
FieldByName('SubId').Value := Trim(maxno);
RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'JYOrder_Sub', 0);
fieldbyname('OrdColQty').Value := Order_Sub.fieldbyname('OrdColQty').AsFloat;
fieldbyname('PBQty').Value := Order_Sub.fieldbyname('PBQty').AsFloat;
if Trim(fieldbyname('PRTOrderQty').AsString) = '' then
begin
fieldbyname('PRTOrderQty').Value := 0
end;
Post;
end;
Order_Sub.Edit;
Order_Sub.FieldByName('SubId').Value := Trim(maxno);
Order_Sub.FieldByName('MainId').Value := Trim(FMainId);
Next;
end;
end;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̱<EFBFBD>
with Order_GX do
begin
First;
while not Eof do
begin
if Trim(Order_GX.fieldbyname('PSId').AsString) = '' then
begin
if GetLSNo(ADOCmd, maxsubno, 'PS', 'JYOrder_Process', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxsubno := Trim(Order_GX.fieldbyname('PSId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from JYOrder_Process where PSId=''' + Trim(maxsubno) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(Order_GX.fieldbyname('PSId').AsString) = '' then
Append
else
Edit;
FieldByName('MainId').Value := Trim(FMainId);
FieldByName('PSId').Value := Trim(maxsubno);
RTSetSaveDataCDS(ADOCmd, Tv2, Order_GX, 'JYOrder_Process', 0);
Post;
end;
Order_GX.Edit;
Order_GX.FieldByName('PSId').Value := Trim(maxsubno);
Order_GX.FieldByName('MainId').Value := Trim(FMainId);
//Order_Sub.Post;
Next;
end;
end;
ADOCmd.Connection.CommitTrans;
Result := True;
except
;
Result := False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
end;
end;
function TfrmOrderInPut.SaveDataMain(): Boolean;
var
maxno: string;
begin
try
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from JYOrder_Main where MainId=''' + Trim(FMainId) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(FMainId) = '' then
begin
Append;
maxno := Trim(FFMainId);
end
else
begin
maxno := Trim(FMainId);
Edit;
end;
FieldByName('MainId').Value := Trim(maxno);
SSetsaveSqlNew(ADOCmd, 'JYOrder_Main', ScrollBox1, 2);
if PState = 1 then
begin
FieldByName('OrdUpDate').Value := SGetServerDateTime(ADOTemp);
end;
if Trim(FMainId) = '' then
begin
FieldByName('Filler').Value := Trim(DName);
end
else
begin
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
Post;
end;
FMainId := Trim(maxno);
ADOCmd.Connection.CommitTrans;
Result := True;
except
Result := False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
end;
end;
function TfrmOrderInPut.SaveDataSubOne(): Boolean;
var
maxno: string;
begin
try
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>
with Order_Sub do
begin
//First;
//while not Eof do
begin
if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then
begin
if GetLSNo(ADOTemp, maxno, 'JS', 'JYOrder_Sub', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxno := Trim(Order_Sub.fieldbyname('SubId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from JYOrder_Sub where MainId=''' + Trim(FMainId) + '''');
sql.Add(' and SubId=''' + Trim(maxno) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then
Append
else
Edit;
FieldByName('MainId').Value := Trim(FMainId);
FieldByName('SubId').Value := Trim(maxno);
RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'JYOrder_Sub', 0);
Post;
end;
Order_Sub.Edit;
Order_Sub.FieldByName('SubId').Value := Trim(maxno);
//Order_Sub.Post;
//Next;
end;
end;
ADOCmd.Connection.CommitTrans;
Result := True;
except
Result := False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
end;
end;
function TfrmOrderInPut.SaveDataSubMore(): Boolean;
var
maxno: string;
begin
try
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>
with Order_Sub do
begin
First;
while not Eof do
begin
if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then
begin
if GetLSNo(ADOTemp, maxno, 'JS', 'JYOrder_Sub', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxno := Trim(Order_Sub.fieldbyname('SubId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from JYOrder_Sub where MainId=''' + Trim(FMainId) + '''');
sql.Add(' and SubId=''' + Trim(maxno) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then
Append
else
Edit;
FieldByName('MainId').Value := Trim(FMainId);
FieldByName('SubId').Value := Trim(maxno);
RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'JYOrder_Sub', 0);
Post;
end;
Order_Sub.Edit;
Order_Sub.FieldByName('SubId').Value := Trim(maxno);
//Order_Sub.Post;
Next;
end;
end;
ADOCmd.Connection.CommitTrans;
Result := True;
except
Result := False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
end;
end;
procedure TfrmOrderInPut.TBSaveClick(Sender: TObject);
begin
OrdDate.SetFocus;
if Trim(OrderNo.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(CustomerNOName.Text) = '' then
begin
Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Order_Sub.IsEmpty then
begin
Application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if Order_Sub.Locate('OrderUnit', Null, []) = true then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ', 0);
exit;
end;
if Trim(ConSubId) = '' then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ͬ!', '<27><>ʾ', 0);
Exit;
end;
if SaveData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
ModalResult := 1;
end;
end;
procedure TfrmOrderInPut.v1PRTColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'OrdColor';
flagname := '<27><>ɫ';
V1Name.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
V1Note.Caption := 'Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
MainType := Trim(DName);
fnote := True;
if ShowModal = 1 then
begin
Self.Order_Sub.Edit;
Self.Order_Sub.FieldByName('PRTColor').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
Self.Order_Sub.FieldByName('PRTColorEng').Value := Trim(ClientDataSet1.fieldbyname('Note').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.ToolButton1Click(Sender: TObject);
var
i: Integer;
begin
if Trim(OrderNo.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
i := Order_Sub.RecordCount;
i := i + 1;
CopyAddRow(Tv1, Order_Sub);
with Order_Sub do
begin
Edit;
FieldByName('XHNO').Value := IntToStr(i);
if i < 9 then
FieldByName('PRTColorNo').Value := '0' + Trim(IntToStr(i))
else
FieldByName('PRTColorNo').Value := Trim(IntToStr(i));
FieldByName('PRTColor').Value := '';
FieldByName('PRTColorEng').Value := '';
FieldByName('PRTOrderQty').Value := null;
fieldbyname('HXTuGao').value := NULL;
Post;
end;
end;
procedure TfrmOrderInPut.ToolButton2Click(Sender: TObject);
begin
if Order_Sub.IsEmpty then
Exit;
if Trim(Order_Sub.fieldbyname('SubId').AsString) <> '' then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_SXPB_CR where OrdSubidRK=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + '''');
Open;
end;
if ADOTemp.IsEmpty = False then
begin
Application.MessageBox('<27>ֿ<EFBFBD><D6BF><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ,<2C><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
if Trim(Order_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 ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete JYOrder_Sub where SubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + '''');
ExecSQL;
end;
end;
Order_Sub.Delete;
{ if Order_Sub.IsEmpty then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete JYOrder_Main where MainId='''+Trim(FMainId)+'''');
ExecSQL;
end;
end; }
end;
procedure TfrmOrderInPut.CustomerNoNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmOrderInPut.MPRTCodeNameBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'MPRTCodeName';
flagname := '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
fnote := true;
V1Note.Caption := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
MPRTCodeName.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
MPRTCode.Text := Trim(ClientDataSet1.fieldbyname('Note').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.NoteDblClick(Sender: TObject);
begin
{try
frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag:='OrdNote';
flagname:='<27><>ע<EFBFBD><D7A2>Ҫ<EFBFBD><D2AA>';
if ShowModal=1 then
begin
Note.Text:=Note.Text+frmZDYHelpSel.ReturnStr;
end;
end;
finally
frmZDYHelpSel.Free;
end;}
end;
procedure TfrmOrderInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'OrderUnit';
flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
if ShowModal = 1 then
begin
Self.Order_Sub.Edit;
Self.Order_Sub.FieldByName('OrderUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'PriceUnit';
flagname := '<27>۸<EFBFBD><DBB8><EFBFBD>λ';
if Trim(DParameters1) <> '<27><>Ȩ<EFBFBD><C8A8>' then
begin
TBAdd.Visible := False;
TBEdit.Visible := False;
TBDel.Visible := False;
end;
if ShowModal = 1 then
begin
Self.Order_Sub.Edit;
Self.Order_Sub.FieldByName('PriceUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.OrdDefStr2BtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if Trim(flag) = 'OrdDefStr2' then
begin
//flag:='OrdDefStr2';
V1Name.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
V1Note.Caption := 'Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
fnote := True;
end;
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
if Trim(flag) = 'MPRTCode' then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select Top 1 * from JYOrder_Main where MPRTCode=''' + Trim(ClientDataSet1.fieldbyname('ZDYName').AsString) + '''');
sql.Add(' order by FillTime desc');
Open;
end;
MPRTCodeName.Text := ADOTemp.fieldbyname('MPRTCodeName').Value;
MPRTMF.Text := ADOTemp.fieldbyname('MPRTMF').Value;
MPRTKZ.Text := ADOTemp.fieldbyname('MPRTKZ').Value;
MPRTSpec.Text := ADOTemp.fieldbyname('MPRTSpec').Value;
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.ToolButton3Click(Sender: TObject);
begin
if Order_Sub.IsEmpty then
Exit;
OneKeyPost(Tv1, Order_Sub);
end;
procedure TfrmOrderInPut.YCLFactoryBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
MainType := TEdit(Sender).Name;
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.MPRTSCTeBieNoteBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := ReturnStr;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.Button5Click(Sender: TObject);
var
maxsubno: string;
FRLMoney, FSXMoney, FOtherMoney: double;
begin
with Order_RLDJ do
begin
First;
while not Eof do
begin
if Trim(Order_RLDJ.fieldbyname('FPId').AsString) = '' then
begin
if GetLSNo(ADOTemp, maxsubno, 'FP', 'SK_Money_FP', 3, 1) = False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxsubno := Trim(Order_RLDJ.fieldbyname('FPId').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from SK_Money_FP where FPId=''' + Trim(maxsubno) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(Order_RLDJ.fieldbyname('FPId').AsString) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
FieldByName('FPId').Value := Trim(maxsubno);
FieldByName('YFID').Value := Trim(Order_RLDJ.fieldbyname('YFID').AsString);
FieldByName('FPTYpe').Value := Order_RLDJ.fieldbyname('FPTYpe').Value;
FieldByName('FPDate').Value := Order_RLDJ.fieldbyname('FPDate').Value;
FieldByName('WBID').Value := Trim(Order_RLDJ.fieldbyname('WBID').AsString); //ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD>
FieldByName('TTID').Value := Trim(Order_RLDJ.fieldbyname('TTID').AsString);
fieldbyname('FPMoney').Value := Order_RLDJ.fieldbyname('FPMoney').AsFloat;
fieldbyname('SXMoney').Value := Order_RLDJ.fieldbyname('SXMoney').AsFloat;
fieldbyname('OtherMoney').Value := Order_RLDJ.fieldbyname('OtherMoney').AsFloat;
FieldByName('Note').Value := Trim(Order_RLDJ.fieldbyname('Note').AsString);
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate JYOrder_Main Set DJMoney=(select Sum(FPMoney) from SK_Money_FP A ');
sql.Add(' where A.WBID=JYOrder_Main.MainID and A.FPType=''<27><><EFBFBD><EFBFBD>'') ');
sql.Add(',HKMoney=(select Sum(FPMoney) from SK_Money_FP A ');
sql.Add(' where A.WBID=JYOrder_Main.MainID and A.FPType=''<27><><EFBFBD><EFBFBD>'') ');
sql.Add(',SXMoney=(select Sum(SXMoney) from SK_Money_FP A ');
sql.Add(' where A.WBID=JYOrder_Main.MainID) ');
sql.add(',JYOtherMoney=(select Sum(OtherMoney) from SK_Money_FP A ');
sql.Add(' where A.WBID=JYOrder_Main.MainID)');
sql.add(',SCHuiLv=(Case when (select Top 1 C.HuiLv from YF_Money_CR C inner join SK_Money_FP A on C.YFID=A.YFID ');
sql.add(' where A.WBID=JYOrder_Main.MainID and C.CRType=''<27>տ<EFBFBD><D5BF>Ǽ<EFBFBD>'' and C.BZType=''$'' Order by A.FPDate desc)<>0 then ');
sql.add(' (select Top 1 C.HuiLv from YF_Money_CR C inner join SK_Money_FP A on C.YFID=A.YFID ');
sql.add(' where A.WBID=JYOrder_Main.MainID and C.CRType=''<27>տ<EFBFBD><D5BF>Ǽ<EFBFBD>'' and C.BZType=''$'' Order by A.FPDate desc)*1.17-0.35 else NULL end)');
sql.Add(' where MainID=''' + Trim(Order_RLDJ.fieldbyname('WBID').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate YF_Money_CR Set FPDJMoney=(select Sum(FPMoney) from SK_Money_FP A ');
sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType=''<27><><EFBFBD><EFBFBD>''),');
sql.Add('YSXMoney=(select Sum(SXMoney) from SK_Money_FP A ');
sql.Add(' where A.YFID=YF_Money_CR.YFID), ');
sql.Add('TKMoney=(select Sum(OtherMoney) from SK_Money_FP A ');
sql.Add(' where A.YFID=YF_Money_CR.YFID) ');
sql.Add('where YFID=''' + Trim(Order_RLDJ.fieldbyname('YFID').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate YF_Money_CR Set FPHKMoney=(select Sum(FPMoney) from SK_Money_FP A ');
sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType=''<27><><EFBFBD><EFBFBD>'') ');
sql.Add('where YFID=''' + Trim(Order_RLDJ.fieldbyname('YFID').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_CR Set WFPMoney=isnull(RZMoney,0)-isnull(FPDJMoney,0)-isnull(FPHKMoney,0)-isnull(TKMoney,0) ');
sql.Add('where YFID=''' + Trim(Order_RLDJ.fieldbyname('YFID').AsString) + '''');
ExecSQL;
end;
Order_RLDJ.Edit;
Order_RLDJ.FieldByName('FPId').Value := Trim(maxsubno);
Next;
end;
end;
end;
procedure TfrmOrderInPut.v1HXTuGaoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmFileUp_TuGao := TfrmFileUp_TuGao.Create(Application);
with frmFileUp_TuGao do
begin
Code.Text := Trim(Self.OrderNo.Text) + Trim(Self.Order_Sub.fieldbyname('StyleNo').AsString) + Trim(Self.Order_Sub.fieldbyname('PRTHX').AsString);
CYID := Trim(Self.Order_Sub.fieldbyname('HXTuGao').AsString);
if ShowModal = 1 then
begin
with Order_Sub do
begin
edit;
fieldbyname('HXTuGao').AsString := Trim(ADOQueryFile.fieldbyname('CYID').asstring);
end;
end;
end;
finally
frmFileUp_TuGao.Free;
end;
end;
procedure TfrmOrderInPut.v1SKTuGaoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmFileUp_TuGao := TfrmFileUp_TuGao.Create(Application);
with frmFileUp_TuGao do
begin
Code.Text := Trim(Self.Order_Sub.fieldbyname('SOrddefstr2').AsString);
CYID := Trim(Self.Order_Sub.fieldbyname('SKTuGao').AsString);
if ShowModal = 1 then
begin
with Order_Sub do
begin
edit;
fieldbyname('SKTuGao').AsString := Trim(ADOQueryFile.fieldbyname('CYID').asstring);
end;
end;
end;
finally
frmFileUp_TuGao.Free;
end;
end;
procedure TfrmOrderInPut.ConNOBtnUpClick(Sender: TObject);
begin
try
frmContractListSel := TfrmContractListSel.Create(Application);
with frmContractListSel do
begin
canshu1 := Self.canshu1;
if ShowModal = 1 then
begin
ConSubId := Trim(CDS_Sub.fieldbyname('SubId').AsString);
Self.ConNo.Text := Trim(Order_Main.fieldbyname('ConNo').AsString);
Self.OrderNo.Text := Trim(Order_Main.fieldbyname('ConNo').AsString) + '-1';
Self.CustomerNoName.Text := Trim(Order_Main.fieldbyname('CustomerNoName').AsString);
Self.YWY.Text := Trim(Order_Main.fieldbyname('ConPerson1').AsString);
MPRTCodeName.Text := Trim(CDS_Sub.fieldbyname('PRTCodeName').AsString);
MPRTMF.Text := Trim(CDS_Sub.fieldbyname('PRTMF').AsString);
MPRTKZ.Text := Trim(CDS_Sub.fieldbyname('PRTKZ').AsString);
MPRTSpec.Text := Trim(CDS_Sub.fieldbyname('PRTspec').AsString);
self.KHConNO.Text := Trim(Order_Main.fieldbyname('KHConNO').AsString);
self.OrdDefNote2.Text := Trim(Order_Main.fieldbyname('condefNote2').AsString);
self.note.Text := Trim(Order_Main.fieldbyname('condefNote4').AsString);
with CDS_Sub do
begin
First;
while not eof do
begin
if FieldByName('Ssel').AsBoolean = true then
begin
with Self.Order_Sub do
begin
append;
FieldByName('PRTColor').Value := Trim(CDS_Sub.fieldbyname('PRTColor').AsString);
FieldByName('PRTColorEng').Value := Trim(CDS_Sub.fieldbyname('SOrdDefStr4').AsString);
FieldByName('PRTOrderQty').Value := CDS_Sub.fieldbyname('PRTOrderQty').AsFloat;
FieldByName('OrderUnit').Value := Trim(CDS_Sub.fieldbyname('OrderUnit').AsString);
FieldByName('PRTColorNo').Value := Trim(CDS_Sub.fieldbyname('PRTColorNo').AsString);
FieldByName('StyleNo').Value := Trim(CDS_Sub.fieldbyname('StyleNo').AsString);
FieldByName('PRTHX').Value := Trim(CDS_Sub.fieldbyname('PRTHX').AsString);
FieldByName('ZXChiCun').Value := CDS_Sub.fieldbyname('ZXChiCun').AsString;
FieldByName('OrdColQty').Value := CDS_Sub.fieldbyname('MXTQty').AsFloat;
post;
end;
end;
next;
end;
end;
end;
end;
finally
frmContractListSel.Free;
end;
end;
procedure TfrmOrderInPut.v1PRTHXPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'PRTHX';
flagname := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
Self.Order_Sub.Edit;
Self.Order_Sub.FieldByName('PRTHX').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.JGFactoryNameBtnUpClick(Sender: TObject);
begin
try
frmZdyAttachKH := TfrmZdyAttachKH.Create(Application);
with frmZdyAttachKH do
begin
if ShowModal = 1 then
begin
JGFactoryName.Text := Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZdyAttachKH.Free;
end;
end;
procedure TfrmOrderInPut.v1OrdColQtyPropertiesEditValueChanged(Sender: TObject);
var
Fieldname: string;
mavlue: string;
begin
Fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
mavlue := TcxTextEdit(Sender).EditingText;
if mavlue = '' then
mavlue := '0';
with Order_Sub do
begin
edit;
fieldbyname('OrdColQty').AsString := trim(mavlue);
end;
with Order_Sub do
begin
edit;
FieldByName('PRTOrderQty').Value := FieldByName('OrdColQty').AsFloat * FieldByName('OrdMSQty').AsFloat;
end;
end;
procedure TfrmOrderInPut.TYPTPClick(Sender: TObject);
begin
if Trim(OrderNo.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
frmCPManage_CX := TfrmCPManage_CX.create(self);
with frmCPManage_CX do
begin
if showmodal = 1 then
begin
CDS_Main.DisableControls;
with CDS_Main do
begin
first;
while not Eof do
begin
if FieldByName('Ssel').AsBoolean = true then
begin
with Self.Order_Sub do
begin
append;
FieldByName('PRTColor').Value := Trim(CDS_Main.fieldbyname('CYColor').AsString);
FieldByName('PRTColorEng').Value := Trim(CDS_Main.fieldbyname('CYColorEng').AsString);
FieldByName('PRTHX').Value := Trim(CDS_Main.fieldbyname('CYHX').AsString);
FieldByName('HXTuGao').Value := Trim(CDS_Main.fieldbyname('CYID').AsString);
post;
end;
end;
next;
end;
end;
CDS_Main.DisableControls;
end;
free;
end;
end;
procedure TfrmOrderInPut.v1OrdMSQtyPropertiesEditValueChanged(Sender: TObject);
var
Fieldname: string;
mavlue: string;
begin
Fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
mavlue := TcxTextEdit(Sender).EditingText;
if mavlue = '' then
mavlue := '0';
with Order_Sub do
begin
edit;
fieldbyname('OrdMSQty').AsString := trim(mavlue);
end;
with Order_Sub do
begin
edit;
FieldByName('PRTOrderQty').Value := FieldByName('OrdColQty').AsFloat * FieldByName('OrdMSQty').AsFloat;
end;
end;
procedure TfrmOrderInPut.TAddClick(Sender: TObject);
var
Fint: Integer;
FReal, FMF, FKZ: Double;
begin
Fint := Order_GX.RecordCount;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := 'FromGX';
flagname := '<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
with ClientDataSet1 do
begin
First;
while not eof do
begin
if ClientDataSet1.FieldByName('SSel').AsBoolean = True then
begin
with Order_GX do
begin
Append;
FieldByName('PSXH').Value := Fint + 1;
FieldByName('PSName').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
Fint := Fint + 1;
Post;
end;
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColorNo,'''')+'' ''+isnull(B.PRTColorEng,'''')+'' ''+isnull(B.PRTColor,''''), ');
sql.Add(' B.PRTOrderQty,B.OrderUnit from JYOrder_PCS_Sub A');
sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId');
sql.Add('where A.PSID=''' + Trim(Order_GX.fieldbyname('PSID').AsString) + '''');
Open;
end;
SCreateCDS20(ADOCmd, CDS_JGC);
SInitCDSData20(ADOCmd, CDS_JGC);
end;
procedure TfrmOrderInPut.TDelClick(Sender: TObject);
begin
if Order_GX.IsEmpty then
exit;
if CDS_JGC.IsEmpty = False then
begin
Application.MessageBox('<27>Ѱ<EFBFBD><D1B0>Ų<EFBFBD><C5B2><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Trim(Order_GX.fieldbyname('PSId').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 JYOrder_Process where PSId=''' + Trim(Order_GX.fieldbyname('PSId').AsString) + '''');
ExecSQL;
end;
end;
Order_GX.Delete;
end;
procedure TfrmOrderInPut.ToolButton4Click(Sender: TObject);
begin
if Order_GX.IsEmpty then
begin
Application.MessageBox('<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD>̲<EFBFBD><CCB2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if Trim(Order_GX.fieldbyname('PSID').AsString) = '' then
begin
Application.MessageBox('<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣδ<CFA2><CEB4><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
try
frmZdyAttachKH := TfrmZdyAttachKH.Create(Application);
with frmZdyAttachKH do
begin
if ShowModal = 1 then
begin
with CDS_JGC do
begin
Append;
FieldByName('FactoryNo').Value := Trim(CDS_HZ.fieldbyname('ATID').AsString);
FieldByName('FactoryName').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
FieldByName('PFDate').Value := Now;
//Post;
end;
end;
end;
finally
frmZdyAttachKH.Free;
end;
end;
procedure TfrmOrderInPut.ToolButton5Click(Sender: TObject);
begin
if CDS_JGC.IsEmpty then
Exit;
if Trim(CDS_JGC.fieldbyname('PFId').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 JYOrder_PCS_Sub where PFId=''' + Trim(CDS_JGC.fieldbyname('PFId').AsString) + '''');
ExecSQL;
end;
end;
CDS_JGC.Delete;
end;
procedure TfrmOrderInPut.ToolButton8Click(Sender: TObject);
var
maxno: string;
begin
if CDS_JGC.IsEmpty then
Exit;
ToolBar1.SetFocus;
try
ADOCmd.Connection.BeginTrans;
CDS_JGC.DisableControls;
with CDS_JGC do
begin
First;
while not Eof do
begin
if Trim(CDS_JGC.fieldbyname('PFID').AsString) = '' then
begin
if GetLSNo(ADOCmd, maxno, 'PF', 'JYOrder_PCS_Sub', 3, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
CDS_JGC.EnableControls;
Application.MessageBox('ȡ<><C8A1><EFBFBD>̼ӹ<CCBC><D3B9><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxno := Trim(CDS_JGC.fieldbyname('PFID').AsString);
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrder_PCS_Sub where PFID=''' + Trim(CDS_JGC.fieldbyname('PFID').AsString) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(CDS_JGC.fieldbyname('PFID').AsString) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('MainID').Value := Trim(FMainId);
FieldByName('PSID').Value := Trim(Order_GX.fieldbyname('PSID').AsString);
FieldByName('SubID').Value := Trim(CDS_JGC.fieldbyname('SubID').AsString);
FieldByName('PFID').Value := Trim(maxno);
FieldByName('FactoryNo').Value := Trim(CDS_JGC.fieldbyname('FactoryNo').AsString);
FieldByName('FactoryName').Value := Trim(CDS_JGC.fieldbyname('FactoryName').AsString);
FieldByName('PFDlyDate').Value := CDS_JGC.fieldbyname('PFDlyDate').Value;
RTSetSaveDataCDS(ADOCmd, Tv3, CDS_JGC, 'JYOrder_PCS_Sub', 0);
FieldByName('PFTPPS').Value := CDS_JGC.fieldbyname('PFTPPS').AsFloat;
FieldByName('PFTPQty').Value := CDS_JGC.fieldbyname('PFTPQty').AsFloat;
Post;
end;
with CDS_JGC do
begin
edit;
fieldbyname('PFID').AsString := trim(maxno);
end;
Next;
end;
end;
ADOCmd.Connection.CommitTrans;
CDS_JGC.EnableControls;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!', '<27><>ʾ', 0);
Exit;
except
ADOCmd.Connection.RollbackTrans;
CDS_JGC.EnableControls;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣!', '<27><>ʾ', 0);
Exit;
end;
end;
procedure TfrmOrderInPut.TV2PSNotePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
fsj: string;
i: Integer;
begin
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := 'PSNote';
flagname := 'ע<><D7A2>Ʒ<EFBFBD><C6B7>˵<EFBFBD><CBB5>';
MainType := Trim(Order_GX.fieldbyname('PSName').AsString);
if ShowModal = 1 then
begin
i := 0;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if ClientDataSet1.FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
if Trim(fsj) = '' then
begin
fsj := fsj + Trim(IntToStr(i)) + ') ' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
end
else
begin
fsj := fsj + #10 + Trim(IntToStr(i)) + ') ' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
Next;
end;
end;
with Order_GX do
begin
Edit;
FieldByName('PSNote').Value := Trim(fsj);
//Post;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.v3Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'PFGenDanPerson';
flagname := '<27><><EFBFBD><EFBFBD>Ա';
fnote := True;
V1Note.Caption := '<27>绰';
if ShowModal = 1 then
begin
with CDS_JGC do
begin
Edit;
FieldByName('PFGenDanPerson').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.v3TOGYSNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZdyAttachKH := TfrmZdyAttachKH.Create(Application);
with frmZdyAttachKH do
begin
if ShowModal = 1 then
begin
with CDS_JGC do
begin
edit;
FieldByName('TOGYSName').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZdyAttachKH.Free;
end;
end;
procedure TfrmOrderInPut.TKCTXClick(Sender: TObject);
begin
if MPRTCodeName.Text = '' then
begin
Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
exit;
end;
FrmKCTiXing := TFrmKCTiXing.create(self);
with FrmKCTiXing do
begin
SPName.Text := trim(MPRTCodeName.text);
if ShowModal = 1 then
begin
end;
end;
end;
procedure TfrmOrderInPut.ToolButton6Click(Sender: TObject);
begin
if ConNo.Text = '' then
begin
application.MessageBox('<27><>ͬ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
exit;
end;
try
frmFjList_RZ := TfrmFjList_RZ.Create(Application);
with frmFjList_RZ do
begin
fkeyNO := Trim(ConNo.Text);
FType := '<27><>ͬ';
if ShowModal = 1 then
begin
end;
end;
finally
frmFjList_RZ.Free;
end;
end;
procedure TfrmOrderInPut.v3PSCodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'PSCodeName';
flagname := '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
with CDS_JGC do
begin
Edit;
FieldByName('PSCodeName').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.MPRTBZNoteDblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
MPRTBZNote.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
MPRTBZNote.Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.MPRTTeBieNoteDblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
MPRTTeBieNote.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
MPRTTeBieNote.Lines.Add(FieldByName('ZDYName').AsString);
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.MPRTZuRanXingDblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
MPRTZuRanXing.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
MPRTZuRanXing.Lines.Add(FieldByName('ZDYName').AsString);
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.v1PBFKPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'PBFK';
flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
with CDS_JGC do
begin
Edit;
FieldByName('PBFK').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.v1PBSpecPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'PBSpec';
flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
with CDS_JGC do
begin
Edit;
FieldByName('PBSpec').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.v1PBKZPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'PBKZ';
flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
with CDS_JGC do
begin
Edit;
FieldByName('PBKZ').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
;
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.v1PRTGYPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'PRTGY';
flagname := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
with Order_Sub do
begin
Edit;
FieldByName('PRTGY').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
;
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.v1PBQtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'PBQtyUnit';
flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
if ShowModal = 1 then
begin
with Order_Sub do
begin
Edit;
FieldByName('PBQtyUnit').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
;
frmZDYHelp.Free;
end;
end;
end.
Reference in New Issue Copy Permalink