Group_02/D7gmYushang
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D7gmYushang/发货申请(ShipmentRequest.dll)/U_FHSQInPut.pas

1510 lines
47 KiB
ObjectPascal
Raw Permalink Normal View History

0
2025-09-24 13:13:14 +08:00
unit U_FHSQInPut;
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, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxPC, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinscxPCPainter;
type
TfrmFHSQInPut = class(TForm)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ScrollBox1: TScrollBox;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DataSource1: TDataSource;
Order_Sub: TClientDataSet;
ADOQuery1: TADOQuery;
Label14: TLabel;
cxGridPopupMenu2: TcxGridPopupMenu;
Label1: TLabel;
CRType: TComboBox;
Note: TEdit;
Label12: TLabel;
Label11: TLabel;
SHDanWei: TBtnEditC;
CustomerNoName: TBtnEditA;
cxStyleRepository1: TcxStyleRepository;
dazi1: TcxStyle;
lbl2: TLabel;
DLYDATE: TDateTimePicker;
Label3: TLabel;
GuiXing: TBtnEditC;
Label7: TLabel;
XSType: TComboBox;
ShouHuoer: TEdit;
Label2: TLabel;
FHDZ: TEdit;
Label4: TLabel;
KHDH: TEdit;
Label5: TLabel;
Label6: TLabel;
SQDLX: TBtnEditC;
Label8: TLabel;
SFHyf: TComboBox;
Label9: TLabel;
SFSMF: TComboBox;
Label10: TLabel;
Label13: TLabel;
Salesman: TBtnEditC;
SalesClass: TEdit;
Label15: TLabel;
NNOTE: TEdit;
Label16: TLabel;
HZUnit: TBtnEditC;
cxPageControl1: TcxPageControl;
cxTabSheet1: TcxTabSheet;
cxTabSheet2: TcxTabSheet;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
Tv1Column7: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
cv1Column2: TcxGridDBColumn;
cv1Column3: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
Edit1: TEdit;
ToolBar3: TToolBar;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
Edit2: TEdit;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
order_yp: TClientDataSet;
DataSource2: TDataSource;
ADOQuery2: TADOQuery;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
ToolButton7: TToolButton;
Label17: TLabel;
suihuo: TBtnEditC;
Label18: TLabel;
wuliu: TBtnEditC;
Label19: TLabel;
ISHS: TComboBox;
ToolButton8: TToolButton;
Label20: TLabel;
HTNO: TBtnEditA;
Label21: TLabel;
HTNAME: TEdit;
Label22: TLabel;
HTCOLOR: TEdit;
Label23: TLabel;
HTCOLORNO: TEdit;
Label24: TLabel;
HTQTY: TEdit;
Label25: TLabel;
HTFY: TEdit;
Label26: TLabel;
HTPRICE: TEdit;
Label27: TLabel;
payment: TBtnEditC;
Label28: TLabel;
MDTT: TComboBox;
Label29: TLabel;
ZKUANNO: TEdit;
Label30: TLabel;
ZSEASON2: TComboBox;
ZSEASON: TEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure SHDanWeiBtnUpClick(Sender: TObject);
procedure SHDanWeiBtnDnClick(Sender: TObject);
procedure CustomerNoNameBtnClick(Sender: TObject);
procedure GuiXingBtnUpClick(Sender: TObject);
procedure GuiXingBtnDnClick(Sender: TObject);
procedure SQDLXBtnUpClick(Sender: TObject);
procedure Tv1Column2PropertiesEditValueChanged(Sender: TObject);
procedure SalesmanBtnUpClick(Sender: TObject);
procedure SalesmanBtnDnClick(Sender: TObject);
procedure HZUnitBtnUpClick(Sender: TObject);
procedure HZUnitBtnDnClick(Sender: TObject);
procedure NoteKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure cxGridDBColumn9PropertiesEditValueChanged(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure suihuoBtnUpClick(Sender: TObject);
procedure suihuoBtnDnClick(Sender: TObject);
procedure wuliuBtnUpClick(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure Tv1Column15PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure HTNOBtnClick(Sender: TObject);
procedure paymentBtnUpClick(Sender: TObject);
procedure paymentBtnDnClick(Sender: TObject);
private
fuserName: string;
procedure InitData();
function SaveData(): Boolean;
{ Private declarations }
public
PState, CopyInt: Integer;
FMainId, FFMainId, ChkStr, ConPriceStr: string;
FXS: Integer;
{ Public declarations }
end;
var
frmFHSQInPut: TfrmFHSQInPut;
newh: hwnd;
implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_SQKCHZSelList, U_ContractListNXSel,
U_CPManageFMSel, U_ZdyAttachment, U_ClothSCYWYListSel, U_ProductOrderListSel,
U_CKProductBCPKCListSel, U_ZdyAttachGYS, U_PieceSampleKcList, U_CPKCTMXLIST,
U_ContractListSel;
{$R *.dfm}
procedure TfrmFHSQInPut.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>ZY2', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>77');
Close;
end;
procedure TfrmFHSQInPut.InitData();
var
fsj: string;
begin
if PState = 0 then
begin
DLYDATE.datetime := strtodatetime(Trim(FormatDateTime('yyyy-MM-dd', Now)));
end;
with ADOQuery1 do
begin
Close;
SQL.Clear;
sql.Add(' select A.* ');
sql.Add(' from FHSQ_Sub A');
if PState = 1 then
begin
sql.Add('where FSId=''' + 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 A.* ');
sql.Add(' from FHSQ_YP A');
if PState = 1 then
begin
sql.Add('where FSId=''' + Trim(FMainId) + '''');
end;
if PState = 0 then
begin
sql.Add(' where 1<>1');
end;
Open;
end;
SCreateCDS20(ADOQuery1, Order_YP);
SInitCDSData20(ADOQuery1, Order_YP);
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add(' from FHSQ_Main A');
sql.Add(' where FSId=''' + Trim(FMainId) + ''' ');
Open;
end;
SCSHDataNew(ADOQuery1, ScrollBox1, 1);
// PAYMENT.Items.Add(Trim(ADOQuery1.FieldByName('PAYMENT').ASSTRING));
// PAYMENT.ItemIndex := PAYMENT.Items.IndexOf(trim(ADOQuery1.FieldByName('PAYMENT').ASSTRING));
end;
procedure TfrmFHSQInPut.FormShow(Sender: TObject);
var
fsj: string;
begin
readCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>ZY2', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>77');
InitData();
end;
function TfrmFHSQInPut.SaveData(): Boolean;
var
maxno, maxmnno, FSSId, maxno2, FSSId2, MAXDZID: 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, 'SM', 'FHSQ_Main', 4, 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 FHSQ_Main where FSID=''' + Trim(FMainId) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(FMainId) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('SQType').Value := '<27><><EFBFBD><EFBFBD>';
FieldByName('FSID').Value := Trim(maxno);
RTSetsavedata(ADOCmd, 'FHSQ_Main', ScrollBox1, 1);
if Trim(FMainId) = '' then
begin
FieldByName('Filler').Value := Trim(DName);
FieldByName('SQDate').Value := SGetServerDate(ADOTemp);
end
else
begin
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
Post;
end;
FMainId := Trim(maxno);
///<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>
Order_Sub.DisableControls;
with Order_Sub do
begin
First;
while not Eof do
begin
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from wfb_mjjy ');
sql.Add(' where mjid=''' + Trim(Order_Sub.fieldbyname('MJID').AsString) + '''');
Open;
end;
if ADOTemp.IsEmpty = True then
begin
Order_Sub.EnableControls;
Application.MessageBox(PChar(trim(Order_Sub.fieldbyName('mjid').AsString) + ' <20><><EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EBB2BB><EFBFBD>ڣ<EFBFBD>'), '<27><>ʾ', 0);
ADOCmd.Connection.RollbackTrans;
Exit;
end;
if Trim(Order_Sub.fieldbyname('SSId').AsString) = '' then
begin
if GetLSNo(ADOCmd, maxmnno, 'SS', 'FHSQ_Sub', 4, 1) = False then
begin
Order_Sub.EnableControls;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxmnno := Trim(Order_Sub.fieldbyname('SSId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from FHSQ_Sub ');
sql.Add(' where SSId=''' + Trim(maxmnno) + '''');
Open;
end;
if ADOCmd.IsEmpty then
begin
FSSId := '';
end
else
begin
FSSId := Trim(maxno);
end;
with ADOCmd do
begin
if Trim(FSSId) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
FieldByName('FSID').Value := Trim(FMainId);
FieldByName('SSID').Value := Trim(maxmnno);
RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'FHSQ_Sub', 0);
FieldByName('MainId').Value := Order_Sub.fieldbyname('MainId').Value;
FieldByName('SubId').Value := Order_Sub.fieldbyname('SubId').Value;
FieldByName('mjid').Value := Order_Sub.fieldbyname('mjid').Value;
FieldByName('SSConMainId').Value := Order_Sub.fieldbyname('SSConMainId').Value;
FieldByName('SSConSubId').Value := Order_Sub.fieldbyname('SSConSubId').Value;
Post;
end;
Order_Sub.Edit;
Order_Sub.FieldByName('SSID').Value := Trim(maxno);
Next;
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('update FHSQ_Main set DBConNo=cast((select '' ''+ SSConNo from FHSQ_Sub X where X.FSId=FHSQ_Main.FSId and X.SSConNo<>FHSQ_Main.ConNo for xml Path('''')) as varchar(100)) ');
SQL.Add(', SQPSHZ= (select sum(SQPS) from FHSQ_Sub X where X.FSId=FHSQ_Main.FSId ) ');
SQL.Add(', SQqtyHZ= (select sum(SQqty) from FHSQ_Sub X where X.FSId=FHSQ_Main.FSId ) ');
SQL.Add('where FSID=''' + Trim(FMainId) + '''');
ExecSQL;
end;
end;
Order_Sub.EnableControls;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>
order_yp.DisableControls;
with order_yp do
begin
First;
while not Eof do
begin
if Trim(order_yp.fieldbyname('SSId').AsString) = '' then
begin
if GetLSNo(ADOCmd, maxno2, 'SS', 'FHSQ_YP', 4, 1) = False then
begin
order_yp.EnableControls;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxno2 := Trim(order_yp.fieldbyname('SSId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from FHSQ_YP ');
sql.Add(' where SSId=''' + Trim(maxno2) + '''');
Open;
end;
if ADOCmd.IsEmpty then
begin
FSSId2 := '';
end
else
begin
FSSId2 := Trim(maxno2);
end;
with ADOCmd do
begin
if Trim(FSSId2) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
FieldByName('FSID').Value := Trim(FMainId);
FieldByName('SSID').Value := Trim(maxno2);
RTSetSaveDataCDS(ADOCmd, Tv2, order_yp, 'FHSQ_yp', 0);
FieldByName('MainId').Value := order_yp.fieldbyname('MainId').Value;
FieldByName('SubId').Value := order_yp.fieldbyname('SubId').Value;
FieldByName('fromypid').Value := order_yp.fieldbyname('fromypid').Value;
FieldByName('mjid').Value := order_yp.fieldbyname('mjid').Value;
FieldByName('SSConMainId').Value := order_yp.fieldbyname('SSConMainId').Value;
FieldByName('SSConSubId').Value := order_yp.fieldbyname('SSConSubId').Value;
Post;
end;
order_yp.Edit;
order_yp.FieldByName('SSID').Value := Trim(maxno2);
Next;
end;
if (CRType.Text = '<27><><EFBFBD>޳<EFBFBD><DEB3><EFBFBD>') or (CRType.Text = '<27><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>') or (CRType.Text = '<27><>Ӧ<EFBFBD><D3A6><EFBFBD>˻<EFBFBD>') or (CRType.Text = '<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>') then
begin
with ADOTemp do
begin
Close;
sql.Clear;
SQL.Add('SELECT * FROM Company_contact WHERE mxADDRESS=' + QuotedStr(Trim(FHDZ.Text)));
sql.Add('and telephone=' + quotedStr(Trim(KHDH.Text)));
sql.Add('and Contacts=' + quotedStr(Trim(ShouHuoer.Text)));
SQL.Add('AND COID=(SELECT COID FROM COMPANY WHERE CONAME=' + QuotedStr(Trim(CustomerNoName.Text)));
SQL.Add('AND CoType=''<27><>Ӧ<EFBFBD><D3A6>'' and Valid=''Y'' )');
OPEN;
end;
if ADOTemp.IsEmpty = true then
begin
if GetLSNo(ADOCmd, MAXDZID, 'CCS', 'Company_contact', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD>IDʧ<44><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
with ADOQuery2 do
begin
Close;
sql.Clear;
SQL.Add('SELECT COID FROM COMPANY WHERE CONAME=' + QuotedStr(Trim(CustomerNoName.Text)));
sql.Add('AND CoType=''<27><>Ӧ<EFBFBD><D3A6>'' and Valid=''Y''');
OPEN;
end;
with ADOTemp do
begin
Close;
sql.Clear;
SQL.Add('INSERT INTO Company_contact(ccid,coid,telephone,Contacts,mxaddress)');
SQL.Add('values (' + QuotedStr(MAXDZID));
SQL.Add(',' + QuotedStr(ADOQuery2.fieldbyname('coid').AsString));
SQL.Add(',' + QuotedStr(Trim(KHDH.Text)));
SQL.Add(',' + QuotedStr(Trim(ShouHuoer.Text)));
SQL.Add(',' + QuotedStr(Trim(FHDZ.Text)));
sql.Add(')');
ExecSQL;
end;
end;
end
else
begin
with ADOTemp do
begin
Close;
sql.Clear;
SQL.Add('SELECT * FROM Company_contact WHERE mxADDRESS=' + QuotedStr(Trim(FHDZ.Text)));
sql.Add('and telephone=' + quotedStr(Trim(KHDH.Text)));
sql.Add('and Contacts=' + quotedStr(Trim(ShouHuoer.Text)));
SQL.Add('AND COID=(SELECT COID FROM COMPANY WHERE CONAME=' + QuotedStr(Trim(CustomerNoName.Text)));
SQL.Add('AND CoType=''<27>ͻ<EFBFBD>'' and Valid=''Y'' )');
// ShowMessage(sql.Text);
OPEN;
end;
if ADOTemp.IsEmpty = true then
begin
if GetLSNo(ADOCmd, MAXDZID, 'CCS', 'Company_contact', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD>IDʧ<44><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
with ADOQuery2 do
begin
Close;
sql.Clear;
SQL.Add('SELECT COID FROM COMPANY WHERE CONAME=' + QuotedStr(Trim(CustomerNoName.Text)));
sql.Add('AND CoType=''<27>ͻ<EFBFBD>'' and Valid=''Y''');
OPEN;
end;
with ADOTemp do
begin
Close;
sql.Clear;
SQL.Add('INSERT INTO Company_contact(ccid,coid,telephone,Contacts,mxaddress)');
SQL.Add('values (' + QuotedStr(MAXDZID));
SQL.Add(',' + QuotedStr(ADOQuery2.fieldbyname('coid').AsString));
SQL.Add(',' + QuotedStr(Trim(KHDH.Text)));
SQL.Add(',' + QuotedStr(Trim(ShouHuoer.Text)));
SQL.Add(',' + QuotedStr(Trim(FHDZ.Text)));
sql.Add(')');
ExecSQL;
end;
end;
end;
end;
order_yp.EnableControls;
ADOCmd.Connection.CommitTrans;
Result := True;
except
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Result := False;
end;
end;
procedure TfrmFHSQInPut.TBSaveClick(Sender: TObject);
var
Freal: Double;
begin
ToolBar1.SetFocus;
if Trim(CRType.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(PAYMENT.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD>ʽ<EEB7BD><CABD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(xstype.Text) = '<27><><EFBFBD><EFBFBD>' then
begin
if Trim(htno.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ͬ<EFBFBD><CDAC>', '<27><>ʾ', 0);
Exit;
end;
end;
if Trim(CRType.Text) = '<27><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>' then
begin
with ADOTemp do
begin
Close;
sql.Clear;
SQL.Add('select * from SY_User where username=''' + Trim(DName) + '''');
SQL.Add('AND UDEPT=''<27><><EFBFBD><EFBFBD>''');
Open;
end;
if ADOTemp.IsEmpty = True then
begin
Application.MessageBox('<27>ǵ<EFBFBD><C7B5>Ȳ<EFBFBD><C8B2><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ɫ<EFBFBD><C9AB><EFBFBD>⣡', '<27><>ʾ', 0);
Exit;
end;
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><EFBFBD><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2><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 Trim(Salesman.Text) = '' then
begin
Application.MessageBox('ҵ<><D2B5>Ա<EFBFBD><D4B1><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(SalesClass.Text) = '' then
begin
Application.MessageBox('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if (Order_Sub.Locate('SQPS', null, [])) and (Order_Sub.Locate('SQqty', null, [])) = True then
begin
Application.MessageBox('ϸ<><CFB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȫΪ<C8AB>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if (Order_Sub.IsEmpty) and (order_yp.IsEmpty) then
begin
Application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
Note.Text := StringReplace(Trim(Note.Text), chr(9), '', [rfReplaceAll]); //ɾ<><C9BE>Tab
Note.Text := StringReplace(Trim(Note.Text), chr(13) + chr(10), '', [rfReplaceAll]); //ɾ<><C9BE><EFBFBD>س<EFBFBD>
Note.Text := StringReplace(Trim(Note.Text), #$D#$A, '', [rfReplaceAll, rfignorecase]);
Note.Text := StringReplace(Trim(Note.Text), '#$D', ' ', [rfReplaceAll, rfIgnoreCase]);
Note.Text := StringReplace(Trim(Note.Text), #$A, ' ', [rfReplaceAll, rfIgnoreCase]);
if SaveData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
ModalResult := 1;
end;
end;
procedure TfrmFHSQInPut.ToolButton1Click(Sender: TObject);
var
FQtyUnit, FFSubid: string;
begin
if Trim(HZUnit.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
exit;
end;
if Trim(XSType.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
try
frmCKProductBCPKCListSel := TfrmCKProductBCPKCListSel.Create(Application);
with frmCKProductBCPKCListSel do
begin
if ShowModal = 1 then
begin
while CDS_Main.locate('SSel', true, []) do
begin
if (Self.Order_Sub.Locate('MJID', Trim(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('MJID').AsString), []) = False) and (frmCKProductBCPKCListSel.CDS_Main.fieldbyname('ISSD').AsString <> '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
begin
with Self.Order_Sub do
begin
Append;
FieldByName('SCConNo').Value := Trim(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('Orderno').AsString);
FieldByName('MainId').Value := frmCKProductBCPKCListSel.CDS_Main.fieldbyname('MainId').Value;
FieldByName('SubId').Value := frmCKProductBCPKCListSel.CDS_Main.fieldbyname('SubId').Value;
FieldByName('PRTColor').Value := Trim(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('PRTColor').AsString);
FieldByName('SPrtCode').Value := Trim(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('MPRTCode').AsString);
FieldByName('SPrtCodeName').Value := Trim(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('MPRTCode').AsString);
FieldByName('PRTHX').Value := Trim(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('PRTHX').AsString);
FieldByName('GANGHAO').Value := Trim(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('GANGHAO').AsString);
FieldByName('MJID').Value := Trim(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('MJID').AsString);
FieldByName('SQQty').Value := Trim(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('Qty').AsString);
FieldByName('MJXH').Value := Trim(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('MJXH').AsString);
FieldByName('SQPS').Value := 1;
FieldByName('SFKP').Value := '<27><>';
FieldByName('cangwei').Value := Trim(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('rkplace').AsString);
FieldByName('orderUnit').Value := Trim(HZUnit.Text);
FieldByName('KCQty').Value := Trim(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('Qty').AsString);
FieldByName('KCKGQty').Value := Trim(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('KGQty').AsString);
if (Trim(HZUnit.Text) = 'KG') or (Trim(HZUnit.Text) = '<27><><EFBFBD><EFBFBD>') then
begin
FieldByName('SQQty').Value := Trim(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('KGQty').AsString);
if xstype.Text = '<27><><EFBFBD><EFBFBD>' then
begin
FieldByName('MONEY').Value := StrToFloatDEF(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('KGQty').AsString, 0) * StrToFloatDef(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('SCSPRICE').AsString, 0) + StrToFloatDef(Order_Sub.fieldbyname('BGFee').AsString, 0);
end;
end
else
begin
FieldByName('SQQty').Value := Trim(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('Qty').AsString);
if xstype.Text = '<27><><EFBFBD><EFBFBD>' then
begin
FieldByName('MONEY').Value := StrToFloatDEF(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('Qty').AsString, 0) * StrToFloatDef(frmCKProductBCPKCListSel.CDS_Main.fieldbyname('SCSPRICE').AsString, 0) + StrToFloatDef(Order_Sub.fieldbyname('BGFee').AsString, 0);
end;
end;
Post;
end;
end;
CDS_Main.Delete;
end;
end;
end;
finally
frmCKProductBCPKCListSel.Free;
end;
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from SalesContract_Main where conno=(select top 1 conno from JYOrder_Main E WHERE MAINID=''' + Trim(Order_Sub.fieldbyname('MAINID').AsString) + '''');
sql.add(') ');
Open;
end;
if ADOTemp.FieldByName('JSFS').ASSTRING <> '' then
begin
PAYMENT.Text := Trim(ADOTemp.FieldByName('JSFS').ASSTRING);
// PAYMENT.Items.Add(Trim(ADOTemp.FieldByName('JSFS').ASSTRING));
// PAYMENT.ItemIndex := PAYMENT.Items.IndexOf(trim(ADOTemp.FieldByName('JSFS').ASSTRING));
end;
end;
procedure TfrmFHSQInPut.ToolButton2Click(Sender: TObject);
begin
if Order_Sub.IsEmpty then
Exit;
if Trim(Order_Sub.fieldbyname('SSId').AsString) <> '' then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from FHSQ_Sub where SSId=''' + Trim(Order_Sub.fieldbyname('SSId').AsString) + '''');
sql.add(' and isnull(FHPS,0)>0');
Open;
end;
if ADOTemp.IsEmpty = False then
begin
Application.MessageBox('<27>ѷ<EFBFBD><D1B7><EFBFBD><EFBFBD><EFBFBD><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 FHSQ_Sub where SSId=''' + Trim(Order_Sub.fieldbyname('SSId').AsString) + '''');
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸɾ<CFB8><C9BE>')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ţ<EFBFBD>' + trim(Order_Sub.FieldByName('FSID').AsString) + ';<3B><><EFBFBD>룺' + trim(Order_Sub.FieldByName('MJID').AsString))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
ExecSQL;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('Update FHSQ_Main Set ');
sql.Add('SQPSHZ=(select Sum(SQPS) from FHSQ_Sub A where A.FSID=FHSQ_Main.FSID)');
sql.Add('where FSID=''' + Trim(FMainId) + '''');
ExecSQL;
end;
end;
Order_Sub.Delete;
end;
procedure TfrmFHSQInPut.SHDanWeiBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'SHDanWei';
flagname := '<27>ջ<EFBFBD><D5BB><EFBFBD>λ';
fnote := True;
V1Note.Caption := '<27>ջ<EFBFBD><D5BB><EFBFBD>';
if ShowModal = 1 then
begin
Self.SHDanWei.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
Self.ShouHuoer.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('NOTE').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPut.SHDanWeiBtnDnClick(Sender: TObject);
begin
SHDanWei.Text := '';
end;
procedure TfrmFHSQInPut.CustomerNoNameBtnClick(Sender: TObject);
begin
if (CRType.Text = '<27><><EFBFBD>޳<EFBFBD><DEB3><EFBFBD>') or (CRType.Text = '<27><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>') then
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
// canshu1 := Self.canshu1;
if ShowModal = 1 then
begin
Self.CustomerNoName.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
Self.SHDanWei.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
self.FHDZ.Text := Trim(CDS_HZ.fieldbyname('MXADDRESS').AsString);
self.ShouHuoer.Text := Trim(CDS_HZ.fieldbyname('Contacts').AsString);
self.KHDH.Text := Trim(CDS_HZ.fieldbyname('Telephone').AsString);
self.Salesman.Text := Trim(CDS_HZ.fieldbyname('salesman').AsString);
self.SalesClass.Text := Trim(CDS_HZ.fieldbyname('SalesClass').AsString);
self.note.Text := Trim(CDS_HZ.fieldbyname('note1').AsString);
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end
else
begin
try
frmZdyAttachment := TfrmZdyAttachment.Create(Application);
with frmZdyAttachment do
begin
if ShowModal = 1 then
begin
Self.CustomerNoName.Text := Trim(frmZdyAttachment.CDS_HZ.fieldbyname('CoName').AsString);
Self.SHDanWei.Text := Trim(frmZdyAttachment.CDS_HZ.fieldbyname('CoName').AsString);
self.FHDZ.Text := Trim(CDS_HZ.fieldbyname('MXADDRESS').AsString);
self.ShouHuoer.Text := Trim(CDS_HZ.fieldbyname('Contacts').AsString);
self.KHDH.Text := Trim(CDS_HZ.fieldbyname('Telephone').AsString);
self.Salesman.Text := Trim(CDS_HZ.fieldbyname('salesman').AsString);
self.SalesClass.Text := Trim(CDS_HZ.fieldbyname('SalesClass').AsString);
self.note.Text := Trim(CDS_HZ.fieldbyname('note1').AsString);
// Self.CustomerNoName.Text := Trim(frmZdyAttachment.CDS_HZ.fieldbyname('CoAddress').AsString);
// Self.CustomerNoName.Text := Trim(frmZdyAttachment.CDS_HZ.fieldbyname('PhoneNumber').AsString);
end;
end;
finally
frmZdyAttachment.Free;
end;
end;
if SalesClass.Text = '<27><><EFBFBD><EFBFBD>6' then
begin
MDTT.ItemIndex := 1;
end
else
begin
MDTT.ItemIndex := 0;
end;
end;
procedure TfrmFHSQInPut.GuiXingBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'GuiXing';
flagname := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
Self.GuiXing.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPut.GuiXingBtnDnClick(Sender: TObject);
begin
GuiXing.Text := '';
end;
procedure TfrmFHSQInPut.SQDLXBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'SQDLX';
flagname := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
Self.SQDLX.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPut.Tv1Column2PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with Order_Sub do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
FieldbyName('Money').Value := format('%.2f', [(FieldByName('sqqty').AsFloat) * FieldByName('Price').AsFloat + FieldByName('BGFee').AsFloat]);
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmFHSQInPut.SalesmanBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'YWY';
flagname := 'ҵ<><D2B5>Ա';
if ShowModal = 1 then
begin
Self.Salesman.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPut.SalesmanBtnDnClick(Sender: TObject);
begin
Salesman.Text := '';
end;
procedure TfrmFHSQInPut.HZUnitBtnUpClick(Sender: TObject);
begin
if not Order_Sub.IsEmpty then
begin
Application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѡ<EFBFBD>񣬲<EFBFBD><F1A3ACB2><EFBFBD><EFBFBD>޸<EFBFBD>!', '<27><>ʾ', 0);
exit;
end;
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'HZUnit';
flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
if ShowModal = 1 then
begin
Self.HZUnit.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPut.HZUnitBtnDnClick(Sender: TObject);
begin
if not Order_Sub.IsEmpty then
begin
Application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѡ<EFBFBD>񣬲<EFBFBD><F1A3ACB2><EFBFBD><EFBFBD>޸<EFBFBD>!', '<27><>ʾ', 0);
exit;
end;
HZUnit.Text := '';
end;
procedure TfrmFHSQInPut.NoteKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #32;
end;
end;
procedure TfrmFHSQInPut.ToolButton3Click(Sender: TObject);
var
FValue, FFValue, FColumn, FFColumn: string;
begin
if Order_Sub.IsEmpty then
Exit;
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 1) = 2 then
exit;
with Order_Sub do
begin
DisableControls;
First;
while not Eof do
begin
Edit;
FieldByName('Price').Value := StrToFloatDef(Edit1.Text, 0);
FieldByName('money').Value := (StrToFloatDef(Edit1.Text, 0) * FieldByName('sqqty').AsFloat);
tv2.Controller.EditingController.ShowEdit();
Post;
Next;
end;
tv1.Controller.EditingController.ShowEdit();
// ToolBar5.SetFocus;
// HJ();
EnableControls;
end;
end;
procedure TfrmFHSQInPut.ToolButton4Click(Sender: TObject);
var
FQtyUnit, FFSubid: string;
begin
// if Trim(HZUnit.Text) = '' then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
// exit;
// end;
if Trim(XSType.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
try
frmPieceSampleKcList := TfrmPieceSampleKcList.Create(Application);
with frmPieceSampleKcList do
begin
fCKName := 'ƥ<><C6A5>';
if ShowModal = 1 then
begin
while CDS_Main.locate('SSel', true, []) do
begin
if (Self.order_yp.Locate('MJID', Trim(frmPieceSampleKcList.CDS_Main.fieldbyname('MJID').AsString), []) = False) then
begin
with Self.order_yp do
begin
Append;
order_yp.FieldByName('MainId').Value := frmPieceSampleKcList.CDS_Main.fieldbyname('MainId').Value;
order_yp.FieldByName('SubId').Value := frmPieceSampleKcList.CDS_Main.fieldbyname('SubId').Value;
order_yp.FieldByName('PRTColor').Value := Trim(frmPieceSampleKcList.CDS_Main.fieldbyname('P_Color').AsString);
order_yp.FieldByName('SPrtCode').Value := Trim(frmPieceSampleKcList.CDS_Main.fieldbyname('P_Code').AsString);
order_yp.FieldByName('SPrtCodeName').Value := Trim(frmPieceSampleKcList.CDS_Main.fieldbyname('P_Code').AsString);
order_yp.FieldByName('PRTHX').Value := Trim(frmPieceSampleKcList.CDS_Main.fieldbyname('p_hx').AsString);
order_yp.FieldByName('GANGHAO').Value := Trim(frmPieceSampleKcList.CDS_Main.fieldbyname('gangno').AsString);
order_yp.FieldByName('MJID').Value := Trim(frmPieceSampleKcList.CDS_Main.fieldbyname('MJID').AsString);
order_yp.FieldByName('SQQty').Value := Trim(frmPieceSampleKcList.CDS_Main.fieldbyname('kcQty').AsString);
order_yp.FieldByName('FROMYPID').Value := Trim(frmPieceSampleKcList.CDS_Main.fieldbyname('CRNO').AsString);
// FieldByName('MJXH').Value := Trim(frmPieceSampleKcList.CDS_Main.fieldbyname('MJXH').AsString);
order_yp.FieldByName('SQPS').Value := 1;
order_yp.FieldByName('SFKP').Value := '<27><>';
order_yp.FieldByName('cangwei').Value := Trim(frmPieceSampleKcList.CDS_Main.fieldbyname('kuwei').AsString);
order_yp.FieldByName('orderUnit').Value := Trim(frmPieceSampleKcList.CDS_Main.fieldbyname('QTYUNIT').AsString);
Post;
end;
end;
CDS_Main.Delete;
end;
end;
end;
finally
frmPieceSampleKcList.Free;
end;
end;
procedure TfrmFHSQInPut.ToolButton5Click(Sender: TObject);
begin
if order_yp.IsEmpty then
Exit;
if Trim(order_yp.fieldbyname('SSId').AsString) <> '' then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from FHSQ_YP where SSId=''' + Trim(order_yp.fieldbyname('SSId').AsString) + '''');
sql.add(' and isnull(FHPS,0)>0');
Open;
end;
if ADOTemp.IsEmpty = False then
begin
Application.MessageBox('<27>ѷ<EFBFBD><D1B7><EFBFBD><EFBFBD><EFBFBD><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 FHSQ_YP where SSId=''' + Trim(order_yp.fieldbyname('SSId').AsString) + '''');
ExecSQL;
end;
end;
order_yp.Delete;
end;
procedure TfrmFHSQInPut.ToolButton6Click(Sender: TObject);
var
FValue, FFValue, FColumn, FFColumn: string;
begin
if order_yp.IsEmpty then
Exit;
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 1) = 2 then
exit;
with order_yp do
begin
DisableControls;
First;
while not Eof do
begin
Edit;
FieldByName('Price').Value := StrToFloatDef(Edit2.Text, 0);
FieldByName('money').Value := (StrToFloatDef(Edit2.Text, 0) * FieldByName('sqqty').AsFloat);
tv2.Controller.EditingController.ShowEdit();
Post;
Next;
end;
tv2.Controller.EditingController.ShowEdit();
// ToolBar5.SetFocus;
// HJ();
EnableControls;
end;
end;
procedure TfrmFHSQInPut.cxGridDBColumn9PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
FFieldName := Trim(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName);
with Order_yp do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
FieldbyName('Money').Value := format('%.2f', [FieldByName('sqqty').AsFloat * FieldByName('Price').AsFloat + FieldByName('BGFee').AsFloat]);
Post;
end;
tv2.Controller.EditingController.ShowEdit();
end;
procedure TfrmFHSQInPut.ToolButton7Click(Sender: TObject);
var
FValue, FFValue, FColumn, FFColumn: string;
begin
ToolBar1.SetFocus;
if Order_Sub.IsEmpty then
Exit;
if Application.MessageBox('ȷ<><C8B7>Ҫһ<D2AA><D2BB><EFBFBD>滻<EFBFBD><E6BBBB>', '<27><>ʾ', 1) = 2 then
exit;
FColumn := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
FFColumn := Tv1.Controller.FocusedColumn.Summary.GroupFormat;
FValue := Trim(Order_Sub.fieldbyname(FColumn).AsString);
if (FColumn <> 'sqqty') and (FColumn <> 'Price') and (FColumn <> 'BGFee') and (FColumn <> 'SFKP') and (FColumn <> 'SEASON') and (FColumn <> 'kuanhao') then
Exit;
if Trim(FFColumn) <> '' then
begin
FFValue := Trim(Order_Sub.fieldbyname(FFColumn).AsString);
end;
with Order_Sub do
begin
DisableControls;
First;
while not Eof do
begin
Edit;
if FValue = '' then
begin
Order_Sub.FieldByName(FColumn).Value := null;
end
else
begin
Order_Sub.FieldByName(FColumn).Value := FValue;
end;
if Trim(FFColumn) <> '' then
begin
if FFValue = '' then
begin
Order_Sub.FieldByName(FFColumn).Value := null;
end
else
begin
Order_Sub.FieldByName(FFColumn).Value := FFValue;
end;
end;
if (FColumn = 'sqQty') or (FColumn = 'Price') or (FColumn = 'BGFEE') then
begin
Order_Sub.FieldByName('money').Value := Order_Sub.FieldByName('sqQty').AsFloat * Order_Sub.FieldByName('Price').AsFloat + Order_Sub.FieldByName('BGFEE').AsFloat;
end;
Post;
Next;
end;
EnableControls;
end;
end;
procedure TfrmFHSQInPut.suihuoBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'suihuo';
flagname := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
Self.suihuo.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPut.suihuoBtnDnClick(Sender: TObject);
begin
suihuo.Text := '';
end;
procedure TfrmFHSQInPut.wuliuBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'wuliu';
flagname := 'ָ<><D6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
Self.wuliu.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPut.ToolButton8Click(Sender: TObject);
var
FQtyUnit, FFSubid: string;
begin
if Trim(HZUnit.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
exit;
end;
if Trim(XSType.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
try
frmCPKCTMXLISTSEL := TfrmCPKCTMXLISTSEL.Create(Application);
with frmCPKCTMXLISTSEL do
begin
if ShowModal = 1 then
begin
while cds_color.locate('SSel', true, []) do
begin
if (Self.Order_Sub.Locate('MJID', Trim(frmCPKCTMXLISTSEL.cds_color.fieldbyname('MJID').AsString), []) = False) and (frmCPKCTMXLISTSEL.cds_color.fieldbyname('ISSD').AsString <> '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
begin
with Self.Order_Sub do
begin
Append;
FieldByName('SCConNo').Value := Trim(frmCPKCTMXLISTSEL.cds_color.fieldbyname('C_ORDERNO').AsString);
FieldByName('MainId').Value := frmCPKCTMXLISTSEL.cds_color.fieldbyname('MAINID').Value;
FieldByName('SubId').Value := frmCPKCTMXLISTSEL.cds_color.fieldbyname('SUBID').Value;
FieldByName('PRTColor').Value := frmCPKCTMXLISTSEL.CDS_Main.fieldbyname('C_Color').AsString;
FieldByName('SPrtCode').Value := frmCPKCTMXLISTSEL.CDS_Main.fieldbyname('C_CODE').AsString;
FieldByName('SPrtCodeName').Value := frmCPKCTMXLISTSEL.CDS_Main.fieldbyname('C_CODE').AsString;
// FieldByName('PRTHX').Value := Trim(frmCPKCTMXLISTSEL.CDS_MX.fieldbyname('PRTHX').AsString);
FieldByName('GANGHAO').Value := Trim(frmCPKCTMXLISTSEL.CDS_Main.fieldbyname('C_GANGNO').AsString);
FieldByName('MJID').Value := Trim(frmCPKCTMXLISTSEL.cds_color.fieldbyname('MJID').AsString);
// FieldByName('SQQty').Value := Trim(frmCPKCTMXLISTSEL.CDS_MX.fieldbyname('Qty').AsString);
FieldByName('MJXH').Value := Trim(frmCPKCTMXLISTSEL.cds_color.fieldbyname('MJXH').AsString);
FieldByName('SQPS').Value := 1;
FieldByName('SFKP').Value := '<27><>';
FieldByName('cangwei').Value := Trim(frmCPKCTMXLISTSEL.cds_color.fieldbyname('C_KUWEI').AsString);
FieldByName('orderUnit').Value := Trim(HZUnit.Text);
FieldByName('KCQty').Value := Trim(frmCPKCTMXLISTSEL.cds_color.fieldbyname('KCQty').AsString);
FieldByName('KCKGQty').Value := Trim(frmCPKCTMXLISTSEL.cds_color.fieldbyname('KCKGQty').AsString);
if (Trim(HZUnit.Text) = 'KG') or (Trim(HZUnit.Text) = '<27><><EFBFBD><EFBFBD>') then
begin
FieldByName('SQQty').Value := Trim(frmCPKCTMXLISTSEL.cds_color.fieldbyname('KCKGQty').AsString);
if xstype.Text = '<27><><EFBFBD><EFBFBD>' then
begin
FieldByName('MONEY').Value := StrToFloatDEF(frmCPKCTMXLISTSEL.cds_color.fieldbyname('KCKGQty').AsString, 0) * StrToFloatDef(frmCPKCTMXLISTSEL.cds_color.fieldbyname('SCSPRICE').AsString, 0) + StrToFloatDef(Order_Sub.fieldbyname('BGFee').AsString, 0);
end;
end
else
begin
FieldByName('SQQty').Value := Trim(frmCPKCTMXLISTSEL.cds_color.fieldbyname('KCQty').AsString);
if xstype.Text = '<27><><EFBFBD><EFBFBD>' then
begin
FieldByName('MONEY').Value := StrToFloatDEF(frmCPKCTMXLISTSEL.cds_color.fieldbyname('KCQty').AsString, 0) * StrToFloatDef(frmCPKCTMXLISTSEL.cds_color.fieldbyname('SCSPRICE').AsString, 0) + StrToFloatDef(Order_Sub.fieldbyname('BGFee').AsString, 0);
end;
end;
Post;
end;
end;
cds_color.Delete;
end;
end;
end;
finally
frmCPKCTMXLISTSEL.Free;
end;
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from SalesContract_Main where conno=(select top 1 conno from JYOrder_Main E WHERE MAINID=''' + Trim(Order_Sub.fieldbyname('MAINID').AsString) + '''');
sql.add(') ');
Open;
end;
if ADOTemp.FieldByName('JSFS').ASSTRING <> '' then
begin
PAYMENT.Text := Trim(ADOTemp.FieldByName('JSFS').ASSTRING);
// PAYMENT.Items.Add(Trim(ADOTemp.FieldByName('JSFS').ASSTRING));
// PAYMENT.ItemIndex := PAYMENT.Items.IndexOf(trim(ADOTemp.FieldByName('JSFS').ASSTRING));
end;
end;
procedure TfrmFHSQInPut.Tv1Column15PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'season';
flagname := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
with Order_Sub do
begin
Edit;
Order_Sub.fieldbyname('season').AsString := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
Post;
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPut.HTNOBtnClick(Sender: TObject);
begin
try
frmContractListSel := TfrmContractListSel.Create(Application);
with frmContractListSel do
begin
if ShowModal = 1 then
begin
HTNO.Text := Trim(frmContractListSel.Order_Main.fieldbyname('ConNo').AsString);
HTname.Text := trim(frmContractListSel.Order_Main.Fieldbyname('SCSName').AsString);
HTcolor.Text := Trim(frmContractListSel.Order_Main.fieldbyname('SCScolor').AsString);
HTcolorno.Text := Trim(frmContractListSel.Order_Main.fieldbyname('SCSColorNo').AsString);
HTqty.Text := Trim(frmContractListSel.Order_Main.fieldbyname('SCSqty').AsString);
HTfy.Text := Trim(frmContractListSel.Order_Main.fieldbyname('GANGFEI').AsString);
HTPRICE.Text := Trim(frmContractListSel.Order_Main.fieldbyname('SCSprice').AsString);
if XSType.Text = '<27><><EFBFBD><EFBFBD>' then
begin
PAYMENT.Text := Trim(frmContractListSel.Order_Main.FieldByName('JSFS').ASSTRING);
// PAYMENT.Items.Add(Trim(frmContractListSel.Order_Main.FieldByName('JSFS').ASSTRING));
// PAYMENT.ItemIndex := PAYMENT.Items.IndexOf(trim(frmContractListSel.Order_Main.FieldByName('JSFS').ASSTRING));
end;
end;
end;
finally
frmContractListSel.Free;
end;
end;
procedure TfrmFHSQInPut.paymentBtnUpClick(Sender: TObject);
begin
// if not Order_Sub.IsEmpty then
// begin
// Application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѡ<EFBFBD>񣬲<EFBFBD><F1A3ACB2><EFBFBD><EFBFBD>޸<EFBFBD>!', '<27><>ʾ', 0);
// exit;
// end;
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'JSFS';
flagname := '֧<><D6A7><EFBFBD><EFBFBD>ʽ';
if ShowModal = 1 then
begin
Self.payment.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPut.paymentBtnDnClick(Sender: TObject);
begin
payment.Text := '';
end;
end.
Reference in New Issue Copy Permalink