增加二维码

贸易管理/U_CKProductBCPInList.dfm

@@ -146,7 +146,8 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
         #26816#39564#30721#21333'-10'
         'PD'#33457#22411#31859#25968'+'#30721#25968
         'PD'#31859#25968'+'#30721#25968
-        #26816#39564#30721#21333'('#28151#33394#25171#21253')')
+        #26816#39564#30721#21333'('#28151#33394#25171#21253')'
+        #20108#32500#30721#30721#21333)
     end
     object TBClose: TToolButton
       Left = 801

贸易管理/U_CKProductBCPInList.pas

@@ -1113,7 +1113,19 @@ begin
     SCreateCDS20(ADOQueryTemp, CDS_HZ);
     SInitCDSData20(ADOQueryTemp, CDS_HZ);
   end;
-
+  if trim(ComboBox1.Text) = '랗郭쯤쯤데' then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Print_CKMDHAEIL ');
+      sql.add('@DName=' + quotedstr(Trim(DCode)));
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp, CDS_HZ);
+    SInitCDSData20(ADOQueryTemp, CDS_HZ);
+  end;
   with ADOQueryTemp do
   begin
     Close;

贸易管理/U_CKProductBCPOutList.dfm

@@ -138,7 +138,8 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
         #26816#39564#30721#21333'-10'
         'PD'#33457#22411#31859#25968'+'#30721#25968
         'PD'#31859#25968'+'#30721#25968
-        #26816#39564#30721#21333'('#28151#33394#25171#21253')')
+        #26816#39564#30721#21333'('#28151#33394#25171#21253')'
+        #20108#32500#30721#30721#21333)
     end
     object ToolButton2: TToolButton
       Left = 673

贸易管理/U_CKProductBCPOutList.pas

@@ -1091,6 +1091,19 @@ begin
     SCreateCDS20(ADOQueryTemp, CDS_HZ);                          
     SInitCDSData20(ADOQueryTemp, CDS_HZ);
   end;
+  if trim(ComboBox1.Text) = '¶þάÂëÂëµ¥' then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Print_CKMDHAEIL ');
+      sql.add('@DName=' + quotedstr(Trim(DCode)));
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp, CDS_HZ);                          
+    SInitCDSData20(ADOQueryTemp, CDS_HZ);
+  end;
   with ADOQueryTemp do
   begin
     Close;

贸易管理/U_JYOrderCDOne.dfm

@@ -1,6 +1,6 @@
 object frmJYOrderCDOne: TfrmJYOrderCDOne
-  Left = 81
+  Left = 365
-  Top = 200
+  Top = 219
   Width = 1382
   Height = 770
   Caption = #26816#39564#25253#21578
@@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
     Left = 0
     Top = 0
     Width = 1366
-    Height = 62
+    Height = 92
     AutoSize = True
     ButtonHeight = 30
     ButtonWidth = 131
@@ -96,12 +96,13 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       AutoSize = True
       Caption = #26816#21518#22238#20462
       ImageIndex = 54
+      Wrap = True
       Visible = False
       OnClick = TBAftChkHXClick
     end
     object ToolButton12: TToolButton
-      Left = 465
+      Left = 0
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #25209#37327#20462#25913#25968#37327#21333#20301
       ImageIndex = 57
@@ -109,8 +110,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton12Click
     end
     object ToolButton3: TToolButton
-      Left = 600
+      Left = 135
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #25442#31639#31995#25968
       ImageIndex = 57
@@ -118,25 +119,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton3Click
     end
     object ToolButton1: TToolButton
-      Left = 687
+      Left = 222
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #25171#21360#21367#26631#31614
       ImageIndex = 96
       OnClick = ToolButton1Click
     end
     object ToolButton9: TToolButton
-      Left = 786
+      Left = 321
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #25195#25551#25171#21360#21367#26631#31614
       ImageIndex = 96
-      Wrap = True
       Visible = False
       OnClick = ToolButton9Click
     end
     object ToolButton4: TToolButton
-      Left = 0
+      Left = 444
       Top = 30
       AutoSize = True
       Caption = #24067#21305#25171#21253
@@ -145,7 +145,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton4Click
     end
     object ToolButton6: TToolButton
-      Left = 87
+      Left = 531
       Top = 30
       AutoSize = True
       Caption = #25764#38144#25171#21253
@@ -154,17 +154,18 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton6Click
     end
     object ToolButton5: TToolButton
