jgreadbb.pas

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

  Ary[2] := cds_LR.FieldByName('YHCKNCS').AsFloat;
  Ary[3] := cds_LR.FieldByName('YHCKQMS').AsFloat;
  Ary[4] := cds_LR.FieldByName('QTYSKNCS').AsFloat;
  Ary[5] := cds_LR.FieldByName('QTYSKQMS').AsFloat;
  Ary[6] := cds_LR.FieldByName('GDZCNCS').AsFloat;
  Ary[7] := cds_LR.FieldByName('GDZCQMS').AsFloat;
  Ary[8] := cds_LR.FieldByName('QTYFKNCS').AsFloat;
  Ary[9] := cds_LR.FieldByName('QTYFKQMS').AsFloat;
  Ary[10] := cds_LR.FieldByName('SYJJNCS').AsFloat;
  Ary[11] := cds_LR.FieldByName('SYJJQMS').AsFloat;
  Ary[12] := cds_LR.FieldByName('GDJJNCS').AsFloat;
  Ary[13] := cds_LR.FieldByName('GDJJQMS').AsFloat;
  Ary[14] := cds_LR.FieldByName('ZYJJNCS').AsFloat;
  Ary[15] := cds_LR.FieldByName('ZYJJQMS').AsFloat;
  Ary[16] := cds_LR.FieldByName('JFJYNCS').AsFloat;
  Ary[17] := cds_LR.FieldByName('JFJYQMS').AsFloat;
  Ary[18] := cds_LR.FieldByName('JYFPNCS').AsFloat;
  Ary[19] := cds_LR.FieldByName('JYFPQMS').AsFloat;
  Ary[20] := cds_LR.FieldByName('BRJFNCS').AsFloat;
  Ary[21] := cds_LR.FieldByName('BRJFQMS').AsFloat;
  Ary[22] := cds_LR.FieldByName('BRZKNCS').AsFloat;
  Ary[23] := cds_LR.FieldByName('BRZKQMS').AsFloat;
  Ary[24] := cds_LR.FieldByName('QTSRNCS').AsFloat;
  Ary[25] := cds_LR.FieldByName('QTSRQMS').AsFloat;
  Ary[26] := cds_LR.FieldByName('BCJFNCS').AsFloat;
  Ary[27] := cds_LR.FieldByName('BCJFQMS').AsFloat;
  Ary[28] := cds_LR.FieldByName('ZKZCNCS').AsFloat;
  Ary[29] := cds_LR.FieldByName('ZKZCQMS').AsFloat;
  Ary[30] := cds_LR.FieldByName('JFZCNCS').AsFloat;
  Ary[31] := cds_LR.FieldByName('JFZCQMS').AsFloat;
  cds_LR.Active := false;
end;

procedure TFormJGReadBb.P_JfszbJf(const Ny: string;
  var Ary: array of double);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_TQ as IJGLR;
  try
    aIntf.JfszbJfInf(Ny, vData);
    self.cds_LR.XMLData := vData;
  finally
    aIntf := nil;
  end;
  Ary[0] := cds_LR.FieldByName('BRRYJF').AsFloat;
  Ary[1] := cds_LR.FieldByName('BRRYJFLJ').AsFloat;
  Ary[2] := cds_LR.FieldByName('BRGYJF').AsFloat;
  Ary[3] := cds_LR.FieldByName('BRGYJFLJ').AsFloat;
  Ary[4] := cds_LR.FieldByName('QTSR').AsFloat;
  Ary[5] := cds_LR.FieldByName('QTSRLJ').AsFloat;
  Ary[6] := cds_LR.FieldByName('BRZK').AsFloat;
  Ary[7] := cds_LR.FieldByName('BRZKLJ').AsFloat;
  Ary[8] := cds_LR.FieldByName('RYJFZC').AsFloat;
  Ary[9] := cds_LR.FieldByName('RYJFZCLJ').AsFloat;
  Ary[10] := cds_LR.FieldByName('GYJFZC').AsFloat;
  Ary[11] := cds_LR.FieldByName('GYJFZCLJ').AsFloat;
  Ary[12] := cds_LR.FieldByName('ZKZC').AsFloat;
  Ary[13] := cds_LR.FieldByName('ZKZCLJ').AsFloat;
  cds_LR.Active := false;
end;

