jm_fhdsc_getpp.dfm

省级集邮品管理ERP

      FieldName = 'PPMC'
      Size = 60
    end
    object rxQry_kxppJJ: TFloatField
      FieldName = 'JJ'
      OnGetText = rxQry_kxppJJGetText
      OnSetText = rxQry_kxppJJSetText
    end
    object rxQry_kxppYJ: TFloatField
      FieldName = 'YJ'
      OnGetText = rxQry_kxppYJGetText
      OnSetText = rxQry_kxppYJSetText
    end
    object rxQry_kxppXJ: TFloatField
      FieldName = 'XJ'
      OnGetText = rxQry_kxppXJGetText
      OnSetText = rxQry_kxppXJSetText
    end
    object rxQry_kxppTS: TFloatField
      FieldName = 'TS'
      DisplayFormat = '#,##'
      EditFormat = '#'
    end
    object rxQry_kxppBZ: TStringField
      FieldName = 'BZ'
      Size = 40
    end
  end
  object DS_kxpp: TDataSource
    DataSet = rxQry_kxpp
    Left = 132
    Top = 204
  end
  object DS_ckpp: TDataSource
    DataSet = rxQry_ckpp
    Left = 448
    Top = 192
  end
  object Qry_fhd: TQuery
    CachedUpdates = True
    DatabaseName = 'yzpp'
    RequestLive = True
    SQL.Strings = (
      
        'select FHDH, YJDH, CKXZ, FHDW, QXDW, KDRQ, ZTZT, GHRQ, JSZT, ZPR' +
        'Q, FZDS, CKRQ, DJRQ, ZGR, KGY, HDR, ZBR, BZ, SDATE'
      'from TM_HTCKD'
      'where FHDH='#39'abc'#39)
    Left = 344
    Top = 192
  end
  object qry_yyy: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select ygdm,ygmc from tgs_ryb where ygdm<>'#39'1'#39' order by ygdm')
    Left = 484
    Top = 16
  end
  object ds_yyy: TDataSource
    DataSet = qry_yyy
    Left = 512
    Top = 16
  end
  object rxQry_ckpp: TQuery
    CachedUpdates = True
    BeforeInsert = rxQry_ckppBeforeInsert
    DatabaseName = 'yzpp'
    RequestLive = True
    SQL.Strings = (
      'select KFDM,FHDH, LB, PPDM, JJ, SL, YJ, XJ, JSJ, ZK, PPMC, ZH'
      'from TM_HTCKPP  '
      'where  FHDH='#39'abc'#39' '
      ' ')
    Left = 420
    Top = 192
    object rxQry_ckppFHDH: TStringField
      FieldName = 'FHDH'
      Origin = 'JM_YZPP.TM_HTCKPP.FHDH'
    end
    object rxQry_ckppLB: TStringField
      FieldName = 'LB'
      Origin = 'JM_YZPP.TM_HTCKPP.LB'
      Size = 5
    end
    object rxQry_ckppPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'JM_YZPP.TM_HTCKPP.PPDM'
      Size = 15
    end
    object rxQry_ckppJJ: TFloatField
      FieldName = 'JJ'
      Origin = 'JM_YZPP.TM_HTCKPP.JJ'
    end
    object rxQry_ckppSL: TFloatField
      FieldName = 'SL'
      Origin = 'JM_YZPP.TM_HTCKPP.SL'
      DisplayFormat = '#,##'
      EditFormat = '#'
    end
    object rxQry_ckppYJ: TFloatField
      FieldName = 'YJ'
      Origin = 'JM_YZPP.TM_HTCKPP.YJ'
    end
    object rxQry_ckppXJ: TFloatField
      FieldName = 'XJ'
      Origin = 'JM_YZPP.TM_HTCKPP.XJ'
    end
    object rxQry_ckppJSJ: TFloatField
      FieldName = 'JSJ'
      Origin = 'JM_YZPP.TM_HTCKPP.JSJ'
    end
    object rxQry_ckppZK: TFloatField
      FieldName = 'ZK'
      Origin = 'JM_YZPP.TM_HTCKPP.ZK'
    end
    object rxQry_ckppPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'JM_YZPP.TM_HTCKPP.PPMC'
      Size = 120
    end
    object rxQry_ckppZH: TStringField
      FieldName = 'ZH'
      Origin = 'JM_YZPP.TM_HTCKPP.ZH'
      Size = 16
    end
    object rxQry_ckppKFDM: TStringField
      FieldName = 'KFDM'
      Origin = 'YZPP.TM_HTCKPP.KFDM'
      Size = 3
    end
  end
  object SqlStrings1: TSqlStrings
    jyp_Sql.Strings = (
      
        'select n.ppdm,m.tmc ppmc,m.zh zh,n.ts,n.jj,n.yj,n.xj,n.jsj,n.zk,' +
        'n.bz,N.KFDM from'
      
        '(select a.ppdm,a.jj,a.ts-decode(b.ts,null,0,b.ts) ts,a.kfdm,a.KW' +
        'H,a.YJ, a.XJ, a.JSJ, a.ZK, a.BZ from tys_jyppkc a,'
      '(select ppdm,jj,sum(ts) ts,kfdm from'
      
        '                                (select A.PPDM, A.JJ, A.FPSL TS,' +
        ' A.KFDM'
      
        '                                   from TYS_JYCKJHDPPB a,TYS_JYC' +
        'KJHDB b '
      
        '                                   where a.CKJHDH=b.CKJHDH and (' +
        'b.ZT = '#39'0'#39' or b.ZT = '#39'2'#39') and a.kfdm=:KFDM'
      '                                 union all'
      
        '                                 select a.ppdm,a.jj,a.sl ts,a.kf' +
        'dm'
      '                                   from tks_jyckpp a,tks_jyfhd b'
      
        '                                   where a.fhdh=b.fhdh and b.hdr' +
        ' is null and a.kfdm=:KFDM'
      '                                 union all'
      
        '                                 select a.ppdm,a.jj,a.sl ts,a.kf' +
        'dm'
      '                                   from tm_htckpp a,tm_htckd b'
      
        '                                   where a.fhdh=b.fhdh and a.lb=' +
        #39'0'#39' and b.ghrq is null and kfdm=:KFDM)'
      'group by ppdm,jj,kfdm ) b'
      
        'where a.kfdm=:KFDM and b.ppdm(+)=a.ppdm and b.jj(+)=a.jj and b.k' +
        'fdm(+)=a.kfdm) n,tb_yzppxxb m'
      'where n.ppdm=m.tdm and ts>0'
      'order by ppdm,jj,zh'
      ' '
      ' ')
    yp_Sql.Strings = (
      
        'select n.ppdm,m.tmc ppmc,m.zh zh,n.ts,n.jj,n.yj,n.xj,n.jsj,n.zk,' +
        'n.bz,N.KFDM from'
      
        '(select a.ppdm,a.jj,a.ts-decode(b.ts,null,0,b.ts) ts,a.kfdm,a.KW' +
        'H,a.YJ, a.XJ, a.JSJ, a.ZK, a.BZ from tys_yppkc a,'
      '(select ppdm,jj,sum(ts) ts,kfdm from'
      
        '                                (select A.PPDM, A.JJ, A.FPSL TS,' +
        ' A.KFDM'
      
        '                                   from TYS_YPCKJHDPPB a,TYS_YPC' +
        'KJHDB b'
      
        '                                   where a.CKJHDH=b.CKJHDH  and ' +
        '(b.ZT = '#39'0'#39' or b.ZT = '#39'2'#39' and a.kfdm=:KFDM)'
      '                                 union all'
      
        '                                 select a.ppdm,a.jj,a.sl ts,a.kf' +
        'dm'
      '                                   from tks_ypckpp a,tks_ypfhd b'
      
        '                                   where a.fhdh=b.fhdh and b.hdr' +
        ' is null and a.kfdm=:KFDM'
      '                                 union all'
      
        '                                 select a.ppdm,a.jj,a.sl ts,a.kf' +
        'dm'
      '                                   from tm_htckpp a,tm_htckd b'
      
        '                                   where a.fhdh=b.fhdh and a.lb=' +
        #39'1'#39' and b.ghrq is null and  kfdm=:KFDM)'
      'group by ppdm,jj,kfdm ) b'
      
        'where a.kfdm=:KFDM and b.ppdm(+)=a.ppdm and b.jj(+)=a.jj and b.k' +
        'fdm(+)=a.kfdm) n,tb_yzppxxb m'
      'where n.ppdm=m.tdm  and ts>0'
      'order by ppdm,jj,zh'
      ' ')
    grp_Sql.Strings = (
      
        'select n.ppdm,m.tmc ppmc,m.zh zh,n.ts,n.jj,n.yj,n.xj,n.jsj,n.zk,' +
        'n.bz,N.KFDM from'
      
        '(select a.ppdm,a.jj,a.ts-decode(b.ts,null,0,b.ts) ts,a.kfdm,a.KW' +
        'H,a.YJ, a.XJ, a.JSJ, a.ZK, a.BZ from tys_grppkc a,'
      '(select ppdm,jj,sum(ts) ts,kfdm from '
      
        '                                (select A.PPDM, A.JJ, A.FPSL TS,' +
        ' A.KFDM  '
      
        '                                   from TYS_GRPCKJHDPPB a,TYS_GR' +
        'PCKJHDB b'
      
        '                                   where a.CKJHDH=b.CKJHDH  and ' +
        '(b.ZT = '#39'0'#39' or b.ZT = '#39'2'#39' and a.kfdm=:KFDM)'
      '                                 union all'
      
        '                                 select a.ppdm,a.jj,a.sl ts,a.kf' +
        'dm'
      
        '                                   from tks_grpckpp a,tks_grpfhd' +
        ' b'
      
        '                                   where a.fhdh=b.fhdh and b.hdr' +
        ' is null and a.kfdm=:KFDM'
      '                                 union all'
      
        '                                 select a.ppdm,a.jj,a.sl ts,a.kf' +
        'dm'
      '                                   from tm_htckpp a,tm_htckd b'
      
        '                                   where a.fhdh=b.fhdh and a.lb=' +
        #39'2'#39' and b.ghrq is null and    kfdm=:KFDM)'
      'group by ppdm,jj,kfdm ) b'
      
        'where a.kfdm=:KFDM and b.ppdm(+)=a.ppdm and b.jj(+)=a.jj and b.k' +
        'fdm(+)=a.kfdm) n,tb_yzppxxb m'
      'where n.ppdm=m.tdm and ts>0'
      'order by ppdm,jj,zh'
      ' ')
    Left = 76
    Top = 204
  end
  object Qry_kfdm: TQuery
    DatabaseName = 'yzpp'
    Left = 84
    Top = 48
  end
  object spr_dh: TStoredProc
    DatabaseName = 'yzpp'
    StoredProcName = 'PUBLIC_PROCESS.GET_NO'
    Left = 80
    Top = 253
    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
end