Group_01/D7DJrongchuang
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

20260430

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-04-30 19:07:58 +08:00
parent 03249e9d0a
commit 1fbff41ba4
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
打卷检验管理/U_CKProductCKHZList.dfm
View File

@ -1,6 +1,6 @@
object frmCKProductCKHZList: TfrmCKProductCKHZList object frmCKProductCKHZList: TfrmCKProductCKHZList
Left = 334 Left = 670
Top = 349 Top = 527
Width = 1517 Width = 1517
Height = 663 Height = 663
Caption = #25104#21697#26816#39564#27719#24635#20449#24687 Caption = #25104#21697#26816#39564#27719#24635#20449#24687
@ -20,7 +20,7 @@ object frmCKProductCKHZList: TfrmCKProductCKHZList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1501 Width = 1509
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 155 ButtonWidth = 155
@ -106,7 +106,7 @@ object frmCKProductCKHZList: TfrmCKProductCKHZList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1501 Width = 1509
Height = 68 Height = 68
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -352,8 +352,8 @@ object frmCKProductCKHZList: TfrmCKProductCKHZList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 101 Top = 101
Width = 1501 Width = 1509
Height = 523 Height = 531
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView

4
打卷检验管理/U_CKProductCKHZList.pas
View File

@ -169,8 +169,8 @@ begin
sql.Clear; sql.Clear;
Filtered := False; //D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4,D.SOrddefstr1, Filtered := False; //D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4,D.SOrddefstr1,
sql.Add('select CKNO,A.MainId,A.MJTypeother as QtyUnit,C.OrderNo,C.ConNO,D.Sorddefstr5,count(distinct baoid) as RKbao, '); sql.Add('select CKNO,A.MainId,A.MJTypeother as QtyUnit,C.OrderNo,C.ConNO,D.Sorddefstr5,count(distinct baoid) as RKbao, ');
sql.Add('count(A.MainId) as JQty,SUM(A.MJLen) as Qty,SUM(A.MJMaoZ) as KGQty,SUM(A.MJQty4) as CKJZ,round(SUM(cast(A.MJFK as float)*cast(A.MJSJKZ as float)*MJLEN/1000),1) as JSJZ'); sql.Add('count(A.MainId) as JQty,SUM(A.MJLen) as Qty,SUM(A.MJMaoZ) as KGQty,SUM(A.MJQty4) as CKJZ,round(SUM(cast([dbo].[Get_ShuZi](A.MJFK) as float)*cast(A.MJSJKZ as float)*MJLEN/1000),1) as JSJZ');
SQL.Add(',round(SUM(CASE WHEN A.ckflag=''Òѳö¿â'' THEN (cast(A.MJFK as float)*cast(A.MJSJKZ as float)*A.MJLen/1000) ELSE 0 END),1) as CKSL'); SQL.Add(',round(SUM(CASE WHEN A.ckflag=''Òѳö¿â'' THEN (cast([dbo].[Get_ShuZi](A.MJFK) as float)*cast(A.MJSJKZ as float)*A.MJLen/1000) ELSE 0 END),1) as CKSL');
SQL.Add(',SUM(CASE WHEN A.ckflag=''已出库'' THEN A.MJLen ELSE 0 END) as SCKROLL'); SQL.Add(',SUM(CASE WHEN A.ckflag=''已出库'' THEN A.MJLen ELSE 0 END) as SCKROLL');
SQL.Add(',SUM(CASE WHEN A.ckflag=''未出库'' THEN A.MJLen ELSE 0 END) as SkcROLL'); SQL.Add(',SUM(CASE WHEN A.ckflag=''未出库'' THEN A.MJLen ELSE 0 END) as SkcROLL');
SQL.Add(',SUM(CASE WHEN A.ckflag=''已出库'' THEN 1 ELSE 0 END) as CKROLL'); SQL.Add(',SUM(CASE WHEN A.ckflag=''已出库'' THEN 1 ELSE 0 END) as CKROLL');