udmfunc.pas

ProviceSystem-公积金监管系统中心端

  except
    Result := -2
  end;
end;

function YjSet9(const sDsbh: string; fGjsxfBl: Double;
  const sGjsxfKm: string; lGjsxfUse: Boolean; fDksxfBl: Double;
  const sDksxfKm: string; lDksxfUse: Boolean): Smallint;
var
  iPJgWs: IPJgWsServer;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.YjSet9(sDsbh, fGjsxfBl, sGjsxfKm,
        lGjsxfUse, fDksxfBl, sDksxfKm, lDksxfUse);
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function YjSet11(const sDsbh: string; fRecMaxJ, fRecMaxD: Double;
  lRecUse: Boolean; fDayMaxJ, fDayMaxD: Double; lDayUse: Boolean;
  fMonMaxJ, fMonMaxD: Double; lMonUse: Boolean): Smallint;
var
  iPJgWs: IPJgWsServer;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.YjSet11(sDsbh, fRecMaxJ, fRecMaxD, lRecUse,
        fDayMaxJ, fDayMaxD, lDayUse, fMonMaxJ, fMonMaxD, lMonUse);
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function YjSetInfo(const sDsbh: string): smallint;
var
  iPJgWs: IPJgWsServer;
  vData: Variant;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.YjSetInfo(sDsbh, vData);
      DM.cds.XMLData := vData;
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function YjSet1Info(var fRecMax: Double;
  var lRecUse: Boolean; var fDayMax: Double; var lDayUse: Boolean;
  var fMonMax: Double; var lMonUse: Boolean; var sDwdkKm: string;
  var lDwdkUse: Boolean; var sXmdkKm: string; var lXmdkUse: Boolean): Smallint;
begin
  result := 0;
  try
    fRecMax := Dm.cds.FieldByName('rec_max').AsFloat;
    lRecUse := Dm.cds.FieldByName('rec_use').AsBoolean;
    fDayMax := Dm.cds.FieldByName('day_max').AsFloat;
    lDayUse := Dm.cds.FieldByName('day_use').AsBoolean;
    fMonMax := Dm.cds.FieldByName('mon_max').AsFloat;
    lMonUse := Dm.cds.FieldByName('mon_use').AsBoolean;
    sDwdkKm := trim(Dm.cds.FieldByName('dwdkkm').AsString);
    lDwdkUse := Dm.cds.FieldByName('dw_use').AsBoolean;
    sXmdkKm := trim(Dm.cds.FieldByName('xmdkkm').AsString);
    lXmdkUse := Dm.cds.FieldByName('xm_use').AsBoolean;
  except
    Result := -1;
  end;
end;

function YjSet2Info(var iGdMax, iGdMin: Integer;
  var lGdUse: Boolean; var iGdQxMax, iGdQxMin: Smallint;
  var lGdQxUse: Boolean; var iJkcs: Smallint; var lJkcsuse: Boolean;
  var iYqqxMax, iYqqxJsr: Smallint; var lYqqxUse: Boolean): Smallint;
begin
  result := 0;
  try
    iGdMax := Dm.cds.FieldByName('gd_max').AsInteger;
    iGdMin := Dm.cds.FieldByName('gd_min').AsInteger;
    lGdUse := Dm.cds.FieldByName('gd_use').AsBoolean;
    iGdQxMax := Dm.cds.FieldByName('gdqx_max').AsInteger;
    iGdQxMin := Dm.cds.FieldByName('gdqx_min').AsInteger;
    lGdQxUse := Dm.cds.FieldByName('gdqx_use').AsBoolean;
    iJkcs := Dm.cds.FieldByName('jkcs').AsInteger;
    lJkcsuse := Dm.cds.FieldByName('jkcs_use').AsBoolean;
    iYqqxMax := Dm.cds.FieldByName('yqqx_max').AsInteger;
    iYqqxJsr := Dm.cds.FieldByName('yqqx_jsr').AsInteger;
    lYqqxUse := Dm.cds.FieldByName('yqqx_use').AsBoolean;
  except
    Result := -1;
  end;
end;

function YjSet3Info(var iFfcsMax, iFfcsTime: Smallint;
  var lFfcsUse: Boolean): Smallint;
begin
  Result := 0;
  try
    iFfcsMax := Dm.cds.FieldByName('ffcs_max').AsInteger;
    iFfcsTime := Dm.cds.FieldByName('ffcs_time').AsInteger;
    lFfcsUse := Dm.cds.FieldByName('ffcs_use').AsBoolean;
  except
    Result := -1;
  end;
end;

function YjSet4Info(var iGzjjMax: Integer;
  var lGzjjUse: Boolean; var iGdjjMax: Integer; var lGdjjUse: Boolean;
  var iTqMax: Integer; var lTqUse: Boolean): Smallint;
