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

1253 lines
46 KiB
Plaintext
Raw Permalink Normal View History

111
2025-05-27 14:08:09 +08:00
unit U_DJBCKInPut;
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, StdCtrls, ExtCtrls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput,
System.ImageList, Vcl.ImgList, U_BaseHelp;
type
TfrmDJBCKInPut = class(TfrmBaseInput)
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column2: TcxGridDBColumn;
VC_SPName: 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;
v1Column6: TcxGridDBColumn;
VC_SPCF: TcxGridDBColumn;
VC_SPSpec: TcxGridDBColumn;
VC_SPKZ: TcxGridDBColumn;
VC_SPMF: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
VC_SPColor: TcxGridDBColumn;
VC_SPHX: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
ToolButton1: TToolButton;
VC_spcode: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
ToolButton2: TToolButton;
Panel4: TPanel;
Label14: TLabel;
Panel10: TPanel;
Image2: TImage;
Button1: TButton;
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
Button2: TButton;
Panel2: TPanel;
cxGrid1: TcxGrid;
TvMX: TcxGridDBTableView;
cxGridDBColumn8: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
ToolBar2: TToolBar;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
CDS_MX: TClientDataSet;
DS_MX: TDataSource;
ToolButton5: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
jiagong: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
ToolButton6: TToolButton;
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 v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure TvMXCustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
procedure TvMXKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
procedure ToolButton5Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Tv1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure jiagongPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton6Click(Sender: TObject);
procedure v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
{ Private declarations }
function SaveCKData(): Boolean;
procedure InitMXGrid(MCRNO: string);
public
{ Public declarations }
FBCId: string;
end;
var
frmDJBCKInPut: TfrmDJBCKInPut;
implementation
uses
U_DataLink, U_RTFun, U_ClothContractListHZCX, U_ZDYHelp, U_ZdyAttachGYS,
U_ProductOrderSel, U_CPCKQEListSC, U_ProductOrderListSel;
{$R *.dfm}
procedure TfrmDJBCKInPut.InitMXGrid(MCRNO: string);
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_SXPB_CRMX where CRNO=' + quotedstr(Trim(MCRNO)));
sql.Add(' order by MXID');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_MX);
SInitCDSData(ADOQueryTemp, CDS_MX);
end;
procedure TfrmDJBCKInPut.jiagongPropertiesButtonClick(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('COCode').AsString);
FieldByName('FactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('COName').AsString);
//Post;
end;
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmDJBCKInPut.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmDJBCKInPut.FormDestroy(Sender: TObject);
begin
inherited;
frmDJBCKInPut := nil;
end;
procedure TfrmDJBCKInPut.TBAddClick(Sender: TObject);
var
MMaxno: string;
begin
if GetLSNo(ADOQueryCmd, MMaxno, 'DR', 'CK_SXPB_CR', 3, 1) = False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD>첼<EFBFBD><ECB2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
if CDS_Sub.IsEmpty = False then
begin
CopyAddRowCDS(CDS_Sub);
with CDS_Sub do
begin
Edit;
FieldByName('SPID').Value := Trim(MMaxno);
FieldByName('RCGangNo').Value := Null;
FieldByName('PiQty').Value := Null;
FieldByName('Qty').Value := Null;
post;
end;
end
else
begin
with CDS_Sub do
begin
Append;
FieldByName('SPID').Value := Trim(MMaxno);
FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('ToFactoryName').Value := '<27><><EFBFBD>Ʋֿ<C6B2>';
Post;
end;
end;
end;
function TfrmDJBCKInPut.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_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, 'DR', '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;
Maxno := Trim(CDS_Sub.fieldbyname('SPID').AsString);
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>첼';
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('TPID').Value := Trim(CDS_Sub.fieldbyname('TPID').AsString);
FieldByName('ConNo').Value := Trim(CDS_Sub.fieldbyname('ConNo').AsString);
FieldByName('ConMainId').Value := Trim(CDS_Sub.fieldbyname('ConMainId').AsString);
FieldByName('ConSubId').Value := Trim(CDS_Sub.fieldbyname('ConSubId').AsString);
FieldByName('CRFlag').Value := '<27><><EFBFBD><EFBFBD>';
FieldByName('CRQtyFlag').Value := 1;
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);
FieldByName('OrderNo').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(' 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;
Edit;
FieldByName('SPID').Value := Trim(Maxno);
//FieldByName('CRID').Value:=Trim(FCRID);
Post;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_CW_SXPB ''' + Trim(Maxno) + '''');
ExecSQL;
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 TfrmDJBCKInPut.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('<27><><EFBFBD>첼<EFBFBD><ECB2BC><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>', Tv1, '<27><><EFBFBD>첼<EFBFBD>ֿ<EFBFBD>');
Close;
end;
procedure TfrmDJBCKInPut.FormShow(Sender: TObject);
var
fsj: string;
begin
inherited;
ReadCxGrid('<27><><EFBFBD>첼<EFBFBD><ECB2BC><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>', 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(' from CK_SXPB_CR A');
sql.Add(' where SPID=''' + Trim(FBCId) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_Sub);
SInitCDSData(ADOQueryTemp, CDS_Sub);
if CDS_Sub.IsEmpty then
Exit;
end;
procedure TfrmDJBCKInPut.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) + '''');
sql.Add(' exec P_CW_SXPB ''' + 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 TfrmDJBCKInPut.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;CRType', VarArrayOf([null, '<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>']), []) = True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if CDS_Sub.Locate('OrderNo;CRType', VarArrayOf([null, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']), []) = True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if CDS_Sub.Locate('OrderNo;CRType', VarArrayOf([null, '<27><><EFBFBD><EFBFBD><EFBFBD>˻<EFBFBD>']), []) = 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 trim(CDS_Sub.fieldbyname('CRType').AsString) <> '<27>ͻ<EFBFBD><CDBB>˻<EFBFBD>' then
begin
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;
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('PiQty', 0, []) = True then
begin
Application.MessageBox('ƥ<><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ0!', '<27><>ʾ', 0);
Exit;
end;
if CDS_Sub.Locate('Qty', 0, []) = True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ0!', '<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('ClothDegree', null, []) = True then
// begin
// Application.MessageBox('<27><><EFBFBD>ɶȲ<C9B6><C8B2><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
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!', '<27><>ʾ', 0);
//ModalResult:=1;
Exit;
end;
end;
procedure TfrmDJBCKInPut.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 TfrmDJBCKInPut.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('coCode').AsString);
FieldByName('FactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('coName').AsString);
FieldByName('FromFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('coCode').AsString);
FieldByName('FromFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('coName').AsString);
//Post;
end;
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmDJBCKInPut.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 TfrmDJBCKInPut.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 TfrmDJBCKInPut.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 TfrmDJBCKInPut.v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmProductOrderSel := TfrmProductOrderSel.Create(Application);
with frmProductOrderSel do
begin
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('TPID').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPID').AsString);
FieldByName('SPColor').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPColor').AsString);
FieldByName('OrderNo').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('OrderNo').AsString);
FieldByName('SPName').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('pm').AsString);
FieldByName('ORDMainIdRK').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('MainId').AsString);
FieldByName('SPCode').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('pmno').AsString);
FieldByName('PiQty').Value := 0;
FieldByName('Qty').Value := 0;
FieldByName('QtyUnit').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPUnit').AsString);
FieldByName('DlyDate').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('DlyDate').AsString);
FieldByName('FactoryName').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('JGFactoryName').AsString);
FieldByName('FactoryNo').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('JGFactoryNo').AsString);
FieldByName('SPColorNoKH').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPColorNo').AsString);
FieldByName('SCOrderNo').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('SCOrderNo').AsString);
FieldByName('TPPS').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPPS').AsString);
FieldByName('TPQty').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPQty').AsString);
FieldByName('JSTPPS').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('JSTPPS').AsString);
FieldByName('JSTPNote').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('JSTPNote').AsString);
FieldByName('TPColorNo').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPColorNo').AsString);
FieldByName('JingYing').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('SYRName').AsString);
end;
end;
end;
finally
frmProductOrderSel.Free;
end;
end;
procedure TfrmDJBCKInPut.v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmProductOrderSel := TfrmProductOrderSel.Create(Application);
with frmProductOrderSel do
begin
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('TPID').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPID').AsString);
FieldByName('SPColor').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPColor').AsString);
FieldByName('OrderNo').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('OrderNo').AsString);
FieldByName('SPName').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('pm').AsString);
FieldByName('ORDMainIdRK').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('MainId').AsString);
FieldByName('SPCode').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('pmno').AsString);
FieldByName('QtyUnit').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPUnit').AsString);
FieldByName('DlyDate').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('DlyDate').AsString);
FieldByName('FactoryName').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('JGFactoryName').AsString);
FieldByName('FactoryNo').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('JGFactoryNo').AsString);
FieldByName('SPColorNoKH').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPColorNo').AsString);
FieldByName('SCOrderNo').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('SCOrderNo').AsString);
FieldByName('TPPS').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPPS').AsString);
FieldByName('TPQty').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPQty').AsString);
FieldByName('JSTPPS').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('JSTPPS').AsString);
FieldByName('JSTPNote').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('JSTPNote').AsString);
FieldByName('TPColorNo').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPColorNo').AsString);
FieldByName('JingYing').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('SYRName').AsString);
end;
end;
end;
finally
frmProductOrderSel.Free;
end;
end;
procedure TfrmDJBCKInPut.ToolButton1Click(Sender: TObject);
var
MMaxno: string;
begin
try
frmProductOrderSel := TfrmProductOrderSel.Create(Application);
with frmProductOrderSel do
begin
if ShowModal = 1 then
begin
with frmProductOrderSel.Order_Main do
begin
first;
DisableControls;
while not eof do
begin
if fieldbyname('ssel').AsBoolean then
begin
if GetLSNo(ADOQueryCmd, MMaxno, 'DR', 'CK_SXPB_CR', 3, 1) = False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD>첼<EFBFBD><ECB2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
with Self.CDS_Sub do
begin
Append;
FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('SPID').Value := Trim(MMaxno);
FieldByName('CRType').Value := '<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>';
FieldByName('TPID').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPID').AsString);
FieldByName('SPColor').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPColor').AsString);
FieldByName('TPColorNo').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPColorNo').AsString);
FieldByName('OrderNo').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('OrderNo').AsString);
FieldByName('SPName').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('pm').AsString);
FieldByName('ORDMainIdRK').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('MainId').AsString);
FieldByName('SPCode').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('pmno').AsString);
FieldByName('PiQty').Value := 0;
FieldByName('Qty').Value := 0;
FieldByName('QtyUnit').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPUnit').AsString);
FieldByName('DlyDate').Value := Trim(FormatDateTime('yyyy-MM-dd', (frmProductOrderSel.Order_Main.fieldbyname('DlyDate').AsDateTime)));
FieldByName('FactoryName').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('JGFactoryName').AsString);
FieldByName('FactoryNo').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('JGFactoryNo').AsString);
FieldByName('SCOrderNo').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('SCOrderNo').AsString);
FieldByName('TPPS').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPPS').AsString);
FieldByName('TPQty').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPQty').AsString);
FieldByName('JSTPPS').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('JSTPPS').AsString);
FieldByName('JSTPNote').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('JSTPNote').AsString);
FieldByName('ToFactoryName').Value := '<27><><EFBFBD>Ʋֿ<C6B2>';
FieldByName('JingYing').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('SYRName').AsString);
Post;
end;
end;
next;
end;
first;
EnableControls;
end;
end;
end;
finally
frmProductOrderSel.Free;
end;
end;
procedure TfrmDJBCKInPut.Button2Click(Sender: TObject);
var
CRType, FactoryName, RCGangNo, ToFactoryName, KuWei, QtyUnit, Note: string;
i, PiQty: Integer;
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);
FactoryName := Trim(CDS_Sub.fieldbyname('FactoryName').AsString);
RCGangNo := Trim(CDS_Sub.fieldbyname('RCGangNo').AsString);
ToFactoryName := Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString);
KuWei := Trim(CDS_Sub.fieldbyname('KuWei').AsString);
PiQty := CDS_Sub.fieldbyname('PiQty').AsInteger;
qty := CDS_Sub.fieldbyname('Qty').AsFloat;
QtyUnit := Trim(CDS_Sub.fieldbyname('QtyUnit').AsString);
Note := Trim(CDS_Sub.fieldbyname('Note').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('FactoryName').Value := FactoryName;
if CheckBox3.Checked then
FieldByName('RCGangNo').Value := RCGangNo;
if CheckBox4.Checked then
FieldByName('ToFactoryName').Value := ToFactoryName;
if CheckBox5.Checked then
FieldByName('KuWei').Value := KuWei;
if CheckBox6.Checked then
FieldByName('PiQty').Value := PiQty;
if CheckBox7.Checked then
FieldByName('Qty').Value := qty;
if CheckBox8.Checked then
FieldByName('QtyUnit').Value := QtyUnit;
if CheckBox9.Checked then
FieldByName('Note').Value := Note;
Post;
Next;
end;
end;
CDS_Sub.EnableControls;
except
Application.MessageBox('<27>滻<EFBFBD>쳣!', '<27><>ʾ', 0);
end;
end;
procedure TfrmDJBCKInPut.ToolButton2Click(Sender: TObject);
begin
Panel4.Visible := True;
end;
procedure TfrmDJBCKInPut.Image2Click(Sender: TObject);
begin
Panel4.Visible := False;
end;
procedure TfrmDJBCKInPut.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 TfrmDJBCKInPut.ToolButton3Click(Sender: TObject);
var
i: Integer;
MaxNo, MMXID, MCRNO: string;
begin
MCRNO := Trim(CDS_Sub.fieldbyname('SPID').AsString);
if GetLSNo(ADOQueryTemp, MaxNo, 'MCM', 'CK_SXPB_CRMX', 3, 1) = False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
for i := 1 to 10 do
begin
MMXID := Trim(MaxNo) + Trim(inttostr(i));
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('insert into CK_SXPB_CRMX (MXID,CRNO,MXQty)');
sql.Add('values(' + quotedstr(MMXID));
sql.Add(',' + quotedstr(Trim(MCRNO)));
sql.Add(',0');
sql.Add(')');
ExecSQL;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
InitMXGrid(MCRNO);
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
end;
end;
procedure TfrmDJBCKInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
InitMXGrid(Trim(CDS_Sub.fieldbyname('SPID').AsString));
if Trim(CDS_Sub.FieldByName('OrderNo').AsString) = '' then
begin
VC_SPColor.Options.Editing := True;
VC_SPHX.Options.Editing := True;
VC_spcode.Options.Editing := True;
VC_SPName.Options.Editing := True;
VC_SPSpec.Options.Editing := True;
VC_SPCF.Options.Editing := True;
VC_SPMF.Options.Editing := True;
VC_SPKZ.Options.Editing := True;
end
else
begin
if Trim(CDS_Sub.FieldByName('SPID').AsString) = '' then
begin
VC_SPColor.Options.Editing := True;
VC_SPHX.Options.Editing := True;
VC_spcode.Options.Editing := True;
VC_SPName.Options.Editing := True;
VC_SPSpec.Options.Editing := True;
VC_SPCF.Options.Editing := True;
VC_SPMF.Options.Editing := True;
VC_SPKZ.Options.Editing := True;
end;
end;
end;
procedure TfrmDJBCKInPut.cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(TvMX.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_MX do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('update CK_SXPB_CRMX set ' + FFieldName + ' = ' + mvalue);
sql.Add(' where MXID=' + quotedstr(Trim(CDS_MX.FieldByName('MXID').AsString)));
ExecSQL;
end;
TvMX.Controller.EditingController.ShowEdit();
end;
procedure TfrmDJBCKInPut.ToolButton4Click(Sender: TObject);
begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('delete CK_SXPB_CRMX where MXID=' + quotedstr(Trim(CDS_MX.FieldByName('MXID').AsString)));
ExecSQL;
end;
CDS_MX.Delete;
end;
procedure TfrmDJBCKInPut.TvMXCustomDrawIndicatorCell(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 TfrmDJBCKInPut.TvMXKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
TvMX.OptionsData.Editing := False;
if Key = 13 then
Key := 40;
TvMX.OptionsData.Editing := True;
end;
procedure TfrmDJBCKInPut.Tv1Column10PropertiesButtonClick(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 TfrmDJBCKInPut.Tv1Column1PropertiesButtonClick(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('OrderNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString);
FieldByName('ORDMainIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString);
FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString);
FieldByName('ConNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('ConNo').AsString);
FieldByName('ConMainId').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('ConMainId').AsString);
FieldByName('ConSubId').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('ConSubId').AsString);
FieldByName('SPColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PrtColor').AsString);
FieldByName('SPHX').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString);
FieldByName('SPMF').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTMF').AsString);
FieldByName('SPKZ').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTKZ').AsString);
FieldByName('SPColorNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColorNo').AsString);
FieldByName('SPCF').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCF').AsString);
FieldByName('SPName').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCodeName').AsString);
FieldByName('spcode').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCode').AsString);
FieldByName('SPHXKH').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHXKH').AsString);
FieldByName('QtyUnit').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('TPUnit').AsString);
FieldByName('DlyDate').Value := Trim(FormatDateTime('yyyy-MM-dd', (frmProductOrderListSel.Order_Main.fieldbyname('DlyDate').AsDateTime)));
FieldByName('FactoryName').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('JGFactoryName').AsString);
FieldByName('FactoryNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('JGFactoryNo').AsString);
FieldByName('JingYing').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SYRName').AsString);
end;
end;
end;
finally
frmProductOrderListSel.Free;
end;
end;
procedure TfrmDJBCKInPut.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmProductOrderSel := TfrmProductOrderSel.Create(Application);
with frmProductOrderSel do
begin
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('TPID').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPID').AsString);
FieldByName('SPColor').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPColor').AsString);
FieldByName('OrderNo').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('OrderNo').AsString);
FieldByName('SPName').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('pm').AsString);
FieldByName('ORDMainIdRK').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('MainId').AsString);
FieldByName('SPCode').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('pmno').AsString);
FieldByName('PiQty').Value := 0;
FieldByName('Qty').Value := 0;
FieldByName('QtyUnit').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPUnit').AsString);
FieldByName('DlyDate').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('DlyDate').AsString);
FieldByName('FactoryName').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('YRFactoryName').AsString);
FieldByName('FactoryNo').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('YRFactoryNo').AsString);
FieldByName('SPColorNoKH').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPColorNo').AsString);
FieldByName('SCOrderNo').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('SCOrderNo').AsString);
FieldByName('TPPS').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPPS').AsString);
FieldByName('TPQty').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('TPQty').AsString);
FieldByName('JSTPPS').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('JSTPPS').AsString);
FieldByName('JSTPNote').Value := Trim(frmProductOrderSel.Order_Main.fieldbyname('JSTPNote').AsString);
end;
end;
end;
finally
frmProductOrderSel.Free;
end;
end;
procedure TfrmDJBCKInPut.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 TfrmDJBCKInPut.ToolButton5Click(Sender: TObject);
var
MMaxno: string;
begin
try
frmCPCKQEListSC := TfrmCPCKQEListSC.Create(Application);
with frmCPCKQEListSC do
begin
if ShowModal = 1 then
begin
with frmCPCKQEListSC.CDS_Main do
begin
first;
DisableControls;
while not eof do
begin
if fieldbyname('ssel').AsBoolean then
begin
if GetLSNo(ADOQueryCmd, MMaxno, 'DR', 'CK_SXPB_CR', 3, 1) = False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD>첼<EFBFBD><ECB2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
with Self.CDS_Sub do
begin
Append;
FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('SPID').Value := Trim(MMaxno);
FieldByName('CustomerNoName').Value := Trim(frmCPCKQEListSC.CDS_Main.fieldbyname('CustomerNoName').AsString);
FieldByName('SPCode').Value := Trim(frmCPCKQEListSC.CDS_Main.fieldbyname('MPRTCode').AsString);
FieldByName('ORDMainIdRK').Value := Trim(frmCPCKQEListSC.CDS_Main.fieldbyname('MainId').AsString);
FieldByName('ORDSubIdRK').Value := Trim(frmCPCKQEListSC.CDS_Main.fieldbyname('SubId').AsString);
FieldByName('OrderNo').Value := Trim(frmCPCKQEListSC.CDS_Main.fieldbyname('OrderNo').AsString);
FieldByName('SPColor').Value := Trim(frmCPCKQEListSC.CDS_Main.fieldbyname('PRTColor').AsString);
FieldByName('SPHX').Value := Trim(frmCPCKQEListSC.CDS_Main.fieldbyname('PRTHX').AsString);
FieldByName('SPName').Value := Trim(frmCPCKQEListSC.CDS_Main.fieldbyname('MPRTCodeName').AsString);
FieldByName('SPSpec').Value := Trim(frmCPCKQEListSC.CDS_Main.fieldbyname('MPRTSpec').AsString);
FieldByName('SPCF').Value := Trim(frmCPCKQEListSC.CDS_Main.fieldbyname('MPRTCF').AsString);
FieldByName('SPMF').Value := Trim(frmCPCKQEListSC.CDS_Main.fieldbyname('MPRTMF').AsString);
FieldByName('SPKZ').Value := Trim(frmCPCKQEListSC.CDS_Main.fieldbyname('MPRTKZ').AsString);
FieldByName('Note').Value := Trim(frmCPCKQEListSC.CDS_Main.fieldbyname('SubNote').AsString);
FieldByName('ToFactoryName').Value := '<27><>ʤ<EFBFBD>ֿ<EFBFBD>';
Post;
end;
end;
next;
end;
first;
EnableControls;
end;
end;
end;
finally
frmCPCKQEListSC.Free;
end;
end;
procedure TfrmDJBCKInPut.ToolButton6Click(Sender: TObject);
var
MMaxno: string;
begin
try
frmProductOrderListSel := TfrmProductOrderListSel.Create(Application);
with frmProductOrderListSel do
begin
if ShowModal = 1 then
begin
with frmProductOrderSel.Order_Main do
begin
first;
DisableControls;
while not eof do
begin
if fieldbyname('ssel').AsBoolean then
begin
if GetLSNo(ADOQueryCmd, MMaxno, 'DR', 'CK_SXPB_CR', 3, 1) = False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD>첼<EFBFBD><ECB2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
with Self.CDS_Sub do
begin
Append;
FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('SPID').Value := Trim(MMaxno);
FieldByName('OrderNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString);
FieldByName('ORDMainIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString);
FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString);
FieldByName('ConNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('ConNo').AsString);
FieldByName('ConMainId').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('ConMainId').AsString);
FieldByName('ConSubId').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('ConSubId').AsString);
FieldByName('SPColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PrtColor').AsString);
FieldByName('SPHX').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString);
FieldByName('SPMF').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTMF').AsString);
FieldByName('SPKZ').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTKZ').AsString);
FieldByName('SPColorNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColorNo').AsString);
FieldByName('SPCF').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCF').AsString);
FieldByName('SPName').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCodeName').AsString);
FieldByName('spcode').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCode').AsString);
FieldByName('SPHXKH').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHXKH').AsString);
FieldByName('PiQty').Value := 0;
FieldByName('Qty').Value := 0;
FieldByName('QtyUnit').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('TPUnit').AsString);
FieldByName('DlyDate').Value := Trim(FormatDateTime('yyyy-MM-dd', (frmProductOrderListSel.Order_Main.fieldbyname('DlyDate').AsDateTime)));
FieldByName('FactoryName').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('JGFactoryName').AsString);
FieldByName('FactoryNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('JGFactoryNo').AsString);
FieldByName('JingYing').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SYRName').AsString);
Post;
end;
end;
next;
end;
first;
EnableControls;
end;
end;
end;
finally
frmProductOrderListSel.Free;
end;
end;
end.
Reference in New Issue Copy Permalink