sy_gryprkdsc.dfm

省级集邮品管理ERP

      '  KDRQ = :KDRQ,'
      '  DJRQ = :DJRQ,'
      '  FZR = :FZR,'
      '  SHR = :SHR,'
      '  ZBR = :ZBR,'
      '  YSY = :YSY,'
      '  JZY = :JZY,'
      '  KGY = :KGY'
      'where'
      '  RKDH = :OLD_RKDH')
    InsertSQL.Strings = (
      'insert into tks_grprkd'
      
        '  (RKDH, YJDH, RKXZ, LYDW, RKRQ, JSZT, KDRQ, DJRQ, FZR, SHR, ZBR' +
        ', YSY, '
      '   JZY, KGY)'
      'values'
      
        '  (:RKDH, :YJDH, :RKXZ, :LYDW, :RKRQ, :JSZT, :KDRQ, :DJRQ, :FZR,' +
        ' :SHR, '
      '   :ZBR, :YSY, :JZY, :KGY)')
    DeleteSQL.Strings = (
      'delete from tks_grprkd'
      'where'
      '  RKDH = :OLD_RKDH')
    Left = 96
    Top = 109
  end
  object qry_RKDPP: TQuery
    CachedUpdates = True
    AfterInsert = qry_RKDPPAfterInsert
    DatabaseName = 'YZPP'
    DataSource = DS_RKD
    RequestLive = True
    SQL.Strings = (
      
        'select distinct b.zh,b.tmc,a.ppdm,a.jj,a.kfdm,a.yj,a.xj,a.sl,a.b' +
        'z,'
      '  a.rkdh,a.kwh,a.zk,a.jsj,a.DW,'
      '  a.SL*(a.xj*nvl(a.zk,0)/100+nvl(a.jsj,0)) JSJE, c.xj yxj '
      ' from tks_grprkpp a,tb_yzppxxb b, tys_grppkc c '
      ' where a.ppdm=b.tdm and a.ppdm=c.ppdm(+)'
      '    and a.RKDH=:RKDH'
      ' order by b.zh')
    UpdateObject = USQL_RKDPPGR
    Left = 252
    Top = 227
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'RKDH'
        ParamType = ptUnknown
      end>
    object qry_RKDPPZH: TStringField
      FieldName = 'ZH'
      Size = 16
    end
    object qry_RKDPPTMC: TStringField
      FieldName = 'TMC'
      Size = 120
    end
    object qry_RKDPPPPDM: TStringField
      FieldName = 'PPDM'
      Size = 15
    end
    object qry_RKDPPJJ: TFloatField
      FieldName = 'JJ'
      OnGetText = qry_RKDPPJJGetText
      OnSetText = qry_RKDPPJJSetText
    end
    object qry_RKDPPKFDM: TStringField
      FieldName = 'KFDM'
      Size = 3
    end
    object qry_RKDPPYJ: TFloatField
      FieldName = 'YJ'
    end
    object qry_RKDPPXJ: TFloatField
      FieldName = 'XJ'
      OnChange = qry_RKDPPZKChange
      OnGetText = qry_RKDPPJJGetText
      OnSetText = qry_RKDPPJJSetText
    end
    object qry_RKDPPSL: TFloatField
      FieldName = 'SL'
      OnChange = qry_RKDPPZKChange
      DisplayFormat = '#,##'
    end
    object qry_RKDPPBZ: TStringField
      FieldName = 'BZ'
      Size = 60
    end
    object qry_RKDPPRKDH: TStringField
      FieldName = 'RKDH'
    end
    object qry_RKDPPKWH: TStringField
      FieldName = 'KWH'
      Size = 30
    end
    object qry_RKDPPZK: TFloatField
      FieldName = 'ZK'
      OnChange = qry_RKDPPZKChange
    end
    object qry_RKDPPJSJ: TFloatField
      FieldName = 'JSJ'
      OnChange = qry_RKDPPZKChange
      OnGetText = qry_RKDPPJJGetText
      OnSetText = qry_RKDPPJJSetText
    end
    object qry_RKDPPDW: TStringField
      FieldName = 'DW'
      Size = 6
    end
    object qry_RKDPPJSJE: TFloatField
      FieldName = 'JSJE'
      OnGetText = qry_RKDPPJJGetText
    end
    object qry_RKDPPYXJ: TFloatField
      FieldName = 'YXJ'
    end
    object qry_RKDPPkfmc: TStringField
      FieldKind = fkLookup
      FieldName = 'kfmc'
      LookupDataSet = Qry_KFB
      LookupKeyFields = 'KFDM'
      LookupResultField = 'KFMC'
      KeyFields = 'KFDM'
      Lookup = True
    end
  end
  object USQL_RKDPPGR: TUpdateSQL
    ModifySQL.Strings = (
      'update TKS_GRPRKPP'
      'set'
      '  RKDH = :RKDH,'
      '  PPDM = :PPDM,'
      '  JJ = :JJ,'
      '  KFDM = :KFDM,'
      '  KWH = :KWH,'
      '  YJ = :YJ,'
      '  XJ = :XJ,'
      '  ZK = :ZK,'
      '  JSJ = :JSJ,'
      '  SL = :SL,'
      '  BZ = :BZ,'
      '  DW = :DW'
      'where'
      '  RKDH = :OLD_RKDH and'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ and'
      '  KFDM = :OLD_KFDM')
    InsertSQL.Strings = (
      'insert into TKS_GRPRKPP'
      '  (RKDH, PPDM, JJ, KFDM, KWH, YJ, XJ, ZK, JSJ, SL, BZ, DW)'
      'values'
      
        '  (:RKDH, :PPDM, :JJ, :KFDM, :KWH, :YJ, :XJ, :ZK, :JSJ, :SL, :BZ' +
        ', :DW)')
    DeleteSQL.Strings = (
      'delete from TKS_GRPRKPP'
      'where'
      '  RKDH = :OLD_RKDH and'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ and'
      '  KFDM = :OLD_KFDM')
    Left = 308
    Top = 227
  end
  object StoredProc1: TStoredProc
    DatabaseName = 'YZPP'
    StoredProcName = 'PUBLIC_PROCESS.GET_NO'
    Left = 96
    Top = 312
    ParamData = <
      item
        DataType = ftString
        Name = 'Result'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'BILLID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'SORTCODE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'DEPARTMENT'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'CYEAR'
        ParamType = ptInput
      end>
  end
  object DS_RKDPP: TDataSource
    DataSet = qry_RKDPP
    Left = 280
    Top = 227
  end
  object Qry_KFB: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'SELECT A.KFMC,A.KFDM FROM TGS_KFB A,TGS_KFRYDZB B where A.KFDM=B' +
        '.KFDM AND A.kfdm<>-1 and A.kfdm<>-2')
    Left = 368
    Top = 228
  end
  object Qry_dw: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select DWDM, DWJC DWMC, ZJSJ, SJFH, ZJXJ '
      ' from TGS_GXDWSJB'
      ' where BJ<>'#39'1'#39'  '
      '  and (JYYW='#39'1'#39' or (ZJSJ='#39'1'#39' or SJFH='#39'1'#39'))'
      '  and DWDM not in('#39'-1'#39','#39'-2'#39','#39'-3'#39','#39'-4'#39')'
      ' order by PXM')
    Left = 289
    Top = 93
  end
  object DS_dw: TDataSource
    DataSet = Qry_dw
    Left = 321
    Top = 93
  end
  object USQL_RKDYP: TUpdateSQL
    ModifySQL.Strings = (
      'update tks_yprkd '
      'set'
      '  YJDH = :YJDH,'
      '  RKXZ = :RKXZ,'
      '  LYDW = :LYDW,'
      '  RKRQ = :RKRQ,'
      '  JSZT = :JSZT,'
      '  KDRQ = :KDRQ,'
      '  DJRQ = :DJRQ,'
      '  FZR = :FZR,'
      '  SHR = :SHR,'
      '  ZBR = :ZBR,'
      '  YSY = :YSY,'
      '  JZY = :JZY,'
      '  KGY = :KGY'
      'where'
      '  RKDH = :OLD_RKDH')
    InsertSQL.Strings = (
      'insert into tks_yprkd'
      
        '  (RKDH, YJDH, RKXZ, LYDW, RKRQ, JSZT, KDRQ, DJRQ, FZR, SHR, ZBR' +
        ', YSY, '
      '   JZY, KGY)'
      'values'
      
        '  (:RKDH, :YJDH, :RKXZ, :LYDW, :RKRQ, :JSZT, :KDRQ, :DJRQ, :FZR,' +
        ' :SHR, '
      '   :ZBR, :YSY, :JZY, :KGY)')
    DeleteSQL.Strings = (
      'delete from tks_yprkd'
      'where'
      '  RKDH = :OLD_RKDH')
    Left = 96
    Top = 137
  end
  object USQL_RKDPPYP: TUpdateSQL
    ModifySQL.Strings = (
      'update TKS_YPRKPP'
      'set'
      '  RKDH = :RKDH,'
      '  PPDM = :PPDM,'
      '  JJ = :JJ,'
      '  KFDM = :KFDM,'
      '  KWH = :KWH,'
      '  YJ = :YJ,'
      '  XJ = :XJ,'
      '  ZK = :ZK,'
      '  JSJ = :JSJ,'
      '  SL = :SL,'
      '  BZ = :BZ,'
      '  DW = :DW'
      'where'
      '  RKDH = :OLD_RKDH and'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ and'
      '  KFDM = :OLD_KFDM')
    InsertSQL.Strings = (
      'insert into TKS_YPRKPP'
      '  (RKDH, PPDM, JJ, KFDM, KWH, YJ, XJ, ZK, JSJ, SL, BZ, DW)'
      'values'
      
        '  (:RKDH, :PPDM, :JJ, :KFDM, :KWH, :YJ, :XJ, :ZK, :JSJ, :SL, :BZ' +
        ', :DW)')
    DeleteSQL.Strings = (
      'delete from TKS_YPRKPP'
      'where'
      '  RKDH = :OLD_RKDH and'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ and'
      '  KFDM = :OLD_KFDM')
    Left = 308
    Top = 255
  end
  object SqlS_RKD: TSqlStrings
    yp_Sql.Strings = (
      'SELECT RKDH, YJDH, RKXZ, LYDW, RKRQ, JSZT, KDRQ, DJRQ, FZR, '
      '  SHR, ZBR, YSY, JZY, KGY, G.DWMC'
      ' FROM TKS_YPRKD J, TGS_GXDWSJB G '
      ' WHERE J.LYDW = G.DWDM '
      '  and to_char(KDRQ,'#39'YYYYMM'#39')=:KDRQ'
      '  and J.RKDH not in'
      '  (select RKDH from TKS_YPRKPP where KFDM not in'
      '   (select KFDM from TGS_KFRYDZB where YGDM=:YGDM))'
      ' order by j.rkdh')
    grp_Sql.Strings = (
      'SELECT RKDH, YJDH, RKXZ, LYDW, RKRQ, JSZT, KDRQ, DJRQ, FZR, '
      '  SHR, ZBR, YSY, JZY, KGY, G.DWMC'
      ' FROM TKS_GRPRKD J, TGS_GXDWSJB G '
      ' WHERE J.LYDW = G.DWDM '
      '  and to_char(KDRQ,'#39'YYYYMM'#39')=:KDRQ'
      '  and J.RKDH not in'
      '  (select RKDH from TKS_GRPRKPP where KFDM not in'
      '   (select KFDM from TGS_KFRYDZB where YGDM=:YGDM))'
      ' order by j.rkdh')
    Left = 12
    Top = 109
  end
  object SqlS_RKDPP: TSqlStrings
    yp_Sql.Strings = (
      
        'select distinct b.zh,b.tmc,a.ppdm,a.jj,a.kfdm,a.yj,a.xj,a.sl,a.b' +
        'z,'
      '  a.rkdh,a.kwh,a.zk,a.jsj,a.DW,'
      '  a.SL*(a.xj*nvl(a.zk,0)/100+nvl(a.jsj,0)) JSJE, c.xj yxj '
      ' from tks_yprkpp a,tb_yzppxxb b, tys_yppkc c '
      ' where a.ppdm=b.tdm and a.ppdm=c.ppdm(+)'
      '    and a.RKDH=:RKDH'
      ' order by b.zh')
    grp_Sql.Strings = (
      
        'select distinct b.zh,b.tmc,a.ppdm,a.jj,a.kfdm,a.yj,a.xj,a.sl,a.b' +
        'z,'
      '  a.rkdh,a.kwh,a.zk,a.jsj,a.DW,'
      '  a.SL*(a.xj*nvl(a.zk,0)/100+nvl(a.jsj,0)) JSJE, c.xj yxj '
      ' from tks_grprkpp a,tb_yzppxxb b, tys_grppkc c '
      ' where a.ppdm=b.tdm and a.ppdm=c.ppdm(+)'
      '    and a.RKDH=:RKDH'
      ' order by b.zh')
    Left = 224
    Top = 229
  end
end