begin
  Result := 0;
  try
    iGzjjMax := Dm.cds.FieldByName('gzjj_max').AsInteger;
    lGzjjUse := Dm.cds.FieldByName('gzjj_use').AsBoolean;
    iGdjjMax := Dm.cds.FieldByName('gdjj_max').AsInteger;
    lGdjjUse := Dm.cds.FieldByName('gdjj_use').AsBoolean;
    iTqMax := Dm.cds.FieldByName('tq_max').AsInteger;
    lTqUse := Dm.cds.FieldByName('tq_use').AsBoolean;
  except
    Result := -1;
  end;
end;

function YjSet6Info(var fLzzjBl: Double;
  var sLzzjKm: string; var lLzzjUse: Boolean; var fFxzbBl: Double;
  var sFxzbKm: string; var lFxzbUse: Boolean; var fZxjfBl: Double;
  var sZxjfKm: string; var lZxjfUse: Boolean): Smallint;
begin
  Result := 0;
  try
    fLzzjBl := Dm.cds.FieldByName('lzzj_bl').AsFloat;
    sLzzjKm := trim(Dm.cds.FieldByName('lzzj_km').AsString);
    lLzzjUse := Dm.cds.FieldByName('lzzj_use').AsBoolean;
    fFxzbBl := Dm.cds.FieldByName('fxzb_bl').AsFloat;
    sFxzbKm := trim(Dm.cds.FieldByName('fxzb_km').AsString);
    lFxzbUse := Dm.cds.FieldByName('fxzb_use').AsBoolean;
    fZxjfBl := Dm.cds.FieldByName('zxjf_bl').AsFloat;
    sZxjfKm := trim(Dm.cds.FieldByName('zxjf_km').AsString);
    lZxjfUse := Dm.cds.FieldByName('zxjf_use').AsBoolean;
  except
    Result := -1;
  end;
end;

function YjSet8Info(var sZzglfKm: string;
  var lZzglfUse: Boolean): Smallint;
begin
  Result := 0;
  try
    sZzglfKm := trim(Dm.cds.FieldByName('zzglf_km').AsString);
    lZzglfUse := Dm.cds.FieldByName('zzglf_use').AsBoolean;
  except
    Result := -1;
  end;
end;

function YjSet9Info(var fGjsxfBl: Double;
  var sGjsxfKm: string; var lGjsxfUse: Boolean; var fDksxfBl: Double;
  var sDksxfKm: string; var lDksxfUse: Boolean): Smallint;
begin
  Result := 0;
  try
    fGjsxfBl := Dm.cds.FieldByName('gjsxf_bl').AsFloat;
    sGjsxfKm := trim(Dm.cds.FieldByName('gjsxf_km').AsString);
    lGjsxfUse := Dm.cds.FieldByName('gjsxf_use').AsBoolean;
    fDksxfBl := Dm.cds.FieldByName('dksxf_bl').AsFloat;
    sDksxfKm := trim(Dm.cds.FieldByName('dksxf_km').AsString);
    lDksxfUse := Dm.cds.FieldByName('dksxf_use').AsBoolean;
  except
    Result := -1;
  end;
end;

function YjSet10Info(var fZxyskFse, fZxyskYe: Double;
  var sZxyskKm: string; var lZxyskUse: Boolean; var fZxyfkFse,
  fZxyfkYe: Double; var sZxyfkKm: string; var lZxyfkUse: Boolean;
  var fQtyskFse, fQtyskYe: Double; var sQtyskKm: string;
  var lQtyskUse: Boolean; var fQtyfkFse, fQtyfkYe: Double;
  var sQtyfkKm: string; var lQtyfkUse: Boolean): Smallint;
begin
  Result := 0;
  try
    fZxyskFse := Dm.cds.FieldByName('zxysk_fse').AsFloat;
    fZxyskYe := Dm.cds.FieldByName('zxysk_ye').AsFloat;
    sZxyskKm := trim(Dm.cds.FieldByName('zxysk_km').AsString);
    lZxyskUse := Dm.cds.FieldByName('zxysk_use').AsBoolean;
    fZxyfkFse := Dm.cds.FieldByName('zxyfk_fse').AsFloat;
    fZxyfkYe := Dm.cds.FieldByName('zxyfk_ye').AsFloat;
    sZxyfkKm := trim(Dm.cds.FieldByName('zxyfk_km').AsString);
    lZxyfkUse := Dm.cds.FieldByName('zxyfk_use').AsBoolean;
    fQtyskFse := Dm.cds.FieldByName('qtysk_fse').AsFloat;
    fQtyskYe := Dm.cds.FieldByName('qtysk_ye').AsFloat;
    sQtyskKm := trim(Dm.cds.FieldByName('qtysk_km').AsString);
    lQtyskUse := Dm.cds.FieldByName('qtysk_use').AsBoolean;
    fQtyfkFse := Dm.cds.FieldByName('qtyfk_fse').AsFloat;
    fQtyfkYe := Dm.cds.FieldByName('qtyfk_ye').AsFloat;
    sQtyfkKm := trim(Dm.cds.FieldByName('qtyfk_km').AsString);
    lQtyfkUse := Dm.cds.FieldByName('qtyfk_use').AsBoolean;
  except
    Result := -1;
  end;
end;