procedure TFormJGReadBb.P_Zhksyeb1(const Ny: string);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_TQ as IJGLR;
  try
    aIntf.ZhksyebInf1(Ny, vData);
    self.cds_LR.XMLData := vData;
  finally
    aIntf := nil;
  end;
end;

procedure TFormJGReadBb.P_Zfgjjtjb(const Ny: string);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_TQ as IJGLR;
  try
    aIntf.ZfgjjtjbInf(Ny, vData);
    self.cds_LR.XMLData := vData;
  finally
    aIntf := nil;
  end;
end;

procedure TFormJGReadBb.P_Xmdkb(const Ny: string);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_TQ as IJGLR;
  try
    aIntf.XmdkbInf(Ny, vData);
    self.cds_LR.XMLData := vData;
  finally
    aIntf := nil;
  end;
end;

procedure TFormJGReadBb.ReWrite6;
var
  Zhmc, Khyh, Yhzh: string;
  Ary: array of double;
  ret: smallint;
begin
  setlength(Ary, 4);
  P_Zhksyeb1(Jtb_Ny);
  ret := 0;
  while not cds_LR.Eof do
  begin
    ret := -1;
    Zhmc := cds_LR.FieldByName('ZHMC').AsString;
    Khyh := cds_LR.FieldByName('KHYH').AsString;
    Yhzh := cds_LR.FieldByName('YHZH').AsString;
    Ary[0] := cds_LR.FieldByName('QCYE').AsFloat;
    Ary[1] := cds_LR.FieldByName('SR').AsFloat;
    Ary[2] := cds_LR.FieldByName('ZC').AsFloat;
    Ary[3] := cds_LR.FieldByName('QMYE').AsFloat;

    //GetCurrentDateTime;
    ret := F_Zhksyeb_Save(dsbh, Jtb_Ny, Zhmc, Khyh, Yhzh, Ary);
    if ret <> 0 then
      break;
    cds_LR.Next;
  end;
{  if ret <> 0 then
  begin
    F_LogSave(logdate, dsbh + '_' + dsmc + '_' +
      '专户开设及其余额情况统计表自动读取失败！', 0);
  end
  else
  begin
    F_LogSave(logdate, dsbh + '_' + dsmc + '_' +
      '专户开设及其余额情况统计表自动读取成功！', 0);
  end;      }
end;

procedure TFormJGReadBb.ReWrite7;
var
  Ary: array of double;
  Ary0: array of integer;
  ret: smallint;
