472 lines
15 KiB
ObjectPascal
472 lines
15 KiB
ObjectPascal
|
unit U_BaseOut;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics,
|
|||
|
|
cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
|
|||
|
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
|
|||
|
|
cxClasses, cxControls, cxGridCustomView, cxGrid, ADODB, DBClient,
|
|||
|
|
cxButtonEdit, cxDropDownEdit, cxCalendar;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfrmBaseOut = class(TForm)
|
|||
|
|
ToolBar1: TToolBar;
|
|||
|
|
BtnSave: TToolButton;
|
|||
|
|
BtnExit: TToolButton;
|
|||
|
|
Tv1: TcxGridDBTableView;
|
|||
|
|
cxGrid1Level1: TcxGridLevel;
|
|||
|
|
cxGrid1: TcxGrid;
|
|||
|
|
v1PlanNo: TcxGridDBColumn;
|
|||
|
|
v1P_ChnName: TcxGridDBColumn;
|
|||
|
|
v1P_ChnName10: TcxGridDBColumn;
|
|||
|
|
v1ShortName: TcxGridDBColumn;
|
|||
|
|
v1DefStr3: TcxGridDBColumn;
|
|||
|
|
v1DefFlt1: TcxGridDBColumn;
|
|||
|
|
v1DefStr4: TcxGridDBColumn;
|
|||
|
|
v1Note: TcxGridDBColumn;
|
|||
|
|
v1Quantity: TcxGridDBColumn;
|
|||
|
|
v1UnitName: TcxGridDBColumn;
|
|||
|
|
ToolButton2: TToolButton;
|
|||
|
|
ToolButton3: TToolButton;
|
|||
|
|
DataSource1: TDataSource;
|
|||
|
|
CDS_Sub: TClientDataSet;
|
|||
|
|
ADOQueryMain: TADOQuery;
|
|||
|
|
ADOQueryCmd: TADOQuery;
|
|||
|
|
ADOQueryTemp: TADOQuery;
|
|||
|
|
v1Column1: TcxGridDBColumn;
|
|||
|
|
v1DefStr2: TcxGridDBColumn;
|
|||
|
|
v1DefStr1: TcxGridDBColumn;
|
|||
|
|
v1P_Code: TcxGridDBColumn;
|
|||
|
|
v1RollUnit: TcxGridDBColumn;
|
|||
|
|
v1P_SeqNo: TcxGridDBColumn;
|
|||
|
|
v1DepotClass: TcxGridDBColumn;
|
|||
|
|
v1batchnum: TcxGridDBColumn;
|
|||
|
|
v1Column2: TcxGridDBColumn;
|
|||
|
|
v1Column3: TcxGridDBColumn;
|
|||
|
|
procedure FormCreate(Sender: TObject);
|
|||
|
|
procedure BtnExitClick(Sender: TObject);
|
|||
|
|
procedure ToolButton2Click(Sender: TObject);
|
|||
|
|
procedure ToolButton3Click(Sender: TObject);
|
|||
|
|
procedure v1P_ChnNamePropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
procedure v1P_ChnName10PropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
procedure v1ShortNamePropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
procedure v1UnitNamePropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
procedure v1DefStr4PropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
procedure v1PlanNoPropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
procedure BtnSaveClick(Sender: TObject);
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure v1DepotClassPropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
private
|
|||
|
|
procedure InitGrid();
|
|||
|
|
function SaveData():Boolean;
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
DepotNo:string;
|
|||
|
|
QuantityCK:string;
|
|||
|
|
{ Public declarations }
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmBaseOut: TfrmBaseOut;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
uses
|
|||
|
|
U_adodbmd,U_global,U_FormPas,U_SelfForm,U_ProductHelp,
|
|||
|
|
U_SupplyHelp,U_JlUnitHelp,U_ItemManageNew,U_GetPlanListHelp
|
|||
|
|
,U_GetBaseInList;
|
|||
|
|
|
|||
|
|
{$R *.dfm}
|
|||
|
|
|
|||
|
|
procedure TfrmBaseOut.FormCreate(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
cxGrid1.Align:=alClient;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBaseOut.BtnExitClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
end;
|
|||
|
|
procedure TfrmBaseOut.InitGrid();
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
ADOQueryMain.DisableControls;
|
|||
|
|
with ADOQueryMain do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('exec P_Get_ClothInOutList :begdate,:enddate,:DepotNo,:DepotCode,:PState,:CRK');
|
|||
|
|
Parameters.ParamByName('DepotNo').Value:=Trim(DepotNo);
|
|||
|
|
Parameters.ParamByName('PState').Value:=2;
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
CreateCDS20(ADOQueryMain,CDS_Sub);
|
|||
|
|
InitCDSData20(ADOQueryMain,CDS_Sub);
|
|||
|
|
finally
|
|||
|
|
ADOQueryMain.EnableControls;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBaseOut.ToolButton2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmGetBaseInList:=TfrmGetBaseInList.Create(Application);
|
|||
|
|
with frmGetBaseInList do
|
|||
|
|
begin
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
with CDS_Sub do
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
CDS_Sub.FieldByName('PlanNo').Value:=Trim(ADOQueryMain.fieldbyname('PlanNo').AsString);
|
|||
|
|
CDS_Sub.FieldByName('P_SeqNO').Value:=Trim(ADOQueryMain.fieldbyname('P_SeqNO').AsString);
|
|||
|
|
CDS_Sub.FieldByName('P_Code').Value:=Trim(ADOQueryMain.fieldbyname('P_Code').AsString);
|
|||
|
|
CDS_Sub.FieldByName('P_ChnName').Value:=Trim(ADOQueryMain.fieldbyname('P_ChnName').AsString);
|
|||
|
|
CDS_Sub.FieldByName('DefStr1').Value:=Trim(ADOQueryMain.fieldbyname('DefStr1').AsString);
|
|||
|
|
CDS_Sub.FieldByName('P_ChnName10').Value:=Trim(ADOQueryMain.fieldbyname('P_ChnName10').AsString);
|
|||
|
|
CDS_Sub.FieldByName('DefStr2').Value:=Trim(ADOQueryMain.fieldbyname('DefStr2').AsString);
|
|||
|
|
CDS_Sub.FieldByName('ShortName').Value:=Trim(ADOQueryMain.fieldbyname('ShortName').AsString);
|
|||
|
|
CDS_Sub.FieldByName('DefStr3').Value:=Trim(ADOQueryMain.fieldbyname('DefStr3').AsString);
|
|||
|
|
CDS_Sub.FieldByName('DefFlt1').Value:=Trim(ADOQueryMain.fieldbyname('DefFlt1').AsString);
|
|||
|
|
CDS_Sub.FieldByName('DefStr6').Value:=Trim(ADOQueryMain.fieldbyname('DefStr6').AsString);
|
|||
|
|
CDS_Sub.FieldByName('DefStr7').Value:=Trim(ADOQueryMain.fieldbyname('DefStr7').AsString);
|
|||
|
|
CDS_Sub.FieldByName('Quantity').Value:=Trim(ADOQueryMain.fieldbyname('QuantityKC').AsString);
|
|||
|
|
CDS_Sub.FieldByName('UnitName').Value:=Trim(ADOQueryMain.fieldbyname('UnitName').AsString);
|
|||
|
|
CDS_Sub.FieldByName('RollUnit').Value:=Trim(ADOQueryMain.fieldbyname('RollUnit').AsString);
|
|||
|
|
CDS_Sub.FieldByName('DefStr4').Value:=Trim(ADOQueryMain.fieldbyname('DefStr4').AsString);
|
|||
|
|
CDS_Sub.FieldByName('KCID').Value:=Trim(ADOQueryMain.fieldbyname('KCID').AsString);
|
|||
|
|
CDS_Sub.FieldByName('batchnum').Value:=Trim(ADOQueryMain.fieldbyname('batchnum').AsString);
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmGetBaseInList.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBaseOut.ToolButton3Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if CDS_Sub.IsEmpty then Exit;
|
|||
|
|
CDS_Sub.Delete;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TfrmBaseOut.SaveData():Boolean;
|
|||
|
|
var
|
|||
|
|
MaxNo,strSQL:string;
|
|||
|
|
KID,i:Integer;
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
Result:=False;
|
|||
|
|
ADOQueryCmd.Connection.BeginTrans;
|
|||
|
|
CDS_Sub.First;
|
|||
|
|
for i:=0 to CDS_Sub.RecordCount-1 do
|
|||
|
|
begin
|
|||
|
|
if Trim(CDS_Sub.fieldbyname('DepotNo').AsString)<>'' then
|
|||
|
|
begin
|
|||
|
|
MaxNo:=Trim(CDS_Sub.fieldbyname('DepotNo').AsString);
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
if GetMaxNo20(ADOQueryCmd,MaxNo,'WC_ClothInout','BC',1,4)=False then
|
|||
|
|
begin
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
KID:=CDS_Sub.fieldbyname('KcID').AsInteger;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
SQL.Add('select * from WC_ClothInout where DepotNO='''+Trim(DepotNo)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
if Trim(CDS_Sub.fieldbyname('DepotNo').AsString)<>'' then
|
|||
|
|
Edit
|
|||
|
|
else
|
|||
|
|
Append;
|
|||
|
|
FieldByName('DepotNo').Value:=Trim(MaxNo);
|
|||
|
|
FieldByName('DepotCode').Value:=Trim(gDef1);
|
|||
|
|
FieldByName('DepotType').Value:=0;
|
|||
|
|
FieldByName('Filler').Value:=Trim(gUserName);
|
|||
|
|
FieldByName('FillTime').Value:=Trim(CDS_Sub.fieldbyname('FillTime').AsString);
|
|||
|
|
FieldByName('DepotClass').Value:=Trim(CDS_Sub.fieldbyname('DepotClass').AsString);
|
|||
|
|
FieldByName('Status').Value:='I9';
|
|||
|
|
FieldByName('DepotNo').Value:=Trim(MaxNo);
|
|||
|
|
//SSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'WC_ClothInout',1);
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
SQL.Add('select * from WC_ClothInOut_Info where DepotNO='''+Trim(DepotNo)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
if Trim(CDS_Sub.fieldbyname('DepotNo').AsString)<>'' then
|
|||
|
|
Edit
|
|||
|
|
else
|
|||
|
|
Append;
|
|||
|
|
FieldByName('DepotNo').Value:=Trim(MaxNo);
|
|||
|
|
FieldByName('KCID').Value:=KID;
|
|||
|
|
FieldByName('ID').Value:=1;
|
|||
|
|
SSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'WC_ClothInOut_Info',2);
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
//<2F><><EFBFBD>浽<EFBFBD><E6B5BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
if Trim(CDS_Sub.fieldbyname('DepotNo').AsString)='' then
|
|||
|
|
begin
|
|||
|
|
//<2F><><EFBFBD>µ<EFBFBD><C2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
strSQL := 'UPDATE WC_ClothClothing SET '
|
|||
|
|
+ 'Quantity =Quantity-' + CDS_Sub.fieldbyname('Quantity').AsString+ ' '
|
|||
|
|
+ 'WHERE KcID = ' + IntToStr(KID);
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
//<2F><><EFBFBD>µ<EFBFBD><C2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
strSQL := 'UPDATE WC_ClothClothing SET '
|
|||
|
|
+ 'Quantity =Quantity+'+QuantityCK+'-'+CDS_Sub.fieldbyname('Quantity').AsString+ ' '
|
|||
|
|
+ 'WHERE KcID = ' + IntToStr(KID);
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
SQL.Add(strSQL);
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
CDS_Sub.Next;
|
|||
|
|
end;
|
|||
|
|
ADOQueryCmd.Connection.CommitTrans;
|
|||
|
|
Result:=True;
|
|||
|
|
DepotNo:=MaxNo;
|
|||
|
|
ModalResult:=1;
|
|||
|
|
except
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBaseOut.v1P_ChnNamePropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmProductHelp:=TfrmProductHelp.Create(Application);
|
|||
|
|
with frmProductHelp do
|
|||
|
|
begin
|
|||
|
|
fDipFlag:=3;
|
|||
|
|
cxTabControl1.Tabs[0].Visible:=False;
|
|||
|
|
cxTabControl1.Tabs[1].Visible:=False;
|
|||
|
|
cxTabControl1.Tabs[2].Visible:=False;
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
Self.CDS_Sub.Edit;
|
|||
|
|
CDS_Sub.FieldByName('P_Code').Value:=ADOQueryHelp.fieldbyname('P_Code').AsString;
|
|||
|
|
CDS_Sub.FieldByName('P_ChnName').Value:=ADOQueryHelp.fieldbyname('P_ChnName').AsString;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmProductHelp.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBaseOut.v1P_ChnName10PropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmProductHelp:=TfrmProductHelp.Create(Application);
|
|||
|
|
with frmProductHelp do
|
|||
|
|
begin
|
|||
|
|
fDipFlag:=2;
|
|||
|
|
cxTabControl1.Tabs[0].Visible:=False;
|
|||
|
|
cxTabControl1.Tabs[1].Visible:=False;
|
|||
|
|
cxTabControl1.Tabs[3].Visible:=False;
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
Self.CDS_Sub.Edit;
|
|||
|
|
CDS_Sub.FieldByName('DefStr1').Value:=ADOQueryHelp.fieldbyname('P_Code').AsString;
|
|||
|
|
CDS_Sub.FieldByName('P_ChnName10').Value:=ADOQueryHelp.fieldbyname('P_ChnName').AsString;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmProductHelp.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBaseOut.v1ShortNamePropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmSupplyHelp:=TfrmSupplyHelp.Create(Application);
|
|||
|
|
with frmSupplyHelp do
|
|||
|
|
begin
|
|||
|
|
FLType:='<27><><EFBFBD><EFBFBD>';
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
Self.CDS_Sub.Edit;
|
|||
|
|
self.CDS_Sub.FieldByName('ShortName').Value:=Trim(ADOQueryHelp.fieldbyname('ShortName').AsString);
|
|||
|
|
self.CDS_Sub.FieldByName('DefStr2').Value:=Trim(ADOQueryHelp.fieldbyname('CustomNo').AsString);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmSupplyHelp.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBaseOut.v1UnitNamePropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
kf_frmJlUnitHelp:=Tkf_frmJlUnitHelp.Create(Application);
|
|||
|
|
with kf_frmJlUnitHelp do
|
|||
|
|
begin
|
|||
|
|
Fflag:='length';
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
Self.CDS_Sub.Edit;
|
|||
|
|
Self.CDS_Sub.FieldByName('UnitName').Value:=Trim(ADOQueryHelp.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
|
|||
|
|
Self.CDS_Sub.FieldByName('RollUnit').Value:=Trim(ADOQueryHelp.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
kf_frmJlUnitHelp.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBaseOut.v1DefStr4PropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmItemManageNew:=TfrmItemManageNew.Create(Application);
|
|||
|
|
with frmItemManageNew do
|
|||
|
|
begin
|
|||
|
|
flag:='DefStr4';
|
|||
|
|
flagname:='<27><>˹<EFBFBD>ȼ<EFBFBD>';
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
Self.CDS_Sub.Edit;
|
|||
|
|
Self.CDS_Sub.FieldByName('DefStr4').Value:=Trim(ClientDataSet1.fieldbyname('name').AsString);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmItemManageNew.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBaseOut.v1PlanNoPropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmGetPlanListHelp:=TfrmGetPlanListHelp.Create(Application);
|
|||
|
|
with frmGetPlanListHelp do
|
|||
|
|
begin
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
CDS_Sub.Edit;
|
|||
|
|
CDS_Sub.FieldByName('PlanNo').Value:=Trim(ADOQueryHelp.fieldbyname('PlanNo').AsString);
|
|||
|
|
CDS_Sub.FieldByName('P_SeqNo').Value:=Trim(ADOQueryHelp.fieldbyname('P_SeqNo').AsString);
|
|||
|
|
CDS_Sub.FieldByName('DefStr1').Value:=Trim(ADOQueryHelp.fieldbyname('P_BaseCode').AsString);
|
|||
|
|
CDS_Sub.FieldByName('P_ChnName10').Value:=Trim(ADOQueryHelp.fieldbyname('P_BaseChnName').AsString);
|
|||
|
|
CDS_Sub.FieldByName('DefStr2').Value:=Trim(ADOQueryHelp.fieldbyname('P_Factory').AsString);
|
|||
|
|
CDS_Sub.FieldByName('Shortname').Value:=Trim(ADOQueryHelp.fieldbyname('SupplierName').AsString);
|
|||
|
|
CDS_Sub.FieldByName('DefStr3').Value:=Trim(ADOQueryHelp.fieldbyname('SBtr2').AsString);
|
|||
|
|
with ADOQueryTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Select P_Code from MC_CatLog where P_ChnName='''+Trim(ADOQueryHelp.fieldbyname('LbStr6').AsString)+'''');
|
|||
|
|
Open;
|
|||
|
|
if not IsEmpty then
|
|||
|
|
begin
|
|||
|
|
CDS_Sub.FieldByName('P_Code').Value:=Trim(ADOQueryTemp.fieldbyname('P_Code').AsString);
|
|||
|
|
CDS_Sub.FieldByName('P_ChnName').Value:=Trim(ADOQueryHelp.fieldbyname('LbStr6').AsString);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmGetPlanListHelp.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBaseOut.BtnSaveClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if CDS_Sub.Locate('FillTime',Null,[]) then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD>䲻<EFBFBD><E4B2BB>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if CDS_Sub.Locate('PlanNo',Null,[]) then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if CDS_Sub.Locate('batchnum',Null,[]) then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if CDS_Sub.Locate('DepotClass',Null,[]) then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if CDS_Sub.Locate('P_ChnName',Null,[]) then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('Ʒ<><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if CDS_Sub.Locate('Quantity',Null,[]) then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if CDS_Sub.IsEmpty then Exit;
|
|||
|
|
if SaveData() then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBaseOut.FormShow(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
InitGrid();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBaseOut.v1DepotClassPropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmItemManageNew:=TfrmItemManageNew.Create(Application);
|
|||
|
|
with frmItemManageNew do
|
|||
|
|
begin
|
|||
|
|
flag:='BSOutType';
|
|||
|
|
flagname:='<27><>˹<EFBFBD><CBB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
Self.CDS_Sub.Edit;
|
|||
|
|
Self.CDS_Sub.FieldByName('DepotClass').Value:=Trim(ClientDataSet1.fieldbyname('name').AsString);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmItemManageNew.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|