function YjSet11Info(var fRecMaxJ, fRecMaxD: Double;
  var lRecUse: Boolean; var fDayMaxJ, fDayMaxD: Double; var lDayUse: Boolean;
  var fMonMaxJ, fMonMaxD: Double; var lMonUse: Boolean): Smallint;
begin
  Result := 0;
  try
    fRecMaxJ := Dm.cds.FieldByName('yhrec_maxj').AsFloat;
    fRecMaxD := Dm.cds.FieldByName('yhrec_maxd').AsFloat;
    lRecUse := Dm.cds.FieldByName('yhrec_use').AsBoolean;
    fDayMaxJ := Dm.cds.FieldByName('yhday_maxj').AsFloat;
    fDayMaxD := Dm.cds.FieldByName('yhday_maxd').AsFloat;
    lDayUse := Dm.cds.FieldByName('yhday_use').AsBoolean;
    fMonMaxJ := Dm.cds.FieldByName('yhmon_maxj').AsFloat;
    fMonMaxD := Dm.cds.FieldByName('yhmon_maxd').AsFloat;
    lMonUse := Dm.cds.FieldByName('yhmon_use').AsBoolean;
  except
    Result := -1;
  end;
end;

function CkllInfo(var aCkll: TCkllDynArray): Smallint;
var
  iPJgWs: IPJgWsServer;
  vData: Variant;
  i, l: integer;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.CkllInfo(vData);
      DM.cds.XMLData := vData;
      l := Dm.cds.RecordCount;
      SetLength(aCkll, l);
      i := 0;
      while not Dm.cds.Eof do
      begin
        aCkll[i].ZxRq := Dm.cds.FieldByName('llzxrq').AsString;
        aCkll[i].Hqll := Dm.cds.FieldByName('hqcknll').AsFloat;
        aCkll[i].Dqll := Dm.cds.FieldByName('dqcknll').AsFloat;
        Dm.cds.Next;
        inc(i);
      end;
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function CkllSave(aCkll: TCkllDynArray): Smallint;
var
  i, l: integer;
begin
  result := CkllDelete;
  l := high(aCkll);
  for i := 0 to l do
  begin
    Result := CkllSave(aCkll[i].ZxRq, aCkll[i].Hqll, aCkll[i].Dqll);
    if Result <> 0 then
      Break;
  end;
end;

function CkllSave(const sZxrq: string; const fHqll, fDqll: Double): Smallint;
var
  iPJgWs: IPJgWsServer;
  //  vData: Variant;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.CkllSave(sZxrq, fHqll, fDqll);
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function DkllInfo(var aDkll: TDkllDynArray): Smallint;
var
  iPJgWs: IPJgWsServer;
  vData: Variant;
  i, l: integer;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.DkllInfo(vData);
      DM.cds.XMLData := vData;
      l := Dm.cds.RecordCount;
      SetLength(aDkll, l);
      i := 0;
      while not Dm.cds.Eof do
      begin
        aDkll[i].Dkqx := Dm.cds.FieldByName('dkqx').AsInteger;
        aDkll[i].DkNll := Dm.cds.FieldByName('dknll').AsFloat;
        aDkll[i].FxTll := Dm.cds.FieldByName('fxtll').AsFloat;
        Dm.cds.Next;
        inc(i);
      end;
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function DkllSave(aDkll: TDkllDynArray): Smallint;
var
  i, l: integer;
begin
  result := DkllDelete;
  l := high(aDkll);
  for i := 0 to l do
  begin
    Result := DkllSave(aDkll[i].Dkqx, aDkll[i].DkNll, aDkll[i].FxTll);
    if Result <> 0 then
      Break;
  end;
end;

function DkllSave(const iDkqx: Smallint; const fDkll, fFxll: Double): Smallint;
var
  iPJgWs: IPJgWsServer;
  //  vData: Variant;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.DkllSave(iDkqx, fDkll, fFxll);
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function KhyhhsInfo: Smallint;
var
  iPJgWs: IPJgWsServer;
  //  vData: Variant;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.KhyhhsInfo;
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function KhyhhsSave(iHs: Smallint): Smallint;
var
  iPJgWs: IPJgWsServer;
  //  vData: Variant;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.KhyhhsSave(iHs);
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function KhyhInfo(var aKhyh: TKhyhDynArray): Smallint;
var
  iPJgWs: IPJgWsServer;
  vData: Variant;
  i, l: integer;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.KhyhInfo(vData);
      DM.cds.XMLData := vData;
      l := Dm.cds.RecordCount;
      SetLength(aKhyh, l);
      i := 0;
      while not Dm.cds.Eof do
      begin
        aKhyh[i].bh := Dm.cds.FieldByName('yhbm').AsString;
        aKhyh[i].mc := Dm.cds.FieldByName('yhmc').AsString;
        Dm.cds.Next;
        inc(i);
      end;
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function KhyhSave(aKhyh: TKhyhDynArray): Smallint;
var
  i, l: integer;
begin
  result := KhyhDelete;
  l := high(aKhyh);
  for i := 0 to l do
  begin
    Result := KhyhSave(aKhyh[i].bh, aKhyh[i].mc);
    if Result <> 0 then
      Break;