jgreadbb.pas

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

unit JGReadBb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmMapChild, ImgList, ExtCtrls, ComCtrls, ToolWin, StdCtrls,
  InvokeRegistry, DB, DBClient, Rio, SOAPHTTPClient, SOAPHTTPTrans, types,
  AppEvnts;

type
  TFormJGReadBb = class(TmapChild)
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    Panel6: TPanel;
    LblRQ: TLabel;
    DT: TDateTimePicker;
    HTTPRIO_ZX: THTTPRIO;
    HTTPRIO_TQ: THTTPRIO;
    cds_TQ: TClientDataSet;
    cds_LR: TClientDataSet;
    ToolButton5: TToolButton;
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
  private
    { Private declarations }
    dsbh, Jtb_Ny: string;
    procedure LabelClick(Sender: TObject); overload;

    procedure P_ZcfzbGjj(const Ny: string; var Ary: array of double);
    procedure P_ZzsybGjj(const Ny: string; var Ary: array of double);
    procedure P_ZzsyfpbGjj(const Nd: string; var Ary: array of double);
    procedure P_ZcfzbJf(const Ny: string; var Ary: array of double);
    procedure P_JfszbJf(const Ny: string; var Ary: array of double);
    procedure P_Zhksyeb1(const Ny: string);
    procedure P_Zfgjjtjb(const Ny: string);
    procedure P_Xmdkb(const Ny: string);

    procedure ReWrite6;
    procedure ReWrite7;
    procedure ReWrite8;

    function F_ZcfzbGjj_Save(const Dsbh, Ny: string; const Ary: array of
      double): smallint;
    function F_ZzsybGjj_Save(const Dsbh, Ny: string; const Ary: array of
      double): smallint;
    function F_ZzsyfpbGjj_Save(const Dsbh, Nd: string; const Ary: array of
      double): smallint;
    function F_ZcfzbJf_Save(const Dsbh, Ny: string; const Ary: array of double):
      smallint;
    function F_JfszbJf_Save(const Dsbh, Ny: string; const Ary: array of double):
      smallint;
    function F_Zhksyeb_Save(const Dsbh, Ny, Zhmc, Khyh, Yhzh: string; const Ary:
      array of double): smallint;
    function F_Zfgjjtjb_Save(const Dsbh, Ny: string; const Ary: array of double;
      Ary0: array of integer): smallint;
    function F_Xmdkb_Save(const Dsbh, Ny, Xh, Dwmc, Xmmc, Lxspjg, Dkhth, Ffrq:
      string; const Dkqx: smallint; const Ary: array of double): smallint;
  public
    { Public declarations }
  end;

var
  FormJGReadBb: TFormJGReadBb;

implementation

uses uDMFunc, uConstUtils, uNodeLabel, JGLRIntf, uPJgWsServerIntf, uUserFunc,
     uSystemIni;

{$R *.dfm}

procedure TFormJGReadBb.ToolButton4Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TFormJGReadBb.ToolButton1Click(Sender: TObject);
var
  i: smallint;
begin
  inherited;
  for i := 0 to high(aNode) do
    aNode[i].Font.Color := clRed;
end;

procedure TFormJGReadBb.FormCreate(Sender: TObject);
var
  i: smallint;
begin
  inherited;
  DT.Date:= date;
  for i := 0 to high(aNode) do
    aNode[i].OnClick := LabelClick;
end;

procedure TFormJGReadBb.LabelClick(Sender: TObject);
//var
//  i: smallint;
//begin

//  i := IndexOfNodeLabel(aNode, (sender as TNodeLabel));
//  if aNode[i].Font.color <> clRed then
//    aNode[i].Font.color := clRed
//  else
//    aNode[i].Font.color := clBlack;
  //showmessage(aNode[i].Number);
var
  nY, nM, nD: word;
  ret: smallint;
  Ary: array of double;
  Save_Cursor: TCursor;
