~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
0843d5fa7d
commit
500a04d339
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
|||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=D:\其속螺淃커덜쯤\淃커덜쯤\굔페\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
|
||||
HostApplication=D:\Dp7Repo\淃커덜쯤\D7wmbeiqi\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmDJBCKInPut: TfrmDJBCKInPut
|
||||
Left = 55
|
||||
Top = 111
|
||||
Left = 182
|
||||
Top = 266
|
||||
Width = 1283
|
||||
Height = 502
|
||||
Align = alClient
|
||||
|
|
@ -21,11 +21,11 @@ object frmDJBCKInPut: TfrmDJBCKInPut
|
|||
Left = 0
|
||||
Top = 33
|
||||
Width = 1267
|
||||
Height = 431
|
||||
Height = 430
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
DataController.DataSource = DataSource3
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
|
|
@ -280,7 +280,7 @@ object frmDJBCKInPut: TfrmDJBCKInPut
|
|||
Properties.OnButtonClick = v1Column16PropertiesButtonClick
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Hidden = True
|
||||
VisibleForCustomization = False
|
||||
Width = 79
|
||||
end
|
||||
object v1Column12: TcxGridDBColumn
|
||||
|
|
|
|||
|
|
@ -4,12 +4,25 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit,
|
||||
ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
||||
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit,
|
||||
cxTextEdit;
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||
cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls, ToolWin,
|
||||
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||||
cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
|
||||
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
|
||||
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
|
||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
|
||||
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
|
||||
dxSkinscxPCPainter, cxNavigator;
|
||||
|
||||
type
|
||||
TfrmDJBCKInPut = class(TForm)
|
||||
|
|
@ -57,54 +70,47 @@ type
|
|||
procedure FormShow(Sender: TObject);
|
||||
procedure TBDelClick(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
procedure v1Column3PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column14PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v2Column1PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column5PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column11PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column16PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column13PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column18PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
private
|
||||
{ Private declarations }
|
||||
function SaveCKData():Boolean;
|
||||
function SaveCKData(): Boolean;
|
||||
public
|
||||
{ Public declarations }
|
||||
FBCId:String;
|
||||
FBCId: string;
|
||||
end;
|
||||
|
||||
var
|
||||
frmDJBCKInPut: TfrmDJBCKInPut;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_ZdyAttachGYS,U_ProductOrderListSel;
|
||||
U_DataLink, U_RTFun, U_ClothContractListHZCX, U_ZDYHelp, U_ZdyAttachGYS,
|
||||
U_ProductOrderListSel;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmDJBCKInPut.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
procedure TfrmDJBCKInPut.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
Action:=caFree;
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmDJBCKInPut.TBAddClick(Sender: TObject);
|
||||
begin
|
||||
if CDS_Sub.IsEmpty=False then
|
||||
if CDS_Sub.IsEmpty = False then
|
||||
begin
|
||||
CopyAddRowCDS(CDS_Sub);
|
||||
with CDS_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('SPID').Value:=null;
|
||||
FieldByName('SPID').Value := null;
|
||||
// FieldByName('SPID').Value:=null;
|
||||
post;
|
||||
end;
|
||||
|
|
@ -114,21 +120,20 @@ begin
|
|||
with CDS_Sub do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now));
|
||||
FieldByName('CRType').Value:='加工完成';
|
||||
FieldByName('ToFactoryName').Value:='贝其仓库';
|
||||
FieldByName('SPType').Value:='正品';
|
||||
FieldByName('QtyUnit').Value:='Kg';
|
||||
FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
|
||||
FieldByName('CRType').Value := '加工完成';
|
||||
FieldByName('ToFactoryName').Value := '贝其仓库';
|
||||
FieldByName('SPType').Value := '正品';
|
||||
FieldByName('QtyUnit').Value := 'Kg';
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
end;
|
||||
function TfrmDJBCKInPut.SaveCKData():Boolean;
|
||||
|
||||
function TfrmDJBCKInPut.SaveCKData(): Boolean;
|
||||
var
|
||||
FCRID,Maxno,FFSPID:string;
|
||||
FCRID, Maxno, FFSPID: string;
|
||||
begin
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
|
|
@ -210,61 +215,66 @@ begin
|
|||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+'''');
|
||||
sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + '''');
|
||||
open;
|
||||
end;
|
||||
FFSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString);
|
||||
if Trim(FFSPID)='' then
|
||||
FFSPID := Trim(ADOQueryTemp.fieldbyname('SPID').AsString);
|
||||
if Trim(FFSPID) = '' then
|
||||
begin
|
||||
if GetLSNo(ADOQueryCmd,Maxno,'DR','CK_SXPB_CR',3,1)=False then
|
||||
if GetLSNo(ADOQueryCmd, Maxno, 'DR', 'CK_SXPB_CR', 3, 1) = False then
|
||||
begin
|
||||
Result:=False;
|
||||
Result := False;
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('取待检布入库编号失败!','提示',0);
|
||||
Application.MessageBox('取待检布入库编号失败!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
end else
|
||||
end
|
||||
else
|
||||
begin
|
||||
Maxno:=Trim(FFSPID);
|
||||
Maxno := Trim(FFSPID);
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+'''');
|
||||
sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(Maxno) + '''');
|
||||
Open;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
if Trim(FFSPID)='' then
|
||||
if Trim(FFSPID) = '' then
|
||||
begin
|
||||
Append;
|
||||
end else
|
||||
end
|
||||
else
|
||||
begin
|
||||
Edit;
|
||||
end;
|
||||
FieldByName('SPID').Value:=Trim(Maxno);
|
||||
FieldByName('FZSPID').Value:=Trim(Maxno);
|
||||
FieldByName('CKName').Value:='待检布';
|
||||
FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString);
|
||||
FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString);
|
||||
FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString);
|
||||
FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString);
|
||||
FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString);
|
||||
FieldByName('CRFlag').Value:='入库';
|
||||
FieldByName('CRQtyFlag').Value:=1;
|
||||
FieldByName('SPID').Value := Trim(Maxno);
|
||||
FieldByName('FZSPID').Value := Trim(Maxno);
|
||||
FieldByName('CKName').Value := '待检布';
|
||||
FieldByName('FactoryNo').Value := Trim(CDS_Sub.fieldbyname('FactoryNo').AsString);
|
||||
FieldByName('FactoryName').Value := Trim(CDS_Sub.fieldbyname('FactoryName').AsString);
|
||||
FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString);
|
||||
FieldByName('FromFactoryName').Value := Trim(CDS_Sub.fieldbyname('FromFactoryName').AsString);
|
||||
FieldByName('ToFactoryNo').Value := Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString);
|
||||
FieldByName('ToFactoryName').Value := Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString);
|
||||
FieldByName('ORDMainIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString);
|
||||
FieldByName('ORDSubIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString);
|
||||
FieldByName('CRFlag').Value := '入库';
|
||||
FieldByName('CRQtyFlag').Value := 1;
|
||||
//FieldByName('CRID').Value:=FCRID;
|
||||
RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2);
|
||||
if Trim(FFSPID)='' then
|
||||
FieldByName('Filler').Value:=Trim(DName)
|
||||
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'CK_SXPB_CR', 2);
|
||||
if Trim(FFSPID) = '' then
|
||||
FieldByName('Filler').Value := Trim(DName)
|
||||
else
|
||||
begin
|
||||
FieldByName('Editer').Value:=Trim(DName);
|
||||
FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp);
|
||||
FieldByName('Editer').Value := Trim(DName);
|
||||
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
|
||||
end;
|
||||
if Trim(CDS_Sub.fieldbyname('OrderNo').AsString)<>'' then
|
||||
if Trim(CDS_Sub.fieldbyname('OrderNo').AsString) <> '' then
|
||||
begin
|
||||
FieldByName('QCOrderNo').Value:=Trim(CDS_Sub.fieldbyname('OrderNo').AsString);
|
||||
FieldByName('QCOrderNo').Value := Trim(CDS_Sub.fieldbyname('OrderNo').AsString);
|
||||
end;
|
||||
Post;
|
||||
end;
|
||||
|
|
@ -274,21 +284,21 @@ begin
|
|||
sql.Clear;
|
||||
sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)');
|
||||
sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)');
|
||||
sql.Add(' where SPID='''+Trim(Maxno)+'''');
|
||||
sql.Add(' where SPID=''' + Trim(Maxno) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+'''');
|
||||
sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(Maxno) + '''');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then
|
||||
if ADOQueryTemp.FieldByName('MXKCQty').Value < 0 then
|
||||
begin
|
||||
CDS_Sub.DisableControls;
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('入库数小于出库数不能保存!','提示',0);
|
||||
Application.MessageBox('入库数小于出库数不能保存!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
{with ADOQueryCmd do
|
||||
|
|
@ -323,7 +333,7 @@ begin
|
|||
Exit;
|
||||
end; }
|
||||
Edit;
|
||||
FieldByName('SPID').Value:=Trim(Maxno);
|
||||
FieldByName('SPID').Value := Trim(Maxno);
|
||||
//FieldByName('CRID').Value:=Trim(FCRID);
|
||||
Post;
|
||||
Next;
|
||||
|
|
@ -331,25 +341,26 @@ begin
|
|||
end;
|
||||
CDS_Sub.EnableControls;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
Result:=True;
|
||||
Result := True;
|
||||
except
|
||||
Result:=False;
|
||||
Result := False;
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('保存异常!','提示',0);
|
||||
Application.MessageBox('保存异常!', '提示', 0);
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmDJBCKInPut.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid('待检布入库登记',Tv1,'待检布仓库');
|
||||
WriteCxGrid('待检布入库登记', Tv1, '待检布仓库');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmDJBCKInPut.FormShow(Sender: TObject);
|
||||
var
|
||||
fsj:String;
|
||||
fsj: string;
|
||||
begin
|
||||
ReadCxGrid('待检布入库登记',Tv1,'待检布仓库');
|
||||
ReadCxGrid('待检布入库登记', Tv1, '待检布仓库');
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
|
|
@ -361,65 +372,69 @@ begin
|
|||
sql.Add(' ,PRTkuanNo=(select PRTkuanNo from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )');
|
||||
sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )');
|
||||
sql.Add(' from CK_SXPB_CR A');
|
||||
sql.Add(' where SPID='''+Trim(FBCId)+'''');
|
||||
sql.Add(' where SPID=''' + Trim(FBCId) + '''');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp,CDS_Sub);
|
||||
SInitCDSData20(ADOQueryTemp,CDS_Sub);
|
||||
if CDS_Sub.IsEmpty then Exit;
|
||||
SCreateCDS20(ADOQueryTemp, CDS_Sub);
|
||||
SInitCDSData20(ADOQueryTemp, CDS_Sub);
|
||||
if CDS_Sub.IsEmpty then
|
||||
Exit;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+'''');
|
||||
sql.Add('select * from CK_SXPB_CR where FZSPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + '''');
|
||||
sql.Add(' and CRQtyFlag=-1');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryTemp.IsEmpty=False then
|
||||
if ADOQueryTemp.IsEmpty = False then
|
||||
begin
|
||||
v1Column4.Options.Focusing:=False;
|
||||
v1Column4.Options.Focusing := False;
|
||||
// v1Column15.Options.Focusing:=False;
|
||||
v1Column13.Options.Focusing:=False;
|
||||
v1Column14.Options.Focusing:=False;
|
||||
v2Column1.Options.Focusing:=False;
|
||||
v1Column8.Options.Focusing:=False;
|
||||
v1Column7.Options.Focusing:=False;
|
||||
v1Column1.Options.Focusing:=False;
|
||||
v1Column10.Options.Focusing:=False;
|
||||
v1Column11.Options.Focusing:=False;
|
||||
v1Column13.Options.Focusing := False;
|
||||
v1Column14.Options.Focusing := False;
|
||||
v2Column1.Options.Focusing := False;
|
||||
v1Column8.Options.Focusing := False;
|
||||
v1Column7.Options.Focusing := False;
|
||||
v1Column1.Options.Focusing := False;
|
||||
v1Column10.Options.Focusing := False;
|
||||
v1Column11.Options.Focusing := False;
|
||||
Exit;
|
||||
end else
|
||||
end
|
||||
else
|
||||
begin
|
||||
v1Column4.Options.Focusing:=True;
|
||||
v1Column4.Options.Focusing := True;
|
||||
//v1Column15.Options.Focusing:=True;
|
||||
v1Column13.Options.Focusing:=True;
|
||||
v1Column14.Options.Focusing:=True;
|
||||
v2Column1.Options.Focusing:=True;
|
||||
v1Column8.Options.Focusing:=True;
|
||||
v1Column7.Options.Focusing:=True;
|
||||
v1Column1.Options.Focusing:=True;
|
||||
v1Column10.Options.Focusing:=True;
|
||||
v1Column11.Options.Focusing:=True;
|
||||
v1Column13.Options.Focusing := True;
|
||||
v1Column14.Options.Focusing := True;
|
||||
v2Column1.Options.Focusing := True;
|
||||
v1Column8.Options.Focusing := True;
|
||||
v1Column7.Options.Focusing := True;
|
||||
v1Column1.Options.Focusing := True;
|
||||
v1Column10.Options.Focusing := True;
|
||||
v1Column11.Options.Focusing := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmDJBCKInPut.TBDelClick(Sender: TObject);
|
||||
begin
|
||||
if CDS_Sub.IsEmpty then Exit;
|
||||
if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then
|
||||
if CDS_Sub.IsEmpty then
|
||||
Exit;
|
||||
if Trim(CDS_Sub.fieldbyname('SPID').AsString) <> '' then
|
||||
begin
|
||||
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
|
||||
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+'''');
|
||||
sql.Add('select * from CK_SXPB_CR where FZSPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + '''');
|
||||
sql.Add(' and CRQtyFlag=-1');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryTemp.IsEmpty=False then
|
||||
if ADOQueryTemp.IsEmpty = False then
|
||||
begin
|
||||
Application.MessageBox('已有出库记录，不能删除!','提示',0);
|
||||
Application.MessageBox('已有出库记录，不能删除!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
try
|
||||
|
|
@ -428,17 +443,18 @@ begin
|
|||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+'''');
|
||||
sql.Add(' delete CK_SXPB_CR where SPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
CDS_Sub.Delete;
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('删除异常!','提示',0);
|
||||
Application.MessageBox('删除异常!', '提示', 0);
|
||||
end;
|
||||
|
||||
end else
|
||||
end
|
||||
else
|
||||
begin
|
||||
CDS_Sub.Delete;
|
||||
end;
|
||||
|
|
@ -447,80 +463,80 @@ end;
|
|||
|
||||
procedure TfrmDJBCKInPut.TBSaveClick(Sender: TObject);
|
||||
begin
|
||||
if CDS_Sub.IsEmpty then Exit;
|
||||
if CDS_Sub.Locate('CRTime',null,[])=True then
|
||||
if CDS_Sub.IsEmpty then
|
||||
Exit;
|
||||
if CDS_Sub.Locate('CRTime', null, []) = True then
|
||||
begin
|
||||
Application.MessageBox('入库时间不能为空!','提示',0);
|
||||
Application.MessageBox('入库时间不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if CDS_Sub.Locate('CRType',null,[])=True then
|
||||
if CDS_Sub.Locate('CRType', null, []) = True then
|
||||
begin
|
||||
Application.MessageBox('入库类型不能为空!','提示',0);
|
||||
Application.MessageBox('入库类型不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if CDS_Sub.Locate('SPName',null,[])=True then
|
||||
if CDS_Sub.Locate('SPName', null, []) = True then
|
||||
begin
|
||||
Application.MessageBox('品名不能为空!','提示',0);
|
||||
Application.MessageBox('品名不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if CDS_Sub.Locate('OrderNo',null,[])=True then
|
||||
if CDS_Sub.Locate('OrderNo', null, []) = True then
|
||||
begin
|
||||
Application.MessageBox('订单号不能为空!','提示',0);
|
||||
Application.MessageBox('订单号不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if CDS_Sub.Locate('ToFactoryName',null,[])=True then
|
||||
if CDS_Sub.Locate('ToFactoryName', null, []) = True then
|
||||
begin
|
||||
Application.MessageBox('存放工厂不能为空!','提示',0);
|
||||
Application.MessageBox('存放工厂不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if CDS_Sub.Locate('FactoryName',null,[])=True then
|
||||
if CDS_Sub.Locate('FactoryName', null, []) = True then
|
||||
begin
|
||||
Application.MessageBox('加工厂不能为空!','提示',0);
|
||||
Application.MessageBox('加工厂不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if CDS_Sub.Locate('PiQty',null,[])=True then
|
||||
if CDS_Sub.Locate('PiQty', null, []) = True then
|
||||
begin
|
||||
Application.MessageBox('匹数不能为空!','提示',0);
|
||||
Application.MessageBox('匹数不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if CDS_Sub.Locate('Qty',null,[])=True then
|
||||
if CDS_Sub.Locate('Qty', null, []) = True then
|
||||
begin
|
||||
Application.MessageBox('数量不能为空!','提示',0);
|
||||
Application.MessageBox('数量不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if CDS_Sub.Locate('QtyUnit',null,[])=True then
|
||||
if CDS_Sub.Locate('QtyUnit', null, []) = True then
|
||||
begin
|
||||
Application.MessageBox('数量单位不能为空!','提示',0);
|
||||
Application.MessageBox('数量单位不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if CDS_Sub.Locate('CRType;FromFactoryName',VarArrayOf(['生产退回',Null]),[loPartialKey])=True then
|
||||
if CDS_Sub.Locate('CRType;FromFactoryName', VarArrayOf(['生产退回', Null]), [loPartialKey]) = True then
|
||||
begin
|
||||
Application.MessageBox('生产退回的数据，来自工厂不能为空!','提示',0);
|
||||
Application.MessageBox('生产退回的数据，来自工厂不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if SaveCKData() then
|
||||
begin
|
||||
Application.MessageBox('保存成功!','提示',0);
|
||||
Application.MessageBox('保存成功!', '提示', 0);
|
||||
//ModalResult:=1;
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmDJBCKInPut.v1Column3PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure TfrmDJBCKInPut.v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='SXKuWei';
|
||||
flagname:='库位';
|
||||
if ShowModal=1 then
|
||||
flag := 'SXKuWei';
|
||||
flagname := '库位';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
with Self.CDS_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||||
FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -529,22 +545,21 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmDJBCKInPut.v1Column14PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure TfrmDJBCKInPut.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application);
|
||||
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
|
||||
with frmZdyAttachGYS do
|
||||
begin
|
||||
if ShowModal=1 then
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
with Self.CDS_Sub do
|
||||
begin
|
||||
edit;
|
||||
FieldByName('FactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ;
|
||||
FieldByName('FactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString);
|
||||
FieldByName('FromFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ;
|
||||
FieldByName('FromFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString);
|
||||
FieldByName('FactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString);
|
||||
FieldByName('FactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString);
|
||||
FieldByName('FromFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString);
|
||||
FieldByName('FromFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString);
|
||||
//Post;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -555,21 +570,20 @@ begin
|
|||
|
||||
end;
|
||||
|
||||
procedure TfrmDJBCKInPut.v2Column1PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure TfrmDJBCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='MPRTCodeName';
|
||||
flagname:='外加工名称';
|
||||
if ShowModal=1 then
|
||||
flag := 'MPRTCodeName';
|
||||
flagname := '外加工名称';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
with Self.CDS_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('SPName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||||
FieldByName('SPName').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -578,21 +592,20 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmDJBCKInPut.v1Column5PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure TfrmDJBCKInPut.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='KuWei';
|
||||
flagname:='库位';
|
||||
if ShowModal=1 then
|
||||
flag := 'KuWei';
|
||||
flagname := '库位';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
with Self.CDS_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||||
FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -601,20 +614,19 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmDJBCKInPut.v1Column11PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure TfrmDJBCKInPut.v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application);
|
||||
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
|
||||
with frmZdyAttachGYS do
|
||||
begin
|
||||
if ShowModal=1 then
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
with Self.CDS_Sub do
|
||||
begin
|
||||
edit;
|
||||
FieldByName('ToFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ;
|
||||
FieldByName('ToFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString);
|
||||
FieldByName('ToFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString);
|
||||
FieldByName('ToFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString);
|
||||
//Post;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -624,20 +636,19 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmDJBCKInPut.v1Column16PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure TfrmDJBCKInPut.v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application);
|
||||
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
|
||||
with frmZdyAttachGYS do
|
||||
begin
|
||||
if ShowModal=1 then
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
with Self.CDS_Sub do
|
||||
begin
|
||||
edit;
|
||||
FieldByName('FromFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ;
|
||||
FieldByName('FromFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString);
|
||||
FieldByName('FromFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString);
|
||||
FieldByName('FromFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString);
|
||||
//Post;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -647,30 +658,29 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmDJBCKInPut.v1Column13PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure TfrmDJBCKInPut.v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application);
|
||||
frmProductOrderListSel := TfrmProductOrderListSel.Create(Application);
|
||||
with frmProductOrderListSel do
|
||||
begin
|
||||
if ShowModal=1 then
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
with Self.CDS_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('ORDMainIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString);
|
||||
FieldByName('ORDSubIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString);
|
||||
FieldByName('OrderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString);
|
||||
FieldByName('SOrddefstr1').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString);
|
||||
FieldByName('PRTColor').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString);
|
||||
FieldByName('PRTHX').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString);
|
||||
FieldByName('SPName').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCodeName').AsString);
|
||||
FieldByName('SPSpec').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTSpec').AsString);
|
||||
FieldByName('SPCF').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCF').AsString);
|
||||
FieldByName('SPMF').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTMF').AsString);
|
||||
FieldByName('SPKZ').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTKZ').AsString);
|
||||
FieldByName('prtkuanNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('prtkuanNo').AsString);
|
||||
FieldByName('ORDMainIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString);
|
||||
FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString);
|
||||
FieldByName('OrderNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString);
|
||||
FieldByName('SOrddefstr1').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString);
|
||||
FieldByName('PRTColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString);
|
||||
FieldByName('PRTHX').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString);
|
||||
FieldByName('SPName').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCodeName').AsString);
|
||||
FieldByName('SPSpec').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTSpec').AsString);
|
||||
FieldByName('SPCF').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCF').AsString);
|
||||
FieldByName('SPMF').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTMF').AsString);
|
||||
FieldByName('SPKZ').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTKZ').AsString);
|
||||
FieldByName('prtkuanNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('prtkuanNo').AsString);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -679,21 +689,20 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmDJBCKInPut.v1Column18PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure TfrmDJBCKInPut.v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag:='KuWei';
|
||||
flagname:='库位';
|
||||
if ShowModal=1 then
|
||||
flag := 'KuWei';
|
||||
flagname := '库位';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
with Self.CDS_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||||
FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -703,3 +712,4 @@ begin
|
|||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmDJBRKList: TfrmDJBRKList
|
||||
Left = -8
|
||||
Top = -8
|
||||
Left = 216
|
||||
Top = 189
|
||||
Width = 1378
|
||||
Height = 754
|
||||
Caption = #24453#26816#24067#20837#24211#21015#34920
|
||||
|
|
@ -435,11 +435,11 @@ object frmDJBRKList: TfrmDJBRKList
|
|||
Left = 0
|
||||
Top = 123
|
||||
Width = 1362
|
||||
Height = 593
|
||||
Height = 592
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
|
|
@ -695,8 +695,8 @@ object frmDJBRKList: TfrmDJBRKList
|
|||
Properties.ReadOnly = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Hidden = True
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 79
|
||||
end
|
||||
object v1Column12: TcxGridDBColumn
|
||||
|
|
@ -752,10 +752,11 @@ object frmDJBRKList: TfrmDJBRKList
|
|||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
Style = 9
|
||||
TabIndex = 0
|
||||
TabOrder = 3
|
||||
Tabs.Strings = (
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 9
|
||||
Properties.TabIndex = 0
|
||||
Properties.Tabs.Strings = (
|
||||
#26410#23457#26680
|
||||
#24050#23457#26680
|
||||
#20840#37096)
|
||||
|
|
|
|||
|
|
@ -11,7 +11,22 @@ uses
|
|||
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
|
||||
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
|
||||
RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus,
|
||||
cxCalendar, cxButtonEdit, cxTextEdit, cxPC, BtnEdit;
|
||||
cxCalendar, cxButtonEdit, cxTextEdit, cxPC, BtnEdit, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, dxSkinBlue,
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
|
||||
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
|
||||
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||||
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||||
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter,
|
||||
cxNavigator, dxBarBuiltInMenu;
|
||||
|
||||
type
|
||||
TfrmDJBRKList = class(TForm)
|
||||
|
|
@ -618,7 +633,7 @@ begin
|
|||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('update CK_SXPB_CR SET factoryName='''+trim(factoryName1.Text)+''' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+'''');
|
||||
sql.Add('update CK_SXPB_CR SET factoryName='''+trim(factoryName1.Text)+''',edittime=getdate() where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+'''');
|
||||
// sql.Add('update WFB_MJJY SET factoryName='''+trim(factoryName1.Text)+''' where APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+'''');
|
||||
ExecSQL;
|
||||
end;
|
||||
|
|
|
|||
|
|
@ -10,7 +10,20 @@ uses
|
|||
cxGridTableView, cxGridDBTableView, cxGrid, ADODB, cxGridCustomPopupMenu,
|
||||
cxGridPopupMenu, DBClient, BtnEdit, cxBlobEdit, cxShellComboBox,
|
||||
cxDropDownEdit, cxFontNameComboBox, cxButtonEdit, cxCurrencyEdit,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxScrollBox, cxTextEdit;
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxScrollBox, cxTextEdit,
|
||||
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
|
||||
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
||||
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
|
||||
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
|
||||
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
|
||||
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
|
||||
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
|
||||
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||
dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||
|
||||
type
|
||||
TfrmCgBjPut = class(TForm)
|
||||
|
|
@ -668,9 +681,35 @@ begin
|
|||
end;
|
||||
|
||||
procedure TfrmCgBjPut.NJZBChange(Sender: TObject);
|
||||
var
|
||||
sumPrice: double;
|
||||
begin
|
||||
|
||||
PBPrice.Text := FloatToStr(TV2.DataController.Summary.FooterSummaryValues[1] + StrToFloatDef(Trim(JGPrice.Text), 0));
|
||||
if CDS_ZB.IsEmpty then
|
||||
exit;
|
||||
try
|
||||
sumPrice := 0;
|
||||
|
||||
with CDS_ZB do
|
||||
begin
|
||||
DisableControls;
|
||||
First;
|
||||
while not eof do
|
||||
begin
|
||||
|
||||
// sumPrice := RoundFloat(sumPrice + CDS_ZB.fieldbyname('ZbPrice').AsFloat, 2);
|
||||
sumPrice := sumPrice + CDS_ZB.fieldbyname('ZbPrice').AsFloat;
|
||||
next;
|
||||
end;
|
||||
EnableControls;
|
||||
end;
|
||||
|
||||
except
|
||||
|
||||
end;
|
||||
|
||||
// PBPrice.Text := FloatToStr(TV2.DataController.Summary.FooterSummaryValues[4] + StrToFloatDef(Trim(JGPrice.Text), 0));
|
||||
PBPrice.Text := FloatToStr((sumPrice) + StrToFloatDef(Trim(JGPrice.Text), 0));
|
||||
|
||||
end;
|
||||
|
||||
|
|
@ -779,6 +818,7 @@ procedure TfrmCgBjPut.TV2Column1PropertiesEditValueChanged(Sender: TObject);
|
|||
var
|
||||
mvalue, FFieldName: string;
|
||||
Fzb, Fsj, FzbPrice, Fsh: Double;
|
||||
sumPrice: double;
|
||||
i: Integer;
|
||||
begin
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
|
|
@ -825,8 +865,31 @@ begin
|
|||
FieldByName('zbPrice').Value := FzbPrice;
|
||||
Post;
|
||||
end;
|
||||
// p:=TV2.DataController.Summary.FooterSummaryValues[1];
|
||||
PBPrice.Text := FloatToStr(TV2.DataController.Summary.FooterSummaryValues[1] + StrToFloatDef(Trim(JGPrice.Text), 0));
|
||||
if CDS_ZB.IsEmpty then
|
||||
exit;
|
||||
try
|
||||
sumPrice := 0;
|
||||
|
||||
with CDS_ZB do
|
||||
begin
|
||||
DisableControls;
|
||||
First;
|
||||
while not eof do
|
||||
begin
|
||||
|
||||
// sumPrice := RoundFloat(sumPrice + CDS_ZB.fieldbyname('ZbPrice').AsFloat, 2);
|
||||
sumPrice := sumPrice + CDS_ZB.fieldbyname('ZbPrice').AsFloat;
|
||||
next;
|
||||
end;
|
||||
EnableControls;
|
||||
end;
|
||||
|
||||
except
|
||||
|
||||
end;
|
||||
|
||||
PBPrice.Text := FloatToStr((sumPrice) + StrToFloatDef(Trim(JGPrice.Text), 0));
|
||||
// PBPrice.Text := FloatToStr(TV2.DataController.Summary.FooterSummaryValues[1] + StrToFloatDef(Trim(JGPrice.Text), 0));
|
||||
// with ADOQueryCmd do
|
||||
// begin
|
||||
// Close;
|
||||
|
|
@ -1059,8 +1122,8 @@ begin
|
|||
// Fzb := Cds_Sub.fieldbyname('Szb').AsFloat / 100;
|
||||
// Fsh := Cds_Sub.fieldbyname('Ssh').AsFloat / 100;
|
||||
FSPbsl := Cds_Sub.fieldbyname('SPbsl').AsFloat;
|
||||
Fzb := strtofloatdef((Cds_Sub.fieldbyname('Szb').Asstring),0);//Cds_Sub.fieldbyname('Szb').AsFloat / 100;
|
||||
Fsh :=strtofloatdef((Cds_Sub.fieldbyname('Ssh').Asstring),0);// Cds_Sub.fieldbyname('Ssh').AsFloat / 100;
|
||||
Fzb := strtofloatdef((Cds_Sub.fieldbyname('Szb').Asstring), 0); //Cds_Sub.fieldbyname('Szb').AsFloat / 100;
|
||||
Fsh := strtofloatdef((Cds_Sub.fieldbyname('Ssh').Asstring), 0); // Cds_Sub.fieldbyname('Ssh').AsFloat / 100;
|
||||
if Trim(PBNum.text) <> '' then
|
||||
begin
|
||||
FSYJsl := Cds_Sub.fieldbyname('Syjsl').AsFloat;
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user