begin
  setlength(Ary, 32);
  setlength(Ary0, 5);

  P_Zfgjjtjb(Jtb_Ny);
  cds_LR.First;
  Ary0[0] := cds_LR.FieldByName('BQYJZGS').AsInteger;
  Ary0[1] := cds_LR.FieldByName('BQSJZGS').AsInteger;
  Ary0[2] := cds_LR.FieldByName('GRDKBQFDHS').AsInteger;
  Ary0[3] := cds_LR.FieldByName('GRDKSQMLJFDHS').AsInteger;
  Ary0[4] := cds_LR.FieldByName('BQMYQDKHS').AsInteger;
  Ary[0] := cds_LR.FieldByName('DWJCBL').AsFloat;
  Ary[1] := cds_LR.FieldByName('GRJCBL').AsFloat;
  Ary[2] := cds_LR.FieldByName('SQMJCYE').AsFloat;
  Ary[3] := cds_LR.FieldByName('BQYJCE').AsFloat;
  Ary[4] := cds_LR.FieldByName('BQSJCE').AsFloat;
  Ary[5] := cds_LR.FieldByName('BQGRTQE').AsFloat;
  Ary[6] := cds_LR.FieldByName('BQMGRTQE').AsFloat;
  Ary[7] := cds_LR.FieldByName('JZLX').AsFloat;
  Ary[8] := cds_LR.FieldByName('BQMJCZE').AsFloat;
  Ary[9] := cds_LR.FieldByName('BQMJCYE').AsFloat;
  Ary[10] := cds_LR.FieldByName('BNYWSR').AsFloat;
  Ary[11] := cds_LR.FieldByName('BNYWZC').AsFloat;
  Ary[12] := cds_LR.FieldByName('BNZZSY').AsFloat;
  Ary[13] := cds_LR.FieldByName('BNGLFY').AsFloat;
  Ary[14] := cds_LR.FieldByName('BNMFXZBJZE').AsFloat;
  Ary[15] := cds_LR.FieldByName('BNMFXZBJYE').AsFloat;
  Ary[16] := cds_LR.FieldByName('BNMZFBCZJZE').AsFloat;
  Ary[17] := cds_LR.FieldByName('BNMZFBCZJYE').AsFloat;
  Ary[18] := cds_LR.FieldByName('GRDKSQMYE').AsFloat;
  Ary[19] := cds_LR.FieldByName('GRDKBQFFE').AsFloat;
  Ary[20] := cds_LR.FieldByName('GRDKBQHSE').AsFloat;
  Ary[21] := cds_LR.FieldByName('GRDKBQMDKZE').AsFloat;
  Ary[22] := cds_LR.FieldByName('GRDKBQMDKYE').AsFloat;
  Ary[23] := cds_LR.FieldByName('GRDKYQDKE').AsFloat;
  Ary[24] := cds_LR.FieldByName('QTDKSQMDKYE').AsFloat;
  Ary[25] := cds_LR.FieldByName('QTDKBQFFE').AsFloat;
  Ary[26] := cds_LR.FieldByName('QTDKBQHSE').AsFloat;
  Ary[27] := cds_LR.FieldByName('QTDKBQMDKZE').AsFloat;
  Ary[28] := cds_LR.FieldByName('QTDKBQMDKYE').AsFloat;
  Ary[29] := cds_LR.FieldByName('QTDKYQE').AsFloat;
  Ary[30] := cds_LR.FieldByName('BQGZGME').AsFloat;
  Ary[31] := cds_LR.FieldByName('BQMGZYE').AsFloat;

  //GetCurrentDateTime;
  ret := F_Zfgjjtjb_Save(dsbh, Jtb_Ny, Ary, Ary0);
 { if ret <> 0 then
  begin
    Label_ZT.Caption := '住房公积金统计表自动读取失败！';
    F_LogSave(logdate, dsbh + '_' + dsmc + '_' +
      '住房公积金统计表自动读取失败！', 0);
  end
  else
  begin
    Label_ZT.Caption := '住房公积金统计表自动读取成功！';
    F_LogSave(logdate, dsbh + '_' + dsmc + '_' +
      '住房公积金统计表自动读取成功！', 0);
  end;  }
end;

procedure TFormJGReadBb.ReWrite8;
var
  Ary: array of double;
  Xh, Dwmc, Xmmc, Lxspjg, Dkhth, Ffrq: string;
  Dkqx, ret: integer;
begin
  setlength(Ary, 7);

  P_Xmdkb(Jtb_Ny);
  cds_LR.First;
  ret := 0;
  while not cds_LR.Eof do
  begin
    ret := -1;
    Xh := trim(cds_LR.FieldByName('XH').AsString);
    Dwmc := trim(cds_LR.FieldByName('DWMC').AsString);
    Xmmc := trim(cds_LR.FieldByName('XMMC').AsString);
    Lxspjg := trim(cds_LR.FieldByName('LXSPJG').AsString);
    Dkhth := trim(cds_LR.FieldByName('DKHTH').AsString);
    Ffrq := trim(cds_LR.FieldByName('FFRQ').AsString);
    Dkqx := cds_LR.FieldByName('DKQX').AsInteger;

    Ary[0] := cds_LR.FieldByName('DKJE').AsFloat;
    Ary[1] := cds_LR.FieldByName('FFJE').AsFloat;
    Ary[2] := cds_LR.FieldByName('DKLL').AsFloat;
    Ary[3] := cds_LR.FieldByName('QCYE').AsFloat;
    Ary[4] := cds_LR.FieldByName('BQHS').AsFloat;
    Ary[5] := cds_LR.FieldByName('QMYE').AsFloat;
    Ary[6] := cds_LR.FieldByName('QZYQ').AsFloat;

    //GetCurrentDateTime;
    ret := F_Xmdkb_Save(dsbh, Jtb_Ny, Xh, Dwmc, Xmmc, Lxspjg, Dkhth, Ffrq, Dkqx,
      Ary);
    if ret <> 0 then
      break;
    cds_LR.Next;
  end;
{  if ret <> 0 then
  begin
    Label_ZT.Caption := '项目贷款表自动读取失败！';
    F_LogSave(logdate, dsbh + '_' + dsmc + '_' +
      '项目贷款表自动读取失败！', 0);
  end
  else
  begin
    Label_ZT.Caption := '项目贷款表自动读取成功！';
    F_LogSave(logdate, dsbh + '_' + dsmc + '_' +
      '项目贷款表自动读取成功！', 0);
  end;   }
