Group_01/D10SZKaiXiYa
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
d95a6045c9
D10SZKaiXiYa/B01基础合同管理/U_finishSalesContractList.pas

1257 lines
34 KiB
ObjectPascal
Raw Normal View History

11
2025-08-12 17:25:39 +08:00
unit U_finishSalesContractList;
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,
cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd, cxContainer,
dxCore, cxDateUtils, cxMaskEdit, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI, dxScrollbarAnnotations, cxImage, cxDBEdit, cxProgressBar,
cxCurrencyEdit;
type
TfrmfinishSalesContractList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBAdd: TToolButton;
TBEdit: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
GPM_1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
v1OrdDate: TcxGridDBColumn;
v1ConNo: TcxGridDBColumn;
CDS_2: TClientDataSet;
v1CustomerNoName: TcxGridDBColumn;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
v1Column4: TcxGridDBColumn;
pm2: TPopupMenu;
Panel1: TPanel;
Label4: TLabel;
Label9: TLabel;
cxTabControl1: TcxTabControl;
tchk: TToolButton;
Tnochk: TToolButton;
cxSplitter1: TcxSplitter;
DS_2: TDataSource;
Tqx: TToolButton;
Tnoqx: TToolButton;
ToolButton5: TToolButton;
GPM_2: TcxGridPopupMenu;
CDS_1: TClientDataSet;
btnTijiao: TToolButton;
btnCXTijiao: TToolButton;
Label3: TLabel;
pm1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
btnWC: TToolButton;
btnWCCX: TToolButton;
Label7: TLabel;
ADOQueryImage: TADOQuery;
IsJYTime: TCheckBox;
ToolButton7: TToolButton;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
EndDate: TcxDateEdit;
ConNo: TcxTextEdit;
BuyConNo: TcxTextEdit;
BuyName: TcxTextEdit;
MiddleName: TcxTextEdit;
BegDate: TcxDateEdit;
DSImage: TDataSource;
ADOQuery1: TADOQuery;
Panel2: TPanel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
v1XHNo: TcxGridDBColumn;
VC_SCSCode: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Order_Sub: TClientDataSet;
Tv1DlyDate: TcxGridDBColumn;
TV2C_WidthUnit: TcxGridDBColumn;
TV2density: TcxGridDBColumn;
Tv1Status: TcxGridDBColumn;
1234
2025-08-20 16:06:38 +08:00
ToolButton3: TToolButton;
合同
2025-08-23 16:39:17 +08:00
Tv3: TcxGridDBTableView;
cxGrid3Level1: TcxGridLevel;
cxGrid3: TcxGrid;
Tv3Column1: TcxGridDBColumn;
Tv3Column2: TcxGridDBColumn;
Tv3Column3: TcxGridDBColumn;
CDS_3: TClientDataSet;
DS_3: TDataSource;
GPM_3: TcxGridPopupMenu;
11.12
2025-11-12 17:32:44 +08:00
TV2ShaZhi: TcxGridDBColumn;
TV2C_Color: TcxGridDBColumn;
TV2SampleTime: TcxGridDBColumn;
TV2ConPrice: TcxGridDBColumn;
TV2Currency: TcxGridDBColumn;
TV2ConTotalAmount: TcxGridDBColumn;
Tv1InspStandard: TcxGridDBColumn;
Tv1InspScore: TcxGridDBColumn;
11.16
2025-11-16 11:44:23 +08:00
TbDel: TToolButton;
11
2025-08-12 17:25:39 +08:00
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure BuyNameChange(Sender: TObject);
procedure tchkClick(Sender: TObject);
procedure TnochkClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure TqxClick(Sender: TObject);
procedure TnoqxClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure btnTijiaoClick(Sender: TObject);
procedure btnCXTijiaoClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure btnWCClick(Sender: TObject);
procedure btnWCCXClick(Sender: TObject);
procedure ConNoKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton7Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
1234
2025-08-20 16:06:38 +08:00
procedure ToolButton3Click(Sender: TObject);
11.16
2025-11-16 11:44:23 +08:00
procedure TbDelClick(Sender: TObject);
11
2025-08-12 17:25:39 +08:00
private
fFlileFlag: string;
procedure InitGrid();
procedure SetStatus();
procedure InitSub();
procedure InitImage();
{ Private declarations }
public
FFInt, FCloth: Integer;
FAuthority, FGSTT, FSubIdS: string;
{ Public declarations }
end;
implementation
uses
U_DataLink, U_SalesConInPut, U_RTFun, U_AttachmentUpload, U_LabelPrint,
1234
2025-08-20 16:06:38 +08:00
U_finishSalesConInput, U_HTImport;
11
2025-08-12 17:25:39 +08:00
{$R *.dfm}
procedure TfrmfinishSalesContractList.InitImage();
begin
ADOQueryImage.Close;
if CDS_1.IsEmpty then
exit;
with ADOQueryImage do
begin
close;
sql.Clear;
sql.Add('select * from TP_File A');
sql.Add('where WBID=' + quotedstr(trim(CDS_1.fieldbyname('SubId').AsString)));
sql.Add('and TFType=' + quotedstr(trim('HX')));
open;
end;
end;
procedure TfrmfinishSalesContractList.InitSub();
begin
if CDS_1.IsEmpty then
exit;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from CP_Contract_sub A ');
sql.Add('where ConMID =' + quotedstr((CDS_1.fieldbyname('ConMID').AsString)));
11.12
2025-11-12 17:32:44 +08:00
// ShowMessage(SQL.Text);
11
2025-08-12 17:25:39 +08:00
open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
11.12
2025-11-12 17:32:44 +08:00
// showMessage(intTostr(CDS_2.RecordCount));
11
2025-08-12 17:25:39 +08:00
SInitCDSData(ADOQueryTemp, CDS_2);
11.12
2025-11-12 17:32:44 +08:00
// showMessage(intTostr(CDS_2.RecordCount));
11
2025-08-12 17:25:39 +08:00
TV2.DataController.Filter.Clear;
end;
procedure TfrmfinishSalesContractList.N1Click(Sender: TObject);
begin
SelOKNoFiler(Tv1, True); //ȫѡ
end;
procedure TfrmfinishSalesContractList.N2Click(Sender: TObject);
begin
SelOKNoFiler(Tv1, False); //ȫ<><C8AB>
end;
procedure TfrmfinishSalesContractList.N3Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmfinishSalesContractList.N4Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmfinishSalesContractList.N5Click(Sender: TObject);
begin
SelOKNo(CDS_1, True);
end;
procedure TfrmfinishSalesContractList.N6Click(Sender: TObject);
begin
SelOKNo(CDS_1, False);
end;
procedure TfrmfinishSalesContractList.SetStatus();
begin
TBAdd.Enabled := false;
tbedit.Enabled := false;
ToolButton2.Enabled := false;
tchk.Enabled := false;
tnochk.Enabled := false;
Tqx.Enabled := false;
TNoqx.Enabled := false;
TBPrint.Enabled := False;
btnTijiao.Enabled := False;
btnCXTijiao.Enabled := False;
btnWC.Enabled := False;
btnWCCX.Enabled := False;
11.16
2025-11-16 11:44:23 +08:00
TbDel.Enabled := False;
11
2025-08-12 17:25:39 +08:00
if Trim(FAuthority) = '¼<><C2BC>' then
begin
ToolButton2.Enabled := true;
TBAdd.Enabled := true;
TBPrint.Enabled := True;
case cxTabControl1.TabIndex of
0:
begin
tbedit.Enabled := true;
Tqx.Enabled := True;
btnTijiao.Enabled := True;
end;
1:
begin
tbedit.Enabled := True;
btnCXTijiao.Enabled := True;
end;
2:
begin
btnWC.Enabled := True;
end;
3:
begin
btnWCCX.Enabled := True;
end;
4:
begin
TNoqx.Enabled := True;
11.16
2025-11-16 11:44:23 +08:00
TbDel.Enabled := True;
11
2025-08-12 17:25:39 +08:00
end;
end;
end;
if Trim(FAuthority) = '<27><><EFBFBD><EFBFBD>' then
begin
ToolButton2.Enabled := true;
TBAdd.Enabled := true;
TBPrint.Enabled := True;
case cxTabControl1.TabIndex of
0:
begin
tbedit.Enabled := true;
Tqx.Enabled := true;
btnTijiao.Enabled := True;
end;
1:
begin
btnCXTijiao.Enabled := True;
tchk.Enabled := True;
end;
2:
begin
tnochk.Enabled := True;
btnWC.Enabled := True;
end;
3:
begin
btnWCCX.Enabled := True;
end;
4:
begin
TNoqx.Enabled := true;
11.16
2025-11-16 11:44:23 +08:00
TbDel.Enabled := True;
11
2025-08-12 17:25:39 +08:00
end;
end;
end;
if Trim(FAuthority) = '<27><>ѯ' then
begin
TBPrint.Enabled := True;
end;
end;
procedure TfrmfinishSalesContractList.FormDestroy(Sender: TObject);
begin
inherited;
// frmContractListNX:=nil;
end;
procedure TfrmfinishSalesContractList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmfinishSalesContractList.FormCreate(Sender: TObject);
begin
inherited;
EndDate.Date := SGetServerDate(ADOQueryTemp);
BegDate.Date := EndDate.Date - 90;
end;
procedure TfrmfinishSalesContractList.TBCloseClick(Sender: TObject);
begin
Close;
end;
11.16
2025-11-16 11:44:23 +08:00
procedure TfrmfinishSalesContractList.TbDelClick(Sender: TObject);
var
MConMIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MConMIDS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ',';
end;
next;
end;
MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_CP_Contract_Del ');
sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
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><C6B7><EFBFBD>ۺ<EFBFBD>ͬɾ<CDAC><C9BE>')));
sql.Add(',' + quotedstr(trim('<27><>ͬID<49><44>' + trim(MConMIDS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('ɾ<><C9BE><EFBFBD>ɹ<EFBFBD>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
11
2025-08-12 17:25:39 +08:00
procedure TfrmfinishSalesContractList.InitGrid();
var
WSql: string;
begin
WSql := SGetFilters(Panel1, 1, 2);
if trim(WSql) <> '' then
begin
WSql := ' and ' + trim(WSql);
end;
if IsJYTime.Checked then
begin
WSql := WSql + ' and ConDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date));
WSql := WSql + ' and ConDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1));
end
else
begin
if trim(WSql) <> '' then
WSql := ' and 1=1' + trim(WSql)
else
WSql := WSql + ' and 1=2 ';
end;
if trim(WSql) = 'and 1=2' then
Application.MessageBox('<27><>ѡ<EFBFBD>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>ڻ<EFBFBD><DABB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 0);
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select AA.* from (select A.*');
sql.Add(' from CP_Contract_Main A ) AA ');
sql.Add('where 1=1 ' + (WSql));
// sql.Add(' and AA.ConType in (''<27><><EFBFBD><EFBFBD>'',''<27><><EFBFBD><EFBFBD>'') ');
if Trim(FAuthority) = '¼<><C2BC>' then
begin
sql.Add(' and ( SalesId=' + quotedstr(trim(DCode)) + ' or exists (select * from [dbo].[F_Tool_SplitString](TallyId,'','') X where X.RTValue =' + quotedstr(trim(DCode)) + '))');
end;
case cxTabControl1.TabIndex of
0:
begin
sql.Add(' and isnull(AA.status,''0'')=''0''');
end;
1:
begin
sql.Add(' and isnull(AA.status,''0'')=''1''');
end;
2:
begin
sql.Add(' and isnull(AA.status,''0'')=''9''');
end;
3:
begin
sql.Add(' and isnull(AA.status,''0'')=''10''');
end;
4:
begin
sql.Add(' and isnull(AA.status,''0'')=''-1''');
end;
end;
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
end;
end;
procedure TfrmfinishSalesContractList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmfinishSalesContractList.TBPrintClick(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
11.12
2025-11-12 17:32:44 +08:00
FLMType := 'CPSalesConPrint';
11
2025-08-12 17:25:39 +08:00
FFiltration1 := QuotedStr(Trim(Self.CDS_1.fieldbyname('ConMID').AsString));
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmfinishSalesContractList.TBEditClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
// if Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName) then
// begin
// Application.MessageBox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
try
frmfinishSalesConInput := TfrmfinishSalesConInput.Create(Application);
with frmfinishSalesConInput do
begin
PState := '<27>޸<EFBFBD>';
FConMId := Trim(Self.CDS_1.fieldbyname('ConMID').AsString);
FAuthority := self.FAuthority;
FGSTT := self.FGSTT;
fFlileFlag := self.fFlileFlag;
if ShowModal = 1 then
begin
end;
end;
finally
frmfinishSalesConInput.Free;
end;
end;
procedure TfrmfinishSalesContractList.TBRafreshClick(Sender: TObject);
begin
ToolBar1.SetFocus;
InitGrid();
end;
procedure TfrmfinishSalesContractList.TBAddClick(Sender: TObject);
var
maxno: string;
begin
try
frmfinishSalesConInput := TfrmfinishSalesConInput.Create(Application);
with frmfinishSalesConInput do
begin
PState := '<27><><EFBFBD><EFBFBD>';
FConMId := '';
FAuthority := self.FAuthority;
FGSTT := self.FGSTT;
fFlileFlag := self.fFlileFlag;
if ShowModal = 1 then
begin
end;
end;
finally
frmfinishSalesConInput.Free;
end;
end;
procedure TfrmfinishSalesContractList.FormShow(Sender: TObject);
begin
inherited;
fFlileFlag := UserDataFlag + 'HX';
FAuthority := self.fParameters1;
readCxGrid(trim(Self.Caption) + 'tv1', Tv1, '<27><><EFBFBD>ۺ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>');
readCxGrid(trim(Self.Caption) + 'tv2', Tv2, '<27><><EFBFBD>ۺ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>');
SetStatus();
InitGrid();
11.24 9：47
2025-11-24 09:47:43 +08:00
InitSub();
11
2025-08-12 17:25:39 +08:00
end;
procedure TfrmfinishSalesContractList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
if ToolButton1.Visible = False then
Exit;
ToolButton1.Click;
end;
procedure TfrmfinishSalesContractList.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmfinishSalesContractList.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmfinishSalesContractList.ConNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmfinishSalesContractList.ToolButton1Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmfinishSalesConInput := TfrmfinishSalesConInput.Create(Application);
with frmfinishSalesConInput do
begin
PState := '<27>鿴';
FConMId := Trim(Self.CDS_1.fieldbyname('ConMID').AsString);
FGSTT := self.FGSTT;
ToolBar2.Visible := False;
TBSave.Visible := False;
// ScrollBox1.Enabled := False;
if ShowModal = 1 then
begin
end;
end;
finally
frmfinishSalesConInput.Free;
end;
end;
procedure TfrmfinishSalesContractList.ToolButton2Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmfinishSalesConInput := TfrmfinishSalesConInput.Create(Application);
with frmfinishSalesConInput do
begin
PState := '<27><><EFBFBD><EFBFBD>';
FConMId := Trim(Self.CDS_1.fieldbyname('ConMID').AsString);
FAuthority := self.FAuthority;
fFlileFlag := self.fFlileFlag;
if ShowModal = 1 then
begin
end;
end;
finally
frmfinishSalesConInput.Free;
end;
end;
1234
2025-08-20 16:06:38 +08:00
procedure TfrmfinishSalesContractList.ToolButton3Click(Sender: TObject);
begin
try
frmhtImport := TFrmhtImport.Create(Application);
with frmhtImport do
begin
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmhtImport.Free;
end;
end;
11
2025-08-12 17:25:39 +08:00
procedure TfrmfinishSalesContractList.btnWCClick(Sender: TObject);
var
MConMIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MConMIDS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ',';
end;
next;
end;
MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_CP_Contract_SetStatus ');
sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS));
sql.Add(',@Operation=''<27><><EFBFBD><EFBFBD>'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
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><C6B7><EFBFBD>ۺ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27><>ͬID<49><44>' + trim(MConMIDS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27><><EFBFBD>ɳɹ<C9B3>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmfinishSalesContractList.BuyNameChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmfinishSalesContractList.tchkClick(Sender: TObject);
var
MConMIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MConMIDS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ',';
end;
next;
end;
MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_CP_Contract_SetStatus ');
sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS));
sql.Add(',@Operation=''<27><><EFBFBD><EFBFBD>'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
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><C6B7><EFBFBD>ۺ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27><>ͬID<49><44>' + trim(MConMIDS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27><><EFBFBD>˳ɹ<CBB3>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmfinishSalesContractList.TnochkClick(Sender: TObject);
var
MConMIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MConMIDS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ',';
end;
next;
end;
MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_CP_Contract_SetStatus ');
sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS));
sql.Add(',@Operation=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
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><C6B7><EFBFBD>ۺ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27><>ͬID<49><44>' + trim(MConMIDS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27><><EFBFBD>˳ɹ<CBB3>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmfinishSalesContractList.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
TBRafresh.Click;
end;
procedure TfrmfinishSalesContractList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
InitSub();
end;
procedure TfrmfinishSalesContractList.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from TP_File A');
sql.Add('where WBID =' + quotedstr(trim(CDS_2.fieldbyname('AttName').AsString)));
// ShowMessage(sql.text);
open;
end;
合同
2025-08-23 16:39:17 +08:00
if CDS_2.IsEmpty then
exit;
11.12
2025-11-12 17:32:44 +08:00
with ADOQueryCMD do
合同
2025-08-23 16:39:17 +08:00
begin
close;
sql.Clear;
sql.Add('select * from BS_Contract_sub A ');
sql.Add('where CP_code =' + quotedstr((CDS_2.fieldbyname('C_Code').AsString)));
open;
end;
11.12
2025-11-12 17:32:44 +08:00
SCreateCDS(ADOQueryCMD, CDS_3);
SInitCDSData(ADOQueryCMD, CDS_3);
合同
2025-08-23 16:39:17 +08:00
11
2025-08-12 17:25:39 +08:00
end;
合同
2025-08-23 16:39:17 +08:00
11
2025-08-12 17:25:39 +08:00
procedure TfrmfinishSalesContractList.TqxClick(Sender: TObject);
var
MConMIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MConMIDS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ',';
end;
next;
end;
MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
1234
2025-08-20 16:06:38 +08:00
sql.Add(' exec P_CP_Contract_SetStatus ');
11
2025-08-12 17:25:39 +08:00
sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS));
sql.Add(',@Operation=''ȡ<><C8A1>'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
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><>ͬȡ<CDAC><C8A1>')));
sql.Add(',' + quotedstr(trim('<27><>ͬID<49><44>' + trim(MConMIDS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('ȡ<><C8A1><EFBFBD>ɹ<EFBFBD>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmfinishSalesContractList.TnoqxClick(Sender: TObject);
var
MConMIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MConMIDS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ',';
end;
next;
end;
MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27><>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1>')));
sql.Add(',' + quotedstr(trim('<27><>ͬID<49><44>' + trim(MConMIDS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
1234
2025-08-20 16:06:38 +08:00
sql.Add(' exec P_CP_Contract_SetStatus ');
11
2025-08-12 17:25:39 +08:00
sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS));
sql.Add(',@Operation=''<27><><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1>'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
1234
2025-08-20 16:06:38 +08:00
11
2025-08-12 17:25:39 +08:00
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27><><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD>ɹ<EFBFBD>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmfinishSalesContractList.ToolButton5Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do
begin
fkeyNO := Trim(Self.CDS_1.fieldbyname('ConMID').AsString);
fType := '<27><>ͬ';
FEditAuthority := True;
if ShowModal = 1 then
begin
end;
end;
finally
frmAttachmentUpload.Free;
end;
end;
procedure TfrmfinishSalesContractList.ToolButton7Click(Sender: TObject);
begin
writeCxGrid(trim(Self.Caption) + 'tv1', Tv1, '<27><><EFBFBD>ۺ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>');
writeCxGrid(trim(Self.Caption) + 'tv2', Tv2, '<27><><EFBFBD>ۺ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>');
end;
procedure TfrmfinishSalesContractList.btnWCCXClick(Sender: TObject);
var
MConMIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MConMIDS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ',';
end;
next;
end;
MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_CP_Contract_SetStatus ');
sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS));
sql.Add(',@Operation=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
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><C6B7><EFBFBD>ۺ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27><>ͬID<49><44>' + trim(MConMIDS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɳɹ<C9B3>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmfinishSalesContractList.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 TfrmfinishSalesContractList.btnTijiaoClick(Sender: TObject);
var
MConMIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
// if Order_Sub.IsEmpty then
// raise Exception.Create('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
with CDS_1 do
begin
DisableControls;
First;
MConMIDS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ',';
end;
next;
end;
MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_CP_Contract_SetStatus ');
sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS));
sql.Add(',@Operation=''<27>ύ'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
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><C6B7><EFBFBD>ۺ<EFBFBD>ͬ<EFBFBD>ύ')));
sql.Add(',' + quotedstr(trim('<27><>ͬID<49><44>' + trim(MConMIDS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27>ύ<EFBFBD>ɹ<EFBFBD>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmfinishSalesContractList.btnCXTijiaoClick(Sender: TObject);
var
MConMIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MConMIDS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ',';
end;
next;
end;
MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_CP_Contract_SetStatus ');
sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS));
sql.Add(',@Operation=''<27><><EFBFBD><EFBFBD><EFBFBD>ύ'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
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><C6B7><EFBFBD>ۺ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD><EFBFBD>ύ')));
sql.Add(',' + quotedstr(trim('<27><>ͬID<49><44>' + trim(MConMIDS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD>ɹ<EFBFBD>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
end.
Reference in New Issue Copy Permalink