begin
  inherited;
  Save_Cursor := Screen.Cursor;
  Screen.Cursor := crHourGlass; { Show hourglass cursor }
  try
    HTTPRIO_ZX.URL:= ReadWSInfo(_PVNJGWEBSEVICE);
    DecodeDate(DT.Date, nY, nM, nD);
    Jtb_Ny := trim(inttostr(nY)) + padl(trim(inttostr(nM)), 2, '0');
    dsbh := aNode[iNode].Number;
    HTTPRIO_TQ.URL:= aNode[iNode].URL;
    setlength(Ary, 35);
    P_ZcfzbGjj(Jtb_Ny, Ary);
    ret := F_ZcfzbGjj_Save(dsbh, Jtb_Ny, Ary);
    setlength(Ary, 16);
    P_ZzsybGjj(Jtb_Ny, Ary);
    ret := F_ZzsybGjj_Save(dsbh, Jtb_Ny, Ary);
    setlength(Ary, 14);
    P_ZzsyfpbGjj(copy(Jtb_Ny, 1, 4), Ary);
    ret := F_ZzsyfpbGjj_Save(dsbh, copy(Jtb_Ny, 1, 4), Ary);
    setlength(Ary, 32);
    P_ZcfzbJf(Jtb_Ny, Ary);
    ret := F_ZcfzbJf_Save(dsbh, Jtb_Ny, Ary);
    setlength(Ary, 14);
    P_JfszbJf(Jtb_Ny, Ary);
    ret := F_JfszbJf_Save(dsbh, Jtb_Ny, Ary);
    ReWrite6;
    ReWrite7;
    ReWrite8;
  finally
    Screen.Cursor := Save_Cursor;
  end;
  if ret = 0 then
    showmessage('报表读取完成！')
  else
    showmessage('报表读取失败！');
end;

procedure TFormJGReadBb.ToolButton2Click(Sender: TObject);
var
  i: smallint;
begin
  inherited;
  for i := 0 to high(aNode) do
    aNode[i].Font.Color := clBlack;

end;

procedure TFormJGReadBb.ToolButton3Click(Sender: TObject);
var
  nY, nM, nD: word;
  i, ret: smallint;
  Ary: array of double;
  Save_Cursor: TCursor;
begin
  inherited;
  Save_Cursor := Screen.Cursor;
  Screen.Cursor := crHourGlass; { Show hourglass cursor }
  try
    HTTPRIO_ZX.URL:= ReadWSInfo(_PVNJGWEBSEVICE);
    DecodeDate(DT.Date, nY, nM, nD);
    Jtb_Ny := trim(inttostr(nY)) + padl(trim(inttostr(nM)), 2, '0');
    for i := 0 to high(aNode) do
    begin
      if aNode[i].Font.Color = clRed then
      begin
        dsbh:= aNode[i].Number;
        HTTPRIO_TQ.URL:= aNode[i].URL;
        setlength(Ary, 35);
        P_ZcfzbGjj(Jtb_Ny, Ary);
        //GetCurrentDateTime;
        ret := F_ZcfzbGjj_Save(dsbh, Jtb_Ny, Ary);
      {  if ret <> 0 then
        begin
          F_LogSave(logdate, dsbh + '_' + dsmc + '_' +
            '资产负债表(公积金)自动读取失败！', 0);
        end
        else
        begin
          F_LogSave(logdate, dsbh + '_' + dsmc + '_' +
            '资产负债表(公积金)自动读取成功！', 0);
        end;   }

        setlength(Ary, 16);
        P_ZzsybGjj(Jtb_Ny, Ary);
        //GetCurrentDateTime;
        ret := F_ZzsybGjj_Save(dsbh, Jtb_Ny, Ary);
       { 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;   }


        setlength(Ary, 14);
        P_ZzsyfpbGjj(copy(Jtb_Ny, 1, 4), Ary);
        //GetCurrentDateTime;
        ret := F_ZzsyfpbGjj_Save(dsbh, copy(Jtb_Ny, 1, 4), Ary);
       { 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;     }

        setlength(Ary, 32);
        P_ZcfzbJf(Jtb_Ny, Ary);
        //GetCurrentDateTime;
        ret := F_ZcfzbJf_Save(dsbh, Jtb_Ny, Ary);
        {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;    }

        setlength(Ary, 14);
        P_JfszbJf(Jtb_Ny, Ary);
       // GetCurrentDateTime;
        ret := F_JfszbJf_Save(dsbh, Jtb_Ny, Ary);
       { 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;   }

        ReWrite6;
        ReWrite7;
        ReWrite8;

      end;
    end;
  finally
    Screen.Cursor := Save_Cursor;
  end;
  if ret = 0 then
    showmessage('报表读取完成！')
  else
    showmessage('报表读取失败！');

