846 lines
24 KiB
ObjectPascal
846 lines
24 KiB
ObjectPascal
|
unit U_frmProductOrderCarEdit;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, StdCtrls, ExtCtrls, BtnEdit, ComCtrls, cxStyles, cxCustomData,
|
|||
|
|
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
|
|||
|
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ToolWin,
|
|||
|
|
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid, ADODB, DBClient,
|
|||
|
|
cxCalendar, cxContainer, cxTextEdit, cxCurrencyEdit, cxDropDownEdit,
|
|||
|
|
cxCheckBox, Menus;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfrmfrmProductOrderCarEdit = class(TForm)
|
|||
|
|
Panel1: TPanel;
|
|||
|
|
GroupBox1: TGroupBox;
|
|||
|
|
Label2: TLabel;
|
|||
|
|
OrderNo: TBtnEditA;
|
|||
|
|
Label3: TLabel;
|
|||
|
|
customerNoName: TEdit;
|
|||
|
|
Label4: TLabel;
|
|||
|
|
MprtCodeName: TEdit;
|
|||
|
|
Label5: TLabel;
|
|||
|
|
prtColor: TEdit;
|
|||
|
|
Panel2: TPanel;
|
|||
|
|
TV1: TcxGridDBTableView;
|
|||
|
|
cxGrid1Level1: TcxGridLevel;
|
|||
|
|
cxGrid1: TcxGrid;
|
|||
|
|
CRTime: TDateTimePicker;
|
|||
|
|
Label1: TLabel;
|
|||
|
|
Label7: TLabel;
|
|||
|
|
Button1: TButton;
|
|||
|
|
Button2: TButton;
|
|||
|
|
V1Column1: TcxGridDBColumn;
|
|||
|
|
V1Column2: TcxGridDBColumn;
|
|||
|
|
V1Column4: TcxGridDBColumn;
|
|||
|
|
CDS_Glide: TClientDataSet;
|
|||
|
|
DS_Glide: TDataSource;
|
|||
|
|
CDS_Car: TClientDataSet;
|
|||
|
|
DS_Car: TDataSource;
|
|||
|
|
ADO_Car: TADOQuery;
|
|||
|
|
ADO_Glide: TADOQuery;
|
|||
|
|
ADO_Order: TADOQuery;
|
|||
|
|
ADOQueryCmd: TADOQuery;
|
|||
|
|
ADOQueryTmp: TADOQuery;
|
|||
|
|
V1Column5: TcxGridDBColumn;
|
|||
|
|
carnum: TcxCurrencyEdit;
|
|||
|
|
Button3: TButton;
|
|||
|
|
V1Column7: TcxGridDBColumn;
|
|||
|
|
PopupMenu1: TPopupMenu;
|
|||
|
|
N2: TMenuItem;
|
|||
|
|
N1: TMenuItem;
|
|||
|
|
Label8: TLabel;
|
|||
|
|
PRTPs: TEdit;
|
|||
|
|
GroupBox2: TGroupBox;
|
|||
|
|
ToolBar1: TToolBar;
|
|||
|
|
ToolButton1: TToolButton;
|
|||
|
|
ToolButton6: TToolButton;
|
|||
|
|
ToolButton2: TToolButton;
|
|||
|
|
ToolButton3: TToolButton;
|
|||
|
|
ToolButton4: TToolButton;
|
|||
|
|
ToolButton5: TToolButton;
|
|||
|
|
cxGrid2: TcxGrid;
|
|||
|
|
TV2: TcxGridDBTableView;
|
|||
|
|
TV2Column1: TcxGridDBColumn;
|
|||
|
|
TV2Column2: TcxGridDBColumn;
|
|||
|
|
TV2Column3: TcxGridDBColumn;
|
|||
|
|
cxGridLevel1: TcxGridLevel;
|
|||
|
|
GroupBox3: TGroupBox;
|
|||
|
|
ToolBar2: TToolBar;
|
|||
|
|
ToolButton7: TToolButton;
|
|||
|
|
DS_PBKC: TDataSource;
|
|||
|
|
cxGrid3: TcxGrid;
|
|||
|
|
TV3: TcxGridDBTableView;
|
|||
|
|
cxGridLevel2: TcxGridLevel;
|
|||
|
|
V3Column1: TcxGridDBColumn;
|
|||
|
|
V3Column2: TcxGridDBColumn;
|
|||
|
|
ADO_PBCK: TADOQuery;
|
|||
|
|
ToolButton8: TToolButton;
|
|||
|
|
CDS_PBCK: TClientDataSet;
|
|||
|
|
V3Column3: TcxGridDBColumn;
|
|||
|
|
V3Column4: TcxGridDBColumn;
|
|||
|
|
V3Column5: TcxGridDBColumn;
|
|||
|
|
Label9: TLabel;
|
|||
|
|
orderType: TEdit;
|
|||
|
|
Label10: TLabel;
|
|||
|
|
MPRTMF: TEdit;
|
|||
|
|
Label11: TLabel;
|
|||
|
|
MPRTKZ: TEdit;
|
|||
|
|
V1Column8: TcxGridDBColumn;
|
|||
|
|
V1Column9: TcxGridDBColumn;
|
|||
|
|
V1Column10: TcxGridDBColumn;
|
|||
|
|
procedure FormDestroy(Sender: TObject);
|
|||
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
procedure FormCreate(Sender: TObject);
|
|||
|
|
procedure ToolButton2Click(Sender: TObject);
|
|||
|
|
procedure ToolButton3Click(Sender: TObject);
|
|||
|
|
procedure ToolButton4Click(Sender: TObject);
|
|||
|
|
procedure OrderNoBtnClick(Sender: TObject);
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure Button1Click(Sender: TObject);
|
|||
|
|
procedure Button2Click(Sender: TObject);
|
|||
|
|
procedure Button3Click(Sender: TObject);
|
|||
|
|
procedure ToolButton5Click(Sender: TObject);
|
|||
|
|
procedure ToolButton1Click(Sender: TObject);
|
|||
|
|
procedure TV1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
|
|||
|
|
procedure ToolButton6Click(Sender: TObject);
|
|||
|
|
procedure TV1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
|||
|
|
procedure N2Click(Sender: TObject);
|
|||
|
|
procedure N1Click(Sender: TObject);
|
|||
|
|
procedure ToolButton7Click(Sender: TObject);
|
|||
|
|
procedure ToolButton8Click(Sender: TObject);
|
|||
|
|
procedure V3Column4PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure TV1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|||
|
|
private
|
|||
|
|
fOrderType: string;
|
|||
|
|
procedure InitOrder();
|
|||
|
|
procedure InitCar();
|
|||
|
|
procedure InitGlide();
|
|||
|
|
procedure InitPBCK();
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
fsyrName, fMainID, fsubID, fcarNo: string;
|
|||
|
|
|
|||
|
|
{ Public declarations }
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmfrmProductOrderCarEdit: TfrmfrmProductOrderCarEdit;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
U_DataLink, U_ZDYHelp, U_Fun, U_ProductOrderListSel, U_GXGL_List_DXCX,
|
|||
|
|
U_PBKcList;
|
|||
|
|
{$R *.dfm}
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.InitPBCK();
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
try
|
|||
|
|
with ADO_PBCK do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select A.*');
|
|||
|
|
sql.Add(',KCPS=(select X.KCPS from CK_PB_CR X where X.Valid=''Y'' and X.CRFlag=''<27><><EFBFBD><EFBFBD>'' and X.CRID=A.KCID)');
|
|||
|
|
sql.Add('from JYOrder_PBKC A ');
|
|||
|
|
sql.Add(' where A.MainID=' + QUOTEDSTR(Trim(FMainID)));
|
|||
|
|
sql.Add(' AND A.SUBID=' + QUOTEDSTR(Trim(FSUBID)));
|
|||
|
|
// ShowMessage(SQL.Text);
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADO_PBCK, CDS_PBCK);
|
|||
|
|
SInitCDSData20(ADO_PBCK, CDS_PBCK);
|
|||
|
|
finally
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.InitGlide();
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
with Ado_Glide do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select A.*');
|
|||
|
|
sql.Add('from JYOrder_Glide A ');
|
|||
|
|
sql.Add('where A.carNo=''' + trim(cds_Car.fieldbyname('carNo').AsString) + ''' ');
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(Ado_Glide, CDS_Glide);
|
|||
|
|
SInitCDSData20(Ado_Glide, CDS_Glide);
|
|||
|
|
finally
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.InitCar();
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
with Ado_car do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select A.*,oldRollNum=A.RollNum');
|
|||
|
|
sql.Add('from JYOrder_car A ');
|
|||
|
|
sql.Add('where A.MainID=''' + trim(fmainID) + ''' ');
|
|||
|
|
sql.Add('and A.subID=''' + trim(fsubID) + ''' ');
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(Ado_car, CDS_car);
|
|||
|
|
SInitCDSData20(Ado_car, CDS_car);
|
|||
|
|
finally
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.InitOrder();
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
with Ado_Order do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select A.*,B.*');
|
|||
|
|
sql.Add('from JYOrder_sub A ');
|
|||
|
|
sql.Add('inner join JYOrder_Main B on B.MainID=A.mainID ');
|
|||
|
|
sql.Add('where A.MainID=''' + trim(fMainID) + ''' ');
|
|||
|
|
sql.Add('and A.subID=''' + trim(fsubID) + ''' ');
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
if not Ado_Order.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
SCSHDataNew(Ado_Order, Panel1, 2);
|
|||
|
|
if trim(orderType.Text) = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|||
|
|
begin
|
|||
|
|
GroupBox3.Visible := False;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
GroupBox3.Visible := False;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.FormDestroy(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
frmfrmProductOrderCarEdit := nil;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
begin
|
|||
|
|
Action := cahide;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.FormCreate(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
GroupBox1.Align := AlClient;
|
|||
|
|
CRTime.Date := DServerDate;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.ToolButton2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
with CDS_Glide do
|
|||
|
|
begin
|
|||
|
|
if IsEmpty then
|
|||
|
|
Exit;
|
|||
|
|
if RecNo >= 1 then
|
|||
|
|
begin
|
|||
|
|
//Prior;
|
|||
|
|
Edit;
|
|||
|
|
fieldByName('GlideIdx').Value := fieldByName('GlideIdx').Value - 1;
|
|||
|
|
Post;
|
|||
|
|
Prior;
|
|||
|
|
Edit;
|
|||
|
|
fieldByName('GlideIdx').Value := fieldByName('GlideIdx').Value + 1;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
Prior;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.ToolButton3Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
CDS_Glide.IndexFieldNames := 'GlideIdx';
|
|||
|
|
with CDS_Glide do
|
|||
|
|
begin
|
|||
|
|
if IsEmpty then
|
|||
|
|
Exit;
|
|||
|
|
Next;
|
|||
|
|
if not Eof then
|
|||
|
|
Prior
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if not Eof then
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
fieldByName('GlideIdx').Value := fieldByName('GlideIdx').Value + 1;
|
|||
|
|
Post;
|
|||
|
|
Prior;
|
|||
|
|
Edit;
|
|||
|
|
fieldByName('GlideIdx').Value := fieldByName('GlideIdx').Value - 1;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.ToolButton4Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
k: integer;
|
|||
|
|
begin
|
|||
|
|
if cds_Glide.IsEmpty then
|
|||
|
|
exit;
|
|||
|
|
cds_Glide.Delete;
|
|||
|
|
cds_Glide.IndexFieldNames := 'GlideIdx';
|
|||
|
|
cds_Glide.DisableControls;
|
|||
|
|
cds_Glide.First;
|
|||
|
|
k := 1;
|
|||
|
|
while not cds_Glide.Eof do
|
|||
|
|
begin
|
|||
|
|
cds_Glide.Edit;
|
|||
|
|
cds_Glide.FieldByName('GlideIdx').Value := k;
|
|||
|
|
cds_Glide.Post;
|
|||
|
|
inc(k);
|
|||
|
|
cds_Glide.Next;
|
|||
|
|
end;
|
|||
|
|
cds_Glide.First;
|
|||
|
|
cds_Glide.EnableControls;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.OrderNoBtnClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
frmProductOrderListSel := TfrmProductOrderListSel.create(self);
|
|||
|
|
with frmProductOrderListSel do
|
|||
|
|
begin
|
|||
|
|
fsyrName := self.fsyrName;
|
|||
|
|
if ShowModal = 1 then
|
|||
|
|
begin
|
|||
|
|
fmainID := Order_Main.fieldbyname('mainID').asstring;
|
|||
|
|
fsubID := Order_Main.fieldbyname('subID').asstring;
|
|||
|
|
InitOrder();
|
|||
|
|
InitCar();
|
|||
|
|
initGlide();
|
|||
|
|
InitPBCK();
|
|||
|
|
end;
|
|||
|
|
free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.FormShow(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
InitOrder();
|
|||
|
|
InitCar();
|
|||
|
|
initGlide();
|
|||
|
|
InitPBCK();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.Button1Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
i, k, Fcarxh: integer;
|
|||
|
|
maxId: string;
|
|||
|
|
MRollNum: Double;
|
|||
|
|
begin
|
|||
|
|
if trim(OrderNo.Text) = '' then
|
|||
|
|
begin
|
|||
|
|
application.MessageBox('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if CDS_Car.IsEmpty then
|
|||
|
|
Fcarxh := 0
|
|||
|
|
else
|
|||
|
|
Fcarxh := CDS_Car.RecordCount;
|
|||
|
|
|
|||
|
|
if strtointdef(trim(carNum.text), 0) <= 1 then
|
|||
|
|
k := 1
|
|||
|
|
else
|
|||
|
|
k := strtointdef(trim(carNum.text), 0);
|
|||
|
|
|
|||
|
|
MRollNum := RoundFloat(strtointdef(trim(PRTPs.text), 0) / k, 0);
|
|||
|
|
|
|||
|
|
CDS_Car.Last;
|
|||
|
|
for i := 1 to k do
|
|||
|
|
begin
|
|||
|
|
Fcarxh := Fcarxh + 1;
|
|||
|
|
CopyAddRowCDS(CDS_Car);
|
|||
|
|
if GetLSNo(ADOQueryCmd, maxId, 'CZ', 'JYOrder_Car', 3, 1) = False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
CDS_Car.edit;
|
|||
|
|
CDS_Car.FieldByName('carNo').Value := maxId;
|
|||
|
|
CDS_Car.FieldByName('carxh').Value := Fcarxh;
|
|||
|
|
CDS_Car.FieldByName('CRTime').Value := CRTime.date;
|
|||
|
|
CDS_Car.FieldByName('Sflag').Value := '0';
|
|||
|
|
CDS_Car.FieldByName('KKMF').Value := Trim(MPRTMF.Text);
|
|||
|
|
CDS_Car.FieldByName('KKKZ').Value := Trim(MPRTKZ.Text);
|
|||
|
|
CDS_Car.FieldByName('RollNum').Value := MRollNum;
|
|||
|
|
CDS_Car.Post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.Button2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if CDS_car.IsEmpty then
|
|||
|
|
exit;
|
|||
|
|
if CDS_car.Locate('RollNum', null, []) then
|
|||
|
|
begin
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>㣡', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if CDS_car.Locate('RollNum', 0, []) then
|
|||
|
|
begin
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>㣡', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
ADOQueryCmd.Connection.BeginTrans;
|
|||
|
|
try
|
|||
|
|
CDS_Car.DisableControls;
|
|||
|
|
CDS_Car.First;
|
|||
|
|
while not CDS_Car.Eof do
|
|||
|
|
begin
|
|||
|
|
if CDS_Car.FieldByName('GlideIDx').AsInteger = 0 then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from JYOrder_Car A');
|
|||
|
|
sql.Add('where CarNO=''' + trim(CDS_Car.fieldbyname('CarNo').AsString) + '''');
|
|||
|
|
open;
|
|||
|
|
if IsEmpty then
|
|||
|
|
begin
|
|||
|
|
append;
|
|||
|
|
fieldbyname('Filler').Value := trim(DName);
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName('Editer').Value := Trim(DName);
|
|||
|
|
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTmp);
|
|||
|
|
end;
|
|||
|
|
FieldByName('carNo').Value := trim(CDS_Car.fieldbyname('carNo').AsString);
|
|||
|
|
FieldByName('CrTime').Value := formatdateTime('yyyy-MM-dd', CDS_Car.fieldbyname('CrTime').AsDateTime);
|
|||
|
|
FieldByName('MainID').Value := trim(fMainID);
|
|||
|
|
FieldByName('subID').Value := trim(fsubID);
|
|||
|
|
FieldByName('carxh').Value := CDS_Car.fieldbyname('carxh').AsInteger;
|
|||
|
|
FieldByName('KKMF').Value := trim(CDS_Car.fieldbyname('KKMF').AsString);
|
|||
|
|
FieldByName('KKKZ').Value := trim(CDS_Car.fieldbyname('KKKZ').AsString);
|
|||
|
|
FieldByName('RollNum').Value := CDS_Car.fieldbyname('RollNum').AsInteger;
|
|||
|
|
FieldByName('Qty').Value := CDS_Car.fieldbyname('Qty').AsFloat;
|
|||
|
|
FieldByName('QtyUnit').Value := trim(CDS_Car.fieldbyname('QtyUnit').AsString);
|
|||
|
|
FieldByName('Note').Value := trim(CDS_Car.fieldbyname('Note').AsString);
|
|||
|
|
FieldByName('valid').Value := 'Y';
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('exec P_Insert_Glide ' + quotedstr(OrderNo.Text) + ',' + quotedstr(Trim(trim(CDS_Car.fieldbyname('CarNo').AsString))));
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
CDS_Car.Next;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
CDS_Car.EnableControls;
|
|||
|
|
ADOQueryCmd.Connection.CommitTrans;
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
|
|||
|
|
ModalResult := 1;
|
|||
|
|
except
|
|||
|
|
CDS_Car.EnableControls;
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.Button3Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if CDS_car.IsEmpty then
|
|||
|
|
exit;
|
|||
|
|
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
|||
|
|
Exit;
|
|||
|
|
|
|||
|
|
with ADOQueryTmp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from CK_PB_CR where Valid=''Y'' and CRType=''<27>Զ<EFBFBD><D4B6><EFBFBD>ƥ''');
|
|||
|
|
sql.Add('and CarNo=' + quotedstr(Trim(CDS_car.fieldbyname('carNO').AsString)));
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOQueryTmp.IsEmpty = False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27>ѿ<EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
try
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add(' delete JYOrder_car where carNO=''' + Trim(CDS_car.fieldbyname('carNo').AsString) + '''');
|
|||
|
|
sql.Add(' exec P_Do_PbOut_Del @carNO=''' + Trim(CDS_car.fieldbyname('carNo').AsString) + '''');
|
|||
|
|
execsql;
|
|||
|
|
end;
|
|||
|
|
CDS_car.Delete;
|
|||
|
|
except
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.ToolButton5Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
maxID: string;
|
|||
|
|
begin
|
|||
|
|
if CDS_Glide.IsEmpty then
|
|||
|
|
exit;
|
|||
|
|
ADOQueryCmd.Connection.BeginTrans;
|
|||
|
|
try
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('delete from JYOrder_Glide ');
|
|||
|
|
sql.Add('where carNO=''' + trim(cds_car.fieldbyname('carNo').asstring) + '''');
|
|||
|
|
execsql;
|
|||
|
|
end;
|
|||
|
|
CDS_Glide.DisableControls;
|
|||
|
|
CDS_Glide.First;
|
|||
|
|
while not CDS_Glide.Eof do
|
|||
|
|
begin
|
|||
|
|
if trim(CDS_Glide.FieldByName('GlideNo').asstring) = '' then
|
|||
|
|
begin
|
|||
|
|
if GetLSNo(ADOQueryCmd, maxID, 'CG', 'JYOrder_Glide', 4, 1) = False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
CDS_Glide.Edit;
|
|||
|
|
CDS_Glide.FieldByName('GlideNo').Value := trim(maxID);
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from JYOrder_Glide A');
|
|||
|
|
sql.Add('where GlideNo=''' + trim(CDS_Glide.fieldbyname('GlideNo').AsString) + '''');
|
|||
|
|
open;
|
|||
|
|
if IsEmpty then
|
|||
|
|
begin
|
|||
|
|
append;
|
|||
|
|
fieldbyname('Filler').Value := trim(DName);
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName('Editer').Value := Trim(DName);
|
|||
|
|
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTmp);
|
|||
|
|
end;
|
|||
|
|
FieldByName('GlideNo').Value := trim(CDS_Glide.fieldbyname('GlideNo').AsString);
|
|||
|
|
FieldByName('Glideidx').Value := CDS_Glide.fieldbyname('GlideIdx').AsInteger;
|
|||
|
|
FieldByName('MainID').Value := trim(fMainID);
|
|||
|
|
FieldByName('subID').Value := trim(fsubID);
|
|||
|
|
FieldByName('carNo').Value := trim(CDS_car.fieldbyname('carNo').AsString);
|
|||
|
|
FieldByName('GlideName').Value := trim(CDS_Glide.fieldbyname('GlideName').AsString);
|
|||
|
|
FieldByName('RollNum').Value := CDS_Glide.fieldbyname('RollNum').AsInteger;
|
|||
|
|
// FieldByName('Qty').Value:=CDS_Glide.fieldbyname('Qty').AsFloat;
|
|||
|
|
// FieldByName('QtyUnit').Value:=trim(CDS_Glide.fieldbyname('QtyUnit').AsString);
|
|||
|
|
FieldByName('Note').Value := trim(CDS_Glide.fieldbyname('Note').AsString);
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
CDS_Glide.Next;
|
|||
|
|
end;
|
|||
|
|
CDS_Glide.EnableControls;
|
|||
|
|
ADOQueryCmd.Connection.CommitTrans;
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
|
|||
|
|
except
|
|||
|
|
CDS_Glide.EnableControls;
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.ToolButton1Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
maxId: string;
|
|||
|
|
begin
|
|||
|
|
if CDS_Car.IsEmpty then
|
|||
|
|
exit;
|
|||
|
|
if not CDS_Car.Locate('Ssel', true, []) then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD>̿<EFBFBD><CCBF><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
frmGXGL_List_DXCX := TfrmGXGL_List_DXCX.create(self);
|
|||
|
|
with frmGXGL_List_DXCX do
|
|||
|
|
begin
|
|||
|
|
if showmodal = 1 then
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
ADOQueryCmd.Connection.BeginTrans;
|
|||
|
|
CDS_Car.DisableControls;
|
|||
|
|
CDS_Car.First;
|
|||
|
|
Order_FZ.DisableControls;
|
|||
|
|
while not CDS_Car.Eof do
|
|||
|
|
begin
|
|||
|
|
if CDS_Car.fieldbyname('Ssel').AsBoolean then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('delete from JYOrder_Glide ');
|
|||
|
|
sql.Add('where carNo=''' + trim(CDS_Car.fieldbyname('carNo').AsString) + '''');
|
|||
|
|
execsql;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
Order_FZ.First;
|
|||
|
|
while not Order_FZ.eof do
|
|||
|
|
begin
|
|||
|
|
if GetLSNo(ADOQueryCmd, maxId, 'CG', 'JYOrder_Glide', 4, 1) = False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from JYOrder_Glide where 1=2');
|
|||
|
|
open;
|
|||
|
|
|
|||
|
|
ADOQueryCmd.Append;
|
|||
|
|
ADOQueryCmd.FieldByName('GlideNo').Value := maxId;
|
|||
|
|
ADOQueryCmd.FieldByName('Glideidx').Value := Order_FZ.RecNo;
|
|||
|
|
ADOQueryCmd.FieldByName('MainID').Value := trim(fMainID);
|
|||
|
|
ADOQueryCmd.FieldByName('subID').Value := trim(fsubID);
|
|||
|
|
ADOQueryCmd.FieldByName('carNo').Value := trim(CDS_Car.fieldbyname('carNo').AsString);
|
|||
|
|
ADOQueryCmd.FieldByName('GlideName').Value := trim(Order_FZ.fieldbyname('PSName').AsString);
|
|||
|
|
// ADOQueryCmd.FieldByName('RollNum').Value:=CDS_Car.fieldbyname('RollNum').AsInteger;
|
|||
|
|
// ADOQueryCmd.FieldByName('Qty').Value:=CDS_Car.fieldbyname('Qty').AsFloat;
|
|||
|
|
ADOQueryCmd.FieldByName('QtyUnit').Value := trim(CDS_Glide.fieldbyname('QtyUnit').AsString);
|
|||
|
|
// ADOQueryCmd.FieldByName('Note').Value:=trim(Order_FZ.fieldbyname('Note').AsString);
|
|||
|
|
ADOQueryCmd.Post;
|
|||
|
|
end;
|
|||
|
|
Order_FZ.Next;
|
|||
|
|
end;
|
|||
|
|
Order_FZ.Next;
|
|||
|
|
end;
|
|||
|
|
CDS_Car.Next;
|
|||
|
|
end;
|
|||
|
|
CDS_Car.EnableControls;
|
|||
|
|
ADOQueryCmd.Connection.CommitTrans;
|
|||
|
|
initGlide();
|
|||
|
|
except
|
|||
|
|
CDS_Car.EnableControls;
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
frmGXGL_List_DXCX.Free;
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.TV1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
|
|||
|
|
var
|
|||
|
|
FValue: string;
|
|||
|
|
FBounds: TRect;
|
|||
|
|
begin
|
|||
|
|
if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
|
|||
|
|
begin
|
|||
|
|
FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1);
|
|||
|
|
FBounds := AViewInfo.Bounds;
|
|||
|
|
ACanvas.FillRect(FBounds);
|
|||
|
|
ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 1);
|
|||
|
|
InflateRect(FBounds, -1, -1);
|
|||
|
|
ACanvas.Font.Color := clBlack;
|
|||
|
|
ACanvas.Brush.Style := bsClear;
|
|||
|
|
ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop);
|
|||
|
|
ADone := True;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.ToolButton6Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if CDS_Car.IsEmpty then
|
|||
|
|
exit;
|
|||
|
|
frmGXGL_List_DXCX := TfrmGXGL_List_DXCX.create(self);
|
|||
|
|
with frmGXGL_List_DXCX do
|
|||
|
|
begin
|
|||
|
|
if showmodal = 1 then
|
|||
|
|
begin
|
|||
|
|
Order_FZ.First;
|
|||
|
|
while not Order_FZ.eof do
|
|||
|
|
begin
|
|||
|
|
CDS_Glide.Append;
|
|||
|
|
CDS_Glide.FieldByName('Glideidx').Value := CDS_Glide.RecordCount + 1;
|
|||
|
|
CDS_Glide.FieldByName('GlideName').Value := Order_FZ.fieldbyname('PSName').AsString;
|
|||
|
|
CDS_Glide.Post;
|
|||
|
|
Order_FZ.next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
free;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.TV1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
|||
|
|
begin
|
|||
|
|
InitGlide();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.N2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
SelOKNo(CDS_Car, true);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.N1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
SelOKNo(CDS_Car, true);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.ToolButton7Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
maxno: string;
|
|||
|
|
begin
|
|||
|
|
frmPBKcList := TfrmPBKcList.create(self);
|
|||
|
|
with frmPBKcList do
|
|||
|
|
begin
|
|||
|
|
fType := 10;
|
|||
|
|
if showmodal = 1 then
|
|||
|
|
begin
|
|||
|
|
with CDS_Main do
|
|||
|
|
begin
|
|||
|
|
while CDS_Main.Locate('SSel', True, []) do
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
sql.Add('select * from JYOrder_PBKC');
|
|||
|
|
sql.Add('where MainID=' + QuotedStr(trim(Self.fMainID)));
|
|||
|
|
sql.Add('and subID=' + QuotedStr(trim(Self.fsubID)));
|
|||
|
|
sql.Add('and KCID' + QuotedStr(Trim(CDS_Main.FieldByName('KCID').AsString)));
|
|||
|
|
end;
|
|||
|
|
if ADOQueryCmd.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
if GetLSNo(ADOQueryCmd, maxno, 'YK', 'JYOrder_PBKC', 4, 1) = False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('insert into JYOrder_PBKC(PBKCID,MainID,subID,KCID,FPPS ) ');
|
|||
|
|
sql.Add('values(' + QuotedStr(maxno));
|
|||
|
|
sql.Add(',' + QuotedStr(trim(Self.fMainID)));
|
|||
|
|
sql.Add(',' + QuotedStr(trim(Self.fsubID)));
|
|||
|
|
sql.Add(',' + QuotedStr(Trim(CDS_Main.FieldByName('KCID').AsString)));
|
|||
|
|
sql.Add(',' + QuotedStr(Trim(CDS_Main.FieldByName('KCPS').AsString)));
|
|||
|
|
sql.Add(' )');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
CDS_Main.Delete;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
free;
|
|||
|
|
end;
|
|||
|
|
InitPBCK();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.ToolButton8Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if CDS_PBCK.IsEmpty then
|
|||
|
|
exit;
|
|||
|
|
|
|||
|
|
if CDS_PBCK.fieldbyname('YYPS').AsInteger > 0 then
|
|||
|
|
exit;
|
|||
|
|
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
|||
|
|
Exit;
|
|||
|
|
try
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add(' delete JYOrder_PBKC where PBKCID=''' + Trim(CDS_PBCK.fieldbyname('PBKCID').AsString) + '''');
|
|||
|
|
sql.Add(' and YYPS=0');
|
|||
|
|
execsql;
|
|||
|
|
end;
|
|||
|
|
CDS_PBCK.Delete;
|
|||
|
|
except
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.V3Column4PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
mvalue, FFieldName: string;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
mvalue := TcxTextEdit(Sender).EditingText;
|
|||
|
|
if Trim(mvalue) = '' then
|
|||
|
|
begin
|
|||
|
|
mvalue := '0';
|
|||
|
|
end;
|
|||
|
|
FFieldName := Trim(Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
|||
|
|
|
|||
|
|
with CDS_PBCK do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName(FFieldName).Value := Trim(mvalue);
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('UPdate JYOrder_PBKC ');
|
|||
|
|
sql.Add(' Set FPPS=' + Trim(mvalue));
|
|||
|
|
sql.Add(' where PBKCID=' + quotedstr(Trim(CDS_PBCK.FIELDBYNAME('PBKCID').AsString)));
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
tv3.Controller.EditingController.ShowEdit();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmfrmProductOrderCarEdit.TV1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|||
|
|
var
|
|||
|
|
i: Integer;
|
|||
|
|
begin
|
|||
|
|
with ADOQueryTmp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from CK_PB_CR where Valid=''Y'' and CRType=''<27>Զ<EFBFBD><D4B6><EFBFBD>ƥ''');
|
|||
|
|
sql.Add('and CarNo=' + quotedstr(Trim(CDS_car.fieldbyname('carNO').AsString)));
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOQueryTmp.IsEmpty = False then
|
|||
|
|
begin
|
|||
|
|
for i := 0 to tv1.ColumnCount - 1 do
|
|||
|
|
begin
|
|||
|
|
if uppercase(tv1.Columns[i].DataBinding.FieldName) <> 'SSEL' then
|
|||
|
|
tv1.Columns[i].Options.Editing := false;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|
|||
|
|
|