end;

function TFormJGReadBb.F_ZcfzbGjj_Save(const Dsbh, Ny: string;
  const Ary: array of double): smallint;
var
  aIntf: IPJgWsServer;
  i, iRet: longint;
  vA: TDoubleDynArray;
begin
  setlength(vA, high(Ary) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  aIntf := HttpRio_ZX as IPJgWsServer;
  try
    aIntf.ZcfzbGjjSav(Dsbh, Ny, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TFormJGReadBb.F_ZzsybGjj_Save(const Dsbh, Ny: string;
  const Ary: array of double): smallint;
var
  aIntf: IPJgWsServer;
  i, iRet: longint;
  vA: TDoubleDynArray;
begin
  setlength(vA, high(Ary) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  aIntf := HttpRio_ZX as IPJgWsServer;
  try
    aIntf.ZzsybGjjSav(Dsbh, Ny, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TFormJGReadBb.F_ZzsyfpbGjj_Save(const Dsbh, Nd: string;
  const Ary: array of double): smallint;
var
  aIntf: IPJgWsServer;
  i, iRet: longint;
  vA: TDoubleDynArray;
begin
  setlength(vA, high(Ary) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  aIntf := HttpRio_ZX as IPJgWsServer;
  try
    aIntf.ZzsyfpbGjjSav(Dsbh, Nd, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TFormJGReadBb.F_ZcfzbJf_Save(const Dsbh, Ny: string;
  const Ary: array of double): smallint;
var
  aIntf: IPJgWsServer;
  i, iRet: longint;
  vA: TDoubleDynArray;
begin
  setlength(vA, high(Ary) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  aIntf := HttpRio_ZX as IPJgWsServer;
  try
    aIntf.ZcfzbJfSav(Dsbh, Ny, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TFormJGReadBb.F_JfszbJf_Save(const Dsbh, Ny: string;
  const Ary: array of double): smallint;
var
  aIntf: IPJgWsServer;
  i, iRet: longint;
  vA: TDoubleDynArray;
begin
  setlength(vA, high(Ary) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  aIntf := HttpRio_ZX as IPJgWsServer;
  try
    aIntf.JfszbJfSav(Dsbh, Ny, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TFormJGReadBb.F_Zhksyeb_Save(const Dsbh, Ny, Zhmc, Khyh,
  Yhzh: string; const Ary: array of double): smallint;
var
  aIntf: IPJgWsServer;
  i, iRet: longint;
  vA: TDoubleDynArray;
begin
  setlength(vA, high(Ary) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  aIntf := HttpRio_ZX as IPJgWsServer;
  try
    aIntf.ZhksyebSav(Dsbh, Ny, Zhmc, Khyh, Yhzh, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TFormJGReadBb.F_Zfgjjtjb_Save(const Dsbh, Ny: string;
  const Ary: array of double; Ary0: array of integer): smallint;
var
  aIntf: IPJgWsServer;
  i, iRet: longint;
  vA: TDoubleDynArray;
  vB: TIntegerDynArray;
begin
  setlength(vA, high(Ary) + 1);
  setlength(vB, high(Ary0) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  for i := 0 to high(Ary0) do
    vB[i] := Ary0[i];
  aIntf := HttpRio_ZX as IPJgWsServer;
  try
    aIntf.ZfgjjtjbSav(Dsbh, Ny, vA, vB, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

function TFormJGReadBb.F_Xmdkb_Save(const Dsbh, Ny, Xh, Dwmc, Xmmc, Lxspjg,
  Dkhth, Ffrq: string; const Dkqx: smallint;
  const Ary: array of double): smallint;
var
  aIntf: IPJgWsServer;
  i, iRet: longint;
  vA: TDoubleDynArray;
begin
  setlength(vA, high(Ary) + 1);
  for i := 0 to high(Ary) do
    vA[i] := Ary[i];
  aIntf := HttpRio_ZX as IPJgWsServer;
  try
    aIntf.XmdkbSav(Dsbh, Ny, Xh, Dwmc, Xmmc, Lxspjg, Dkhth, Ffrq, Dkqx, vA,
      iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

end.