1033 lines
33 KiB
ObjectPascal
1033 lines
33 KiB
ObjectPascal
|
unit U_XiaoShouDataOldListQB;
|
|||
|
|
|
|||
|
|
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, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, BtnEdit, cxTextEdit;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfrmXiaoShouDataOldListQB = class(TForm)
|
|||
|
|
ToolBar1: TToolBar;
|
|||
|
|
TBRafresh: TToolButton;
|
|||
|
|
TBFind: TToolButton;
|
|||
|
|
TBClose: TToolButton;
|
|||
|
|
Tv1: TcxGridDBTableView;
|
|||
|
|
cxGrid1Level1: TcxGridLevel;
|
|||
|
|
cxGrid1: TcxGrid;
|
|||
|
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
|||
|
|
ADOQueryCmd: TADOQuery;
|
|||
|
|
ADOQueryMain: TADOQuery;
|
|||
|
|
ADOQueryTemp: TADOQuery;
|
|||
|
|
DataSource1: TDataSource;
|
|||
|
|
Order_Main: TClientDataSet;
|
|||
|
|
Panel1: TPanel;
|
|||
|
|
v1Column1: TcxGridDBColumn;
|
|||
|
|
v1Column7: TcxGridDBColumn;
|
|||
|
|
v1Column9: TcxGridDBColumn;
|
|||
|
|
Label3: TLabel;
|
|||
|
|
Label4: TLabel;
|
|||
|
|
BegDate: TDateTimePicker;
|
|||
|
|
EndDate: TDateTimePicker;
|
|||
|
|
v1Column17: TcxGridDBColumn;
|
|||
|
|
v1Column5: TcxGridDBColumn;
|
|||
|
|
Label2: TLabel;
|
|||
|
|
MPRTCodeName: TEdit;
|
|||
|
|
v1Column3: TcxGridDBColumn;
|
|||
|
|
v1Column4: TcxGridDBColumn;
|
|||
|
|
v1Column6: TcxGridDBColumn;
|
|||
|
|
Label5: TLabel;
|
|||
|
|
PRTColor: TEdit;
|
|||
|
|
labMYType: TLabel;
|
|||
|
|
v1Column10: TcxGridDBColumn;
|
|||
|
|
v1Column11: TcxGridDBColumn;
|
|||
|
|
Label6: TLabel;
|
|||
|
|
PRTHX: TEdit;
|
|||
|
|
v1Column8: TcxGridDBColumn;
|
|||
|
|
cxTabControl1: TcxTabControl;
|
|||
|
|
v1Column2: TcxGridDBColumn;
|
|||
|
|
v1Column12: TcxGridDBColumn;
|
|||
|
|
v1Column13: TcxGridDBColumn;
|
|||
|
|
v1Column14: TcxGridDBColumn;
|
|||
|
|
v1Column15: TcxGridDBColumn;
|
|||
|
|
v1Column16: TcxGridDBColumn;
|
|||
|
|
ToolButton1: TToolButton;
|
|||
|
|
v1SSel: TcxGridDBColumn;
|
|||
|
|
PopupMenu1: TPopupMenu;
|
|||
|
|
N1: TMenuItem;
|
|||
|
|
N2: TMenuItem;
|
|||
|
|
CDS_Sub: TClientDataSet;
|
|||
|
|
cxGrid2: TcxGrid;
|
|||
|
|
Tv2: TcxGridDBTableView;
|
|||
|
|
cxGridDBColumn1: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn2: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn3: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn4: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn5: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn6: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn7: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn8: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn9: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn10: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn11: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn12: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn13: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn14: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn15: TcxGridDBColumn;
|
|||
|
|
cxGridLevel1: TcxGridLevel;
|
|||
|
|
DataSource2: TDataSource;
|
|||
|
|
ADOQuery1: TADOQuery;
|
|||
|
|
ToolButton2: TToolButton;
|
|||
|
|
Panel3: TPanel;
|
|||
|
|
Panel2: TPanel;
|
|||
|
|
Label1: TLabel;
|
|||
|
|
KHName: TBtnEditC;
|
|||
|
|
Label7: TLabel;
|
|||
|
|
CustomerNoName: TEdit;
|
|||
|
|
ToolButton3: TToolButton;
|
|||
|
|
Button1: TButton;
|
|||
|
|
Panel10: TPanel;
|
|||
|
|
Image2: TImage;
|
|||
|
|
Label8: TLabel;
|
|||
|
|
KHDept: TComboBox;
|
|||
|
|
Label9: TLabel;
|
|||
|
|
KHLXR: TComboBox;
|
|||
|
|
v1Column18: TcxGridDBColumn;
|
|||
|
|
Label10: TLabel;
|
|||
|
|
KHLXFS: TEdit;
|
|||
|
|
Label11: TLabel;
|
|||
|
|
RadioGroup1: TRadioGroup;
|
|||
|
|
ToolButton4: TToolButton;
|
|||
|
|
RM1: TRMGridReport;
|
|||
|
|
RMDBHZ: TRMDBDataSet;
|
|||
|
|
CDS_PRT: TClientDataSet;
|
|||
|
|
RMXLSExport2: TRMXLSExport;
|
|||
|
|
procedure FormDestroy(Sender: TObject);
|
|||
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
procedure FormCreate(Sender: TObject);
|
|||
|
|
procedure TBCloseClick(Sender: TObject);
|
|||
|
|
procedure TBFindClick(Sender: TObject);
|
|||
|
|
procedure TBRafreshClick(Sender: TObject);
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure CheckBox1Click(Sender: TObject);
|
|||
|
|
procedure CheckBox2Click(Sender: TObject);
|
|||
|
|
procedure CustomerNoNameChange(Sender: TObject);
|
|||
|
|
procedure cxTabControl1Change(Sender: TObject);
|
|||
|
|
procedure ZJStatusChange(Sender: TObject);
|
|||
|
|
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton;
|
|||
|
|
Shift: TShiftState; X, Y: Integer);
|
|||
|
|
procedure v1SSelPropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure KHNameBtnUpClick(Sender: TObject);
|
|||
|
|
procedure KHNameBtnDnClick(Sender: TObject);
|
|||
|
|
procedure N1Click(Sender: TObject);
|
|||
|
|
procedure N2Click(Sender: TObject);
|
|||
|
|
procedure ToolButton1Click(Sender: TObject);
|
|||
|
|
procedure ToolButton2Click(Sender: TObject);
|
|||
|
|
procedure Image2Click(Sender: TObject);
|
|||
|
|
procedure ToolButton3Click(Sender: TObject);
|
|||
|
|
procedure Button1Click(Sender: TObject);
|
|||
|
|
procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X,
|
|||
|
|
Y: Integer);
|
|||
|
|
procedure KHLXRChange(Sender: TObject);
|
|||
|
|
procedure ToolButton4Click(Sender: TObject);
|
|||
|
|
private
|
|||
|
|
canshu1:string;
|
|||
|
|
DQdate:TDateTime;
|
|||
|
|
procedure InitGrid();
|
|||
|
|
procedure InitForm();
|
|||
|
|
function SaveData():Boolean;
|
|||
|
|
procedure initDataMX(FCKNO:String);
|
|||
|
|
function YFData():Boolean;
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
FKHName:String;
|
|||
|
|
{ Public declarations }
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmXiaoShouDataOldListQB: TfrmXiaoShouDataOldListQB;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
uses
|
|||
|
|
U_DataLink,U_RTFun,U_KHListSelJJ;
|
|||
|
|
|
|||
|
|
{$R *.dfm}
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.FormDestroy(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
frmXiaoShouDataOldListQB:=nil;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.FormClose(Sender: TObject;
|
|||
|
|
var Action: TCloseAction);
|
|||
|
|
begin
|
|||
|
|
Action:=caFree;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.FormCreate(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
cxgrid1.Align:=alClient;
|
|||
|
|
canshu1:=Trim(DParameters1);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.TBCloseClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
WriteCxGrid('<27><>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϢQBYX',Tv1,'ó<><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|||
|
|
Close;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.InitGrid();
|
|||
|
|
begin
|
|||
|
|
Panel2.Visible:=True;
|
|||
|
|
Panel2.Refresh;
|
|||
|
|
try
|
|||
|
|
ADOQueryMain.DisableControls;
|
|||
|
|
with ADOQueryMain do
|
|||
|
|
begin
|
|||
|
|
Filtered:=False;
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
Sql.Add('Select CRTime,CKOrdNo,QtyUnit,PS,Qty,ConNo,CustomerNoName,MPRTCodeName ');
|
|||
|
|
sql.Add(',PRTColor,MPRTMF,PRTKZ,SOrdDefStr1,PRTHX,PRTPrice,HZFee,FHMoney,BZType');
|
|||
|
|
sql.Add(',YWY=(select DefStr5 from KH_Zdy_Attachment KZA where KZA.ZdyName=AAA.CustomerNoName and KZA.Type=''KHName'' )');
|
|||
|
|
sql.Add('from(');
|
|||
|
|
sql.Add('select AA.CRTime,AA.CKOrdNo,AA.QtyUnit,AA.PS,AA.Qty,JM.ConNo,JM.CustomerNoName,JM.MPRTCodeName ');
|
|||
|
|
sql.Add(',JS.PRTColor,JM.MPRTMF,JS.PRTKZ,JS.SOrdDefStr1,JS.PRTHX');
|
|||
|
|
sql.Add(',JS.PRTPrice,HZFee=isnull(JS.SOrdqty1,0)+isnull(JS.SOrdqty2,0)+isnull(JS.SOrdqty3,0)+isnull(JS.SOrdqty4,0)');
|
|||
|
|
sql.Add(',FHMoney=Cast(JS.PRTPrice*AA.Qty as decimal(18,2))+isnull(JS.SOrdqty1,0)+isnull(JS.SOrdqty2,0)+isnull(JS.SOrdqty3,0)+isnull(JS.SOrdqty4,0)');
|
|||
|
|
sql.Add(',Case when isnull(JS.PriceUnit,'''')=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' then ''<27><>'' ');
|
|||
|
|
sql.Add(' when isnull(PriceUnit,'''')=''RMB'' then ''<27><>'' ');
|
|||
|
|
sql.Add(' when isnull(PriceUnit,'''')='''' then ''<27><>'' ');
|
|||
|
|
sql.Add(' else ''$'' end as BZType ');
|
|||
|
|
sql.Add('from (');
|
|||
|
|
sql.Add(' select MainId,SubId,CRTime,CKOrdNo,QtyUnit,PS=Count(*),Qty=sum(Qty) ');
|
|||
|
|
sql.Add(' from CK_BanCP_CR A ');
|
|||
|
|
if cxTabControl1.TabIndex=0 then
|
|||
|
|
begin
|
|||
|
|
sql.Add(' where CRTime>=''2020-02-15'' ');
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
sql.Add(' where CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''');
|
|||
|
|
sql.Add(' and CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+'''');
|
|||
|
|
end;
|
|||
|
|
sql.Add(' and isnull(A.CRType,'''')=''<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>'' ');
|
|||
|
|
sql.Add(' and isnull(A.CKOrdNo,'''')<>'''' ');
|
|||
|
|
if cxTabControl1.TabIndex=0 then
|
|||
|
|
begin
|
|||
|
|
sql.Add(' and not exists(select * from CK_YCL_CR_Main CM where isnull(CM.CKNO,'''')=isnull(A.CKOrdNo,'''') )');
|
|||
|
|
end else
|
|||
|
|
if cxTabControl1.TabIndex=1 then
|
|||
|
|
begin
|
|||
|
|
sql.Add(' and exists(select * from CK_YCL_CR_Main CM where isnull(CM.CKNO,'''')=isnull(A.CKOrdNo,'''') )');
|
|||
|
|
end;
|
|||
|
|
sql.Add('Group by MainId,SubId,CRTime,CKOrdNo,QtyUnit)AA');
|
|||
|
|
sql.Add('inner join JYOrder_Sub JS on AA.SubId=JS.SubId ');
|
|||
|
|
sql.Add('inner join JYOrder_Main JM on JS.MainId=JM.MainId ');
|
|||
|
|
sql.Add('Union All ');
|
|||
|
|
|
|||
|
|
sql.Add('select CRTime,CKOrdNo=InOutNo,QtyUnit,PS=Sum(RollNum),Qty=Sum(Qty),ConNo,CustomerNoName=CustName');
|
|||
|
|
sql.Add(',MPRTCodeName=P_CodeName,PRTColor=P_Color,MPRTMF=Cast(P_MF as varchar(20)),PRTKZ=Cast(P_KZ as varchar(20)),SOrdDefStr1=P_ColNo,PRTHX=P_HX');
|
|||
|
|
sql.Add(',PRTPrice=Price,HZFee=0.00,FHMoney=sum(Money),BZType=''<27><>'' ');
|
|||
|
|
sql.Add(' from CP_InOut1 A ');
|
|||
|
|
SQL.Add(' where CRType=''<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>'' ');
|
|||
|
|
if cxTabControl1.TabIndex=0 then
|
|||
|
|
begin
|
|||
|
|
sql.Add(' and CRTime>=''2020-02-15'' ');
|
|||
|
|
sql.Add(' and not exists(select * from CK_YCL_CR_Main CM where isnull(CM.CKNO,'''')=isnull(A.InOutNo,'''') )');
|
|||
|
|
end else
|
|||
|
|
if cxTabControl1.TabIndex=1 then
|
|||
|
|
begin
|
|||
|
|
sql.Add(' and CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''');
|
|||
|
|
sql.Add(' and CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+'''');
|
|||
|
|
sql.Add(' and exists(select * from CK_YCL_CR_Main CM where isnull(CM.CKNO,'''')=isnull(A.InOutNo,'''') )');
|
|||
|
|
end;
|
|||
|
|
sql.Add('Group by CRTime,InOutNo,QtyUnit,ConNo,CustName,P_CodeName,P_Color,P_MF,P_KZ,P_ColNo,P_HX,Price');
|
|||
|
|
sql.Add(')AAA order by CRTime,CKOrdNo');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQueryMain,Order_Main);
|
|||
|
|
SInitCDSData20(ADOQueryMain,Order_Main);
|
|||
|
|
finally
|
|||
|
|
ADOQueryMain.EnableControls;
|
|||
|
|
end;
|
|||
|
|
TBFind.Click;
|
|||
|
|
Panel2.Visible:=False;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.InitForm();
|
|||
|
|
begin
|
|||
|
|
BegDate.Date:=SGetServerDateMBeg(ADOQueryTemp);
|
|||
|
|
EndDate.Date:=SGetServerDate(ADOQueryTemp);
|
|||
|
|
ReadCxGrid('<27><>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϢQBYX',Tv1,'ó<><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|||
|
|
InitGrid();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.TBFindClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if ADOQueryMain.Active=False then Exit;
|
|||
|
|
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
|||
|
|
SCreateCDS20(ADOQueryMain,Order_Main);
|
|||
|
|
SInitCDSData20(ADOQueryMain,Order_Main);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.TBRafreshClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
InitGrid();
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.FormShow(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
InitForm();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.CheckBox1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
InitGrid();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.CheckBox2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
TBRafresh.Click;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.CustomerNoNameChange(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if ADOQueryMain.Active=False then Exit;
|
|||
|
|
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
|||
|
|
SCreateCDS20(ADOQueryMain,Order_Main);
|
|||
|
|
SInitCDSData20(ADOQueryMain,Order_Main);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.cxTabControl1Change(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
InitGrid();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.ZJStatusChange(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
TBFind.Click;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.Tv1MouseDown(Sender: TObject;
|
|||
|
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|||
|
|
begin
|
|||
|
|
if cxTabControl1.TabIndex=0 then
|
|||
|
|
begin
|
|||
|
|
if CustomerNoName.Text='' then
|
|||
|
|
begin
|
|||
|
|
v1SSel.Options.Focusing:=False;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
v1SSel.Options.Focusing:=True;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.v1SSelPropertiesEditValueChanged(
|
|||
|
|
Sender: TObject);
|
|||
|
|
var
|
|||
|
|
mvalue,Fmvalue:Boolean;
|
|||
|
|
FCKOrdNo:string;
|
|||
|
|
begin
|
|||
|
|
mvalue:=TcxCheckBox(Sender).EditingValue;
|
|||
|
|
if mvalue=True then
|
|||
|
|
begin
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('SSel').Value:=True;
|
|||
|
|
end;
|
|||
|
|
Fmvalue:=False;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('SSel').Value:=False;
|
|||
|
|
end;
|
|||
|
|
mvalue:=False;
|
|||
|
|
Fmvalue:=True;
|
|||
|
|
end;
|
|||
|
|
FCKOrdNo:=Trim(Order_Main.fieldbyname('CKOrdNo').AsString);
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while Locate('CKOrdNo;SSel', VarArrayOf([FCKOrdNo, Fmvalue]), [loPartialKey]) do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('SSel').Value:=mvalue;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.KHNameBtnUpClick(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
fsj:string;
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmKHListSelJJ:=TfrmKHListSelJJ.Create(Application);
|
|||
|
|
with frmKHListSelJJ do
|
|||
|
|
begin
|
|||
|
|
frmKHListSelJJ.canshu2:='<27><>Ȩ<EFBFBD><C8A8>';
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
Self.KHName.Text:=Trim(frmKHListSelJJ.CDS_HZ.fieldbyname('KHNameJC').AsString);
|
|||
|
|
Self.KHName.TxtCode:=Trim(frmKHListSelJJ.CDS_HZ.fieldbyname('KHLXR').AsString);
|
|||
|
|
Self.KHName.Hint:=Trim(frmKHListSelJJ.CDS_HZ.fieldbyname('KHNo').AsString);
|
|||
|
|
Self.KHDept.Clear;
|
|||
|
|
Self.KHLXR.Clear;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmKHListSelJJ.Free;
|
|||
|
|
end;
|
|||
|
|
fsj:='select Name=KHDept from CK_YCL_CR_Main where isnull(FactoryName,'''')='''+Trim(KHName.Text)+''' and isnull(KHDept,'''')<>'''' Group by KHDept';
|
|||
|
|
SInitComBoxBySql(ADOQueryTemp,KHDept,False,fsj);
|
|||
|
|
fsj:='select Name=KHLXR from CK_YCL_CR_Main where isnull(FactoryName,'''')='''+Trim(KHName.Text)+''' and isnull(KHLXR,'''')<>'''' Group by KHLXR';
|
|||
|
|
SInitComBoxBySql(ADOQueryTemp,KHLXR,False,fsj);
|
|||
|
|
if KHLXR.Items.Count<1 then
|
|||
|
|
begin
|
|||
|
|
KHLXR.Text:=Trim(KHName.TxtCode);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.KHNameBtnDnClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
KHName.Text:='';
|
|||
|
|
KHName.TxtCode:='';
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.N1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if cxTabControl1.TabIndex=0 then
|
|||
|
|
begin
|
|||
|
|
if CustomerNoName.Text='' then Exit;
|
|||
|
|
end;
|
|||
|
|
SelOKNo(Order_Main,True);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.N2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if cxTabControl1.TabIndex=0 then
|
|||
|
|
begin
|
|||
|
|
if CustomerNoName.Text='' then Exit;
|
|||
|
|
end;
|
|||
|
|
SelOKNo(Order_Main,False);
|
|||
|
|
end;
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.initDataMX(FCKNO:String);
|
|||
|
|
begin
|
|||
|
|
with ADOQueryTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select AA.CRTime,AA.CKOrdNo,AA.QtyUnit,AA.JQty,AA.HSQty,JM.ConNo,JM.CustomerNoName ');
|
|||
|
|
sql.Add(',YWY=(select DefStr5 from KH_Zdy_Attachment KZA where KZA.ZdyName=JM.CustomerNoName and Type=''KHName'' )');
|
|||
|
|
sql.Add(',SPName=JM.MPRTCodeName,SPColor=JS.PRTColor,SPMF=JM.MPRTMF,SPKZ=JS.PRTKZ,SPColorNo=JS.SOrdDefStr1,SPHX=JS.PRTHX,Note=SOrdDefNote8 ');
|
|||
|
|
sql.Add(',SPID=SOrdDefNote8');
|
|||
|
|
sql.Add(',Case when isnull(JS.PriceUnit,'''')=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' then ''<27><>'' ');
|
|||
|
|
sql.Add(' when isnull(PriceUnit,'''')=''RMB'' then ''<27><>'' ');
|
|||
|
|
sql.Add(' when isnull(PriceUnit,'''')='''' then ''<27><>'' ');
|
|||
|
|
sql.Add(' else ''$'' end as BZType ');
|
|||
|
|
sql.Add(',Price=JS.PRTPrice,HZFee=isnull(JS.SOrdqty1,0)+isnull(JS.SOrdqty2,0)+isnull(JS.SOrdqty3,0)+isnull(JS.SOrdqty4,0)');
|
|||
|
|
sql.Add(',Money=Cast(JS.PRTPrice*AA.HSQty as decimal(18,2))+isnull(JS.SOrdqty1,0)+isnull(JS.SOrdqty2,0)+isnull(JS.SOrdqty3,0)+isnull(JS.SOrdqty4,0)');
|
|||
|
|
sql.Add('from (');
|
|||
|
|
sql.Add(' select MainId,SubId,CRTime,CKOrdNo,QtyUnit,JQty=Count(*),HSQty=sum(Qty) ');
|
|||
|
|
sql.Add(' from CK_BanCP_CR A ');
|
|||
|
|
sql.Add(' where isnull(A.CKOrdNo,'''')='''+Trim(FCKNO)+'''');
|
|||
|
|
sql.Add(' and isnull(A.CKOrdNo,'''')<>'''' ');
|
|||
|
|
sql.Add(' and not exists(select * from CK_YCL_CR_Main CM where isnull(CM.CKNO,'''')=isnull(A.CKOrdNo,'''') )');
|
|||
|
|
sql.Add('Group by MainId,SubId,CRTime,CKOrdNo,QtyUnit)AA');
|
|||
|
|
sql.Add('inner join JYOrder_Sub JS on AA.SubId=JS.SubId ');
|
|||
|
|
sql.Add('inner join JYOrder_Main JM on JS.MainId=JM.MainId ');
|
|||
|
|
|
|||
|
|
sql.Add('Union All ');
|
|||
|
|
|
|||
|
|
sql.Add('select CRTime,CKOrdNo=InOutNo,QtyUnit,JQty=Sum(RollNum),HSQty=Sum(Qty),ConNo,CustomerNoName=CustName');
|
|||
|
|
sql.Add(',YWY=(select DefStr5 from KH_Zdy_Attachment KZA where KZA.ZdyName=A.CustName and Type=''KHName'' )');
|
|||
|
|
sql.Add(',SPName=P_CodeName,SPColor=P_Color,SPMF=Cast(P_MF as varchar(20)),SPKZ=Cast(P_KZ as varchar(20)),SPColorNo=P_ColNo,SPHX=P_HX');
|
|||
|
|
sql.Add(',Note=Cast(Null as varchar(200)),SPID=Cast(Null as varchar(200)),BZType=''<27><>'' ');
|
|||
|
|
sql.Add(',Price,HZFee=0.00,Money=sum(Money)');
|
|||
|
|
sql.Add(' from CP_InOut1 A ');
|
|||
|
|
sql.Add(' where isnull(A.InOutNo,'''')='''+Trim(FCKNO)+'''');
|
|||
|
|
SQL.Add(' and CRType=''<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>'' ');
|
|||
|
|
sql.Add('Group by CRTime,InOutNo,QtyUnit,ConNo,CustName,P_CodeName,P_Color,P_MF,P_KZ,P_ColNo,P_HX,Price');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQueryTemp,CDS_Sub);
|
|||
|
|
SInitCDSData20(ADOQueryTemp,CDS_Sub);
|
|||
|
|
end;
|
|||
|
|
function TfrmXiaoShouDataOldListQB.SaveData():Boolean;
|
|||
|
|
var
|
|||
|
|
FCRID,Maxno,FFSPID,MMaxNo:string;
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
ADOQueryCmd.Connection.BeginTrans;
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
//while Locate('SSel',True,[]) do
|
|||
|
|
while not eof do
|
|||
|
|
begin
|
|||
|
|
if FieldByName('Ssel').AsBoolean=true then
|
|||
|
|
begin
|
|||
|
|
with ADOQuery1 do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from CK_YCL_CR_Main where CKNO='''+Trim(Order_Main.fieldbyname('CKOrdNo').AsString)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOQuery1.IsEmpty=False then
|
|||
|
|
begin
|
|||
|
|
Order_Main.Delete;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
initDataMX(Trim(Order_Main.fieldbyname('CKOrdNo').AsString));
|
|||
|
|
if GetLSNo(ADOQueryCmd,MMaxNo,'SM','CK_YCL_CR_Main',4,1)=False then
|
|||
|
|
begin
|
|||
|
|
Result:=False;
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD>뵥<EFBFBD>ǼǺ<C7BC>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from CK_YCL_CR_Main where SMID='''+Trim(MMaxNo)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('Filler').Value:=Trim(DName);
|
|||
|
|
FieldByName('SMID').Value:=Trim(MMaxNo);
|
|||
|
|
FieldByName('CKName').Value:='<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>';
|
|||
|
|
FieldByName('CRFlag').Value:='<27><><EFBFBD><EFBFBD>';
|
|||
|
|
FieldByName('CRType').Value:='<27><>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>';
|
|||
|
|
FieldByName('CRQtyFlag').Value:=-1;
|
|||
|
|
FieldByName('FactoryName').Value:=Trim(KHName.Text);
|
|||
|
|
FieldByName('FactoryNo').Value:=Trim(KHName.Hint);
|
|||
|
|
FieldByName('KHLXR').Value:=Trim(KHLXR.Text);
|
|||
|
|
FieldByName('KHDept').Value:=Trim(KHDept.Text);
|
|||
|
|
FieldByName('KHLXFS').Value:=Trim(KHLXFS.Text);
|
|||
|
|
FieldByName('KHNameOld').Value:=Trim(Order_Main.fieldbyname('CustomerNoName').AsString);
|
|||
|
|
FieldByName('YWYOld').Value:=Trim(Order_Main.fieldbyname('YWY').AsString);
|
|||
|
|
FieldByName('CKNO').Value:=Order_Main.fieldbyname('CKOrdNo').Value;
|
|||
|
|
FieldByName('CRTime').Value:=Order_Main.fieldbyname('CRTime').Value;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update CK_YCL_CR_Main Set YWY=(select YWY from KH_Main where KHNO='''+Trim(KHName.Hint)+''')');
|
|||
|
|
sql.Add(' where SMID='''+Trim(MMaxNo)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
CDS_Sub.DisableControls;
|
|||
|
|
with CDS_Sub do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while not eof do
|
|||
|
|
begin
|
|||
|
|
if GetLSNo(ADOQueryCmd,Maxno,'SC','CK_YCL_CR',4,1)=False then
|
|||
|
|
begin
|
|||
|
|
Result:=False;
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡ<><C8A1>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD><D3B1><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from CK_YCL_CR where SPID='''+Trim(Maxno)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('SMID').Value:=Trim(MMaxno);
|
|||
|
|
FieldByName('SPID').Value:=Trim(Maxno);
|
|||
|
|
RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_Sub,'CK_YCL_CR',2);
|
|||
|
|
if RadioGroup1.ItemIndex=0 then
|
|||
|
|
begin
|
|||
|
|
FieldByName('HanShui').Value:='<27><>˰';
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FieldByName('HanShui').Value:='<27><><EFBFBD><EFBFBD>˰';
|
|||
|
|
end;
|
|||
|
|
FieldByName('Filler').Value:=Trim(DName);
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('SPID').Value:=Trim(Maxno);
|
|||
|
|
Post;
|
|||
|
|
YFData();
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
CDS_Sub.EnableControls;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
ADOQueryCmd.Connection.CommitTrans;
|
|||
|
|
Result:=True;
|
|||
|
|
except
|
|||
|
|
Result:=False;
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣!','<27><>ʾ',0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.ToolButton1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Order_Main.IsEmpty then Exit;
|
|||
|
|
if Order_Main.Locate('SSel',True,[])=False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if Trim(KHName.Text)='' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('ָ<><D6B8><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if Trim(KHName.Hint)='' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD>ͻ<EFBFBD>!','<27><>ʾ',0);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if Trim(KHLXR.Text)='' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><>ϵ<EFBFBD>˲<EFBFBD><CBB2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD>Ǽ<EFBFBD><C7BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
|
|||
|
|
Panel2.Visible:=True;
|
|||
|
|
Panel2.Refresh;
|
|||
|
|
if SaveData() then
|
|||
|
|
begin
|
|||
|
|
Panel2.Visible:=False;
|
|||
|
|
KHName.Text:='';
|
|||
|
|
KHName.TxtCode:='';
|
|||
|
|
KHName.Hint:='';
|
|||
|
|
Panel3.Visible:=False;
|
|||
|
|
Application.MessageBox('<27>Ǽdzɹ<C7B3>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
function TfrmXiaoShouDataOldListQB.YFData():Boolean;
|
|||
|
|
var
|
|||
|
|
CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName,FFactoryNo:String;
|
|||
|
|
begin
|
|||
|
|
Result:=False;
|
|||
|
|
FFactoryName:=Trim(KHName.Text);
|
|||
|
|
FFactoryNo:=Trim(KHName.Hint);
|
|||
|
|
with ADOQueryTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('select * from YS_Money_KC where FactoryName='+quotedstr(Trim(FFactoryName)));
|
|||
|
|
sql.Add(' and KCType=''KH'' ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOQueryTemp.IsEmpty=False then
|
|||
|
|
begin
|
|||
|
|
CRID:=ADOQueryTemp.fieldbyname('CRID').AsString;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
with ADOQueryTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from YS_Money_CRID');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOQueryTemp.IsEmpty=False then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update YS_Money_CRID set CRID=CRID+1');
|
|||
|
|
sql.Add('select * from YS_Money_CRID ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('insert into YS_Money_CRID select 0 ');
|
|||
|
|
sql.Add('select * from YS_Money_CRID ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
CRID:=ADOQueryCmd.fieldbyname('CRID').AsString;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('select * from YS_Money_KC where 1<>1');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('CRID').Value:=StrToInt(CRID);
|
|||
|
|
FieldByName('FactoryName').Value:=Trim(FFactoryName);
|
|||
|
|
FieldByName('FactoryNo').Value:=Trim(FFactoryNo);
|
|||
|
|
FieldByName('ZdyStr1').Value:='Ӧ<><D3A6><EFBFBD><EFBFBD>';
|
|||
|
|
FieldByName('KCType').Value:='KH';
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from YS_Money_CR where FactoryNo='+quotedstr(Trim(FFactoryNo)));
|
|||
|
|
sql.Add(' and YFTypeId='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOQueryTemp.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
if GetLSNo(ADOQueryCmd,YFID,'YS','YS_Money_CR',4,1)=False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('ȡӦ<C8A1><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString);
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from YS_Money_CR where YFID='''+Trim(YFID)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
if ADOQueryTemp.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('SCQty').Value:=CDS_Sub.fieldbyname('HSQty').AsFloat;
|
|||
|
|
FieldByName('SCPS').Value:=CDS_Sub.fieldbyname('JQty').AsFloat;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('YFID').Value:=Trim(YFID);
|
|||
|
|
FieldByName('YFTypeId').Value:=Trim(CDS_Sub.fieldbyname('SPID').AsString);
|
|||
|
|
FieldByName('CRID').Value:=StrToInt(CRID);
|
|||
|
|
FieldByName('Filler').Value:=Trim(DName);
|
|||
|
|
FieldByName('CRType').Value:='Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>';
|
|||
|
|
FieldByName('CRFlag').Value:='Ӧ<><D3A6><EFBFBD><EFBFBD>';
|
|||
|
|
FieldByName('ChkStatusP').Value:='δ<><CEB4><EFBFBD><EFBFBD>';
|
|||
|
|
FieldByName('ChkStatusQ').Value:='δ<><CEB4><EFBFBD><EFBFBD>';
|
|||
|
|
FieldByName('QtyFlag').Value:=1;
|
|||
|
|
FieldByName('FactoryName').Value:=Trim(FFactoryName);
|
|||
|
|
FieldByName('FactoryNo').Value:=Trim(FFactoryNo);
|
|||
|
|
FieldByName('CRTime').Value:=Order_Main.fieldbyname('CRTime').AsDateTime;
|
|||
|
|
FieldByName('Qty').Value:=CDS_Sub.fieldbyname('HSQty').AsFloat;
|
|||
|
|
FieldByName('PS').Value:=CDS_Sub.fieldbyname('JQty').AsFloat;
|
|||
|
|
FieldByName('ConNo').Value:=CDS_Sub.fieldbyname('ConNo').Value;
|
|||
|
|
FieldByName('YFType').Value:='<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
FieldByName('Price').Value:=CDS_Sub.fieldbyname('Price').Value;
|
|||
|
|
FieldByName('HSPrice').Value:=CDS_Sub.fieldbyname('Price').Value;
|
|||
|
|
//FieldByName('JSPrice').Value:=CDS_Sub.fieldbyname('Price').Value;
|
|||
|
|
if RadioGroup1.ItemIndex=0 then
|
|||
|
|
begin
|
|||
|
|
FieldByName('HanShui').Value:='<27><>˰'
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FieldByName('HanShui').Value:='<27><><EFBFBD><EFBFBD>˰'
|
|||
|
|
end;
|
|||
|
|
FieldByName('CKNO').Value:=Order_Main.fieldbyname('CKOrdNo').Value;
|
|||
|
|
FieldByName('SJQty').Value:=CDS_Sub.fieldbyname('HSQty').Value;
|
|||
|
|
FieldByName('HZFee').Value:=CDS_Sub.fieldbyname('HZFee').Value;
|
|||
|
|
FieldByName('money').Value:=CDS_Sub.fieldbyname('money').Value;
|
|||
|
|
FieldByName('JSMoney').Value:=CDS_Sub.fieldbyname('money').Value;
|
|||
|
|
FieldByName('HSMoney').Value:=CDS_Sub.fieldbyname('money').Value;
|
|||
|
|
FieldByName('QtyUnit').Value:=Trim(CDS_Sub.fieldbyname('QtyUnit').AsString);
|
|||
|
|
FieldByName('P_CodeName').Value:=Trim(CDS_Sub.fieldbyname('SPName').AsString);
|
|||
|
|
FieldByName('P_MF').Value:=Trim(CDS_Sub.fieldbyname('SPMF').AsString);
|
|||
|
|
FieldByName('P_KZ').Value:=Trim(CDS_Sub.fieldbyname('SPKZ').AsString);
|
|||
|
|
FieldByName('P_Color').Value:=Trim(CDS_Sub.fieldbyname('SPColor').AsString);
|
|||
|
|
FieldByName('P_HX').Value:=Trim(CDS_Sub.fieldbyname('SPHX').AsString);
|
|||
|
|
FieldByName('BZType').Value:=Trim(CDS_Sub.fieldbyname('BZType').AsString);
|
|||
|
|
FieldByName('status').Value:='0';
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update YS_Money_KC Set KCMoney=(select isnull(Sum(HSMoney*QtyFlag),0) from YS_Money_CR A where A.CRID=YS_Money_KC.CRID)');
|
|||
|
|
sql.Add(' where CRID='+CRID);
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
Result:=True;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.ToolButton2Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
FSMID:String;
|
|||
|
|
begin
|
|||
|
|
if Order_Main.IsEmpty then Exit;
|
|||
|
|
if cxTabControl1.TabIndex<>1 then Exit;
|
|||
|
|
if Order_Main.Locate('SSel',True,[])=False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
|
|||
|
|
try
|
|||
|
|
ADOQueryCmd.Connection.BeginTrans;
|
|||
|
|
Order_Main.DisableControls;
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
while Locate('SSel',True,[]) do
|
|||
|
|
begin
|
|||
|
|
with ADOQueryTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from CK_YCL_CR_Main where CKNO='''+Trim(Order_Main.fieldbyname('CKOrdNo').AsString)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
FSMID:=Trim(ADOQueryTemp.fieldbyname('SMID').AsString);
|
|||
|
|
ADOQueryTemp.Close;
|
|||
|
|
if Trim(FSMID)<>'' then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from YS_Money_CR where YFTypeId in');
|
|||
|
|
sql.Add('(select SPID from CK_YCL_CR where SMID='''+Trim(FSMID)+''')');
|
|||
|
|
sql.Add(' and (isnull(ChkerP,'''')<>'''' ');
|
|||
|
|
sql.Add(' or isnull(ChkerQ,'''')<>'''') ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOQueryTemp.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add(' delete YS_Money_CR where YFTypeId in');
|
|||
|
|
sql.Add('(select SPID from CK_YCL_CR where SMID='''+Trim(FSMID)+''')');
|
|||
|
|
sql.Add(' delete CK_YCL_CR where SMID='''+Trim(FSMID)+'''');
|
|||
|
|
sql.Add(' delete CK_YCL_CR_Main where SMID='''+Trim(FSMID)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD>','<27><>ʾ');
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_Main.Delete;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_Main.EnableControls;
|
|||
|
|
ADOQueryCmd.Connection.CommitTrans;
|
|||
|
|
except
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣!','<27><>ʾ',0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.Image2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Panel3.Visible:=False;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.ToolButton3Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
fsj:string;
|
|||
|
|
begin
|
|||
|
|
if Order_Main.Locate('ssel',True,[])=false then
|
|||
|
|
begin
|
|||
|
|
application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ');
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
Self.KHDept.Clear;
|
|||
|
|
Self.KHLXR.Clear;
|
|||
|
|
Panel3.Visible:=True;
|
|||
|
|
Panel3.Refresh;
|
|||
|
|
if Order_Main.Locate('SSel',True,[]) then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select Top 1 * from CK_YCL_CR_Main where isnull(KHNameOld,'''')='''+Trim(Order_Main.fieldbyname('CustomerNoName').AsString)+'''');
|
|||
|
|
sql.Add(' order by CRTime desc ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
KHName.Text:=Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString);
|
|||
|
|
KHName.Hint:=Trim(ADOQueryTemp.fieldbyname('FactoryNo').AsString);
|
|||
|
|
end;
|
|||
|
|
if Trim(KHName.Text)<>'' then
|
|||
|
|
begin
|
|||
|
|
fsj:='select Name=KHDept from CK_YCL_CR_Main where isnull(FactoryName,'''')='''+Trim(KHName.Text)+''' and isnull(KHDept,'''')<>'''' Group by KHDept';
|
|||
|
|
SInitComBoxBySql(ADOQueryTemp,KHDept,False,fsj);
|
|||
|
|
fsj:='select Name=KHLXR from CK_YCL_CR_Main where isnull(FactoryName,'''')='''+Trim(KHName.Text)+''' and isnull(KHLXR,'''')<>'''' Group by KHLXR';
|
|||
|
|
SInitComBoxBySql(ADOQueryTemp,KHLXR,False,fsj);
|
|||
|
|
if KHLXR.Items.Count<1 then
|
|||
|
|
begin
|
|||
|
|
KHLXR.Text:=Trim(KHName.TxtCode);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.Button1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
ToolButton1.Click;
|
|||
|
|
if application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ<EFBFBD>뵥','<27><>ʾ',1)=2 then
|
|||
|
|
begin
|
|||
|
|
InitGrid();
|
|||
|
|
exit;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
ToolButton4.Click;
|
|||
|
|
InitGrid();
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.Panel10MouseMove(Sender: TObject;
|
|||
|
|
Shift: TShiftState; X, Y: Integer);
|
|||
|
|
begin
|
|||
|
|
ReleaseCapture;
|
|||
|
|
TWinControl(Panel3).Perform(WM_SYSCOMMAND,$F012,0);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.KHLXRChange(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
with ADOQueryTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('select Top 1* from CK_YCL_CR_Main where isnull(FactoryName,'''')='''+Trim(KHName.Text)+'''');
|
|||
|
|
sql.Add(' and isnull(KHLXR,'''')='''+Trim(KHLXR.Text)+'''');
|
|||
|
|
sql.Add(' order by CRTime desc ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
KHLXFS.Text:=Trim(ADOQueryTemp.fieldbyname('KHLXFS').AsString);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmXiaoShouDataOldListQB.ToolButton4Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
fPrintFile:string;
|
|||
|
|
begin
|
|||
|
|
if Order_Main.IsEmpty then Exit;
|
|||
|
|
if CustomerNoName.Text='' then
|
|||
|
|
begin
|
|||
|
|
application.MessageBox('<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if Order_Main.Locate('ssel',True,[])=false then
|
|||
|
|
begin
|
|||
|
|
application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ');
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('delete TBSubID where DName='''+Trim(DCode)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\<5C><><EFBFBD><EFBFBD><EFBFBD>뵥<EFBFBD><EBB5A5>.rmf';
|
|||
|
|
RMXLSExport2:= TRMXLSExport.Create(RMXLSExport2);
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
first;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
if FieldByName('Ssel').AsBoolean=true then
|
|||
|
|
begin
|
|||
|
|
with ADOQuery1 do
|
|||
|
|
begin
|
|||
|
|
Filtered:=False;
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add(' select distinct isnull(D.MJID,C.MJID) MJID');
|
|||
|
|
sql.Add(' from CK_YCL_CR A ');
|
|||
|
|
sql.Add(' inner join CK_YCL_CR_Main B on A.SMID=B.SMID ');
|
|||
|
|
sql.Add(' left join CP_InOut1 C on C.InOutNo=B.CKNo');
|
|||
|
|
sql.Add(' left join CK_BanCP_CR D on D.CKOrdNo=B.CKNo');
|
|||
|
|
sql.add(' where B.CKNO='''+Trim(Order_Main.fieldbyname('CKOrdNo').AsString)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('SELECT * FROM TBSubID where 1=2 ');
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
with ADOQuery1 do
|
|||
|
|
begin
|
|||
|
|
first;
|
|||
|
|
while not eof do
|
|||
|
|
begin
|
|||
|
|
ADOQueryTemp.append;
|
|||
|
|
ADOQueryTemp.fieldbyname('SubId').Value:=Trim(ADOQuery1.fieldbyname('MJID').AsString);
|
|||
|
|
ADOQueryTemp.fieldbyname('Dname').Value:=Trim(DCode);
|
|||
|
|
ADOQueryTemp.post;
|
|||
|
|
next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.add('exec P_Print_CKMD3 ');
|
|||
|
|
sql.add('@mainID='+quotedstr(Trim('')));
|
|||
|
|
sql.add(',@DName='+quotedstr(Trim(DCode)));
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQueryTemp,CDS_PRT);
|
|||
|
|
SInitCDSData20(ADOQueryTemp,CDS_PRT);
|
|||
|
|
if FileExists(fPrintFile) then
|
|||
|
|
begin
|
|||
|
|
RM1.LoadFromFile(fPrintFile);
|
|||
|
|
RM1.ShowReport;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+ExtractFilePath(Application.ExeName)+'Report\<5C><><EFBFBD><EFBFBD><EFBFBD>뵥<EFBFBD><EBB5A5>.rmf'),'<27><>ʾ',0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|