fhd_cx.dfm

省级集邮品管理ERP

        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 = 'CON8'
        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 = 61
    Top = 219
  end
  object qry_GRP: 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,'
      
        '  0 MZ, J.JJ/100 JJ, J.YJ/100 YJ, J.XJ/100 XJ, J.SL, J.ZK, J.JSJ' +
        '/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_GRPCKPP J, TB_YZPPXXB Y, TKS_GRPFHD F, TGS_GXDWSJB G,' +
        ' TGS_JRCKXZDM R, TG_ZTZTDMB Z'
      
        '  WHERE J.PPDM = Y.TDM AND J.FHDH = F.FHDH AND F.QXDW = G.DWDM A' +
        'ND F.CKXZ = R.RCKXZDM(+)'
      '    AND F.ZTZT = Z.ZTZTDM AND %CON'
      'UNION ALL'
      
        'SELECT 1 ORD, G.DWJC FHDH,%CON1, %CON2, %CON3, %CON4, %CON5, %CO' +
        'N6, %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_GRPCKPP J, TB_YZPPXXB Y, TKS_GRPFHD F, TGS_GXDWSJB G,' +
        ' TGS_JRCKXZDM R, TG_ZTZTDMB Z'
      
        '  WHERE J.PPDM = Y.TDM AND J.FHDH = F.FHDH AND F.QXDW = G.DWDM A' +
        'ND F.CKXZ = R.RCKXZDM(+)'
      '    AND F.ZTZT = Z.ZTZTDM 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 = 'CON8'
        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 = 61
    Top = 184
  end
  object qry_YP: 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.MC 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,'
      
        '  0 MZ, J.JJ/100 JJ, J.YJ/100 YJ, J.XJ/100 XJ, J.SL, J.ZK, J.JSJ' +
        '/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_YPCKPP J, TB_JYPTXXB Y, TKS_YPFHD F, TGS_GXDWSJB G, T' +
        'GS_JRCKXZDM R, TG_ZTZTDMB Z'
      
        '  WHERE J.PPDM = 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_YPCKPP J, TB_JYPTXXB Y, TKS_YPFHD F, TGS_GXDWSJB G, T' +
        'GS_JRCKXZDM R, TG_ZTZTDMB Z'
      
        '  WHERE J.PPDM = 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'
        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 = 'CON8'
        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 = 61
    Top = 149
  end
  object qry_JYP: 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,'
      
        '  0 MZ, J.JJ/100 JJ, J.YJ/100 YJ, J.XJ/100 XJ, J.SL, J.ZK, J.JSJ' +
        '/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_JYCKPP J, TB_YZPPTXXB Y, TKS_JYFHD F, TGS_GXDWSJB G, ' +
        'TGS_JRCKXZDM R, TG_ZTZTDMB Z'
      
        '  WHERE J.PPDM = 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, %CO' +
        'N6, %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_JYCKPP J, TB_YZPPTXXB Y, TKS_JYFHD F, TGS_GXDWSJB G, ' +
        'TGS_JRCKXZDM R, TG_ZTZTDMB Z'
      
        '  WHERE J.PPDM = 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'
        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 = 'CON8'
        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 = 61
    Top = 112
  end
end