Group_99/D10xhGemei
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
f3de0a3270
D10xhGemei/T05贸易门市管理/U_TradeMarketList.pas

1034 lines
31 KiB
ObjectPascal
Raw Normal View History

退货申请
2024-12-17 17:25:32 +08:00
unit U_TradeMarketList;
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, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls,
RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
325
2025-03-20 16:38:30 +08:00
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore,
未完成版本
2025-08-11 17:32:22 +08:00
dxSkinsDefaultPainters, Vcl.DBCtrls, dxSkinBasic, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue;
退货申请
2024-12-17 17:25:32 +08:00
type
TfrmTradeMarketList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBAdd: TToolButton;
TBEdit: TToolButton;
TBDel: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxgrdpmn1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
1
2025-01-14 16:18:44 +08:00
TMMNo: TcxTextEdit;
退货申请
2024-12-17 17:25:32 +08:00
v1OrdDate: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
Order_Main: TClientDataSet;
TBCK: TToolButton;
btnCopy: TToolButton;
ADOQuerySub: TADOQuery;
DataSource2: TDataSource;
ToolButton4: TToolButton;
cxTabControl1: TcxTabControl;
Tchk: TToolButton;
Tnochk: TToolButton;
TWC: TToolButton;
TNowc: TToolButton;
ADOQueryImage: TADOQuery;
DSImage: TDataSource;
IdFTP1: TIdFTP;
TBTJ: TToolButton;
TBTJCX: TToolButton;
v1Column16: TcxGridDBColumn;
ORDER_SUB: TClientDataSet;
PopupMenu2: TPopupMenu;
N3: TMenuItem;
N4: TMenuItem;
Label1: TLabel;
1
2025-01-14 16:18:44 +08:00
CustName: TcxTextEdit;
退货申请
2024-12-17 17:25:32 +08:00
Tv1Column6: TcxGridDBColumn;
cxgrdpmn2: TcxGridPopupMenu;
Tv1Column2: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Label2: TLabel;
1
2025-01-14 16:18:44 +08:00
C_Name: TcxTextEdit;
退货申请
2024-12-17 17:25:32 +08:00
CDS_WXTS: TClientDataSet;
Label4: TLabel;
1
2025-01-14 16:18:44 +08:00
ConNo: TcxTextEdit;
退货申请
2024-12-17 17:25:32 +08:00
ToolButton2: TToolButton;
PM_1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
GPM_3: TcxGridPopupMenu;
Tv1Column4: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
frmFrameDateSel1: TfrmFrameDateSel;
0526
2025-05-26 14:27:08 +08:00
Tv1Column7: TcxGridDBColumn;
1
2025-06-05 16:03:45 +08:00
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
裁剪
2025-06-27 17:30:04 +08:00
ToolButton1: TToolButton;
Tv1Column11: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
未完成版本
2025-08-11 17:32:22 +08:00
N5: TMenuItem;
N6: TMenuItem;
退货申请
2024-12-17 17:25:32 +08:00
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure OrderNoMChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBTPClick(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure TBCKClick(Sender: TObject);
procedure btnCopyClick(Sender: TObject);
procedure TMMNoKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton4Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure TchkClick(Sender: TObject);
procedure TnochkClick(Sender: TObject);
procedure TWCClick(Sender: TObject);
procedure TNowcClick(Sender: TObject);
procedure TBTJClick(Sender: TObject);
procedure TBTJCXClick(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton10Click(Sender: TObject);
procedure JGTypeChange(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure ToolButton2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
裁剪
2025-06-27 17:30:04 +08:00
procedure ToolButton1Click(Sender: TObject);
未完成版本
2025-08-11 17:32:22 +08:00
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
退货申请
2024-12-17 17:25:32 +08:00
private
DQdate: TDateTime;
procedure InitGrid();
procedure InitForm();
function DelData(): Boolean;
procedure SetStatus();
procedure InitImage(fwbid: string);
procedure SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string);
{ Private declarations }
public
FFInt, FCloth: Integer;
1
2025-07-15 11:47:43 +08:00
canshu1, canshu2, canshu4: string;
退货申请
2024-12-17 17:25:32 +08:00
fFlileFlag: string;
FNOTE: string;
FOrdType: string;
{ Public declarations }
end;
未完成版本
2025-08-11 17:32:22 +08:00
var
frmTradeMarketList: TfrmTradeMarketList;
退货申请
2024-12-17 17:25:32 +08:00
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload,
U_TradeMarketInPut;
{$R *.dfm}
procedure TfrmTradeMarketList.InitImage(fwbid: string);
begin
ADOQueryImage.close;
if fwbid = '' then
exit;
with ADOQueryImage do
begin
close;
sql.Clear;
sql.Add('select * from TP_File A');
sql.Add('where WBID=' + quotedstr(trim(fwbid)));
open;
end;
end;
procedure TfrmTradeMarketList.SetStatus();
begin
btnCopy.Enabled := false;
tbadd.Enabled := false;
TBEdit.Enabled := False;
TBDel.Enabled := False;
TBTJ.Enabled := False;
TBTJCX.Enabled := False;
tchk.Enabled := false;
tnochk.Enabled := false;
TWC.Enabled := False;
TNowc.Enabled := False;
TBDel.Enabled := False;
case cxTabControl1.TabIndex of
0:
begin
tbadd.Enabled := True;
TBEdit.Enabled := True;
TBDel.Enabled := True;
TBDel.Enabled := True;
TBTJ.Enabled := True;
btnCopy.Enabled := True;
end;
1:
begin
TBTJCX.Enabled := True;
btnCopy.Enabled := True;
TBDel.Enabled := True;
tchk.Enabled := True;
end;
2:
begin
TWC.Enabled := True;
btnCopy.Enabled := True;
tnochk.Enabled := True;
end;
3:
begin
TNowc.Enabled := True;
btnCopy.Enabled := True;
end;
end;
end;
procedure TfrmTradeMarketList.JGTypeChange(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTradeMarketList.FormDestroy(Sender: TObject);
begin
inherited;
// frmProductOrderList:=nil;
end;
procedure TfrmTradeMarketList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmTradeMarketList.FormCreate(Sender: TObject);
begin
inherited;
cxgrid1.Align := alClient;
DQdate := SGetServerDate(ADOQueryTemp);
end;
procedure TfrmTradeMarketList.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTradeMarketList.InitGrid();
var
1
2025-06-05 16:03:45 +08:00
SqlStr, FilterStr: string;
退货申请
2024-12-17 17:25:32 +08:00
begin
1
2025-06-05 16:03:45 +08:00
FilterStr := SGetFilters(Panel1, 1, 2);
裁剪
2025-06-27 17:30:04 +08:00
SqlStr := ' exec P_Trade_Market_View ';
SqlStr := SqlStr + ' @BegDate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)));
SqlStr := SqlStr + ' ,@EndDate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)));
SqlStr := SqlStr + ' ,@StkPosition= ' + QuotedStr(Trim(canshu2));
1
2025-06-05 16:03:45 +08:00
if canshu1 = '¼<><C2BC>' then
裁剪
2025-06-27 17:30:04 +08:00
SqlStr := SqlStr + ' ,@Filler= ' + QuotedStr(Trim(DName));
1
2025-07-15 16:37:56 +08:00
SqlStr := SqlStr + ' ,@Stores= ' + QuotedStr(Trim(canshu4));
退货申请
2024-12-17 17:25:32 +08:00
case cxTabControl1.TabIndex of
0:
begin
裁剪
2025-06-27 17:30:04 +08:00
SqlStr := SqlStr + ' , @Status=''0'' ';
退货申请
2024-12-17 17:25:32 +08:00
end;
1:
begin
裁剪
2025-06-27 17:30:04 +08:00
SqlStr := SqlStr + ' , @Status=''1'' ';
退货申请
2024-12-17 17:25:32 +08:00
end;
2:
begin
裁剪
2025-06-27 17:30:04 +08:00
SqlStr := SqlStr + ' , @Status=''9'' ';
退货申请
2024-12-17 17:25:32 +08:00
end;
3:
begin
裁剪
2025-06-27 17:30:04 +08:00
SqlStr := SqlStr + ' , @Status=''10'' ';
退货申请
2024-12-17 17:25:32 +08:00
end;
end;
库位
2025-06-17 12:17:41 +08:00
InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, FilterStr, 'TMMId');
退货申请
2024-12-17 17:25:32 +08:00
end;
procedure TfrmTradeMarketList.SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string);
begin
// with ADOQueryTemp do
// begin
// Close;
// SQL.Clear;
// sql.Add('select distinct A.* from SY_User A inner join SY_Purview B on A.UserID=B.UserID where A.Valid=''Y'' ');
// SQL.Add('and isnull(A.wxid,'''')<>''''');
// SQL.Add(' and exists(select 1 from SY_ModuleSub X where X.ModuleID=B.ModuleID and X.ModuleSubID=B.ModuleSubID and X.FormName=''<27><><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' )');
//// showmessage(sql.text);
// Open;
// end;
// SCreateCDS(ADOQueryTemp, CDS_WXTS);
// SInitCDSData(ADOQueryTemp, CDS_WXTS);
//
// if CDS_WXTS.IsEmpty then
// begin
// Application.MessageBox('<27>û<EFBFBD>δ<EFBFBD><CEB4><EFBFBD><EFBFBD>΢<EFBFBD><CEA2>,<2C>ύʧ<E1BDBB>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
// Exit;
// end;
// CDS_WXTS.First;
// while not CDS_WXTS.eof do
// begin
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// SQL.Add('select * from WeixinMessage where 1<>1');
// Open;
// Append;
// FieldByName('MessageType').Value := 'OrderToAudit';
// FieldByName('MessageName').Value := '<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
// FieldByName('Title').Value := '<27><><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD><C2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
// FieldByName('URL').Value := 'subpages/plan/view?id=' + Trim(MDateId);
// FieldByName('OpenId').Value := Trim(CDS_WXTS.FieldByName('wxid').AsString);
// FieldByName('Status').Value := '0';
// FieldByName('CreateDate').Value := FormatDateTime('yyyymmdd', SGetServerDateTime(ADOQueryTemp));
// FieldByName('CreateTime').Value := FormatDateTime('HH:mm:ss', SGetServerDateTime(ADOQueryTemp));
// FieldByName('BusinessId').Value := Trim(MDateId);
// FieldByName('KeyWord1').Value := Trim(KeyWord1);
// FieldByName('KeyWord2').Value := Trim(KeyWord2);
// FieldByName('KeyWord3').Value := Trim(KeyWord3);
// FieldByName('Remark').Value := '<27><><EFBFBD><EFBFBD><EFBFBD>ɲ<EFBFBD>ѯ<EFBFBD><D1AF><EFBFBD>飡';
// Post;
// end;
// CDS_WXTS.Next;
// end;
//
// GetHTTP('http://aotang.rightsoft.top/api/message/send/OrderToAudit');
end;
procedure TfrmTradeMarketList.InitForm();
begin
ReadCxGrid('ָʾ<D6B8><CABE><EFBFBD>б<EFBFBD>FF1', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180;
frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
SetStatus();
InitGrid();
end;
procedure TfrmTradeMarketList.TBEditClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
try
frmTradeMarketInPut := TfrmTradeMarketInPut.Create(Application);
with frmTradeMarketInPut do
begin
PState := 1;
FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString);
FTMMNo := Trim(Self.Order_Main.fieldbyname('TMMNo').AsString);
canshu1 := self.canshu1;
1
2025-07-15 11:47:43 +08:00
canshu4 := self.canshu4;
退货申请
2024-12-17 17:25:32 +08:00
frmTradeMarketInPut.fordtype := self.fordtype;
if ShowModal = 1 then
begin
end;
end;
finally
frmTradeMarketInPut.Free;
end;
end;
procedure TfrmTradeMarketList.TBDelClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><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;
while Order_Main.Locate('SSel', true, []) do
begin
if Trim(Order_Main.fieldbyname('TMMId').AsString) <> '' then
begin
DelData()
end;
Order_Main.Delete;
end;
end;
function TfrmTradeMarketList.DelData(): Boolean;
begin
try
Result := false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Trade_Market_Main where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + '''');
sql.Add('delete Trade_Market_Sub where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + '''');
sql.Add('delete Trade_Market_Sub_Qty where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + '''');
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ţ<EFBFBD>' + trim(Order_Main.FieldByName('TMMNo').AsString))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
end;
end;
procedure TfrmTradeMarketList.TBPrintClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
1
2025-08-04 11:39:16 +08:00
退货申请
2024-12-17 17:25:32 +08:00
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
1
2025-08-04 11:39:16 +08:00
if canshu4 = '<27><><EFBFBD><EFBFBD>' then
FLMType := 'TradePlanPrintxy'
else
FLMType := 'TradePlanPrint';
退货申请
2024-12-17 17:25:32 +08:00
FFiltration1 := Trim(Order_Main.fieldbyname('TMMId').AsString);
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTradeMarketList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTradeMarketList.TBAddClick(Sender: TObject);
begin
try
frmTradeMarketInPut := TfrmTradeMarketInPut.Create(Application);
with frmTradeMarketInPut do
begin
PState := 0;
FTMMId := '';
canshu1 := self.canshu1;
1
2025-07-15 11:47:43 +08:00
canshu4 := self.canshu4;
退货申请
2024-12-17 17:25:32 +08:00
frmTradeMarketInPut.fordtype := self.fordtype;
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmTradeMarketInPut.Free;
end;
end;
procedure TfrmTradeMarketList.OrderNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmTradeMarketList.FormShow(Sender: TObject);
begin
inherited;
1
2025-06-05 16:03:45 +08:00
canshu1 := trim(self.fParameters1);
canshu2 := trim(self.fParameters2);
1
2025-07-15 16:37:56 +08:00
canshu4 := trim(self.fParameters4);
退货申请
2024-12-17 17:25:32 +08:00
fFlileFlag := UserDataFlag + 'HX';
cxTabControl1.TabIndex := 0;
InitForm();
end;
procedure TfrmTradeMarketList.TBTPClick(Sender: TObject);
var
FQty, FQty1, FMxQty, FPQty, FMxQtyS, FPQtyS: string;
begin
end;
procedure TfrmTradeMarketList.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTradeMarketList.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmTradeMarketList.Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
id, id10: Integer;
begin
{try
if Tv1.GroupedItemCount=0 then
begin
Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount;
Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount;
if Trim(VarToStr(ARecord.Values[id]))='' then Exit;
if Id<0 then Exit;
if ARecord.Values[id10]='<27><><EFBFBD><EFBFBD>' then exit;
if (ARecord.Values[id]-DQdate)>=4 then Exit;
if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then
AStyle:=DataLink_.QHuangSe
else
if ARecord.Values[id]-DQdate<0 then
begin
AStyle:=DataLink_OrderManage.FenHongS;
end;
end else
begin
end;
except
end; }
end;
procedure TfrmTradeMarketList.v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
{ Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount;
Id10:=TV1.GetColumnByFieldName('SubStatus').Index;
if Id<0 then Exit;
if AViewInfo.GridRecord.Values[Id10]='<27><><EFBFBD><EFBFBD>' then Exit;
if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit;
if ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then
ACanvas.Brush.Color:=clYellow
else
if (AViewInfo.GridRecord.Values[id])-(SGetServerDate(ADOQueryTemp)<0) then
begin
ACanvas.Brush.Color:=clRed;
end;
begin
ACanvas.Brush.Color:=clRed;
end else
if AViewInfo.GridRecord.Values[Id]='Purple' then
begin
ACanvas.Brush.Color:=clPurple;
end else
if AViewInfo.GridRecord.Values[Id]='Olive' then
begin
ACanvas.Brush.Color:=clOlive;
end else
if AViewInfo.GridRecord.Values[Id]='Teal' then
begin
ACanvas.Brush.Color:=clTeal;
end else
if AViewInfo.GridRecord.Values[Id]='Background' then
begin
ACanvas.Brush.Color:=clBackground;
end; }
end;
procedure TfrmTradeMarketList.TBCKClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmTradeMarketInPut := TfrmTradeMarketInPut.Create(Application);
with frmTradeMarketInPut do
begin
PState := 1;
FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString);
ToolBar2.Visible := False;
TBSave.Visible := False;
ScrollBox1.Enabled := True;
N2.Visible := False;
frmTradeMarketInPut.fordtype := self.fordtype;
1
2025-08-08 14:50:01 +08:00
TvMX.OnCellDblClick := nil;
Panel5.Visible := False;
退货申请
2024-12-17 17:25:32 +08:00
if ShowModal = 1 then
begin
end;
end;
finally
frmTradeMarketInPut.Free;
end;
end;
procedure TfrmTradeMarketList.btnCopyClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmTradeMarketInPut := TfrmTradeMarketInPut.Create(Application);
with frmTradeMarketInPut do
begin
PState := 1;
CopyInt := 99;
FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString);
canshu1 := self.canshu1;
1
2025-07-15 11:47:43 +08:00
canshu4 := self.canshu4;
退货申请
2024-12-17 17:25:32 +08:00
frmTradeMarketInPut.fordtype := self.fordtype;
if ShowModal = 1 then
begin
end;
end;
finally
frmTradeMarketInPut.Free;
end;
end;
procedure TfrmTradeMarketList.TMMNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
initgrid();
end;
end;
procedure TfrmTradeMarketList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTradeMarketList.ToolButton4Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do
begin
if Trim(canshu1) <> '<27><>ѯ' then
FEditAuthority := True;
fkeyNO := Trim(Self.Order_Main.fieldbyname('TMMId').AsString);
fType := 'ָʾ<D6B8><CABE>';
if ShowModal = 1 then
begin
end;
end;
finally
frmAttachmentUpload.Free;
end;
end;
procedure TfrmTradeMarketList.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
InitGrid();
end;
procedure TfrmTradeMarketList.TchkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if cxTabControl1.TabIndex <> 1 then
begin
Application.MessageBox('ֻ<><D6BB><EFBFBD>ڴ<EFBFBD><DAB4><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4>½<EFBFBD><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Trade_Market_Main SET status=''9'',chker=''' + trim(DName) + ''',Chktime=getdate() ');
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>ţ<EFBFBD>' + trim(Order_Main.FieldByName('TMMNO').AsString))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
execsql;
end;
except
application.MessageBox('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
TBRafresh.Click;
end;
procedure TfrmTradeMarketList.TnochkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if cxTabControl1.TabIndex <> 2 then
begin
Application.MessageBox('ֻ<><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4>½<EFBFBD><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Trade_Market_Main SET status=''1'',chker=null,Chktime=null ');
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>ţ<EFBFBD>' + trim(Order_Main.FieldByName('TMMNO').AsString))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
execsql;
end;
TBRafresh.Click;
except
application.MessageBox('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmTradeMarketList.TWCClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Trade_Market_Main SET status=''10'' ');
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
1
2025-07-17 14:26:16 +08:00
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
sql.Add('values(''ó<>ײ<EFBFBD><D7B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add(',''<27><><EFBFBD><EFBFBD>'' ');
sql.Add(',' + quotedstr(DName));
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add(') ');
退货申请
2024-12-17 17:25:32 +08:00
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>ţ<EFBFBD>' + trim(Order_Main.FieldByName('TMMNO').AsString))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
execsql;
end;
application.MessageBox('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɳɹ<C9B3><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
TBRafresh.Click;
except
application.MessageBox('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmTradeMarketList.TNowcClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Trade_Market_Main SET status=''9'' ');
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
1
2025-07-17 14:26:16 +08:00
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
sql.Add('values(''ó<>ײ<EFBFBD><D7B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add(',''<27><><EFBFBD><EFBFBD>'' ');
sql.Add(',' + quotedstr(DName));
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add(') ');
退货申请
2024-12-17 17:25:32 +08:00
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>ţ<EFBFBD>' + trim(Order_Main.FieldByName('TMMNO').AsString))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
execsql;
end;
application.MessageBox('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɳɹ<C9B3><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
TBRafresh.Click;
except
application.MessageBox('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmTradeMarketList.TBTJClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if canshu1 <> '<27><>Ȩ<EFBFBD><C8A8>' then
begin
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
if cxTabControl1.TabIndex <> 0 then
begin
Application.MessageBox('ֻ<><D6BB><EFBFBD>ڴ<EFBFBD><DAB4>ύ״̬<D7B4>½<EFBFBD><C2BD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Trade_Market_Main SET status=''1'' ');
sql.Add(' where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>ύ')));
sql.Add(',' + quotedstr(trim('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>ţ<EFBFBD>' + trim(Order_Main.FieldByName('TMMNO').AsString))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
execsql;
end;
SendMessageQR(trim(Order_Main.FieldByName('TMMId').AsString), trim(Order_Main.FieldByName('Filler').AsString), trim(Order_Main.FieldByName('TMMNO').AsString), Trim(FormatDateTime('yyyy-MM-dd', Order_Main.FieldByName('TMMDate').asdatetime)));
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('exec P_MSG_in ');
sql.Add(' @MSG=' + QuotedStr(trim('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>ţ<EFBFBD>' + trim(Order_Main.FieldByName('TMMNO').AsString) + ' <20><>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD>')));
sql.Add(',@FillUserid=' + QuotedStr(trim(DCode)));
sql.Add(',@FillUserName=' + QuotedStr(trim(DName)));
sql.Add(',@FillType=' + QuotedStr(trim('<27><>Ҫȷ<D2AA><C8B7>')));
sql.Add(',@MegType=' + QuotedStr(trim('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>ύ')));
execsql;
end;
application.MessageBox('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>ύ<EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
except
application.MessageBox('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>ύʧ<E1BDBB>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
TBRafresh.Click;
end;
procedure TfrmTradeMarketList.TBTJCXClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if canshu1 <> '<27><>Ȩ<EFBFBD><C8A8>' then
begin
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
if cxTabControl1.TabIndex <> 1 then
begin
Application.MessageBox('ֻ<><D6BB><EFBFBD>ڴ<EFBFBD><DAB4><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4>½<EFBFBD><C2BD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Trade_Market_Main SET status=''0'' ');
sql.Add(' where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add(' and isnull(status,''0'')=''1'' ');
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>ţ<EFBFBD>' + trim(Order_Main.FieldByName('TMMNO').AsString))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
execsql;
end;
application.MessageBox('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
TBRafresh.Click;
except
application.MessageBox('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmTradeMarketList.N1Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTradeMarketList.N3Click(Sender: TObject);
begin
SelOKNoFiler(Tv1, True); //ȫѡ
end;
procedure TfrmTradeMarketList.N4Click(Sender: TObject);
begin
SelOKNoFiler(Tv1, False); //ȫ<><C8AB>
end;
未完成版本
2025-08-11 17:32:22 +08:00
procedure TfrmTradeMarketList.N5Click(Sender: TObject);
begin
SelOKNo(Order_Main, True);
end;
procedure TfrmTradeMarketList.N6Click(Sender: TObject);
begin
SelOKNo(Order_Main, False);
end;
退货申请
2024-12-17 17:25:32 +08:00
procedure TfrmTradeMarketList.ComboBox1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTradeMarketList.CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmTradeMarketList.ToolButton10Click(Sender: TObject);
begin
WriteCxGrid('ָʾ<D6B8><CABE><EFBFBD>б<EFBFBD>FF1', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
裁剪
2025-06-27 17:30:04 +08:00
procedure TfrmTradeMarketList.ToolButton1Click(Sender: TObject);
begin
TcxGridToExcel(Trim(Self.Caption), cxGrid1);
end;
退货申请
2024-12-17 17:25:32 +08:00
procedure TfrmTradeMarketList.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid('ָʾ<D6B8><CABE><EFBFBD>б<EFBFBD>FF1', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
end.
Reference in New Issue Copy Permalink