Group_99/D10szXIANGYING
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
85dce630a4
D10szXIANGYING/E04梭织坯布仓库/U_TatDRtInPut.pas

839 lines
27 KiB
ObjectPascal
Raw Normal View History

12345
2025-11-14 15:11:06 +08:00
unit U_TatDRtInPut;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, DateUtils;
type
TfrmTatDRtInPut = class(Tform)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ScrollBox1: TScrollBox;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DataSource1: TDataSource;
Order_Sub: TClientDataSet;
ADOQuery1: TADOQuery;
cxGridPopupMenu2: TcxGridPopupMenu;
Label1: TLabel;
OutType: TComboBox;
Note: TEdit;
Label12: TLabel;
Label11: TLabel;
ToCoName: TBtnEditC;
11/12 17.30
2025-11-20 17:32:01 +08:00
Tv1C_width: TcxGridDBColumn;
Tv1Qty: TcxGridDBColumn;
12345
2025-11-14 15:11:06 +08:00
cxStyleRepository1: TcxStyleRepository;
dazi1: TcxStyle;
11/12 17.30
2025-11-20 17:32:01 +08:00
Tv1C_Name: TcxGridDBColumn;
12345
2025-11-14 15:11:06 +08:00
Label2: TLabel;
DlyDate: TDateTimePicker;
11/12 17.30
2025-11-20 17:32:01 +08:00
Tv1Piece: TcxGridDBColumn;
12345
2025-11-14 15:11:06 +08:00
ToolButton3: TToolButton;
ToolButton4: TToolButton;
Label27: TLabel;
QtyUnit: TComboBox;
Label3: TLabel;
SHDANWEI: TBtnEditC;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
11/12 17.30
2025-11-20 17:32:01 +08:00
Tv1C_code: TcxGridDBColumn;
12345
2025-11-14 15:11:06 +08:00
Label4: TLabel;
Seal: TEdit;
Label5: TLabel;
tube: TEdit;
Label6: TLabel;
Packaging: TEdit;
11/12 17.30
2025-11-20 17:32:01 +08:00
Tv1c_Color: TcxGridDBColumn;
Tv1C_GramWeight: TcxGridDBColumn;
Tv1PINGFANG: TcxGridDBColumn;
Tv1Volume: TcxGridDBColumn;
Tv1Applicant: TcxGridDBColumn;
Tv1ApplicationReaon: TcxGridDBColumn;
TbPHSave: TToolButton;
12.9
2025-12-09 17:30:02 +08:00
Label7: TLabel;
ToCoID: TEdit;
12.13 17.34
2025-12-13 17:34:42 +08:00
Tv1issp: TcxGridDBColumn;
12345
2025-11-14 15:11:06 +08:00
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToCoNameBtnUpClick(Sender: TObject);
procedure ToCoNameBtnDnClick(Sender: TObject);
procedure JSQtyUnitChange(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure SHDANWEIBtnUpClick(Sender: TObject);
procedure SHDANWEIBtnDnClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
11/12 17.30
2025-11-20 17:32:01 +08:00
procedure TbPHSaveClick(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
12.9
2025-12-09 17:30:02 +08:00
12345
2025-11-14 15:11:06 +08:00
private
fuserName: string;
procedure InitData();
function SaveData(): Boolean;
11/12 17.30
2025-11-20 17:32:01 +08:00
function SavePHData(): Boolean;
12.9
2025-12-09 17:30:02 +08:00
procedure C_NumHB();
12345
2025-11-14 15:11:06 +08:00
{ Private declarations }
public
PState, CopyInt: Integer;
FDRMID, canshu1: string;
{ Public declarations }
end;
var
frmTatDRtInPut: TfrmTatDRtInPut;
newh: hwnd;
implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_TatPlanSel, U_TatClothInfoSel,
U_TatClothStkHZListSEL;
{$R *.dfm}
procedure TfrmTatDRtInPut.TBCloseClick(Sender: TObject);
begin
Close;
end;
11/12 17.30
2025-11-20 17:32:01 +08:00
procedure TfrmTatDRtInPut.TbPHSaveClick(Sender: TObject);
var
Freal: Double;
begin
ToolBar1.SetFocus;
if Trim(OutType.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(ToCoName.Text) = '' then
begin
Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if (Order_Sub.Locate('Piece', null, [])) and (Order_Sub.Locate('Qty', null, [])) = True then
begin
Application.MessageBox('ϸ<><CFB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȫΪ<C8AB>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if SavePHData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
ModalResult := 1;
end;
end;
12345
2025-11-14 15:11:06 +08:00
procedure TfrmTatDRtInPut.InitData();
var
fsj: string;
begin
if PState = 0 then
begin
DlyDate.DateTime := strtodatetime(Trim(FormatDateTime('yyyy-MM-dd', Now)));
end;
with ADOQuery1 do
begin
Close;
SQL.Clear;
sql.Add(' select A.* ');
sql.Add(' from Tat_Cloth_DR_Sub A');
11/12 17.30
2025-11-20 17:32:01 +08:00
if (PState = 1) or (PState = 2) then ////<2F>鿴<EFBFBD><E9BFB4><EFBFBD>޸<EFBFBD>
12345
2025-11-14 15:11:06 +08:00
begin
sql.Add('where DRMID=''' + Trim(FDRMID) + '''');
end;
11/12 17.30
2025-11-20 17:32:01 +08:00
if PState = 0 then ////<2F><><EFBFBD><EFBFBD>
12345
2025-11-14 15:11:06 +08:00
begin
sql.Add(' where 1<>1');
end;
Open;
end;
SCreateCDS(ADOQuery1, Order_Sub);
SInitCDSData(ADOQuery1, Order_Sub);
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add(' from Tat_Cloth_DR_Main A');
sql.Add(' where DRMID=''' + Trim(FDRMID) + ''' ');
Open;
end;
SCSHData(ADOQuery1, ScrollBox1, 1);
end;
procedure TfrmTatDRtInPut.JSQtyUnitChange(Sender: TObject);
begin
if not Order_Sub.IsEmpty then
begin
exit;
end;
end;
procedure TfrmTatDRtInPut.SHDANWEIBtnDnClick(Sender: TObject);
begin
SHDANWEI.Text := '';
end;
procedure TfrmTatDRtInPut.SHDANWEIBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'SHDANWEI';
flagname := '<27>ջ<EFBFBD><D5BB><EFBFBD>λ';
if ShowModal = 1 then
begin
SHDANWEI.text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTatDRtInPut.FormShow(Sender: TObject);
var
fsj: string;
begin
readCxGrid(trim(self.Caption), Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
InitData();
end;
11/12 17.30
2025-11-20 17:32:01 +08:00
function TfrmTatDRtInPut.SavePHData(): Boolean;
var
MaxSid: string;
CurrentYear: string;
begin
try
ADOCmd.Connection.BeginTrans;
///////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD> /////////////////
Order_Sub.DisableControls;
with Order_Sub do
begin
First;
while not Eof do
begin
if Trim(Order_Sub.fieldbyname('DRSID').AsString) = '' then
begin
if GetLSNo(ADOCmd, MaxSid, 'TDS', 'Tat_Cloth_DR_Sub', 4, 1) = False then
raise Exception.Create('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>');
end
else
begin
MaxSid := Trim(Order_Sub.fieldbyname('DRSID').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_Cloth_DR_Sub ');
sql.Add(' where DRMID=''' + Trim(FDRMID) + '''');
sql.Add(' and DRSID=''' + Trim(MaxSid) + '''');
Open;
if ADOCmd.IsEmpty then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('Volume').Value := Order_Sub.fieldbyname('Volume').Value;
FieldByName('Applicant').Value := trim(DName);
FieldByName('ApplicationReaon').Value := Order_Sub.fieldbyname('ApplicationReaon').Value;
Post;
end;
Next;
end;
end;
Order_Sub.EnableControls;
///////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD> /////////////////
FDRMID := Trim(FDRMID);
ADOCmd.Connection.CommitTrans;
Result := True;
except
ADOCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
Result := False;
end;
end;
12.9
2025-12-09 17:30:02 +08:00
procedure TfrmTatDRtInPut.C_NumHB();
var
LocateValues: variant;
TempTable: TClientDataSet;
begin
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>洢<EFBFBD>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD>
TempTable := TClientDataSet.Create(nil);
try
// <20><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD>ṹ
TempTable.CloneCursor(Order_Sub, False);
TempTable.Close;
TempTable.FieldDefs.Assign(Order_Sub.FieldDefs);
TempTable.CreateDataSet;
Order_Sub.First;
while not Order_Sub.Eof do
begin
// ֻ<><D6BB><EFBFBD><EFBFBD> DRSID Ϊ<>յļ<D5B5>¼
// if Order_Sub.FieldByName('DRSID').IsNull or (trim(Order_Sub.FieldByName('DRSID').AsString) = '') then
// begin
LocateValues := VarArrayOf([trim(Order_Sub.FieldByName('C_Name').AsString), trim(Order_Sub.FieldByName('C_width').AsString), trim(Order_Sub.FieldByName('C_GramWeight').AsString)]);
// <20><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>в<EFBFBD><D0B2><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>¼
if TempTable.Locate('C_Name;C_width;C_GramWeight', LocateValues, []) then
begin
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD> Piece ֵ
TempTable.Edit;
TempTable.FieldByName('Piece').AsFloat := TempTable.FieldByName('Piece').AsFloat + Order_Sub.FieldByName('Piece').AsFloat;
TempTable.FieldByName('Qty').AsFloat := TempTable.FieldByName('Qty').AsFloat + Order_Sub.FieldByName('Qty').AsFloat;
TempTable.Post;
if (not Order_Sub.FieldByName('DRSID').IsNull) and (trim(Order_Sub.FieldByName('DRSID').AsString) <> '') then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete Tat_Cloth_DR_Sub where DRSID=''' + Trim(Order_Sub.fieldbyname('DRSID').AsString) + '''');
ExecSQL;
end;
end;
end
else
begin
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD>¼
TempTable.Append;
TempTable.CopyFields(Order_Sub); // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD>ֵ
TempTable.Post;
end;
// end;
Order_Sub.Next;
end;
// <20><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>滻ԭ<E6BBBB><D4AD><EFBFBD>ݼ<EFBFBD>
Order_Sub.DisableControls;
try
Order_Sub.EmptyDataSet;
TempTable.First;
while not TempTable.Eof do
begin
Order_Sub.Append;
Order_Sub.CopyFields(TempTable);
Order_Sub.Post;
TempTable.Next;
end;
finally
Order_Sub.EnableControls;
end;
finally
TempTable.Free;
end;
end;
12345
2025-11-14 15:11:06 +08:00
function TfrmTatDRtInPut.SaveData(): Boolean;
var
MaxMid, MaxSid: string;
CurrentYear: string;
begin
try
ADOCmd.Connection.BeginTrans;
///////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> /////////////////
if Trim(FDRMID) = '' then
begin
CurrentYear := 'RSG' + FormatDateTime('yy', Now);
if GetLSNo(ADOCmd, MaxMid, CurrentYear, 'Tat_Cloth_DR_Main', 5, 0) = False then
raise Exception.Create('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');
end
else
begin
MaxMid := Trim(FDRMID);
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from Tat_Cloth_DR_Main where DRMID=''' + Trim(MaxMid) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(FDRMID) = '' then
begin
Append;
FieldByName('FillID').Value := Trim(DCode);
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('EditID').Value := Trim(DCode);
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
RTSetsavedata(ADOCmd, 'Tat_Cloth_DR_Main', ScrollBox1, 1);
FieldByName('DRMID').Value := Trim(MaxMid);
FieldByName('Status').Value := '0';
Post;
end;
///////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> /////////////////
///
///////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD> /////////////////
Order_Sub.DisableControls;
with Order_Sub do
begin
First;
while not Eof do
begin
if Trim(Order_Sub.fieldbyname('DRSID').AsString) = '' then
begin
if GetLSNo(ADOCmd, MaxSid, 'TDS', 'Tat_Cloth_DR_Sub', 4, 1) = False then
raise Exception.Create('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>');
end
else
begin
MaxSid := Trim(Order_Sub.fieldbyname('DRSID').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_Cloth_DR_Sub ');
sql.Add(' where DRMID=''' + Trim(MaxMid) + '''');
sql.Add(' and DRSID=''' + Trim(MaxSid) + '''');
Open;
if ADOCmd.IsEmpty then
begin
Append;
end
else
begin
Edit;
end;
RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'Tat_Cloth_DR_Sub', 0);
FieldByName('DRMID').Value := Trim(MaxMid);
FieldByName('DRSID').Value := Trim(MaxSid);
FieldByName('QtyUnit').Value := QtyUnit.Text;
FieldByName('MainId').Value := Order_Sub.fieldbyname('MainId').Value;
FieldByName('SubId').Value := Order_Sub.fieldbyname('SubId').Value;
FieldByName('ConMId').Value := Order_Sub.fieldbyname('ConMId').Value;
FieldByName('ConSId').Value := Order_Sub.fieldbyname('ConSId').Value;
Post;
end;
Order_Sub.Edit;
Order_Sub.FieldByName('DRSID').Value := Trim(MaxSid);
Next;
end;
end;
Order_Sub.EnableControls;
///////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD> /////////////////
FDRMID := Trim(MaxMid);
ADOCmd.Connection.CommitTrans;
Result := True;
except
ADOCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
Result := False;
end;
end;
procedure TfrmTatDRtInPut.TBSaveClick(Sender: TObject);
var
Freal: Double;
begin
12.9
2025-12-09 17:30:02 +08:00
//ShowMessage(Order_Sub.FieldByName('Piece').AsString);
12345
2025-11-14 15:11:06 +08:00
ToolBar1.SetFocus;
if Trim(OutType.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(ToCoName.Text) = '' then
begin
Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
12.9
2025-12-09 17:30:02 +08:00
12345
2025-11-14 15:11:06 +08:00
if (Order_Sub.Locate('Piece', null, [])) and (Order_Sub.Locate('Qty', null, [])) = True then
begin
Application.MessageBox('ϸ<><CFB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȫΪ<C8AB>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
12.9
2025-12-09 17:30:02 +08:00
// ShowMessage(Order_Sub.FieldByName('Piece').AsString);
C_NumHB();
12345
2025-11-14 15:11:06 +08:00
if SaveData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
ModalResult := 1;
end;
end;
procedure TfrmTatDRtInPut.ToolButton1Click(Sender: TObject);
var
FQtyUnit, FFSubid: string;
begin
{
try
frmTradePlanSel := TfrmTradePlanSel.Create(Application);
with frmTradePlanSel do
begin
if ShowModal = 1 then
begin
while CDS_1.locate('SSel', true, []) do
begin
// Self.CustomerNoName.Text := Trim(frmTradePlanSel.Order_Main.fieldbyname('CustomerNoName').AsString);
// FQtyUnit := Trim(frmTradePlanSel.Order_Main.fieldbyname('orderUnit').AsString);
// if Self.Order_Sub.Locate('Subid', Trim(frmTradePlanSel.Order_Main.fieldbyname('Subid').AsString), []) = False then
begin
with Self.Order_Sub do
begin
Append;
FieldByName('SCConNo').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('Orderno').AsString);
FieldByName('SSConMainId').Value := frmTradePlanSel.CDS_1.fieldbyname('ConMainId').Value;
FieldByName('SSConSubId').Value := frmTradePlanSel.CDS_1.fieldbyname('ConSubId').Value;
FieldByName('MainId').Value := frmTradePlanSel.CDS_1.fieldbyname('MainId').Value;
FieldByName('SubId').Value := frmTradePlanSel.CDS_1.fieldbyname('SubId').Value;
FieldByName('PRTColor').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('P_Color').AsString);
FieldByName('SPrtCode').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('P_Code').AsString);
FieldByName('SPrtCodeName').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('P_CodeName').AsString);
FieldByName('PRTHX').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('P_HX').AsString);
// FieldByName('orderUnit').Value := JSQtyUnit.Text;
// if Trim(JSQtyUnit.Text) = 'Kg' then
// begin
// FieldByName('sqqty').Value := frmTradePlanSel.Order_Main.fieldbyname('JYGW').Value;
// end
// else if Trim(JSQtyUnit.Text) = 'M' then
// begin
// FieldByName('sqqty').Value := frmTradePlanSel.Order_Main.fieldbyname('JYLen').Value;
// end
// else if Trim(JSQtyUnit.Text) = 'Y' then
// begin
// FieldByName('sqqty').Value := frmTradePlanSel.Order_Main.fieldbyname('JYYLen').Value;
// end;
end;
end;
CDS_1.Delete;
end;
end;
end;
finally
frmTradePlanSel.Free;
end; }
end;
procedure TfrmTatDRtInPut.ToolButton2Click(Sender: TObject);
begin
if Order_Sub.IsEmpty then
Exit;
if Trim(Order_Sub.fieldbyname('DRSID').AsString) <> '' then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Tat_Cloth_DR_Sub where DRSID=''' + Trim(Order_Sub.fieldbyname('DRSID').AsString) + '''');
sql.add(' and isnull(DlyPiece,0)>0');
Open;
end;
if ADOTemp.IsEmpty = False then
begin
Application.MessageBox('<27>ѷ<EFBFBD><D1B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete Tat_Cloth_DR_Sub where DRSID=''' + Trim(Order_Sub.fieldbyname('DRSID').AsString) + '''');
ExecSQL;
end;
end;
Order_Sub.Delete;
end;
procedure TfrmTatDRtInPut.ToolButton3Click(Sender: TObject);
var
FConMainId, FMPRTCode: string;
11/12 17.30
2025-11-20 17:32:01 +08:00
LocateValues: variant;
12345
2025-11-14 15:11:06 +08:00
begin
// try
// frmTatPlanSel := TfrmTatPlanSel.Create(Application);
// with frmTatPlanSel do
// begin
// if ShowModal = 1 then
// begin
// while CDS_1.locate('SSel', true, []) do
// begin
//// if not self.Order_Sub.locate('ConSId', trim(frmTatPlanSel.CDS_1.Fieldbyname('ConSId').AsString), []) then
//// begin
// with Self.Order_Sub do
// begin
// Append;
// FieldByName('ConNo').Value := Trim(frmTatPlanSel.CDS_1.fieldbyname('ConNo').AsString);
// FieldByName('ConMId').Value := Trim(frmTatPlanSel.CDS_1.fieldbyname('ConMId').AsString);
// FieldByName('ConSId').Value := frmTatPlanSel.CDS_1.fieldbyname('ConSId').Value;
// FieldByName('BuyConNo').Value := frmTatPlanSel.CDS_1.fieldbyname('BuyConNo').Value;
// FieldByName('C_Code').Value := frmTatPlanSel.CDS_1.fieldbyname('C_Code').Value;
// FieldByName('C_Name').Value := frmTatPlanSel.CDS_1.fieldbyname('C_Name').Value;
// FieldByName('C_Spec').Value := frmTatPlanSel.CDS_1.fieldbyname('C_Spec').Value;
// FieldByName('C_Width').Value := frmTatPlanSel.CDS_1.fieldbyname('C_Width').Value;
// FieldByName('C_GramWeight').Value := frmTatPlanSel.CDS_1.fieldbyname('C_GramWeight').Value;
// FieldByName('C_Color').Value := frmTatPlanSel.CDS_1.fieldbyname('C_Color').Value;
// FieldByName('C_ColorNo').Value := frmTatPlanSel.CDS_1.fieldbyname('C_ColorNo').Value;
// FieldByName('C_Pattern').Value := frmTatPlanSel.CDS_1.fieldbyname('C_Pattern').Value;
//// FieldByName('Piece').Value := frmTatPlanSel.CDS_1.fieldbyname('SumPiece').Value;
//// FieldByName('Qty').Value := frmTatPlanSel.CDS_1.fieldbyname('SumStkGrossWeight').Value;
// end;
//// end;
// CDS_1.Edit;
// CDS_1.fieldbyname('SSel').value := false;
// end;
// end;
// end;
// finally
// frmTatPlanSel.Free;
// end;
try
frmTatClothInfoSel := TfrmTatClothInfoSel.Create(Application);
with frmTatClothInfoSel do
begin
if ShowModal = 1 then
begin
while cds_sub.locate('SSel', true, []) do
begin
12.9
2025-12-09 17:30:02 +08:00
with Self.Order_Sub do
11/12 17.30
2025-11-20 17:32:01 +08:00
begin
12.9
2025-12-09 17:30:02 +08:00
Append;
FieldByName('C_Code').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').Value;
FieldByName('C_Name').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').Value;
12345
2025-11-14 15:11:06 +08:00
// FieldByName('C_Spec').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Spec').Value;
12.9
2025-12-09 17:30:02 +08:00
FieldByName('C_Width').Value := frmTatClothInfoSel.cds_sub.fieldbyname('C_MXMF').Value;
FieldByName('C_GramWeight').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_GramWeight').Value;
FieldByName('C_Color').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Color').Value;
12345
2025-11-14 15:11:06 +08:00
// FieldByName('C_ColorNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_ColorNo').Value;
// FieldByName('C_Pattern').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Pattern').Value;
end;
cds_sub.Edit;
cds_sub.fieldbyname('SSel').value := false;
end;
11/12 17.30
2025-11-20 17:32:01 +08:00
12345
2025-11-14 15:11:06 +08:00
end;
end;
finally
frmTatClothInfoSel.Free;
end;
end;
procedure TfrmTatDRtInPut.ToolButton4Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption), Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
end;
procedure TfrmTatDRtInPut.ToolButton5Click(Sender: TObject);
begin
try
frmTatPlanSel := TfrmTatPlanSel.Create(Application);
with frmTatPlanSel do
begin
if ShowModal = 1 then
begin
while CDS_1.locate('SSel', true, []) do
begin
// if not self.Order_Sub.locate('ConSId', trim(frmTatPlanSel.CDS_1.Fieldbyname('ConSId').AsString), []) then
// begin
with Self.Order_Sub do
begin
Append;
FieldByName('ConNo').Value := Trim(frmTatPlanSel.CDS_1.fieldbyname('ConNo').AsString);
FieldByName('ConMId').Value := Trim(frmTatPlanSel.CDS_1.fieldbyname('ConMId').AsString);
FieldByName('ConSId').Value := frmTatPlanSel.CDS_1.fieldbyname('ConSId').Value;
FieldByName('BuyConNo').Value := frmTatPlanSel.CDS_1.fieldbyname('BuyConNo').Value;
FieldByName('C_Code').Value := frmTatPlanSel.CDS_1.fieldbyname('C_Code').Value;
FieldByName('C_Name').Value := frmTatPlanSel.CDS_1.fieldbyname('C_Name').Value;
FieldByName('C_Spec').Value := frmTatPlanSel.CDS_1.fieldbyname('C_Spec').Value;
FieldByName('C_Width').Value := frmTatPlanSel.CDS_1.fieldbyname('C_Width').Value;
FieldByName('C_GramWeight').Value := frmTatPlanSel.CDS_1.fieldbyname('C_GramWeight').Value;
FieldByName('C_Color').Value := frmTatPlanSel.CDS_1.fieldbyname('C_Color').Value;
FieldByName('C_ColorNo').Value := frmTatPlanSel.CDS_1.fieldbyname('C_ColorNo').Value;
FieldByName('C_Pattern').Value := frmTatPlanSel.CDS_1.fieldbyname('C_Pattern').Value;
FieldByName('orderno').Value := frmTatPlanSel.CDS_1.fieldbyname('orderno').Value;
// FieldByName('Piece').Value := frmTatPlanSel.CDS_1.fieldbyname('SumPiece').Value;
// FieldByName('Qty').Value := frmTatPlanSel.CDS_1.fieldbyname('SumStkGrossWeight').Value;
end;
// end;
CDS_1.Edit;
CDS_1.fieldbyname('SSel').value := false;
end;
end;
end;
finally
frmTatPlanSel.Free;
end;
end;
procedure TfrmTatDRtInPut.ToolButton6Click(Sender: TObject);
11/12 17.30
2025-11-20 17:32:01 +08:00
var
LocateValues: variant;
12345
2025-11-14 15:11:06 +08:00
begin
try
frmTatClothStkHZListSEL := tfrmTatClothStkHZListSEL.Create(Application);
with frmTatClothStkHZListSEL do
begin
if ShowModal = 1 then
begin
while CDS_1.locate('SSel', true, []) do
begin
11/12 17.30
2025-11-20 17:32:01 +08:00
// if not self.Order_Sub.locate('C_name', trim(frmTatClothStkHZListSEL.CDS_1.Fieldbyname('C_Name').AsString), []) then
// begin
// with Self.Order_Sub do
// begin
// Append;
// FieldByName('C_code').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_code').Value;
// FieldByName('C_Name').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_Name').Value;
// FieldByName('C_width').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_width').Value;
//
// FieldByName('C_GramWeight').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_GramWeight').Value;
// FieldByName('C_color').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_color').Value;
// FieldByName('Piece').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('js').Value;
// FieldByName('Qty').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('stkmeter').Value;
//
// end;
// end;
LocateValues := VarArrayOf([trim(frmTatClothStkHZListSEL.CDS_1.Fieldbyname('C_Name').AsString), trim(frmTatClothStkHZListSEL.CDS_1.Fieldbyname('C_width').AsString), trim(frmTatClothStkHZListSEL.CDS_1.Fieldbyname('C_GramWeight').AsString)]);
if self.Order_Sub.locate('C_name;C_width;C_GramWeight', LocateValues, []) then
begin
// <20><><EFBFBD><EFBFBD><EFBFBD>ֶζ<D6B6>ƥ<EFBFBD>䣬ִ<E4A3AC>б༭ - <20><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>ͬ<EFBFBD><CDAC>¼<EFBFBD><C2BC><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
with Self.Order_Sub do
begin
Edit;
FieldByName('Piece').AsFloat := FieldByName('Piece').AsFloat + frmTatClothStkHZListSEL.CDS_1.fieldbyname('js').AsFloat;
FieldByName('Qty').AsFloat := FieldByName('Qty').AsFloat + frmTatClothStkHZListSEL.CDS_1.fieldbyname('stkmeter').AsFloat;
Post; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Post<73><74><EFBFBD><EFBFBD><EFBFBD>༭
end;
end
else
12345
2025-11-14 15:11:06 +08:00
begin
11/12 17.30
2025-11-20 17:32:01 +08:00
// <20><><EFBFBD><EFBFBD><EFBFBD>ֶβ<D6B6><CEB2><EFBFBD>ȫƥ<C8AB>䣬<EFBFBD><E4A3AC><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD>¼
12345
2025-11-14 15:11:06 +08:00
with Self.Order_Sub do
begin
Append;
FieldByName('C_code').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_code').Value;
FieldByName('C_Name').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_Name').Value;
12.13 17.34
2025-12-13 17:34:42 +08:00
FieldByName('issp').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('issp').Value;
12345
2025-11-14 15:11:06 +08:00
FieldByName('C_width').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_width').Value;
FieldByName('C_GramWeight').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_GramWeight').Value;
FieldByName('C_color').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_color').Value;
FieldByName('Piece').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('js').Value;
FieldByName('Qty').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('stkmeter').Value;
11/12 17.30
2025-11-20 17:32:01 +08:00
Post; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Post<73><74><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
12345
2025-11-14 15:11:06 +08:00
end;
end;
11/12 17.30
2025-11-20 17:32:01 +08:00
12345
2025-11-14 15:11:06 +08:00
CDS_1.Edit;
CDS_1.fieldbyname('SSel').value := false;
end;
end;
end;
finally
frmTatClothStkHZListSEL.Free;
end;
end;
11/12 17.30
2025-11-20 17:32:01 +08:00
procedure TfrmTatDRtInPut.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
if (Order_Sub.FieldByName('DlyQty').AsString = '') and (Order_Sub.FieldByName('Volume').AsString = '') then
begin
Tv1Piece.Options.Editing := True;
Tv1Qty.Options.Editing := True;
Tv1PINGFANG.Options.Editing := True;
end
else
begin
Tv1Piece.Options.Editing := False;
Tv1Qty.Options.Editing := False;
Tv1PINGFANG.Options.Editing := False;
end;
end;
12345
2025-11-14 15:11:06 +08:00
procedure TfrmTatDRtInPut.ToCoNameBtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '<27>ͻ<EFBFBD>';
if canshu1 = '¼<><C2BC>' then
begin
FAuthority := '<27><><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5>';
end;
if ShowModal = 1 then
begin
self.ToCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.ToCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
12.9
2025-12-09 17:30:02 +08:00
self.ToCoID.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoID').AsString);
12345
2025-11-14 15:11:06 +08:00
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTatDRtInPut.ToCoNameBtnDnClick(Sender: TObject);
begin
ToCoName.Text := '';
end;
end.
Reference in New Issue Copy Permalink