-      Left = 174
+      Left = 618
       Top = 30
       AutoSize = True
       Caption = #25171#21360#21253#26631#31614
       ImageIndex = 96
+      Wrap = True
       Visible = False
       OnClick = ToolButton5Click
     end
     object ToolButton7: TToolButton
-      Left = 273
+      Left = 0
-      Top = 30
+      Top = 60
       AutoSize = True
       Caption = #24067#21305#25442#32568
       ImageIndex = 57
@@ -172,8 +173,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton7Click
     end
     object ToolButton8: TToolButton
-      Left = 360
+      Left = 87
-      Top = 30
+      Top = 60
       AutoSize = True
       Caption = #26816#39564#25253#21578
       ImageIndex = 12
@@ -181,8 +182,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton8Click
     end
     object ToolButton10: TToolButton
-      Left = 447
+      Left = 174
-      Top = 30
+      Top = 60
       AutoSize = True
       Caption = #26816#39564#27719#24635#25253#21578
       ImageIndex = 12
@@ -190,8 +191,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton10Click
     end
     object ToolButton2: TToolButton
-      Left = 558
+      Left = 285
-      Top = 30
+      Top = 60
       AutoSize = True
       Caption = #26816#39564#25253#21578
       ImageIndex = 12
@@ -199,8 +200,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton2Click
     end
     object ToolButton11: TToolButton
-      Left = 645
+      Left = 372
-      Top = 30
+      Top = 60
       AutoSize = True
       Caption = #25171#21253#30721#21333
       ImageIndex = 12
@@ -208,17 +209,25 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton11Click
     end
     object TBClose: TToolButton
-      Left = 732
+      Left = 459
-      Top = 30
+      Top = 60
       AutoSize = True
       Caption = #20851#38381
       ImageIndex = 55
       OnClick = TBCloseClick
     end
+    object ToolButton13: TToolButton
+      Left = 522
+      Top = 60
+      AutoSize = True
+      Caption = #25171#21360#26816#39564#25253#21578
+      ImageIndex = 12
+      OnClick = ToolButton13Click
+    end
   end
   object Panel1: TPanel
     Left = 0
-    Top = 62
+    Top = 92
     Width = 1366
     Height = 87
     Align = alTop
@@ -875,7 +884,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   end
   object cxGrid1: TcxGrid
     Left = 0
-    Top = 149
+    Top = 179
     Width = 1366
     Height = 466
     Align = alTop
@@ -1241,6 +1250,12 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
         HeaderAlignmentHorz = taCenter
         Width = 70
       end
+      object Tv1Column4: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustomerNoName'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1
@@ -1602,6 +1617,115 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       GridView = TV4
     end
   end
