uyjrun.pas

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

  vData: Variant;
begin
  YjSetInfo1(fRecMax,lRecUse,fDayMax,lDayUse,fMonMax,lMonUse,
    sDwdkKm,lDwdkUse,sXmdkKm,lXmdkUse);

  try
    iCJgWs := dm.riocjg as IJGLR;
    try
      Result := iCJgWs.fYjA(fDateB,fDateE,fRecMax,lRecUse,fDayMax,lDayUse,fMonMax,lMonUse,
        sDwdkKm,lDwdkUse,sXmdkKm,lXmdkUse,vData);
    finally
      iCJgWs := nil;
    end;
  except
    Result := -2;
  end;

  if Result =0 then
    Result := YjInfoSave(vData);
end;

function TYjSearch.YjSearch2: Smallint;
var
  iGdMax, iGdMin: Integer;
  lGdUse: Boolean;
  iGdQxMax, iGdQxMin: Smallint;
  lGdQxUse: Boolean;
  iJkcs: Smallint;
  lJkcsuse: Boolean;
  iYqqxMax, iYqqxJsr: Smallint;
  lYqqxUse: Boolean;

  iCJgWs: IJGLR;
  vData: Variant;
begin
  YjSetInfo2(iGdMax, iGdMin, lGdUse,iGdQxMax, iGdQxMin,
    lGdQxUse, iJkcs,lJkcsuse,iYqqxMax, iYqqxJsr,lYqqxUse);

  try
    iCJgWs := dm.riocjg as IJGLR;
    try
      Result := iCJgWs.fYjB(fDateE,iGdMax, iGdMin, lGdUse,iGdQxMax, iGdQxMin,
        lGdQxUse, iJkcs,lJkcsuse,iYqqxMax, iYqqxJsr,lYqqxUse,vData);
    finally
      iCJgWs := nil;
    end;
  except
    Result := -2;
  end;

  if Result =0 then
    Result := YjInfoSave(vData);
end;

function TYjSearch.YjSearch3: Smallint;
var
  iFfcsMax, iFfcsTime: Smallint;
  lFfcsUse: Boolean;

  iCJgWs: IJGLR;
  vData: Variant;
begin
  YjSetInfo3(iFfcsMax,iFfcsTime,lFfcsUse);

  try
    iCJgWs := dm.riocjg as IJGLR;
    try
      Result := iCJgWs.fYjc(iFfcsMax,iFfcsTime,lFfcsUse,vData);
    finally
      iCJgWs := nil;
    end;
  except
    Result := -2;
  end;
  if Result =0 then
    Result := YjInfoSave(vData);
end;

function TYjSearch.YjSearch4: Smallint;
var
  iGzjjMax: Integer;
  lGzjjUse: Boolean;
  iGdjjMax: Integer;
  lGdjjUse: Boolean;
  iTqMax: Integer;
  lTqUse: Boolean;

  iCJgWs: IJGLR;
  vData: Variant;
begin
  YjSetInfo4(iGzjjMax,lGzjjUse,iGdjjMax,lGdjjUse,iTqMax,lTqUse);

  try
    iCJgWs := dm.riocjg as IJGLR;
    try
      Result := iCJgWs.fYjD(fDateB,fDateE,iGzjjMax,lGzjjUse,iGdjjMax,
        lGdjjUse,iTqMax,lTqUse,vData);
    finally
      iCJgWs := nil;
    end;
  except
    Result := -2;
  end;

  if Result =0 then
    Result := YjInfoSave(vData);
end;

function TYjSearch.YjSearch5: Smallint;
var
  iKhs,i: smallint;
  aKhyh: TKhyhDynArray;
  sBm,sMc: String;

  iCJgWs: IJGLR;
  vData: Variant;
begin
  iKhs := KhyhHsInfo;
  KhyhInfo(aKhyh);
  for i:=0 to High(aKhyh) do
  begin
    sBm:= sBm+trim(aKhyh[i].bh)+#38;
    sMc:= sMc+trim(aKhyh[i].mc)+#38;
  end;
  SetLength(aKhyh,0);
  try
    iCJgWs := dm.riocjg as IJGLR;
    try
      Result := iCJgWs.fYjE(iKhs,sBm,sMc,vData);
    finally
      iCJgWs := nil;
    end;
  except
    Result := -2;
  end;

  if Result =0 then
    Result := YjInfoSave(vData);
end;

