jglrintf.pas

公积金监管系统WebService中间件,是新疆公积金监管系统的客户端软件

{ Invokable interface IJGLR }

unit JGLRIntf;

interface

uses InvokeRegistry, Types, XSBuiltIns;

type

  { Invokable interfaces must derive from IInvokable }
  IJGLR = interface(IInvokable)
  ['{1F49FC3A-7CE1-4D4E-98B7-69031D1696C1}']
    function UserInf(var vData: variant;const nConnXh: Smallint=0):integer;stdcall;
    function UserSav(const UserId: String; const UserName: String;
                     const UserPwd: String; const UserQx: String;
                     const Ssds: String; var lResult: Integer;const nConnXh: Smallint=0):integer; stdcall;
    function UserDel(const UserId: String; var lResult: Integer;const nConnXh: Smallint=0):integer; stdcall;
    function Login(const Uid, Pwd: String; var UserName, UserQx,
                   Ssds: String; var lResult: Integer;const nConnXh: Smallint=0):integer; stdcall;
    function BbmlInf(var vData: Variant;const nConnXh: Smallint=0):integer;stdcall;
    function BbmlSav(const sBbbh, sBbdm, sBbmc: String;
                     var lResult: Integer;const nConnXh: Smallint=0):integer;stdcall;
    function BbmlDel(const sBbbh: String; var lResult: Integer;const nConnXh: Smallint=0):integer;stdcall;
    function BbgsInf(const sDsbh, sBbbh: String; lGslx: Integer;
                     var vData: variant;const nConnXh: Smallint=0):integer; stdcall;
    function BbgsInf1(const sDsbh, sBbbh: String; var vData: Variant;const nConnXh: Smallint=0):integer;stdcall;
    function BbgsSav(const sDsbh, sBbbh, sGs: String; lRow, lCol,
                     lGslx: Integer; var lResult: Integer;const nConnXh: Smallint=0):integer; stdcall;
    function BbgsDel(const sDsbh, sBbbh: String; lGslx: Integer;
                     var lResult: Integer;const nConnXh: Smallint=0):integer; stdcall;
    function GjjConnected(var lResult: Integer;const nConnXh: Smallint=0):integer;stdcall;
    function CwConnected(var lResult: Integer;const nConnXh: Smallint=0):integer;stdcall;
    function ZcfzbGjjInf(const sNy: String; var vData: variant;const nConnXh: Smallint=0):integer;stdcall;
    function ZcfzbGjjSav(const sNy: String; aAry: TDoubleDynArray;
                         var lResult: Integer;const nConnXh: Smallint=0):integer;stdcall;
    function ZzsybGjjInf(const sNy: String; var vData: Variant;const nConnXh: Smallint=0):integer;stdcall;
    function ZzsybGjjSav(const sNy: String; aAry: TDoubleDynArray;
                         var lResult: Integer;const nConnXh: Smallint=0):integer;stdcall;
    function ZzsyfpbGjjInf(const sNd: String; var vData: Variant;const nConnXh: Smallint=0):integer;stdcall;
    function ZzsyfpbGjjSav(const sNd: String; aAry: TDoubleDynArray;
                         var lResult: Integer;const nConnXh: Smallint=0):integer;stdcall;
    function ZcfzbJfInf(const sNy: String; var vData: Variant;const nConnXh: Smallint=0):integer;stdcall;
    function ZcfzbJfSav(const sNy: String; aAry: TDoubleDynArray;
                        var lResult: Integer;const nConnXh: Smallint=0):integer;stdcall;
    function JfszbJfInf(const sNy: String; var vData: Variant;const nConnXh: Smallint=0):integer;stdcall;
    function JfszbJfSav(const sNy: String; aAry: TDoubleDynArray;
                        var lResult: Integer;const nConnXh: Smallint=0):integer;stdcall;
    function ZhksyebInf(const sNy, sZhmc: String; var vData: Variant;const nConnXh: Smallint=0):integer;stdcall;
    function ZhksyebInf1(const sNy: String; var vData: Variant;const nConnXh: Smallint=0):integer;stdcall;
    function ZhksyebSav(const sNy, sZhmc, sKhyh, sYhzh: String;
                        aAry: TDoubleDynArray; var lResult: Integer;const nConnXh: Smallint=0):integer;stdcall;
    function ZfgjjtjbInf(const sNy: String; var vData: Variant;const nConnXh: Smallint=0):integer;stdcall;
    function ZfgjjtjbSav(const sNy: String; aAry: TDoubleDynArray;
                         aAry0:TIntegerDynArray; var lResult: Integer;const nConnXh: Smallint=0):integer;stdcall;
    function XmdkbInf(const sNy: String; var vData: Variant;const nConnXh: Smallint=0):integer;stdcall;
    function XmdkbSav(const sNy, sXh, sDwmc, sXmmc, sLxspjg, sDkhth,
                      sFfrq: String; lDkqx: Integer; aAry: TDoubleDynArray;
                      var lResult: Integer;const nConnXh: Smallint=0):integer;stdcall;
    function GetData(const sBbNumber, sDptNumber, sZth, sBbDate: String; lCol,
                     lRow: Integer; var lResult: String;const nConnXh: Smallint=0):integer;stdcall;
    function Relation(const sBbNumber: String; var vData: Variant;const nConnXh: Smallint=0):integer;stdcall;
    function RelationSav(const sBbNumber: String; lRelationNo: Integer;
                         const sRelationL, sRelation, sRelationR: String;
                         var lResult: Integer;const nConnXh: Smallint=0):integer;stdcall;
    function RelationDel(const sBbNumber: String; lRelationNo: Integer;
                         var lResult: Integer;const nConnXh: Smallint=0):integer;stdcall;
    function GjGet(lCol, lRow: Integer; const sBbNum, sDptNum,
                         sDate: String; var dResult: Double;const nConnXh: Smallint=0):integer;stdcall;
    function GjSumH(lCol, lRowb, lRowe: Integer; const sBbNum, sDptNum,
                    sDate: String; var dResult: Double;const nConnXh: Smallint=0):integer;stdcall;
    function GjSumV(lColb, lCole, lRow: Integer; const sBbNum, sDptNum,
                    sDate: String; var dResult: Double;const nConnXh: Smallint=0):integer;stdcall;
    function BbSav(const sBbbh:string;const vData:TByteDynArray ;
                   var lResult: Integer;const nConnXh: Smallint=0):integer; stdcall;
    function BbWj(const sBbbh: String; var vData: TByteDynArray;
                   var lResult: Integer;const nConnXh: Smallint=0):integer;stdcall;
    function GetGjjtjb(const sDate1, sDate2: String; var aAry: TDoubleDynArray;
      var aAry0: TIntegerDynArray;const nConnXh: Smallint=0):integer; stdcall;
    function GetYhxx(const sKmdm: String; var sKhyh, sYhzh: String;const nConnXh: Smallint=0):integer;stdcall;
    function Cwcalc(const sKm, sRq, sJzny: String; lFunc: Integer;
       lPz: Smallint; var dResult: Double;const nConnXh: Smallint=0):integer;stdcall;
    function DataChk(var sResult:TStringDynArray;const nConnXh: Smallint=0):integer;stdcall;

    function fYjA(const sDate1, sDate2: String; fRecMax: Double;
      lRecUse: Boolean; fDayMax: Double; lDayUse: Boolean;
      fMonMax: Double; lMonUse: Boolean; const sDwdkKm: String;
      lDwdkUse: Boolean; const sXmdkKm: String; lXmdkUse: Boolean;
      var vRec: Variant;const nConnXh: Smallint=0):smallint; stdcall;
    function fYjB(const sDate: String; iGdMax, iGdMin: Integer;
      lGdUse: Boolean; iGdqxMax, iGdqxMin: Smallint; lGdqxUse: Boolean;
      iJkcs: Smallint; lJkcsUse: Boolean; iYqqxMax, iYqqxJsr: Smallint;
      lYqqxUse: Boolean; var vRec: Variant;const nConnXh: Smallint=0):smallint; stdcall;
    function fYjC(iFfcsMax, iFfcsTime: Smallint; lFfcsuse: Boolean;
      var vRec: Variant;const nConnXh: Smallint=0):smallint; stdcall;
    function fYjD(const sDate1, sDate2: String; iGzjjMax: Integer;
      lGzjjUse: Boolean; iGdjjMax: Integer; lGdjjUse: Boolean;
      iTqMax: Integer; lTqUse: Boolean; var vRec: Variant;const nConnXh: Smallint=0):smallint; stdcall;
    function fYjE(iKhs: Smallint; const sBm, sMc: String;
      var vRec: Variant;const nConnXh: Smallint=0):smallint; stdcall;
    function fYjF(sDate: String; fLzzjBl: Double; const sLzzjKm: String;
      lLzzjUse: Boolean; fFxzbBl: Double; const sFxzbKm: String;
      lFxzbUse: Boolean; fZxjfBl: Double; const sZxjfKm: String;
      lZxjfUse: Boolean; var vRec: Variant;const nConnXh: Smallint=0):smallint; stdcall;
    function fYjG(aZxrq, aHqll, aDqll, aDkqx, aDkll, aFxll: String;
      var vRec: Variant;const nConnXh: Smallint=0):smallint; stdcall;
    function fYjH(const sDate, sZzglfKm: String; lZzglfUse: Boolean;
      var vRec: Variant;const nConnXh: Smallint=0):smallint; stdcall;
    function fYjI(const sDate: String; fGjsxfBl: Double;
      const sGjsxfKm: String; lGjsxfUse: Boolean; fDksxfBl: Double;
      const sDksxfKm: String; lDksxfUse: Boolean;
      var vRec: Variant;const nConnXh: Smallint=0):smallint; stdcall;
    function fYjJ(const sDate: String; fZxyskFse, fZxyskYe: Double;
      const sZxyskKm: String; lZxyskUse: Boolean; fZxyfkFse,
      fZxyfkYe: Double; const sZxyfkKm: String; lZxyfkUse: Boolean;
      fQtyskFse, fQtyskYe: Double; const sQtyskKm: String;
      lQtyskUse: Boolean; fQtyfkFse, fQtyfkYe: Double;
      const sQtyfkKm: String; lQtyfkUse: Boolean;
      var vRec: Variant;const nConnXh: Smallint=0):smallint; stdcall;
    function GjjCx(const sCmd: String; var vData: Variant;const nConnXh: Smallint=0):integer; stdcall;
    function KmInfo(var vRec: Variant;const nConnXh: Smallint=0): Smallint;stdcall;

    function fYjK(var vRec: Variant;const nConnXh: Smallint=0): Smallint;stdcall;

    function SearchFinanceDetailedLedger(const sYearMonth,
      sSubject: String; var vRec: Variant;const nConnXh: Smallint=0): Smallint; stdcall;
    function SearchFinanceGenerlLedger(const sYearMonth, sSubject: String;
      nOrientation: Smallint;var vRec: Variant;const nConnXh: Smallint=0): Smallint; stdcall;
    function SearchFinanceWarrant(const sDate, sNum: String;
      var vRec: Variant;const nConnXh: Smallint=0): Smallint; stdcall;
    function SearchGZ(const sDate, sPz, nQx, fGmje: string;
      var vRec: Variant;const nConnXh: Smallint=0): Smallint; stdcall;
    function SearchGZDetail(sGzpzh:string;var vRec: Variant;const nConnXh: Smallint=0):Smallint; stdcall;

    function SearchSurveillanceDetailed(const sDate: String; nType,
      nTypeItem: Smallint; const sOther: String; nOther: Double;
      var vRec: Variant;const nConnXh: Smallint=0): Smallint; stdcall;
    { Methods of Invokable interface must not use the default }
    { calling convention; stdcall is recommended }

  end;

implementation

initialization
  { Invokable interfaces must be registered }
  InvRegistry.RegisterInterface(TypeInfo(IJGLR));

end.