D7zzHanglin/纱线仓库(CYSXCK.dll)/U_CYPBCKInPut.pas
DESKTOP-E401PHE\Administrator 4c4c37570c 0
2025-08-06 16:42:07 +08:00

591 lines
16 KiB
ObjectPascal
Raw Permalink Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

unit U_CYPBCKInPut;
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
TfrmCYPBCKInPut = class(TForm)
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1C1: TcxGridDBColumn;
v1C3: TcxGridDBColumn;
v1C12: TcxGridDBColumn;
v1C13: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
ToolBar1: TToolBar;
TBCopyAdd: 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;
Label1: TLabel;
TBAdd: TToolButton;
v1FromFtyName: TcxGridDBColumn;
v1PBNO: TcxGridDBColumn;
v1FromKHName: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCopyAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure v1C15PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure TBAddClick(Sender: TObject);
procedure v1FtyNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1FromFtyNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1FromKHNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
private
{ Private declarations }
function SaveCKData():Boolean;
procedure InitGridStatus();
public
{ Public declarations }
FBCId,FCRType:String;
end;
var
frmCYPBCKInPut: TfrmCYPBCKInPut;
implementation
uses
U_DataLink,U_RTFun,U_ZDYHelp,U_ProductOrderListSel,U_GYSList,U_KHList;
{$R *.dfm}
procedure TfrmCYPBCKInPut.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmCYPBCKInPut.TBCopyAddClick(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 TfrmCYPBCKInPut.SaveCKData():Boolean;
var
FCRID,Maxno,FFSPID,FSPNO,FFlag:string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
if Trim(FCRType)='<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>' then
begin
FFlag:='CG';
end else
if Trim(FCRType)=<><D6AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
FFlag:='ZZ';
end else
if Trim(FCRType)='<27><><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
FFlag:='BW';
end else
if Trim(FCRType)='<27><><EFBFBD>ӹ<EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ز<EFBFBD>' then
begin
FFlag:='BH';
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
if Trim(CDS_Sub.fieldbyname('PBNO').AsString)<>'' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Cloth_Main where isnull(ConNo,'''')='''+Trim(CDS_Sub.fieldbyname('PBNO').AsString)+'''');
open;
end;
if ADOQueryTemp.IsEmpty=True then
begin
ADOQueryCmd.Connection.RollbackTrans;
CDS_Sub.EnableControls;
Application.MessageBox(PChar('PB<50><42><EFBFBD><EFBFBD>:'+Trim(CDS_Sub.fieldbyname('PBNO').AsString)+' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'),'<27><>ʾ',0);
Exit;
end;
end;
if Trim(CDS_Sub.fieldbyname('OrderNo').AsString)<>'' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrder_Main where isnull(OrderNo,'''')='''+Trim(CDS_Sub.fieldbyname('OrderNo').AsString)+'''');
open;
end;
if ADOQueryTemp.IsEmpty=True then
begin
ADOQueryCmd.Connection.RollbackTrans;
CDS_Sub.EnableControls;
Application.MessageBox(PChar('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+Trim(CDS_Sub.fieldbyname('OrderNo').AsString)+' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'),'<27><>ʾ',0);
Exit;
end;
end;
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><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end;
FSPNO:='PR'+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><EFBFBD>ֿ<EFBFBD>';
FieldByName('DeptName').Value:='<27><><EFBFBD><EFBFBD><EFBFBD>ܲ<EFBFBD>';
FieldByName('KHName').Value:=Trim(CDS_Sub.fieldbyname('KHName').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 TfrmCYPBCKInPut.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'+Trim(FCRType),Tv1,Self.Caption);
Close;
end;
procedure TfrmCYPBCKInPut.InitGridStatus();
begin
if Trim(FCRType)='<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>' then
begin
v1FtyName.Visible:=True;
v1FtyName.Hidden:=false;
v1FromFtyName.Visible:=False;
v1FromFtyName.Hidden:=True;
v1FromKHName.Visible:=False;
v1FromKHName.Hidden:=True;
end else
if Trim(FCRType)=<><D6AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
v1FtyName.Visible:=True;
v1FtyName.Hidden:=false;
v1FromFtyName.Visible:=False;
v1FromFtyName.Hidden:=True;
v1FromKHName.Visible:=False;
v1FromKHName.Hidden:=True;
end else
if Trim(FCRType)='<27><><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
v1FtyName.Visible:=True;
v1FtyName.Hidden:=false;
v1FromFtyName.Visible:=True;
v1FromFtyName.Hidden:=false;
v1FromFtyName.Caption:='<27>ӹ<EFBFBD><D3B9><EFBFBD>';
v1FromKHName.Visible:=False;
v1FromKHName.Hidden:=True;
end else
if Trim(FCRType)='<27><><EFBFBD>ӹ<EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ز<EFBFBD>' then
begin
v1FtyName.Visible:=True;
v1FtyName.Hidden:=false;
v1FromFtyName.Visible:=True;
v1FromFtyName.Hidden:=false;
v1FromFtyName.Caption:='<27>ӹ<EFBFBD><D3B9><EFBFBD>';
v1FromKHName.Visible:=False;
v1FromKHName.Hidden:=True;
end else
if Trim(FCRType)='<27>ټӹ<D9BC>δ<EFBFBD><CEB4><EFBFBD>ز<EFBFBD>' then
begin
v1FtyName.Visible:=True;
v1FtyName.Hidden:=false;
v1FromFtyName.Visible:=True;
v1FromFtyName.Hidden:=false;
v1FromFtyName.Caption:='<27>ӹ<EFBFBD><D3B9><EFBFBD>';
v1FromKHName.Visible:=False;
v1FromKHName.Hidden:=True;
end else
if Trim(FCRType)='<27>ͻ<EFBFBD><CDBB>˻<EFBFBD>' then
begin
v1FtyName.Visible:=True;
v1FtyName.Hidden:=false;
v1FromFtyName.Visible:=False;
v1FromFtyName.Hidden:=True;
v1FromKHName.Visible:=True;
v1FromKHName.Hidden:=False;
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;
v1FromFtyName.Options.Focusing:=False;
v1PBNO.Options.Focusing:=False;
v1FromKHName.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;
v1C15.Options.Focusing:=False;
v1C16.Options.Focusing:=False;
end;
end;
procedure TfrmCYPBCKInPut.FormShow(Sender: TObject);
begin
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'+Trim(FCRType),Tv1,Self.Caption);
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 TfrmCYPBCKInPut.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 TfrmCYPBCKInPut.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 CDS_Sub.Locate('FactoryName',null,[])=True then
begin
Application.MessageBox(PChar(Trim(v1FtyName.Caption)+'<27><><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!'),'<27><>ʾ',0);
Exit;
end;
if Trim(FCRType)='<27>ͻ<EFBFBD><CDBB>˻<EFBFBD>' then
begin
if CDS_Sub.Locate('FromKHName',null,[])=True then
begin
Application.MessageBox(PChar(Trim(v1FromKHName.Caption)+'<27><><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!'),'<27><>ʾ',0);
Exit;
end;
end;
if (Trim(FCRType)='<27><><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') or (Trim(FCRType)='<27><><EFBFBD>ӹ<EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ز<EFBFBD>') then
begin
if CDS_Sub.Locate('FactoryName',null,[])=True then
begin
Application.MessageBox(PChar(Trim(v1FromFtyName.Caption)+'<27><><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!'),'<27><>ʾ',0);
Exit;
end;
end;
if Trim(FCRType)=<><D6AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
if CDS_Sub.Locate('PBNO',null,[])=True then
begin
Application.MessageBox(PChar(Trim(v1PBNO.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 TfrmCYPBCKInPut.v1C15PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='PBKuWei';
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 TfrmCYPBCKInPut.TBAddClick(Sender: TObject);
begin
with CDS_Sub do
begin
Append;
Post;
end;
end;
procedure TfrmCYPBCKInPut.v1FtyNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmGYSList:=TfrmGYSList.Create(Application);
with frmGYSList do
begin
if ShowModal=1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString);
// Post;
end;
end;
end;
finally
frmGYSList.Free;
end;
end;
procedure TfrmCYPBCKInPut.v1FromFtyNamePropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
try
frmGYSList:=TfrmGYSList.Create(Application);
with frmGYSList do
begin
if ShowModal=1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString);
//Post;
end;
end;
end;
finally
frmGYSList.Free;
end;
end;
procedure TfrmCYPBCKInPut.v1FromKHNamePropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
try
frmKHList:=TfrmKHList.Create(Application);
with frmKHList do
begin
if ShowModal=1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('FromKHName').Value:=Trim(frmKHList.Order_Main.fieldbyname('KHNameJC').AsString);
FieldByName('KHName').Value:=Trim(frmKHList.Order_Main.fieldbyname('KHNameJC').AsString);
//Post;
end;
end;
end;
finally
frmKHList.Free;
end;
end;
end.