function TYjSearch.YjSearch6: Smallint;
var
  fLzzjBl: Double;
  sLzzjKm: String;
  lLzzjUse: Boolean;
  fFxzbBl: Double;
  sFxzbKm: String;
  lFxzbUse: Boolean;
  fZxjfBl: Double;
  sZxjfKm: String;
  lZxjfUse: Boolean;

  iCJgWs: IJGLR;
  vData: Variant;
begin
  YjSetInfo6(fLzzjBl,sLzzjKm,lLzzjUse,fFxzbBl,sFxzbKm,lFxzbUse,
    fZxjfBl,sZxjfKm,lZxjfUse);

  try
    iCJgWs := dm.riocjg as IJGLR;
    try
      Result := iCJgWs.fYjF(fDateE,fLzzjBl,sLzzjKm,lLzzjUse,fFxzbBl,sFxzbKm,lFxzbUse,
    fZxjfBl,sZxjfKm,lZxjfUse,vData);
    finally
      iCJgWs := nil;
    end;
  except
    Result := -2;
  end;

  if Result =0 then
    Result := YjInfoSave(vData);
end;

function TYjSearch.YjSearch7: Smallint;
var
  i: smallint;
  aCkll: TCkllDynArray;
  aDkll: TDkllDynArray;
  sZxrq,sHqll,sDqll,sDkqx,sDkll,sFxll: String;

  iCJgWs: IJGLR;
  vData: Variant;
begin
  CkllInfo(aCkll);
  DkllInfo(aDkll);
  for i:=0 to High(aCkll) do
  begin
    sZxrq := sZxrq+trim(aCkll[i].ZxRq) +#38;
    sHqll := sHqll+trim(Ftos(aCkll[i].Hqll,6,3))+#38;
    sDqll := sDqll+trim(Ftos(aCkll[i].Dqll,6,3))+#38;
  end;
  SetLength(aDkll,0);
  for i:=0 to High(aDkll) do
  begin
    sDkqx := sDkqx+trim(inttostr(aDkll[i].Dkqx)) +#38;
    sDkll := sDkll+trim(Ftos(aDkll[i].DkNll,6,3))+#38;
    sFxll := sFxll+trim(Ftos(aDkll[i].FxTll,6,3))+#38;
  end;
  SetLength(aCkll,0);
  try
    iCJgWs := dm.riocjg as IJGLR;
    try
      Result := iCJgWs.fYjG(sZxrq,sHqll,sDqll,sDkqx,sDkll,sFxll,vData);
    finally
      iCJgWs := nil;
    end;
  except
    Result := -2;
  end;
  if Result =0 then
    Result := YjInfoSave(vData);
end;

function TYjSearch.YjSearch8: Smallint;
var
  sZzglfKm: String;
  lZzglfUse: Boolean;

  iCJgWs: IJGLR;
  vData: Variant;
begin
  YjSetInfo8(sZzglfKm,lZzglfUse);
  try
    iCJgWs := dm.riocjg as IJGLR;
    try
      Result := iCJgWs.fYjH(copy(fDateE,1,6),sZzglfKm,lZzglfUse,vData);
    finally
      iCJgWs := nil;
    end;
  except
    Result := -2;
  end;

  if Result =0 then
    Result := YjInfoSave(vData);
end;

function TYjSearch.YjSearch9: Smallint;
var
  fGjsxfBl: Double;
  sGjsxfKm: String;
  lGjsxfUse: Boolean;
  fDksxfBl: Double;
  sDksxfKm: String;
  lDksxfUse: Boolean;

  iCJgWs: IJGLR;
  vData: Variant;
begin
  YjSetInfo9(fGjsxfBl,sGjsxfKm,lGjsxfUse,fDksxfBl, sDksxfKm, lDksxfUse);
  try
    iCJgWs := dm.riocjg as IJGLR;
    try
      Result := iCJgWs.fYjI(copy(fDateE,1,6),fGjsxfBl,sGjsxfKm,lGjsxfUse,
        fDksxfBl, sDksxfKm, lDksxfUse,vData);
    finally
      iCJgWs := nil;
    end;
  except
    Result := -2;
  end;

  if Result =0 then
    Result := YjInfoSave(vData);
end;

