Egység uAddDocumentEESZT

Osztályok, Kapcsolódási felületek és Objektumok
Típusok
Konstansok

Megjegyzés

This item has no description.

Uses

Áttekintés

Függvények és Eljárások

function SetDocumentRecord(Q: TFDQuery):TDocument;
function AddDocumentEESZT( textkod : integer ):string;
function GetRATDatas( rsl: TStringlist; q:TFDQuery; seeszt_id:string ): string;

Változók

AddDocQuery: TFDQuery;
AddDocdoc: TResponseObject;
AddDocresponsetxt:string;

Megjegyzés

Függvények és Eljárások

function SetDocumentRecord(Q: TFDQuery):TDocument;

This item has no description.

function AddDocumentEESZT( textkod : integer ):string;

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

function GetRATDatas( rsl: TStringlist; q:TFDQuery; seeszt_id:string ): string;

ÁTKERÜLT A HISFunctions-be procedure UpdateDocEESZTID(textkod:integer;id,version: string); var Query : TFDQuery; docupdatesql : string; begin

docupdatesql := 'UPDATE TEXT ' + ' SET ' + ' EESZT_ID = :EESZT_ID, EESZT_VERSION = :EESZT_VERSION ' + ' WHERE TEXTKOD = :TEXTKOD'; Query := TFDQuery.Create(nil); try Query.Connection := GetDBConnection('BETEG'); Query.sql.add(docupdatesql); Query.parambyname('TEXTKOD').AsInteger := TEXTKOD; Query.parambyname('EESZT_ID').AsString := id; Query.parambyname('EESZT_VERSION').AsString := version; Query.ExecSQL; except logError( ExceptionToString(ExceptionType, ExceptionParam)); finally Query.Free; end;

end;

Változók

AddDocQuery: TFDQuery;

This item has no description.

AddDocdoc: TResponseObject;

This item has no description.

AddDocresponsetxt:string;

This item has no description.


Készítette PasDoc 0.16.0-snapshot.