+  object Panel8: TPanel
+    Left = 439
+    Top = 155
+    Width = 231
+    Height = 216
+    TabOrder = 9
+    Visible = False
+    object Label30: TLabel
+      Left = 48
+      Top = 88
+      Width = 6
+      Height = 12
+    end
+    object Panel9: TPanel
+      Left = 1
+      Top = 1
+      Width = 229
+      Height = 23
+      Align = alTop
+      Alignment = taLeftJustify
+      BevelOuter = bvNone
+      Caption = #25253#34920#21517#31216
+      Color = clSkyBlue
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -19
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 0
+      OnMouseMove = Panel10MouseMove
+      object Image1: TImage
+        Left = 206
+        Top = 3
+        Width = 22
+        Height = 16
+        ParentShowHint = False
+        Picture.Data = {
+          07544269746D617076040000424D760400000000000036000000280000001500
+          0000110000000100180000000000400400000000000000000000000000000000
+          0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6
+          F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040
+          404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080
+          808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
+          C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
+          C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
+          000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000
+          000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
+          000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
+          C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
+          C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00}
+        ShowHint = True
+        Transparent = True
+        OnClick = Image1Click
+      end
+    end
+    object Button11: TButton
+      Left = 83
+      Top = 180
+      Width = 75
+      Height = 25
+      Caption = #30830#23450
+      TabOrder = 2
+      OnClick = Button11Click
+    end
+    object RadioGroup2: TRadioGroup
+      Left = 56
+      Top = 24
+      Width = 129
+      Height = 145
+      ItemIndex = 0
+      Items.Strings = (
+        #26816#39564#25253#21578)
+      TabOrder = 1
+    end
+  end
+  object cxImage1: TcxImage
+    Left = 259
+    Top = 474
+    AutoSize = True
+    TabOrder = 10
+    Visible = False
+    Height = 113
+    Width = 169
+  end
   object cxGridPopupMenu1: TcxGridPopupMenu
     Grid = cxGrid1
     PopupMenus = <>
@@ -1799,4 +1923,10 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
     Left = 96
     Top = 173
   end
+  object ADOQuery2: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 147
+    Top = 443
+  end
 end

贸易管理/U_JYOrderCDOne.pas

@@ -4,15 +4,67 @@ interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  StrUtils, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles,
-  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB,
-  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
+  cxDBData, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel,
-  cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
+  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
-  cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
+  cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar,
-  RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
+  cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport,
-  cxContainer, cxCurrencyEdit, U_SMLB, BtnEdit, RM_e_main, RM_e_htm,
+  RM_e_Xls, Menus, MovePanel, cxTextEdit, cxContainer, cxCurrencyEdit, U_SMLB,
-  RM_e_Graphic, RM_e_Jpeg, RM_e_txt, RM_e_csv, RM_E_llPDF, cxLookAndFeels,
+  BtnEdit, RM_e_main, RM_e_htm, RM_e_Graphic, RM_e_Jpeg, RM_e_txt, RM_e_csv,
-  cxLookAndFeelPainters, cxNavigator;
+  RM_E_llPDF, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, 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, cxImage;
+
+type
+  TZintSymbol = packed record
+    symbology: Integer;
+    height: Integer;
+    whitespace_width: Integer;
+    border_width: Integer;
+    output_options: Integer;
+    fgcolour: array[0..9] of AnsiChar;
+    bgcolour: array[0..9] of AnsiChar;
+    outfile: array[0..255] of AnsiChar;
+    scale: Single;
+    option_1: Integer;
+    option_2: Integer;
+    option_3: Integer;
+    show_hrt: Integer;
+    input_mode: Integer;
+    eci: Integer;
+    text: array[0..127] of AnsiChar;
+    rows: Integer;
+    width: Integer;
+    primary: array[0..127] of AnsiChar;
+    encoded_data: array[0..199, 0..142] of AnsiChar;
+    row_height: array[0..199] of Integer; // Largest symbol is 189 x 189
+    errtxt: array[0..99] of AnsiChar;
+    bitmap: PAnsiChar;
+    bitmap_width: Integer;
+    bitmap_height: Integer;
+    bitmap_byte_length: Cardinal;
+    dot_size: Single;
+    rendered: Pointer;
+    debug: Integer;
+  end;
+
+  PZintSymbol = ^TZintSymbol;
+
+const
+  // Tbarcode 7 codes
+  BARCODE_QRCODE = 71;
 
 type
   TfrmJYOrderCDOne = class(TForm)
@@ -194,6 +246,16 @@ type
     Tv1Column1: TcxGridDBColumn;
     Tv1Column2: TcxGridDBColumn;
     Tv1Column3: TcxGridDBColumn;
+    Tv1Column4: TcxGridDBColumn;
+    ToolButton13: TToolButton;
+    Panel8: TPanel;
+    Label30: TLabel;
+    Panel9: TPanel;
+    Image1: TImage;
+    Button11: TButton;
+    RadioGroup2: TRadioGroup;
+    ADOQuery2: TADOQuery;
+    cxImage1: TcxImage;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -244,6 +306,9 @@ type
     procedure ToolButton12Click(Sender: TObject);
     procedure TV4DblClick(Sender: TObject);
     procedure BAONOChange(Sender: TObject);
+    procedure ToolButton13Click(Sender: TObject);
+    procedure Button11Click(Sender: TObject);
+    procedure Image1Click(Sender: TObject);
   private
     DQdate: TDateTime;
     FLeft, FTop: Integer;
@@ -253,12 +318,30 @@ type
     function Savedata(): Boolean;
     procedure GetCDSData();
     procedure GetBGData();
+    procedure tsewm6(); //获取特殊二维码
     { Private declarations }
   public
     FFInt: Integer;
+    FDETM6: string;
     { Public declarations }
   end;
 
+const
+  LibName = 'zint.dll';
+
+  //struct zint_symbol *ZBarcode_Create(void);
+function ZBarcode_Create(): PZintSymbol; cdecl; external LibName;
+
+  //void ZBarcode_Delete(struct zint_symbol *symbol);
+procedure ZBarcode_Delete(symbol: PZintSymbol); cdecl; external LibName;
+
+  //int ZBarcode_Encode_and_Buffer(struct zint_symbol *symbol, unsigned char *input, int length, int rotate_angle);
+function ZBarcode_Encode_and_Buffer(symbol: PZintSymbol; input: PAnsiChar; length, rotate_angle: Integer): Integer; cdecl; external LibName;
+
+  // create bitmap 这个函数是使用编码后的条码图像数据生成Bitmap文件，不属于zint，因此不在zint.h头文件中，上面的三个在zint.h头文件中。
+
+procedure ZBarcode_To_Bitmap(symbol: PZintSymbol; const ABitmap: TBitmap);
+
 var
   frmJYOrderCDOne: TfrmJYOrderCDOne;
 
@@ -269,6 +352,86 @@ uses
   U_ZDYHelp, U_ProductOrderListSel;
 
 {$R *.dfm}
+procedure ZBarcode_To_Bitmap(symbol: PZintSymbol; const ABitmap: TBitmap);
+var
+  SrcRGB: PRGBTriple;
+  Row, RowWidth: Integer;
+begin
+  ABitmap.PixelFormat := pf24bit;
+  ABitmap.Height := symbol.bitmap_height;
+  ABitmap.Width := symbol.bitmap_width;
+
+//  ABitmap.Height := 80;
+//  ABitmap.Width := 80;
+
+  SrcRGB := Pointer(symbol.bitmap);
+  RowWidth := symbol.bitmap_width * 3;
+
+  for Row := 0 to symbol.bitmap_height - 1 do
+  begin
+    CopyMemory(ABitmap.ScanLine[Row], SrcRGB, RowWidth);
+    Inc(SrcRGB, symbol.bitmap_width);
+  end;
+
+  SetBitmapBits(ABitmap.Handle, symbol.bitmap_width * symbol.bitmap_height * 3, symbol.bitmap);
+end;
+
+procedure TfrmJYOrderCDOne.tsewm6();
+var
+  lvData: UTF8String; // 使用UTF8编码的字符串
+  lvBitMap: TBitmap;
+  lvSymbol: PZintSymbol;
+  lvErrorNumber: Integer;
+  lvErrorText: string;
+  bitmap: TBitmap;
+begin
+  lvSymbol := ZBarcode_Create();
+  if lvSymbol = nil then
+    Exit;
+  lvBitMap := TBitmap.Create;
+  try               //'010872020901234590RS9999-100R1011234567893112005160'
+    lvData := UTF8String(FDETM6);
+    // 条码类型设置为QRCODE
+    lvSymbol.symbology := BARCODE_QRCODE;
+//    lvSymbol.option_2 := 1;
+   //Data Matrix （ISO 16022）(and HIBC)
+    // 编码
+    lvErrorNumber := ZBarcode_Encode_and_Buffer(lvSymbol, PAnsiChar(lvData), Length(lvData), 0);
+    // 编码成功
+    if lvErrorNumber = 0 then
+    begin
+      // 生成Bitmap图形
+      ZBarcode_To_Bitmap(lvSymbol, lvBitMap);
+      // 显示在Image中
+      cxImage1.Picture.Bitmap.Width := 80;
+      cxImage1.Picture.Bitmap.Height := 80;
+      cxImage1.Picture.Bitmap.Canvas.Brush.Color := clWhite;
+      cxImage1.Picture.Bitmap.Canvas.FillRect(Rect(0, 0, cxImage1.Width, cxImage1.Height));
+      cxImage1.Picture.Bitmap.Canvas.StretchDraw(Rect(10, 10, cxImage1.Width - 10, cxImage1.Height - 10), lvBitMap);
+
+    end
+    else
+    begin
+      cxImage1.Picture.Bitmap.Width := cxImage1.Width;
+      cxImage1.Picture.Bitmap.Height := cxImage1.Height;
+      cxImage1.Picture.Bitmap.Canvas.Brush.Color := clWhite;
+      cxImage1.Picture.Bitmap.Canvas.FillRect(Rect(0, 0, cxImage1.Width, cxImage1.Height));
+      lvErrorText := string(AnsiString(lvSymbol.errtxt));
+      ShowMessage('编码时发生错误：' + lvErrorText);
+    end;
+  finally
+    lvBitMap.Free;
+    lvBitMap := nil;
+    ZBarcode_Delete(lvSymbol);
+  end;
+  bitmap := TBitmap.Create;
+  try
+    bitmap.Assign(cxImage1.Picture.Bitmap);
+    bitmap.SaveToFile(ExtractFilePath(Application.ExeName) + 'image\temp6.bmp');
+  finally
+    bitmap.Free;
+  end;
+end;
 
 procedure TfrmJYOrderCDOne.FormDestroy(Sender: TObject);
 begin
@@ -430,7 +593,7 @@ begin
   begin
     MJType.ItemIndex := MJType.Items.IndexOf('次品');
     MJType.Enabled := false;
-
+    ToolButton12.Visible := false;
   end;
 end;
 
@@ -620,7 +783,7 @@ end;
 procedure TfrmJYOrderCDOne.ToolButton1Click(Sender: TObject);
 var
   fPrintFile: string;
-  Txt, fImagePath, fImagePath1, fImagePath2, fImagePath3: string;
+  Txt, fImagePath, fImagePath1, fImagePath2, fImagePath3, fImagePath5, fImagePath6, Txt7, fImagePath7: string;
   Moudle: THandle;
   Makebar: TMakebar;
   Mixtext: TMixtext;
@@ -655,7 +818,7 @@ begin
           sql.Add('select QtyUnit=A.MJTypeOther,B.orderNo,B.conNo,B.MPRTCode,GangNo=D.RCgangNO,PRTColorEng=E.Note,B.LBName,B.NLBName ');
           sql.Add(',khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=B.conNO) ');
           sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)');
