rkd_cx.dfm

省级集邮品管理ERP

      end
      item
        DataType = ftString
        Name = 'CON4'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON5'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON6'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON7'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON_GRP'
        ParamType = ptInput
        Value = 'DWJC'
      end
      item
        DataType = ftString
        Name = 'CON_ORD'
        ParamType = ptInput
        Value = 'DWJC'
      end>
    Left = 62
    Top = 69
  end
  object qry_YP: TRxQuery
    AfterOpen = qry_JYPAfterOpen
    DatabaseName = 'YZPP'
    SQL.Strings = (
      
        'SELECT 2 ORD, '#39'  '#39'||J.RKDH RKDH, G.DWJC, R.RCKXZMC, '#39'('#39'||Y.ZH||'#39 +
        ')'#39'||Y.MC PPDM,'
      '  DECODE(JSZT, 1, '#39'是'#39', '#39'否'#39') JSZT,'
      '  DECODE(JZY, NULL, '#39'否'#39', '#39'是'#39') FH,'
      '  TO_CHAR(KDRQ,'#39'YYYY-MM-DD'#39') KDRQ,'
      '  TO_CHAR(RKRQ,'#39'YYYY-MM-DD'#39') DJRQ,'
      
        '  0 MZ, J.JJ/100 JJ, J.YJ/100 YJ, J.XJ/100 XJ, J.SL, J.ZK, JSJ/1' +
        '00 JSJ, J.BZ,'
      
        '  J.SL*(J.XJ*nvl(J.ZK/100, 0)+nvl(J.JSJ,0))/100 JSJE, PXM, F.ZBR' +
        ', F.JZY FHR'
      
        '  FROM TKS_YPRKPP J, TB_JYPTXXB Y, TKS_YPRKD F, TGS_GXDWSJB G, T' +
        'GS_JRCKXZDM R'
      
        '  WHERE J.PPDM = Y.TDM AND J.RKDH = F.RKDH AND F.LYDW = G.DWDM A' +
        'ND F.RKXZ = R.RCKXZDM(+)'
      '    AND %CON'
      'UNION ALL'
      
        'SELECT 1 ORD, G.DWJC RKDH, %CON1, %CON2, %CON3, %CON4, %CON5, %C' +
        'ON6, %CON7,'
      
        '  0, 0, 0, 0, SUM(J.SL) SL, 0, 0 JSJ, '#39#39' BZ, 0 JSJE, PXM,'#39#39' ZBR,' +
        ' '#39#39' FHR'
      
        '  FROM TKS_YPRKPP J, TB_JYPTXXB Y, TKS_YPRKD F, TGS_GXDWSJB G, T' +
        'GS_JRCKXZDM R'
      
        '  WHERE J.PPDM = Y.TDM AND J.RKDH = F.RKDH AND F.LYDW = G.DWDM A' +
        'ND F.RKXZ = R.RCKXZDM(+)'
      '    AND %CON'
      '  GROUP BY PXM, %CON_GRP'
      'ORDER BY PXM, %CON_ORD, 1,2 DESC')
    Macros = <
      item
        DataType = ftString
        Name = 'CON'
        ParamType = ptInput
        Value = '0=0'
      end
      item
        DataType = ftString
        Name = 'CON1'
        ParamType = ptInput
        Value = 'DWJC'
      end
      item
        DataType = ftString
        Name = 'CON2'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON3'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON4'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON5'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON6'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON7'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON_GRP'
        ParamType = ptInput
        Value = 'DWJC'
      end
      item
        DataType = ftString
        Name = 'CON_ORD'
        ParamType = ptInput
        Value = 'DWJC'
      end>
    Left = 62
    Top = 102
  end
  object qry_GRP: TRxQuery
    AfterOpen = qry_JYPAfterOpen
    DatabaseName = 'YZPP'
    SQL.Strings = (
      
        'SELECT 2 ORD, '#39'  '#39'||J.RKDH RKDH, G.DWJC, R.RCKXZMC, '#39'('#39'||Y.ZH||'#39 +
        ')'#39'||Y.TMC PPDM,'
      '  DECODE(JSZT, 1, '#39'是'#39', '#39'否'#39') JSZT,'
      '  DECODE(JZY, NULL, '#39'否'#39', '#39'是'#39') FH,'
      '  TO_CHAR(KDRQ,'#39'YYYY-MM-DD'#39') KDRQ,'
      '  TO_CHAR(RKRQ,'#39'YYYY-MM-DD'#39') DJRQ,'
      
        '  0 MZ, J.JJ/100 JJ, J.YJ/100 YJ, J.XJ/100 XJ, J.SL, J.ZK, JSJ/1' +
        '00 JSJ, J.BZ,'
      
        '  J.SL*(J.XJ*nvl(J.ZK/100, 0)+nvl(J.JSJ,0))/100 JSJE, PXM, F.ZBR' +
        ', F.JZY FHR'
      
        '  FROM TKS_GRPRKPP J, TB_YZPPXXB Y, TKS_GRPRKD F, TGS_GXDWSJB G,' +
        ' TGS_JRCKXZDM R'
      
        '  WHERE J.PPDM = Y.TDM AND J.RKDH = F.RKDH AND F.LYDW = G.DWDM A' +
        'ND F.RKXZ = R.RCKXZDM(+)'
      '    AND %CON'
      'UNION ALL'
      
        'SELECT 1 ORD, G.DWJC RKDH, %CON1, %CON2, %CON3, %CON4, %CON5, %C' +
        'ON6, %CON7,'
      
        '  0, 0 , 0 , 0, SUM(J.SL) SL, 0, 0 JSJ, '#39#39'BZ, 0 JSJE, PXM, '#39#39' ZB' +
        'R, '#39#39' FHR'
      
        '  FROM TKS_GRPRKPP J, TB_YZPPXXB Y, TKS_GRPRKD F, TGS_GXDWSJB G,' +
        ' TGS_JRCKXZDM R'
      
        '  WHERE J.PPDM = Y.TDM AND J.RKDH = F.RKDH AND F.LYDW = G.DWDM A' +
        'ND F.RKXZ = R.RCKXZDM(+)'
      '    AND %CON'
      '  GROUP BY PXM, %CON_GRP'
      'ORDER BY PXM, %CON_ORD, 1,2 DESC')
    Macros = <
      item
        DataType = ftString
        Name = 'CON'
        ParamType = ptInput
        Value = '0=0'
      end
      item
        DataType = ftString
        Name = 'CON1'
        ParamType = ptInput
        Value = 'DWJC'
      end
      item
        DataType = ftString
        Name = 'CON2'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON3'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON4'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON5'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON6'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON7'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON_GRP'
        ParamType = ptInput
        Value = 'DWJC'
      end
      item
        DataType = ftString
        Name = 'CON_ORD'
        ParamType = ptInput
        Value = 'DWJC'
      end>
    Left = 62
    Top = 137
  end
  object qry_TXP: TRxQuery
    AfterOpen = qry_JYPAfterOpen
    DatabaseName = 'YZPP'
    SQL.Strings = (
      
        'SELECT 2 ORD, '#39'  '#39'||J.RKDH RKDH, G.DWJC, R.RCKXZMC, '#39'('#39'||Y.ZH||'#39 +
        ')'#39'||Y.TMC PPDM,'
      '  DECODE(JSZT, 1, '#39'是'#39', '#39'否'#39') JSZT,'
      '  DECODE(JZY, NULL, '#39'否'#39', '#39'是'#39') FH,'
      '  TO_CHAR(KDRQ,'#39'YYYY-MM-DD'#39') KDRQ,'
      '  TO_CHAR(RKRQ,'#39'YYYY-MM-DD'#39') DJRQ,'
      
        '  Y.TPMZ/100 MZ, J.JJ/100 JJ, 0 YJ, J.XJ/100 XJ, J.SL, J.ZK, JSJ' +
        '/100 JSJ, J.BZ,'
      
        '  J.SL*(J.XJ*nvl(J.ZK/100, 0)+nvl(J.JSJ,0))/100 JSJE, PXM, F.ZBR' +
        ', F.JZY FHR'
      
        '  FROM TKS_TXRKPP J, TB_YZPPXXB Y, TKS_TXRKD F, TGS_GXDWSJB G, T' +
        'GS_JRCKXZDM R'
      
        '  WHERE J.TUDM = Y.TDM AND J.RKDH = F.RKDH AND F.LYDW = G.DWDM A' +
        'ND F.RKXZ = R.RCKXZDM(+)'
      '    AND %CON'
      'UNION ALL'
      
        'SELECT 1 ORD, G.DWJC RKDH, %CON1, %CON2, %CON3, %CON4, %CON5, %C' +
        'ON6, %CON7,  '
      
        '  0, 0 , 0 , 0, SUM(J.SL) SL, 0, 0 JSJ, '#39#39' BZ, 0 JSJE, PXM, '#39#39' Z' +
        'BR, '#39#39' FHR'
      
        '  FROM TKS_TXRKPP J, TB_YZPPXXB Y, TKS_TXRKD F, TGS_GXDWSJB G, T' +
        'GS_JRCKXZDM R'
      
        '  WHERE J.TUDM = Y.TDM AND J.RKDH = F.RKDH AND F.LYDW = G.DWDM A' +
        'ND F.RKXZ = R.RCKXZDM(+)'
      '    AND %CON'
      '  GROUP BY PXM, %CON_GRP'
      'ORDER BY PXM, %CON_ORD, 1,2 DESC')
    Macros = <
      item
        DataType = ftString
        Name = 'CON'
        ParamType = ptInput
        Value = '0=0'
      end
      item
        DataType = ftString
        Name = 'CON1'
        ParamType = ptInput
        Value = 'DWJC'
      end
      item
        DataType = ftString
        Name = 'CON2'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON3'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON4'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON5'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON6'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON7'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'CON_GRP'
        ParamType = ptInput
        Value = 'DWJC'
      end
      item
        DataType = ftString
        Name = 'CON_ORD'
        ParamType = ptInput
        Value = 'DWJC'
      end>
    Left = 62
    Top = 172
  end
end