Group_02/D7myzhenyong
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D7myzhenyong/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.pas

1038 lines
39 KiB
ObjectPascal
Raw Permalink Normal View History

0
2025-08-26 15:25:51 +08:00
unit U_DJBCKOutPut;
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, cxSpinEdit,
StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
type
TfrmDJBCKOutPut = class(TForm)
ToolBar1: TToolBar;
TBAdd: TToolButton;
TBDel: TToolButton;
TBSave: TToolButton;
TBClose: TToolButton;
DataSource3: TDataSource;
CDS_Sub: TClientDataSet;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
cxGridPopupMenu2: TcxGridPopupMenu;
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column6: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1CRType: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
v1Column5: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column20: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
v1Column22: TcxGridDBColumn;
ToolButton1: TToolButton;
Panel4: TPanel;
Label14: TLabel;
Panel10: TPanel;
Image2: TImage;
Button1: TButton;
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
Button2: TButton;
ToolButton2: TToolButton;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
v1Column18: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
v1Column24: TcxGridDBColumn;
ToolButton3: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
CheckBox10: TCheckBox;
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 v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Image2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
{ Private declarations }
function SaveCKData(): Boolean;
procedure CJEWM(MSpid: string);
public
{ Public declarations }
FBCId: string;
end;
var
frmDJBCKOutPut: TfrmDJBCKOutPut;
implementation
uses
U_DataLink, U_RTFun, U_ClothContractListHZCX, U_ZDYHelp, U_DJBCKKCSelList,
U_GYSSelList, U_ZdyAttachGYS, U_ProductOrderListSel, U_DDDJBCKKCSelList,
U_FHSQListSel2;
{$R *.dfm}
procedure TfrmDJBCKOutPut.CJEWM(MSpid: string);
var
Txt, fImagePath, maxNo: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(MSpid);
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath) then
DeleteFile(fImagePath);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Add('select * from TP_File ');
sql.Add('where TFID=' + quotedstr(trim(Txt)));
sql.Add('and TFType=''EWM''');
open;
if isempty then
begin
append;
fieldbyname('TFID').Value := trim(Txt);
fieldbyname('WBID').Value := trim(MSpid);
fieldbyname('TFType').Value := 'EWM';
fieldbyname('FillTime').Value := SGetServerDateTime(ADOQueryTemp);
tblobfield(FieldByName('Filesother')).LoadFromFile(fImagePath);
post;
end;
end;
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
end;
procedure TfrmDJBCKOutPut.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmDJBCKOutPut.TBAddClick(Sender: TObject);
begin
try
frmDJBCKKCSelList := TfrmDJBCKKCSelList.Create(Application);
with frmDJBCKKCSelList do
begin
ToolButton1.Visible := True;
if ShowModal = 1 then
begin
frmDJBCKKCSelList.CDS_Main.DisableControls;
with frmDJBCKKCSelList.CDS_Main do
begin
First;
while 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(frmDJBCKKCSelList.CDS_Main.fieldbyname('ORDMainIdRK').AsString);
FieldByName('ORDSubIdRK').Value := Trim(frmDJBCKKCSelList.CDS_Main.fieldbyname('ORDSubIdRK').AsString);
FieldByName('ORDMainIdCK').Value := Trim(frmDJBCKKCSelList.CDS_Main.fieldbyname('ORDMainIdRK').AsString);
FieldByName('ORDSubIdCK').Value := Trim(frmDJBCKKCSelList.CDS_Main.fieldbyname('ORDSubIdRK').AsString);
FieldByName('QCOrderNo').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value;
FieldByName('CKOrderNo').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value;
FieldByName('CustomerNoName').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('CustomerNoName').AsString;
FieldByName('spcode').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('spcode').AsString;
FieldByName('SPColor').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('SPColor').AsString;
FieldByName('SPHX').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('SPHX').AsString;
FieldByName('FactoryName').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('FactoryName').Value;
FieldByName('FactoryNo').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('FactoryNo').Value;
FieldByName('SSType').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('SSType').Value;
FieldByName('SPName').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('SPName').Value;
FieldByName('SPSpec').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('SPSpec').Value;
FieldByName('SPCF').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('SPCF').Value;
FieldByName('SPMF').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('SPMF').Value;
FieldByName('SPKZ').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('SPKZ').Value;
FieldByName('RCGangNo').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('RCGangNo').Value;
FieldByName('FromFactoryName').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value;
FieldByName('FromFactoryNo').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('ToFactoryNo').Value;
FieldByName('ToFactoryName').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value;
FieldByName('ToFactoryNo').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('ToFactoryNo').Value;
FieldByName('QtyUnit').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('QtyUnit').Value;
FieldByName('PiQty').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value;
FieldByName('Qty').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('MXKCQty').Value;
FieldByName('FZSPID').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('SPID').Value;
FieldByName('Note').Value := frmDJBCKKCSelList.CDS_Main.fieldbyname('Note').Value;
end;
frmDJBCKKCSelList.CDS_Main.Delete;
end;
end;
frmDJBCKKCSelList.CDS_Main.EnableControls;
end;
end;
finally
frmDJBCKKCSelList.Free;
end;
end;
function TfrmDJBCKOutPut.SaveCKData(): 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) + '''');
Open;
end;
FSPID := Trim(ADOQueryTemp.fieldbyname('SPID').AsString);
if Trim(FSPID) = '' then
begin
if GetLSNo(ADOQueryCmd, Maxno, 'DC', 'CK_SXPB_CR', 3, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD>첼<EFBFBD><ECB2BC><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('TOFHSQS').Value := Trim(CDS_Sub.fieldbyname('TOFHSQS').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('CKName').Value := '<27><><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;
FieldByName('Xs').Value := CDS_Sub.fieldbyname('Xs').AsFloat;
FieldByName('PiQty').Value := CDS_Sub.fieldbyname('PiQty').AsFloat;
FieldByName('Qty').Value := CDS_Sub.fieldbyname('Qty').AsFloat;
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 ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update CK_SXPB_CR Set GangNo=1+ISNULL((select max([dbo].[getNum](GangNo)) from CK_SXPB_CR A ');
sql.Add('where A.CKName=''<27><><EFBFBD>첼'' and A.CKOrderNo=CK_SXPB_CR.CKOrderNo and A.SPName=CK_SXPB_CR.SPName and A.SPColor=CK_SXPB_CR.SPColor and A.SPHX=CK_SXPB_CR.SPHX and A.SPID<>' + QUOTEDSTR(Trim(Maxno)) + '),0)');
sql.Add(' where isnull(GangNo,'''')='''' and isnull(SPHX,'''')<>'''' and SPID=''' + Trim(Maxno) + '''');
// ShowMessage(SQL.Text);
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update CK_SXPB_CR Set GangNo=1+ISNULL((select max([dbo].[getNum](GangNo)) from CK_SXPB_CR A ');
sql.Add('where A.CKName=''<27><><EFBFBD>첼'' and A.CKOrderNo=CK_SXPB_CR.CKOrderNo and A.SPName=CK_SXPB_CR.SPName and A.SPColor=CK_SXPB_CR.SPColor and isnull(A.SPHX,'''')='''' and A.SPID<>' + QUOTEDSTR(Trim(Maxno)) + '),0)');
sql.Add(' where isnull(GangNo,'''')='''' and isnull(SPHX,'''')='''' and SPID=''' + Trim(Maxno) + '''');
// ShowMessage(SQL.Text);
ExecSQL;
end;
///////////////////////// 3.<2E><><EFBFBD>첼<EFBFBD><ECB2BC><EFBFBD><EFBFBD>ͨ<EFBFBD>ߣ<EFBFBD>ϵͳĬ<CDB3>϶<EFBFBD>ȡ<EFBFBD>Ķ<EFBFBD><C4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ////////////////////////
// and A.SPColor=CK_SXPB_CR.SPColor
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update CK_SXPB_CR Set ');
sql.Add(' TongChi= (select top 1 TongChi from CK_SXPB_CR A where A.CKName=''<27><><EFBFBD>첼'' and A.ORDMainIdCK=CK_SXPB_CR.ORDMainIdCK and A.SPID<>' + QUOTEDSTR(Trim(Maxno)) + ' order by CRTime desc ) ');
sql.Add(' where SPID=''' + Trim(Maxno) + '''');
// ShowMessage(SQL.Text); isnull(TongChi,0)<>0 and
ExecSQL;
end;
///////////////////////// 3.<2E><><EFBFBD>첼<EFBFBD><ECB2BC><EFBFBD><EFBFBD>ͨ<EFBFBD>ߣ<EFBFBD>ϵͳĬ<CDB3>϶<EFBFBD>ȡ<EFBFBD>Ķ<EFBFBD><C4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ////////////////////////
///////////////////////// <20><><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5> ////////////////////////
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update CK_SXPB_CR Set ');
sql.Add(' XS= isnull((select top 1 XS from CK_SXPB_CR A where isnull(A.XS,0)<>0 and A.CKName=''<27><><EFBFBD>첼'' and A.ORDMainIdCK=CK_SXPB_CR.ORDMainIdCK and A.SPID<>' + QUOTEDSTR(Trim(Maxno)) + ' order by CRTime desc ),0) ');
sql.Add(' where isnull(XS,0)=0 and SPID=''' + Trim(Maxno) + '''');
// ShowMessage(SQL.Text); isnull(XS,0)<>0 and
ExecSQL;
end;
///////////////////////// <20><><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5> ////////////////////////
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) = '<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>' then
begin
// sql.Add('exec P_Do_DJB_SCYSK ');
// SQL.Add('@SPID=' + QuotedStr(Trim(CDS_Sub.fieldbyname('SPID').AsString)));
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update FHSQ_Sub Set FHPS=' + CDS_Sub.fieldbyname('piqty').AsString);
if CDS_Sub.fieldbyname('QTYUNIT').AsString = 'M' then
begin
sql.Add(' ,FHQty=' + CDS_Sub.fieldbyname('qty').AsString);
end
else if CDS_Sub.fieldbyname('QTYUNIT').AsString = 'KG' then
begin
sql.Add(' ,FHKgQty=' + CDS_Sub.fieldbyname('qty').AsString);
end
else if CDS_Sub.fieldbyname('QTYUNIT').AsString = 'Y' then
begin
sql.Add(' ,FHyQty=' + CDS_Sub.fieldbyname('qty').AsString);
end;
sql.Add(' where SSID=' + QuotedStr(Trim(CDS_Sub.fieldbyname('TOFHSQS').AsString)));
SQL.Add(' Update FHSQ_Main Set FHDate=Convert(varchar(10),GETDATE(),120)');
SQL.Add(' ,FHPSHZ=(select sum(FHPS) from FHSQ_Sub CK where FHSQ_Main.FSID=CK.FSID)');
SQL.Add(' ,FHQtyHZ=(select sum(FHQty) from FHSQ_Sub CK where FHSQ_Main.FSID=CK.FSID)');
SQL.Add(' ,FHKgQtyHZ=(select sum(FHKgQty) from FHSQ_Sub CK where FHSQ_Main.FSID=CK.FSID)');
SQL.Add(' ,FHYQtyHZ=(select sum(FHYQty) from FHSQ_Sub CK where FHSQ_Main.FSID=CK.FSID)');
SQL.Add(' where FSID=' + QuotedStr(Trim(CDS_Sub.fieldbyname('TOFHSQ').AsString)));
// ShowMessage(sql.Text);
ExecSQL;
end;
end;
CJEWM(Maxno);
if Trim(CDS_Sub.fieldbyname('CRType').AsString) = '<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><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;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'CK_SXPB_CR', 2);
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('ToFactoryNo').AsString);
FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString);
FieldByName('ToFactoryNo').Value := Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString);
FieldByName('CRFlag').Value := '<27><><EFBFBD><EFBFBD>';
FieldByName('CRQtyFlag').Value := 1;
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(' 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
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_CW_SXPB ''' + Trim(Maxno) + '''');
ExecSQL;
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;
procedure TfrmDJBCKOutPut.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('<27><><EFBFBD>첼<EFBFBD><ECB2BC><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>PMD', Tv1, '<27><><EFBFBD>첼<EFBFBD>ֿ<EFBFBD>');
Close;
end;
procedure TfrmDJBCKOutPut.FormShow(Sender: TObject);
begin
ReadCxGrid('<27><><EFBFBD>첼<EFBFBD><ECB2BC><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>PMD', Tv1, '<27><><EFBFBD>첼<EFBFBD>ֿ<EFBFBD>');
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(' ,OrderNoCK=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdCK )');
sql.Add(' from CK_SXPB_CR A');
sql.Add(' where SPID=''' + Trim(FBCId) + '''');
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_Sub);
SInitCDSData20(ADOQueryTemp, CDS_Sub);
end;
procedure TfrmDJBCKOutPut.TBDelClick(Sender: TObject);
begin
if CDS_Sub.IsEmpty then
Exit;
if Trim(CDS_Sub.fieldbyname('SPID').AsString) <> '' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_SXPB_CR where FZSPID=');
sql.Add('(select SPID from CK_SXPB_CR where PYID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + '''');
sql.Add(' and isnull(CRType,'''')=''ƽ<><C6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'')');
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;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
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) + '''');
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) + '''');
sql.Add('exec P_CW_SXPB ''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + '''');
{sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(KGQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)');
sql.Add(',KCPiQty=(select sum(PiQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)');
sql.Add(' where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); }
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ɾ<><C9BE><EFBFBD>쳣!', '<27><>ʾ', 0);
end;
end;
CDS_Sub.Delete;
end;
procedure TfrmDJBCKOutPut.TBSaveClick(Sender: TObject);
begin
if CDS_Sub.IsEmpty then
Exit;
if CDS_Sub.Locate('CRType;tofhsq', VarArrayOf(['<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>', Null]), [loPartialKey]) = True then
begin
Application.MessageBox('<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EBB2BB>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
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('ToFactoryName', null, []) = True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ӹ<EFBFBD><D3B9><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('PiQty', null, []) = True then
begin
Application.MessageBox('ƥ<><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
CDS_Sub.DisableControls;
with CDS_Sub do
begin
First;
while not Eof do
begin
if Trim(CDS_Sub.fieldbyname('CRType').AsString) = 'ƽ<>Ƴ<EFBFBD><C6B3><EFBFBD>' then
begin
if (Trim(CDS_Sub.fieldbyname('FromFactoryName').AsString) = Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString)) and (Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString) = Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString)) then
begin
CDS_Sub.EnableControls;
Application.MessageBox('ͬһ<CDAC><D2BB><EFBFBD>ţ<EFBFBD>ͬһ<CDAC><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƽ<EFBFBD><C6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
if Trim(CDS_Sub.fieldbyname('CRType').AsString) <> '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
if Trim(CDS_Sub.fieldbyname('CKOrderNo').AsString) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
end;
end;
Next;
end;
end;
CDS_Sub.EnableControls;
if SaveCKData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!', '<27><>ʾ', 0);
ModalResult := 1;
Exit;
end;
end;
procedure TfrmDJBCKOutPut.v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmClothContractListHZCX := TfrmClothContractListHZCX.Create(Application);
with frmClothContractListHZCX do
begin
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('CGConNo').Value := Trim(frmClothContractListHZCX.Order_Main.fieldbyname('ConNo').AsString);
FieldByName('CGConMainId').Value := Trim(frmClothContractListHZCX.Order_Main.fieldbyname('MainId').AsString);
FieldByName('CGConSubId').Value := Trim(frmClothContractListHZCX.Order_Main.fieldbyname('SubId').AsString);
FieldByName('FactoryName').Value := Trim(frmClothContractListHZCX.Order_Main.fieldbyname('FactoryNoName').AsString);
FieldByName('SXName').Value := Trim(frmClothContractListHZCX.Order_Main.fieldbyname('C_CodeName').AsString);
//Post;
end;
end;
end;
finally
frmClothContractListHZCX.Free;
end;
end;
procedure TfrmDJBCKOutPut.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('COCode').AsString);
FieldByName('ToFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('COName').AsString);
//Post;
end;
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmDJBCKOutPut.v1Column5PropertiesButtonClick(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('ORDMainIdCK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString);
FieldByName('ORDSubIdCK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString);
FieldByName('CKorderNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString);
FieldByName('SPColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString);
FieldByName('SPHX').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString);
end;
end;
end;
finally
frmProductOrderListSel.Free;
end;
end;
procedure TfrmDJBCKOutPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
FFSPID: string;
begin
if CDS_Sub.IsEmpty then
Exit;
if Trim(CDS_Sub.fieldbyname('SPID').AsString) <> '' then
begin
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
v1CRType.Options.Editing := False;
end;
end;
end;
procedure TfrmDJBCKOutPut.Image2Click(Sender: TObject);
begin
Panel4.Visible := False;
end;
procedure TfrmDJBCKOutPut.ToolButton1Click(Sender: TObject);
begin
Panel4.Visible := True;
end;
procedure TfrmDJBCKOutPut.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to GroupBox1.ControlCount - 1 do
begin
if GroupBox1.Controls[i] is TCheckBox then
begin
TCheckBox(GroupBox1.Controls[i]).Checked := true;
end;
end;
end;
procedure TfrmDJBCKOutPut.Button2Click(Sender: TObject);
var
CRType, GangNo, Note, RCGangNo, ToFactoryNo, ToFactoryName: string;
CLFS, WTYY: string;
fORDMainIdCK, fORDSubIdCK, fCKorderNo, fSPColor, fSPHX: string;
PiQty: Integer;
Xs, Qty: Double;
begin
try
if CDS_Sub.IsEmpty then
Exit;
CDS_Sub.DisableControls;
with CDS_Sub do
begin
CRType := Trim(CDS_Sub.fieldbyname('CRType').AsString);
GangNo := Trim(CDS_Sub.fieldbyname('GangNo').AsString);
PiQty := CDS_Sub.fieldbyname('PiQty').AsInteger;
Qty := CDS_Sub.fieldbyname('Qty').AsFloat;
Xs := CDS_Sub.fieldbyname('Xs').AsFloat;
Note := Trim(CDS_Sub.fieldbyname('Note').AsString);
RCGangNo := Trim(CDS_Sub.fieldbyname('RCGangNo').AsString);
ToFactoryNo := Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString);
ToFactoryName := Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString);
WTYY := Trim(CDS_Sub.fieldbyname('cpyy').AsString);
CLFS := Trim(CDS_Sub.fieldbyname('CLFS').AsString);
fORDMainIdCK := Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString);
fORDSubIdCK := Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString);
fCKorderNo := Trim(CDS_Sub.fieldbyname('CKorderNo').AsString);
fSPColor := Trim(CDS_Sub.fieldbyname('SPColor').AsString);
fSPHX := Trim(CDS_Sub.fieldbyname('SPHX').AsString);
end;
with CDS_Sub do
begin
First;
while not eof do
begin
Edit;
if CheckBox1.Checked then
FieldByName('CRType').Value := CRType;
if CheckBox2.Checked then
FieldByName('GangNo').Value := GangNo;
if CheckBox3.Checked then
FieldByName('PiQty').Value := PiQty;
if CheckBox4.Checked then
FieldByName('Xs').Value := Xs;
if CheckBox5.Checked then
FieldByName('Note').Value := Note;
if CheckBox6.Checked then
FieldByName('Qty').Value := Qty;
if CheckBox7.Checked then
begin
FieldByName('ToFactoryNo').Value := ToFactoryNo;
FieldByName('ToFactoryName').Value := ToFactoryName;
end;
if CheckBox9.Checked then
FieldByName('CPYY').Value := WTYY;
if CheckBox8.Checked then
FieldByName('CLFS').Value := CLFS;
if CheckBox10.Checked then
begin
FieldByName('ORDMainIdCK').Value := fORDMainIdCK;
FieldByName('ORDSubIdCK').Value := fORDSubIdCK;
FieldByName('CKorderNo').Value := fCKorderNo;
FieldByName('SPColor').Value := fSPColor;
FieldByName('SPHX').Value := fSPHX;
end;
Post;
Next;
end;
end;
CDS_Sub.EnableControls;
except
Application.MessageBox('<27>滻<EFBFBD>쳣!', '<27><>ʾ', 0);
end;
end;
procedure TfrmDJBCKOutPut.ToolButton2Click(Sender: TObject);
var
i: Integer;
begin
try
frmDDDJBCKKCSelList := TfrmDDDJBCKKCSelList.Create(Application);
with frmDDDJBCKKCSelList do
begin
ToolButton1.Visible := True;
if ShowModal = 1 then
begin
frmDDDJBCKKCSelList.CDS_Main.DisableControls;
with frmDDDJBCKKCSelList.CDS_Main do
begin
// while Locate('SSel',True,[]) do
begin
with CDS_Order do
begin
// while Locate('SSel',False,[]) do
// begin
// Delete;
// end;
// i:=CDS_Order.RecordCount;
while 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(frmDDDJBCKKCSelList.CDS_Main.fieldbyname('ORDMainIdRK').AsString);
FieldByName('ORDSubIdRK').Value := Trim(frmDDDJBCKKCSelList.CDS_Main.fieldbyname('ORDSubIdRK').AsString);
FieldByName('ORDMainIdCK').Value := Trim(frmDDDJBCKKCSelList.CDS_Order.fieldbyname('MainId').AsString);
FieldByName('ORDSubIdCK').Value := Trim(frmDDDJBCKKCSelList.CDS_Order.fieldbyname('SubId').AsString);
FieldByName('QCOrderNo').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value;
FieldByName('CKOrderNo').Value := frmDDDJBCKKCSelList.CDS_Order.fieldbyname('OrderNo').Value;
FieldByName('spcode').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('spcode').AsString;
FieldByName('SPColor').Value := frmDDDJBCKKCSelList.CDS_Order.fieldbyname('SPColor').AsString;
FieldByName('SPHX').Value := frmDDDJBCKKCSelList.CDS_Order.fieldbyname('SPHX').AsString;
FieldByName('FactoryName').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('FactoryName').Value;
FieldByName('FactoryNo').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('FactoryNo').Value;
FieldByName('SSType').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('SSType').Value;
FieldByName('SPName').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('SPName').Value;
FieldByName('SPSpec').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('SPSpec').Value;
FieldByName('SPCF').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('SPCF').Value;
FieldByName('SPMF').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('SPMF').Value;
FieldByName('SPKZ').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('SPKZ').Value;
FieldByName('RCGangNo').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('RCGangNo').Value;
FieldByName('FromFactoryName').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value;
FieldByName('FromFactoryNo').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('ToFactoryNo').Value;
FieldByName('ToFactoryName').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value;
FieldByName('ToFactoryNo').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('ToFactoryNo').Value;
FieldByName('QtyUnit').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('QtyUnit').Value;
FieldByName('PiQty').Value := 0; //frmDDDJBCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value
FieldByName('Qty').Value := 0; //frmDDDJBCKKCSelList.CDS_Main.fieldbyname('MXKCQty').Value
FieldByName('FZSPID').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('SPID').Value;
FieldByName('Note').Value := frmDDDJBCKKCSelList.CDS_Main.fieldbyname('Note').Value;
end;
Delete;
end;
end;
// with Self.CDS_Sub do
// begin
// edit;
// FieldByName('PiQty').Value:=frmDDDJBCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value/i;
// FieldByName('Qty').Value:=frmDDDJBCKKCSelList.CDS_Main.fieldbyname('MXKCQty').Value/i;
// end;
// frmDDDJBCKKCSelList.CDS_Main.Delete;
end;
end;
frmDDDJBCKKCSelList.CDS_Main.EnableControls;
end;
end;
finally
frmDDDJBCKKCSelList.Free;
end;
end;
procedure TfrmDJBCKOutPut.ToolButton3Click(Sender: TObject);
var
Gint: Integer;
begin
if CDS_Sub.IsEmpty then
Exit;
CDS_Sub.First;
if Trim(CDS_Sub.fieldbyname('GangNo').AsString) = '' then
begin
Gint := 1;
end
else
begin
Gint := CDS_Sub.fieldbyname('GangNo').AsInteger;
end;
CDS_Sub.DisableControls;
with CDS_Sub do
begin
First;
while not eof do
begin
Edit;
FieldByName('GangNo').Value := IntToStr(Gint);
Post;
Next;
Gint := Gint + 1;
end;
end;
CDS_Sub.EnableControls;
end;
procedure TfrmDJBCKOutPut.Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
var
FValue: string;
FBounds: TRect;
begin
FBounds := AViewInfo.Bounds;
if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
begin
ACanvas.FillRect(FBounds);
ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 1);
FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1);
InflateRect(FBounds, -1, -1); //Platform specific. May not work on Linux.
ACanvas.Font.Color := clBlack;
ACanvas.Brush.Style := bsClear;
ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop);
ADone := True;
end;
end;
procedure TfrmDJBCKOutPut.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmFHSQListSel2 := TfrmFHSQListSel2.Create(Application);
with frmFHSQListSel2 do
begin
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('tofhsq').Value := Trim(frmFHSQListSel2.ClientDataSet2.fieldbyname('fsid').AsString);
FieldByName('tofhsqS').Value := Trim(frmFHSQListSel2.ClientDataSet2.fieldbyname('ssid').AsString);
end;
end;
end;
finally
frmFHSQListSel2.Free;
end;
end;
end.
Reference in New Issue Copy Permalink