Group_DJD/D10DJkaimengwenshang
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
74d01e92e1
D10DJkaimengwenshang/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanInPut.pas

1995 lines
50 KiB
ObjectPascal
Raw Normal View History

~
2025-09-27 14:24:10 +08:00
unit U_TradePlanInPut;
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,
dxDateRanges, dxBarBuiltInMenu, cxPC,
System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit,
IdBaseComponent, Winapi.UrlMon,
IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
IdFTP, ShellAPI, dxScrollbarAnnotations, cxGeometry,
dxFramedControl, dxLayoutContainer, dxLayoutControl, dxPanel, cxGroupBox,
dxLayoutcxEditAdapters, dxCore, cxDateUtils, cxImageList;
type
TfrmTradePlanInPut = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
GPM_1: TcxGridPopupMenu;
ADOQueryLabel: TADOQuery;
Label51: TLabel;
CDS_Fact: TClientDataSet;
DSFact: TDataSource;
PM_Fact: TPopupMenu;
N1: TMenuItem;
cxgrdpmn2: TcxGridPopupMenu;
Qry_ImgHX: TADOQuery;
DS_ImgHX: TDataSource;
N3: TMenuItem;
Tbcgs: TToolButton;
IdFTP1: TIdFTP;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton5: TToolButton;
dxPanel1: TdxPanel;
dxLayoutControl_bzplan: TdxLayoutControl;
dxLayoutControl_bzplanGroup_Root: TdxLayoutGroup;
dxLayoutGroup_1: TdxLayoutGroup;
dxLayoutItem1: TdxLayoutItem;
dxLayoutItem3: TdxLayoutItem;
dxLayoutItem_htno: TdxLayoutItem;
dxLayoutItem5: TdxLayoutItem;
OrderNo: TcxTextEdit;
CustName: TcxButtonEdit;
ConNo: TcxTextEdit;
OrdDate: TcxDateEdit;
dxLayoutGroup_2: TdxLayoutGroup;
dxLayoutItem2: TdxLayoutItem;
dxLayoutItem6: TdxLayoutItem;
dxLayoutItem7: TdxLayoutItem;
DLYDate: TcxDateEdit;
saleser: TcxButtonEdit;
factoryName: TcxButtonEdit;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1SerialNo: TcxGridDBColumn;
v1BuyConNo: TcxGridDBColumn;
v1C_Code: TcxGridDBColumn;
v1C_StyleNo: TcxGridDBColumn;
v1c_Name: TcxGridDBColumn;
v1C_EName: TcxGridDBColumn;
v1C_ColorNo: TcxGridDBColumn;
v1C_Color: TcxGridDBColumn;
v1C_EColor: TcxGridDBColumn;
v1OrdQty: TcxGridDBColumn;
v1OrdUnit: TcxGridDBColumn;
v1OrdSNote: TcxGridDBColumn;
v1C_Pattern: TcxGridDBColumn;
v1C_Width: TcxGridDBColumn;
v1C_GramWeight: TcxGridDBColumn;
v1C_Spec: TcxGridDBColumn;
v1AttName: TcxGridDBColumn;
Tv1batchNo: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
dxLayoutGroup_3: TdxLayoutGroup;
dxLayoutItem8: TdxLayoutItem;
dxLayoutItem9: TdxLayoutItem;
dxLayoutItem10: TdxLayoutItem;
dxLayoutItem11: TdxLayoutItem;
Gilding: TcxButtonEdit;
PackSeal: TcxButtonEdit;
ShippingSample: TcxButtonEdit;
SizeNote: TcxButtonEdit;
dxLayoutGroup_4: TdxLayoutGroup;
dxLayoutItem12: TdxLayoutItem;
dxLayoutItem13: TdxLayoutItem;
OrdNote: TcxMemo;
PackNote: TcxMemo;
dxLayoutItem4: TdxLayoutItem;
dxLayoutItem14: TdxLayoutItem;
dxLayoutItem15: TdxLayoutItem;
PackType: TcxButtonEdit;
QtyNote: TcxButtonEdit;
OtherProcess1: TcxButtonEdit;
PackSealNote: TcxButtonEdit;
dxLayoutItem16: TdxLayoutItem;
Tsj: TToolButton;
cxMemo1: TcxMemo;
cxMemo2: TcxMemo;
cxPageControl1: TcxPageControl;
cxTabSheet1: TcxTabSheet;
cxTabSheet2: TcxTabSheet;
LabVolume: TcxButtonEdit;
LabPackage: TcxButtonEdit;
dxLayoutControl_otherGroup_Root: TdxLayoutGroup;
dxLayoutControl_other: TdxLayoutControl;
dxLayoutGroup1: TdxLayoutGroup;
dxLayoutItem17: TdxLayoutItem;
dxLayoutItem18: TdxLayoutItem;
dxLayoutItem19: TdxLayoutItem;
dxLayoutGroup_label: TdxLayoutGroup;
dxLayoutItem20: TdxLayoutItem;
dxLayoutItem21: TdxLayoutItem;
RMPreview1: TRMPreview;
RMPreview2: TRMPreview;
RMGridReport1: TRMGridReport;
OpenDialog1: TOpenDialog;
ADOQuery_label: TADOQuery;
RMGridReport2: TRMGridReport;
dxLayoutItem22: TdxLayoutItem;
dxLayoutItem23: TdxLayoutItem;
dxLayoutItem24: TdxLayoutItem;
dxLayoutItem25: TdxLayoutItem;
dxLayoutItem26: TdxLayoutItem;
CustDefStr1: TcxButtonEdit;
CustDefStr2: TcxButtonEdit;
CustDefStr3: TcxButtonEdit;
CustDefFloat1: TcxTextEdit;
CustDefFloat2: TcxTextEdit;
Tv1SSel: TcxGridDBColumn;
Tv1FtyPCId: TcxGridDBColumn;
Tv1SLabVolume: TcxGridDBColumn;
Tv1SLabPackage: TcxGridDBColumn;
ToolButton3: TToolButton;
Tupimage: TToolButton;
ToolButton4: TToolButton;
PM_1: TPopupMenu;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1PriceUnitPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure YCLFactoryBtnUpClick(Sender: TObject);
procedure ScrollBox1Click(Sender: TObject);
procedure v1Column5PropertiesEditValueChanged(Sender: TObject);
procedure HYTTBtnUpClick(Sender: TObject);
procedure KYTTBtnUpClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure v1OrderUnitPropertiesEditValueChanged(Sender: TObject);
procedure Tv1Column4PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure cxDBImage1DblClick(Sender: TObject);
procedure SYRNameBtnUpClick(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure TV2Column5PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure TV2Column1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure TbcgsClick(Sender: TObject);
procedure OurCoNameBtnUpClick(Sender: TObject);
procedure OurCoNameBtnDnClick(Sender: TObject);
procedure V2Column1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure ToolButton5Click(Sender: TObject);
procedure C_CodeBtnDnClick(Sender: TObject);
procedure CustomerNoNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure FormCreate(Sender: TObject);
procedure v1PRTCodeNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1C_ColorPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure GildingPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure FtyNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1OrdUnitPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure TsjClick(Sender: TObject);
procedure LabVolumePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure LabVolumeEnter(Sender: TObject);
procedure LabPackageEnter(Sender: TObject);
procedure Tv1SLabVolumePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure Tv1SLabPackagePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure ToolButton3Click(Sender: TObject);
procedure TupimageClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ToolButton4Click(Sender: TObject);
procedure MenuItem1Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure v1AttNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure ButtonEdit(Sender: TObject;
AButtonIndex: Integer);
procedure ToolButton8Click(Sender: TObject);
private
fIsLabelSave: Boolean;
FSCXDH: string;
fOrdeNOIsAuto:string; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7>Զ<EFBFBD>
procedure InitData();
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
function SaveData(): Boolean;
function getOrderNo(fconNo: string): string;
procedure LookImage(FileName: string);
procedure InitDataSetDictionary();
function saveCopyRuleInfo(mPlanId: string): Boolean;
function getLabel(labelType:string=''):Boolean;
procedure initGrid();
function getOrderMakeType(): Boolean;
procedure threadLoadform();
{ Private declarations }
public
PState, CopyInt, PriceFlag: Integer;
FMainId, FFMainId, FOrderNo: string;
fCopyMainId:string;
FXS: Integer;
canshu1: string;
fFlileFlag: string;
{ Public declarations }
end;
var
frmTradePlanInPut: TfrmTradePlanInPut;
newh: hwnd;
implementation
uses
U_DataLink, U_TradeInspSet, U_ZDYHelp, U_RTFun, U_CompanySel,
U_FormLayOutDesign,U_cxGridCustomSet, U_PictureUpload,
U_ClothInfoSel, U_globalVar, U_UptPlanDataToRoll;
// getpic ,
{$R *.dfm}
function TfrmTradePlanInPut.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 Trade_Plan_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 Trade_Plan_Main where orderNo=' +
quotedstr(trim(str1)));
open;
end;
if ADOCmd.IsEmpty then
break;
end;
end;
result := str1;
end;
procedure TfrmTradePlanInPut.GildingPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
var
fsj: string;
FWZ: Integer;
begin
fsj := trim(TcxButtonEdit(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
TcxButtonEdit(Sender).Text :=
trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTradePlanInPut.TBCloseClick(Sender: TObject);
begin
close;
end;
procedure TfrmTradePlanInPut.InitData();
var
FDate: TDateTime;
begin
FDate := SGetServerDateTime(ADOTemp);
OrdDate.Date := FDate;
DLYDate.Date := FDate;
with ADOTemp do
begin
close;
sql.Clear;
sql.Add('select A.*,B.LabVolume,B.LabPackage from Trade_Plan_main A');
sql.Add('left join Trade_Cloth_Inspect_Rule B on B.RuleID=A.mainId');
sql.Add('where A.MainId=''' + trim(FMainId) + '''');
open;
end;
LSCSHData(ADOTemp, dxLayoutControl_bzplan, 2);
// OurCoName.TxtCode := Trim(ADOTemp.FieldByName('OurCoNo').AsString);
CustName.Properties.LookupItems.Text :=
trim(ADOTemp.fieldbyname('CustNo').AsString);
LabVolume.Text := trim(ADOTemp.fieldbyname('LabVolume').AsString);
LabPackage.Text := trim(ADOTemp.fieldbyname('LabPackage').AsString);
with ADOTemp do
begin
close;
sql.Clear;
sql.Add(' select * from Trade_Plan_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, CDS_1);
SInitCDSData(ADOTemp, CDS_1);
LSCSHData(ADOTemp, dxLayoutControl_bzplan, 7);
// Tv1.ApplyBestFit();
with ADOTemp do
begin
close;
sql.Clear;
sql.Add(' select * from Trade_Plan_Fty ');
sql.Add(' where MainId=''' + trim(FMainId) + '''');
// ShowMessage(SQL.Text);
open;
end;
SCreateCDS(ADOTemp, CDS_Fact);
SInitCDSData(ADOTemp, CDS_Fact);
if PState = 0 then
begin
OrdDate.Date := SGetServerDateTime(ADOTemp);
DLYDate.Date := OrdDate.Date;
if fOrdeNOIsAuto='1' then
begin
orderNo.Text:='<27>Զ<EFBFBD>';
orderNo.Enabled:=false;
end
else
begin
OrderNo.Text := '';
OrderNo.Enabled := True;
end;
end
else
begin
end;
if CopyInt = 99 then
begin
PState := 0;
FMainId := '';
if fOrdeNOIsAuto='1' then
begin
orderNo.Text:='<27>Զ<EFBFBD>';
orderNo.Enabled:=false;
end
else
begin
OrderNo.Text := '';
OrderNo.Enabled := True;
end;
OrdDate.Date := FDate;
try
CDS_1.DisableControls ;
with CDS_1 do
begin
First;
while not Eof do
begin
Edit;
fieldbyname('MainId').Value := '';
fieldbyname('SubId').Value := '';
Post;
Next;
end;
end;
finally
CDS_1.EnableControls;
end;
end;
end;
procedure TfrmTradePlanInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string);
var
FType, ZDYName, FText: string;
begin
end;
procedure TfrmTradePlanInPut.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
action:=cafree;
end;
procedure TfrmTradePlanInPut.FormCreate(Sender: TObject);
begin
inherited;
cxGrid1.Align := alClient;
getOrderMakeType();
if fOrdeNOIsAuto='1' then
orderNo.Enabled:=false;
end;
procedure TfrmTradePlanInPut.FormDestroy(Sender: TObject);
begin
inherited;
frmTradePlanInPut:=nil;
end;
procedure TfrmTradePlanInPut.FormShow(Sender: TObject);
var
thread: TThread;
begin
inherited;
cxPageControl1.Align := alClient;
cxPageControl1.ActivePageIndex:=0;
if PState = 5 then
begin
Tbcgs.Visible := false;
Tsj.Visible := false;
Tv1.OptionsData.Editing := false;
dxLayoutControl_bzplan.Enabled := false;
end;
OrderNo.Text := '';
fFlileFlag := UserDataFlag + 'HX';
thread:=TThread.CreateAnonymousThread(
procedure
begin
TThread.Synchronize(nil,
procedure
begin
readCxGrid(trim(SELF.Caption) + '-¼<>봰<EFBFBD><EBB4B0>', Tv1, gDllFileCaption);
getLabel();
end)
end);
thread.FreeOnTerminate := True;
thread.Start;
application.ProcessMessages;
InitData();
end;
procedure TfrmTradePlanInPut.FtyNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
var
fsj: string;
FWZ: Integer;
begin
fsj := trim(TEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
MainType := TEdit(Sender).Name;
if ShowModal = 1 then
begin
TEdit(Sender).Text := trim(ClientDataSet1.fieldbyname('ZDYName')
.AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
function TfrmTradePlanInPut.SaveData(): Boolean;
var
maxno, Smaxno, maxorderno, MaxFNo: string;
begin
try
result := false;
ADOCmd.Connection.BeginTrans;
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if trim(FMainId) = '' then
begin
if GetLSNo(ADOCmd, maxno, 'JM', 'Trade_Plan_Main', 3, 1) = false then
raise Exception.Create('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!');
if (trim(OrderNo.Text) = '') or (trim(OrderNo.Text) = '<27>Զ<EFBFBD>') then
OrderNo.Text := maxno;
end
else
begin
maxno := trim(FMainId);
end;
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('select * from Trade_Plan_Main where MainId=''' +
trim(FMainId) + '''');
open;
end;
with ADOCmd do
begin
if IsEmpty then
begin
Append;
fieldbyname('FillId').Value := trim(DCode);
fieldbyname('Filler').Value := trim(DName);
fieldbyname('status').Value := '0';
end
else
begin
Edit;
fieldbyname('EditId').Value := trim(DCode);
fieldbyname('Editer').Value := trim(DName);
fieldbyname('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
LRTSetsavedata(ADOCmd, 'Trade_Plan_Main', dxLayoutControl_bzplan, 2);
fieldbyname('MainId').Value := trim(maxno);
fieldbyname('CustNo').Value := trim(CustName.Properties.LookupItems.Text);
Post;
end;
/// ////////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD> ///////////////////////////
with CDS_1 do
begin
First;
while not Eof do
begin
if trim(CDS_1.fieldbyname('SubId').AsString) = '' then
begin
if GetLSNo(ADOCmd, Smaxno, 'JS', 'Trade_Plan_Sub', 4, 1) = false then
raise Exception.Create('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD><CAA7>!');
end
else
begin
Smaxno := trim(CDS_1.fieldbyname('SubId').AsString);
end;
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('select * from Trade_Plan_Sub where MainId=''' +
trim(maxno) + '''');
sql.Add(' and SubId=''' + trim(Smaxno) + '''');
open;
end;
with ADOCmd do
begin
if IsEmpty then
begin
Append;
fieldbyname('SubId').Value := trim(Smaxno);
end
else
Edit;
RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_Plan_Sub', 0);
RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_Plan_Sub', 9);
LRTSetsavedata(ADOCmd, 'Trade_Plan_Sub', dxLayoutControl_bzplan, 7);
fieldbyname('MainId').Value := trim(maxno);
fieldbyname('ConSId').Value :=
trim(CDS_1.fieldbyname('ConSId').AsString);
fieldbyname('ConMId').Value :=
trim(CDS_1.fieldbyname('ConMId').AsString);
Post;
// with CDS_1 do
// begin
// Edit;
// fieldbyname('SubId').Value := trim(Smaxno);
// Post;
// end;
end;
Next;
end;
end;
/// ////////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD> ///////////////////////////
/// ////////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD> ///////////////////////////
with CDS_Fact do
begin
First;
while not Eof do
begin
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('select * from Trade_Plan_Fty where MainId=''' +
trim(maxno) + '''');
open;
end;
with ADOCmd do
begin
if IsEmpty then
begin
if GetLSNo(ADOQueryBaseCmd, MaxFNo, 'JF', 'Trade_Plan_Fty', 4, 1) = false
then
raise Exception.Create('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD><CAA7>!');
Append;
fieldbyname('MainId').Value := trim(maxno);
fieldbyname('TPFId').Value := trim(MaxFNo);
end
else
Edit;
fieldbyname('ftyName').Value := trim(factoryName.Text);
fieldbyname('ftyNo').Value :=
trim(factoryName.Properties.LookupItems.Text);
// RTSetSaveDataCDS(ADOCmd, Tv2, CDS_Fact, 'Trade_Plan_Fty', 0);
Post;
with CDS_Fact do
begin
Edit;
fieldbyname('TPFId').Value := trim(MaxFNo);
Post;
end;
end;
Next;
end;
end;
/// ////////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD> ///////////////////////////
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('select * from Trade_Plan_Main where orderno=''' +
trim(OrderNo.Text) + '''');
open;
end;
if ADOCmd.RecordCount > 1 then
raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>!');
// <20>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('update Trade_Plan_Main SET status=''9'',chker=''' + trim(DName) +
''',Chktime=getdate() ');
sql.Add('where mainId='+quotedstr(maxno));
sql.Add('and status<''9''');
execsql;
end;
if not saveCopyRuleInfo(maxno) then
begin
// raise Exception.Create('<27><><EFBFBD>ƶ<EFBFBD><C6B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!');
end;
FMainId := trim(maxno);
ADOCmd.Connection.CommitTrans;
result := True;
except
ADOCmd.Connection.RollbackTrans;
Application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmTradePlanInPut.TBSaveClick(Sender: TObject);
var
MAXNO1: string;
begin
// if PState <> 1 then
// begin
OrdDate.SetFocus;
// end;
if not mustInCheck(application, dxLayoutControl_bzplan,PWideChar('*')) then
exit;
if (pos('*', dxLayoutItem1.Caption)>0) and (trim(OrderNo.Text) = '') then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
exit;
end;
// if trim(OrderNo.Text) = '' then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
// exit;
// end;
if CDS_1.IsEmpty then
begin
Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
exit;
end;
if not checkColumnMustIn(application,tv1,9) then exit;
if SaveData() then
begin
initGrid();
if not fIsLabelSave then
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
if PState=0 then PState:=1;
ModalResult := 1;
end;
end;
procedure TfrmTradePlanInPut.ToolButton1Click(Sender: TObject);
var
i: Integer;
begin
CopyAddRow(Tv1, CDS_1);
with CDS_1 do
begin
Edit;
fieldbyname('SSel').Value := false;
FieldByName('SerialNo').Value := CDS_1.RecordCount;
//FieldByName('c_Name').Value := '';
if trim(CDS_1.FieldByName('batchno').AsString)='' then
begin
FieldByName('C_Color').Value := '';
end
else
begin
FieldByName('batchno').Value := '';
FieldByName('FtyPCId').Value := '';
end;
// FieldByName('hxFile').Value := '';
// FieldByName('TPPS').Value := 0;
Post;
end;
end;
procedure TfrmTradePlanInPut.ToolButton2Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
exit;
if CDS_1.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;
try
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while Locate('SSel', True, []) do
begin
with ADOTemp do
begin
close;
sql.Clear;
sql.Add('select * from Trade_Cloth_Inspect where isnull(SubId,'''')<>'''' and SubId='''
+ trim(CDS_1.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(CDS_1.fieldbyname('SubId').AsString) <> '' then
begin
with ADOCmd do
begin
close;
sql.Clear;
// sql.Add('insert into Trade_Plan_Sub_Del select * from Trade_Plan_Sub where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + '''');
sql.Add('delete Trade_Plan_Sub where SubId=''' +
trim(CDS_1.fieldbyname('SubId').AsString) + '''');
execsql;
end;
end;
Delete;
end;
end;
finally
CDS_1.EnableControls;
end;
end;
procedure TfrmTradePlanInPut.ToolButton3Click(Sender: TObject);
begin
inherited;
if CDS_1.IsEmpty then
Exit;
OneKeyPost(Tv1, CDS_1);
end;
procedure TfrmTradePlanInPut.ToolButton4Click(Sender: TObject);
var
strResult:string;
k:integer;
col:integer;
fieldName:string;
begin
if CDS_1.IsEmpty then
begin
exit;
end;
col :=tv1.controller.focusedcolumnIndex;
if col<=0 then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(<28><><EFBFBD><EFBFBD><EFBFBD>е<EFBFBD>Ԫ<EFBFBD><D4AA>)<29><>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ',0);
exit;
end;
fieldName:=tv1.Columns[col+1].DataBinding.FieldName;
if fieldName='' then exit;
if InputQuery('','ǰ׺<C7B0>ַ<EFBFBD>:',strResult) then
begin
CDS_1.First;
k:=1;
while not CDS_1.eof do
begin
CDS_1.edit;
CDS_1.FieldByName(fieldName).value :=strResult+intTostr(k);
CDS_1.Post;
inc(k);
CDS_1.Next;
end;
end;
end;
procedure TfrmTradePlanInPut.TbcgsClick(Sender: TObject);
begin
WriteCxGrid(trim(SELF.Caption) + '-¼<>봰<EFBFBD><EBB4B0>', Tv1, gDllFileCaption);
end;
procedure TfrmTradePlanInPut.ToolButton5Click(Sender: TObject);
begin
try
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
with frmClothInfoSel do
begin
if ShowModal = 1 then
begin
while CDS_1.Locate('SSel', True, []) do
begin
if SELF.CDS_1.Locate('ConSubId',
trim(CDS_1.fieldbyname('SubId').AsString), []) then
begin
CDS_1.Edit;
CDS_1.fieldbyname('SSel').Value := false;
continue;
end;
with SELF.CDS_1 do
begin
Append;
fieldbyname('SSel').Value := false;
C_Code.Text := trim(frmClothInfoSel.CDS_1.fieldbyname('C_Code')
.AsString);
C_Name.Text := trim(frmClothInfoSel.CDS_1.fieldbyname('C_Name')
.AsString);
// C_Spec.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString);
// C_Composition.Text := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString);
C_Width.Text := trim(frmClothInfoSel.CDS_1.fieldbyname('C_Width')
.AsString);
C_GramWeight.Text :=
trim(frmClothInfoSel.CDS_1.fieldbyname('C_GramWeight').AsString);
// OrdUnit.ItemIndex := OrdUnit.Items.IndexOf(trim(frmClothInfoSel.CDS_1.fieldbyname('ConUnit').AsString));
fieldbyname('C_ColorNo').Value :=
trim(frmClothInfoSel.CDS_1.fieldbyname('C_ColorNo').AsString);
fieldbyname('C_Color').Value :=
trim(frmClothInfoSel.CDS_1.fieldbyname('C_Color').AsString);
fieldbyname('C_Pattern').Value :=
trim(frmClothInfoSel.CDS_1.fieldbyname('C_Pattern').AsString);
fieldbyname('OrdQty').Value := frmClothInfoSel.CDS_1.fieldbyname
('ConQty').AsFloat;
fieldbyname('DDQtyUnit').Value := frmClothInfoSel.CDS_1.fieldbyname
('SCSUnit').AsString;
fieldbyname('OrderUnit').Value :=
trim(frmClothInfoSel.CDS_1.fieldbyname('SCSUnit').AsString);
end;
CDS_1.Edit;
CDS_1.fieldbyname('SSel').Value := false;
end;
end;
end;
finally
frmClothInfoSel.Free;
end;
end;
procedure TfrmTradePlanInPut.ToolButton6Click(Sender: TObject);
var
FValue, FFValue, FColumn, FFColumn: string;
begin
inherited;
if CDS_1.IsEmpty then
Exit;
// FColumn:=tv1.Columns[Tv1.Controller.FocusedColumnIndex].DataBinding.FieldName;
// FFColumn:=Tv1.Columns[Tv1.Controller.FocusedColumnIndex].Summary.GroupFormat;
FColumn := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
FFColumn := Tv1.Controller.FocusedColumn.Summary.GroupFormat;
FValue := Trim(CDS_1.fieldByName(FColumn).AsString);
if Trim(FFColumn) <> '' then
begin
FFValue := Trim(CDS_1.fieldByName(FFColumn).AsString);
end;
with CDS_1 do
begin
DisableControls;
while not Eof do
begin
edit;
if FValue = '' then
begin
CDS_1.fieldByName(FColumn).Value := null;
end
else
begin
CDS_1.fieldByName(FColumn).Value := FValue;
end;
if Trim(FFColumn) <> '' then
begin
if FFValue = '' then
begin
CDS_1.fieldByName(FFColumn).Value := null;
end
else
begin
CDS_1.fieldByName(FFColumn).Value := FFValue;
end;
end;
post;
Next;
end;
EnableControls;
end;
end;
procedure TfrmTradePlanInPut.ToolButton7Click(Sender: TObject);
var
strResult:string;
k:integer;
col:integer;
fieldName:string;
begin
if CDS_1.IsEmpty then
begin
exit;
end;
col :=tv1.controller.focusedcolumnIndex;
if col<=0 then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(<28><><EFBFBD><EFBFBD><EFBFBD>е<EFBFBD>Ԫ<EFBFBD><D4AA>)<29><>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ',0);
exit;
end;
fieldName:=tv1.Columns[col+1].DataBinding.FieldName;
if fieldName='' then exit;
if InputQuery('','ǰ׺<C7B0>ַ<EFBFBD>:',strResult) then
begin
k:=1;
while not CDS_1.eof do
begin
CDS_1.edit;
CDS_1.FieldByName(fieldName).value :=strResult+intTostr(k);
CDS_1.Post;
inc(k);
CDS_1.Next;
end;
end;
end;
procedure TfrmTradePlanInPut.ToolButton8Click(Sender: TObject);
begin
if (Trim(FMainId)='') then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>ͼƬ!','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
Exit;
end;
try
frmPictureUpload := TfrmPictureUpload.Create(Application);
with frmPictureUpload do begin
fFlileFlag := self.fFlileFlag;
FWidth := 250;
FHeight := 300;
FTFType := 'HX';
FDataId := Trim(FMainId);
if ShowModal = 1 then begin
InitData();
end;
end;
finally
frmPictureUpload.Free;
end;
end;
procedure TfrmTradePlanInPut.TsjClick(Sender: TObject);
begin
saveLayOut(application,dxLayoutControl_bzplan, ADOQueryBaseCmd,
PWideChar( fDllFileName + '|' + SELF.Name + '|' + dxLayoutControl_bzplan.Name+ '.ini'));
end;
procedure TfrmTradePlanInPut.TupimageClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if (Trim(Self.CDS_1.fieldbyname('subId').AsString)='') then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>ͼƬ!','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
Exit;
end;
try
frmPictureUpload := TfrmPictureUpload.Create(Application);
with frmPictureUpload do begin
fFlileFlag := self.fFlileFlag;
FWidth := 250;
FHeight := 300;
FTFType := 'HX';
FDataId := Trim(Self.CDS_1.fieldbyname('subId').AsString);
if ShowModal = 1 then begin
InitData();
end;
end;
finally
frmPictureUpload.Free;
end;
end;
procedure TfrmTradePlanInPut.CustomerNoNamePropertiesButtonClick
(Sender: TObject; AButtonIndex: Integer);
begin
// try
// frmCompanySel := TfrmCompanySel.Create(Application);
// with frmCompanySel do
// begin
// FCoType := '<27>ͻ<EFBFBD>';
// if ShowModal = 1 then
// begin
// SELF.CustName.Properties.LookupItems.Text :=
// trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
// SELF.CustName.Text := trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName')
// .AsString);
// end;
// end;
//
// finally
// frmCompanySel.Free;
// end;
end;
procedure TfrmTradePlanInPut.cxDBImage1DblClick(Sender: TObject);
begin
if TcxDBImage(Sender).Picture.Height = 0 then
exit;
LookImage(Qry_ImgHX.fieldbyname(TcxDBImage(Sender).Hint).AsString);
end;
procedure TfrmTradePlanInPut.C_CodeBtnDnClick(Sender: TObject);
begin
// Self.C_Code.Text := '';
// Self.C_Name.Text := '';
// Self.C_Spec.Text := '';
// Self.C_Composition.Text := '';
// Self.C_Width.Text := '';
// Self.C_GramWeight.Text := '';
end;
procedure TfrmTradePlanInPut.LabPackageEnter(Sender: TObject);
begin
inherited;
cxPageControl1.ActivePageIndex := 1;
end;
procedure TfrmTradePlanInPut.LabVolumeEnter(Sender: TObject);
begin
inherited;
cxPageControl1.ActivePageIndex := 0;
end;
procedure TfrmTradePlanInPut.LabVolumePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
fIsLabelSave := True;
if trim(FMainId) = '' then
TBSave.Click;
if trim(FMainId) = '' then
exit;
frmTradeInspSet := TfrmTradeInspSet.Create(SELF);
with frmTradeInspSet do
begin
FDataID := trim(SELF.FMainId);
Tsave.Tag :=2;
if ShowModal = 1 then
begin
// InitDataSetDictionary();
SELF.LabVolume.Properties.LookupItems.Text := LabVolume.Text;
SELF.LabVolume.Text := LabVolume.Text;
SELF.LabPackage.Properties.LookupItems.Text := LabPackage.Text;
SELF.LabPackage.Text := LabPackage.Text;
getLabel();
TcxButtonEdit( Sender ).SetFocus ;
end;
Free;
end;
finally
fIsLabelSave := false;
end;
end;
procedure TfrmTradePlanInPut.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 TfrmTradePlanInPut.MenuItem1Click(Sender: TObject);
begin
SelOKNo(CDS_1,True);
end;
procedure TfrmTradePlanInPut.MenuItem2Click(Sender: TObject);
begin
SelOKNo(CDS_1,False);
end;
procedure TfrmTradePlanInPut.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.CDS_1.Edit;
SELF.CDS_1.fieldbyname(mvalues).Value :=
trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTradePlanInPut.v1OrderUnitPropertiesEditValueChanged
(Sender: TObject);
var
mvalue, FFieldName, YValue: string;
FDDQty, FCPCDXS, FQty, FDKCQty: Double;
begin
mvalue := TcxComboBox(Sender).EditingText; // <20>仯<EFBFBD><E4BBAF><EFBFBD><EFBFBD>λ
FFieldName := trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do
begin
Edit;
fieldbyname(FFieldName).Value := mvalue;
Post;
YValue := fieldbyname('DDQtyUnit').AsString; // ԭ<><D4AD>λ=<3D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ
FDDQty := fieldbyname('DDQty').AsFloat; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
FCPCDXS := fieldbyname('CPCDXS').AsFloat;
FDKCQty := fieldbyname('DKCQty').AsFloat;
FQty := fieldbyname('PRTOrderQty').AsFloat;
end;
if mvalue = 'Kg' then
begin
if YValue = 'Y' then
begin
FQty := FDDQty * 0.9144 / FCPCDXS;
end;
if YValue = 'M' then
begin
FQty := FDDQty / FCPCDXS;
end;
if YValue = 'Kg' then
begin
FQty := FDDQty;
end;
end;
if mvalue = 'M' then
begin
if YValue = 'Y' then
begin
FQty := FDDQty * 0.9144;
end;
if YValue = 'Kg' then
begin
FQty := FDDQty * FCPCDXS;
end;
if YValue = 'M' then
begin
FQty := FDDQty;
end;
end;
if mvalue = 'Y' then
begin
if YValue = 'M' then
begin
FQty := FDDQty / 0.9144;
end;
if YValue = 'Kg' then
begin
FQty := FDDQty * FCPCDXS / 0.9144;
end;
if YValue = 'Y' then
begin
FQty := FDDQty;
end;
end;
with CDS_1 do
begin
Edit;
fieldbyname('PRTOrderQty').Value := FQty - FDKCQty;
Post;
end;
Tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmTradePlanInPut.v1OrdUnitPropertiesButtonClick(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.CDS_1.Edit;
SELF.CDS_1.fieldbyname('OrdUnit').Value :=
trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTradePlanInPut.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.CDS_1.Edit;
SELF.CDS_1.fieldbyname('PriceUnit').Value :=
trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTradePlanInPut.v1PRTCodeNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
inherited;
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'PRTCodeName';
flagname := '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
SELF.CDS_1.Edit;
SELF.CDS_1.fieldbyname('c_code').Value :=
trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
SELF.CDS_1.fieldbyname('c_name').Value :=
trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTradePlanInPut.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 TfrmTradePlanInPut.N1Click(Sender: TObject);
begin
if CDS_Fact.IsEmpty then
exit;
if trim(CDS_Fact.fieldbyname('TPFId').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 Trade_Plan_Fty where TPFId=''' +
trim(CDS_Fact.fieldbyname('TPFId').AsString) + '''');
execsql;
end;
end;
CDS_Fact.Delete;
end;
procedure TfrmTradePlanInPut.N3Click(Sender: TObject);
var
i: Integer;
begin
i := CDS_Fact.RecordCount + 1;
with CDS_Fact do
begin
Append;
fieldbyname('SerialNo').Value := i;
Post;
end;
end;
procedure TfrmTradePlanInPut.ScrollBox1Click(Sender: TObject);
begin
OrdDate.SetFocus;
end;
procedure TfrmTradePlanInPut.OurCoNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmTradePlanInPut.OurCoNameBtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '<27><>˾';
if ShowModal = 1 then
begin
// self.OurCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
// self.OurCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTradePlanInPut.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
fnote := True;
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 TfrmTradePlanInPut.Tv1Column4PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
frmClothInfoSel := TfrmClothInfoSel.Create(SELF);
with frmClothInfoSel do
begin
if ShowModal = 1 then
begin
CDS_1.Edit;
CDS_1.fieldbyname('MPRTCode').Value := CDS_1.fieldbyname('CYNO').AsString;
CDS_1.fieldbyname('MPRTCodeName').Value :=
CDS_1.fieldbyname('CYName').AsString;
CDS_1.fieldbyname('MPRTSpec').Value :=
CDS_1.fieldbyname('CYSpec').AsString;
CDS_1.fieldbyname('MPRTCF').Value := CDS_1.fieldbyname('CYCF').AsString;
CDS_1.fieldbyname('PRTColor').Value :=
CDS_1.fieldbyname('CYColor').AsString;
CDS_1.fieldbyname('PRTHX').Value := CDS_1.fieldbyname('CYHX').AsString;
CDS_1.fieldbyname('MPRTMF').Value := CDS_1.fieldbyname('CYMF').AsString;
CDS_1.fieldbyname('MPRTKZ').Value := CDS_1.fieldbyname('CYKZ').AsString;
CDS_1.fieldbyname('OrderUnit').Value :=
CDS_1.fieldbyname('CYPUnit').AsString;
CDS_1.fieldbyname('SuoLv').Value := CDS_1.fieldbyname('SuoLv').AsString;
CDS_1.fieldbyname('GcHuaNo').Value := CDS_1.fieldbyname('GcHua').AsString;
CDS_1.fieldbyname('GsHuaNo').Value := CDS_1.fieldbyname('GsHua').AsString;
CDS_1.Post;
end;
Free;
end;
end;
procedure TfrmTradePlanInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// InitImageHX();
end;
procedure TfrmTradePlanInPut.Tv1SLabPackagePropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
inherited;
try
// fIsLabelSave := true;
frmTradeInspSet := TfrmTradeInspSet.Create(SELF);
with frmTradeInspSet do
begin
FDataID := trim(SELF.FMainId);
fSubUseFlag:=true;
if ShowModal = 1 then
begin
SELF.CDS_1.Edit;
SELF.CDS_1.fieldbyname('SLabPackage').Value :=
trim(CDS_Label.fieldbyname('labelCaption').AsString);
// getLabel();
end;
Free;
end;
finally
// fIsLabelSave := false;
end;
end;
procedure TfrmTradePlanInPut.Tv1SLabVolumePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
inherited;
try
frmTradeInspSet := TfrmTradeInspSet.Create(SELF);
with frmTradeInspSet do
begin
FDataID := trim(SELF.FMainId);
fSubUseFlag:=true;
if ShowModal = 1 then
begin
SELF.CDS_1.Edit;
SELF.CDS_1.fieldbyname('SLabVolume').Value :=
trim(CDS_Label.fieldbyname('labelCaption').AsString);
// getLabel();
end;
Free;
end;
finally
//fIsLabelSave := false;
end;
end;
procedure TfrmTradePlanInPut.TV2Column1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
fnote := True;
flag := 'Technics';
flagname := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
CDS_Fact.Edit;
CDS_Fact.fieldbyname('Technics').Value :=
trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTradePlanInPut.TV2Column5PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
fnote := True;
flag := 'GDY';
flagname := '<27><><EFBFBD><EFBFBD>Ա';
if ShowModal = 1 then
begin
CDS_Fact.Edit;
CDS_Fact.fieldbyname('SJGDY').Value :=
trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTradePlanInPut.V2Column1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '<27><>Ӧ<EFBFBD><D3A6>';
if ShowModal = 1 then
begin
CDS_Fact.Edit;
CDS_Fact.fieldbyname('FtyNo').Value :=
trim(CDS_1.fieldbyname('CoCode').AsString);
CDS_Fact.fieldbyname('FtyName').Value :=
trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTradePlanInPut.v1AttNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
inherited;
Tupimage.Click;
end;
procedure TfrmTradePlanInPut.v1Column5PropertiesEditValueChanged
(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do
begin
Edit;
fieldbyname(FFieldName).Value := mvalue;
fieldbyname('MGMainId').Value := '';
Post;
end;
Tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmTradePlanInPut.v1C_ColorPropertiesButtonClick(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.CDS_1.Edit;
SELF.CDS_1.fieldbyname('c_color').Value :=
trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
SELF.CDS_1.fieldbyname('c_ecolor').Value :=
trim(ClientDataSet1.fieldbyname('Note').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTradePlanInPut.ButtonEdit(Sender: TObject;
AButtonIndex: Integer);
begin
inherited;
Tupimage.Click;
end;
procedure TfrmTradePlanInPut.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 TfrmTradePlanInPut.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;
procedure TfrmTradePlanInPut.InitDataSetDictionary();
begin
with ADOQuery_label do
begin
close;
sql.Clear;
sql.Add('exec P_Print_RollLabel');
sql.Add('@MJID='''' ');
sql.Add(',@Flag=''1'' ');
open;
end;
end;
/// //////////////////////////////////
///
function TfrmTradePlanInPut.saveCopyRuleInfo(mPlanId: string): Boolean;
var
MaxId, MaxSubId, FCoCode, FCCID, MaxCFID: string;
i:integer;
begin
result := false;
try
if trim(mPlanId) = '' then
begin
exit;
end
else
begin
MaxId := trim(mPlanId);
end;
///////////////////////////////////////////
with ADOQueryBaseTemp do
begin
close;
sql.clear;
sql.Add('select * from Trade_Cloth_Inspect_Rule where RuleID=''' +trim(fCopyMainId) + '''');
open;
if IsEmpty then exit;
end;
with ADOQueryBaseCmd do
begin
close;
sql.Clear;
sql.Add('select * from Trade_Cloth_Inspect_Rule where RuleID=''' +
trim(mPlanId) + '''');
open;
end;
with ADOQueryBaseCmd do
begin
if IsEmpty then
begin
Append;
end
else
begin
Edit;
fieldbyname('Editer').Value := trim(DName);
fieldbyname('Edittime').Value := now;
end;
//////////////
for i := 0 to ADOQueryBaseTemp.Fields.Count -1 do
begin
if (lowercase(ADOQueryBaseTemp.Fields[i].FieldName)<>'ruleid') then
begin
fields[i].Value:= ADOQueryBaseTemp.Fields[i].Value;
end;
end;
fieldbyname('RuleID').Value := trim(mPlanId);
fieldbyname('Filler').Value := trim(DName);
fieldbyname('Editer').Value := '';
fieldbyname('Edittime').Value := null;
Post;
end;
FCCID := trim(MaxSubId);
result := True;
except
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣!', '<27><>ʾ', 0);
end;
end;
function TfrmTradePlanInPut.getLabel(labelType:string=''):Boolean;
var
mLblFile:String;
begin
if TRIM(LabVolume.Text)<>'' then
begin
ExportFtErpFile(TRIM(LabVolume.Text) + '.rmf', ADOQueryBaseTemp);
mLblFile := ExtractFilePath(Application.ExeName) + 'Report\' + TRIM(LabVolume.Text)+ '.rmf';
if not FileExists(mLblFile) then
CopyFile(PChar(ExtractFilePath(Application.ExeName) + 'Report\ģ<><C4A3><EFBFBD><EFBFBD>ǩ.rmf'), PChar(mLblFile), False);
with RMGridReport1 do
begin
LoadFromFile(mLblFile);
//Preview := RMPreview1;
ShowReport;
end;
end
else
begin
RMGridReport1.Clear;
end;
if TRIM(LabPackage.Text)<>'' then
begin
ExportFtErpFile(TRIM(LabPackage.Text) + '.rmf', ADOQueryBaseTemp);
mLblFile := ExtractFilePath(Application.ExeName) + 'Report\' + TRIM(LabPackage.Text)+ '.rmf';
if not FileExists(mLblFile) then
CopyFile(PChar(ExtractFilePath(Application.ExeName) + 'Report\ģ<><C4A3><EFBFBD><EFBFBD>ǩ.rmf'), PChar(mLblFile), False);
with RMGridReport2 do
begin
LoadFromFile(mLblFile);
// Preview := RMPreview2;
ShowReport;
end;
end
else
begin
RMGridReport2.Clear;
end;
end;
//**
procedure TfrmTradePlanInPut.initGrid();
begin
with ADOTemp do
begin
close;
sql.Clear;
sql.Add(' select * from Trade_Plan_Sub where 1=1 ');
sql.Add(' and MainId=''' + trim(FMainId) + '''');
open;
end;
try
dxLayoutControl_bzplan.BeginUpdate ;
tv1.BeginUpdate() ;
SCreateCDS(ADOTemp, CDS_1);
SInitCDSData(ADOTemp, CDS_1);
LSCSHData(ADOTemp, dxLayoutControl_bzplan, 7);
finally
dxLayoutControl_bzplan.EndUpdate();
tv1.EndUpdate ;
end;
end;
///////////////////////////////////////////////
function TfrmTradePlanInPut.getOrderMakeType(): Boolean;
begin
result := false;
fOrdeNOIsAuto:='';
//////////////////////////////
try
with DataLink_TradePlan.AdoDataLink do
begin
close;
sql.Clear;
sql.Add('select * from sd_erp_dll_params');
sql.Add('where dll_name='+quotedstr('djdPackPlan.dll'));
sql.Add('and set_item='+quotedstr('order_auto'));
sql.Add('and valid=1');
open;
if recordCount>0 then
fOrdeNOIsAuto := trim(fieldByName('set_value').AsString);
end;
except
end;
result := true;
end;
////////////////////////////////////////////////
procedure TfrmTradePlanInPut.threadLoadform();
begin
end;
end.
Reference in New Issue Copy Permalink