| AddKATToControl |
uStandardFunctions |
ÁTKERÜLT az uHISFunctions-be function GetEventDiagnosis3( id : integer ):string;
var searchQuery: TFDQuery; bnokeressql : string; begin
//log ('bnokeres'); bnokeressql := ' SELECT ' + ' BNO FROM DIAG WHERE (ESETKOD = :ESETKOD) AND (AKTIVREKORD = 1 ) AND ( TIPUS IN (''3'',''5'')) ORDER BY TIPUS ' ;
searchQuery := TFDQuery.Create(nil);
searchQuery.Connection := GetDBConnection('BETEG'); //log(bnokeressql);
searchQuery.sql.add(bnokeressql);
searchQuery.parambyname('ESETKOD').AsInteger := id;
searchQuery.open;
searchQuery.first;
if not(searchQuery.isempty) then begin
if searchQuery.FieldByName('BNO').value <> '' then
result := trim(searchQuery.FieldByName('BNO').AsString) else
result := '';
end else result := '';
log('GetEventDiagnosis3 Id: ' + inttostr(id) + ' bno: ' + searchQuery.FieldByName('BNO').AsString);
searchQuery.free end; |
| ExtQuery.RawFieldList |
uExtQuery |
SQL lekérdezés mezőlista feldolgozás és az abban található mezőnevek visszaadása string tömb formájában
Fontos, hogy a mezőnevek nem tartalmazzák a tábla prefixeket (pl. S.SZEMKOD esetében az eredmény SZEMKOD)
Amennyiben egy mező nevét direkt módon tartalmazza a lista, akkor az kerül az eredménybe (pl. S.SZULDAT SZULETESI_DATUM, vagy S.SZULDAT AS SZULETESI_DATUM esetében a SZULETESI_DATUM megnevezés kerül az eredménybe) |
| GetDocSLFromParamsEx |
uGWFunctions |
procedure GetDocSLFromParamsEx( var docsl : TStringList; documentType, specid, specversion, mime_type , nem, szulido, idtype, id, name, maindiagnose : string; ellatasKEzdete, ellatasVege,DokDatum : TDateTime ); function GetDocSLFromParamsEx( docsl : TStringList; documentType, specid, specversion, mime_type , nem, szulido, idtype, id, name, maindiagnose : string; ellatasKEzdete, ellatasVege,DokDatum : TDateTime ):String; function GetDocSLFromParamsEx( docsl : TStringList; documentType, specid, specversion, mime_type , nem, szulido, idtype, id, name, maindiagnose, EKATID : string; ellatasKEzdete, ellatasVege,DokDatum : TDateTime ):String; GetDocSLFromJSonParamsEx |
| GetRATDatas |
uAddDocumentEESZT |
Á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; |