打包 码单

检验管理/TradeManage.skincfg

@@ -2,49 +2,49 @@
 Default=1
 ShowNotifications=1
 Enabled=1
-dxSkinBlack=0
+dxSkinBlack=1
-dxSkinBlue=0
+dxSkinBlue=1
-dxSkinBlueprint=0
+dxSkinBlueprint=1
-dxSkinCaramel=0
+dxSkinCaramel=1
-dxSkinCoffee=0
+dxSkinCoffee=1
-dxSkinDarkRoom=0
+dxSkinDarkRoom=1
-dxSkinDarkSide=0
+dxSkinDarkSide=1
-dxSkinDevExpressDarkStyle=0
+dxSkinDevExpressDarkStyle=1
-dxSkinDevExpressStyle=0
+dxSkinDevExpressStyle=1
-dxSkinFoggy=0
+dxSkinFoggy=1
-dxSkinGlassOceans=0
+dxSkinGlassOceans=1
-dxSkinHighContrast=0
+dxSkinHighContrast=1
-dxSkiniMaginary=0
+dxSkiniMaginary=1
-dxSkinLilian=0
+dxSkinLilian=1
-dxSkinLiquidSky=0
+dxSkinLiquidSky=1
-dxSkinLondonLiquidSky=0
+dxSkinLondonLiquidSky=1
-dxSkinMcSkin=0
+dxSkinMcSkin=1
-dxSkinMetropolis=0
+dxSkinMetropolis=1
-dxSkinMetropolisDark=0
+dxSkinMetropolisDark=1
-dxSkinMoneyTwins=0
+dxSkinMoneyTwins=1
-dxSkinOffice2007Black=0
+dxSkinOffice2007Black=1
-dxSkinOffice2007Blue=0
+dxSkinOffice2007Blue=1
-dxSkinOffice2007Green=0
+dxSkinOffice2007Green=1
-dxSkinOffice2007Pink=0
+dxSkinOffice2007Pink=1
-dxSkinOffice2007Silver=0
+dxSkinOffice2007Silver=1
-dxSkinOffice2010Black=0
+dxSkinOffice2010Black=1
-dxSkinOffice2010Blue=0
+dxSkinOffice2010Blue=1
-dxSkinOffice2010Silver=0
+dxSkinOffice2010Silver=1
-dxSkinOffice2013DarkGray=0
+dxSkinOffice2013DarkGray=1
-dxSkinOffice2013LightGray=0
+dxSkinOffice2013LightGray=1
-dxSkinOffice2013White=0
+dxSkinOffice2013White=1
-dxSkinPumpkin=0
+dxSkinPumpkin=1
-dxSkinSeven=0
+dxSkinSeven=1
-dxSkinSevenClassic=0
+dxSkinSevenClassic=1
-dxSkinSharp=0
+dxSkinSharp=1
-dxSkinSharpPlus=0
+dxSkinSharpPlus=1
-dxSkinSilver=0
+dxSkinSilver=1
-dxSkinSpringTime=0
+dxSkinSpringTime=1
-dxSkinStardust=0
+dxSkinStardust=1
-dxSkinSummer2008=0
+dxSkinSummer2008=1
-dxSkinTheAsphaltWorld=0
+dxSkinTheAsphaltWorld=1
 dxSkinsDefaultPainters=1
-dxSkinValentine=0
+dxSkinValentine=1
-dxSkinVS2010=0
+dxSkinVS2010=1
-dxSkinWhiteprint=0
+dxSkinWhiteprint=1
-dxSkinXmas2008Blue=0
+dxSkinXmas2008Blue=1

检验管理/U_CPDBAO.dfm

@@ -1,9 +1,8 @@
 object frmCPDBao: TfrmCPDBao
-  Left = 19
+  Left = 324
-  Top = 72
+  Top = 149
-  Width = 1382
+  Width = 1551
-  Height = 753
+  Height = 742
-  VertScrollBar.Position = 2
   Caption = #25171#21253#31383#21475
   Color = clBtnFace
   Font.Charset = GB2312_CHARSET
