D7DJkairan/坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.pas

1598 lines
58 KiB
ObjectPascal
Raw Permalink Normal View History

2025-07-19 13:52:55 +08:00
unit U_WJGCKInPut;
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, 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
TfrmWJGCKInPut = class(TForm)
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column2: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
ToolBar1: TToolBar;
TBAdd: TToolButton;
TBDel: TToolButton;
TBSave: TToolButton;
TBClose: TToolButton;
v1Column4: TcxGridDBColumn;
DataSource3: TDataSource;
CDS_Sub: TClientDataSet;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
cxGridPopupMenu2: TcxGridPopupMenu;
v1Column12: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
ToolButton1: TToolButton;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: 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 v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure v2Column6PropertiesEditValueChanged(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
{ Private declarations }
BCflag: Double;
function SaveCKData(): Boolean;
function SavePBCKData(): Boolean;
function SaveWJGCKData(): Boolean;
function YFData(): Boolean;
public
{ Public declarations }
FBCId: string;
end;
var
frmWJGCKInPut: TfrmWJGCKInPut;
implementation
uses
U_DataLink, U_RTFun, U_ClothContractListHZCX, U_ZDYHelp, U_ZdyAttachGYS,
U_WJGCKKCSelList, U_SXCKKCSelList, U_ProductOrderListSel;
{$R *.dfm}
procedure TfrmWJGCKInPut.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmWJGCKInPut.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));
FieldByName('CRType').Value := '<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>';
FieldByName('ZHGX').Value := '<27><>';
FieldByName('sccw').Value := '<27><>';
Post;
end;
end;
end;
function TfrmWJGCKInPut.SaveCKData(): Boolean;
var
FCRID, Maxno, FFSPID: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
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_KC where BatchNo='''+Trim(CDS_Sub.fieldbyname('BatchNo').AsString)+'''');
SQL.Add(' and isnull(CKName,'''')='<><C9B4>'' ');
Open;
end;
if ADOQueryTemp.IsEmpty=False then
begin
FCRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString);
end else
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_SXPB_CRID');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('insert into CK_SXPB_CRID select 0');
sql.Add(' select * from CK_SXPB_CRID');
Open;
end;
FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString);
end else
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update CK_SXPB_CRID Set CRID=CRID+1');
sql.Add(' select * from CK_SXPB_CRID');
Open;
end;
FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from CK_SXPB_KC where CRID='+FCRID);
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('CRID').Value:=FCRID;
FieldByName('CKName').Value:=<><C9B4>';
FieldByName('BatchNo').Value:=CDS_Sub.fieldbyname('BatchNo').Value;
FieldByName('SPType').Value:=CDS_Sub.fieldbyname('SPType').Value;
FieldByName('FactoryName').Value:=CDS_Sub.fieldbyname('FactoryName').Value;
FieldByName('FactoryNo').Value:=CDS_Sub.fieldbyname('FactoryNo').Value;
FieldByName('SPName').Value:=CDS_Sub.fieldbyname('SPName').Value;
FieldByName('SPCF').Value:=CDS_Sub.fieldbyname('SPCF').Value;
FieldByName('ShaZhi').Value:=CDS_Sub.fieldbyname('ShaZhi').Value;
FieldByName('SeBie').Value:=CDS_Sub.fieldbyname('SeBie').Value;
FieldByName('KCNote').Value:=CDS_Sub.fieldbyname('Note').Value;
Post;
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);
if Trim(FFSPID) = '' then
begin
if GetLSNo(ADOQueryCmd, Maxno, 'WR', 'CK_SXPB_CR', 3, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox(<><C8A1><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
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('FactoryNo').Value := Trim(CDS_Sub.fieldbyname('FactoryNo').AsString);
FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString);
FieldByName('ToFactoryNo').Value := Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString);
FieldByName('ORDMainIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString);
FieldByName('ORDSubIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString);
FieldByName('CRFlag').Value := '<27><><EFBFBD><EFBFBD>';
FieldByName('CRQtyFlag').Value := 1;
FieldByName('price').Value := CDS_Sub.fieldbyname('price').asfloat;
FieldByName('money').Value := cds_sub.fieldbyname('price').AsFloat * cds_sub.fieldbyname('Qty').AsFloat;
// FieldByName('money').Value:=Trim(CDS_Sub.fieldbyname('money').AsString);
//FieldByName('CRID').Value:=FCRID;
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;
if Trim(CDS_Sub.fieldbyname('OrderNo').AsString) <> '' then
begin
FieldByName('QCOrderNo').Value := Trim(CDS_Sub.fieldbyname('OrderNo').AsString);
end;
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(',MXKCzhis=(select sum(isnull(zhis,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;
{with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)');
sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)');
sql.Add(' where CRID='+FCRID);
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_SXPB_KC where CRID='+Trim(FCRID));
Open;
end;
if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then
begin
CDS_Sub.DisableControls;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><E2B9AB><EFBFBD><EFBFBD>С<EFBFBD>ڳ<EFBFBD><DAB3><EFBFBD><E2B9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܱ<EFBFBD><DCB1><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
}
{ if ADOQueryTemp.FieldByName('KCKeQty').Value<0 then
begin
CDS_Sub.DisableControls;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>С<EFBFBD>ڳ<EFBFBD><DAB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܱ<EFBFBD><DCB1><EFBFBD>!','<27><>ʾ',0);
Exit;
end; }
Edit;
FieldByName('SPID').Value := Trim(Maxno);
if CDS_Sub.fieldbyname('crtype').asstring = '<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>' then
begin
if not YFData() then
begin
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('<27><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
if CDS_Sub.fieldbyname('crtype').asstring = '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>' then
begin
if not YFData() then
begin
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('<27><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
if CDS_Sub.fieldbyname('crtype').asstring = 'Ⱦɫ<C8BE><C9AB><EFBFBD><EFBFBD>' then
begin
if not YFData() then
begin
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('<27><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
if CDS_Sub.fieldbyname('crtype').asstring = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
if not YFData() then
begin
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('<27><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
//FieldByName('CRID').Value:=Trim(FCRID);
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;
function TfrmWJGCKInPut.SavePBCKData(): Boolean;
var
FCRID, Maxno, FSPID, MaxPYNo, FPYID: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
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) + ''' and CKName=''<27><><EFBFBD><EFBFBD>'' ');
Open;
end;
FSPID := Trim(ADOQueryTemp.fieldbyname('SPID').AsString);
if Trim(FSPID) = '' then
begin
if GetLSNo(ADOQueryCmd, Maxno, 'PC', '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;
end
else
begin
Maxno := Trim(FSPID);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete from YF_Money_CR ');
sql.Add(' where mainID=''' + Trim(Maxno) + '''');
sql.Add(' and YFName=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
execsql;
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(FSPID) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('SPID').Value := Trim(Maxno);
FieldByName('ORDMainIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString);
FieldByName('ORDSubIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString);
FieldByName('ORDMainIdCK').Value := Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString);
FieldByName('ORDSubIdCK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString);
FieldByName('FZSPID').Value := Trim(CDS_Sub.fieldbyname('FZSPID').AsString);
FieldByName('FactoryNo').Value := Trim(CDS_Sub.fieldbyname('FactoryNo').AsString);
FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString);
FieldByName('ToFactoryNo').Value := Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString);
FieldByName('CPID').Value := Trim(CDS_Sub.fieldbyname('CPID').AsString);
//FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value;
FieldByName('CRFlag').Value := '<27><><EFBFBD><EFBFBD>';
FieldByName('CRQtyFlag').Value := -1;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'CK_SXPB_CR', 2);
FieldByName('PiQty').Value := Trim(CDS_Sub.fieldbyname('WTPPS').AsString);
FieldByName('Qty').Value := Trim(CDS_Sub.fieldbyname('WTPMS').AsString);
FieldByName('WTPPS').Value := Trim(CDS_Sub.fieldbyname('WTPPS').AsString);
FieldByName('WTPMS').Value := Trim(CDS_Sub.fieldbyname('WTPMS').AsString);
FieldByName('CKName').Value := '<27><><EFBFBD><EFBFBD>';
FieldByName('xs').Value := CDS_Sub.fieldbyname('xs').AsFloat;
if Trim(CDS_Sub.fieldbyname('CRType').AsString) = 'ƽ<>Ƴ<EFBFBD><C6B3><EFBFBD>' then
begin
FieldByName('PYID').Value := Trim(Maxno);
end;
if Trim(FSPID) = '' then
FieldByName('Filler').Value := Trim(DName)
else
begin
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
end;
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(',MXKCKGQty=(select sum(isnull(kgQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)');
sql.Add(' where SPID=''' + Trim(CDS_Sub.fieldbyname('FZSPID').AsString) + '''');
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(CDS_Sub.fieldbyname('FZSPID').AsString) + '''');
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><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܱ<EFBFBD><DCB1><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Trim(CDS_Sub.fieldbyname('CRType').AsString) = 'ƽ<>Ƴ<EFBFBD><C6B3><EFBFBD>' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_SXPB_CR where PYID=''' + Trim(Maxno) + '''');
sql.Add(' and isnull(CRType,'''')=''ƽ<><C6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
Open;
end;
FPYID := Trim(ADOQueryTemp.fieldbyname('SPID').AsString);
if Trim(FPYID) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxPYNo, 'YR', 'CK_SXPB_CR', 3, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox(<><C8A1><EFBFBD><EFBFBD>ƽ<EFBFBD><C6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
MaxPYNo := Trim(FPYID);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(MaxPYNo) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FPYID) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('SPID').Value := Trim(MaxPYNo);
FieldByName('ORDMainIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString);
FieldByName('ORDSubIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString);
{FieldByName('ORDMainIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString);
FieldByName('ORDSubIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString);}
FieldByName('FZSPID').Value := Trim(MaxPYNo);
FieldByName('FactoryNo').Value := Trim(CDS_Sub.fieldbyname('FactoryNo').AsString);
FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString);
FieldByName('ToFactoryNo').Value := Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString);
//FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value;
FieldByName('CRFlag').Value := '<27><><EFBFBD><EFBFBD>';
FieldByName('CRQtyFlag').Value := 1;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'CK_SXPB_CR', 2);
FieldByName('xs').Value := 0;
FieldByName('CKName').Value := '<27><><EFBFBD><EFBFBD>';
FieldByName('CRType').Value := 'ƽ<><C6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
FieldByName('PYID').Value := Trim(Maxno);
if Trim(FPYID) = '' then
FieldByName('Filler').Value := Trim(DName)
else
begin
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
end;
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(',MXKCKGQty=(select sum(isnull(kgQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)');
sql.Add(' where SPID=''' + Trim(MaxPYNo) + '''');
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(MaxPYNo) + '''');
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><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܱ<EFBFBD><DCB1><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
Edit;
FieldByName('SPID').Value := Trim(Maxno);
Post;
// if Trim(CDS_Sub.fieldbyname('CRType').AsString) = '<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>' then
// begin
// if not YSData() then
// begin
// ADOQueryCmd.Connection.RollbackTrans;
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣!', '<27><>ʾ', 0);
// exit;
// end;
// end;
// if Trim(CDS_Sub.fieldbyname('CRType').AsString) = '<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD><EFBFBD>' then
// begin
// if not YFData() then
// begin
// ADOQueryCmd.Connection.RollbackTrans;
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣!', '<27><>ʾ', 0);
// exit;
// end;
// end;
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;
function TfrmWJGCKInPut.YFData(): Boolean;
var
CRID, OrdMainId, YFID, FComTaiTou, FCRID, FFactoryName: string;
begin
Result := False;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from YF_Money_KC where FactoryName=' + quotedstr(Trim(cds_sub.fieldbyname('factoryName').AsString)));
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
CRID := ADOQueryTemp.fieldbyname('CRID').AsString;
end
else
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_CRID set CRID=CRID+1');
sql.Add('select * from YF_Money_CRID ');
Open;
end;
CRID := ADOQueryCmd.fieldbyname('CRID').AsString;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from YF_Money_KC where 1<>1');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('CRID').Value := StrToInt(CRID);
FieldByName('FactoryName').Value := Trim(cds_sub.fieldbyname('factoryName').AsString);
FieldByName('ZdyStr1').Value := <><D3A6><EFBFBD><EFBFBD>';
Post;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from YF_Money_CR where FactoryName=' + quotedstr(Trim(cds_sub.fieldbyname('factoryName').AsString)));
sql.Add(' and mainID=''' + Trim(cds_sub.fieldbyname('SPID').AsString) + '''');
// sql.Add(' and subID='''+Trim(Order_Sub.fieldbyname('subID').AsString)+'''');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
if GetLSNo(ADOQueryCmd, YFID, 'YF', 'YF_Money_CR', 3, 1) = False then
begin
Application.MessageBox(<><C8A1><EFBFBD><EFBFBD>Ӧ<EFBFBD><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 YF_Money_CR where YFID=''' + Trim(YFID) + '''');
Open;
end;
with ADOQueryCmd do
begin
if ADOQueryTemp.IsEmpty then
Append
else
Edit;
FieldByName('YFID').Value := Trim(YFID);
FieldByName('YFTypeId').Value := Trim(cds_sub.fieldbyname('SPID').AsString);
FieldByName('CRID').Value := StrToInt(CRID);
FieldByName('Filler').Value := Trim(DName);
FieldByName('CRType').Value := <><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>';
FieldByName('CRFlag').Value := <><D3A6><EFBFBD><EFBFBD>';
if CDS_Sub.fieldbyname('crtype').asstring = 'Ⱦɫ<C8BE><C9AB><EFBFBD><EFBFBD>' then
begin
FieldByName('QtyFlag').Value := -1;
FieldByName('money').Value := -1 * cds_sub.fieldbyname('price').AsFloat * cds_sub.fieldbyname('Qty').AsFloat;
FieldByName('BBmoney').Value := -1 * cds_sub.fieldbyname('price').AsFloat * cds_sub.fieldbyname('Qty').AsFloat;
end
else
begin
FieldByName('QtyFlag').Value := 1;
FieldByName('money').Value := cds_sub.fieldbyname('price').AsFloat * cds_sub.fieldbyname('Qty').AsFloat;
FieldByName('BBmoney').Value := cds_sub.fieldbyname('price').AsFloat * cds_sub.fieldbyname('Qty').AsFloat;
end;
FieldByName('FactoryName').Value := Trim(cds_sub.fieldbyname('factoryName').AsString);
FieldByName('CRTime').Value := cds_sub.fieldbyname('CRTime').AsDateTime;
FieldByName('Qty').Value := cds_sub.fieldbyname('Qty').AsFloat;
FieldByName('PS').Value := cds_sub.fieldbyname('PiQty').AsFloat;
FieldByName('YFType').Value := '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>';
FieldByName('Price').Value := cds_sub.fieldbyname('price').AsFloat;
FieldByName('HuiLv').Value := 1;
FieldByName('BZType').Value := 'RMB';
FieldByName('ComTaiTou').Value := '';
FieldByName('QtyUnit').Value := Trim(cds_sub.fieldbyname('QtyUnit').AsString);
FieldByName('orderNo').Value := Trim(cds_sub.fieldbyname('OrderNo').AsString);
FieldByName('P_CodeName').Value := Trim(cds_sub.fieldbyname('SPName').AsString);
// FieldByName('P_Color').Value:=Trim(CDS_Main.fieldbyname('QtyUnit').AsString);
if Trim(cds_sub.fieldbyname('CRType').AsString) = 'Ⱦɫ<C8BE><C9AB><EFBFBD><EFBFBD>' then
FieldByName('YFName').Value := <><C8BE>'
else if Trim(cds_sub.fieldbyname('CRType').AsString) = '<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>' then
FieldByName('YFName').Value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
else if Trim(cds_sub.fieldbyname('CRType').AsString) = '<27><>Ʒ<EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>' then
FieldByName('YFName').Value := '<27><>Ʒ<EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>'
else if Trim(cds_sub.fieldbyname('CRType').AsString) = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
FieldByName('YFName').Value := '<27><><EFBFBD>޷<EFBFBD>'
else if Trim(cds_sub.fieldbyname('CRType').AsString) = '<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD><EFBFBD>' then
FieldByName('YFName').Value := '<27>˻<EFBFBD>'
else
FieldByName('YFName').Value := '<27>ӹ<EFBFBD><D3B9><EFBFBD>';
FieldByName('MainId').Value := Trim(cds_sub.fieldbyname('SPID').AsString);
// FieldByName('subId').Value:=Trim(Order_Sub.fieldbyname('subId').AsString);
FieldByName('status').Value := '0';
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
sql.Add(' where CRID=' + CRID);
ExecSQL;
end;
Result := True;
end;
procedure TfrmWJGCKInPut.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('<27><><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>', Tv1, '<27><><EFBFBD>ӹ<EFBFBD><D3B9>ֿ<EFBFBD>1');
Close;
end;
procedure TfrmWJGCKInPut.FormShow(Sender: TObject);
var
fsj: string;
begin
BCflag := 0;
ReadCxGrid('<27><><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>', Tv1, '<27><><EFBFBD>ӹ<EFBFBD><D3B9>ֿ<EFBFBD>1');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)');
sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )');
sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )');
sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )');
sql.Add(' from CK_SXPB_CR A');
sql.Add(' where SPID=''' + Trim(FBCId) + '''');
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_Sub);
SInitCDSData20(ADOQueryTemp, CDS_Sub);
if CDS_Sub.IsEmpty 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
v1Column4.Options.Focusing := False;
// v1Column15.Options.Focusing:=False;
v1Column13.Options.Focusing := False;
v1Column14.Options.Focusing := False;
v2Column1.Options.Focusing := False;
v1Column8.Options.Focusing := False;
v1Column7.Options.Focusing := False;
v1Column1.Options.Focusing := False;
v1Column10.Options.Focusing := False;
v1Column11.Options.Focusing := False;
Exit;
end
else
begin
v1Column4.Options.Focusing := True;
//v1Column15.Options.Focusing:=True;
v1Column13.Options.Focusing := True;
v1Column14.Options.Focusing := True;
v2Column1.Options.Focusing := True;
v1Column8.Options.Focusing := True;
v1Column7.Options.Focusing := True;
v1Column1.Options.Focusing := True;
v1Column10.Options.Focusing := True;
v1Column11.Options.Focusing := True;
end;
end;
procedure TfrmWJGCKInPut.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 TfrmWJGCKInPut.TBSaveClick(Sender: TObject);
begin
if CDS_Sub.IsEmpty then
Exit;
if CDS_Sub.Locate('CRTime', null, []) = True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD><E4B2BB>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if CDS_Sub.Locate('CRType', null, []) = True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2><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('OrderNo', null, []) = True then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
// Exit;
// end;
if CDS_Sub.Locate('ToFactoryName', null, []) = True then
begin
Application.MessageBox('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if CDS_Sub.Locate('FactoryName', null, []) = True then
begin
Application.MessageBox('<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
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('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 CDS_Sub.Locate('CRType;FromFactoryName', VarArrayOf(['<27><><EFBFBD><EFBFBD><EFBFBD>˻<EFBFBD>', Null]), [loPartialKey]) = True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>˻ص<CBBB><D8B5><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>Թ<EFBFBD><D4B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if SaveCKData() then
begin
if BCflag = 1 then
begin
SavePBCKData();
end;
if BCflag = 2 then
begin
SaveWJGCKData();
end;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!', '<27><>ʾ', 0);
//ModalResult:=1;
Exit;
end;
end;
function TfrmWJGCKInPut.SaveWJGCKData(): Boolean;
var
FCRID, Maxno, FSPID, MaxPYNo, FPYID: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
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) + ''' and CKName=''<27><><EFBFBD>ӹ<EFBFBD>'' and CRFlag=''<27><><EFBFBD><EFBFBD>'' ');
Open;
end;
FSPID := Trim(ADOQueryTemp.fieldbyname('SPID').AsString);
if Trim(FSPID) = '' then
begin
if GetLSNo(ADOQueryCmd, Maxno, 'WC', 'CK_SXPB_CR', 3, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox(<><C8A1><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
Maxno := Trim(FSPID);
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(FSPID) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('SPID').Value := Trim(Maxno);
FieldByName('ORDMainIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString);
FieldByName('ORDSubIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString);
FieldByName('ORDMainIdCK').Value := Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString);
FieldByName('ORDSubIdCK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString);
FieldByName('FZSPID').Value := Trim(CDS_Sub.fieldbyname('FZSPID').AsString);
FieldByName('FactoryNo').Value := Trim(CDS_Sub.fieldbyname('FactoryNo').AsString);
FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString);
FieldByName('ToFactoryNo').Value := Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString);
//FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value;
FieldByName('CRFlag').Value := '<27><><EFBFBD><EFBFBD>';
FieldByName('CRQtyFlag').Value := -1;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'CK_SXPB_CR', 2);
FieldByName('PiQty').Value := Trim(CDS_Sub.fieldbyname('WTPPS').AsString);
FieldByName('Qty').Value := Trim(CDS_Sub.fieldbyname('WTPMS').AsString);
FieldByName('CKName').Value := '<27><><EFBFBD>ӹ<EFBFBD>';
if Trim(CDS_Sub.fieldbyname('CRType').AsString) = 'ƽ<>Ƴ<EFBFBD><C6B3><EFBFBD>' then
begin
FieldByName('PYID').Value := Trim(Maxno);
end;
if Trim(FSPID) = '' then
FieldByName('Filler').Value := Trim(DName)
else
begin
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
end;
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(CDS_Sub.fieldbyname('FZSPID').AsString) + '''');
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(CDS_Sub.fieldbyname('FZSPID').AsString) + '''');
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><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܱ<EFBFBD><DCB1><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Trim(CDS_Sub.fieldbyname('CRType').AsString) = 'ƽ<>Ƴ<EFBFBD><C6B3><EFBFBD>' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_SXPB_CR where PYID=''' + Trim(Maxno) + '''');
sql.Add(' and isnull(CRType,'''')=''ƽ<><C6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
Open;
end;
FPYID := Trim(ADOQueryTemp.fieldbyname('SPID').AsString);
if Trim(FPYID) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxPYNo, 'YR', 'CK_SXPB_CR', 3, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox(<><C8A1><EFBFBD>ӹ<EFBFBD>ƽ<EFBFBD><C6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
MaxPYNo := Trim(FPYID);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(MaxPYNo) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FPYID) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('SPID').Value := Trim(MaxPYNo);
FieldByName('ORDMainIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString);
FieldByName('ORDSubIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString);
{FieldByName('ORDMainIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString);
FieldByName('ORDSubIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString);}
FieldByName('FZSPID').Value := Trim(MaxPYNo);
FieldByName('FactoryNo').Value := Trim(CDS_Sub.fieldbyname('FactoryNo').AsString);
FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString);
FieldByName('ToFactoryNo').Value := Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString);
//FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value;
FieldByName('CRFlag').Value := '<27><><EFBFBD><EFBFBD>';
FieldByName('CRQtyFlag').Value := 1;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'CK_SXPB_CR', 2);
FieldByName('CKName').Value := '<27><><EFBFBD>ӹ<EFBFBD>';
FieldByName('CRType').Value := 'ƽ<><C6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
FieldByName('PYID').Value := Trim(Maxno);
if Trim(FPYID) = '' then
FieldByName('Filler').Value := Trim(DName)
else
begin
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
end;
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(MaxPYNo) + '''');
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(MaxPYNo) + '''');
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><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܱ<EFBFBD><DCB1><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
Edit;
FieldByName('SPID').Value := Trim(Maxno);
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 TfrmWJGCKInPut.v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'SXKuWei';
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 TfrmWJGCKInPut.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
edit;
FieldByName('FactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString);
FieldByName('FactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString);
FieldByName('FromFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString);
FieldByName('FromFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString);
//Post;
end;
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmWJGCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'WJGName';
flagname := '<27><><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('SPName').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmWJGCKInPut.v1Column5PropertiesButtonClick(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 TfrmWJGCKInPut.v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
edit;
FieldByName('ToFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString);
FieldByName('ToFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString);
//Post;
end;
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmWJGCKInPut.v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
edit;
FieldByName('FromFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString);
FieldByName('FromFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString);
//Post;
end;
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmWJGCKInPut.v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmProductOrderListSel := TfrmProductOrderListSel.Create(Application);
with frmProductOrderListSel do
begin
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('ORDMainIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString);
FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString);
FieldByName('OrderNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString);
FieldByName('SOrddefstr1').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString);
FieldByName('PRTColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString);
FieldByName('PRTHX').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString);
FieldByName('SPMF').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('prtmf').AsString);
FieldByName('SPKZ').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('prtkz').AsString);
FieldByName('SPName').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTCodeName').AsString);
if fieldbyname('crtype').Value = 'Ⱦɫ<C8BE><C9AB><EFBFBD><EFBFBD>' then
begin
FieldByName('price').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrdQty6').AsString);
end;
if fieldbyname('crtype').Value = '<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>' then
begin
FieldByName('price').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrdQty5').AsString);
end;
end;
end;
end;
finally
frmProductOrderListSel.Free;
end;
end;
procedure TfrmWJGCKInPut.ToolButton1Click(Sender: TObject);
begin
try
frmProductOrderListSel := TfrmProductOrderListSel.Create(Application);
with frmProductOrderListSel do
begin
if ShowModal = 1 then
begin
Order_Main.DisableControls;
order_main.First;
while not Order_Main.Eof do
begin
if Order_Main.FieldByName('ssel').AsBoolean then
begin
with Self.CDS_Sub do
begin
Append;
FieldByName('ORDMainIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString);
FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString);
FieldByName('OrderNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString);
FieldByName('SOrddefstr1').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString);
FieldByName('PRTColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString);
FieldByName('PRTHX').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString);
FieldByName('SPMF').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('prtmf').AsString);
FieldByName('SPKZ').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('prtkz').AsString);
FieldByName('SPName').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTCodeName').AsString);
if fieldbyname('crtype').Value = 'Ⱦɫ<C8BE><C9AB><EFBFBD><EFBFBD>' then
begin
FieldByName('price').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrdQty6').AsString);
end;
if fieldbyname('crtype').Value = '<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>' then
begin
FieldByName('price').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrdQty5').AsString);
end;
FieldByName('sccw').Value := '<27><>';
Post;
end;
end;
Order_Main.Next;
end;
Order_Main.EnableControls;
end;
Free;
end;
finally
frmProductOrderListSel.Free;
end;
end;
procedure TfrmWJGCKInPut.v2Column6PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FhsxsD, Fhsxs, Fhszhis, FQty: Double;
i: Integer;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
Fhszhis := 0;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
with CDS_Sub do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
Fhsxs := CDS_Sub.fieldbyname('hsxs').AsFloat;
FhsxsD := CDS_Sub.fieldbyname('hsxsD').AsFloat;
FQty := CDS_Sub.fieldbyname('Qty').AsFloat;
end;
if Trim(FFieldName) = 'hsxs' then
begin
if FhsxsD > 0 then
begin
with CDS_Sub do
begin
Edit;
FieldByName('hsxs').Value := 0;
Post;
end;
Application.MessageBox('<27><><EFBFBD>д<EFBFBD><D0B4>ŷ<EFBFBD>ϵ<EFBFBD><CFB5>!', '<27><>ʾ', 0);
Exit;
end;
end;
if Trim(FFieldName) = 'hsxsD' then
begin
if Fhsxs > 0 then
begin
with CDS_Sub do
begin
Edit;
FieldByName('hsxsD').Value := 0;
Post;
end;
Application.MessageBox('<27><><EFBFBD><EFBFBD>С<EFBFBD>ŷ<EFBFBD>ϵ<EFBFBD><CFB5>!', '<27><>ʾ', 0);
Exit;
end;
end;
if Fhsxs > 0 then
begin
Fhszhis := StrToFloatDef(format('%.0f', [(FQty / Fhsxs)]), 0);
end;
if FhsxsD > 0 then
begin
Fhszhis := StrToFloatDef(format('%.0f', [((FQty / FhsxsD) * 2)]), 0);
end;
with CDS_Sub do
begin
Edit;
FieldByName('hszhis').Value := Fhszhis;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmWJGCKInPut.ToolButton2Click(Sender: TObject);
begin
BCflag := 1;
try
frmSXCKKCSelList := TfrmSXCKKCSelList.Create(Application);
with frmSXCKKCSelList do
begin
ToolButton1.Visible := True;
if ShowModal = 1 then
begin
frmSXCKKCSelList.CDS_Main.DisableControls;
with frmSXCKKCSelList.CDS_Main do
begin
First;
while frmSXCKKCSelList.CDS_Main.Locate('SSel', True, []) do
begin
with Self.CDS_Sub do
begin
Append;
FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('ORDMainIdRK').Value := Trim(frmSXCKKCSelList.CDS_Main.fieldbyname('ORDMainIdRK').AsString);
FieldByName('ORDSubIdRK').Value := Trim(frmSXCKKCSelList.CDS_Main.fieldbyname('ORDSubIdRK').AsString);
FieldByName('QCOrderNo').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value;
FieldByName('CKOrderNo').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value;
FieldByName('FactoryName').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('FactoryName').Value;
FieldByName('FactoryNo').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('FactoryNo').Value;
FieldByName('SSType').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SSType').Value;
FieldByName('SPName').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPName').Value;
FieldByName('SPCode').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPCode').Value;
FieldByName('CPID').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('CPID').Value;
FieldByName('SPSpec').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPSpec').Value;
FieldByName('SPCF').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPCF').Value;
FieldByName('SPMF').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPMF').Value;
FieldByName('SPKZ').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPKZ').Value;
FieldByName('OrderNo').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value;
FieldByName('FromFactoryName').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value;
FieldByName('FromFactoryNo').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('ToFactoryNo').Value;
FieldByName('ToFactoryName').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('FromFactoryName').Value;
FieldByName('QtyUnit').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('QtyUnit').Value;
// FieldByName('PiQty').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value;
// FieldByName('Qty').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCQty').Value;
FieldByName('WTPPS').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value;
FieldByName('WTPMS').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCQty').Value;
FieldByName('FZSPID').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPID').Value;
FieldByName('sccw').Value := '<27><>';
end;
frmSXCKKCSelList.CDS_Main.Delete;
end;
end;
frmSXCKKCSelList.CDS_Main.EnableControls;
end;
end;
finally
frmSXCKKCSelList.Free;
end;
end;
procedure TfrmWJGCKInPut.ToolButton3Click(Sender: TObject);
begin
BCflag := 2;
try
frmWJGCKKCSelList := TfrmWJGCKKCSelList.Create(Application);
with frmWJGCKKCSelList do
begin
ToolButton1.Visible := True;
if ShowModal = 1 then
begin
frmWJGCKKCSelList.CDS_Main.DisableControls;
with frmWJGCKKCSelList.CDS_Main do
begin
First;
while frmWJGCKKCSelList.CDS_Main.Locate('SSel', True, []) do
begin
with Self.CDS_Sub do
begin
Append;
FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('ORDMainIdRK').Value := Trim(frmWJGCKKCSelList.CDS_Main.fieldbyname('ORDMainIdRK').AsString);
FieldByName('ORDSubIdRK').Value := Trim(frmWJGCKKCSelList.CDS_Main.fieldbyname('ORDSubIdRK').AsString);
FieldByName('ORDMainIdCK').Value := Trim(frmWJGCKKCSelList.CDS_Main.fieldbyname('ORDMainIdRK').AsString);
FieldByName('ORDSubIdCK').Value := Trim(frmWJGCKKCSelList.CDS_Main.fieldbyname('ORDSubIdRK').AsString);
FieldByName('QCOrderNo').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value;
FieldByName('CKOrderNo').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value;
FieldByName('SOrddefstr1').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('SOrddefstr1').AsString;
FieldByName('PRTColor').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('PRTColor').AsString;
FieldByName('PRTHX').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('PRTHX').AsString;
FieldByName('FactoryName').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('FactoryName').Value;
FieldByName('FactoryNo').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('FactoryNo').Value;
FieldByName('SSType').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('SSType').Value;
FieldByName('SPName').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('SPName').Value;
FieldByName('SPSpec').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('SPSpec').Value;
FieldByName('SPCF').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('SPCF').Value;
FieldByName('SPMF').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('SPMF').Value;
FieldByName('SPKZ').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('SPKZ').Value;
FieldByName('OrderNo').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value;
FieldByName('FromFactoryName').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value;
FieldByName('FromFactoryNo').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('ToFactoryNo').Value;
FieldByName('ToFactoryName').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value;
FieldByName('ToFactoryNo').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('ToFactoryNo').Value;
FieldByName('QtyUnit').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('QtyUnit').Value;
// FieldByName('PiQty').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value;
// FieldByName('Qty').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('MXKCQty').Value;
FieldByName('WTPPS').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value;
FieldByName('WTPMS').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('MXKCQty').Value;
FieldByName('FZSPID').Value := frmWJGCKKCSelList.CDS_Main.fieldbyname('SPID').Value;
FieldByName('sccw').Value := '<27><>';
end;
frmWJGCKKCSelList.CDS_Main.Delete;
end;
end;
frmWJGCKKCSelList.CDS_Main.EnableControls;
end;
end;
finally
frmWJGCKKCSelList.Free;
end;
end;
end.