Group_02/D7zzHanglin
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
4c4c37570c
D7zzHanglin/纱线仓库(CYSXCK.dll)/U_CPCKInPut.pas

514 lines
16 KiB
ObjectPascal
Raw Normal View History

0
2025-08-06 16:42:07 +08:00
unit U_CPCKInPut;
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, StdCtrls;
type
TfrmCPCKInPut = class(TForm)
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1C1: TcxGridDBColumn;
v1C3: TcxGridDBColumn;
v1C12: TcxGridDBColumn;
v1C13: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
ToolBar1: TToolBar;
TBAdd: TToolButton;
TBDel: TToolButton;
TBSave: TToolButton;
TBClose: TToolButton;
DataSource3: TDataSource;
CDS_Sub: TClientDataSet;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
cxGridPopupMenu2: TcxGridPopupMenu;
v1C16: TcxGridDBColumn;
v1FtyName: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1C6: TcxGridDBColumn;
v1C5: TcxGridDBColumn;
v1C8: TcxGridDBColumn;
v1C7: TcxGridDBColumn;
v1C14: TcxGridDBColumn;
v1C15: TcxGridDBColumn;
v1C2: TcxGridDBColumn;
v1C4: TcxGridDBColumn;
v1C9: TcxGridDBColumn;
v1C10: TcxGridDBColumn;
v1C11: TcxGridDBColumn;
Label1: TLabel;
ToolButton1: TToolButton;
v1Column1: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure v1C15PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure ToolButton1Click(Sender: TObject);
private
{ Private declarations }
function SaveCKData():Boolean;
procedure InitGridStatus();
public
{ Public declarations }
FBCId,FCRType:String;
end;
var
frmCPCKInPut: TfrmCPCKInPut;
implementation
uses
U_DataLink,U_RTFun,U_ZDYHelp,U_ProductOrderListSel;
{$R *.dfm}
procedure TfrmCPCKInPut.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmCPCKInPut.TBAddClick(Sender: TObject);
begin
{if CDS_Sub.IsEmpty=False then
begin
CopyAddRowCDS(CDS_Sub);
with CDS_Sub do
begin
Edit;
FieldByName('SPID').Value:=null;
post;
end;
end else
begin
with CDS_Sub do
begin
Append;
FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now));
Post;
end;
end; }
end;
function TfrmCPCKInPut.SaveCKData():Boolean;
var
FCRID,Maxno,FFSPID,FSPNO,FFlag:string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
if Trim(FCRType)='<27>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD><EFBFBD>' then
begin
FFlag:='ZJ';
end else
if Trim(FCRType)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
FFlag:='TJ';
end else
if Trim(FCRType)='<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>' then
begin
FFlag:='CG';
end else
if Trim(FCRType)='<27>ͻ<EFBFBD><CDBB>˻<EFBFBD>' then
begin
FFlag:='KT';
end;
CDS_Sub.DisableControls;
with CDS_Sub do
begin
First;
while not eof do
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+'''');
open;
end;
FFSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString);
FSPNO:=Trim(ADOQueryTemp.fieldbyname('SPNO').AsString);
if Trim(FFSPID)='' then
begin
if GetLSNo(ADOQueryCmd,Maxno,FFlag,'CK_SXPB_CR',3,1)=False then
begin
Result:=False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end;
FSPNO:='CR'+Trim(Maxno);
end else
begin
Maxno:=Trim(FFSPID);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+'''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FFSPID)='' then
begin
Append;
end else
begin
Edit;
end;
FieldByName('SPID').Value:=Trim(Maxno);
FieldByName('FZSPID').Value:=Trim(Maxno);
FieldByName('CKName').Value:='<27><>Ʒ<EFBFBD>ֿ<EFBFBD>';
FieldByName('DeptName').Value:='<27><><EFBFBD><EFBFBD><EFBFBD>ܲ<EFBFBD>';
FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString);
FieldByName('MainId').Value:=Trim(CDS_Sub.fieldbyname('MainId').AsString);
FieldByName('SubId').Value:=Trim(CDS_Sub.fieldbyname('SubId').AsString);
FieldByName('CRFlag').Value:='<27><><EFBFBD><EFBFBD>';
FieldByName('CRType').Value:=Trim(FCRType);
FieldByName('CRQtyFlag').Value:=1;
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);
end;
FieldByName('SPNO').Value:=Trim(FSPNO);
Post;
end;
with ADOQueryCmd do
begin
Close;
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)+'''');
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+'''');
Open;
end;
if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then
begin
CDS_Sub.DisableControls;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>С<EFBFBD>ڳ<EFBFBD><DAB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܱ<EFBFBD><DCB1><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
Edit;
FieldByName('SPID').Value:=Trim(Maxno);
FieldByName('SPNO').Value:=Trim(FSPNO);
Post;
Next;
end;
end;
CDS_Sub.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
Result:=True;
except
Result:=False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣!','<27><>ʾ',0);
end;
end;
procedure TfrmCPCKInPut.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'+Trim(FCRType),Tv1,'<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
Close;
end;
procedure TfrmCPCKInPut.InitGridStatus();
begin
if Trim(FCRType)='<27>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD><EFBFBD>' then
begin
v1FtyName.Visible:=False;
v1FtyName.Hidden:=True;
end else
if Trim(FCRType)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
v1FtyName.Visible:=True;
v1FtyName.Hidden:=false;
v1FtyName.Caption:='<27><><EFBFBD>鹤<EFBFBD><E9B9A4>';
end else
if Trim(FCRType)='<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>' then
begin
v1FtyName.Visible:=True;
v1FtyName.Hidden:=false;
v1FtyName.Caption:='<27><>Ӧ<EFBFBD><D3A6>';
end else
if Trim(FCRType)='<27>ͻ<EFBFBD><CDBB>˻<EFBFBD>' then
begin
v1FtyName.Visible:=True;
v1FtyName.Hidden:=false;
v1FtyName.Caption:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
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
begin
v1FtyName.Options.Focusing:=False;
v1C1.Options.Focusing:=False;
v1C2.Options.Focusing:=False;
v1C3.Options.Focusing:=False;
v1C4.Options.Focusing:=False;
v1C5.Options.Focusing:=False;
v1C6.Options.Focusing:=False;
v1C7.Options.Focusing:=False;
v1C8.Options.Focusing:=False;
v1C9.Options.Focusing:=False;
v1C10.Options.Focusing:=False;
v1C11.Options.Focusing:=False;
v1C15.Options.Focusing:=False;
v1C16.Options.Focusing:=False;
end;
end;
procedure TfrmCPCKInPut.FormShow(Sender: TObject);
begin
ReadCxGrid('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'+Trim(FCRType),Tv1,'<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' from CK_SXPB_CR A');
sql.Add(' where SPID='''+Trim(FBCId)+'''');
Open;
end;
SCreateCDS20(ADOQueryTemp,CDS_Sub);
SInitCDSData20(ADOQueryTemp,CDS_Sub);
InitGridStatus();
end;
procedure TfrmCPCKInPut.TBDelClick(Sender: TObject);
begin
if CDS_Sub.IsEmpty then Exit;
if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then
begin
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',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(' and CRQtyFlag=-1');
Open;
end;
if ADOQueryTemp.IsEmpty=False then
begin
Application.MessageBox('<27><><EFBFBD>г<EFBFBD><D0B3><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>!','<27><>ʾ',0);
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
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('ɾ<><C9BE><EFBFBD>쳣!','<27><>ʾ',0);
end;
end else
begin
CDS_Sub.Delete;
end;
end;
procedure TfrmCPCKInPut.TBSaveClick(Sender: TObject);
begin
if CDS_Sub.IsEmpty then Exit;
if CDS_Sub.Locate('CRTime',null,[])=True then
begin
Application.MessageBox('<27>뵥<EFBFBD><EBB5A5><EFBFBD>ڲ<EFBFBD><DAB2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if CDS_Sub.Locate('SPName',null,[])=True then
begin
Application.MessageBox('Ʒ<><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if Trim(FCRType)<>'<27>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD><EFBFBD>' then
begin
if CDS_Sub.Locate('FactoryName',null,[])=True then
begin
Application.MessageBox(PChar(Trim(v1FtyName.Caption)+'<27><><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!'),'<27><>ʾ',0);
Exit;
end;
end;
if CDS_Sub.Locate('PiQty',null,[])=True then
begin
Application.MessageBox('ƥ<><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if CDS_Sub.Locate('Qty',null,[])=True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if CDS_Sub.Locate('QtyUnit',null,[])=True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if SaveCKData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!','<27><>ʾ',0);
//ModalResult:=1;
Exit;
end;
end;
procedure TfrmCPCKInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
fsj,FName:string;
begin
if CDS_Sub.IsEmpty then Exit;
FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
if Trim(FName)<>'FactoryName' then Exit;
if Trim(FCRType)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
fsj:='select Code='''',name=FactoryName from JYOrder_PCS_Sub A '
+' inner join JYOrder_Process B on A.PSID=B.PSID '
+' where A.SubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+''''
+' and isnull(B.PSName,'''')=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ'' and isnull(A.FactoryName,'''')<>'''''
+' Group by A.FactoryName';
SInitCxGridComboBoxBySql(ADOQueryTemp,v1FtyName,fsj,0,True,'');
if ADOQueryTemp.IsEmpty then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>û<EFBFBD>а<EFBFBD><D0B0>ż<EFBFBD><C5BC>鹤<EFBFBD><E9B9A4>!','<27><>ʾ',0);
Exit;
end;
end else
if Trim(FCRType)='<27>ͻ<EFBFBD><CDBB>˻<EFBFBD>' then
begin
fsj:='select Code='''',name=CustomerNoName from JYOrder_Main A '
+' inner join JYOrder_Main '
+' where A.MainId='''+Trim(CDS_Sub.fieldbyname('MainId').AsString)+'''';
SInitCxGridComboBoxBySql(ADOQueryTemp,v1FtyName,fsj,0,True,'');
end else
if Trim(FCRType)='<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>' then
begin
fsj:='select Code='''',name=FactoryName from JYOrder_PCS_Sub A '
+' inner join JYOrder_Process B on A.PSID=B.PSID '
+' where A.SubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+''''
+' and isnull(B.PSName,'''')=''<27><>Ʒ'' and isnull(A.FactoryName,'''')<>'''' '
+' Group by A.FactoryName';
SInitCxGridComboBoxBySql(ADOQueryTemp,v1FtyName,fsj,0,True,'');
if ADOQueryTemp.IsEmpty then
begin
Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>û<EFBFBD>а<EFBFBD><D0B0>Ųɹ<C5B2><C9B9><EFBFBD>Ӧ<EFBFBD><D3A6>!','<27><>ʾ',0);
Exit;
end;
end;
end;
procedure TfrmCPCKInPut.v1C15PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='KuWei';
flagname:='<27><>λ';
if ShowModal=1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmCPCKInPut.ToolButton1Click(Sender: TObject);
begin
try
frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application);
with frmProductOrderListSel do
begin
if ShowModal=1 then
begin
frmProductOrderListSel.Order_Main.DisableControls;
with frmProductOrderListSel.Order_Main do
begin
First;
while frmProductOrderListSel.Order_Main.Locate('SSel',True,[]) do
begin
with Self.CDS_Sub do
begin
Append;
FieldByName('MainId').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString);
FieldByName('SubId').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString);
FieldByName('OrderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString);
FieldByName('SPName').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCodeName').AsString);
FieldByName('SPCode').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCode').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('SPColor').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString);
FieldByName('SPHX').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString);
FieldByName('SPStyleNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('StyleNo').AsString);
FieldByName('SPColorNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColorNo').AsString);
FieldByName('SPColorEng').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColorEng').AsString);
FieldByName('SPGY').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTGY').AsString);
FieldByName('SPGYHZ').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTGYHZ').AsString);
FieldByName('QtyUnit').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderUnit').AsString);
end;
Delete;
end;
end;
frmProductOrderListSel.Order_Main.EnableControls;
end;
end;
finally
frmProductOrderListSel.Free;
end;
end;
end.
Reference in New Issue Copy Permalink