Group_01/D7wmguihua
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
b4b5840f18
D7wmguihua/桂华管理系统/U_ProductOrderAnPaiGQX.pas

2139 lines
65 KiB
ObjectPascal
Raw Normal View History

1
2025-01-18 16:22:10 +08:00
unit U_ProductOrderAnPaiGQX;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxPC, BtnEdit, cxTextEdit, cxButtonEdit, cxDropDownEdit, MovePanel;
type
TfrmProductOrderAnPaiGQX = class(TForm)
ToolBar1: TToolBar;
TBPrint: TToolButton;
TBClose: TToolButton;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
TBExport: TToolButton;
Order_Main: TClientDataSet;
RM1: TRMGridReport;
RMDBMain: TRMDBDataSet;
RMXLSExport1: TRMXLSExport;
PopupMenu1: TPopupMenu;
N2: TMenuItem;
ToolButton1: TToolButton;
DataSource2: TDataSource;
CDS_Sub: TClientDataSet;
Panel2: TPanel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
V2Column1: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
ToolBar2: TToolBar;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ADOQueryPrint: TADOQuery;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
v1ConNo: TcxGridDBColumn;
v1OrdDefStr1: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
v1OrdPerson1: TcxGridDBColumn;
v1JGFactoryName: TcxGridDBColumn;
v1OrdDate: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
v1MPRTCodeName: TcxGridDBColumn;
v1MPRTSpec: TcxGridDBColumn;
v1MPRTCF: TcxGridDBColumn;
v1MPRTMF: TcxGridDBColumn;
v1MPRTKZ: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
V2Column2: TcxGridDBColumn;
V2Column3: TcxGridDBColumn;
V2Column4: TcxGridDBColumn;
Panel1: TPanel;
Label3: TLabel;
OrderNoM: TEdit;
cxGrid4: TcxGrid;
Tv4: TcxGridDBTableView;
v4Column1: TcxGridDBColumn;
v4Column2: TcxGridDBColumn;
cxGrid4Level1: TcxGridLevel;
CDS_OrderNo: TClientDataSet;
DS_OrderNo: TDataSource;
V2Column5: TcxGridDBColumn;
V2Column6: TcxGridDBColumn;
V2Column7: TcxGridDBColumn;
V2Column8: TcxGridDBColumn;
V2Column9: TcxGridDBColumn;
ToolButton4: TToolButton;
ADOQueryHC: TADOQuery;
Panel3: TPanel;
DateTimePicker1: TDateTimePicker;
BtnEditA1: TBtnEditA;
ComboBox1: TComboBox;
BtnEditA2: TBtnEditA;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
BtnEditA3: TBtnEditA;
Label6: TLabel;
V2Column10: TcxGridDBColumn;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
V2Column11: TcxGridDBColumn;
BtnEditA4: TBtnEditA;
Label7: TLabel;
v1Column1: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
cxGridPopupMenu2: TcxGridPopupMenu;
v1Column5: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
ToolButton9: TToolButton;
v1Column8: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
ToolButton10: TToolButton;
V2Column12: TcxGridDBColumn;
MovePanel2: TMovePanel;
ToolButton11: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBTPClick(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);
procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure AOrdDefNote12DblClick(Sender: TObject);
procedure AOrdDefNote7BtnDnClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure OrderNoMChange(Sender: TObject);
procedure Tv4DblClick(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
procedure V2Column1PropertiesEditValueChanged(Sender: TObject);
procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject);
procedure V2Column4PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure V2Column5PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure V2Column6PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure V2Column8PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure ToolButton4Click(Sender: TObject);
procedure BtnEditA1BtnClick(Sender: TObject);
procedure BtnEditA2BtnClick(Sender: TObject);
procedure BtnEditA3BtnClick(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure BtnEditA4BtnClick(Sender: TObject);
procedure V2Column11PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
private
DQdate:TDateTime;
procedure InitGrid();
procedure InitForm();
function DelData():Boolean;
procedure InitGridFH();
function SaveData():Boolean;
procedure UpdateHC(FFirstNo:String);
function YFData():Boolean;
function DELYFData():Boolean;
{ Private declarations }
public
FFInt:Integer;
{ Public declarations }
end;
var
frmProductOrderAnPaiGQX: TfrmProductOrderAnPaiGQX;
implementation
uses
U_DataLink,U_OrderInPut,U_Fun, U_ZDYHelp,U_iniParam, U_ZDYHelpSel,U_BefChkHX;
{$R *.dfm}
procedure TfrmProductOrderAnPaiGQX.FormDestroy(Sender: TObject);
begin
frmProductOrderAnPaiGQX:=nil;
end;
procedure TfrmProductOrderAnPaiGQX.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmProductOrderAnPaiGQX.FormCreate(Sender: TObject);
begin
//BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7;
//EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
DQdate:=SGetServerDate(ADOQueryTemp);
end;
procedure TfrmProductOrderAnPaiGQX.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('ָʾ<D6B8><CABE><EFBFBD><EFBFBD>Ϣ',Tv1,'<27>زֹ<D8B2><D6B9><EFBFBD>');
WriteCxGrid('<27>ز<EFBFBD><D8B2><EFBFBD>Ϣ',Tv2,'<27>زֹ<D8B2><D6B9><EFBFBD>');
end;
procedure TfrmProductOrderAnPaiGQX.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrder_Sub_AnPai where LLId='''+Trim(Order_Main.fieldbyname('LLId').AsString)+'''');
Open;
end;
SCreateCDS20(ADOQueryMain,CDS_Sub);
SInitCDSData20(ADOQueryMain,CDS_Sub);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmProductOrderAnPaiGQX.InitGridFH();
begin
end;
procedure TfrmProductOrderAnPaiGQX.InitForm();
var
i:Integer;
begin
DateTimePicker1.DateTime:=SGetServerDateTime(ADOQueryTemp);
ReadCxGrid('ָʾ<D6B8><CABE><EFBFBD><EFBFBD>Ϣ',Tv1,'<27>زֹ<D8B2><D6B9><EFBFBD>');
ReadCxGrid('<27>ز<EFBFBD><D8B2><EFBFBD>Ϣ',Tv2,'<27>زֹ<D8B2><D6B9><EFBFBD>');
end;
function TfrmProductOrderAnPaiGQX.DelData():Boolean;
begin
try
Result:=false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete JYOrder_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
Open;
if IsEmpty then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
ExecSQL;
end;
end;
end;
if Trim(Order_Main.fieldbyname('SubId').AsString)='' then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
ExecSQL;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Result:=True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result:=False;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>쳣<EFBFBD><ECB3A3>','<27><>ʾ',0);
end;
end;
procedure TfrmProductOrderAnPaiGQX.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then Exit;
SelExportData(Tv1,ADOQueryMain,'<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD>б<EFBFBD>');
end;
procedure TfrmProductOrderAnPaiGQX.TBPrintClick(Sender: TObject);
var
fPrintFile:string;
Porderno:string;
begin
if Order_Main.IsEmpty then Exit;
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\<5C>ɹ<EFBFBD><C9B9><EFBFBD>.rmf' ;
SDofilter(ADOQueryMain,' OrderNoM='''+Trim(Order_Main.fieldbyname('OrderNoM').AsString)+'''');
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
Porderno:=Trim(Order_Main.fieldbyname('OrderNoM').AsString);
if FileExists(fPrintFile) then
begin
//RMVariables['begindate']:=begindate.DateTime;
//RMVariables['enddate']:=enddate.DateTime;
//RMVariables['printtime']:=Now;
//RMVariables['printer']:=Trim(gUserName);
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+ExtractFilePath(Application.ExeName)+'Report\<5C><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE>10.rmf'),'<27><>ʾ',0);
end;
SDofilter(ADOQueryMain,'');
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
Order_Main.Locate('ordernoM',Porderno,[]);
//SelPrintData(TV4,ADOQueryMain,'<27><>ͬ<EFBFBD><CDAC>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>');
end;
procedure TfrmProductOrderAnPaiGQX.FormShow(Sender: TObject);
begin
InitForm();
end;
procedure TfrmProductOrderAnPaiGQX.TBTPClick(Sender: TObject);
var
FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String;
begin
end;
procedure TfrmProductOrderAnPaiGQX.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmProductOrderAnPaiGQX.Tv1StylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
id,id10:Integer;
begin
{try
if Tv1.GroupedItemCount=0 then
begin
Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount;
Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount;
if Trim(VarToStr(ARecord.Values[id]))='' then Exit;
if Id<0 then Exit;
if ARecord.Values[id10]='<27><><EFBFBD><EFBFBD>' then exit;
if (ARecord.Values[id]-DQdate)>=4 then Exit;
if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then
AStyle:=DataLink_.QHuangSe
else
if ARecord.Values[id]-DQdate<0 then
begin
AStyle:=DataLink_OrderManage.FenHongS;
end;
end else
begin
end;
except
end; }
end;
procedure TfrmProductOrderAnPaiGQX.v1DeliveryDateCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
{ Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount;
Id10:=TV1.GetColumnByFieldName('SubStatus').Index;
if Id<0 then Exit;
if AViewInfo.GridRecord.Values[Id10]='<27><><EFBFBD><EFBFBD>' then Exit;
if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit;
if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then
ACanvas.Brush.Color:=clYellow
else
if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then
begin
ACanvas.Brush.Color:=clRed;
end;
begin
ACanvas.Brush.Color:=clRed;
end else
if AViewInfo.GridRecord.Values[Id]='Purple' then
begin
ACanvas.Brush.Color:=clPurple;
end else
if AViewInfo.GridRecord.Values[Id]='Olive' then
begin
ACanvas.Brush.Color:=clOlive;
end else
if AViewInfo.GridRecord.Values[Id]='Teal' then
begin
ACanvas.Brush.Color:=clTeal;
end else
if AViewInfo.GridRecord.Values[Id]='Background' then
begin
ACanvas.Brush.Color:=clBackground;
end; }
end;
procedure TfrmProductOrderAnPaiGQX.N1Click(Sender: TObject);
var
fPrintFile:string;
Porderno:string;
begin
if Order_Main.IsEmpty then Exit;
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE>10.rmf' ;
SDofilter(ADOQueryMain,' OrderNoM='''+Trim(Order_Main.fieldbyname('OrderNoM').AsString)+'''');
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
Porderno:=Trim(Order_Main.fieldbyname('OrderNoM').AsString);
if FileExists(fPrintFile) then
begin
//RMVariables['begindate']:=begindate.DateTime;
//RMVariables['enddate']:=enddate.DateTime;
//RMVariables['printtime']:=Now;
//RMVariables['printer']:=Trim(gUserName);
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+ExtractFilePath(Application.ExeName)+'Report\<5C><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE>10.rmf'),'<27><>ʾ',0);
end;
SDofilter(ADOQueryMain,'');
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
Order_Main.Locate('ordernoM',Porderno,[]);
end;
procedure TfrmProductOrderAnPaiGQX.N2Click(Sender: TObject);
var
fPrintFile:string;
Porderno:string;
begin
if Order_Main.IsEmpty then Exit;
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE>.rmf' ;
SDofilter(ADOQueryMain,' OrderNoM='''+Trim(Order_Main.fieldbyname('OrderNoM').AsString)+'''');
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
Porderno:=Trim(Order_Main.fieldbyname('OrderNoM').AsString);
if FileExists(fPrintFile) then
begin
//RMVariables['begindate']:=begindate.DateTime;
//RMVariables['enddate']:=enddate.DateTime;
//RMVariables['printtime']:=Now;
//RMVariables['printer']:=Trim(gUserName);
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+ExtractFilePath(Application.ExeName)+'Report\<5C><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE>.rmf'),'<27><>ʾ',0);
end;
SDofilter(ADOQueryMain,'');
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
Order_Main.Locate('ordernoM',Porderno,[]);
end;
procedure TfrmProductOrderAnPaiGQX.ToolButton1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then Exit;
try
frmOrderInPut:=TfrmOrderInPut.Create(Application);
with frmOrderInPut do
begin
PState:=1;
FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
ToolBar2.Visible:=False;
TBSave.Visible:=False;
Tv1.OptionsSelection.CellSelect:=False;
if ShowModal=1 then
begin
end;
end;
finally
frmOrderInPut.Free;
end;
end;
procedure TfrmProductOrderAnPaiGQX.ToolButton2Click(Sender: TObject);
begin
with CDS_Sub do
begin
Append;
FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString);
FieldByName('ADefDate1').Value:=DateTimePicker1.Date;
FieldByName('AOrddefstr4').Value:=Trim(BtnEditA1.Text);
FieldByName('AOrddefstr5').Value:=Trim(BtnEditA1.TxtCode);
FieldByName('AOrddefstr2').Value:=Trim(ComboBox1.Text);
FieldByName('AOrddefstr3').Value:=Trim(BtnEditA2.Text);
FieldByName('AOrdDefNote1').Value:=Trim(BtnEditA3.Text);
FieldByName('AOrddefstr6').Value:=Trim(BtnEditA4.Text);
Post;
end;
end;
procedure TfrmProductOrderAnPaiGQX.ToolButton3Click(Sender: TObject);
begin
if CDS_Sub.IsEmpty then Exit;
if Trim(CDS_Sub.fieldbyname('APID').AsString)<>'' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select Top 1* from WFB_MJJY where APID='''+Trim(CDS_Sub.fieldbyname('APID').AsString)+'''');
Open;
end;
if ADOQueryTemp.IsEmpty=False then
begin
Application.MessageBox('<27>Ѳ<EFBFBD><D1B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>ɾ<EFBFBD><C9BE>!','<27><>ʾ',0);
Exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete JYOrder_Sub_AnPai where APID='''+Trim(CDS_Sub.fieldbyname('APID').AsString)+'''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate Contract_Cloth_LL Set HCPS=(select isnull(sum(AOrdQty2),0) from JYOrder_Sub_AnPai A where A.LLID=Contract_Cloth_LL.LLID )');
sql.Add(',HCMQty=(select isnull(sum(HCMQty),0) from JYOrder_Sub_AnPai A where A.LLID=Contract_Cloth_LL.LLID )');
sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+'''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update Contract_Cloth_LL Set HCQty=HCMQty*1.00/TPMQty*TPQty ');
sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+'''');
ExecSQL;
end;
if DELYFData()=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
end;
end;
with CDS_Sub do
begin
Delete;
end;
if CDS_Sub.IsEmpty then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate JYOrder_Sub Set SOrdFlag20=0 where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
ExecSQL;
end;
end;
{with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('UPdate Contract_Cloth_LL Set HCPS=0,HCQty=0,HCMQty=0 where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
ExecSQL;
end;
with ADOQueryHC do
begin
Close;
sql.Clear;
sql.Add('select distinct(AOrddefstr5) AOrddefstr5 from JYOrder_Sub_AnPai where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
Open;
end;
if ADOQueryHC.IsEmpty then
UpdateHC(Trim(ADOQueryHC.fieldbyname('AOrddefstr5').AsString))
else
begin
with ADOQueryHC do
begin
First;
while not Eof do
begin
UpdateHC(Trim(ADOQueryHC.fieldbyname('AOrddefstr5').AsString));
Next;
end;
end;
end; }
end;
function TfrmProductOrderAnPaiGQX.SaveData():Boolean;
var
maxno:String;
begin
try
ADOQueryCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>
with CDS_Sub do
begin
First;
while not Eof do
begin
if Trim(CDS_Sub.fieldbyname('APId').AsString)='' then
begin
if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Sub_AnPai',3,1)=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
end else
begin
maxno:=Trim(CDS_Sub.fieldbyname('APId').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from JYOrder_Sub_AnPai where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+'''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_Sub.fieldbyname('APId').AsString)='' then
Append
else
Edit;
FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString);
FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString);
FieldByName('ApId').Value:=Trim(maxno);
FieldByName('ADefDate1').Value:=CDS_Sub.fieldbyname('ADefDate1').Value;
FieldByName('AOrddefstr4').Value:=Trim(Order_Main.fieldbyname('FirstName').AsString);
FieldByName('AOrddefstr5').Value:=Trim(Order_Main.fieldbyname('FirstNo').AsString);
FieldByName('GangNo').Value:=CDS_Sub.fieldbyname('GangNo').Value;
FieldByName('AOrddefstr1').Value:=CDS_Sub.fieldbyname('AOrddefstr1').Value;
FieldByName('AOrddefstr2').Value:=CDS_Sub.fieldbyname('AOrddefstr2').Value;
if Trim(CDS_Sub.fieldbyname('ZSXS').AsString)<>'' then
FieldByName('ZSXS').Value:=CDS_Sub.fieldbyname('ZSXS').Value
else
FieldByName('ZSXS').Value:=1;
FieldByName('AOrdQty2').Value:=CDS_Sub.fieldbyname('AOrdQty2').Value;
FieldByName('AOrdQty1').Value:=CDS_Sub.fieldbyname('AOrdQty1').Value;
FieldByName('AOrddefstr3').Value:=CDS_Sub.fieldbyname('AOrddefstr3').Value;
FieldByName('AOrdDefNote1').Value:=CDS_Sub.fieldbyname('AOrdDefNote1').Value;
FieldByName('LLID').Value:=Order_Main.fieldbyname('LLID').Value;
FieldByName('AOrddefstr6').Value:=CDS_Sub.fieldbyname('AOrddefstr6').Value;
if CDS_Sub.fieldbyname('AOrdFlag1').AsBoolean=True then
FieldByName('AOrdFlag1').Value:=1
else
FieldByName('AOrdFlag1').Value:=0;
//RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_Sub,'JYOrder_Sub_AnPai',0);
{if Trim(CDS_Sub.fieldbyname('APID').AsString)<>'' then
begin
FieldByName('Editer').Value:=Trim(DName);
FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp);
end else
begin
end; }
if Trim(CDS_Sub.fieldbyname('APId').AsString)='' then
FieldByName('Filler').Value:=Trim(DName)
else
begin
FieldByName('Editer').Value:=Trim(DName);
FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp);
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select Top 1* from Contract_Cloth_LL where LLId='''+Trim(Order_Main.fieldbyname('LLId').AsString)+'''');
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('TPUnit').AsString)=Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString) then
begin
FieldByName('HCYZQty').Value:=CDS_Sub.fieldbyname('AOrdQty1').Value;
end else
begin
if Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString)='M' then
begin
FieldByName('HCYZQty').Value:=(CDS_Sub.fieldbyname('AOrdQty1').Value*1.00/ADOQueryTemp.fieldbyname('TPMQty').Value)
*ADOQueryTemp.fieldbyname('TPQty').Value ;
end;
end;
if Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString)='M' then
begin
FieldByName('HCMQty').Value:=CDS_Sub.fieldbyname('AOrdQty1').Value;
end else
begin
FieldByName('HCMQty').Value:=CDS_Sub.fieldbyname('AOrdQty1').Value*CDS_Sub.fieldbyname('ZSXS').Value;
end;
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate JYOrder_Sub Set SOrdFlag20=1 where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
ExecSQL;
end;
CDS_Sub.Edit;
CDS_Sub.FieldByName('APId').Value:=Trim(maxno);
CDS_Sub.FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString);
//Order_Sub.Post;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' UPdate WFB_MJJY Set MJTypeOther='''+Trim(CDS_Sub.fieldbyname('AOrddefstr3').AsString)+'''');
SQL.Add(' where APId='''+Trim(maxno)+'''');
sql.Add(' UPdate CK_BanCP_KC Set KCQtyUnit='''+Trim(CDS_Sub.fieldbyname('AOrddefstr3').AsString)+'''');
SQL.Add(' where MJId in (select MJID from WFB_MJJY where APID='''+Trim(maxno)+''')');
sql.Add(' UPdate CK_BanCP_CR Set QtyUnit='''+Trim(CDS_Sub.fieldbyname('AOrddefstr3').AsString)+'''');
SQL.Add(' where MJId in (select MJID from WFB_MJJY where APID='''+Trim(maxno)+''')');
ExecSQL;
end;
if YFData()=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD>²<EFBFBD><C2B2><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end;
Next;
end;
end;
{ with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('UPdate Contract_Cloth_LL Set HCPS=0,HCQty=0,HCMQty=0 where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
ExecSQL;
end;
with ADOQueryHC do
begin
Close;
sql.Clear;
sql.Add('select distinct(AOrddefstr5) AOrddefstr5 from JYOrder_Sub_AnPai where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
Open;
end;
with ADOQueryHC do
begin
First;
while not Eof do
begin
UpdateHC(Trim(ADOQueryHC.fieldbyname('AOrddefstr5').AsString));
Next;
end;
end; }
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate Contract_Cloth_LL Set HCPS=(select isnull(sum(AOrdQty2),0) from JYOrder_Sub_AnPai A where A.LLID=Contract_Cloth_LL.LLID )');
sql.Add(',HCMQty=(select isnull(sum(HCMQty),0) from JYOrder_Sub_AnPai A where A.LLID=Contract_Cloth_LL.LLID )');
sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+'''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
if (Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString)=Trim(Order_Main.fieldbyname('TPUnit').AsString)) then
sql.Add('Update Contract_Cloth_LL Set HCQty=(select isnull(Sum(AOrdQty1),0) from JYOrder_Sub_AnPai A where A.LLID=Contract_Cloth_LL.LLID) ')
else
sql.Add('Update Contract_Cloth_LL Set HCQty=HCMQty*1.00/TPMQty*TPQty ');
sql.Add(' where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+'''');
ExecSQL;
end;
{if YFData()=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD>²<EFBFBD><C2B2><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end; }
ADOQueryCmd.Connection.CommitTrans;
Result:=True;
except
Result:=False;
MovePanel2.Visible:=False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣<EFBFBD><ECB3A3>','<27><>ʾ',0);
end;
end;
procedure TfrmProductOrderAnPaiGQX.AOrdDefNote12DblClick(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 TfrmProductOrderAnPaiGQX.AOrdDefNote7BtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text:='';
TBtnEditC(Sender).TxtCode:='';
end;
procedure TfrmProductOrderAnPaiGQX.cxTabControl1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmProductOrderAnPaiGQX.ToolButton5Click(Sender: TObject);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='WFBCD';
flagname:='<27>õ<EFBFBD>';
fnote:=True;
V1Note.Caption:='Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal=1 then
begin
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmProductOrderAnPaiGQX.ToolButton6Click(Sender: TObject);
var
fPrintFile:string;
begin
if CDS_Sub.IsEmpty then Exit;
if CDS_Sub.Locate('SSel',True,[])=False then
begin
Application.MessageBox('δѡ<CEB4><D1A1>Ҫ<EFBFBD><D2AA>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
CDS_Sub.DisableControls;
with CDS_Sub do
begin
First;
while not Eof do
begin
if CDS_Sub.FieldByName('SSel').AsBoolean=True then
begin
if Trim(CDS_Sub.fieldbyname('APID').AsString) ='' then
begin
CDS_Sub.EnableControls;
Application.MessageBox('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>治<EFBFBD>ܴ<EFBFBD>ӡ!','<27><>ʾ',0);
Exit;
end;
end;
Next;
end;
end;
CDS_Sub.EnableControls;
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD>ǩ.rmf' ;
if FileExists(fPrintFile) then
begin
//RMVariables['begindate']:=begindate.DateTime;
//RMVariables['enddate']:=enddate.DateTime;
//RMVariables['printtime']:=Now;
//RMVariables['printer']:=Trim(gUserName);
//RM1.LoadFromFile(fPrintFile);
//RM1.ShowReport;
//RM1.PrintReport;
end else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+ExtractFilePath(Application.ExeName)+'Report\<5C><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD>ǩ.rmf'),'<27><>ʾ',0);
Exit;
end;
CDS_Sub.DisableControls;
with CDS_Sub do
begin
First;
while not Eof do
begin
if CDS_Sub.FieldByName('SSel').AsBoolean=True then
begin
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.Add('select A.*,OrderNoM=B.OrderNo ,B.MPRTCodeName,C.PRTColor from JYOrder_Sub_AnPai A ');
sql.Add('inner join JYOrder_Main B on A.MainId=B.MainId');
sql.Add('inner join JYOrder_Sub C on A.SubId=C.SubId where A.APID='''+Trim(CDS_Sub.fieldbyname('APID').AsString)+'''');
Open;
end;
RM1.LoadFromFile(fPrintFile);
RM1.PrintReport;
end;
Next;
end;
end;
CDS_Sub.EnableControls;
end;
procedure TfrmProductOrderAnPaiGQX.OrderNoMChange(Sender: TObject);
var
mvalue:String;
begin
mvalue:=Trim(OrderNoM.Text);
if Length(Trim(mvalue))<4 then
begin
cxGrid4.Visible:=False;
Exit;
end;
mvalue:='%'+Trim(mvalue)+'%';
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A');
sql.Add(' where A.orderno like :orderno ');
sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))');
Parameters.ParamByName('orderno').Value:=mvalue;
Open;
end;
SCreateCDS20(ADOQueryTemp,CDS_OrderNo);
SInitCDSData20(ADOQueryTemp,CDS_OrderNo);
if CDS_OrderNo.IsEmpty then cxGrid4.Visible:=False else cxGrid4.Visible:=True;
end;
procedure TfrmProductOrderAnPaiGQX.Tv4DblClick(Sender: TObject);
begin
cxGrid4.Visible:=False;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.*,B.*,C.FirstName,C.FirstNo,C.TPPS,C.TPMQty,C.LLID,C.HXPS,C.HXQty,C.HXUnit,C.DHIDHelp,C.DHID,C.TPUnit ');
sql.Add(',PBFactory=(select Top 1 AA.factoryNoName from Contract_Main AA inner join Contract_Cloth_DH BB on AA.MainId=BB.MainId');
sql.Add(' where BB.DHID=C.DHID)');
sql.Add(',HCUnit=(select Top 1 AOrddefstr2 from JYOrder_Sub_AnPai AA where AA.SubId=B.SubId)');
sql.Add('from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId ');
sql.Add(' inner join Contract_Cloth_LL C on C.OrdSubId=B.SubId');
sql.Add('where A.MainId='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+'''');
sql.Add(' and C.JXJGFlag=0');
sql.Add(' and exists(select * from Contract_Cloth_LLMX LM where LM.OrdSubId=B.SubId and LM.OrdSubId=C.OrdSubId )');
//ShowMessage(SQL.Text);
Open;
end;
SCreateCDS20(ADOQueryTemp,Order_Main);
SInitCDSData20(ADOQueryTemp,Order_Main);
end;
procedure TfrmProductOrderAnPaiGQX.Tv1FocusedRecordChanged(
Sender: TcxCustomGridTableView; APrevFocusedRecord,
AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
begin
InitGrid();
BtnEditA1.TxtCode:=Trim(Order_Main.fieldbyname('FirstNo').AsString);
BtnEditA1.Text:=Trim(Order_Main.fieldbyname('FirstName').AsString);
BtnEditA4.Text:=Trim(Order_Main.fieldbyname('PBFactory').AsString);
end;
procedure TfrmProductOrderAnPaiGQX.V2Column1PropertiesEditValueChanged(
Sender: TObject);
//var
//mvalue,FFieldName,mvalue10,mvalue20:String;
//FHCPS,FHCQty,FHCMQty:Double;
begin
{if Trim(CDS_Sub.fieldbyname('AOrddefstr4').AsString)='' then
begin
Application.MessageBox('Ⱦ<><C8BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
with Self.ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Contract_Cloth_LL A ');
sql.Add(' where A.FirstNo='''+Trim(CDS_Sub.fieldbyname('AOrddefstr5').AsString)+'''');
sql.Add(' and A.OrdSubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+'''');
Open;
end;
if Self.ADOQueryTemp.IsEmpty then
begin
Application.MessageBox('<27><>Ⱦ<EFBFBD><C8BE>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
mvalue:=TcxTextEdit(Sender).EditingText;
FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
if FFieldName='AOrdQty1' then
begin
if Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString)='' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
end;
if Trim(mvalue)='' then
begin
if FFieldName='ZSXS' then
mvalue:='1'
else
if FFieldName='AOrddefstr2' then
mvalue:=''
else
mvalue:='0';
end;
with CDS_Sub do
begin
Edit;
FieldByName(FFieldName).Value:=Trim(mvalue);
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate JYOrder_Sub_AnPai ');
if Trim(FFieldName)='AOrddefstr2' then
begin
sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+'''');
end else
begin
sql.Add(' Set '+FFieldName+'='+Trim(mvalue));
end;
SQL.Add(',Editer='''+Trim(DName)+'''');
SQL.Add(',Edittime=getdate() ');
SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+'''');
ExecSQL;
end;
if Trim(FFieldName)='AOrdQty2' then
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select isnull(Sum(AOrdQty2),0) HCPS,isnull(Sum(AOrdQty1),0) HCQty from JYOrder_Sub_AnPai ');
sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
sql.Add(' and AOrddefstr5='''+Trim(CDS_Sub.fieldbyname('AOrddefstr5').AsString)+'''');
Open;
end;
FHCPS:=ADOQueryTemp.FieldByName('HCPS').Value;
if FHCPS>0 then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Contract_Cloth_LL where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
sql.Add(' and FirstNo='''+Trim(CDS_Sub.fieldbyname('AOrddefstr5').AsString)+'''');
SQL.Add(' order by LLIdx');
Open;
end;
with ADOQueryTemp do
begin
First;
while (not eof) and (FHCPS>0) do
begin
if FHCPS>=FieldByName('TPPS').Value then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('Update Contract_Cloth_LL Set HCPS=TPPS ');
sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+'''');
ExecSQL;
end;
FHCPS:=FHCPS-FieldByName('TPPS').Value;
end else
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('Update Contract_Cloth_LL Set HCPS='+FloatToStr(FHCPS));
sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+'''');
ExecSQL;
end;
FHCPS:=0;
end;
Next;
end;
end;
end;
end;
if Trim(FFieldName)='AOrdQty1' then
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select isnull(Sum(AOrdQty2),0) HCPS,isnull(Sum(AOrdQty1),0) HCQty from JYOrder_Sub_AnPai ');
sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
sql.Add(' and AOrddefstr5='''+Trim(CDS_Sub.fieldbyname('AOrddefstr5').AsString)+'''');
Open;
end;
FHCQty:=ADOQueryTemp.FieldByName('HCQty').Value;
if FHCQty>0 then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Contract_Cloth_LL where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
sql.Add(' and FirstNo='''+Trim(CDS_Sub.fieldbyname('AOrddefstr5').AsString)+'''');
SQL.Add(' order by LLIdx');
Open;
end;
with ADOQueryTemp do
begin
First;
while (not eof) and (FHCQty>0) do
begin
if FHCQty>=FieldByName('BCPQty').Value then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('Update Contract_Cloth_LL Set HCQty=BCPQty ');
sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+'''');
ExecSQL;
end;
FHCQty:=FHCQty-FieldByName('BCPQty').Value;
end else
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('Update Contract_Cloth_LL Set HCQty='+FloatToStr(FHCQty));
sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+'''');
ExecSQL;
end;
FHCQty:=0;
end;
Next;
end;
end;
end;
end;}
end;
procedure TfrmProductOrderAnPaiGQX.UpdateHC(FFirstNo:String);
var
FHCPS,FHCYZQty,FHCMQty:Double;
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select isnull(Sum(AOrdQty2),0) HCPS from JYOrder_Sub_AnPai ');
sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
sql.Add(' and AOrddefstr5='''+Trim(FFirstNo)+'''');
Open;
end;
FHCPS:=ADOQueryTemp.FieldByName('HCPS').Value;
if FHCPS=0 then
begin
end;
if FHCPS>0 then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Contract_Cloth_LL where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
sql.Add(' and FirstNo='''+Trim(FFirstNo)+'''');
SQL.Add(' order by LLIdx');
Open;
end;
with ADOQueryTemp do
begin
First;
while (not eof) and (FHCPS>0) do
begin
if FHCPS>=FieldByName('TPPS').Value then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('Update Contract_Cloth_LL Set HCPS=TPPS ');
sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+'''');
ExecSQL;
end;
FHCPS:=FHCPS-FieldByName('TPPS').Value;
end else
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('Update Contract_Cloth_LL Set HCPS='+FloatToStr(FHCPS));
sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+'''');
ExecSQL;
end;
FHCPS:=0;
end;
Next;
end;
end;
end;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select isnull(Sum(HCYZQty),0) HCYZQty,isnull(Sum(HCMQty),0) HCMQty from JYOrder_Sub_AnPai ');
sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
sql.Add(' and AOrddefstr5='''+Trim(FFirstNo)+'''');
Open;
end;
FHCYZQty:=ADOQueryTemp.FieldByName('HCYZQty').Value;
FHCMQty:=ADOQueryTemp.FieldByName('HCMQty').Value;
if FHCYZQty>=0 then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Contract_Cloth_LL where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
sql.Add(' and FirstNo='''+Trim(FFirstNo)+'''');
SQL.Add(' order by LLIdx');
Open;
end;
with ADOQueryTemp do
begin
First;
while (not eof) and (FHCYZQty>0) do
begin
if FHCYZQty>=FieldByName('BCPQty').Value then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('Update Contract_Cloth_LL Set HCQty=BCPQty ');
sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+'''');
ExecSQL;
end;
FHCYZQty:=FHCYZQty-FieldByName('BCPQty').Value;
end else
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('Update Contract_Cloth_LL Set HCQty='+FloatToStr(FHCYZQty));
sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+'''');
ExecSQL;
end;
FHCYZQty:=0;
end;
Next;
end;
end;
with ADOQueryTemp do
begin
First;
while (not eof) and (FHCMQty>0) do
begin
if FHCMQty>=FieldByName('BCPMQty').Value then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('Update Contract_Cloth_LL Set HCMQty=BCPMQty ');
sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+'''');
ExecSQL;
end;
FHCMQty:=FHCMQty-FieldByName('BCPMQty').Value;
end else
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('Update Contract_Cloth_LL Set HCMQty='+FloatToStr(FHCMQty));
sql.Add(' where LLID='''+Trim(ADOQueryTemp.fieldbyname('LLID').AsString)+'''');
ExecSQL;
end;
FHCMQty:=0;
end;
Next;
end;
end;
end;
end;
procedure TfrmProductOrderAnPaiGQX.cxGridDBColumn1PropertiesEditValueChanged(
Sender: TObject);
//var
//mvalue,FFieldName:String;
begin
{mvalue:=TcxTextEdit(Sender).EditingText;
FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_Sub do
begin
Edit;
FieldByName(FFieldName).Value:=Trim(mvalue);
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate JYOrder_Sub_AnPai ');
if Trim(mvalue)<>'' then
begin
sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+'''');
end else
begin
sql.Add(' Set '+FFieldName+'=NULL');
end;
SQL.Add(',Editer='''+Trim(DName)+'''');
SQL.Add(',Edittime=getdate() ');
SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+'''');
ExecSQL;
end; }
end;
procedure TfrmProductOrderAnPaiGQX.V2Column4PropertiesButtonClick(
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_Sub.Edit;
Self.CDS_Sub.FieldByName('AOrddefstr2').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate JYOrder_Sub_AnPai ');
sql.Add(' Set AOrddefstr2='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+'''');
SQL.Add(',Editer='''+Trim(DName)+'''');
SQL.Add(',Edittime=getdate() ');
SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+'''');
sql.Add(' UPdate WFB_MJJY Set MJStr1='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+'''');
SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+'''');
ExecSQL;
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmProductOrderAnPaiGQX.V2Column5PropertiesButtonClick(
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_Sub.Edit;
Self.CDS_Sub.FieldByName('AOrddefstr3').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmProductOrderAnPaiGQX.V2Column6PropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
var
mvalue:string;
begin
mvalue:=Trim(CDS_Sub.FieldByName('AOrdDefNote1').AsString);
try
frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag:='JYYQ';
flagname:='<27><><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA>';
if ShowModal=1 then
begin
Self.CDS_Sub.Edit;
Self.CDS_Sub.FieldByName('AOrdDefNote1').Value:=mvalue+frmZDYHelpSel.ReturnStr;
{with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate JYOrder_Sub_AnPai ');
sql.Add(' Set AOrdDefNote1='''+Trim(mvalue+frmZDYHelpSel.ReturnStr)+'''');
SQL.Add(',Editer='''+Trim(DName)+'''');
SQL.Add(',Edittime=getdate() ');
SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+'''');
ExecSQL;
end; }
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmProductOrderAnPaiGQX.V2Column8PropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
//flag:='RKPlace';
flag:='FactoryNo1Name';
flagname:='Ⱦ<><C8BE>';
MainType:='Ⱦ<><C8BE>';
if ShowModal=1 then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Contract_Cloth_LL A ');
sql.Add(' where A.FirstNo='''+Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString)+'''');
sql.Add(' and A.OrdSubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+'''');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
Application.MessageBox('<27><>Ⱦ<EFBFBD><C8BE>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
end else
begin
with CDS_Sub do
begin
Edit;
FieldByName('AOrddefstr4').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString);
FieldByName('AOrddefstr5').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
{with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate JYOrder_Sub_AnPai ');
sql.Add(' Set AOrddefstr5='''+Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString)+'''');
sql.Add(' ,AOrddefstr4='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+'''');
SQL.Add(',Editer='''+Trim(DName)+'''');
SQL.Add(',Edittime=getdate() ');
SQL.Add(' where APId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+'''');
ExecSQL;
end;}
end;
end;
end;
finally
//frmZDYHelp.Free;
end;
end;
procedure TfrmProductOrderAnPaiGQX.ToolButton4Click(Sender: TObject);
var
FDW:String;
begin
if CDS_Sub.Locate('ADefDate1',null,[])=True then
begin
Application.MessageBox('<27>ز<EFBFBD>ʱ<EFBFBD>䲻<EFBFBD><E4B2BB>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if CDS_Sub.Locate('AOrddefstr4',null,[])=True then
begin
Application.MessageBox('Ⱦ<><C8BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if CDS_Sub.Locate('AOrddefstr4','',[])=True then
begin
Application.MessageBox('Ⱦ<><C8BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if CDS_Sub.Locate('GangNo',null,[])=True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>׺Ų<D7BA><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if CDS_Sub.Locate('AOrddefstr2',null,[])=True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if CDS_Sub.Locate('AOrddefstr2','',[])=True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if CDS_Sub.Locate('AOrddefstr2','Kg',[])=True then
begin
if Trim(CDS_Sub.FieldByName('ZSXS').AsString)='' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
end;
if CDS_Sub.Locate('AOrdQty2',null,[])=True then
begin
Application.MessageBox('ƥ<><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if CDS_Sub.Locate('AOrdQty1',null,[])=True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
{ if CDS_Sub.Locate('AOrdQty1','',[])=True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;}
FDW:=Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString);
if CDS_Sub.Locate('AOrddefstr2',FDW,[])=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB>һ<EFBFBD><D2BB>!','<27><>ʾ',0);
Exit;
end;
if CDS_Sub.Locate('AOrddefstr3',null,[]) then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if CDS_Sub.Locate('AOrddefstr3','',[]) then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
FDW:=Trim(CDS_Sub.fieldbyname('AOrddefstr3').AsString);
if CDS_Sub.Locate('AOrddefstr3',FDW,[])=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB>һ<EFBFBD><D2BB>!','<27><>ʾ',0);
Exit;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select Top 1* from Contract_Cloth_LL where OrdSubId='''+Trim(Order_Main.fieldbyname('Subid').AsString)+'''');
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('TPUnit').AsString)='M' then
begin
if CDS_Sub.Locate('AOrddefstr2','Kg',[]) then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λΪM,<2C>ز<EFBFBD><D8B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>ΪKg!','<27><>ʾ',0);
Exit;
end;
end;
OrderNoM.SetFocus;
MovePanel2.Visible:=True;
MovePanel2.Refresh;
if SaveData() then
begin
MovePanel2.Visible:=False;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!','<27><>ʾ',0);
Exit;
end;
MovePanel2.Visible:=False;
end;
procedure TfrmProductOrderAnPaiGQX.BtnEditA1BtnClick(Sender: TObject);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='FactoryNo1Name';
flagname:='Ⱦ<><C8BE>';
MainType:='Ⱦ<><C8BE>';
if ShowModal=1 then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Contract_Cloth_LL A ');
sql.Add(' where A.FirstNo='''+Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString)+'''');
sql.Add(' and A.OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
Application.MessageBox('<27><>Ⱦ<EFBFBD><C8BE>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
end else
begin
BtnEditA1.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString);
BtnEditA1.TxtCode:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
end;
end;
finally
//frmZDYHelp.Free;
end;
end;
function TfrmProductOrderAnPaiGQX.YFData():Boolean;
var
CRID,OrdMainId,YFID,Price,LLID:String;
begin
Result:=False;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete YF_Money_CR where YFTypeID='''+Trim(CDS_Sub.fieldbyname('APID').AsString)+'''');
ExecSQL;
end;
OrdMainId:=Trim(Order_Main.fieldbyname('MainId').AsString);
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').AsString)+'''');
Open;
end;
if ADOQueryTemp.IsEmpty=False then
begin
CRID:=ADOQueryTemp.fieldbyname('CRID').AsString;
end else
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_CRID set CRID=CRID+1');
sql.Add('select * from YF_Money_CRID ');
Open;
end;
CRID:=ADOQueryCmd.fieldbyname('CRID').AsString;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from YF_Money_KC where 1<>1');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('CRID').Value:=StrToInt(CRID);
FieldByName('FactoryName').Value:=Trim(Order_Main.fieldbyname('FirstName').AsString);
FieldByName('ZdyStr1').Value:='Ӧ<><D3A6><EFBFBD><EFBFBD>';
Post;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
if Trim(Order_Main.fieldbyname('DHIDHelp').AsString)='' then
sql.Add('select Top 1 * from Contract_Cloth_LLMX where DHID='''+Trim(Order_Main.fieldbyname('DHID').AsString)+'''')
else
sql.Add('select Top 1 * from Contract_Cloth_LLMX where DHID='''+Trim(Order_Main.fieldbyname('DHIDHelp').AsString)+'''') ;
Open;
end;
Price:=ADOQueryTemp.fieldbyname('JGPrice').AsString;
if Trim(Price)='' then Price:='0';
{with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').AsString)+'''');
sql.Add(' and YFTypeId='''+Trim(Order_Main.fieldbyname('LLid').AsString)+'''');
if Trim(Order_Main.fieldbyname('DHIDHelp').AsString)='' then
sql.Add(' and YFName=''Ⱦ<><C8BE>'' ')
else
sql.Add(' and YFName=''<27>ӹ<EFBFBD><D3B9><EFBFBD>'' ');
Open;
end;}
if CDS_Sub.FieldByName('AOrdFlag1').AsBoolean=False then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').AsString)+'''');
sql.Add(' and YFTypeId='''+Trim(CDS_Sub.fieldbyname('APId').AsString)+'''');
if Trim(Order_Main.fieldbyname('DHIDHelp').AsString)='' then
sql.Add(' and YFName=''Ⱦ<><C8BE>'' ')
else
sql.Add(' and YFName=''<27>ӹ<EFBFBD><D3B9><EFBFBD>'' ');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
if GetLSNo(ADOQueryCmd,YFID,'RJ','YF_Money_CR',3,1)=False then
begin
Application.MessageBox('ȡȾ<C8A1><C8BE>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from YF_Money_CR where 1<>1');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('YFID').Value:=Trim(YFID);
FieldByName('YFTypeId').Value:=Trim(CDS_Sub.fieldbyname('APId').AsString);
FieldByName('CRID').Value:=StrToInt(CRID);
FieldByName('Filler').Value:=Trim(DName);
FieldByName('CRType').Value:='Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>';
FieldByName('CRFlag').Value:='Ӧ<><D3A6><EFBFBD><EFBFBD>';
FieldByName('QtyFlag').Value:=1;
FieldByName('FactoryName').Value:=Trim(Order_Main.fieldbyname('FirstName').AsString);
FieldByName('CRTime').Value:=CDS_Sub.fieldbyname('ADefDate1').Value;
FieldByName('Qty').Value:=CDS_Sub.fieldbyname('AOrdQty1').Value;
FieldByName('YFType').Value:='<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>';
FieldByName('Price').Value:=Price;
FieldByName('HuiLv').Value:=1;
FieldByName('BZType').Value:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
FieldByName('ComTaiTou').Value:=Trim(Order_Main.fieldbyname('OrdDefStr2').AsString);
FieldByName('QtyUnit').Value:=Trim(Order_Main.fieldbyname('TPUnit').AsString);
if Trim(Order_Main.fieldbyname('DHIDHelp').AsString)='' then
FieldByName('YFName').Value:='Ⱦ<><C8BE>'
else
FieldByName('YFName').Value:='<27>ӹ<EFBFBD><D3B9><EFBFBD>';
FieldByName('MainId').Value:=Trim(OrdMainId);
Post;
end;
end else
begin
YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString);
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate YF_Money_CR Set Price='+Price);
sql.Add(',Qty='+CDS_Sub.fieldbyname('AOrdQty1').AsString);
SQL.Add(',CRTime='''+Trim(CDS_Sub.fieldbyname('ADefDate1').AsString)+'''');
sql.Add(' where YFID='''+Trim(YFID)+'''');
ExecSQL;
end;
end;
end;
//if Trim(Order_Main.fieldbyname('DHIDHelp').AsString)='' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
SQL.Add('select Case when HXQty>0 then HCQty-HXQty else HCQty end as HCQty');
SQL.Add(',Case when HXPS>0 then HCPS-HXPS else HCPS end as HCPS');
SQL.Add(' from Contract_Cloth_LL where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+'''');
Open;
end;
{ with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update YF_Money_CR Set Qty='+ADOQueryTemp.fieldbyname('HCQty').AsString);
sql.Add(',PS='+ADOQueryTemp.fieldbyname('HCPS').AsString);
sql.Add(' where YFTypeId='''+Trim(Order_Main.fieldbyname('LLid').AsString)+'''');
ExecSQL;
end; }
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty');
sql.Add(' where YFID='''+Trim(YFID)+'''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
sql.Add(' where CRID='+CRID);
ExecSQL;
end;
Result:=True;
end;
function TfrmProductOrderAnPaiGQX.DELYFData():Boolean;
var
CRID,OrdMainId,YFID,Price,LLID:String;
begin
Result:=False;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete YF_Money_CR where YFTypeID='''+Trim(CDS_Sub.fieldbyname('APID').AsString)+'''');
ExecSQL;
end;
OrdMainId:=Trim(Order_Main.fieldbyname('MainId').AsString);
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main.fieldbyname('FirstName').AsString)+'''');
Open;
end;
if ADOQueryTemp.IsEmpty=False then
begin
CRID:=ADOQueryTemp.fieldbyname('CRID').AsString;
end else
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_CRID set CRID=CRID+1');
sql.Add('select * from YF_Money_CRID ');
Open;
end;
CRID:=ADOQueryCmd.fieldbyname('CRID').AsString;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from YF_Money_KC where 1<>1');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('CRID').Value:=StrToInt(CRID);
FieldByName('FactoryName').Value:=Trim(Order_Main.fieldbyname('FirstName').AsString);
FieldByName('ZdyStr1').Value:='Ӧ<><D3A6><EFBFBD><EFBFBD>';
Post;
end;
end;
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
SQL.Add('select Case when HXQty>0 then HCQty-HXQty else HCQty end as HCQty');
SQL.Add(',Case when HXPS>0 then HCPS-HXPS else HCPS end as HCPS');
SQL.Add(' from Contract_Cloth_LL where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+'''');
Open;
end;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
sql.Add(' where CRID='+CRID);
ExecSQL;
end;
Result:=True;
end;
procedure TfrmProductOrderAnPaiGQX.BtnEditA2BtnClick(Sender: TObject);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='OrderUnit';
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
if ShowModal=1 then
begin
BtnEditA2.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmProductOrderAnPaiGQX.BtnEditA3BtnClick(Sender: TObject);
begin
try
frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag:='JYYQ';
flagname:='<27><><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA>';
if ShowModal=1 then
begin
BtnEditA3.Text:=Trim(BtnEditA3.Text)+frmZDYHelpSel.ReturnStr;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmProductOrderAnPaiGQX.ToolButton8Click(Sender: TObject);
begin
CDS_Sub.DisableControls;
with CDS_Sub do
begin
First;
while not Eof do
begin
Edit;
FieldByName('SSel').Value:=True;
Post;
Next;
end;
end;
CDS_Sub.EnableControls;
end;
procedure TfrmProductOrderAnPaiGQX.ToolButton7Click(Sender: TObject);
begin
CDS_Sub.DisableControls;
with CDS_Sub do
begin
First;
while not Eof do
begin
Edit;
FieldByName('SSel').Value:=False;
Post;
Next;
end;
end;
CDS_Sub.EnableControls;
end;
procedure TfrmProductOrderAnPaiGQX.BtnEditA4BtnClick(Sender: TObject);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='FactoryNo1Name';
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
MainType:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal=1 then
begin
BtnEditA4.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmProductOrderAnPaiGQX.V2Column11PropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='FactoryNo1Name';
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
MainType:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal=1 then
begin
begin
with CDS_Sub do
begin
Edit;
FieldByName('AOrddefstr6').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
end;
end;
finally
//frmZDYHelp.Free;
end;
end;
procedure TfrmProductOrderAnPaiGQX.ToolButton9Click(Sender: TObject);
begin
try
frmBefChkHX:=TfrmBefChkHX.Create(Application);
with frmBefChkHX do
begin
orderno.Caption:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString);
PRTColor.Caption:=Trim(Self.Order_Main.fieldbyname('PRTColor').AsString);
FirstName.Caption:=Trim(Self.Order_Main.fieldbyname('FirstName').AsString);
PBFactory.Caption:=Trim(Self.Order_Main.fieldbyname('PBFactory').AsString);
FLLID:=Trim(Self.Order_Main.fieldbyname('LLID').AsString);
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select * from Contract_Cloth_BefChkHX where LLID='''+Trim(Order_Main.fieldbyname('LLID').AsString)+'''');
Open;
end;
SCreateCDS20(ADOQuery1,ClientDataSet1);
SInitCDSData20(ADOQuery1,ClientDataSet1);
if ShowModal=1 then
begin
end;
end;
finally
frmBefChkHX.Free;
end;
end;
procedure TfrmProductOrderAnPaiGQX.ToolButton10Click(Sender: TObject);
begin
if Order_Main.IsEmpty=False then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.*,B.*,C.FirstName,C.FirstNo,C.TPPS,C.TPMQty,C.LLID,C.HXPS,C.HXQty,C.HXUnit ');
sql.Add(',PBFactory=(select Top 1 AA.factoryNoName from Contract_Main AA inner join Contract_Cloth_DH BB on AA.MainId=BB.MainId');
sql.Add(' where BB.DHID=C.DHID)');
sql.Add(',HCQty=(select sum(AOrdQty1) from JYOrder_Sub_AnPai AA where AA.SubId=B.SubId)');
sql.Add(',HCPS=(select sum(AOrdQty2) from JYOrder_Sub_AnPai AA where AA.SubId=B.SubId)');
sql.Add(',HCUnit=(select Top 1 AOrddefstr2 from JYOrder_Sub_AnPai AA where AA.SubId=B.SubId)');
sql.Add('from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId ');
sql.Add(' inner join Contract_Cloth_LL C on C.OrdSubId=B.SubId');
sql.Add('where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
sql.Add(' and C.JXJGFlag=0');
Open;
end;
SCreateCDS20(ADOQueryTemp,Order_Main);
SInitCDSData20(ADOQueryTemp,Order_Main);
end;
end;
procedure TfrmProductOrderAnPaiGQX.ToolButton11Click(Sender: TObject);
begin
if Order_Main.IsEmpty then Exit;
MovePanel2.Visible:=True;
MovePanel2.Refresh;
try
ADOQueryCmd.Connection.BeginTrans;
Order_Main.DisableControls;
with Order_Main do
begin
First;
while not Eof do
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrder_Sub_AnPai where LLId='''+Trim(Order_Main.fieldbyname('LLId').AsString)+'''');
Open;
end;
SCreateCDS20(ADOQueryTemp,CDS_Sub);
SInitCDSData20(ADOQueryTemp,CDS_Sub);
with CDS_Sub do
begin
First;
while not Eof do
begin
if YFData()=False then
begin
MovePanel2.Visible:=False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD>²<EFBFBD><C2B2><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end;
Next;
end;
end;
Next;
end;
end;
Order_Main.EnableControls;
MovePanel2.Visible:=False;
ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!','<27><>ʾ',0);
Exit;
except
MovePanel2.Visible:=False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣!','<27><>ʾ',0);
end;
end;
end.
Reference in New Issue Copy Permalink