end;

procedure TFormJGReadBb.P_ZcfzbGjj(const Ny: string;
  var Ary: array of double);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_TQ as IJGLR;
  try
    aIntf.ZcfzbGjjInf(Ny, vData);
    self.cds_LR.XMLData := vData;
  finally
    aIntf := nil;
  end;
  Ary[0] := cds_LR.FieldByName('GJJCKNCS').AsFloat;
  Ary[1] := cds_LR.FieldByName('GJJCKQMS').AsFloat;
  Ary[2] := cds_LR.FieldByName('ZZSYCKNCS').AsFloat;
  Ary[3] := cds_LR.FieldByName('ZZSYCKQMS').AsFloat;
  Ary[4] := cds_LR.FieldByName('YSLXNCS').AsFloat;
  Ary[5] := cds_LR.FieldByName('YSLXQMS').AsFloat;
  Ary[6] := cds_LR.FieldByName('QTYSKNCS').AsFloat;
  Ary[7] := cds_LR.FieldByName('QTYSKQMS').AsFloat;
  Ary[8] := cds_LR.FieldByName('WTDKNCS').AsFloat;
  Ary[9] := cds_LR.FieldByName('WTDKQMS').AsFloat;
  Ary[10] := cds_LR.FieldByName('YQDKNCS').AsFloat;
  Ary[11] := cds_LR.FieldByName('YQDKQMS').AsFloat;
  Ary[12] := cds_LR.FieldByName('GJZQNCS').AsFloat;
  Ary[13] := cds_LR.FieldByName('GJZQQMS').AsFloat;
  Ary[14] := cds_LR.FieldByName('ZFGJJNCS').AsFloat;
  Ary[15] := cds_LR.FieldByName('ZFGJJQMS').AsFloat;
  Ary[16] := cds_LR.FieldByName('YFLXNCS').AsFloat;
  Ary[17] := cds_LR.FieldByName('YFLXQMS').AsFloat;
  Ary[18] := cds_LR.FieldByName('QTYFKNCS').AsFloat;
  Ary[19] := cds_LR.FieldByName('QTYFKQMS').AsFloat;
  Ary[20] := cds_LR.FieldByName('ZXYFKNCS').AsFloat;
  Ary[21] := cds_LR.FieldByName('ZXYFKQMS').AsFloat;
  Ary[22] := cds_LR.FieldByName('DKFXZBNCS').AsFloat;
  Ary[23] := cds_LR.FieldByName('DKFXZBQMS').AsFloat;
  Ary[24] := cds_LR.FieldByName('LZZFNCS').AsFloat;
  Ary[25] := cds_LR.FieldByName('LZZFQMS').AsFloat;
  Ary[26] := cds_LR.FieldByName('DFPZZSYNCS').AsFloat;
  Ary[27] := cds_LR.FieldByName('DFPZZSYQMS').AsFloat;
  Ary[28] := cds_LR.FieldByName('GJFXZFZQ').AsFloat;
  Ary[29] := cds_LR.FieldByName('LTXZQ').AsFloat;
  Ary[30] := cds_LR.FieldByName('ZZLDGXZQ').AsFloat;
  Ary[31] := cds_LR.FieldByName('CJDJZQ').AsFloat;
  Ary[32] := cds_LR.FieldByName('CHGFDKBXZQ').AsFloat;
  Ary[33] := cds_LR.FieldByName('CCJTSRBLZQ').AsFloat;
  Ary[34] := cds_LR.FieldByName('QTZQ').AsFloat;

  cds_LR.Active := false;
end;

