Group_01/D7wmbeiqi
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-08-22 15:27:11 +08:00
parent 0843d5fa7d
commit 500a04d339
8 changed files with 319 additions and 230 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof
View File

@ -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=

4
坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr
View File

@ -1,9 +1,9 @@
library PBMDDJ;
uses
SysUtils,
SysUtils,
classes,
forms,
forms,
WinTypes,
WinProcs,
U_GetDllForm in 'U_GetDllForm.pas',

10
坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.dfm
View File

@ -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

414
坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas
View File

@ -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
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('CRID').Value:=FCRID;
RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2);
if Trim(FFSPID)='' then
FieldByName('Filler').Value:=Trim(DName)
end
else
begin
FieldByName('Editer').Value:=Trim(DName);
FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp);
Edit;
end;
if Trim(CDS_Sub.fieldbyname('OrderNo').AsString)<>'' then
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)
else
begin
FieldByName('QCOrderNo').Value:=Trim(CDS_Sub.fieldbyname('OrderNo').AsString);
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
end;
if Trim(CDS_Sub.fieldbyname('OrderNo').AsString) <> '' then
begin
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.

17
坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm
View File

@ -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)

19
坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas
View File

@ -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;

4
贝其贸易管理/U_GetDllForm.pas
View File

@ -974,8 +974,8 @@ begin
windowState := mstate ;
BorderStyle := mborderstyle;
//show;
end;
end
end;
end
else
frmFabList.BringToFront;
//¾ä±ú

79
贝其贸易管理/U_frmCgBjPut.pas
View File

@ -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;
@ -1051,16 +1114,16 @@ begin
with Cds_Sub do
begin
Edit;
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
// FSPbsl := Cds_Sub.fieldbyname('SPbsl').AsFloat;
// 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;