@@ -21,8 +20,8 @@ object frmCPDBao: TfrmCPDBao
   TextHeight = 12
   object ToolBar1: TToolBar
     Left = 0
-    Top = -2
+    Top = 0
-    Width = 1533
+    Width = 1535
     Height = 33
     ButtonHeight = 30
     ButtonWidth = 59
@@ -54,8 +53,8 @@ object frmCPDBao: TfrmCPDBao
   end
   object Panel1: TPanel
     Left = 0
-    Top = 31
+    Top = 33
-    Width = 1533
+    Width = 1535
     Height = 76
     Align = alTop
     BevelInner = bvRaised
@@ -486,10 +485,27 @@ object frmCPDBao: TfrmCPDBao
         '24'
         '25')
     end
+    object cxButton8: TcxButton
+      Left = 984
+      Top = 40
+      Width = 77
+      Height = 33
+      Hint = 'Filesother'
+      Caption = #37325#25171#21253#26631#31614
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 20
+      OnClick = cxButton8Click
+      LookAndFeel.Kind = lfOffice11
+    end
   end
   object Panel2: TPanel
     Left = 400
-    Top = 139
+    Top = 141
     Width = 1133
     Height = 560
     Caption = 'Panel2'
@@ -508,7 +524,7 @@ object frmCPDBao: TfrmCPDBao
       ParentFont = False
       TabOrder = 0
       object TV2: TcxGridDBTableView
-        NavigatorButtons.ConfirmDelete = False
+        Navigator.Buttons.CustomButtons = <>
         OnCustomDrawCell = TV2CustomDrawCell
         DataController.DataSource = DataSource2
         DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -666,9 +682,10 @@ object frmCPDBao: TfrmCPDBao
       Width = 1131
       Height = 292
       Align = alClient
+      PopupMenu = PopupMenu1
       TabOrder = 1
       object TV4: TcxGridDBTableView
-        NavigatorButtons.ConfirmDelete = False
+        Navigator.Buttons.CustomButtons = <>
         DataController.DataSource = DSSEL
         DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
         DataController.Summary.DefaultGroupSummaryItems = <
@@ -832,7 +849,7 @@ object frmCPDBao: TfrmCPDBao
   end
   object Panel3: TPanel
     Left = 999
-    Top = 225
+    Top = 227
     Width = 290
     Height = 286
     BevelInner = bvRaised
@@ -1027,9 +1044,9 @@ object frmCPDBao: TfrmCPDBao
   end
   object Panel4: TPanel
     Left = 0
-    Top = 107
+    Top = 109
     Width = 553
-    Height = 592
+    Height = 594
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -1039,11 +1056,11 @@ object frmCPDBao: TfrmCPDBao
       Left = 2
       Top = 89
       Width = 549
-      Height = 501
+      Height = 503
       Align = alClient
       TabOrder = 0
       object Tv3: TcxGridDBTableView
-        NavigatorButtons.ConfirmDelete = False
+        Navigator.Buttons.CustomButtons = <>
         DataController.DataSource = DSTm
         DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
         DataController.Summary.DefaultGroupSummaryItems = <>
@@ -1355,8 +1372,8 @@ object frmCPDBao: TfrmCPDBao
     end
   end
   object MovePanel1: TMovePanel
-    Left = 506
+    Left = 198
-    Top = 274
+    Top = 208
     Width = 715
     Height = 327
     BevelInner = bvLowered
@@ -1435,6 +1452,7 @@ object frmCPDBao: TfrmCPDBao
   object cxStyleRepository1: TcxStyleRepository
     Left = 317
     Top = 306
+    PixelsPerInch = 96
     object cxStyle1: TcxStyle
       AssignedValues = [svColor, svFont]
       Color = clInactiveCaption
@@ -1648,4 +1666,16 @@ object frmCPDBao: TfrmCPDBao
     Left = 332
     Top = 420
   end
+  object PopupMenu1: TPopupMenu
+    Left = 948
+    Top = 568
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N2: TMenuItem
+      Caption = #20840#24323
+      OnClick = N2Click
+    end
+  end
 end