-          sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,B.MPRTSpec,B.MPRTKuanNO,C.*,A.* ');
+          sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,B.MPRTCode,B.MPRTSpec,B.MPRTKuanNO,C.*,A.* ');
           sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty');
           sql.Add(' from WFB_MJJY A');
           sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid');
@@ -728,7 +891,49 @@ begin
           application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
           exit;
         end;
-
+        try
+          Moudle := LoadLibrary('MakeQRBarcode.dll');
+          @Makebar := GetProcAddress(Moudle, 'Make');
+          @Mixtext := GetProcAddress(Moudle, 'MixText');
+          Txt := Trim(ADOQueryPrint.fieldbyname('DETM5').AsString);
+          fImagePath5 := ExtractFilePath(Application.ExeName) + 'image\temp5.bmp';
+          if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
+            CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
+          if FileExists(fImagePath5) then
+            DeleteFile(fImagePath5);
+          Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath5), 3);
+        except
+          application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
+          exit;
+        end;
+        try
+          Moudle := LoadLibrary('MakeQRBarcode.dll');
+          @Makebar := GetProcAddress(Moudle, 'Make');
+          @Mixtext := GetProcAddress(Moudle, 'MixText');
+          Txt7 := Trim(ADOQueryPrint.fieldbyname('DETM7').AsString);
+          fImagePath7 := ExtractFilePath(Application.ExeName) + 'image\temp5.bmp';
+          if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
+            CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
+          if FileExists(fImagePath7) then
+            DeleteFile(fImagePath7);
+          Makebar(pchar(Txt7), Length(Txt7), 3, 3, 0, PChar(fImagePath7), 3);
+        except
+          application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
+          exit;
+        end;
+        try
+          fImagePath6 := ExtractFilePath(Application.ExeName) + 'image\temp6.bmp';
+          if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
+            CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
+          if FileExists(fImagePath6) then
+            DeleteFile(fImagePath6);
+          FDETM6 := Trim(ADOQueryPrint.fieldbyname('DETM6').AsString);
+//          FDETM6 := 'TECLECL01XXX' + Trim(ADOQueryPrint.fieldbyname('SOrddefstr1').AsString) + ' ' + '#' + Trim(ADOQueryPrint.fieldbyname('PRTHX').AsString) + '-' + RightStr(('10000' + trim(ADOQueryPrint.fieldbyName('MJXH').AsString)), 4) + '-' + Trim(ADOQueryPrint.fieldbyname('SOrddefstr2').AsString);
+          tsewm6();
+        except
+          application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
+          exit;
+        end;
         if Trim(ADOQueryPrint.fieldbyname('LbName').AsString) <> '' then
           fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('LbName').AsString) + '.rmf'
         else
