udmfunc.pas

来自「ProviceSystem-公积金监管系统中心端」· PAS 代码 · 共 2,156 行 · 第 1/5 页

  end;
end;

function KhyhSave(const sBh, sMc: string): Smallint;
var
  iPJgWs: IPJgWsServer;
  //  vData: Variant;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.KhyhSave(sBh, sMc);
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

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

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

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

function YjSetDsInfo(var aDs: TString2Array): Smallint;
var
  iPJgWs: IPJgWsServer;
  vData: Variant;
  i, l: integer;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.YjSetDsInfo(vData);
      DM.cds.XMLData := vData;
      l := Dm.cds.RecordCount;
      SetLength(aDs, l);
      i := 0;
      while not Dm.cds.Eof do
      begin
        aDs[i, 0] := Dm.cds.FieldByName('dsbh').AsString;
        aDs[i, 1] := Dm.cds.FieldByName('dsmc').AsString;
        Dm.cds.Next;
        inc(i);
      end;
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function YjSetFz(const sSDsbh, sTDsbh: string): Smallint;
var
  iPJgWs: IPJgWsServer;
  //  vData: Variant;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.YjSetFz(sSdsbh, sTDsbh);
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function KmInfo(const sURL: string; DBGrid: TDBGrid): Smallint;
var
  iCJgWs: IJGLR;
  vData: Variant;
begin
  DBGrid.DataSource := DM.dsCJg;
  try
    DM.rioCJg.URL := sURL;
    iCJgWs := DM.rioCJg as IJGLR;
    try
      Result := iCJgWs.KmInfo(vData);
      DM.cdsCJg.XMLData := vData;
    finally
      iCJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function KmInfoKmdm: string;
begin
  Result := trim(Dm.cdsCJg.FieldByName('KMDM').AsString);
end;

function SelectKm(const sURL: string; var kmh: string): boolean;
var
  JGKmts: TJGKmTs;
begin
  JGKMTs := tJGKmTs.Create(application);
  JGKmTs.LoadKm(sURL);
  JGKmTs.ShowModal;
  Kmh := JGKmTs.SelectedKm;
  result := JGKmTs.Selected;
  JGKmTs.Free;
end;