检验管理/U_JYOrderCDOne.dfm

@@ -20,7 +20,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1370
+    Width = 1362
     Height = 62
     AutoSize = True
     ButtonHeight = 30
@@ -173,7 +173,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
     end
     object ComboBox1: TComboBox
       Left = 515
-      Top = 30
+      Top = 33
       Width = 149
       Height = 24
       Style = csDropDownList
@@ -183,8 +183,10 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       Font.Name = #23435#20307
       Font.Style = []
       ItemHeight = 16
+      ItemIndex = 0
       ParentFont = False
       TabOrder = 0
+      Text = #38144#21806#30721#21333'(1'#21015')'
       Items.Strings = (
         #38144#21806#30721#21333'(1'#21015')'
         #33521#25991#30721#21333
@@ -199,7 +201,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
         #38024#32455#24067#21333#21367#21333#21253#35013#31665#21333
         #25191#20565#30721#21333
         #25191#20565#30721#21333'('#20844#26020')'
-        #25191#20565#30721#21333'(5'#21015')')
+        #25191#20565#30721#21333'(5'#21015')'
+        #24378#20852#30721#21333
+        #25171#21253#30721#21333)
     end
     object TBAftChkHX: TToolButton
       Left = 664
@@ -230,7 +234,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   object Panel1: TPanel
     Left = 0
     Top = 62
-    Width = 1370
+    Width = 1362
     Height = 67
     Align = alTop
     BevelInner = bvRaised
@@ -677,8 +681,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   object cxGrid1: TcxGrid
     Left = 0
     Top = 129
-    Width = 1370
+    Width = 1362
-    Height = 594
+    Height = 586
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 3

检验管理/U_JYOrderCDOne.pas

@@ -1466,32 +1466,6 @@ begin
     ADOQueryCmd.Connection.RollbackTrans;
   end;
   Order_Main.EnableControls;
-//  if trim(ComboBox1.Text) = 'ÏúÊÛÂëµ¥(2ÁÐ)' then
-//  begin
-//    with ADOQueryTemp do
-//    begin
-//      Close;
-//      sql.Clear;
-//      sql.add('exec P_Print_CKMDYDLS ');
-//      sql.add('@DName=' + quotedstr(Trim(DCode)));
-//      Open;
-//    end;
-//    SCreateCDS20(ADOQueryTemp, CDS_HZ);
-//    SInitCDSData20(ADOQueryTemp, CDS_HZ);
-//
-//    with ADOQueryPrint do
-//    begin
-//      Close;
-//      sql.Clear;
-//      sql.add('exec P_Do_PrintMd_HZ ');
-//      sql.add('@mainID=' + quotedstr(Trim('')));
-//      sql.add(',@DName=' + quotedstr(Trim(DCode)));
-//      sql.add(',@flag=''2'' ');
-//      Open;
-//    end;
-////    SCreateCDS20(ADOQueryTemp, CDS_PRT);
-////    SInitCDSData20(ADOQueryTemp, CDS_PRT);
-//  end;
 
   if (trim(ComboBox1.Text) = '饋簡쯤데(1죗)') or (trim(ComboBox1.Text) = '饋簡쯤데(2죗)') or (trim(ComboBox1.Text) = '亶匡쯤데') then
   begin
@@ -1516,8 +1490,6 @@ begin
       sql.add(',@flag=''2'' ');
       Open;
     end;
-//    SCreateCDS20(ADOQueryTemp, CDS_PRT);
-//    SInitCDSData20(ADOQueryTemp, CDS_PRT);
   end;
 
   if (trim(ComboBox1.Text) = '쇱駱쯤데(陋芎)') then
@@ -1692,7 +1664,54 @@ begin
       Open;
     end;
   end;
+    if trim(ComboBox1.Text) = '댔관쯤데' then
+  begin
+    with ADOQueryTemp do
+    begin                
+      Close;
+      sql.Clear;
+      sql.add('exec P_Print_CKMDYDL_DB ');
+      sql.add('@DName=' + quotedstr(Trim(DCode)));
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp, CDS_HZ);
+    SInitCDSData20(ADOQueryTemp, CDS_HZ);
 