function TYjSearch.YjSearch10: Smallint;
var
  fZxyskFse, fZxyskYe: Double;
  sZxyskKm: String;
  lZxyskUse: Boolean;
  fZxyfkFse,fZxyfkYe: Double;
  sZxyfkKm: String;
  lZxyfkUse: Boolean;
  fQtyskFse, fQtyskYe: Double;
  sQtyskKm: String;
  lQtyskUse: Boolean;
  fQtyfkFse, fQtyfkYe: Double;
  sQtyfkKm: String;
  lQtyfkUse: Boolean;

  iCJgWs: IJGLR;
  vData: Variant;
begin
  YjSetInfo10(fZxyskFse, fZxyskYe,sZxyskKm,lZxyskUse,
    fZxyfkFse,fZxyfkYe, sZxyfkKm,lZxyfkUse,
    fQtyskFse, fQtyskYe, sQtyskKm, lQtyskUse,
    fQtyfkFse, fQtyfkYe, sQtyfkKm,lQtyfkUse);
  try
    iCJgWs := dm.riocjg as IJGLR;
    try
      Result := iCJgWs.fYjJ(copy(fDateE,1,6),fZxyskFse, fZxyskYe,sZxyskKm,lZxyskUse,
        fZxyfkFse,fZxyfkYe, sZxyfkKm,lZxyfkUse,fQtyskFse, fQtyskYe, sQtyskKm, lQtyskUse,
        fQtyfkFse, fQtyfkYe, sQtyfkKm,lQtyfkUse,vData);
    finally
      iCJgWs := nil;
    end;
  except
    Result := -2;
  end;

  if Result =0 then
    Result := YjInfoSave(vData);
end;

function TYjSearch.YjSearch11: Smallint;
var
  fRecMaxJ, fRecMaxD: Double;
  lRecUse: Boolean;
  fDayMaxJ, fDayMaxD: Double;
  lDayUse: Boolean;
  fMonMaxJ, fMonMaxD: Double;
  lMonUse: Boolean;

  iPJgWs: IPJgWsServer;
  vData: Variant;
begin
  YjSetInfo11(fRecMaxJ, fRecMaxD,lRecUse,fDayMaxJ, fDayMaxD,lDayUse,
    fMonMaxJ, fMonMaxD,lMonUse);

  try
    iPJgWs := dm.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.YjKInfo(fDsbh,fDateB,fDateE,fRecMaxJ, fRecMaxD,
        lRecUse,fDayMaxJ, fDayMaxD,lDayUse, fMonMaxJ, fMonMaxD,lMonUse ,
        fTxDb, vData);
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2;
  end;

  if Result =0 then
    Result := YjInfoSave(vData);
end;

function TYjSearch.YjSearch12: Smallint;
var
  iCJgWs: IJGLR;
  vData: Variant;
begin
  try
    iCJgWs := dm.riocjg as IJGLR;
    try
      Result := iCJgWs.fYjK(vData);
    finally
      iCJgWs := nil;
    end;
  except
    Result := -2;
  end;

  if Result =0 then
    Result := YjInfoSave(vData);
end;

function TYjSearch.iDsbh: Integer;
begin
  try
    Result := StrtoInt(fDsbh);
  except
    Result := 0;
  end;
end;

function TYjSearch.YjInfoSave(vData: Variant): smallint;
var
  iPJgWs: IPJgWsServer;
begin
  try
    iPJgWs := dm.rioPjg as IPJgWsServer;
    try
      Result := iPJgWs.YjInfoSave(fdsbh,vData);
    finally
      iPJgWs := nil;
    end;
  except
    Result := -3
  end;
end;

function TYjSearch.YjlxInfo(var aYjlx: TYjlxDynArray): Smallint;
var
  iPJgWs: IPJgWsServer;
  i,j: smallint;
  vData: Variant;
begin
  try
    iPJgWs := dm.rioPjg as IPJgWsServer;
    try
      Result := iPJgWs.YjlxInfo(fDsbh,vData);
      dm.cds.XMLData := vData;
      j := dm.cds.RecordCount ;
      SetLength(aYjlx,j);
      i:=0;
      while not dm.cds.Eof do
      begin
        aYjlx[i].bh := dm.cds.FieldByName('xmbh').AsInteger;
        aYjlx[i].mc := trim(dm.cds.FieldByName('xmmc').AsString);
        aYjlx[i].bz := dm.cds.FieldByName('qybz').AsBoolean;
        dm.cds.Next;
        inc(i);
      end;
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function TYjSearch.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 TYjSearch.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 TYjSearch.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 TYjSearch.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;

end.