function 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 := DM.rioPJg as IPJgWsServer;
  try
    aIntf.ZcfzbGjjSav(Dsbh, Ny, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

procedure P_ZcfzbGjj(var Hz: boolean; const Dsbh, Ny: string; var Ary: array of
  double);
var
  aIntf: IPJgWsServer;
  vData: variant;
  sCmd: string;
begin
  aIntf := DM.rioPJg as IPJgWsServer;
  try
    if Hz = false then
      aIntf.ZcfzbGjjInf(Dsbh, Ny, vData)
    else
    begin
      sCmd := 'select sum(GJJCKNCS) GJJCKNCS, sum(GJJCKQMS) GJJCKQMS,' +
        'sum(ZZSYCKNCS) ZZSYCKNCS, sum(ZZSYCKQMS) ZZSYCKQMS,' +
        'sum(YSLXNCS) YSLXNCS, sum(YSLXQMS) YSLXQMS,' +
        'sum(QTYSKNCS) QTYSKNCS,sum(QTYSKQMS) QTYSKQMS,' +
        'sum(WTDKNCS) WTDKNCS,sum(WTDKQMS) WTDKQMS,' +
        'sum(YQDKNCS) YQDKNCS,sum(YQDKQMS) YQDKQMS,' +
        'sum(GJZQNCS) GJZQNCS,sum(GJZQQMS) GJZQQMS,' +
        'sum(ZFGJJNCS) ZFGJJNCS,sum(ZFGJJQMS) ZFGJJQMS,' +
        'sum(YFLXNCS) YFLXNCS,sum(YFLXQMS) YFLXQMS,' +
        'sum(QTYFKNCS) QTYFKNCS,sum(QTYFKQMS) QTYFKQMS,' +
        'sum(ZXYFKNCS) ZXYFKNCS,sum(ZXYFKQMS) ZXYFKQMS,' +
        'sum(DKFXZBNCS) DKFXZBNCS, sum(DKFXZBQMS) DKFXZBQMS,' +
        'sum(LZZFNCS) LZZFNCS,sum(LZZFQMS) LZZFQMS,' +
        'sum(DFPZZSYNCS) DFPZZSYNCS,sum(DFPZZSYQMS) DFPZZSYQMS,' +
        'sum(GJFXZFZQ) GJFXZFZQ, sum(LTXZQ) LTXZQ,' +
        'sum(ZZLDGXZQ) ZZLDGXZQ,sum(CJDJZQ) CJDJZQ,' +
        'sum(CHGFDKBXZQ) CHGFDKBXZQ,sum(CCJTSRBLZQ) CCJTSRBLZQ,' +
        'sum(QTZQ) QTZQ ' +
        'from V_ZCFZB_GJJ where NY=''' + Ny +
        ''' and dsbh in (' + Dsbh + ')';

      aIntf.BbCx(sCmd, vData);
    end;
    DM.cds.XMLData := vData;
  finally
    aIntf := nil;
  end;
  Ary[0] := DM.cds.FieldByName('GJJCKNCS').AsFloat;
  Ary[1] := DM.cds.FieldByName('GJJCKQMS').AsFloat;
  Ary[2] := DM.cds.FieldByName('ZZSYCKNCS').AsFloat;
  Ary[3] := DM.cds.FieldByName('ZZSYCKQMS').AsFloat;
  Ary[4] := DM.cds.FieldByName('YSLXNCS').AsFloat;
  Ary[5] := DM.cds.FieldByName('YSLXQMS').AsFloat;
  Ary[6] := DM.cds.FieldByName('QTYSKNCS').AsFloat;
  Ary[7] := DM.cds.FieldByName('QTYSKQMS').AsFloat;
  Ary[8] := DM.cds.FieldByName('WTDKNCS').AsFloat;
  Ary[9] := DM.cds.FieldByName('WTDKQMS').AsFloat;
  Ary[10] := DM.cds.FieldByName('YQDKNCS').AsFloat;
  Ary[11] := DM.cds.FieldByName('YQDKQMS').AsFloat;
  Ary[12] := DM.cds.FieldByName('GJZQNCS').AsFloat;
  Ary[13] := DM.cds.FieldByName('GJZQQMS').AsFloat;
  Ary[14] := DM.cds.FieldByName('ZFGJJNCS').AsFloat;
  Ary[15] := DM.cds.FieldByName('ZFGJJQMS').AsFloat;
  Ary[16] := DM.cds.FieldByName('YFLXNCS').AsFloat;
  Ary[17] := DM.cds.FieldByName('YFLXQMS').AsFloat;
  Ary[18] := DM.cds.FieldByName('QTYFKNCS').AsFloat;
  Ary[19] := DM.cds.FieldByName('QTYFKQMS').AsFloat;
  Ary[20] := DM.cds.FieldByName('ZXYFKNCS').AsFloat;
  Ary[21] := DM.cds.FieldByName('ZXYFKQMS').AsFloat;
  Ary[22] := DM.cds.FieldByName('DKFXZBNCS').AsFloat;
  Ary[23] := DM.cds.FieldByName('DKFXZBQMS').AsFloat;
  Ary[24] := DM.cds.FieldByName('LZZFNCS').AsFloat;
  Ary[25] := DM.cds.FieldByName('LZZFQMS').AsFloat;
  Ary[26] := DM.cds.FieldByName('DFPZZSYNCS').AsFloat;
  Ary[27] := DM.cds.FieldByName('DFPZZSYQMS').AsFloat;
  Ary[28] := DM.cds.FieldByName('GJFXZFZQ').AsFloat;
  Ary[29] := DM.cds.FieldByName('LTXZQ').AsFloat;
  Ary[30] := DM.cds.FieldByName('ZZLDGXZQ').AsFloat;
  Ary[31] := DM.cds.FieldByName('CJDJZQ').AsFloat;
  Ary[32] := DM.cds.FieldByName('CHGFDKBXZQ').AsFloat;
  Ary[33] := DM.cds.FieldByName('CCJTSRBLZQ').AsFloat;
  Ary[34] := DM.cds.FieldByName('QTZQ').AsFloat;

  DM.cds.Active := false;
end;

function 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 := DM.rioPJg as IPJgWsServer;
  try
    aIntf.ZzsybGjjSav(Dsbh, Ny, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

procedure P_ZzsybGjj(const Hz: boolean; const Dsbh, Ny: string; var Ary: array
  of
  double);
var
  aIntf: IPJgWsServer;
  vData: variant;
  sCmd: string;
begin
  aIntf := DM.rioPJg as IPJgWsServer;
  try
    if Hz = false then
      aIntf.ZzsybGjjInf(Dsbh, Ny, vData)
    else
    begin
      sCmd := 'select sum(ZFGJJCKLXSR) ZFGJJCKLXSR,sum(ZFGJJCKLXLJ) ZFGJJCKLXLJ,'
        +
        'sum(ZZSYCKLXSR) ZZSYCKLXSR, sum(ZZSYCKLXSRLJ) ZZSYCKLXSRLJ,' +
        'sum(WTDKLXSR) WTDKLXSR, sum(WTDKLXSRLJ) WTDKLXSRLJ,' +
        'sum(GZLXSR) GZLXSR, sum(GZLXSRLJ) GZLXSRLJ,' +
        'sum(QTSR) QTSR, sum(QTSRLJ) QTSRLJ,' +
        'sum(ZFGJJLXZC) ZFGJJLXZC, sum(ZFGJJLXZCLJ) ZFGJJLXZCLJ,' +
        'sum(ZFGJJSXFZC) ZFGJJSXFZC, sum(ZFGJJSXFZCLJ) ZFGJJSXFZCLJ,' +
        'sum(WTDKSXFZC) WTDKSXFZC, sum(WTDKSXFZCLJ) WTDKSXFZCLJ ' +
        'from V_ZZSYB_GJJ where NY=''' + Ny +
        ''' and dsbh in (' + Dsbh + ')';
      aIntf.BbCx(sCmd, vData);
    end;
    DM.cds.XMLData := vData;
  finally
    aIntf := nil;
  end;
  Ary[0] := DM.cds.FieldByName('ZFGJJCKLXSR').AsFloat;
  Ary[1] := DM.cds.FieldByName('ZFGJJCKLXLJ').AsFloat;
  Ary[2] := DM.cds.FieldByName('ZZSYCKLXSR').AsFloat;
  Ary[3] := DM.cds.FieldByName('ZZSYCKLXSRLJ').AsFloat;
  Ary[4] := DM.cds.FieldByName('WTDKLXSR').AsFloat;
  Ary[5] := DM.cds.FieldByName('WTDKLXSRLJ').AsFloat;
  Ary[6] := DM.cds.FieldByName('GZLXSR').AsFloat;
  Ary[7] := DM.cds.FieldByName('GZLXSRLJ').AsFloat;
  Ary[8] := DM.cds.FieldByName('QTSR').AsFloat;
  Ary[9] := DM.cds.FieldByName('QTSRLJ').AsFloat;
  Ary[10] := DM.cds.FieldByName('ZFGJJLXZC').AsFloat;
  Ary[11] := DM.cds.FieldByName('ZFGJJLXZCLJ').AsFloat;
  Ary[12] := DM.cds.FieldByName('ZFGJJSXFZC').AsFloat;
  Ary[13] := DM.cds.FieldByName('ZFGJJSXFZCLJ').AsFloat;
  Ary[14] := DM.cds.FieldByName('WTDKSXFZC').AsFloat;
  Ary[15] := DM.cds.FieldByName('WTDKSXFZCLJ').AsFloat;

  DM.cds.Active := false;
end;

function 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 := DM.rioPJg as IPJgWsServer;
  try
    aIntf.ZzsyfpbGjjSav(Dsbh, Nd, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

procedure P_ZzsyfpbGjj(const Hz: boolean; const Dsbh, Nd: string; var Ary: array
  of double);
var
  aIntf: IPJgWsServer;
  vData: variant;
  nn, sCmd: string;
begin
  aIntf := DM.rioPJg as IPJgWsServer;
  try
    if Hz = false then
      aIntf.ZzsyfpbGjjInf(Dsbh, Nd, vData)
    else
    begin
      sCmd := 'select sum(ZZSY) ZZSY,sum(NCWMBSS) NCWMBSS,' +
        'sum(KGFPZZSY) KGFPZZSY, sum(TQDKFXZB) TQDKFXZB,' +
        'sum(TQGLF) TQGLF, sum(LZZFBCZJ) LZZFBCZJ,' +
        'sum(NMWMBSS) NMWMBSS ' +
        'from V_ZZSYFPB_GJJ where ND=''' + Nd +
        ''' and dsbh in (' + Dsbh + ')';
      aIntf.BbCx(sCmd, vData);
    end;
    DM.cds.XMLData := vData;
    Ary[0] := DM.cds.FieldByName('ZZSY').AsFloat;
    Ary[1] := DM.cds.FieldByName('NCWMBSS').AsFloat;
    Ary[2] := DM.cds.FieldByName('KGFPZZSY').AsFloat;
    Ary[3] := DM.cds.FieldByName('TQDKFXZB').AsFloat;
    Ary[4] := DM.cds.FieldByName('TQGLF').AsFloat;
    Ary[5] := DM.cds.FieldByName('LZZFBCZJ').AsFloat;
    Ary[6] := DM.cds.FieldByName('NMWMBSS').AsFloat;

    nn := Nd;
    nn := inttostr(strtoint(nn) - 1);
    if Hz = false then
      aIntf.ZzsyfpbGjjInf(Dsbh, nn, vData)
    else
    begin
      sCmd := 'select sum(ZZSY) ZZSY,sum(NCWMBSS) NCWMBSS,' +
        'sum(KGFPZZSY) KGFPZZSY, sum(TQDKFXZB) TQDKFXZB,' +
        'sum(TQGLF) TQGLF, sum(LZZFBCZJ) LZZFBCZJ,' +
        'sum(NMWMBSS) NMWMBSS ' +
        'from V_ZZSYFPB_GJJ where ND=''' + nn +
        ''' and dsbh in (' + Dsbh + ')';
      aIntf.BbCx(sCmd, vData);
    end;
    DM.cds.XMLData := vData;
    Ary[7] := DM.cds.FieldByName('ZZSY').AsFloat;
    Ary[8] := DM.cds.FieldByName('NCWMBSS').AsFloat;
    Ary[9] := DM.cds.FieldByName('KGFPZZSY').AsFloat;
    Ary[10] := DM.cds.FieldByName('TQDKFXZB').AsFloat;
    Ary[11] := DM.cds.FieldByName('TQGLF').AsFloat;
    Ary[12] := DM.cds.FieldByName('LZZFBCZJ').AsFloat;
    Ary[13] := DM.cds.FieldByName('NMWMBSS').AsFloat;
    DM.cds.Active := false;
  finally
    aIntf := nil;
  end;
end;

function 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 := DM.rioPJg as IPJgWsServer;
  try
    aIntf.ZcfzbJfSav(Dsbh, Ny, vA, iRet);
    result := iRet;
  finally
    aIntf := nil;
  end;
end;

procedure P_ZcfzbJf(const Hz: boolean; const Dsbh, Ny: string; var Ary: array of
  double);
var
  aIntf: IPJgWsServer;
  vData: variant;
  sCmd: string;
begin
  aIntf := DM.rioPJg as IPJgWsServer;
  try
    if Hz = false then
      aIntf.ZcfzbJfInf(Dsbh, Ny, vData)
    else
    be