Group_02/D10myYicheng
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D10myYicheng/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.pas

1665 lines
44 KiB
ObjectPascal
Raw Permalink Normal View History

111
2025-05-27 14:08:09 +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,
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus,
cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC,
U_BaseInput, System.ImageList, Vcl.ImgList, cxImage, cxDBEdit, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
IdFTP, ShellAPI;
type
TfrmOrderInPut = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ScrollBox1: TScrollBox;
OrderNo: TEdit;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DataSource1: TDataSource;
Order_Sub: TClientDataSet;
JGFactoryName: TBtnEditC;
Label3: TLabel;
OrdDate: TDateTimePicker;
Label25: TLabel;
DLYDate: TDateTimePicker;
Note: TMemo;
Label23: TLabel;
cxgrdpmn1: TcxGridPopupMenu;
ADOQueryLabel: TADOQuery;
RMGridReport1: TRMGridReport;
Label8: TLabel;
GDY: TBtnEditC;
RM1: TRMGridReport;
CDS_PRT: TClientDataSet;
RMDBMain: TRMDBDataSet;
PopupMenu1: TPopupMenu;
N2: TMenuItem;
CDS_Copy: TClientDataSet;
Label51: TLabel;
ADOQuery1: TADOQuery;
ADOQueryCmdSC: TADOQuery;
ADOQueryCmdFileContent: TBlobField;
ADOQueryCmdFtFileName: TStringField;
ADOQueryCmdFileEditDate: TDateTimeField;
ADOQueryCmdFileSize: TFloatField;
ADOQueryCmdFiller: TStringField;
ADOQueryCmdLastEditTime: TDateTimeField;
ADOQueryCmdLastEditer: TStringField;
ADOQueryCmdFileCreateDate: TDateTimeField;
ADOQueryCmdchildPath: TStringField;
ADOQueryCmdFileType: TStringField;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
V2Column2: TcxGridDBColumn;
V2Column1: TcxGridDBColumn;
V2Column3: TcxGridDBColumn;
V2Column4: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
CDS_Fact: TClientDataSet;
DSFact: TDataSource;
PM_Fact: TPopupMenu;
N1: TMenuItem;
ADOQuery2: TADOQuery;
BlobField1: TBlobField;
StringField1: TStringField;
DateTimeField1: TDateTimeField;
FloatField1: TFloatField;
StringField2: TStringField;
DateTimeField2: TDateTimeField;
StringField3: TStringField;
DateTimeField3: TDateTimeField;
StringField4: TStringField;
StringField5: TStringField;
TV2Column1: TcxGridDBColumn;
cxPageControl1: TcxPageControl;
cxTabSheet3: TcxTabSheet;
ToolBar2: TToolBar;
ToolButton2: TToolButton;
ToolButton1: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column11: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
v1PRTColor: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
VC_PRTPs: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
cxgrdpmn3: TcxGridPopupMenu;
CDS_TP: TClientDataSet;
DS_TP: TDataSource;
cxgrdpmn2: TcxGridPopupMenu;
ToolButton8: TToolButton;
pnlJGC: TPanel;
Label2: TLabel;
edtJGC: TBtnEditC;
Label6: TLabel;
edtGY: TBtnEditC;
Button1: TButton;
Button2: TButton;
Label4: TLabel;
SYRName: TBtnEditC;
Tv1Column3: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
Label9: TLabel;
MPRTHJGBZNote: TMemo;
Tv1Column11: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Label10: TLabel;
Label17: TLabel;
TV2Column2: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
SJGDate: TDateTimePicker;
SJGPrice: TEdit;
ToolButton3: TToolButton;
Label5: TLabel;
TV2Column5: TcxGridDBColumn;
Label1: TLabel;
edtGDY: TBtnEditC;
Label7: TLabel;
Label11: TLabel;
Label15: TLabel;
JGNote: TMemo;
JGGY: TBtnEditC;
Label16: TLabel;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Label12: TLabel;
MPRTCODENAME: TBtnEditC;
Label13: TLabel;
MPRTCODE: TBtnEditC;
Label14: TLabel;
kaijian: TBtnEditC;
Label18: TLabel;
biaoqian: TBtnEditC;
Label19: TLabel;
baozhuang1: TMemo;
Label20: TLabel;
baozhuang2: TMemo;
Label21: TLabel;
chuanyang: TMemo;
Label22: TLabel;
HXTPName: TBtnEditC;
Qry_ImgHX: TADOQuery;
DS_ImgHX: TDataSource;
cxDBImage1: TcxDBImage;
IdFTP1: TIdFTP;
ADOQueryImage: TADOQuery;
Tv1Column4: TcxGridDBColumn;
Label24: TLabel;
ISFZ: TComboBox;
ToolButton4: TToolButton;
Tv1Column5: 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 JGFactoryNameBtnUpClick(Sender: TObject);
procedure CustomerNoNameBtnDnClick(Sender: TObject);
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure OrdDefStr2BtnUpClick(Sender: TObject);
procedure YCLFactoryBtnUpClick(Sender: TObject);
procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject);
procedure MPRTChuanYDblClick(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ScrollBox1Click(Sender: TObject);
procedure v1PRTOrderQtyPropertiesEditValueChanged(Sender: TObject);
procedure v1Column5PropertiesEditValueChanged(Sender: TObject);
procedure HYTTBtnUpClick(Sender: TObject);
procedure KYTTBtnUpClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure V2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure edtGYBtnUpClick(Sender: TObject);
procedure edtJGCBtnUpClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ToolButton3Click(Sender: TObject);
procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure MPRTCODENAMEBtnUpClick(Sender: TObject);
procedure Tv1Column12PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure HXTPNameBtnUpClick(Sender: TObject);
procedure cxDBImage1DblClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure Tv1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
FSCXDH: string;
procedure InitFact();
procedure InitData();
// procedure InitImage();
procedure InitImageHX();
procedure LookImage(FileName: string);
procedure InitSub();
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
function SaveData(): Boolean;
function getOrderNo(fconNo: string): string;
function PostFileToData(LabelName, LabelPath: string): boolean;
function UPLabel(LabelName, LabelPath: string): Boolean;
{ Private declarations }
public
PState, CopyInt, PriceFlag: Integer;
FMainId, FFMainId, FOrderNo: string;
FXS: Integer;
canshu1, canshu2: string;
fFlileFlag: string;
{ Public declarations }
end;
var
frmOrderInPut: TfrmOrderInPut;
newh: hwnd;
implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_ZDYHelpSel, U_ZdyAttachment, U_ZdyAttachGYS,
U_CPManageFMSel, getpic, U_LabelList, U_ContractListSel, U_JGCEdit;
{$R *.dfm}
//procedure TfrmOrderInPut.InitImage();
//begin
// with ADOQueryImage do
// begin
// close;
// sql.Clear;
// sql.Add('select * from TP_File A');
// sql.Add('where WBID=' + quotedstr(Trim(CDS_DB.fieldbyname('HXSID').AsString)));
//// ShowMessage(SQL.Text);
// open;
// end;
//end;
procedure TfrmOrderInPut.InitImageHX();
begin
with Qry_ImgHX do
begin
close;
sql.Clear;
sql.Add('select * from TP_File A');
sql.Add('where isnull(WBID,'''')<>'''' and WBID=' + quotedstr(Trim(FMAINID)));
SQL.Add('AND TFTYPE=''HX'' ');
// ShowMessage(SQL.Text);
open;
end;
end;
procedure TfrmOrderInPut.LookImage(FileName: string);
var
sFieldName: string;
begin
sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\ͼƬ<CDBC>鿴';
if not DirectoryExists(pchar(sFieldName)) then
CreateDirectory(pchar(sFieldName), nil);
sFieldName := sFieldName + '\' + trim(FileName);
try
IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ', '127.0.0.1');
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
except
;
end;
if IdFTP1.Connected then
begin
try
IdFTP1.Get(fFlileFlag + '\' + Trim(FileName), sFieldName, true, false);
except
Application.MessageBox('<27>ͻ<EFBFBD>ͼ<EFBFBD><CDBC><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
end
else
begin
Application.MessageBox('<27>޷<EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
if IdFTP1.Connected then
IdFTP1.Quit;
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
end;
procedure TfrmOrderInPut.InitFact();
begin
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from JYOrder_Fact ');
sql.Add(' where SubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + '''');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOTemp, CDS_Fact);
SInitCDSData(ADOTemp, CDS_Fact);
end;
procedure TfrmOrderInPut.InitSub();
begin
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add(' select *,HZJGC=[dbo].[F_Ord_Get_JGC](subid) from JYOrder_Sub where MainId=''' + Trim(FMainId) + '''');
// ShowMessage(sql.Text);
Open;
end;
SCreateCDS(ADOTemp, Order_Sub);
SInitCDSData(ADOTemp, Order_Sub);
end;
function TfrmOrderInPut.PostFileToData(LabelName, LabelPath: string): boolean;
var
mFileName, fFileName, fpathFileName: string;
Stream: TMemoryStream;
mfileSize: integer;
mCreationTime: TdateTime;
mWriteTime: TdateTime;
// ADOQueryCmdFileContent: TBlobField;
begin
result := false;
fFileName := Trim(LabelName) + '.rmf';
fpathFileName := Trim(LabelPath);
try
ADOQueryCmdSC.Connection.BeginTrans;
try
with ADOQueryCmdSC do
begin
close;
sql.Clear;
sql.Add('delete from RT_FileUpdate');
sql.Add('where FileName=' + quotedStr(trim(fFileName)));
execsql;
end;
with ADOQueryCmdSC do
begin
close;
sql.Clear;
sql.Add('select * from RT_FileUpdate');
sql.Add('where FileName=' + quotedStr(trim(fFileName)));
Open;
//////////////////////////
//<2F><>ȡ<EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>Ϣ
GetFileInfo(Trim(fpathFileName), mfileSize, mCreationTime, mWriteTime);
if RecordCount <= 0 then
begin
Append;
fieldByName('FileName').AsString := trim(fFileName);
end
else
begin
edit;
end;
fieldByName('FileEditDate').Value := mWriteTime;
fieldByName('FileCreateDate').Value := mCreationTime;
fieldByName('FileSize').Value := mfileSize;
fieldByName('Filler').Value := Dname;
fieldByName('LastEditer').Value := Dname;
fieldByName('LastEditTime').Value := Now();
// if pos('.rmf',fFileName)>0 then
begin
fieldByName('FilePath').Value := 'report';
fieldByName('FileType').Value := '<27><><EFBFBD><EFBFBD>';
end;
//<2F><>OLE<4C><45><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD>
RM1.SaveToBlobField(TBlobField(FieldByName('Files')));
// ADOQueryCmdFileContent.LoadFromFile(fpathFileName);
//ADOQueryCmdFileContent.LoadFromStream(Stream);
post;
end;
finally
end;
result := true;
ADOQueryCmdSC.Connection.CommitTrans;
except
ADOQueryCmdSC.Connection.RollbackTrans;
Result := False;
application.MessageBox(pchar('<27>ύ<EFBFBD>ļ<EFBFBD>[' + trim(fFileName) + ']ʧ<><CAA7>!'), '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
end;
end;
function TfrmOrderInPut.UPLabel(LabelName, LabelPath: string): Boolean;
begin
try
ADOCmd.Connection.BeginTrans;
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('select * from P_Label');
sql.Add('where LabelCaption=' + quotedstr(LabelName));
Open;
if ADOCmd.IsEmpty then
begin
Append;
fieldByName('filler').value := DName;
fieldByName('filltime').value := DServerDate;
fieldByName('beizhu').value := '';
fieldByName('LabelCaption').value := trim(LabelPath);
fieldByName('LabelType').value := '<27><><EFBFBD>ı<EFBFBD>ǩ';
fieldByName('LabelFileName').value := trim(LabelName);
RM1.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
end
else
begin
Edit;
fieldByName('Editer').value := DName;
fieldByName('EditTime').value := DServerDate;
end;
RM1.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
Post;
end;
ADOCmd.Connection.CommitTrans;
result := true;
except
ADOCmd.Connection.RollbackTrans;
Result := false;
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩģ<C7A9><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ', 0);
end;
end;
function TfrmOrderInPut.getOrderNo(fconNo: string): string;
var
str1: string;
i: integer;
begin
str1 := trim(fconNo) + '01';
with ADOTemp do
begin
close;
sql.Clear;
sql.Add('select MainID from JYOrder_Main where orderNo=' + quotedstr(trim(str1)));
open;
end;
if not ADOTemp.IsEmpty then
begin
for i := 1 to 99 do
begin
str1 := trim(fconNo) + rightstr(inttostr(100 + i), 2);
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('select MainID from JYOrder_Main where orderNo=' + quotedstr(trim(str1)));
open;
end;
if ADOCmd.IsEmpty then
break;
end;
end;
result := str1;
end;
procedure TfrmOrderInPut.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('ָʾ<D6B8><CABE>¼<EFBFBD><C2BC>AA', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>9');
Close;
end;
procedure TfrmOrderInPut.InitData();
var
FDate: TDateTime;
begin
FDate := SGetServerDateTime(ADOTemp);
OrdDate.DateTime := FDate;
DlyDate.DateTime := FDate + 25;
SJGDate.DateTime := FDate;
// if PState = 1 then
// OrderNo.Enabled := False;
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add(' select *,HZJGC=[dbo].[F_Ord_Get_JGC](subid) 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<>1');
end;
Open;
end;
SCreateCDS(ADOTemp, Order_Sub);
SInitCDSData(ADOTemp, Order_Sub);
MPRTCODENAME.Text := ADOTemp.FieldByName('MPRTCODENAME').AsString;
MPRTCODE.Text := ADOTemp.FieldByName('MPRTCODE').AsString;
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrder_Main where MainId=''' + Trim(FMainId) + '''');
Open;
end;
SCSHData(ADOTemp, ScrollBox1, 2);
JGFactoryName.TxtCode := ADOTemp.FieldByName('JGFactoryNo').AsString;
JGFactoryName.Text := ADOTemp.FieldByName('JGFactoryName').AsString;
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from JYOrder_TouPi ');
sql.Add(' where MainId=''' + Trim(FMainId) + '''');
sql.Add(' order by TPColorNo');
Open;
end;
SCreateCDS(ADOTemp, CDS_TP);
SInitCDSData(ADOTemp, CDS_TP);
if PState = 0 then
begin
OrdDate.DateTime := SGetServerDateTime(ADOTemp);
DlyDate.DateTime := FDate + 25;
OrderNo.Text := '';
OrderNo.Enabled := True;
end
else
begin
end;
if CopyInt = 99 then
begin
PState := 0;
FMainId := '';
OrderNo.Text := '';
OrderNo.Enabled := True;
OrdDate.DateTime := FDate;
with Order_Sub do
begin
First;
while not Eof do
begin
Edit;
FieldByName('MainId').Value := '';
FieldByName('SubId').Value := '';
FieldByName('hxFile').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);
var
i: Integer;
begin
inherited;
readCxGrid('ָʾ<D6B8><CABE>¼<EFBFBD><C2BC>AA', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>9');
OrderNo.Text := '';
fFlileFlag := UserDataFlag + 'HX';
InitData();
v1Column11.Hidden := true;
if canshu1 = '<27><>ѯ' then
begin
Tv1Column13.Visible := false;
Tv1Column13.hidden := true;
Tv1Column15.Visible := false;
Tv1Column15.hidden := true;
Tv1Column14.Visible := false;
Tv1Column14.hidden := true;
Tv1Column16.Visible := false;
Tv1Column16.hidden := true;
Tv1Column4.Visible := False;
Tv1Column4.hidden := true;
v1Column1.visible := false;
v1Column1.hidden := true;
end
else
begin
Tv1Column13.Visible := true;
Tv1Column13.hidden := false;
Tv1Column15.Visible := true;
Tv1Column15.hidden := false;
Tv1Column14.Visible := true;
Tv1Column14.hidden := false;
Tv1Column16.Visible := true;
Tv1Column16.hidden := false;
Tv1Column4.Visible := true;
Tv1Column4.hidden := false;
v1Column1.visible := true;
v1Column1.hidden := false;
end;
InitImageHX();
end;
function TfrmOrderInPut.SaveData(): Boolean;
var
maxno, Smaxno, maxorderno, MaxFNo: string;
begin
try
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if Trim(FMainId) = '' then
begin
if canshu2 = '<27><>' then
begin
if GetLSNo(ADOCmd, maxno, 'JW', '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
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;
// if GetLSNo(ADOCmd, maxorderno, 'YC', 'JYOrder_Main', 3, 1) = False then
// begin
// ADOCmd.Connection.RollbackTrans;
// Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
// Exit;
// end;
// OrderNo.Text := maxorderno;
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('SCXDH').Value := FSCXDH;
end
else
begin
Edit;
end;
FieldByName('MainId').Value := Trim(maxno);
RTSetsavedata(ADOCmd, 'JYOrder_Main', ScrollBox1, 2);
FieldByName('status').Value := '1';
FieldByName('JHGZ').Value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
FieldByName('YXJL').Value := '<27><><EFBFBD><EFBFBD>';
if canshu2 = '' then
begin
canshu2 := '<27><>';
end;
FieldByName('DANWEI').Value := Trim(canshu2);
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('JGFactoryNo').Value := JGFactoryName.TxtCode;
FieldByName('JGFactoryName').Value := JGFactoryName.Text;
Post;
end;
///////////////////// <20><><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 canshu2 = '<27><>' then
begin
if GetLSNo(ADOCmd, Smaxno, 'JWS', '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
if GetLSNo(ADOCmd, Smaxno, '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;
end
else
begin
Smaxno := Trim(Order_Sub.fieldbyname('SubId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from JYOrder_Sub where MainId=''' + Trim(maxno) + '''');
sql.Add(' and SubId=''' + Trim(Smaxno) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then
Append
else
Edit;
if Trim(Order_Sub.fieldbyname('SubId').AsString) <> '' then
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
sql.Add('select * from JYOrder_Sub where MainId=''' + Trim(maxno) + '''');
sql.Add(' and SubId=''' + Trim(Smaxno) + '''');
Open;
end;
if Order_Sub.fieldbyname('PRTOrderQty').Value <> ADOQuery1.fieldbyname('PRTOrderQty').Value then
begin
with ADOTemp do
begin
Close;
SQL.Clear;
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(self.Caption)));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27>ӱ<EFBFBD>ID<49><44>' + trim(Smaxno) + ';ԭ<><D4AD><EFBFBD><EFBFBD>:' + ADOQuery1.fieldbyname('PRTOrderQty').AsString + ';<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:' + Order_Sub.fieldbyname('PRTOrderQty').AsString)));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
ExecSQL;
end;
end;
end;
FieldByName('MainId').Value := Trim(maxno);
FieldByName('SubId').Value := Trim(Smaxno);
FieldByName('MPRTCODENAME').Value := Trim(MPRTCODENAME.Text);
FieldByName('MPRTCODE').Value := Trim(MPRTCODE.Text);
RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'JYOrder_Sub', 0);
FieldByName('MGMainId').Value := Trim(Order_Sub.fieldbyname('MGMainId').AsString);
FieldByName('ConSubId').Value := Trim(Order_Sub.fieldbyname('ConSubId').AsString);
FieldByName('BuyerNo').Value := Trim(Order_Sub.fieldbyname('BuyerNo').AsString);
FieldByName('ConMainId').Value := Trim(Order_Sub.fieldbyname('ConMainId').AsString);
Post;
with Order_Sub do
begin
Edit;
fieldbyname('SubId').Value := Trim(Smaxno);
Post;
end;
end;
Next;
end;
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('update JYOrder_Fact set Mainid=X.MainID from JYOrder_Sub X where X.SubId=JYOrder_Fact.SubId ');
sql.Add(' and X.MainId=''' + Trim(maxno) + '''');
ExecSQL;
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);
///////////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD> ///////////////////////////
ADOCmd.Connection.CommitTrans;
Result := True;
except
Result := False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
end;
end;
procedure TfrmOrderInPut.TBSaveClick(Sender: TObject);
var
MAXNO1: string;
FINT: Integer;
begin
if PState <> 1 then
begin
OrdDate.SetFocus;
end;
if MPRTCODENAME.text = '' then
begin
Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if OrderNo.text = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if ISFZ.text = '' then
begin
Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>鲻<EFBFBD><E9B2BB>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if Order_Sub.IsEmpty then
begin
Application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
// if ZS.Text <> '' then
// begin
// if TryStrToInt(ZS.Text, FINT) = False then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
//
// end;
// if mzss.Text <> '' then
// begin
// if TryStrToInt(mzss.Text, FINT) = False then
// begin
// Application.MessageBox('ÿ<><C3BF>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
//
// end;
if Order_Sub.Locate('OrderUnit', null, []) then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<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>';
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('PRTColorNo').Value := Trim(ClientDataSet1.fieldbyname('Note').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.ToolButton1Click(Sender: TObject);
var
i: Integer;
begin
CopyAddRow(Tv1, Order_Sub);
with Order_Sub do
begin
Edit;
FieldByName('SSel').Value := false;
FieldByName('hxFile').Value := '';
FieldByName('PRTOrderQty').Value := 0;
FieldByName('sellunit').Value := '<27><>Ԫ';
Post;
end;
end;
procedure TfrmOrderInPut.ToolButton2Click(Sender: TObject);
begin
if Order_Sub.IsEmpty then
Exit;
if Order_Sub.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
exit;
Order_Sub.DisableControls;
with Order_Sub do
begin
First;
while Locate('SSel', True, []) do
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from JY_Cloth where isnull(SubId,'''')<>'''' and SubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + '''');
Open;
end;
if ADOTemp.IsEmpty = False then
begin
Application.MessageBox('<27>Ѽ<EFBFBD><D1BC>鲻<EFBFBD><E9B2BB>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Trim(Order_Sub.fieldbyname('SubId').AsString) <> '' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('insert into JYOrder_Sub_Del select * from JYOrder_Sub where SubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + '''');
sql.Add('delete JYOrder_Sub where SubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + '''');
ExecSQL;
end;
end;
Delete;
end;
end;
Order_Sub.EnableControls;
end;
procedure TfrmOrderInPut.ToolButton3Click(Sender: TObject);
begin
try
frmJGCEdit := TfrmJGCEdit.Create(Application);
with frmJGCEdit do
begin
FMainId := Self.FMainId;
if ShowModal = 1 then
begin
end;
end;
finally
frmJGCEdit.Free;
end;
end;
procedure TfrmOrderInPut.ToolButton4Click(Sender: TObject);
begin
inherited;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('update SY_MaxBH set bhno=bhno+10,BHDATE=CONVERT(varchar(100), GETDATE(), 12) where bhtype=''JYOrder_Main'' and bhstr=''JM'' ');
sql.Add('update SY_MaxBH set bhno=bhno+10,BHDATE=CONVERT(varchar(100), GETDATE(), 12) where bhtype=''JYOrder_SUB'' and bhstr=''JS'' ');
ExecSQL;
end;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ȡ<EFBFBD>ųɹ<C5B3>!', '<27><>ʾ', 0);
end;
procedure TfrmOrderInPut.JGFactoryNameBtnUpClick(Sender: TObject);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
// frmZdyAttachGYS.FactType.ItemIndex:=FactType.Items.IndexOf('<27>ӹ<EFBFBD><D3B9><EFBFBD>');
if ShowModal = 1 then
begin
JGFactoryName.TxtCode := Trim(CDS_HZ.fieldbyname('CoCode').AsString);
JGFactoryName.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmOrderInPut.edtJGCBtnUpClick(Sender: TObject);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
if ShowModal = 1 then
begin
edtJGC.TEXT := Trim(CDS_HZ.fieldbyname('CoName').AsString);
edtJGC.TxtCode := Trim(CDS_HZ.fieldbyname('CoCode').AsString);
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmOrderInPut.edtGYBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TBtnEditC(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
TBtnEditC(Sender).text := '';
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
if TBtnEditC(Sender).text = '' then
TBtnEditC(Sender).text := FieldByName('ZDYName').AsString
else
TBtnEditC(Sender).text := TBtnEditC(Sender).text + ',' + FieldByName('ZDYName').AsString; //inttostr(i)+'.'+
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.MPRTCODENAMEBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'MPRTCODENAME';
flagname := '<27><>Ʒ<EFBFBD><C6B7>Ϣ';
V1Name.Caption := '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
V1Note.Caption := '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
fnote := True;
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.HXTPNameBtnUpClick(Sender: TObject);
begin
inherited;
if trim(FMainId) = '' then
begin
Application.MessageBox('<27><><EFBFBD>ȱ<EFBFBD><C8B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
FormGetPic := TFormGetPic.create(self);
with FormGetPic do
begin
fFlileFlag := self.fFlileFlag;
FMainId := trim(SELF.FMainId);
fkeyNO := TRIM(HXTPName.Text);
pat1 := 'FileName';
pic1 := 'FilesOther';
FTFType := 'HX';
if showmodal = 1 then
begin
Self.HXTPName.Text := FormGetPic.fkeyNO;
end;
free;
end;
InitimageHX();
end;
procedure TfrmOrderInPut.Button1Click(Sender: TObject);
begin
if not Order_Sub.Locate('SSel', True, []) then
begin
Application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 0);
exit;
end;
if Order_Sub.Locate('SubId', null, []) then
begin
Application.MessageBox('<27><><EFBFBD>ȱ<EFBFBD><C8B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 0);
exit;
end;
with Order_Sub do
begin
DisableControls;
First;
while not Eof do
begin
if Order_Sub.fieldbyname('SSEL').AsBoolean then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_Ord_In_Fact ');
sql.Add(' @SubId=' + QuotedStr(Trim(Order_Sub.fieldbyname('SubId').AsString)));
sql.Add(' ,@CoCode=' + QuotedStr(Trim(edtJGC.TxtCode)));
sql.Add(' ,@SJGType=' + QuotedStr(Trim(edtGY.Text)));
sql.Add(' ,@HJGBZNote=' + QuotedStr(Trim(MPRTHJGBZNote.Text)));
sql.Add(' ,@SJGPrice=' + QuotedStr(Trim(SJGPrice.Text)));
sql.Add(' ,@SJGDate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', SJGDate.DateTime))));
sql.Add(' ,@SJGDY=' + QuotedStr(Trim(edtGDY.Text)));
open;
end;
if ADOCmd.FieldByName('intReturn').AsInteger = -1 then
begin
Application.MessageBox(PChar(ADOCmd.fieldbyname('ShowMsg').AsString), '<27><>ʾ', 0);
Order_Sub.EnableControls;
exit;
end;
end;
Next;
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('update JYOrder_Fact set Mainid=X.MainID from JYOrder_Sub X where X.SubId=JYOrder_Fact.SubId ');
sql.Add(' and X.MainId=''' + Trim(FMainId) + '''');
ExecSQL;
end;
EnableControls;
end;
pnlJGC.Visible := False;
InitSub();
InitFact();
end;
procedure TfrmOrderInPut.Button2Click(Sender: TObject);
begin
pnlJGC.Visible := false;
end;
procedure TfrmOrderInPut.CustomerNoNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmOrderInPut.cxDBImage1DblClick(Sender: TObject);
begin
inherited;
if TcxDBImage(Sender).Picture.Height = 0 then
exit;
LookImage(Qry_ImgHX.fieldbyname(TcxDBImage(Sender).Hint).asstring);
end;
procedure TfrmOrderInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
mvalues: string;
begin
mvalues := tv1.Columns[tv1.Controller.FocusedColumn.index].DataBinding.FieldName;
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(mvalues).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
FOStr: string;
fsj: string;
FWZ: Integer;
i: integer;
j: integer;
begin
FOStr := StringReplace(trim(JGGY.text), ',', '|', [rfReplaceAll]);
fsj := Trim(TBtnEditC(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);
FChkStr := FOStr;
if ShowModal = 1 then
begin
TBtnEditC(Sender).text := '';
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
if TBtnEditC(Sender).text = '' then
TBtnEditC(Sender).text := FieldByName('ZDYName').AsString
else
TBtnEditC(Sender).text := TBtnEditC(Sender).text + ',' + FieldByName('ZDYName').AsString; //inttostr(i)+'.'+
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
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);
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.MPRTChuanYDblClick(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
TMemo(Sender).Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
TMemo(Sender).Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.N1Click(Sender: TObject);
begin
if CDS_Fact.IsEmpty then
Exit;
if Trim(CDS_Fact.fieldbyname('FactId').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_Fact where FactId=''' + Trim(CDS_Fact.fieldbyname('FactId').AsString) + '''');
ExecSQL;
end;
end;
CDS_Fact.Delete;
end;
procedure TfrmOrderInPut.N2Click(Sender: TObject);
begin
ToolButton2.Click;
end;
procedure TfrmOrderInPut.ScrollBox1Click(Sender: TObject);
begin
OrdDate.SetFocus;
end;
procedure TfrmOrderInPut.ToolButton8Click(Sender: TObject);
begin
pnlJGC.Visible := True;
end;
procedure TfrmOrderInPut.Tv1Column12PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZdyAttachment := TfrmZdyAttachment.Create(Application);
with frmZdyAttachment do
begin
if ShowModal = 1 then
begin
Order_Sub.Edit;
Order_Sub.fieldbyname('BuyerNo').Value := Trim(CDS_HZ.fieldbyname('CoCode').AsString);
Order_Sub.fieldbyname('BuyerName').Value := Trim(CDS_HZ.fieldbyname('CoName').AsString);
Order_Sub.Post;
end;
end;
finally
frmZdyAttachment.Free;
end;
end;
procedure TfrmOrderInPut.Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
frmCPManageFMSel := TfrmCPManageFMSel.Create(self);
with frmCPManageFMSel do
begin
if showmodal = 1 then
begin
Order_Sub.Edit;
Order_Sub.fieldbyname('MPRTCode').Value := CDS_Main.fieldbyname('CYNO').asstring;
Order_Sub.fieldbyname('MPRTCodeName').Value := CDS_Main.fieldbyname('CYName').asstring;
Order_Sub.fieldbyname('MPRTSpec').Value := CDS_Main.fieldbyname('CYSpec').asstring;
Order_Sub.fieldbyname('MPRTCF').Value := CDS_Main.fieldbyname('CYCF').asstring;
Order_Sub.fieldbyname('PRTColor').Value := CDS_Main.fieldbyname('CYColor').asstring;
Order_Sub.fieldbyname('PRTHX').Value := CDS_Main.fieldbyname('CYHX').asstring;
Order_Sub.fieldbyname('MPRTMF').Value := CDS_Main.fieldbyname('CYMF').asstring;
Order_Sub.fieldbyname('MPRTKZ').Value := CDS_Main.fieldbyname('CYKZ').asstring;
Order_Sub.fieldbyname('OrderUnit').Value := CDS_Main.fieldbyname('CYPUnit').asstring;
Order_Sub.fieldbyname('SuoLv').Value := CDS_Main.fieldbyname('SuoLv').asstring;
Order_Sub.Post;
end;
free;
end;
end;
procedure TfrmOrderInPut.Tv1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
inherited;
try
frmZdyAttachment := TfrmZdyAttachment.Create(Application);
with frmZdyAttachment do
begin
if ShowModal = 1 then
begin
Order_Sub.Edit;
Order_Sub.fieldbyname('khName').Value := Trim(CDS_HZ.fieldbyname('CoName').AsString);
Order_Sub.Post;
end;
end;
finally
frmZdyAttachment.Free;
end;
end;
procedure TfrmOrderInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
InitFact();
end;
procedure TfrmOrderInPut.v1PRTOrderQtyPropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FQty, FPrice, FHKMoney: Double;
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);
Post;
FQty := Fieldbyname('PRTOrderQty').AsFloat;
FPrice := Fieldbyname('Price').AsFloat;
end;
FHKMoney := RoundFloat(FQty * FPrice, 2);
with Order_Sub do
begin
Edit;
FieldByName('MXMoney').Value := FHKMoney;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmOrderInPut.V2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
if ShowModal = 1 then
begin
CDS_Fact.Edit;
CDS_Fact.FieldByName('SJGFactory').Value := Trim(CDS_HZ.fieldbyname('CoName').AsString);
CDS_Fact.FieldByName('SJGFactoryCode').Value := Trim(CDS_HZ.fieldbyname('CoCode').AsString);
CDS_Fact.FieldByName('SJGFactoryJC').Value := Trim(CDS_HZ.fieldbyname('CoHRName').AsString);
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmOrderInPut.v1Column5PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with Order_Sub do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
FieldByName('MGMainId').Value := '';
Post;
end;
Tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmOrderInPut.HYTTBtnUpClick(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 ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.KYTTBtnUpClick(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
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);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
end.
Reference in New Issue Copy Permalink