+    with ADOQueryPrint do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd_HZ ');
+      sql.add('@mainID=' + quotedstr(Trim('')));
+      sql.add(',@DName=' + quotedstr(Trim(DCode)));
+      sql.add(',@flag=''22'' ');
+      Open;
+    end;
+  end;
+  if trim(ComboBox1.Text) = '퓻菫쯤데' then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Print_CKMDYDL_QXMD ');
+      sql.add('@DName=' + quotedstr(Trim(DCode)));
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp, CDS_HZ);
+    SInitCDSData20(ADOQueryTemp, CDS_HZ);
+                                                                    
+    with ADOQueryPrint do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd_HZ ');
+      sql.add('@mainID=' + quotedstr(Trim('')));
+      sql.add(',@DName=' + quotedstr(Trim(DCode)));
+      sql.add(',@flag=''22'' ');
+      Open;
+    end;
+  end;
   if (trim(ComboBox1.Text) = '쇱駱쯤데(횡<>)') or (trim(ComboBox1.Text) = '쇱駱쯤데(댔얩)') then
   begin
     with ADOQueryTemp do
@@ -1849,7 +1868,7 @@ begin
     end;
   end;
 
-    if (trim(ComboBox1.Text) = 'Ö´ÙÉÂëµ¥(5ÁÐ)') then
+  if (trim(ComboBox1.Text) = '獵貌쯤데(5죗)') then
   begin
     with ADOQueryTemp do
     begin

检验管理/U_MJManageNewFDNew.dfm

@@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     Left = 0
     Top = 105
     Width = 237
-    Height = 741
+    Height = 733
     Align = alLeft
     TabOrder = 1
     object Tv3: TcxGridDBTableView
@@ -123,8 +123,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
   object ScrollBox1: TScrollBox
     Left = 649
     Top = 105
-    Width = 645
+    Width = 637
-    Height = 741
+    Height = 733
     Align = alClient
     TabOrder = 4
     object SpeedButton13: TSpeedButton
@@ -1002,7 +1002,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     Left = 445
     Top = 105
     Width = 204
-    Height = 741
+    Height = 733
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -1724,7 +1724,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
   object Panel4: TPanel
     Left = 0
     Top = 0
-    Width = 1294
+    Width = 1286
     Height = 105
     Align = alTop
     BevelInner = bvRaised
@@ -1733,14 +1733,14 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     object Panel5: TPanel
       Left = 2
       Top = 2
-      Width = 1290
+      Width = 1282
       Height = 101
       Align = alClient
       TabOrder = 0
       object Panel6: TPanel
         Left = 1
         Top = 31
-        Width = 1288
+        Width = 1280
         Height = 74
         Align = alTop
         BevelInner = bvRaised
@@ -2035,7 +2035,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       object ToolBar1: TToolBar
         Left = 1
         Top = 1
-        Width = 1288
+        Width = 1280
         Height = 30
         ButtonHeight = 30
         ButtonWidth = 83
@@ -2352,7 +2352,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     Left = 237
     Top = 105
     Width = 208
-    Height = 741
+    Height = 733
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -2361,7 +2361,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Left = 2
       Top = 2
       Width = 204
-      Height = 415
+      Height = 407
       Align = alClient
       TabOrder = 0
       object Tv2: TcxGridDBTableView
@@ -2470,7 +2470,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Panel8: TPanel
       Left = 2
-      Top = 417
+      Top = 409
       Width = 204
       Height = 29
       Align = alBottom
@@ -2485,7 +2485,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object AOrdDefNote1: TRichEdit
       Left = 2
-      Top = 446
+      Top = 438
       Width = 204
       Height = 293
       Align = alBottom

检验管理/U_MJManageNewFDNew.pas

@@ -319,7 +319,7 @@ type
     FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
     FColumn, FBanZu, FAPID, FMainId, FSubId, FFFMJID: string;
     FJZ, FJC: Double;