@@ -740,6 +945,9 @@ begin
           RMVariables['QRBARCODE1'] := fImagePath1;
           RMVariables['QRBARCODE2'] := fImagePath2;
           RMVariables['QRBARCODE3'] := fImagePath3;
+          RMVariables['QRBARCODE5'] := fImagePath5;
+          RMVariables['QRBARCODE6'] := fImagePath6;
+          RMVariables['QRBARCODE7'] := fImagePath7;
           RM2.LoadFromFile(fPrintFile);
           Rm2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
           RM2.ShowReport;
@@ -983,8 +1191,8 @@ begin
     RMVariables['CustomerNoName'] := Trim(Order_Main.fieldbyname('CustomerNoName').AsString);
     RMVariables['MPRTCodeName'] := Trim(Order_Main.fieldbyname('MPRTCodeName').AsString);
     RMVariables['MPRTMF'] := Trim(Order_Main.fieldbyname('MPRTMF').AsString);
-    RMVariables['JGC'] := Trim(Order_Main.fieldbyname('AOrddefstr4').AsString);
+//    RMVariables['JGC'] := Trim(Order_Main.fieldbyname('AOrddefstr4').AsString);
-    RMVariables['PBC'] := Trim(Order_Main.fieldbyname('AOrddefstr6').AsString);
+//    RMVariables['PBC'] := Trim(Order_Main.fieldbyname('AOrddefstr6').AsString);
     RMCD.ShowReport;
   end
   else
