876 lines
24 KiB
ObjectPascal
876 lines
24 KiB
ObjectPascal
unit U_JGCKInPut;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||
cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView,
|
||
cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
|
||
cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer,
|
||
cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB,
|
||
ExtCtrls, BtnEdit, cxCalendar,StrUtils, cxDropDownEdit,jpeg,
|
||
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, cxPC,
|
||
cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox, cxCheckBox,
|
||
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport,IniFiles, Menus,
|
||
ImgList,ShellAPI, cxGridBandedTableView, cxGridDBBandedTableView,
|
||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
|
||
|
||
type
|
||
TfrmJGCKInPut = class(TForm)
|
||
ToolBar1: TToolBar;
|
||
TBClose: TToolButton;
|
||
ADOTemp: TADOQuery;
|
||
ADOCmd: TADOQuery;
|
||
ADOQuery1: TADOQuery;
|
||
TBSave: TToolButton;
|
||
DataSource1: TDataSource;
|
||
ClientDataSet1: TClientDataSet;
|
||
Label26: TLabel;
|
||
Panel3: TPanel;
|
||
labMYType: TLabel;
|
||
Panel4: TPanel;
|
||
Label13: TLabel;
|
||
CRTime: TDateTimePicker;
|
||
Panel5: TPanel;
|
||
Label31: TLabel;
|
||
Label32: TLabel;
|
||
PS: TEdit;
|
||
Qty: TEdit;
|
||
KgQty: TEdit;
|
||
Panel7: TPanel;
|
||
Panel1: TPanel;
|
||
Label20: TLabel;
|
||
PTID: TEdit;
|
||
Label23: TLabel;
|
||
MYPrice: TEdit;
|
||
Label24: TLabel;
|
||
PopupMenu2: TPopupMenu;
|
||
MenuItem1: TMenuItem;
|
||
N3: TMenuItem;
|
||
MenuItem2: TMenuItem;
|
||
N4: TMenuItem;
|
||
ImageList1: TImageList;
|
||
ADOQueryCmd: TADOQuery;
|
||
ADOQueryTmp: TADOQuery;
|
||
ADOQuery2: TADOQuery;
|
||
Label45: TLabel;
|
||
Label50: TLabel;
|
||
ADOQueryTemp: TADOQuery;
|
||
cxStyleRepository1: TcxStyleRepository;
|
||
cxStyle1: TcxStyle;
|
||
Label33: TLabel;
|
||
GYSName: TBtnEditA;
|
||
Label22: TLabel;
|
||
MYName: TEdit;
|
||
Label12: TLabel;
|
||
Label14: TLabel;
|
||
Label15: TLabel;
|
||
Label16: TLabel;
|
||
MYKZ: TEdit;
|
||
MYMF: TEdit;
|
||
Label2: TLabel;
|
||
Label11: TLabel;
|
||
MYHX: TEdit;
|
||
MYColor: TEdit;
|
||
Label4: TLabel;
|
||
MYColorNo: TEdit;
|
||
Label43: TLabel;
|
||
MDMFlag: TCheckBox;
|
||
MDKGFlag: TCheckBox;
|
||
Label1: TLabel;
|
||
Note: TEdit;
|
||
Label3: TLabel;
|
||
ToGYSName: TBtnEditA;
|
||
Panel2: TPanel;
|
||
Panel6: TPanel;
|
||
Label5: TLabel;
|
||
KHNameJC: TBtnEditA;
|
||
Label8: TLabel;
|
||
MLConNo: TEdit;
|
||
Label10: TLabel;
|
||
Label17: TLabel;
|
||
PBBatchNo: TEdit;
|
||
MLOrderNo: TcxButtonEdit;
|
||
Panel8: TPanel;
|
||
Panel9: TPanel;
|
||
cxGrid1: TcxGrid;
|
||
Tv1: TcxGridDBTableView;
|
||
v1Column11: TcxGridDBColumn;
|
||
cxGrid1Level1: TcxGridLevel;
|
||
Label18: TLabel;
|
||
Label19: TLabel;
|
||
Edit1: TEdit;
|
||
Tv1Column1: TcxGridDBColumn;
|
||
Tv1Column2: TcxGridDBColumn;
|
||
ToolButton1: TToolButton;
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure TBSaveClick(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure MDMFlagClick(Sender: TObject);
|
||
procedure MDKGFlagClick(Sender: TObject);
|
||
procedure GYSNameBtnClick(Sender: TObject);
|
||
procedure ToGYSNameBtnClick(Sender: TObject);
|
||
procedure KHNameJCBtnClick(Sender: TObject);
|
||
procedure MLOrderNoPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
|
||
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
procedure ToolButton1Click(Sender: TObject);
|
||
private
|
||
procedure InitData();
|
||
function SaveData():Boolean;
|
||
function YFData():Boolean;
|
||
procedure InitDataSel(FFMYID:String);
|
||
{ Private declarations }
|
||
public
|
||
canshu1:String;
|
||
PState,CopyInt:Integer;
|
||
FMainId:String;
|
||
FRead:String;
|
||
FMYType,FMYTypeFlag,FML,FNewMainId,FNewSubid:string;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmJGCKInPut: TfrmJGCKInPut;
|
||
implementation
|
||
uses
|
||
U_DataLink,U_ZDYHelp,U_RTFun, U_GYSList,U_OrderListSel,U_PBCGRKListSel,U_OrderMXSelist,U_JGCKListSel;
|
||
|
||
{$R *.dfm}
|
||
function TfrmJGCKInPut.YFData():Boolean;
|
||
var
|
||
CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName,FFactoryNo:String;
|
||
begin
|
||
Result:=False;
|
||
FFactoryName:=Trim(GYSName.Text);
|
||
FFactoryNo:=Trim(GYSName.TxtCode);
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from YS_Money_KC where FactoryNo='+quotedstr(Trim(FFactoryNo)));
|
||
sql.Add(' and KCType=''GYS'' ');
|
||
Open;
|
||
end;
|
||
if ADOQueryTemp.IsEmpty=False then
|
||
begin
|
||
CRID:=ADOQueryTemp.fieldbyname('CRID').AsString;
|
||
end
|
||
else
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from YS_Money_CRID');
|
||
Open;
|
||
end;
|
||
if ADOQueryTemp.IsEmpty=False then
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('Update YS_Money_CRID set CRID=CRID+1');
|
||
sql.Add('select * from YS_Money_CRID ');
|
||
Open;
|
||
end;
|
||
end else
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('insert into YS_Money_CRID select 0 ');
|
||
sql.Add('select * from YS_Money_CRID ');
|
||
Open;
|
||
end;
|
||
end;
|
||
|
||
CRID:=ADOQueryCmd.fieldbyname('CRID').AsString;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from YS_Money_KC where 1=2');
|
||
Open;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Append;
|
||
FieldByName('CRID').Value:=StrToInt(CRID);
|
||
FieldByName('FactoryName').Value:=Trim(FFactoryName);
|
||
FieldByName('FactoryNo').Value:=Trim(FFactoryNo);
|
||
FieldByName('ZdyStr1').Value:='Ӧ<><D3A6><EFBFBD><EFBFBD>';
|
||
FieldByName('KCType').Value:='GYS';
|
||
Post;
|
||
end;
|
||
end;
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from YS_Money_CR where FactoryNo='+quotedstr(Trim(FFactoryNo)));
|
||
sql.Add(' and YFTypeId='''+Trim(FMainId)+'''');
|
||
Open;
|
||
end;
|
||
if ADOQueryTemp.IsEmpty then
|
||
begin
|
||
if GetLSNo(ADOQueryCmd,YFID,'JG','YS_Money_CR',4,1)=False then
|
||
begin
|
||
Application.MessageBox('ȡӦ<C8A1><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString);
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from YS_Money_CR where YFID='''+Trim(YFID)+'''');
|
||
Open;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
if ADOQueryTemp.IsEmpty then
|
||
begin
|
||
Append;
|
||
FieldByName('SCQty').Value:=strtofloatdef(Qty.text,0);
|
||
FieldByName('SCPS').Value:=strtofloatdef(PS.text,0);
|
||
end
|
||
else
|
||
Edit;
|
||
FieldByName('YFID').Value:=Trim(YFID);
|
||
FieldByName('YFTypeId').Value:=Trim(FMainid);
|
||
FieldByName('CRID').Value:=StrToInt(CRID);
|
||
FieldByName('YFName').Value:='<27>ӹ<EFBFBD><D3B9><EFBFBD>';
|
||
FieldByName('Filler').Value:=Trim(DName);
|
||
FieldByName('CRType').Value:='Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>';
|
||
FieldByName('CRFlag').Value:='Ӧ<><D3A6><EFBFBD><EFBFBD>';
|
||
FieldByName('ChkStatusP').Value:='δ<><CEB4><EFBFBD><EFBFBD>';
|
||
FieldByName('ChkStatusQ').Value:='δ<><CEB4><EFBFBD><EFBFBD>';
|
||
FieldByName('QtyFlag').Value:=1;
|
||
FieldByName('FactoryName').Value:=Trim(FFactoryName);
|
||
FieldByName('FactoryNo').Value:=Trim(FFactoryNo);
|
||
FieldByName('CRTime').Value:=CRTime.Date;
|
||
if MDMFlag.Checked=True then
|
||
begin
|
||
FieldByName('Qty').Value:=Strtofloatdef(Qty.text,0);
|
||
FieldByName('QtyUnit').Value:='M';
|
||
end
|
||
else
|
||
begin
|
||
FieldByName('Qty').Value:=Strtofloatdef(KGQty.text,0);
|
||
FieldByName('QtyUnit').Value:='KG';
|
||
end;
|
||
FieldByName('PS').Value:=Strtofloatdef(PS.text,0);
|
||
FieldByName('YFType').Value:='<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>';
|
||
|
||
FieldByName('CKNO').Value:=trim(FMainid);
|
||
FieldByName('SJQty').Value:=Strtofloatdef(Qty.text,0);
|
||
FieldByName('MiQty').Value:=Strtofloatdef(Qty.text,0);
|
||
FieldByName('KGQty').Value:=Strtofloatdef(KGQty.text,0);
|
||
FieldByName('P_CodeName').Value:=Trim(MYName.text);
|
||
FieldByName('P_MF').Value:=Trim(MYMF.text);
|
||
FieldByName('P_KZ').Value:=Trim(MYKZ.Text);
|
||
FieldByName('P_Color').Value:=Trim(MYColor.Text);
|
||
FieldByName('P_ColorNo').Value:=Trim(MYColorNo.Text);
|
||
FieldByName('P_HX').Value:=Trim(MYHX.Text);
|
||
FieldByName('BZType').Value:='<27><>';
|
||
FieldByName('status').Value:='0';
|
||
Post;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('Update YS_Money_KC Set KCMoney=(select isnull(Sum(HSMoney*QtyFlag),0) from YS_Money_CR A where A.CRID=YS_Money_KC.CRID)');
|
||
sql.Add(' where CRID='+CRID);
|
||
ExecSQL;
|
||
end;
|
||
Result:=True;
|
||
end;
|
||
|
||
procedure TfrmJGCKInPut.TBCloseClick(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
|
||
procedure TfrmJGCKInPut.InitData();
|
||
begin
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' select A.*,KM.KHNameJC,B.MLConNo,B.MLOrderNo ');
|
||
sql.Add(' from CK_MYSC_CR A ');
|
||
sql.Add(' left join ML_OrderMainNew B on A.MainId=B.NewMLID');
|
||
sql.Add(' left join KH_Main KM on KM.KHNO=B.KHNO ');
|
||
sql.Add(' where MYID='''+Trim(FMainId)+'''');
|
||
Open;
|
||
end;
|
||
SCSHDataNew(ADOQuery1,Panel4,2);
|
||
SCSHDataNew(ADOQuery1,Panel5,2);
|
||
SCSHDataNew(ADOQuery1,Panel4,0);
|
||
MDMFlag.Checked:=ADOQuery1.FieldByName('MDMflag').AsBoolean;
|
||
MDKGFlag.Checked:=ADOQuery1.FieldByName('MDKGFlag').AsBoolean;
|
||
FNewMainId:=Trim(ADOQuery1.fieldbyname('MainId').AsString);
|
||
FNewSubid:=Trim(ADOQuery1.fieldbyname('SubId').AsString);
|
||
if PState=0 then
|
||
begin
|
||
CRTime.Date:=SGetServerDate(ADOTemp);
|
||
end;
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from CK_MYSC_CR_MX where MYID='''+Trim(FMainId)+'''');
|
||
open;
|
||
end;
|
||
SCreateCDS20(ADOQuery1,ClientDataSet1);
|
||
SInitCDSData20(ADOQuery1,ClientDataSet1);
|
||
end;
|
||
procedure TfrmJGCKInPut.InitDataSel(FFMYID:String);
|
||
begin
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' select A.*,KM.KHNameJC,B.MLConNo,B.MLOrderNo ');
|
||
sql.Add(' from CK_MYSC_CR A ');
|
||
sql.Add(' left join ML_OrderMainNew B on A.MainId=B.NewMLID');
|
||
sql.Add(' left join KH_Main KM on KM.KHNO=B.KHNO ');
|
||
sql.Add(' where MYID='''+Trim(FFMYID)+'''');
|
||
Open;
|
||
end;
|
||
SCSHDataNew(ADOQuery1,Panel4,2);
|
||
SCSHDataNew(ADOQuery1,Panel5,2);
|
||
SCSHDataNew(ADOQuery1,Panel4,0);
|
||
MDMFlag.Checked:=ADOQuery1.FieldByName('MDMflag').AsBoolean;
|
||
MDKGFlag.Checked:=ADOQuery1.FieldByName('MDKGFlag').AsBoolean;
|
||
FNewMainId:=Trim(ADOQuery1.fieldbyname('MainId').AsString);
|
||
FNewSubid:=Trim(ADOQuery1.fieldbyname('SubId').AsString);
|
||
CRTime.Date:=SGetServerDate(ADOTemp);
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from CK_MYSC_CR_MX where MYID='''+Trim(FFMYID)+'''');
|
||
open;
|
||
end;
|
||
SCreateCDS20(ADOQuery1,ClientDataSet1);
|
||
SInitCDSData20(ADOQuery1,ClientDataSet1);
|
||
with ClientDataSet1 do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
edit;
|
||
FieldByName('MYID').Value:=Null;
|
||
FieldByName('MXID').Value:=Null;
|
||
Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
ToGYSName.Text:='';ToGYSName.TxtCode:='';
|
||
end;
|
||
|
||
|
||
|
||
|
||
procedure TfrmJGCKInPut.FormShow(Sender: TObject);
|
||
begin
|
||
InitData();
|
||
|
||
end;
|
||
|
||
function TfrmJGCKInPut.SaveData():Boolean;
|
||
var
|
||
maxno,maxmxno,maxnoflag,fsj,FMXID:String;
|
||
begin
|
||
Result:=False;
|
||
try
|
||
ADOCmd.Connection.BeginTrans;
|
||
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
if Trim(FMainId)='' then
|
||
begin
|
||
if GetLSNo(ADOCmd,maxno,'JG','CK_MYSC_CR',4,1)=False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
maxno:=Trim(FMainId);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select * from CK_MYSC_CR where MYId='''+Trim(maxno)+'''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if isempty then
|
||
begin
|
||
Append;
|
||
FieldByName('Filler').Value:=Trim(DName);
|
||
FieldByName('FillerCode').Value:=Trim(DCode);
|
||
end
|
||
else begin
|
||
Edit;
|
||
end;
|
||
FieldByName('MYId').Value:=Trim(maxno);
|
||
FieldByName('CRType').Value:='<27>ӹ<EFBFBD><D3B9>뵥';
|
||
FieldByName('CRFlag').Value:='<27><><EFBFBD><EFBFBD>';
|
||
FieldByName('CRQtyFlag').Value:=1;
|
||
if Trim(FMainId)='' then
|
||
begin
|
||
|
||
end else
|
||
begin
|
||
FieldByName('Editer').Value:=Trim(DName);
|
||
FieldByName('EditerCode').Value:=Trim(DCode);
|
||
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
|
||
end;
|
||
RTSetsavedata(ADOCmd,'CK_MYSC_CR',Panel4,2);
|
||
RTSetsavedata(ADOCmd,'CK_MYSC_CR',Panel5,2);
|
||
FieldByName('MDMflag').Value:=MDMFlag.Checked;
|
||
FieldByName('MDKGflag').Value:=MDKGflag.Checked;
|
||
FieldByName('MYType').Value:='<27>ӹ<EFBFBD><D3B9><EFBFBD>';
|
||
FieldByName('MYTypeFlag').Value:=Trim(FMYTypeFlag);
|
||
FieldByName('MainId').Value:=Trim(FNewMainId);
|
||
FieldByName('SubId').Value:=Trim(FNewSubid);
|
||
Post;
|
||
end;
|
||
FMainId:=Trim(maxno);
|
||
YFData();
|
||
ClientDataSet1.DisableControls;
|
||
with ClientDataSet1 do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from CK_MYSC_CR_MX where MXID='''+Trim(ClientDataSet1.fieldbyname('MXID').AsString)+'''');
|
||
Open;
|
||
end;
|
||
FMXID:=Trim(ADOCmd.fieldbyname('MXID').AsString);
|
||
if Trim(FMXID)='' then
|
||
begin
|
||
if GetLSNo(ADOCmd,maxmxno,'MX','CK_MYSC_CR_MX',4,1)=False then
|
||
begin
|
||
ClientDataSet1.EnableControls;
|
||
Application.MessageBox('ȡ<>ӹ<EFBFBD><D3B9>뵥<EFBFBD><EBB5A5>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
maxmxno:=Trim(FMXID);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from CK_MYSC_CR_MX where MXID='''+Trim(maxmxno)+'''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(FMXID)='' then
|
||
begin
|
||
Append;
|
||
FieldByName('Filler').Value:=Trim(DName);
|
||
end else
|
||
begin
|
||
Edit;
|
||
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
|
||
FieldByName('Editer').Value:=Trim(DName);
|
||
end;
|
||
FieldByName('MYID').Value:=Trim(FMainId);
|
||
FieldByName('MXID').Value:=Trim(maxmxno);
|
||
RTSetSaveDataCDS(ADOCmd,Tv1,ClientDataSet1,'CK_MYSC_CR_MX',0);
|
||
Post;
|
||
end;
|
||
Edit;
|
||
FieldByName('MYID').Value:=Trim(FMainId);
|
||
FieldByName('MXID').Value:=Trim(maxmxno);
|
||
Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
ClientDataSet1.EnableControls;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' UPdate CK_MYSC_CR Set MXHZQty=(select Sum(MQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');
|
||
sql.Add(' ,MXHZKgQty=(select Sum(KgQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');
|
||
sql.Add(' ,MXHZPS=(select Count(*) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');
|
||
sql.Add(' where MYID='''+Trim(FMainId)+'''');
|
||
sql.Add(' Update CK_MYSC_CR Set QtyChaE=isnull(MXHZQty,0)-isnull(Qty,0),KgQtyChaE=isnull(MXHZKgQty,0)-isnull(KgQty,0),PSChaE=isnull(MXHZPS,0)-isnull(PS,0) ');
|
||
sql.Add(' where MYID='''+Trim(FMainId)+'''');
|
||
ExecSQL;
|
||
end;
|
||
if Trim(ToGYSName.Text)='<27><><EFBFBD><EFBFBD><EFBFBD>ֿ<EFBFBD>' then
|
||
begin
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' UPdate ML_OrderSubidNew Set HCPS=(select sum(PS) from CK_MYSC_CR A where A.SubID=ML_OrderSubidNew.NewSubid) ');
|
||
if MDMFlag.Checked then
|
||
begin
|
||
sql.Add(' ,HCQty=(select sum(Qty) from CK_MYSC_CR A where A.SubID=ML_OrderSubidNew.NewSubid) ');
|
||
end;
|
||
if MDKGFlag.Checked then
|
||
begin
|
||
sql.Add(' ,HCQty=(select sum(KgQty) from CK_MYSC_CR A where A.SubID=ML_OrderSubidNew.NewSubid) ');
|
||
end;
|
||
sql.Add(' where NewSubid='''+Trim(FNewSubid)+'''');
|
||
ExecSQL;
|
||
end;
|
||
end;
|
||
if Trim(FMYType)='Ⱦɫ' then
|
||
begin
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' exec P_Update_PBKC :PBBatchNo,:JGCNO');
|
||
Parameters.ParamByName('PBBatchNo').Value:=Trim(PBBatchNo.Text);
|
||
Parameters.ParamByName('JGCNO').Value:=Trim(GYSName.TxtCode);
|
||
ExecSQL;
|
||
end;
|
||
end;
|
||
ADOCmd.Connection.CommitTrans;
|
||
Result:=True;
|
||
except
|
||
Result:=False;
|
||
ClientDataSet1.EnableControls;
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJGCKInPut.TBSaveClick(Sender: TObject);
|
||
var
|
||
FReal:Double;
|
||
FInt:Integer;
|
||
begin
|
||
ToolBar1.SetFocus;
|
||
if Trim(GYSName.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><>Ӧ<EFBFBD>̲<EFBFBD><CCB2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if Trim(MYName.Text)='' then
|
||
begin
|
||
Application.MessageBox('Ʒ<><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if (MDMFlag.Checked=False) and (MDKGFlag.Checked=False) then
|
||
begin
|
||
Application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD>Ƽ۷<C6BC>ʽ','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if MDMFlag.Checked then
|
||
begin
|
||
if Trim(Qty.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
if MDKGFlag.Checked then
|
||
begin
|
||
if Trim(KgQty.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
|
||
if Trim(PS.Text)='' then
|
||
begin
|
||
Application.MessageBox('ƥ<><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if TryStrToInt(PS.Text,FInt)=False then
|
||
begin
|
||
Application.MessageBox('ƥ<><C6A5><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
||
exit;
|
||
end;
|
||
if (Trim(Qty.Text)='') and (Trim(KgQty.text)='') then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><CDB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬʱΪ<CAB1><CEAA>!','<27><>ʾ',0);
|
||
exit;
|
||
end;
|
||
if Trim(Qty.Text)<>'' then
|
||
begin
|
||
if TryStrToFloat(Qty.Text,FReal)=False then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
||
exit;
|
||
end;
|
||
end;
|
||
if Trim(KgQty.Text)<>'' then
|
||
begin
|
||
if TryStrToFloat(KgQty.Text,FReal)=False then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
||
exit;
|
||
end;
|
||
end;
|
||
if Trim(PBBatchNo.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if ClientDataSet1.IsEmpty then
|
||
begin
|
||
Application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if SaveData() then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
|
||
ModalResult:=1;
|
||
end;
|
||
end;
|
||
|
||
|
||
|
||
|
||
|
||
Procedure TfrmJGCKInPut.FormClose(Sender: TObject;
|
||
var Action: TCloseAction);
|
||
begin
|
||
ModalResult:=1;
|
||
end;
|
||
|
||
|
||
procedure TfrmJGCKInPut.MDMFlagClick(Sender: TObject);
|
||
begin
|
||
|
||
if MDMFlag.Checked=true then
|
||
begin
|
||
if MDKGFlag.Checked=true then
|
||
MDKGFlag.Checked:=false;
|
||
end
|
||
else
|
||
begin
|
||
if MDKGFlag.Checked=false then
|
||
MDKGFlag.Checked:=true;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmJGCKInPut.MDKGFlagClick(Sender: TObject);
|
||
begin
|
||
|
||
if MDKGFlag.Checked=true then
|
||
begin
|
||
if MDMFlag.Checked=true then
|
||
MDMFlag.Checked:=false;
|
||
end
|
||
else
|
||
begin
|
||
if MDMFlag.Checked=false then
|
||
MDMFlag.Checked:=true;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJGCKInPut.GYSNameBtnClick(Sender: TObject);
|
||
begin
|
||
{ if Trim(FMYType)='Ⱦɫ' then
|
||
begin
|
||
try
|
||
frmPBCGRKListSel:=TfrmPBCGRKListSel.Create(Application);
|
||
with frmPBCGRKListSel do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.GYSName.Text:=Trim(frmPBCGRKListSel.Order_Main.fieldbyname('JCDanWeiJC').AsString);
|
||
Self.GYSName.TxtCode:=Trim(frmPBCGRKListSel.Order_Main.fieldbyname('JCKHNo').AsString);
|
||
Self.MYName.Text:=Trim(frmPBCGRKListSel.Order_Main.fieldbyname('MYName').AsString);
|
||
Self.PBBatchNo.Text:=Trim(frmPBCGRKListSel.Order_Main.fieldbyname('PBBatchNo').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmPBCGRKListSel.Free;
|
||
end;
|
||
end else
|
||
begin
|
||
try
|
||
frmGYSList:=TfrmGYSList.Create(Application);
|
||
with frmGYSList do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.GYSName.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString);
|
||
Self.GYSName.TxtCode:=Trim(frmGYSList.Order_Main.fieldbyname('KHNo').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmGYSList.Free;
|
||
end;
|
||
end; }
|
||
|
||
end;
|
||
|
||
procedure TfrmJGCKInPut.ToGYSNameBtnClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmGYSList:=TfrmGYSList.Create(Application);
|
||
with frmGYSList do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.ToGYSName.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString);
|
||
Self.ToGYSName.TxtCode:=Trim(frmGYSList.Order_Main.fieldbyname('KHNo').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmGYSList.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJGCKInPut.KHNameJCBtnClick(Sender: TObject);
|
||
begin
|
||
{try
|
||
frmOrderListSel:=TfrmOrderListSel.Create(Application);
|
||
with frmOrderListSel do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
FNewMainId:=Trim(frmOrderListSel.Order_Main.fieldbyname('NewMLID').AsString);
|
||
Self.MLConNo.Text:=Trim(frmOrderListSel.Order_Main.fieldbyname('MLConNo').AsString);
|
||
Self.MLOrderNo.Text:=Trim(frmOrderListSel.Order_Main.fieldbyname('MLOrderNo').AsString);
|
||
Self.KHNameJC.Text:=Trim(frmOrderListSel.Order_Main.fieldbyname('KHNameJC').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmOrderListSel.Free;
|
||
end; }
|
||
end;
|
||
|
||
procedure TfrmJGCKInPut.MLOrderNoPropertiesButtonClick(
|
||
Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
{try
|
||
frmOrderMXSelist:=TfrmOrderMXSelist.Create(Application);
|
||
with frmOrderMXSelist do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.MLOrderNo.Text:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('MLOrderNo').AsString);
|
||
Self.MLConNo.Text:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('MLConNo').AsString);
|
||
Self.MYColor.Text:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('MLColor').AsString);
|
||
Self.MYColorNo.Text:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('MLColorNo').AsString);
|
||
Self.MYHX.Text:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('MLHX').AsString);
|
||
Self.MYHX.Text:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('MLHX').AsString);
|
||
Self.MYHX.Text:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('MLHX').AsString);
|
||
Self.KHNameJC.Text:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('KHNameJC').AsString);
|
||
Self.FNewMainId:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('NewMLID').AsString);
|
||
Self.FNewSubid:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('NewSubid').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmOrderMXSelist.Free;
|
||
end; }
|
||
end;
|
||
|
||
procedure TfrmJGCKInPut.Edit1KeyPress(Sender: TObject;
|
||
var Key: Char);
|
||
var
|
||
Freal:Double;
|
||
begin
|
||
if Key=#13 then
|
||
begin
|
||
if Trim(Edit1.Text)<>'' then
|
||
begin
|
||
if TryStrToFloat(Edit1.Text,Freal)=False then
|
||
begin
|
||
Application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
with ClientDataSet1 do
|
||
begin
|
||
Append;
|
||
FieldByName('HSQty').Value:=Trim(Edit1.Text);
|
||
if MDMFlag.Checked then
|
||
begin
|
||
FieldByName('MQty').Value:=Trim(Edit1.Text);
|
||
end;
|
||
if MDKGFlag.Checked then
|
||
begin
|
||
FieldByName('KgQty').Value:=Trim(Edit1.Text);
|
||
end;
|
||
Post;
|
||
end;
|
||
Edit1.Text:='';
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJGCKInPut.Tv1CellDblClick(
|
||
Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
begin
|
||
if ClientDataSet1.IsEmpty then Exit;
|
||
if Trim(ClientDataSet1.fieldbyname('MXID').AsString)='' then
|
||
begin
|
||
ClientDataSet1.Delete;
|
||
Exit;
|
||
end;
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
|
||
begin
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('delete CK_MYSC_CR_MX where MXID='''+Trim(ClientDataSet1.fieldbyname('MXID').AsString)+'''');
|
||
sql.Add(' UPdate CK_MYSC_CR Set MXHZQty=(select Sum(MQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');
|
||
sql.Add(' ,MXHZKgQty=(select Sum(KgQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');
|
||
sql.Add(' ,MXHZPS=(select Count(*) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');
|
||
sql.Add(' where MYID='''+Trim(FMainId)+'''');
|
||
ExecSQL;
|
||
end;
|
||
ClientDataSet1.Delete;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJGCKInPut.ToolButton1Click(Sender: TObject);
|
||
begin
|
||
try
|
||
frmJJGCKListSel:=TfrmJJGCKListSel.Create(Application);
|
||
with frmJJGCKListSel do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
InitDataSel(frmJJGCKListSel.Order_Main.fieldbyname('MYID').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmJJGCKListSel.Free;
|
||
end;
|
||
end;
|
||
|
||
end.
|