Group_99/D7zzXiangHeng
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D7zzXiangHeng/合同管理(ContractManagement.dll)/U_ContractListPBKFSH.pas

737 lines
22 KiB
ObjectPascal
Raw Permalink Normal View History

0
2025-08-08 10:42:50 +08:00
unit U_ContractListPBKFSH;
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, cxButtonEdit, RM_E_llPDF, cxDropDownEdit, cxTextEdit;
type
TfrmContractListPBKFSH = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBEdit: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
TBExport: TToolButton;
v1OrdDate: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
v1OrdPerson1: TcxGridDBColumn;
v1ConNo: TcxGridDBColumn;
v1MPRTCF: TcxGridDBColumn;
Order_Main: TClientDataSet;
RMDBDataSet1: TRMDBDataSet;
RMXLSExport1: TRMXLSExport;
v1CustomerNoName: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
ADOQueryPrint: TADOQuery;
CDS_Print: TClientDataSet;
v1Column4: TcxGridDBColumn;
Panel1: TPanel;
Label1: TLabel;
Label4: TLabel;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
Label12: TLabel;
Label13: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CustomerNoName: TEdit;
ConPerson1: TEdit;
MPRTCodeName: TEdit;
ConNo: TEdit;
MPRTKZ: TEdit;
MPRTMF: TEdit;
v1Column2: TcxGridDBColumn;
cxTabControl1: TcxTabControl;
cxSplitter1: TcxSplitter;
ADOQuerySub: TADOQuery;
DataSource2: TDataSource;
v1Column8: TcxGridDBColumn;
Label2: TLabel;
KHConNO: TEdit;
Label3: TLabel;
ToolButton5: TToolButton;
v1Column10: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
ClientDataSet2: TClientDataSet;
cxGridPopupMenu2: TcxGridPopupMenu;
CDS_Note: TClientDataSet;
RM1: TRMGridReport;
v1Column22: TcxGridDBColumn;
Label6: TLabel;
XSType: TComboBox;
RMDBDataSet2: TRMDBDataSet;
v1Column3: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
Label7: TLabel;
Label10: TLabel;
PrtCode: TEdit;
PrtCodeName: TEdit;
v1Column14: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
tnochkkf: TToolButton;
tchkkf: TToolButton;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
v1XHNo: TcxGridDBColumn;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1PRTColor: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
v1Column11: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
ToolButton1: TToolButton;
//RMllPDFExport1: TRMllPDFExport;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure CustomerNoNameChange(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
procedure tchkkfClick(Sender: TObject);
procedure tnochkkfClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
private
DQdate:TDateTime;
fuserName,canshu2:string;
procedure InitGrid();
procedure InitForm();
function DelData():Boolean;
procedure SetStatus();
{ Private declarations }
public
FFInt,FCloth:Integer;
canshu1:string;
{ Public declarations }
end;
//var
//frmContractListNX: TfrmContractListNX;
implementation
uses
U_DataLink,U_ConInPutNXKFSH,U_Fun,U_ZDYHelp, U_FjList_RZ;
{$R *.dfm}
procedure TfrmContractListPBKFSH.SetStatus();
begin
tchkkf.Visible:=false;
tnochkkf.Visible:=false;
TBEdit.Visible:=false;
TBPrint.Visible:=false;
ToolButton1.Visible:=false;
if Trim(canshu1)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
case cxTabControl1.TabIndex of
0:begin
tchkkf.Visible:=true;
TBEdit.Visible:=true;
ToolButton1.Visible:=true;
end;
1:begin
tnochkkf.Visible:=true;
end;
end;
end;
end;
procedure TfrmContractListPBKFSH.FormDestroy(Sender: TObject);
begin
//frmContractListNX:=nil;
end;
procedure TfrmContractListPBKFSH.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmContractListPBKFSH.FormCreate(Sender: TObject);
begin
cxgrid1.Align:=alClient;
DQdate:=SGetServerDate(ADOQueryTemp);
end;
procedure TfrmContractListPBKFSH.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ',Tv1,'<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ',Tv2,'<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure TfrmContractListPBKFSH.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered:=False;
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(',FHPS=(select sum(X.FHPSHZ) from FHSQ_Main X where X.ConMainId=A.MainId ) ');
sql.Add(',Case when isnull((select count(*) from TP_File where WBID=A.MainID and TFType=''<27><>ͬ'' ),0)>0 ');
sql.Add('then Cast(1 as bit) else Cast(0 as bit) end as FJFlag');
sql.Add(',PrtCode=cast((select distinct '' ''+JCS.PrtCode from JYOrderCon_Sub_PB JCS where JCS.MainId=A.MainId for xml path('''')) as varchar(150))');
sql.Add(',PrtCodeName=cast((select distinct '' ''+JCS.PrtCodeName from JYOrderCon_Sub_PB JCS where JCS.MainId=A.MainId for xml path('''')) as varchar(150))');
sql.Add(',Case when isnull((select count(*) from Cloth_Main where ConMainId=A.MainID ),0)>0 ');
sql.Add('then Cast(1 as bit) else Cast(0 as bit) end as JHDFlag');
sql.Add(',Operor=(select top 1 Operor from SY_SysLog where Acction=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>'' and OPEvent=''<27><>ͬ<EFBFBD>ţ<EFBFBD>''+A.ConNo order by OperTime desc)');
sql.Add(',OperTime=(select top 1 OperTime from SY_SysLog where Acction=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>'' and OPEvent=''<27><>ͬ<EFBFBD>ţ<EFBFBD>''+A.ConNo order by OperTime desc)');
sql.Add(' from JYOrderCon_Main_PB A where 1=1');
sql.Add(' and A.FillTIme>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
sql.Add(' and A.FillTIme<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''');
case cxTabControl1.TabIndex of
0:begin
SQL.Add(' and isnull(A.status,''0'')=''1''');
end;
1:begin
SQL.Add(' and isnull(A.status,''0'') in (''4'',''3'')');
end;
end;
Open;
end;
SCreateCDS20(ADOQueryMain,Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmContractListPBKFSH.InitForm();
begin
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ',Tv1,'<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ11',Tv2,'<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
BegDate.DateTime:=EndDate.DateTime-60;
end;
procedure TfrmContractListPBKFSH.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 TfrmContractListPBKFSH.TBEditClick(Sender: TObject);
begin
if Order_Main.IsEmpty then Exit;
try
frmConInPutNXKFSH:=TfrmConInPutNXKFSH.Create(Application);
with frmConInPutNXKFSH do
begin
PState:=1;
FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
if ShowModal=1 then
begin
end;
end;
finally
frmConInPutNXKFSH.Free;
end;
end;
function TfrmContractListPBKFSH.DelData():Boolean;
begin
try
Result:=false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete JYOrderCon_Sub_PB where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete JYOrderCon_Main_PB where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
ExecSQL;
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 TfrmContractListPBKFSH.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then Exit;
SelExportData(Tv1,ADOQueryMain,'<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD>б<EFBFBD>');
end;
procedure TfrmContractListPBKFSH.TBPrintClick(Sender: TObject);
var
fPrintFile,FeeStr:string;
EngMoney:string;
Fint,i,j:Integer;
begin
if Order_Main.IsEmpty then Exit;
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ.rmf' ;
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.Add('select A.*,B.* ');
sql.Add(' from JYOrderCon_Main_PB A inner join JYOrderCon_Sub_PB B on A.MainId=B.MainId ');
sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
Open;
end;
SCreateCDS20(ADOQueryPrint,CDS_Print);
SInitCDSData20(ADOQueryPrint,CDS_Print);
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.Add('select MNote=RTrim(B.MNote),XHInt=Cast(XHNo as int),XHStr=Cast(Null as varchar(20)),B.MNID ');
sql.Add(',A.SYRAddress,A.TelNo,A.FaxNo,A.BankName,A.BankNo,A.CTMAddress,A.CTMTelNo,A.CTMFaxNo');
sql.Add(' from JYOrderCon_Main_PB A left join JYOrderCon_Main_Note_PB B on A.MainId=B.MainId ');
sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
Open;
end;
SCreateCDS20(ADOQueryPrint,CDS_Note);
SInitCDSData20(ADOQueryPrint,CDS_Note);
if (CDS_Note.RecordCount=1) and (Trim(CDS_Note.fieldbyname('MNID').AsString)='') then
begin
begin
with CDS_Note do
begin
Edit;
FieldByName('XHInt').Value:=Null;
FieldByName('XHStr').Value:=Null;
FieldByName('MNote').Value:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD>׷<EFBFBD>ʽ<EFBFBD><CABD>˫<EFBFBD><CBAB><EFBFBD>Ѻ<EFBFBD>Э<EFBFBD>̣<EFBFBD>Э<EFBFBD>̲<EFBFBD><CCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5>ط<EFBFBD>Ժ<EFBFBD><D4BA>Ͻ<EFBFBD><CFBD><EFBFBD><EFBFBD><EFBFBD>򲻿ɿ<F2B2BBBF><C9BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɺ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>У<EFBFBD>ΥԼ<CEA5><D4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Э<EFBFBD>̣<EFBFBD>';
Post;
end;
CopyAddRowCDS(CDS_Note);
with CDS_Note do
begin
Edit;
FieldByName('XHInt').Value:=Null;
FieldByName('XHStr').Value:=Null;
FieldByName('MNote').Value:='<27><><EFBFBD><EFBFBD>ͬһʽ<D2BB><CABD><EFBFBD><EFBFBD>,˫<><CBAB><EFBFBD><EFBFBD>ִһ<D6B4><D2BB>,<2C><>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD>ʽͬΪ<CDAC><CEAA>Ч,˫<><CBAB>ǩ<EFBFBD><C7A9>֮<EFBFBD><D6AE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
Post;
end;
end;
end else
begin
CopyAddRowCDS(CDS_Note);
with CDS_Note do
begin
Edit;
FieldByName('XHInt').Value:=Null;
FieldByName('XHStr').Value:=Null;
FieldByName('MNote').Value:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD>׷<EFBFBD>ʽ<EFBFBD><CABD>˫<EFBFBD><CBAB><EFBFBD>Ѻ<EFBFBD>Э<EFBFBD>̣<EFBFBD>Э<EFBFBD>̲<EFBFBD><CCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˿<EFBFBD><CBBF>ŵ<EFBFBD><C5B5>ط<EFBFBD>Ժ<EFBFBD><D4BA>Ͻ<EFBFBD><CFBD><EFBFBD><EFBFBD><EFBFBD>򲻿ɿ<F2B2BBBF><C9BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɺ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>У<EFBFBD>ΥԼ<CEA5><D4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Э<EFBFBD>̣<EFBFBD>';
Post;
end;
CopyAddRowCDS(CDS_Note);
with CDS_Note do
begin
Edit;
FieldByName('XHInt').Value:=Null;
FieldByName('XHStr').Value:=Null;
FieldByName('MNote').Value:='<27><><EFBFBD><EFBFBD>ͬһʽ<D2BB><CABD><EFBFBD><EFBFBD>,˫<><CBAB><EFBFBD><EFBFBD>ִһ<D6B4><D2BB>,<2C><>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD>ʽͬΪ<CDAC><CEAA>Ч,˫<><CBAB>ǩ<EFBFBD><C7A9>֮<EFBFBD><D6AE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
Post;
end;
end;
Fint:=CDS_Note.RecordCount;
i:=7;
if Fint=2 then
begin
with CDS_Note do
begin
First;
while not Eof do
begin
i:=i+1;
Edit;
if i=8 then
begin
FieldByName('XHStr').Value:='<27>ˡ<EFBFBD>';
end else
begin
FieldByName('XHStr').Value:='<27>š<EFBFBD>';
end;
Post;
Next;
end;
end;
end else
begin
with CDS_Note do
begin
First;
while not Eof do
begin
i:=i+1;
Edit;
if i=8 then
begin
FieldByName('XHStr').Value:='<27>ˡ<EFBFBD>';
end else
if i=9 then
begin
FieldByName('XHStr').Value:='<27>š<EFBFBD>';
end else
if i=10 then
begin
FieldByName('XHStr').Value:='ʮ<><CAAE>';
end else
if i=11 then
begin
FieldByName('XHStr').Value:='ʮһ<CAAE><D2BB>';
end else
if i=12 then
begin
FieldByName('XHStr').Value:='ʮ<><CAAE><EFBFBD><EFBFBD>';
end else
if i=13 then
begin
FieldByName('XHStr').Value:='ʮ<><CAAE><EFBFBD><EFBFBD>';
end else
if i=14 then
begin
FieldByName('XHStr').Value:='ʮ<>ġ<EFBFBD>';
end else
if i=15 then
begin
FieldByName('XHStr').Value:='ʮ<>塢';
end else
if i=16 then
begin
FieldByName('XHStr').Value:='ʮ<><CAAE><EFBFBD><EFBFBD>';
end;
Post;
Next;
end;
end;
end;
if FileExists(fPrintFile) then
begin
RMVariables['EngMoney']:=EngMoney;
//RMVariables['FeeStr']:=FeeStr;
//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><EFBFBD><EFBFBD>ͬ.rmf'),'<27><>ʾ',0);
end;
end;
procedure TfrmContractListPBKFSH.TBRafreshClick(Sender: TObject);
begin
InitGrid();
TBFind.Click;
end;
procedure TfrmContractListPBKFSH.FormShow(Sender: TObject);
begin
fuserName:=DCode;
InitForm();
SetStatus();
end;
procedure TfrmContractListPBKFSH.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmContractListPBKFSH.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmContractListPBKFSH.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 TfrmContractListPBKFSH.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 TfrmContractListPBKFSH.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
TBRafresh.Click;
end;
procedure TfrmContractListPBKFSH.ToolButton5Click(Sender: TObject);
begin
if Order_Main.IsEmpty then Exit;
try
frmFjList_RZ:=TfrmFjList_RZ.Create(Application);
with frmFjList_RZ do
begin
// PState:=1;
//if Trim(DParameters1)<>'<27><>Ȩ<EFBFBD><C8A8>' then cxButton1.Visible:=false;
if Self.cxTabControl1.TabIndex<>0 then cxButton1.Visible:=false;
fkeyNO:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
fType:='<27><>ͬ';
if ShowModal=1 then
begin
end;
end;
finally
frmFjList_RZ.Free;
end;
end;
procedure TfrmContractListPBKFSH.Tv1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
IF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('status').Index]='2' then
ACanvas.Brush.Color:=clLime;
end;
procedure TfrmContractListPBKFSH.Tv1FocusedRecordChanged(
Sender: TcxCustomGridTableView; APrevFocusedRecord,
AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
if Order_Main.IsEmpty=False then
sql.Add('select * from JYOrderCon_Sub_PB A where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''')
else
sql.Add('select * from JYOrderCon_Sub_PB A where 1=2');
Open;
end;
SCreateCDS20(ADOQueryTemp,ClientDataSet2);
SInitCDSData20(ADOQueryTemp,ClientDataSet2);
end;
procedure TfrmContractListPBKFSH.tchkkfClick(Sender: TObject);
begin
if Order_Main.IsEmpty then exit;
if ClientDataSet2.Locate('ZhenZhiNote','',[])=True then
begin
Application.MessageBox('<27><>֯Ҫ<D6AF><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if ClientDataSet2.Locate('ZhenZhiNote',null,[])=True then
begin
Application.MessageBox('<27><>֯Ҫ<D6AF><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if ClientDataSet2.Locate('ZZSunHao','',[])=True then
begin
Application.MessageBox('֯<><D6AF><EFBFBD><EFBFBD><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if ClientDataSet2.Locate('ZZSunHao',null,[])=True then
begin
Application.MessageBox('֯<><D6AF><EFBFBD><EFBFBD><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if ClientDataSet2.Locate('MeiFenZhuanSu',null,[])=True then
begin
Application.MessageBox('ת<><D7AA>/<2F>ֲ<EFBFBD><D6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if ClientDataSet2.Locate('MeiFenZhuanSu',0,[])=True then
begin
Application.MessageBox('ת<><D7AA>/<2F>ֲ<EFBFBD><D6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if ClientDataSet2.Locate('ZongJieNote',null,[])=True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܽ᲻<DCBD><E1B2BB>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
if ClientDataSet2.Locate('ZongJieNote',null,[])=True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܽ᲻<DCBD><E1B2BB>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update JYOrderCon_Main_PB SET status=''4'' ');
sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' '+quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(','+quotedstr(trim(self.Caption)));
sql.Add(','+quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>')));
sql.Add(','+quotedstr(trim('<27><>ͬ<EFBFBD>ţ<EFBFBD>'+trim(Order_Main.FieldByName('conNo').AsString))));
sql.Add(','+quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
execsql;
end;
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˳ɹ<CBB3><C9B9><EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ');
TBRafresh.Click;
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
end;
end;
procedure TfrmContractListPBKFSH.tnochkkfClick(Sender: TObject);
begin
if Order_Main.IsEmpty then exit;
if Order_Main.FieldByName('status').AsString<>'4' then exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update JYOrderCon_Main_PB SET status=''1'' ');
sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' '+quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(','+quotedstr(trim(self.Caption)));
sql.Add(','+quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(','+quotedstr(trim('<27><>ͬ<EFBFBD>ţ<EFBFBD>'+trim(Order_Main.FieldByName('conNo').AsString))));
sql.Add(','+quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
execsql;
end;
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˳ɹ<CBB3><C9B9><EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ');
TBRafresh.Click;
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
end;
end;
procedure TfrmContractListPBKFSH.ToolButton1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then exit;
if Application.MessageBox('ȷ<><C8B7>Ҫȡ<D2AA><C8A1><EFBFBD><EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update JYOrderCon_Main_PB SET status=''2'' ');
sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' '+quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(','+quotedstr(trim(self.Caption)));
sql.Add(','+quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬȡ<CDAC><C8A1>')));
sql.Add(','+quotedstr(trim('<27><>ͬ<EFBFBD>ţ<EFBFBD>'+trim(Order_Main.FieldByName('conNo').AsString))));
sql.Add(','+quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
execsql;
end;
application.MessageBox('<27><>ͬȡ<CDAC><C8A1><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ');
TBRafresh.Click;
except
application.MessageBox('<27><>ͬȡ<CDAC><C8A1>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
end;
end;
end.
Reference in New Issue Copy Permalink