Group_02/D7zzHanglin
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
4c4c37570c
D7zzHanglin/合同管理(ContractManagement.dll)/U_ConInPutNX.pas

1367 lines
38 KiB
ObjectPascal
Raw Normal View History

0
2025-08-06 16:42:07 +08:00
unit U_ConInPutNX;
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,
cxGridCustomPopupMenu, cxGridPopupMenu;
type
TfrmConInPutNX = class(TForm)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ScrollBox1: TScrollBox;
Label3: TLabel;
OrdDate: TDateTimePicker;
Label4: TLabel;
DlyDate: TDateTimePicker;
Label7: TLabel;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
v1PRTColor: TcxGridDBColumn;
v1PRTPrice: TcxGridDBColumn;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DataSource1: TDataSource;
Order_Sub: TClientDataSet;
ADOQuery1: TADOQuery;
v1PRTOrderQty: TcxGridDBColumn;
Label9: TLabel;
Label10: TLabel;
ConNo: TEdit;
Label11: TLabel;
Label14: TLabel;
Label20: TLabel;
FromPlace: TBtnEditC;
CustomerNoName: TBtnEditC;
v1XHNo: TcxGridDBColumn;
SYRName: TBtnEditC;
Label6: TLabel;
QtyNote: TBtnEditC;
Label15: TLabel;
Payment: TBtnEditC;
Label17: TLabel;
Label18: TLabel;
BankNo: TBtnEditC;
Label19: TLabel;
Label21: TLabel;
Label8: TLabel;
Label23: TLabel;
DlyNote: TBtnEditC;
CDS_Type: TClientDataSet;
Label22: TLabel;
Label24: TLabel;
Label34: TLabel;
KHConNo: TEdit;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
Label2: TLabel;
Label5: TLabel;
Label12: TLabel;
Label13: TLabel;
Button1: TButton;
Button2: TButton;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Order_Note: TClientDataSet;
DataSource2: TDataSource;
v1Column14: TcxGridDBColumn;
cxGridPopupMenu2: TcxGridPopupMenu;
Label1: TLabel;
XSType: TComboBox;
Label16: TLabel;
ConQtyUnit: TComboBox;
v1Column1: TcxGridDBColumn;
TelNo: TBtnEditC;
FaxNo: TBtnEditC;
BankName: TBtnEditC;
v1Column3: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
GFLXPerson: TBtnEditC;
GFLXTel: TBtnEditC;
SYRAddress: TBtnEditC;
CTMAddress: TBtnEditC;
XFLXPerson: TBtnEditC;
XFLXTel: TBtnEditC;
CTMFaxNo: TBtnEditC;
CTMTelNo: TBtnEditC;
ConPerson1: TBtnEditC;
Label25: TLabel;
SQRatio: TEdit;
Label26: TLabel;
YsFs: TBtnEditC;
Label27: TLabel;
BzNote: TBtnEditC;
Label28: TLabel;
JsFs: TBtnEditC;
Label30: TLabel;
WyZr: TBtnEditC;
Label31: TLabel;
HtJf: TBtnEditC;
Label32: TLabel;
QtTk: TBtnEditC;
Label29: TLabel;
IsHS: TComboBox;
Label33: TLabel;
zlbz: TBtnEditC;
v1Column9: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
Label35: TLabel;
ZhiYuan: TComboBox;
v1Column11: TcxGridDBColumn;
v1Column12: 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 CustomerNoNameBtnUpClick(Sender: TObject);
procedure CustomerNoNameBtnDnClick(Sender: TObject);
procedure v1Column1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1PriceUnitPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure SYRNameBtnUpClick(Sender: TObject);
procedure CPCFNoDblClick(Sender: TObject);
procedure CPRanHouGYBtnDnClick(Sender: TObject);
procedure v1Column4PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure v1Column14PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure v1Column8PropertiesEditValueChanged(Sender: TObject);
procedure v1PRTOrderQtyPropertiesEditValueChanged(Sender: TObject);
procedure DlyDateChange(Sender: TObject);
private
fuserName:string;
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:Integer;
FMainId,FFMainId,ChkStr,ConPriceStr:String;
FXS:Integer;
{ Public declarations }
end;
var
frmConInPutNX: TfrmConInPutNX;
newh:hwnd;
implementation
uses
U_DataLink,U_ZDYHelp,U_Fun,U_ZDYHelpSel, U_ZdyAttachment,
U_CPManageFMSel,DateUtils ;
{$R *.dfm}
procedure TfrmConInPutNX.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('<27><>ͬ¼<CDAC><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>RZ',Tv1,'<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure TfrmConInPutNX.InitData();
begin
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select * from KH_Zdy where Type=''MPRTNameType'' ');
Open;
end;
SCreateCDS20(ADOQuery1,CDS_Type);
SInitCDSData20(ADOQuery1,CDS_Type);
with ADOQuery1 do
begin
Close;
SQL.Clear;
sql.Add(' select * from JYOrderCon_Sub_PB ');
if PState=1 then
begin
sql.Add('where MainId='''+Trim(FMainId)+'''');
end;
if PState=0 then
begin
sql.Add(' where 1<>1');
end;
Open;
end;
SCreateCDS20(ADOQuery1,Order_Sub);
SInitCDSData20(ADOQuery1,Order_Sub);
with ADOQuery1 do
begin
Close;
SQL.Clear;
sql.Add(' select * from JYOrderCon_Main_Note_PB ');
if PState=1 then
begin
sql.Add('where MainId='''+Trim(FMainId)+'''');
end;
if PState=0 then
begin
sql.Add(' where 1<>1');
end;
Open;
end;
SCreateCDS20(ADOQuery1,Order_Note);
SInitCDSData20(ADOQuery1,Order_Note);
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrderCon_Main_PB where MainId='''+Trim(FMainId)+'''');
Open;
end;
SCSHDataNew(ADOQuery1,ScrollBox1,2);
SYRName.TxtCode:=Trim(ADOQuery1.fieldbyname('ConDefStr2').AsString);
ConNo.Text:=Trim(ADOQuery1.fieldbyname('ConNo').AsString);
if Trim(ADOQuery1.fieldbyname('status').AsString)='1' then
begin
ChkStr:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
if PState=0 then
begin
OrdDate.DateTime:=SGetServerDateTime(ADOTemp);
DlyDate.DateTime:=SGetServerDateTime(ADOTemp);
//ConPerson1.Text:=Trim(DName);
end else
begin
end;
if CopyInt=99 then
begin
PState:=0;
FMainId:='';
//ConPerson1.Text:=Trim(DName);
ConNo.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_Note do
begin
First;
while not Eof do
begin
Edit;
FieldByName('MainId').Value:='';
FieldByName('MNId').Value:='';
Post;
Next;
end;
end;
end;
end;
procedure TfrmConInPutNX.ZDYHelp(FButn:TcxButtonEdit;LType:string);
var
FType,ZDYName,FText:String;
begin
end;
procedure TfrmConInPutNX.FormShow(Sender: TObject);
begin
fuserName:=DCode;
readCxGrid('<27><>ͬ¼<CDAC><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>RZ',Tv1,'<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
InitData();
if CopyInt=99 then Exit;
{if DParameters1='<27><>Ȩ<EFBFBD><C8A8>' then
begin
v1PRTPrice.Options.Editing:=True;
end else
begin
v1PRTPrice.Options.Editing:=False;
end; }
if ChkStr='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
ScrollBox1.Enabled:=False;
ToolBar2.Visible:=False;
v1XHNo.Options.Focusing:=False;
v1Column14.Options.Focusing:=False;
v1Column4.Options.Focusing:=False;
v1Column5.Options.Focusing:=False;
v1PRTColor.Options.Focusing:=False;
v1Column6.Options.Focusing:=False;
v1Column7.Options.Focusing:=False;
v1PRTOrderQty.Options.Focusing:=False;
v1Column1.Options.Focusing:=False;
v1Column2.Options.Focusing:=False;
v1Column8.Options.Focusing:=False;
v1Column3.Options.Focusing:=False;
end;
end;
function TfrmConInPutNX.SaveData():Boolean;
var
maxno,maxmnno,MConNo,MConFlag:String;
fconNO,fmxType:string;
begin
try
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if Trim(FMainId)='' then
begin
if GetLSNo(ADOCmd,maxno,'RT','JYOrderCon_Main_PB',2,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end;
maxno:=Copy(maxno,1,2)+'20'+Copy(maxno,3,Length(maxno)-2);
if trim(XSType.Text)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
if GetLSNo(ADOCmd,MConNo,'SHJSKF','JYOrderCon_Main_PB',3,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end;
MConNo:= 'SHJSKF'+copy(MConNo,7,9);
// ForOrderNo.Text:= trim(MConNo);
//SHJSKF020306001
end
else
begin
//SH020602 0057
MConFlag:=trim(copy(maxno,3,4));
if GetLSNo(ADOCmd,MConNo,MConFlag,'JYOrderCon_Main_PB',4,0)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end;
MConNo:='SH'+copy(trim(maxno),5,6)+copy(trim(MConNo),5,4);
end;
end
else
begin
maxno:=Trim(FMainId);
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from JYOrderCon_Main_PB where MainId='''+Trim(FMainId)+'''');
Open;
end;
with ADOCmd do
begin
if Trim(FMainId)='' then
begin
Append;
FieldByName('ConNo').Value:=Trim(MConNo);
end
else
begin
Edit;
end;
FieldByName('MainId').Value:=Trim(maxno);
SSetsaveSqlNew(ADOCmd,'JYOrderCon_Main_PB',ScrollBox1,2);
FieldByName('ConDefStr2').Value:=Trim(SYRName.TxtCode);
if Trim(FMainId)='' then
begin
FieldByName('Filler').Value:=Trim(DName);
FieldByName('FillerCode').Value:=Trim(DCode);
end else
begin
FieldByName('Editer').Value:=Trim(DName);
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
end;
FieldByName('MPRTType').Value:='<27><><EFBFBD><EFBFBD>';
Post;
end;
// with ADOCmd do
// begin
// Close;
// SQL.Clear;
// SQL.Add('select * from JYOrderCon_Main_PB where ForOrderNo='+quotedstr(Trim(ForOrderNo.Text)));
// Open;
// end;
// if ADOCmd.RecordCount>1 then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD>','<27><>ʾ',0);
// Exit;
// end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate JYOrderCon_Main_PB Set Filler='''+Trim(DName)+'''');
sql.Add(' where MainId='''+Trim(FMainId)+'''');
ExecSQL;
end;
FMainId:=Trim(maxno);
///<2F><><EFBFBD>汸ע<E6B1B8><D7A2>
with Order_Note do
begin
First;
while not Eof do
begin
if Trim(Order_Note.fieldbyname('MNId').AsString)='' then
begin
if GetLSNo(ADOCmd,maxmnno,'MN','JYOrderCon_Main_Note_PB',4,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1>ע<EFBFBD><D7A2>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
end else
begin
maxmnno:=Trim(Order_Note.fieldbyname('MNId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from JYOrderCon_Main_Note_PB where MainId='''+Trim(FMainId)+'''');
sql.Add(' and MNId='''+Trim(maxmnno)+'''');
Open;
end;
with ADOCmd do
begin
if Trim(Order_Note.fieldbyname('MNId').AsString)='' then
Append
else
Edit;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('MNId').Value:=Trim(maxmnno);
FieldByName('MNType').Value:='<27><><EFBFBD><EFBFBD>';
RTSetSaveDataCDS(ADOCmd,Tv2,Order_Note,'JYOrderCon_Main_Note_PB',0);
Post;
end;
Order_Note.Edit;
Order_Note.FieldByName('MNId').Value:=Trim(maxmnno);
Next;
end;
end;
///<2F><><EFBFBD>汸ע<E6B1B8><D7A2>
///<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,'JB','JYOrderCon_Sub_PB',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 JYOrderCon_Sub_PB 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,'JYOrderCon_Sub_PB',0);
FieldByName('OrderUnit').Value:=Trim(ConQtyUnit.Text);
if Trim(fieldbyname('PRTOrderQty').AsString)='' then
begin
fieldbyname('PRTOrderQty').Value:=0
end;
if Trim(fieldbyname('PRTPrice').AsString)='' then
begin
fieldbyname('PRTPrice').Value:=0
end;
Post;
end;
Order_Sub.Edit;
Order_Sub.FieldByName('SubId').Value:=Trim(maxno);
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('Update JYOrderCon_Sub_PB Set ConMXMoney=Cast(PRTPrice*PRTOrderQty as decimal(18,2))+isnull(DYMoney,0)');
sql.Add(' where SubId='''+Trim(maxno)+'''');
ExecSQL;
end;
//Order_Sub.Post;
Next;
end;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('Update JYOrderCon_Main_PB Set ');
sql.Add('ConMoney=(select Sum(ConMXMoney) from JYOrderCon_Sub_PB A where A.MainId=JYOrderCon_Main_PB.MainId)');
sql.Add(',ConQty=(select Sum(PRTOrderQty) from JYOrderCon_Sub_PB A where A.MainId=JYOrderCon_Main_PB.MainId)');
sql.Add('where MainId='''+Trim(FMainId)+'''');
ExecSQL ;
end;
ADOCmd.Connection.CommitTrans;
Result:=True;
except
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Result:=False;
end;
end;
function TfrmConInPutNX.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
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Result:=False;
end;
end;
function TfrmConInPutNX.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 TfrmConInPutNX.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 TfrmConInPutNX.TBSaveClick(Sender: TObject);
var
MaxDS,FlagDS:string;
begin
ToolBar1.SetFocus;
// if Trim(ForOrderNo.Text)='' then
// begin
// FlagDS:='DS'+Trim(FormatDateTime('yyyyMM',SGetServerDate10(ADOTemp)));
// if GetLSNo(ADOCmd,MaxDS,FlagDS,'JYOrderCon_Main_PB',3,0)=False then
// begin
// Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
// Exit;
// end;
//
// ForOrderNo.Text:=MaxDS;
// end;
if Trim(ZhiYuan.Text)='' then
begin
Application.MessageBox('<27><>Դ<EFBFBD><D4B4><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if Trim(CustomerNoName.Text)='' then
begin
Application.MessageBox('<27>跽<EFBFBD><E8B7BD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if Trim(ConPerson1.Text)='' then
begin
Application.MessageBox('ҵ<><D2B5>Ա<EFBFBD><D4B1><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if Trim(SYRName.Text)='' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if DlyDate.Checked=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڲ<EFBFBD><DAB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if Trim(ConQtyUnit.Text)='' then
begin
Application.MessageBox('<27><>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if Trim(IsHS.Text)='' then
begin
Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if Trim(XSType.Text)='' then
begin
Application.MessageBox('<27><><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if Trim(XSType.Text)='<27><><EFBFBD><EFBFBD>' then
begin
if Order_Sub.Locate('DYMoney',Null,[]) then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ѳ<EFBFBD><D1B2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
end;
if Order_Sub.Locate('PrtCodeName',null,[])=True then
begin
Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if Order_Sub.Locate('PRTOrderQty',null,[])=True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if SaveData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
end;
end;
procedure TfrmConInPutNX.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>';
//fnote:=True;
MainType:=Trim(DName);
if ShowModal=1 then
begin
Self.Order_Sub.Edit;
Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
//Self.Order_Sub.FieldByName('SOrdDefStr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmConInPutNX.ToolButton1Click(Sender: TObject);
var
i:Integer;
begin
{if Trim(ConNo.Text)='' then
begin
Application.MessageBox('<27><>ͬ<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);
FieldByName('PRTColor').Value:='';
FieldByName('PRTOrderQty').Value:=null;
// FieldByName('PRTPrice').Value:=null;
FieldByName('SOrddefstr4').Value:=null;
FieldByName('PriceUnit').Value:='RMB';
Post;
end;
end;
procedure TfrmConInPutNX.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 Cloth_Main where ConSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
Open;
end;
if ADOTemp.IsEmpty=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from FHSQ_Main where ConSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
Open;
end;
if ADOTemp.IsEmpty=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룬<EFBFBD><EBA3AC><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
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 JYOrderCon_Sub_PB where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
ExecSQL;
end;
end;
Order_Sub.Delete;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('Update JYOrderCon_Main_PB Set ');
sql.Add('ConMoney=(select Sum(ConMXMoney) from JYOrderCon_Sub_PB A where A.MainId=JYOrderCon_Main_PB.MainId)');
sql.Add(',ConQty=(select Sum(PRTOrderQty) from JYOrderCon_Sub_PB A where A.MainId=JYOrderCon_Main_PB.MainId)');
sql.Add('where MainId='''+Trim(FMainId)+'''');
ExecSQL ;
end;
end;
procedure TfrmConInPutNX.CustomerNoNameBtnUpClick(Sender: TObject);
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from FHSQ_Main where ConMainId='''+Trim(FMainId)+'''');
Open;
end;
if ADOTemp.IsEmpty=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룬<EFBFBD><EBA3AC><EFBFBD><EFBFBD><EFBFBD>޸Ŀͻ<C4BF><CDBB><EFBFBD>','<27><>ʾ',0);
Exit;
end;
try
frmZdyAttachment:=TfrmZdyAttachment.Create(Application);
with frmZdyAttachment do
begin
if ShowModal=1 then
begin
CustomerNoName.Text:=Trim(CDS_HZ.fieldbyname('CoName').AsString);
CustomerNoName.TxtCode:=Trim(CDS_HZ.fieldbyname('CoCode').AsString);
Self.CTMAddress.Text:=Trim(CDS_HZ.fieldbyname('CoAddress').AsString);
// Self.CTMTelNo.Text:=Trim(CDS_HZ.fieldbyname('SDEFstr4').AsString);
// Self.CTMFaxNo.Text:=Trim(CDS_HZ.fieldbyname('SDEFstr3').AsString);
// Self.XFLXPerson.Text:=Trim(CDS_HZ.fieldbyname('SDEFstr1').AsString);
// Self.XFLXTel.Text:=Trim(CDS_HZ.fieldbyname('SDEFstr5').AsString);
Self.ConPerson1.Text:=Trim(CDS_HZ.fieldbyname('Salesman').AsString);
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select Top 1* from JYOrderCon_Main_PB where CustomerNoName='''+Trim(CDS_HZ.fieldbyname('CoName').AsString)+'''');
sql.Add(' order by FillTime desc');
Open;
if Trim(ADOTemp.fieldbyname('CTMAddress').AsString)<>'' then
Self.CTMAddress.Text:=Trim(ADOTemp.fieldbyname('CTMAddress').AsString);
if Trim(ADOTemp.fieldbyname('CTMTelNo').AsString)<>'' then
Self.CTMTelNo.Text:=Trim(ADOTemp.fieldbyname('CTMTelNo').AsString);
if Trim(ADOTemp.fieldbyname('CTMFaxNo').AsString)<>'' then
Self.CTMFaxNo.Text:=Trim(ADOTemp.fieldbyname('CTMFaxNo').AsString);
if Trim(ADOTemp.fieldbyname('XFLXPerson').AsString)<>'' then
Self.XFLXPerson.Text:=Trim(ADOTemp.fieldbyname('XFLXPerson').AsString);
if Trim(ADOTemp.fieldbyname('XFLXTel').AsString)<>'' then
Self.XFLXTel.Text:=Trim(ADOTemp.fieldbyname('XFLXTel').AsString);
if Trim(ADOTemp.fieldbyname('ConPerson1').AsString)<>'' then
Self.ConPerson1.Text:=Trim(ADOTemp.fieldbyname('ConPerson1').AsString);
end;
end;
end;
finally
frmZdyAttachment.Free;
end;
end;
procedure TfrmConInPutNX.CustomerNoNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text:='';
TBtnEditC(Sender).TxtCode:='';
end;
procedure TfrmConInPutNX.v1Column1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
type
TMyFunc = function(App:Tapplication; FormH:hwnd; FormID:integer;
Language: integer; WinStyle:integer;
GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar;
Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar;
Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar;
Parameters9:PChar;Parameters10:PChar;DataBaseStr:PChar):hwnd;stdcall;
var
Tf: TMyFunc;
Tp: TFarProc;
Th:Thandle;
LabInt,labname:String;
begin
//if PPInt=2 then Exit;
Ddatabase:=StringOfChar(' ', 32);
Th := LoadLibrary('LabelSet.dll');
if Th > 0 then
begin
try
Tp := GetProcAddress(Th, 'GetDllForm');
if Tp <> nil then
begin
Tf := TMyFunc(Tp);
newh:=Tf(Application,0,2,0,0,
PChar(DCode),
PChar(DName),
PChar(Ddatabase),
PChar('<27><>ǩģ<C7A9><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'),
PChar(''),
PChar(''),
'','','','','','','','',PChar(DConString)
);
if Trim(PChar(Ddatabase))<>'' then
begin
Ddatabase:=Trim(PChar(Ddatabase));
LabInt:=Trim( LeftBStr(Ddatabase,Pos('|',Ddatabase)-1) ) ;
labname:=Trim(RightBStr(Ddatabase,Length(Ddatabase)-Pos('|',Ddatabase) ) );
with Order_Sub do
begin
Edit;
FieldByName('SLbName').Value:=labname;
FieldByName('SLbInt').Value:=LabInt;
end;
end;
end
else
begin
ShowMessage('<27><>ӡִ<D3A1>д<EFBFBD><D0B4><EFBFBD>');
end;
finally
// FreeLibrary();
end;
end
else
begin
ShowMessage('<27>Ҳ<EFBFBD><D2B2><EFBFBD>'+Trim('LabelSet.dll'));
end;
end;
procedure TfrmConInPutNX.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 TfrmConInPutNX.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 TfrmConInPutNX.SYRNameBtnUpClick(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)='SYRName' then
begin
flag:='GSTTPB';
V1Name.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
if Trim(flag)='BankNo' then
begin
fnote:=True;
end;
if ShowModal=1 then
begin
if Trim(flag)<>'GSTT' then
begin
TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
if Trim(flag)='BankNo' then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select Top 1* from JYOrderCon_Main_PB where BankNo='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+'''');
sql.Add(' and MPRTTYpe=''<27><><EFBFBD><EFBFBD>'' ');
sql.Add(' order by FillTime desc');
Open;
Self.BankName.Text:=Trim(ADOTemp.fieldbyname('BankName').AsString);
//Self.BankAddress.Text:=Trim(ADOTemp.fieldbyname('BankAddress').AsString);
//Self.BankFastNo.Text:=Trim(ADOTemp.fieldbyname('BankFastNo').AsString);
end;
end;
end
else
begin
TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
//SYRName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select Top 1* from JYOrderCon_Main_PB where SYRName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+'''');
sql.Add(' and MPRTTYpe=''<27><><EFBFBD><EFBFBD>'' ');
sql.Add(' order by FillTime desc');
Open;
Self.SYRAddress.Text:=Trim(ADOTemp.fieldbyname('SYRAddress').AsString);
Self.TelNo.Text:=Trim(ADOTemp.fieldbyname('TelNo').AsString);
Self.FaxNo.Text:=Trim(ADOTemp.fieldbyname('FaxNo').AsString);
Self.BankNo.Text:=Trim(ADOTemp.fieldbyname('BankNo').AsString);
Self.BankName.Text:=Trim(ADOTemp.fieldbyname('BankName').AsString);
Self.GFLXPerson.Text:=Trim(ADOTemp.fieldbyname('GFLXPerson').AsString);
Self.GFLXTel.Text:=Trim(ADOTemp.fieldbyname('GFLXTel').AsString);
Self.FromPlace.Text:=Trim(ADOTemp.fieldbyname('FromPlace').AsString);
Self.QtyNote.Text:=Trim(ADOTemp.fieldbyname('QtyNote').AsString);
Self.DlyNote.Text:=Trim(ADOTemp.fieldbyname('DlyNote').AsString);
Self.Payment.Text:=Trim(ADOTemp.fieldbyname('Payment').AsString);
end;
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmConInPutNX.CPCFNoDblClick(Sender: TObject);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='MPRTNameType';
flagname:='<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
V1HelpType.Visible:=True;
V1HelpType.Caption:='<27><>д<EFBFBD><D0B4>';
fnote:=True;
V1Name.Caption:='<27><><EFBFBD><EFBFBD>';
V1Note.Caption:='Ӣ<><D3A2>';
if ShowModal=1 then
begin
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select * from KH_Zdy where Type=''MPRTNameType'' ');
Open;
end;
SCreateCDS20(ADOQuery1,CDS_Type);
SInitCDSData20(ADOQuery1,CDS_Type);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmConInPutNX.CPRanHouGYBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text:='';
TBtnEditC(Sender).TxtCode:='';
end;
procedure TfrmConInPutNX.v1Column4PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='MPRTCodeNameZW';
flagname:='<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
if ShowModal=1 then
begin
Order_Sub.Edit;
Order_Sub.fieldbyname('PRTCodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
//Order_Sub.fieldbyname('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
Order_Sub.Post;
end;
end;
finally
frmZDYHelp.Free;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmConInPutNX.Button1Click(Sender: TObject);
var
i:Integer;
begin
i:=Order_Note.RecordCount;
i:=i+1;
with Order_Note do
begin
Append;
FieldByName('XHNO').Value:=IntToStr(i);
Post;
end;
end;
procedure TfrmConInPutNX.Button2Click(Sender: TObject);
begin
if Order_Note.IsEmpty then Exit;
if Trim(Order_Note.fieldbyname('MNId').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 JYOrderCon_Main_Note_PB where MNId='''+Trim(Order_Note.fieldbyname('MNId').AsString)+'''');
ExecSQL;
end;
end;
Order_Note.Delete;
end;
procedure TfrmConInPutNX.v1Column14PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
var
fsj:string;
FWZ:Integer;
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Cloth_Main where ConSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
Open;
end;
if ADOTemp.IsEmpty=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ı<DEB8><C4B1>ţ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from FHSQ_Main where ConSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
Open;
end;
if ADOTemp.IsEmpty=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룬<EFBFBD><EBA3AC><EFBFBD><EFBFBD><EFBFBD>޸ı<DEB8><C4B1>ţ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
try
frmCPManageFMSel:=TfrmCPManageFMSel.Create(Application);
with frmCPManageFMSel do
begin
if ShowModal=1 then
begin
with Self.Order_Sub do
begin
Edit;
FieldByName('PrtCode').Value:=frmCPManageFMSel.CDS_Main.fieldbyname('CYNo').Value;
FieldByName('PrtCodeName').Value:=frmCPManageFMSel.CDS_Main.fieldbyname('CYName').Value;
FieldByName('PRTspec').Value:=frmCPManageFMSel.CDS_Main.fieldbyname('HZSPEC').Value;
FieldByName('PRTColor').Value:=frmCPManageFMSel.CDS_Main.fieldbyname('CYColor').Value;
FieldByName('PRTMF').Value:=frmCPManageFMSel.CDS_Main.fieldbyname('CYMF').Value;
FieldByName('PRTKZ').Value:=frmCPManageFMSel.CDS_Main.fieldbyname('CYKZ').Value;
end;
end;
end;
finally
frmCPManageFMSel.Free;
end;
end;
procedure TfrmConInPutNX.Tv1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
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 FHSQ_Main where ConSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
Open;
end;
if Trim(ADOTemp.fieldbyname('YSID').AsString)<>'' then
begin
v1PRTPrice.Options.Focusing:=False;
end else
begin
v1PRTPrice.Options.Focusing:=True;
end;
end;
end;
procedure TfrmConInPutNX.v1Column8PropertiesEditValueChanged(
Sender: TObject);
var
mvalue,FFieldName:String;
FPiShu,FPiZhong:double;
begin
mvalue:=TcxTextEdit(Sender).EditingText;
FFieldName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with Order_Sub do
begin
Edit;
FieldByName(FFieldName).Value:=mvalue;
Post;
FPiShu:=FieldByName('PiShu').AsFloat;
FPiZhong:=FieldByName('PiZhong').AsFloat;
end;
with Order_Sub do
begin
Edit;
FieldByName('PRTOrderQty').Value:=FPiShu*FPiZhong;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmConInPutNX.v1PRTOrderQtyPropertiesEditValueChanged(
Sender: TObject);
var
mvalue,FFieldName:String;
FPRTOrderQty:double;
begin
mvalue:=TcxTextEdit(Sender).EditingText;
FFieldName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with Order_Sub do
begin
Edit;
FieldByName(FFieldName).Value:=mvalue;
FieldByName('SCQty').Value:=mvalue;
Post;
end;
end;
procedure TfrmConInPutNX.DlyDateChange(Sender: TObject);
begin
DlyNote.text:=inttostr(DaysBetween(DlyDate.Date, OrdDate.Date))+'<27><>';
end;
end.
Reference in New Issue Copy Permalink