From be391979c7c3c2e84da88ca8ce101ea248049103 Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Wed, 3 Dec 2025 09:22:43 +0800
Subject: [PATCH] ~

---
 贝其贸易管理/U_ProductOrderNewList.dfm |  4 +--
 贝其贸易管理/U_ProductOrderNewList.pas | 48 +++++++++++++-------------
 2 files changed, 26 insertions(+), 26 deletions(-)

diff --git a/贝其贸易管理/U_ProductOrderNewList.dfm b/贝其贸易管理/U_ProductOrderNewList.dfm
index fbd9c2c..48efacd 100644
--- a/贝其贸易管理/U_ProductOrderNewList.dfm
+++ b/贝其贸易管理/U_ProductOrderNewList.dfm
@@ -317,7 +317,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
       OnChange = OrderNoMChange
       OnKeyPress = OrderNoMKeyPress
     end
-    object CustomerNoName: TEdit
+    object CustomerNONameZ: TEdit
       Tag = 2
       Left = 379
       Top = 11
@@ -471,7 +471,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
       end
       object v1CustomerNoName: TcxGridDBColumn
         Caption = #23458#25143
-        DataBinding.FieldName = 'CustomerNoName'
+        DataBinding.FieldName = 'CustomerNONameZ'
         HeaderAlignmentHorz = taCenter
         Options.Focusing = False
         Styles.Header = DataLink_TradeManage.Default
diff --git a/贝其贸易管理/U_ProductOrderNewList.pas b/贝其贸易管理/U_ProductOrderNewList.pas
index a5d1697..f7d8a57 100644
--- a/贝其贸易管理/U_ProductOrderNewList.pas
+++ b/贝其贸易管理/U_ProductOrderNewList.pas
@@ -13,18 +13,17 @@ uses
   cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
   dxSkinsCore, 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, dxSkinPumpkin,
-  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
-  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
-  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
-  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
+  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
+  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
+  dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
+  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
+  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
+  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
+  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
+  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
+  dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
+  dxSkinXmas2008Blue, dxSkinscxPCPainter;
 
 type
   TfrmProductOrderNewList = class(TForm)
@@ -62,7 +61,7 @@ type
     RMXLSExport1: TRMXLSExport;
     v1CustomerNoName: TcxGridDBColumn;
     Label4: TLabel;
-    CustomerNoName: TEdit;
+    CustomerNONameZ: TEdit;
     v1MPRTCodeName: TcxGridDBColumn;
     v1MPRTMF: TcxGridDBColumn;
     PopupMenu1: TPopupMenu;
@@ -184,8 +183,8 @@ begin
   tbdel.Visible := false;
   Tqx.Visible := false;
   TNoqx.Visible := false;
-  TWc.Visible:=False;
-  TCxwc.Visible:=False;
+  TWc.Visible := False;
+  TCxwc.Visible := False;
   case cxTabControl1.TabIndex of
     0:
       begin
@@ -198,7 +197,7 @@ begin
       end;
     2:
       begin
-         TCxwc.Visible:=true;
+        TCxwc.Visible := true;
       end;
   end;
 end;
@@ -259,7 +258,7 @@ begin
     with ADOQueryMain do
     begin
       Filtered := False;
-      Close;
+      Close;                                    
       sql.Clear;
       sql.add('exec P_View_Order :begdate,:enddate,:WSql');
       Parameters.ParamByName('WSql').Value := sqlwhere;
@@ -841,8 +840,8 @@ begin
   if FileExists(fPrintFile) then
   begin
     RM1.LoadFromFile(fPrintFile);
-    RMVariables['SYRName'] := Trim(SYRName);          
-    RM1.ShowReport;                                  
+    RMVariables['SYRName'] := Trim(SYRName);
+    RM1.ShowReport;
   end
   else
   begin
@@ -924,10 +923,11 @@ end;
 
 procedure TfrmProductOrderNewList.TWcClick(Sender: TObject);
 begin
-  if Order_Main.IsEmpty then exit;
+  if Order_Main.IsEmpty then
+    exit;
   try
     with ADOQueryCmd do
-      begin
+    begin
       close;
       sql.Clear;
       sql.Add('update  JYOrder_Main SET status=''2'' ');
@@ -942,16 +942,16 @@ begin
       sql.Add(')');
       execsql;
     end;
-    application.MessageBox('����ɣ�','��ʾ��Ϣ',0);
+    application.MessageBox('����ɣ�', '��ʾ��Ϣ', 0);
     TBRafresh.Click;
   except
-    application.MessageBox('δ��ɣ�','��ʾ��Ϣ',0);
+    application.MessageBox('δ��ɣ�', '��ʾ��Ϣ', 0);
   end;
 end;
 
 procedure TfrmProductOrderNewList.TCxwcClick(Sender: TObject);
 begin
-    if Order_Main.IsEmpty then
+  if Order_Main.IsEmpty then
     exit;
   try
     with ADOQueryCmd do