@@ -1022,6 +1230,7 @@ begin
   SInitCDSData20(ADOQueryTemp, CDS_CD);
   if CDS_CD.IsEmpty = False then
     CDS_CD.Delete;
+
   with ADOQueryTemp do
   begin
     Close;
@@ -1924,5 +2133,74 @@ begin
   end;
 end;
 
+procedure TfrmJYOrderCDOne.ToolButton13Click(Sender: TObject);
+var
+  fPrintFile, fZMFile: string;
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  if Order_Main.Locate('SSel', True, []) = False then
+  begin
+    Application.MessageBox('没有选择数据', '提示', 0);
+    Exit;
+  end;
+  Panel8.Visible := true;
+end;
+
+procedure TfrmJYOrderCDOne.Button11Click(Sender: TObject);
+var
+  fPrintFile, fZMFile, LBName: string;
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+//  fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\检验报告.rmf';
+  LBName := RadioGroup2.Items.Strings[RadioGroup2.ItemIndex];
+  fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf';
+  ExportFtErpFile(Trim(LBName) + '.rmf', ADOQueryCmd);
+
+  with ADOQuery2 do
+  begin
+    Close;
+    sql.Clear;
+    sql.add('exec P_Do_Print_JYBB ');
+    sql.add('@mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainid').AsString)));
+    sql.add(',@DName=' + quotedstr(Trim(DCode)));
+    sql.add(',@flag=''0'' ');
+    Open;
+  end;
+  SCreateCDS20(ADOQuery2, CDS_HZ);
+  SInitCDSData20(ADOQuery2, CDS_HZ);
+  if FileExists(fPrintFile) then
+  begin
+    if RMCD.CanExport = true then
+    begin
+      fZMFile := 'C:\Users\Administrator\Desktop';
+      if not DirectoryExists(fZMFile) then
+      begin
+        fZMFile := 'C:\Documents and Settings\Administrator\桌面\' + trim(Order_Main.fieldbyname('ConNO').AsString) + Trim(LBName) + '.xls';
+      end
+      else
+      begin
+        fZMFile := 'C:\Users\Administrator\Desktop\' + trim(Order_Main.fieldbyname('ConNO').AsString) + Trim(LBName) + '.XLS';
+      end;
+      RMCD.ExportTo(RMXLSExport1, fZMFile);
+    end;
+    RMCD.CanExport := true;
+    RMCD.LoadFromFile(fPrintFile);
+    RMCD.ShowReport;
+    RMCD.CanExport := False;
+  end
+  else
+  begin
+    Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf'), '提示', 0);  //+ 'Report\检验报告.rmf'
+
+  end;
+end;
+
+procedure TfrmJYOrderCDOne.Image1Click(Sender: TObject);
+begin
+  Panel8.Visible := false;
+end;
+
 end.
 

贸易管理/U_MJManageNewFDNew.dfm

@@ -1952,6 +1952,15 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnClick = Edit1Click
       OnKeyPress = MJstr3KeyPress
     end
+    object cxImage1: TcxImage
+      Left = 27
+      Top = 625
+      AutoSize = True
+      TabOrder = 27
+      Visible = False
+      Height = 113
+      Width = 169
+    end
   end
   object Panel3: TPanel
     Left = 4