fhd_cx.dfm

省级集邮品管理ERP

object Frm_FHD_CX: TFrm_FHD_CX
  Left = 41
  Top = -4
  BorderStyle = bsDialog
  Caption = '发货单查询'
  ClientHeight = 523
  ClientWidth = 742
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  ShowHint = True
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object RxDBG_fhd: TRxDBGrid
    Left = 0
    Top = 45
    Width = 742
    Height = 439
    Align = alClient
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    PopupMenu = data.pm_Export
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDrawColumnCell = RxDBG_fhdDrawColumnCell
    Columns = <
      item
        Expanded = False
        FieldName = 'FHDH'
        Title.Caption = '去向单位/发货单号'
        Width = 117
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'YJDH'
        Title.Caption = '依据单号'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PPDM'
        Title.Caption = '票品名称'
        Width = 95
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'RCKXZMC'
        Title.Caption = '出库性质'
        Width = 54
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZTZT'
        ReadOnly = True
        Title.Caption = '在途状态'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MZ'
        Title.Caption = '面值(元)'
        Width = 52
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JJ'
        Title.Caption = '进价(元)'
        Width = 49
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'XJ'
        Title.Caption = '销价(元)'
        Width = 45
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SL'
        Title.Caption = '总数/数量'
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZK'
        Title.Caption = '折扣(%)'
        Width = 43
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JSJ'
        Title.Caption = '结算价(元)'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JSJE'
        Title.Caption = '结算金额(元)'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FH'
        Title.Caption = '已复核'
        Width = 38
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'KDRQ'
        Title.Caption = '开单日期'
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CKRQ'
        Title.Caption = '出库日期'
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zt'
        Title.Caption = '状态'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bz'
        Title.Caption = '备注'
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 484
    Width = 742
    Height = 39
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 1
    object BitBtn1: TBitBtn
      Left = 650
      Top = 6
      Width = 75
      Height = 25
      Caption = '返回(&X)'
      TabOrder = 0
      Kind = bkClose
    end
    object BitBtn2: TBitBtn
      Left = 431
      Top = 6
      Width = 75
      Height = 25
      Caption = '查询(&F)'
      TabOrder = 1
      OnClick = BitBtn2Click
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDDDDDDDDDDDDDDCCCCCDDDDDCCCCCDCFCCCDDDDDCFCCCDCFCCCDDDDDCF
        CCCDCCCCCCCDCCCCCCCDCCFCCCCCCFCCCCCDCCFCCCDCCFCCCCCDCCFCCCDCCFCC
        CCCDDCCCCCCCCCCCCCDDDDCFCCCDCFCCCDDDDDCCCCCDCCCCCDDDDDDCCCDDDCCC
        DDDDDDDCFCDDDCFCDDDDDDDCCCDDDCCCDDDDDDDDDDDDDDDDDDDD}
    end
    object BitBtn3: TBitBtn
      Left = 528
      Top = 6
      Width = 93
      Height = 25
      Caption = '打印表格(&P)'
      TabOrder = 2
      OnClick = BitBtn3Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object BBt_CZFHD: TBitBtn
      Tag = 201
      Left = 300
      Top = 6
      Width = 109
      Height = 25
      Hint = '冲正发货单'
      Caption = '冲正发货单(&C)'
      TabOrder = 3
      OnClick = BBt_CZFHDClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333}
      NumGlyphs = 2
    end
    object Button1: TButton
      Tag = 11
      Left = 16
      Top = 6
      Width = 117
      Height = 25
      Caption = '打印本月出库汇总单'
      TabOrder = 4
      OnClick = Button1Click
    end
    object Button2: TButton
      Tag = 22
      Left = 136
      Top = 6
      Width = 141
      Height = 25
      Caption = '打印依据单的出库汇总单'
      TabOrder = 5
      OnClick = Button1Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 742
    Height = 45
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 2
    object XttxTitle: TRxLabel
      Left = 1
      Top = 1
      Width = 740
      Height = 24
      Align = alTop
      Alignment = taCenter
      Caption = '集邮入库单查询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -24
      Font.Name = '楷体_GB2312'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object DWMC: TLabel
      Left = 20
      Top = 25
      Width = 60
      Height = 12
      Caption = '使用单位：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Panel3: TPanel
      Left = 579
      Top = 8
      Width = 161
      Height = 34
      BevelOuter = bvNone
      TabOrder = 0
      object Label2: TLabel
        Left = 7
        Top = 18
        Width = 12
        Height = 12
        Caption = '年'
      end
      object Label3: TLabel
        Left = 87
        Top = 17
        Width = 12
        Height = 12
        Caption = '月'
      end
      object SpinEdit1: TSpinEdit
        Left = 23
        Top = 12
        Width = 57
        Height = 21
        MaxLength = 4
        MaxValue = 2050
        MinValue = 1980
        TabOrder = 0
        Value = 1980
        OnChange = SpinEdit1Change
      end
      object SpinEdit2: TSpinEdit
        Left = 99
        Top = 12
        Width = 50
        Height = 21
        MaxLength = 2
        MaxValue = 12
        MinValue = 1
        TabOrder = 1
        Value = 12
        OnChange = SpinEdit1Change
      end
    end
  end
  object DataSource1: TDataSource
    Left = 96
    Top = 112
  end
  object Qry_Static: TQuery
    AutoCalcFields = False
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select  * from TYS_JYCKJHDB')
    Left = 494
    Top = 346
  end
  object Qry_Static2: TQuery
    AutoCalcFields = False
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select  * from TYS_JYCKJHDB')
    Left = 526
    Top = 346
  end
  object qry_TXP: TRxQuery
    AfterOpen = qry_JYPAfterOpen
    DatabaseName = 'YZPP'
    SQL.Strings = (
      
        'SELECT 2 ORD, '#39'  '#39'||J.FHDH FHDH, G.DWJC, R.RCKXZMC, '#39'('#39'||Y.ZH||'#39 +
        ')'#39'||Y.TMC PPDM,'
      '  DECODE(JSZT, 1, '#39'是'#39', '#39'否'#39')  JSZT,'
      '  Z.ZTMC ZTZT,'
      '  DECODE(HDR, NULL, '#39'否'#39', '#39'是'#39') FH,'
      '  TO_CHAR(KDRQ,'#39'YYYY-MM-DD'#39') KDRQ,'
      '  TO_CHAR(CKRQ,'#39'YYYY-MM-DD'#39') CKRQ,'
      
        '  Y.TPMZ/100 MZ, J.JJ/100 JJ, 0 YJ, J.XJ/100 XJ, J.SL, J.ZK, J.J' +
        'SJ/100 JSJ,'
      
        '  J.SL*(J.XJ*nvl(J.ZK/100, 0)+nvl(J.JSJ,0))/100 JSJE, PXM, F.BZ,' +
        ' decode(F.JSZT, '#39'0'#39','#39'正常'#39','#39'1'#39','#39'被撤消'#39', '#39'2'#39','#39'被冲正'#39','#39'冲正'#39') zt' +
        ', F.YJDH'
      
        '  FROM TKS_TXCKPP J, TB_YZPPXXB Y, TKS_TXFHD F, TGS_GXDWSJB G, T' +
        'GS_JRCKXZDM R, TG_ZTZTDMB Z'
      
        '  WHERE J.TUDM = Y.TDM AND J.FHDH = F.FHDH AND F.QXDW = G.DWDM A' +
        'ND F.CKXZ = R.RCKXZDM(+)'
      '    AND F.ZTZT = Z.ZTZTDM AND F.CKXZ <> '#39'11'#39' AND %CON'
      'UNION ALL'
      
        'SELECT 1 ORD, G.DWJC FHDH, %CON1, %CON2, %CON3, %CON4, %CON5, %C' +
        'ON6, %CON7, %CON8,'
      
        '  0, 0 , 0 , 0, SUM(J.SL) SL, 0, 0 JSJ, 0 JSJE, PXM, '#39#39' bz, '#39#39'zt' +
        ', '#39#39' YJDH'
      
        '  FROM TKS_TXCKPP J, TB_YZPPXXB Y, TKS_TXFHD F, TGS_GXDWSJB G, T' +
        'GS_JRCKXZDM R, TG_ZTZTDMB Z'
      
        '  WHERE J.TUDM = Y.TDM AND J.FHDH = F.FHDH AND F.QXDW = G.DWDM A' +
        'ND F.CKXZ = R.RCKXZDM(+)'
      '    AND F.ZTZT = Z.ZTZTDM AND F.CKXZ <> '#39'11'#39' AND %CON'
      '  GROUP BY PXM, %CON_GRP'
      'ORDER BY PXM, %CON_ORD, 1,2 desc'
      ' '
      ' ')
    Macros = <
      item
        DataType = ftString
        Name = 'CON'