procedure TFormJGReadBb.P_ZzsybGjj(const Ny: string;
  var Ary: array of double);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_TQ as IJGLR;
  try
    aIntf.ZzsybGjjInf(Ny, vData);
    self.cds_LR.XMLData := vData;
  finally
    aIntf := nil;
  end;
  Ary[0] := cds_LR.FieldByName('ZFGJJCKLXSR').AsFloat;
  Ary[1] := cds_LR.FieldByName('ZFGJJCKLXLJ').AsFloat;
  Ary[2] := cds_LR.FieldByName('ZZSYCKLXSR').AsFloat;
  Ary[3] := cds_LR.FieldByName('ZZSYCKLXSRLJ').AsFloat;
  Ary[4] := cds_LR.FieldByName('WTDKLXSR').AsFloat;
  Ary[5] := cds_LR.FieldByName('WTDKLXSRLJ').AsFloat;
  Ary[6] := cds_LR.FieldByName('GZLXSR').AsFloat;
  Ary[7] := cds_LR.FieldByName('GZLXSRLJ').AsFloat;
  Ary[8] := cds_LR.FieldByName('QTSR').AsFloat;
  Ary[9] := cds_LR.FieldByName('QTSRLJ').AsFloat;
  Ary[10] := cds_LR.FieldByName('ZFGJJLXZC').AsFloat;
  Ary[11] := cds_LR.FieldByName('ZFGJJLXZCLJ').AsFloat;
  Ary[12] := cds_LR.FieldByName('ZFGJJSXFZC').AsFloat;
  Ary[13] := cds_LR.FieldByName('ZFGJJSXFZCLJ').AsFloat;
  Ary[14] := cds_LR.FieldByName('WTDKSXFZC').AsFloat;
  Ary[15] := cds_LR.FieldByName('WTDKSXFZCLJ').AsFloat;

  cds_LR.Active := false;
end;

procedure TFormJGReadBb.P_ZzsyfpbGjj(const Nd: string;
  var Ary: array of double);
var
  aIntf: IJGLR;
  vData: variant;
  nn: string;
begin
  aIntf := HttpRio_TQ as IJGLR;
  try
    aIntf.ZzsyfpbGjjInf(Nd, vData);
    self.cds_LR.XMLData := vData;
    Ary[0] := cds_LR.FieldByName('ZZSY').AsFloat;
    Ary[1] := cds_LR.FieldByName('NCWMBSS').AsFloat;
    Ary[2] := cds_LR.FieldByName('KGFPZZSY').AsFloat;
    Ary[3] := cds_LR.FieldByName('TQDKFXZB').AsFloat;
    Ary[4] := cds_LR.FieldByName('TQGLF').AsFloat;
    Ary[5] := cds_LR.FieldByName('LZZFBCZJ').AsFloat;
    Ary[6] := cds_LR.FieldByName('NMWMBSS').AsFloat;
    nn := Nd;
    nn := inttostr(strtoint(nn) - 1);
    aIntf.ZzsyfpbGjjInf(nn, vData);
    self.cds_LR.XMLData := vData;
    Ary[7] := cds_LR.FieldByName('ZZSY').AsFloat;
    Ary[8] := cds_LR.FieldByName('NCWMBSS').AsFloat;
    Ary[9] := cds_LR.FieldByName('KGFPZZSY').AsFloat;
    Ary[10] := cds_LR.FieldByName('TQDKFXZB').AsFloat;
    Ary[11] := cds_LR.FieldByName('TQGLF').AsFloat;
    Ary[12] := cds_LR.FieldByName('LZZFBCZJ').AsFloat;
    Ary[13] := cds_LR.FieldByName('NMWMBSS').AsFloat;
    cds_LR.Active := false;
  finally
    aIntf := nil;
  end;
end;

procedure TFormJGReadBb.P_ZcfzbJf(const Ny: string;
  var Ary: array of double);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf := HttpRio_TQ as IJGLR;
  try
    aIntf.ZcfzbJfInf(Ny, vData);
    self.cds_LR.XMLData := vData;
  finally
    aIntf := nil;
  end;
  Ary[0] := cds_LR.FieldByName('XJNCS').AsFloat;
  Ary[1] := cds_LR.FieldByName('XJQMS').AsFloat;