Group_99/D10xhGemei
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
712a737739
D10xhGemei/T02贸易汇总仓库/U_ItemizedListInPut.pas

1378 lines
38 KiB
ObjectPascal
Raw Normal View History

码单登记
2025-02-19 14:05:29 +08:00
unit U_ItemizedListInPut;
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,
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus,
cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox,
dxDateRanges, dxBarBuiltInMenu, cxPC, System.ImageList, Vcl.ImgList,
U_BaseInput, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI,
dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
325
2025-03-20 16:38:30 +08:00
dxCore, cxDateUtils, Clipbrd, cxDBLookupComboBox, System.JSON, uSZHN_JSON;
码单登记
2025-02-19 14:05:29 +08:00
type
TfrmItemizedListInPut = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
GPM_1: TcxGridPopupMenu;
ADOQueryLabel: TADOQuery;
ADO_I1: TADOQuery;
DS_I1: TDataSource;
ToolButton3: TToolButton;
IdFTP1: TIdFTP;
ADO_I2: TADOQuery;
DS_I2: TDataSource;
ToolBar2: TToolBar;
ToolButton4: TToolButton;
上下键增行
2025-02-24 13:42:25 +08:00
btnAdd: TToolButton;
码单登记
2025-02-19 14:05:29 +08:00
ToolButton2: TToolButton;
Panel2: TPanel;
Panel3: TPanel;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column11: TcxGridDBColumn;
v1PRTColor: TcxGridDBColumn;
VC_PRTPs: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Tv1Column1: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
ScrollBox1: TScrollBox;
Label3: TLabel;
Label1: TLabel;
Label2: TLabel;
Label14: TLabel;
TIMNo: TcxTextEdit;
TIMNote: TMemo;
OopCoName: TcxButtonEdit;
TIMDate: TcxDateEdit;
PopupMenu2: TPopupMenu;
N3: TMenuItem;
N4: TMenuItem;
GPM_2: TcxGridPopupMenu;
CDS_2: TClientDataSet;
DS_2: TDataSource;
ADO_2: TADOQuery;
ADO_YQ: TADOQuery;
ADO_1: TADOQuery;
Label4: TLabel;
TIMType: TcxComboBox;
码单登记打印标签
2025-02-21 15:28:49 +08:00
Tv1Column5: TcxGridDBColumn;
DS_PM: TDataSource;
ADO_PM: TADOQuery;
ADO_YS: TADOQuery;
DS_YS: TDataSource;
复制excel
2025-02-22 17:41:53 +08:00
ToolButton5: TToolButton;
供应商品名
2025-02-26 09:31:39 +08:00
Tv1Column6: TcxGridDBColumn;
DS_RCPM: TDataSource;
ADO_RCPM: TADOQuery;
优化
2025-03-06 16:38:54 +08:00
ToolButton1: TToolButton;
码单登记
2025-02-19 14:05:29 +08:00
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
上下键增行
2025-02-24 13:42:25 +08:00
procedure btnAddClick(Sender: TObject);
码单登记
2025-02-19 14:05:29 +08:00
procedure ToolButton2Click(Sender: TObject);
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column5PropertiesEditValueChanged(Sender: TObject);
procedure HYTTBtnUpClick(Sender: TObject);
procedure KYTTBtnUpClick(Sender: TObject);
procedure v1OrderUnitPropertiesEditValueChanged(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure TechnicsBtnUpClick(Sender: TObject);
procedure TechnicsBtnDnClick(Sender: TObject);
procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton4Click(Sender: TObject);
procedure OurCoNameDblClick(Sender: TObject);
procedure ShippingAddressPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
码单登记打印标签
2025-02-21 15:28:49 +08:00
procedure Tv1Column7PropertiesEditValueChanged(Sender: TObject);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Tv1Column5PropertiesEditValueChanged(Sender: TObject);
复制excel
2025-02-22 17:41:53 +08:00
procedure ToolButton5Click(Sender: TObject);
供应商品名
2025-02-26 09:31:39 +08:00
procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject);
优化
2025-03-06 16:38:54 +08:00
procedure ToolButton1Click(Sender: TObject);
码单登记
2025-02-19 14:05:29 +08:00
private
FSCXDH: string;
上下键增行
2025-02-24 13:42:25 +08:00
FShowKeyid: integer;
码单登记
2025-02-19 14:05:29 +08:00
procedure InitData();
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
function SaveData(): Boolean;
function getTMMNo(fconNo: string): string;
procedure SetXH();
procedure initGrid1(MTIMID: string);
上下键增行
2025-02-24 13:42:25 +08:00
procedure HotyKey(var msg: TMessage); message WM_HOTKEY; //<2F><><EFBFBD>ݼ<EFBFBD>
码单登记
2025-02-19 14:05:29 +08:00
{ Private declarations }
public
PState, CopyInt, PriceFlag: Integer;
FTIMID, FFTMMID, FTMMNo, MTMSId: string;
FXS: Integer;
canshu1: string;
fFlileFlag: string;
fordtype: string;
{ Public declarations }
end;
var
frmItemizedListInPut: TfrmItemizedListInPut;
newh: hwnd;
implementation
uses
复制excel
2025-02-22 17:41:53 +08:00
U_DataLink, U_ZDYHelp, U_RPFun, U_CustomFun, U_RTFun, U_CompanySel,
U_ClothInfoSel, U_ItemizedListQtyInPut;
码单登记
2025-02-19 14:05:29 +08:00
{$R *.dfm}
procedure TfrmItemizedListInPut.initGrid1(MTIMID: string);
var
SqlStr: string;
begin
SqlStr := ' select * from Trade_ItemizedList_Sub where TIMID = ' + QUOTEDSTR(Trim(MTIMID));
InitCDSData(ADO_1, CDS_1, Tv1, SqlStr, '', 'TISID');
end;
上下键增行
2025-02-24 13:42:25 +08:00
procedure TfrmItemizedListInPut.HotyKey(var msg: TMessage);
begin
// if msg.LParamHi = VK_LEFT then
// begin
// tsave.click;
// end;
// if msg.LParamHi = VK_UP then
// begin
// ToolButton7.click;
// end;
// if msg.LParamHi = VK_RIGHT then
// begin
// ToolButton8.click;
// end;
if msg.LParamHi = VK_DOWN then
begin
with TV1.DataController.DataSource.DataSet do
begin
Next;
if Eof then
begin
btnAdd.click;
end;
end;
end;
// if msg.LParamHi = VK_ADD then
// begin
// ToolButton3.click;
// end;
// if msg.LParamHi = VK_SUBTRACT then
// begin
// TClose.click;
// end;
end;
码单登记
2025-02-19 14:05:29 +08:00
procedure TfrmItemizedListInPut.SetXH();
var
i: Integer;
begin
with CDS_1 do
begin
First;
i := 1;
while not Eof do
begin
with CDS_1 do
begin
Edit;
FieldByName('XHNoTemp').Value := i;
Post;
end;
i := i + 1;
Next;
end;
end;
with CDS_1 do
begin
CDS_1.IndexFieldNames := '';
First;
i := 1;
while not Eof do
begin
with CDS_1 do
begin
Edit;
FieldByName('SerialNo').Value := FieldByName('XHNoTemp').AsInteger;
Post;
end;
i := i + 1;
Next;
end;
CDS_1.IndexFieldNames := 'SerialNo';
end;
end;
function TfrmItemizedListInPut.getTMMNo(fconNo: string): string;
var
str1: string;
i: integer;
begin
str1 := trim(fconNo) + '01';
with ADOTemp do
begin
close;
sql.Clear;
sql.Add('select TIMID from Trade_Plan_Main where TIMNo=' + quotedstr(trim(str1)));
open;
end;
if not ADOTemp.IsEmpty then
begin
for i := 1 to 99 do
begin
str1 := trim(fconNo) + rightstr(inttostr(100 + i), 2);
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('select TIMID from Trade_Plan_Main where TIMNo=' + quotedstr(trim(str1)));
open;
end;
if ADOCmd.IsEmpty then
break;
end;
end;
result := str1;
end;
procedure TfrmItemizedListInPut.TBCloseClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmItemizedListInPut.InitData();
var
FDate: TDateTime;
begin
FDate := SGetServerDateTime(ADOTemp);
TIMDate.Date := FDate;
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Trade_ItemizedList_Main where TIMID=''' + Trim(FTIMID) + '''');
Open;
end;
SCSHData(ADOTemp, ScrollBox1, 0);
OopCoName.Properties.LookupItems.Text := Trim(ADOTemp.FieldByName('CustNo').AsString);
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_ItemizedList_Sub where 1=1 ');
if PState = 1 then
begin
sql.Add(' and TIMID=''' + Trim(FTIMID) + '''');
end;
if PState = 0 then
begin
sql.Add(' and 1<>1');
end;
Open;
end;
SCreateCDS(ADOTemp, CDS_1);
SInitCDSData(ADOTemp, CDS_1);
if PState = 0 then
begin
TIMDate.Date := SGetServerDate(ADOTemp);
TIMNo.Text := '';
// TIMNo.Enabled := True;
end;
if CopyInt = 99 then
begin
PState := 0;
FTIMID := '';
TIMNo.Text := '';
// TIMNo.Enabled := True;
TIMDate.Date := FDate;
with CDS_1 do
begin
First;
while not Eof do
begin
Edit;
FieldByName('TIMID').Value := '';
FieldByName('TMSId').Value := '';
Post;
Next;
end;
end;
end;
end;
procedure TfrmItemizedListInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string);
var
FType, ZDYName, FText: string;
begin
end;
procedure TfrmItemizedListInPut.FormShow(Sender: TObject);
var
i: Integer;
begin
inherited;
325
2025-03-20 16:38:30 +08:00
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_BS_CloInfo_Hot ');
ExecSQL;
end;
码单登记
2025-02-19 14:05:29 +08:00
readCxGrid(TRIM(SELF.Caption) + 'Tv1', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
readCxGrid(TRIM(SELF.Caption) + 'Tv2', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
TIMNo.Text := '';
fFlileFlag := UserDataFlag + 'HX';
InitData();
码单登记打印标签
2025-02-21 15:28:49 +08:00
with ADO_PM do
begin
Close;
sql.Clear;
325
2025-03-20 16:38:30 +08:00
sql.Add(' SELECT C_Code,C_Name,qtyunit FROM Bs_Cloth_Info order by HotQty desc ');
码单登记打印标签
2025-02-21 15:28:49 +08:00
Open;
end;
上下键增行
2025-02-24 13:42:25 +08:00
with ADO_YS do
begin
Close;
sql.Clear;
sql.Add(' SELECT A.C_Code,B.C_Color,B.C_ColorNo FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID ');
sql.Add(' where 1=2 ');
Open;
end;
供应商品名
2025-02-26 09:31:39 +08:00
with ADO_RCPM do
begin
Close;
sql.Clear;
sql.Add(' SELECT C_GYSNAME FROM BS_Cloth_Info_GYSCP');
Open;
end;
上下键增行
2025-02-24 13:42:25 +08:00
FShowKeyid := GlobalAddAtom('mykey_show');
// RegisterHotKey(handle, FShowKeyid, 0, VK_LEFT); //<2F><>
// RegisterHotKey(handle, FShowKeyid, 0, VK_UP); //<2F><>
// RegisterHotKey(handle, FShowKeyid, 0, VK_RIGHT); //<2F><>
RegisterHotKey(handle, FShowKeyid, 0, VK_DOWN); //<2F><>
// RegisterHotKey(handle, FShowKeyid, 0, VK_ADD); //+
// RegisterHotKey(handle, FShowKeyid, 0, VK_SUBTRACT); //-
码单登记
2025-02-19 14:05:29 +08:00
end;
function TfrmItemizedListInPut.SaveData(): Boolean;
var
maxno, Smaxno, maxTMMNo, MaxFNo: string;
begin
try
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if Trim(FTIMID) = '' then
begin
if GetLSNo(ADOCmd, maxno, 'DD', 'Trade_ItemizedList_Main', 3, 1) = False then
raise Exception.Create('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!');
end
else
begin
maxno := Trim(FTIMID);
end;
if TIMNo.Text = '' then
TIMNo.Text := maxno;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from Trade_ItemizedList_Main where TIMID=''' + Trim(FTIMID) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(FTIMID) = '' 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, 'Trade_ItemizedList_Main', ScrollBox1, 0);
FieldByName('TIMID').Value := Trim(maxno);
FieldByName('OopCoNo').Value := Trim(OopCoName.Properties.LookupItems.Text);
Post;
end;
///////////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD> ///////////////////////////
with CDS_1 do
begin
复制excel
2025-02-22 17:41:53 +08:00
DisableControls;
码单登记
2025-02-19 14:05:29 +08:00
First;
while not Eof do
begin
if Trim(CDS_1.fieldbyname('TISId').AsString) = '' then
begin
if GetLSNo(ADOCmd, Smaxno, 'JS', 'Trade_ItemizedList_Sub', 4, 1) = False then
raise Exception.Create('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD><CAA7>!');
end
else
begin
Smaxno := Trim(CDS_1.fieldbyname('TISId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Trade_ItemizedList_Sub where TIMID=''' + Trim(maxno) + '''');
sql.Add(' and TISId=''' + Trim(Smaxno) + '''');
Open;
end;
with ADOCmd do
begin
if ADOCmd.IsEmpty then
Append
else
Edit;
RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_ItemizedList_Sub', 0);
FieldByName('TIMID').Value := Trim(maxno);
FieldByName('TISId').Value := Trim(Smaxno);
Post;
end;
Next;
end;
end;
///////////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD> ///////////////////////////
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Trade_ItemizedList_Main where TIMNo=''' + Trim(TIMNo.Text) + '''');
Open;
end;
if ADOCmd.RecordCount > 1 then
raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>!');
with ADOCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_BS_Cloth_UpdateByItemizedList ');
Sql.Add(' @TIMId=' + quotedstr(Trim(maxno)));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
Open;
end;
if ADOCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOCmd.FieldByName('ShowMsg').AsString)));
ADOCmd.Connection.CommitTrans;
复制excel
2025-02-22 17:41:53 +08:00
码单登记
2025-02-19 14:05:29 +08:00
FTIMID := Trim(maxno);
initGrid1(FTIMID);
复制excel
2025-02-22 17:41:53 +08:00
CDS_1.EnableControls;
码单登记
2025-02-19 14:05:29 +08:00
Result := True;
except
ADOCmd.Connection.RollbackTrans;
复制excel
2025-02-22 17:41:53 +08:00
Result := False;
CDS_1.EnableControls;
码单登记
2025-02-19 14:05:29 +08:00
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmItemizedListInPut.TBSaveClick(Sender: TObject);
var
MAXNO1: string;
begin
ToolBar1.SetFocus;
if CDS_1.IsEmpty then
begin
Application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if CDS_1.Locate('TISUnit', null, []) then
begin
Application.MessageBox('<27><>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if CDS_1.Locate('TISQty', null, []) then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if CDS_1.Locate('Price', null, []) then
begin
Application.MessageBox('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if SaveData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
// CDS_1.EmptyDataSet;
// PState := 0;
// FTIMID := '';
// OopCoName.Text := '';
// TIMNo.Text := '';
// OrdNote.Text := '';
end;
end;
上下键增行
2025-02-24 13:42:25 +08:00
procedure TfrmItemizedListInPut.btnAddClick(Sender: TObject);
码单登记
2025-02-19 14:05:29 +08:00
var
Smaxno: string;
复制excel
2025-02-22 17:41:53 +08:00
MSerialNo: Double;
码单登记
2025-02-19 14:05:29 +08:00
begin
复制excel
2025-02-22 17:41:53 +08:00
// CopyAddRow(Tv1, cds_1);
码单登记
2025-02-19 14:05:29 +08:00
if GetLSNo(ADOCmd, Smaxno, 'JS', 'Trade_ItemizedList_Sub', 4, 1) = False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
with cds_1 do
begin
上下键增行
2025-02-24 13:42:25 +08:00
DisableControls;
复制excel
2025-02-22 17:41:53 +08:00
MSerialNo := FieldByName('SerialNo').AsFloat + 0.1;
Append;
FieldByName('SerialNo').Value := MSerialNo;
码单登记
2025-02-19 14:05:29 +08:00
FieldByName('TISId').Value := Smaxno;
复制excel
2025-02-22 17:41:53 +08:00
FieldByName('Price').Value := 0;
FieldByName('TISPiece').Value := 0;
FieldByName('TISQty').Value := 0;
码单登记
2025-02-19 14:05:29 +08:00
FieldByName('TISUnit').Value := 'M';
Post;
上下键增行
2025-02-24 13:42:25 +08:00
SetXH();
EnableControls;
end;
码单登记
2025-02-19 14:05:29 +08:00
end;
优化
2025-03-06 16:38:54 +08:00
procedure TfrmItemizedListInPut.ToolButton1Click(Sender: TObject);
var
MFiltration: string;
325
2025-03-20 16:38:30 +08:00
MPrintJson, MTISIds: string;
JSONObject: TJSONObject; // JSON<4F><4E>
优化
2025-03-06 16:38:54 +08:00
begin
if FTIMID = '' then
Exit;
325
2025-03-20 16:38:30 +08:00
MTISIds := SelCDSKey(CDS_1, ['TISId'])[0];
优化
2025-03-06 16:38:54 +08:00
with ADOQueryBaseTemp do
begin
close;
sql.Clear;
sql.Add(' select Filtration= SUBSTRING(CAST((select distinct '','' +A.BCIOID from BS_Cloth_IO A ');
sql.Add(' where A.IOFlag=''<27><><EFBFBD><EFBFBD>'' ');
325
2025-03-20 16:38:30 +08:00
sql.Add(' and exists(SELECT * from [dbo].[F_Tool_SplitString](' + quotedstr(MTISIds) + ','','') SP where SP.RTValue=A.TISId ) ');
优化
2025-03-06 16:38:54 +08:00
sql.Add(' for xml path('''') ) AS VARCHAR(max)) , 2, 8000)');
open;
end;
MFiltration := Trim(ADOQueryBaseTemp.FieldByName('Filtration').AsString);
MPrintJson := ' {"LMType": "TradeFinishClothInPrt1" ';
MPrintJson := MPrintJson + ' ,"PreviewPrint": true ';
MPrintJson := MPrintJson + ' ,"PrtArgs": [ { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" } ] } ';
325
2025-03-20 16:38:30 +08:00
JSONObject := TJSONObject.ParseJSONValue(FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson))) as TJSONObject;
if JSONObject.B['succsee'] then
begin
try
ADOCmd.Connection.BeginTrans;
with ADOCmd do
begin
Close;
Sql.Clear;
sql.add('update Trade_ItemizedList_Sub set PrtCount=PrtCount+1');
sql.add('where exists(select * from [dbo].[F_Tool_SplitString](' + quotedstr(MTISIds) + ','','') X where X.RTVALUE=Trade_ItemizedList_Sub.TISId )');
ExecSQL;
end;
ADOCmd.Connection.CommitTrans;
except
ADOCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
优化
2025-03-06 16:38:54 +08:00
end;
码单登记
2025-02-19 14:05:29 +08:00
procedure TfrmItemizedListInPut.ToolButton2Click(Sender: TObject);
begin
begin
if CDS_1.IsEmpty then
Exit;
if CDS_1.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><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;
try
CDS_1.DisableControls;
ADOCmd.Connection.BeginTrans;
while CDS_1.Locate('SSel', true, []) do
begin
码单登记打印标签
2025-02-21 15:28:49 +08:00
if Trim(CDS_1.fieldbyname('TISId').AsString) <> '' then
码单登记
2025-02-19 14:05:29 +08:00
begin
with ADOCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_Trade_ItemizedList_Sub_Del ');
Sql.Add(' @TISId=' + quotedstr(trim(CDS_1.FieldByName('TISId').AsString)));
Sql.Add(',@DCode=' + Quotedstr(DCode));
Sql.Add(',@DName=' + Quotedstr(DName));
Open;
end;
if ADOCmd.FieldByName('intReturn').AsInteger = -1 then
begin
raise Exception.Create(pchar(trim(ADOCmd.FieldByName('ShowMsg').AsString)));
end;
end;
CDS_1.Delete;
end;
ADOCmd.Connection.CommitTrans;
CDS_1.EnableControls;
except
ADOCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
CDS_1.EnableControls;
end;
end;
end;
procedure TfrmItemizedListInPut.ToolButton3Click(Sender: TObject);
begin
WriteCxGrid(TRIM(SELF.Caption) + 'Tv1', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure TfrmItemizedListInPut.ToolButton4Click(Sender: TObject);
var
i: Integer;
maxno: string;
begin
inherited;
try
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
with frmClothInfoSel do
begin
if ShowModal = 1 then
begin
// while CDS_1.locate('SSel', true, []) do
begin
if self.CDS_1.locate('C_Code', trim(CDS_1.Fieldbyname('C_Code').AsString), []) then
begin
CDS_1.Edit;
CDS_1.fieldbyname('SSel').value := false;
// continue;
end;
i := cds_1.RecordCount;
with CDS_3 do
begin
DisableControls;
First;
while not eof do
begin
if FieldByName('SSEL').AsBoolean then
begin
i := i + 1;
if GetLSNo(ADOTemp, maxno, 'JS', 'Trade_ItemizedList_Sub', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
with self.CDS_1 do
begin
append;
FieldByName('SSel').Value := false;
FieldByName('SerialNo').Value := IntToStr(i);
FieldByName('TISId').Value := Trim(maxno);
FieldByName('TMSUnit').Value := 'M';
Fieldbyname('C_Code').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Code').AsString);
Fieldbyname('C_Name').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString);
Fieldbyname('C_Spec').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString);
Fieldbyname('C_Composition').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString);
Fieldbyname('C_Width').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Width').AsString);
Fieldbyname('C_GramWeight').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString);
// Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_ColorNo').AsString);
// Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Color').AsString);
// Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Pattern').AsString);
Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_ColorNo').AsString);
Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_Color').AsString);
Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_Pattern').AsString);
// Fieldbyname('C_StyleNo').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_StyleNo').AsString);
// Fieldbyname('SerialNo').value := 999;
end;
end;
Next;
end;
EnableControls;
end;
// with self.CDS_1 do
// begin
// append;
// FieldByName('SSel').Value := false;
// FieldByName('SerialNo').Value := IntToStr(i);
// FieldByName('TISId').Value := Trim(maxno);
// FieldByName('TMSUnit').Value := 'M';
// Fieldbyname('C_Code').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Code').AsString);
// Fieldbyname('C_Name').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString);
// Fieldbyname('C_Spec').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString);
// Fieldbyname('C_Composition').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString);
// Fieldbyname('C_Width').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Width').AsString);
// Fieldbyname('C_GramWeight').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString);
//
// Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_ColorNo').AsString);
// Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Color').AsString);
// Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Pattern').AsString);
//
// end;
// CDS_1.Edit;
// CDS_1.fieldbyname('SSel').value := false;
end;
end;
end;
finally
frmClothInfoSel.Free;
end;
end;
复制excel
2025-02-22 17:41:53 +08:00
procedure TfrmItemizedListInPut.ToolButton5Click(Sender: TObject);
var
MFiltration: string;
MPrintJson: string;
325
2025-03-20 16:38:30 +08:00
JSONObject: TJSONObject; // JSON<4F><4E>
复制excel
2025-02-22 17:41:53 +08:00
begin
if FTIMID = '' then
Exit;
with ADOQueryBaseTemp do
begin
close;
sql.Clear;
sql.Add(' select Filtration= SUBSTRING(CAST((select distinct '','' +A.BCIOID from BS_Cloth_IO A ');
sql.Add(' where A.IOFlag=''<27><><EFBFBD><EFBFBD>'' and TIMID= ' + quotedstr(Trim(FTIMID)));
优化
2025-03-06 16:38:54 +08:00
sql.Add(' for xml path('''') ) AS VARCHAR(max)) , 2, 8000)');
复制excel
2025-02-22 17:41:53 +08:00
open;
end;
MFiltration := Trim(ADOQueryBaseTemp.FieldByName('Filtration').AsString);
MPrintJson := ' {"LMType": "TradeFinishClothInPrt1" ';
MPrintJson := MPrintJson + ' ,"PreviewPrint": true ';
MPrintJson := MPrintJson + ' ,"PrtArgs": [ { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" } ] } ';
325
2025-03-20 16:38:30 +08:00
JSONObject := TJSONObject.ParseJSONValue(FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson))) as TJSONObject;
if JSONObject.B['succsee'] then
begin
try
ADOCmd.Connection.BeginTrans;
with ADOCmd do
begin
Close;
Sql.Clear;
sql.add('update Trade_ItemizedList_Sub set PrtCount=PrtCount+1');
sql.Add(' where TIMID= ' + quotedstr(Trim(FTIMID)));
ExecSQL;
end;
ADOCmd.Connection.CommitTrans;
except
ADOCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
复制excel
2025-02-22 17:41:53 +08:00
end;
码单登记
2025-02-19 14:05:29 +08:00
procedure TfrmItemizedListInPut.TechnicsBtnDnClick(Sender: TObject);
begin
TcxButtonEdit(Sender).Text := '';
TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
end;
procedure TfrmItemizedListInPut.TechnicsBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TcxTextEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmItemizedListInPut.CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
码单登记打印标签
2025-02-21 15:28:49 +08:00
if TIMType.Text = '<27>ͻ<EFBFBD><CDBB>˻<EFBFBD>' then
FCoType := '<27>ͻ<EFBFBD>'
else
FCoType := '<27><>Ӧ<EFBFBD><D3A6>';
码单登记
2025-02-19 14:05:29 +08:00
if ShowModal = 1 then
begin
self.OopCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.OopCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmItemizedListInPut.N3Click(Sender: TObject);
begin
SelOKNo(CDS_1, True); //ȫѡ
end;
procedure TfrmItemizedListInPut.N4Click(Sender: TObject);
begin
inherited;
SelOKNo(CDS_1, False); //ȫѡ
end;
procedure TfrmItemizedListInPut.OurCoNameDblClick(Sender: TObject);
begin
TcxButtonEdit(Sender).Text := '';
TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
end;
procedure TfrmItemizedListInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
mvalues: string;
begin
mvalues := tv1.Columns[tv1.Controller.FocusedColumn.index].DataBinding.FieldName;
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'OrderUnit';
flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
if ShowModal = 1 then
begin
Self.CDS_1.Edit;
Self.CDS_1.FieldByName(mvalues).Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmItemizedListInPut.v1OrderUnitPropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName, YValue: string;
FDDQty, FCPCDXS, FQty, FDKCQty: Double;
begin
mvalue := TcxComboBox(Sender).EditingText; //<2F>仯<EFBFBD><E4BBAF><EFBFBD><EFBFBD>λ
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
YValue := FieldByName('DDQtyUnit').AsString; //ԭ<><D4AD>λ=<3D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ
FDDQty := FieldByName('DDQty').AsFloat; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
FCPCDXS := FieldByName('CPCDXS').AsFloat;
FDKCQty := FieldByName('DKCQty').AsFloat;
FQty := FieldByName('PRTOrderQty').AsFloat;
end;
if mvalue = 'Kg' then
begin
if YValue = 'Y' then
begin
FQty := FDDQty * 0.9144 / FCPCDXS;
end;
if YValue = 'M' then
begin
FQty := FDDQty / FCPCDXS;
end;
if YValue = 'Kg' then
begin
FQty := FDDQty;
end;
end;
if mvalue = 'M' then
begin
if YValue = 'Y' then
begin
FQty := FDDQty * 0.9144;
end;
if YValue = 'Kg' then
begin
FQty := FDDQty * FCPCDXS;
end;
if YValue = 'M' then
begin
FQty := FDDQty;
end;
end;
if mvalue = 'Y' then
begin
if YValue = 'M' then
begin
FQty := FDDQty / 0.9144;
end;
if YValue = 'Kg' then
begin
FQty := FDDQty * FCPCDXS / 0.9144;
end;
if YValue = 'Y' then
begin
FQty := FDDQty;
end;
end;
with CDS_1 do
begin
Edit;
FieldByName('PRTOrderQty').Value := FQty - FDKCQty;
Post;
end;
Tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmItemizedListInPut.v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'PriceUnit';
flagname := '<27>۸<EFBFBD><DBB8><EFBFBD>λ';
if Trim(DParameters1) <> '<27><>Ȩ<EFBFBD><C8A8>' then
begin
TBAdd.Visible := False;
TBEdit.Visible := False;
TBDel.Visible := False;
end;
if ShowModal = 1 then
begin
Self.CDS_1.Edit;
Self.CDS_1.FieldByName('PriceUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmItemizedListInPut.ShippingAddressPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmItemizedListInPut.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
inherited;
try
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
with frmClothInfoSel do
begin
if ShowModal = 1 then
begin
with Self.CDS_1 do
begin
edit;
Fieldbyname('C_Code').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Code').AsString);
Fieldbyname('C_Name').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString);
Fieldbyname('C_Spec').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString);
Fieldbyname('C_Composition').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString);
Fieldbyname('C_Width').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Width').AsString);
Fieldbyname('C_GramWeight').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString);
码单登记打印标签
2025-02-21 15:28:49 +08:00
Fieldbyname('TISUnit').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('qtyunit').AsString);
CDS_3.Locate('ssel', True, []);
Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_ColorNo').AsString);
Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_Color').AsString);
Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_Pattern').AsString);
码单登记
2025-02-19 14:05:29 +08:00
post;
end;
end;
end;
finally
frmClothInfoSel.Free;
end;
供应商品名
2025-02-26 09:31:39 +08:00
with ADOTemp do
begin
close;
sql.Clear;
sql.Add(' select * from bs_cloth_info a inner join BS_Cloth_Info_GYSCP b on a.bciid=b.bciid ');
sql.Add('where c_code=' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
sql.Add('and factoryname=' + QuotedStr(OopCoName.Text));
open;
end;
if ADOTemp.IsEmpty = false then
begin
with Self.CDS_1 do
begin
edit;
Fieldbyname('C_Name').AsString := trim(ADOTemp.Fieldbyname('C_GYSNAME').AsString);
Post;
end;
end;
码单登记
2025-02-19 14:05:29 +08:00
end;
码单登记打印标签
2025-02-21 15:28:49 +08:00
procedure TfrmItemizedListInPut.Tv1Column5PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
mvalue := TcxTextEdit(Sender).EditingText;
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
Post;
ADO_YS.Locate('C_ColorNo', mvalue, []);
Edit;
FieldByName('C_Color').Value := ADO_YS.FieldByName('C_Color').Value;
Post;
end;
end;
供应商品名
2025-02-26 09:31:39 +08:00
procedure TfrmItemizedListInPut.Tv1Column6PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
mvalue := TcxTextEdit(Sender).EditingText;
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
Post;
ADO_rcPM.Locate('C_gysName', mvalue, []);
Edit;
Post;
end;
with ADOTemp do
begin
close;
sql.Clear;
sql.Add(' select * from bs_cloth_info a inner join BS_Cloth_Info_GYSCP b on a.bciid=b.bciid ');
sql.Add('where C_gysName=' + QuotedStr(CDS_1.FieldByName('C_gysName').AsString));
sql.Add('and factoryname=' + QuotedStr(OopCoName.Text));
open;
end;
if ADOTemp.IsEmpty = false then
begin
with Self.CDS_1 do
begin
edit;
Fieldbyname('C_Name').AsString := trim(ADOTemp.Fieldbyname('C_Name').AsString);
Post;
end;
end;
end;
码单登记打印标签
2025-02-21 15:28:49 +08:00
procedure TfrmItemizedListInPut.Tv1Column7PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
mvalue := TcxTextEdit(Sender).EditingText;
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
Post;
ADO_PM.Locate('C_Name', mvalue, []);
Edit;
FieldByName('C_Code').Value := ADO_PM.FieldByName('C_Code').Value;
1
2025-02-22 13:21:24 +08:00
FieldByName('TISUnit').Value := ADO_PM.FieldByName('qtyunit').Value;
码单登记打印标签
2025-02-21 15:28:49 +08:00
Post;
end;
供应商品名
2025-02-26 09:31:39 +08:00
with ADOTemp do
begin
close;
sql.Clear;
sql.Add(' select * from bs_cloth_info a inner join BS_Cloth_Info_GYSCP b on a.bciid=b.bciid ');
sql.Add('where c_name=' + QuotedStr(CDS_1.FieldByName('C_name').AsString));
sql.Add('and factoryname=' + QuotedStr(OopCoName.Text));
open;
end;
if ADOTemp.IsEmpty = false then
begin
with Self.CDS_1 do
begin
edit;
Fieldbyname('C_GYSNAME').AsString := trim(ADOTemp.Fieldbyname('C_GYSNAME').AsString);
Post;
end;
end;
码单登记打印标签
2025-02-21 15:28:49 +08:00
end;
码单登记
2025-02-19 14:05:29 +08:00
procedure TfrmItemizedListInPut.Tv1DblClick(Sender: TObject);
复制excel
2025-02-22 17:41:53 +08:00
var
MTISId, MQtyUnit: string;
码单登记
2025-02-19 14:05:29 +08:00
begin
if Trim(CDS_1.FieldByName('TISUnit').AsString) = '' then
begin
Application.MessageBox('<27><>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
复制excel
2025-02-22 17:41:53 +08:00
MTISId := Trim(Self.CDS_1.FieldByName('TISId').AsString);
MQtyUnit := Trim(Self.CDS_1.FieldByName('TISUnit').AsString);
码单登记
2025-02-19 14:05:29 +08:00
if SaveData() then
begin
try
frmItemizedListQtyInPut := TfrmItemizedListQtyInPut.Create(Application);
with frmItemizedListQtyInPut do
begin
FTIMId := Self.FTIMId;
复制excel
2025-02-22 17:41:53 +08:00
FTISId := MTISId;
FQtyUnit := MQtyUnit;
码单登记
2025-02-19 14:05:29 +08:00
if ShowModal = 1 then
begin
Self.initGrid1(Self.FTIMID);
end;
end;
finally
frmItemizedListQtyInPut.Free;
end;
end;
end;
码单登记打印标签
2025-02-21 15:28:49 +08:00
procedure TfrmItemizedListInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if not ADO_YS.IsEmpty then
begin
if ADO_YS.FieldByName('C_Code').AsString <> CDS_1.FieldByName('C_Code').AsString then
begin
with ADO_YS do
begin
Close;
sql.Clear;
sql.Add(' SELECT A.C_Code,B.C_Color,B.C_ColorNo FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID ');
sql.Add(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
Open;
end;
end;
end
else
begin
with ADO_YS do
begin
Close;
sql.Clear;
sql.Add(' SELECT A.C_Code,B.C_Color,B.C_ColorNo FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID ');
sql.Add(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
Open;
end;
end;
end;
码单登记
2025-02-19 14:05:29 +08:00
procedure TfrmItemizedListInPut.v1Column5PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
FieldByName('MGTMMID').Value := '';
Post;
end;
Tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmItemizedListInPut.HYTTBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TcxTextEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmItemizedListInPut.KYTTBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TcxTextEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if Trim(flag) = 'OrdDefStr2' then
begin
V1Name.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
V1Note.Caption := 'Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
fnote := True;
end;
if ShowModal = 1 then
begin
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
end.
Reference in New Issue Copy Permalink