884 lines
26 KiB
ObjectPascal
884 lines
26 KiB
ObjectPascal
unit U_LLCKInPut;
|
||
|
||
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,
|
||
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
|
||
TfrmLLCKInPut = 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
|
||
frmLLCKInPut: TfrmLLCKInPut;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_ZDYHelp, U_RTFun, U_GYSList, U_OrderListSel, U_PBCGRKListSel,
|
||
U_OrderMXSelist, U_JGCKListSel;
|
||
|
||
{$R *.dfm}
|
||
function TfrmLLCKInPut.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 TfrmLLCKInPut.TBCloseClick(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmLLCKInPut.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 TfrmLLCKInPut.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 TfrmLLCKInPut.FormShow(Sender: TObject);
|
||
begin
|
||
InitData();
|
||
|
||
end;
|
||
|
||
function TfrmLLCKInPut.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 TfrmLLCKInPut.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 TfrmLLCKInPut.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
ModalResult := 1;
|
||
end;
|
||
|
||
procedure TfrmLLCKInPut.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 TfrmLLCKInPut.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 TfrmLLCKInPut.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 TfrmLLCKInPut.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 TfrmLLCKInPut.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 TfrmLLCKInPut.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 TfrmLLCKInPut.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 TfrmLLCKInPut.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 TfrmLLCKInPut.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.
|
||
|