-    fRollType, fRollType1: string;
+    fRollType, fRollType1, fbaotype, fbaosx: string;
     isCommopen, IsJsMessage: boolean;
     MValue, FCDName: string;
     fxsws, fxsws1: string;
@@ -334,6 +334,7 @@ type
     procedure AddCDNew(Fbtn: TSpeedButton);
     procedure SavedataCK();
     procedure PrtData(FMJID: string);
+    procedure PrtBaoData(FBaoid: string);
     procedure OpenCom(DllName: string);
     procedure CloseCom(DllName: string);
     procedure On1201(var Message: Tmessage); message 1201;
@@ -1076,6 +1077,11 @@ begin
 
       FieldByName('MJTypeOther').Value := Trim(Label9.Caption);
       FieldByName('note').Value := Trim(note.Text);
+      if trim(fbaotype) = '手动打包' then
+      begin
+        FieldByName('baoNO').Value := Trim(baono.text);
+        FieldByName('baoID').Value := Trim(baoID.Text);
+      end;
    //   FieldByName('baoNO').Value:=Trim(baono.text);
     //  FieldByName('baoID').Value:=Trim(baoID.Text);
       Post;
@@ -1214,7 +1220,32 @@ begin
       sql.Add('where MJID=''' + Trim(FMJID) + ''' ');
       execsql;
     end;
+    if (fbaotype = '手动打包') or (fbaotype = '') or (PState = 2) then
+    begin
 
+    end
+    else
+    begin
+      with ADOCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('exec P_Update_Bao ''' + trim(FMJID) + ''' ');
+        if fbaotype = '单卷单包' then
+        begin
+          sql.Add(',1 ');
+        end
+        else if fbaotype = '多卷单色' then
+        begin
+          sql.Add(',2 ');
+        end
+        else if fbaotype = '多卷混色' then
+        begin
+          sql.Add(',3 ');
+        end;
+        execsql;
+      end;
+    end;
     //SavedataCK();
     ADOCmd.Connection.CommitTrans;
     Result := True;
@@ -1430,7 +1461,42 @@ begin
     PrtData(FFFMJID);
     //end;
   end;
+  if Trim(Edit6.Text) = '√' then
+  begin
+    if (fbaotype = '手动打包') or (fbaotype = '') then
+    begin
 
+    end
+    else
+    begin
+      with ADOCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('exec P_View_Baoid ''' + trim(FFFMJID) + ''' ');
+        sql.Add(',''' + trim(FMainId) + ''' ,''' + trim(FSubId) + ''' ');
+        if fbaotype = '单卷单包' then
+        begin
+          sql.Add(' ,1 ');
+        end;
+        if fbaotype = '多卷单色' then
+        begin
+          sql.Add(' ,2 ');
+        end;
+        if fbaotype = '多卷混色' then
+        begin
+          sql.Add(' ,3 ');
+        end;
+        Open;
+      end;
+
+      if trim(ADOCmd.FieldByName('baoid').AsString) <> '' then
+      begin
+        PrtBaoData(ADOCmd.fieldbyname('baoid').AsString);
+      end;
+    end;
+
+  end;
   Label16.Caption := '';
   BTAdd.Click;
   MJMaoZ.SetFocus;
@@ -2189,6 +2255,8 @@ begin
     FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
     FJZ := ADOTmp.fieldbyname('jiazhong').AsFloat;
     FJC := ADOTmp.fieldbyname('jiachang').AsFloat;
+    fbaotype := Trim(ADOTmp.fieldbyname('baotype').AsString);
+    fbaosx := Trim(ADOTmp.fieldbyname('baosx').AsString);
     AOrdDefNote1.Text := '°ü×°ÒªÇó:' + #13 + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13                        //+'·âÌõ:'+Trim(ADOTmp.fieldbyname('MPRTYaoFeng').AsString)+#13
                         //+'Ì̽ð:'+Trim(ADOTmp.fieldbyname('MPRTTangJin').AsString)+#13
                         //+'¿ª¼ô:'+Trim(ADOTmp.fieldbyname('MPRTKaiJian').AsString)+#13
@@ -2539,6 +2607,93 @@ begin
   InitCDGridID();
 end;
 
+procedure TfrmMJManageNewFDNewSF.PrtBaoData(FBaoid: string);
+var
+  fPrintFile: string;
+  Txt, fImagePath: string;
+  Moudle: THandle;
+  Makebar: TMakebar;
+  Mixtext: TMixtext;
+  i: Integer;
+begin
+  if CDS_MJID.IsEmpty then
+    exit;
+  CDS_MJID.First;
+  with ADOQueryPrint do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,');
+    sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),');
+    sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), ');
+    sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), ');
+    sql.Add('MJXH=DBO.F_Get_Order_SubStr(BaoID,''BNMJXH''), ');
+    sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), ');
+    sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),');
+    sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), ');
+    sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), ');
+    SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen');
+    sql.Add('from WFB_MJJY A');
+    sql.Add('inner join JYOrder_Sub C on C.SubID=A.SubID');
+    sql.Add('inner join JYOrder_Main D on D.MainID=A.MainID');
+    SQL.Add('where A.BaoID=''' + Trim(FBaoid) + '''');
+    SQL.ADD('group by A.Baoid,A.BaoNo,A.MJTypeOther,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName');
+    Open;
+  end;
+  if ADOQueryPrint.RecordCount > 1 then
+  begin
+    Application.MessageBox('打包错误，请重新打包!', '提示', 0);
+    Exit;
+  end;
+  if ADOQueryPrint.RecordCount < 1 then
+  begin
+    Application.MessageBox('此包号还未被保存，请保存数据，在打印条码！', '提示', 0);
+    Exit;
+  end;
+  try
+    Moudle := LoadLibrary('MakeQRBarcode.dll');
+    @Makebar := GetProcAddress(Moudle, 'Make');
+    @Mixtext := GetProcAddress(Moudle, 'MixText');
+    Txt := trim(FBaoid);
+    fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
+    if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
+      CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
+    if FileExists(fImagePath) then
+      DeleteFile(fImagePath);
+    Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
+  except
+    application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
+    exit;
+  end;
+
+  if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) <> '' then
+  begin
+    ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('NLBName').AsString), ADOCmd);
+    fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)
+  end
+  else
+  begin
+    ExportFtErpFile('包标签.rmf', ADOCmd);
+    fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\包标签.rmf';
+  end;
+
+  if not FileExists(fPrintFile) then
+  begin
+    Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
+    Exit;
+  end;
+
+  if FileExists(fPrintFile) then
+  begin
+    RMVariables['QRBARCODE'] := fImagePath;
+    RM2.LoadFromFile(fPrintFile);
+    RM2.DefaultCopies := 1;
+     //RM2.ShowReport;
+    RM2.printReport;
+  end;
+
+end;
+
 procedure TfrmMJManageNewFDNewSF.Button7Click(Sender: TObject);
 var
   fPrintFile: string;

检验管理/U_ProductOrderLBNameSet.dfm

@@ -1,6 +1,6 @@
 object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
-  Left = 170
+  Left = 182
-  Top = 95
+  Top = 249
   Width = 1378
   Height = 754
   Caption = #26631#31614#35774#32622
@@ -20,7 +20,8 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1370
+    Width = 1362
+    Height = 62
     AutoSize = True
     ButtonHeight = 30
     ButtonWidth = 107
@@ -79,16 +80,8 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
       ImageIndex = 60
       OnClick = ToolButton2Click
     end
-    object ToolButton4: TToolButton
-      Left = 339
-      Top = 0
-      AutoSize = True
-      Caption = #21253#26631#31614#35774#32622
-      ImageIndex = 60
-      OnClick = ToolButton4Click
-    end
     object ToolButton3: TToolButton
-      Left = 438
+      Left = 339
       Top = 0
       AutoSize = True
       Caption = #30382#37325#35774#32622'(Kg)'
@@ -96,64 +89,89 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
       OnClick = ToolButton3Click
     end
     object ToolButton10: TToolButton
-      Left = 549
+      Left = 450
       Top = 0
       AutoSize = True
       Caption = #21152#37325#35774#32622
       ImageIndex = 60
+      Wrap = True
       OnClick = ToolButton10Click
     end
     object ToolButton11: TToolButton
-      Left = 636
+      Left = 0
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #21152#38271#35774#32622
       ImageIndex = 60
       OnClick = ToolButton11Click
     end
     object ToolButton5: TToolButton
-      Left = 723
+      Left = 87
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #25442#31639#31995#25968
       ImageIndex = 60
       OnClick = ToolButton5Click
     end
     object ToolButton6: TToolButton
-      Left = 810
+      Left = 174
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #38271#24230#20301#25968
       ImageIndex = 60
       OnClick = ToolButton6Click
     end
     object ToolButton9: TToolButton
-      Left = 897
+      Left = 261
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #37325#37327#20301#25968
       ImageIndex = 60
       OnClick = ToolButton9Click
     end
+    object ToolButton12: TToolButton
+      Left = 348
+      Top = 30
+      AutoSize = True
+      Caption = #27599#21253#21367#25968
+      ImageIndex = 60
+      OnClick = ToolButton12Click
+    end
+    object ToolButton13: TToolButton
+      Left = 435
+      Top = 30
+      AutoSize = True
+      Caption = #27599#21367#38271#24230
+      ImageIndex = 60
+      OnClick = ToolButton13Click
+    end
+    object ToolButton4: TToolButton
+      Left = 522
+      Top = 30
+      AutoSize = True
+      Caption = #21253#26631#31614#35774#32622
+      ImageIndex = 60
+      OnClick = ToolButton4Click
+    end
     object ToolButton7: TToolButton
-      Left = 984
+      Left = 621
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #39044#35272#21367#26631#31614
       ImageIndex = 12
       OnClick = ToolButton7Click
     end
     object ToolButton8: TToolButton
-      Left = 1083
+      Left = 720
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #39044#35272#21253#26631#31614
       ImageIndex = 12
       OnClick = ToolButton8Click
     end
     object PiZhong: TEdit
-      Left = 1182
+      Left = 819
-      Top = 0
+      Top = 30
       Width = 121
       Height = 30
       Font.Charset = GB2312_CHARSET
@@ -165,8 +183,8 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
       TabOrder = 0
     end
     object TBClose: TToolButton
-      Left = 1303
+      Left = 940
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #20851#38381
       ImageIndex = 55
@@ -175,8 +193,8 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
   end
   object Panel1: TPanel
     Left = 0
-    Top = 32
+    Top = 62
-    Width = 1370
+    Width = 1362
     Height = 62
     Align = alTop
     BevelInner = bvRaised
@@ -413,8 +431,8 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
   end
   object cxGrid1: TcxGrid
     Left = 0
-    Top = 94
+    Top = 124
-    Width = 1370
+    Width = 1362
     Height = 545
     Align = alTop
     TabOrder = 2
@@ -614,6 +632,41 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
         HeaderAlignmentHorz = taCenter
         Width = 80
       end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #25171#21253#26041#24335
+        DataBinding.FieldName = 'baotype'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.Items.Strings = (
+          ''
+          #21333#21367#21333#21253
+          #25163#21160#25171#21253
+          #22810#21367#21333#33394)
+        Properties.OnEditValueChanged = Tv1Column2PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #27599#21253#21367#25968
+        DataBinding.FieldName = 'JS'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object Tv1Column4: TcxGridDBColumn
+        Caption = #21253#21495#39034#24207
+        DataBinding.FieldName = 'baosx'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.Items.Strings = (
+          #25353#39068#33394#29983#25104
+          #25353#35746#21333#29983#25104
+          #25353#32568#21495#29983#25104)
+        Properties.OnEditValueChanged = Tv1Column4PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #27599#21253#38271#24230
+        DataBinding.FieldName = 'PRTDC'
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1