begin
/* Tato procedura slouží k načítání lokalizovaných exportu */
if ((:langid = '') or (:langid is null)) then begin
/* Pokud neni langid zadano tak pozaduji report v lokalnim jazuku tudi z tabulky Exports*/
if ((:objid = '') or (:objid is null)) then begin
/* pokud neni zadano ani objid tak pozaduji vsechny exporty */
for
select A.ID, A.DATASOURCE, A.SYSTEM, A.DATA, A.TITLE, A.EXPORTID, A.OBJVERSION, A.ISFORM, A.CREATEDBY_ID, A.CORRECTEDBY_ID, A.OWNER_ID, A.HASH, A.VisibleFrom$DATE, A.VisibleTo$DATE
from Exports A
into
:ID, :DATASOURCE, :SYSTEM, :DATA, :TITLE, :EXPORTID, :OBJVERSION, :ISFORM, :CREATEDBY_ID, :CORRECTEDBY_ID, :OWNER_ID, :HASH, :VisibleFrom$DATE, :VisibleTo$DATE
do suspend;
end else begin
/* Pokud zadam objid tak vybiram primo to jedno ID */
for
select A.ID, A.DATASOURCE, A.SYSTEM, A.DATA, A.TITLE, A.EXPORTID, A.OBJVERSION, A.ISFORM, A.CREATEDBY_ID, A.CORRECTEDBY_ID, A.OWNER_ID, A.HASH, A.VisibleFrom$DATE, A.VisibleTo$DATE
from Exports A
where A.ID = :objid
into
:ID, :DATASOURCE, :SYSTEM, :DATA, :TITLE, :EXPORTID, :OBJVERSION, :ISFORM, :CREATEDBY_ID, :CORRECTEDBY_ID, :OWNER_ID, :HASH, :VisibleFrom$DATE, :VisibleTo$DATE
do suspend;
end
end else begin
/* Zadal jsem langid */
if ((objid = '') or (objid is null)) then begin
for
select A.ID, A.DATASOURCE, A.SYSTEM, Coalesce(B.DATA, A.DATA), Coalesce(B.TITLE, A.TITLE), A.EXPORTID, A.OBJVERSION, A.ISFORM, A.CREATEDBY_ID, A.CORRECTEDBY_ID, A.OWNER_ID, A.HASH, A.VisibleFrom$DATE, A.VisibleTo$DATE
from Exports A
left join sys$langexports B on B.id = A.id and B.langid = :langid
into
:ID, :DATASOURCE, :SYSTEM, :DATA, :TITLE, :EXPORTID, :OBJVERSION, :ISFORM, :CREATEDBY_ID, :CORRECTEDBY_ID, :OWNER_ID, :HASH, :VisibleFrom$DATE, :VisibleTo$DATE
do
suspend;
end else begin
/* Zadal jsem langid i objid */
for
select A.ID, A.DATASOURCE, A.SYSTEM, Coalesce(B.DATA, A.DATA), Coalesce(B.TITLE, A.TITLE), A.EXPORTID, A.OBJVERSION, A.ISFORM, A.CREATEDBY_ID, A.CORRECTEDBY_ID, A.OWNER_ID, A.HASH, A.VisibleFrom$DATE, A.VisibleTo$DATE
from Exports A
left join sys$langexports B on B.id = A.id and B.langid = :langid
where A.id = :objid
into
:ID, :DATASOURCE, :SYSTEM, :DATA, :TITLE, :EXPORTID, :OBJVERSION, :ISFORM, :CREATEDBY_ID, :CORRECTEDBY_ID, :OWNER_ID, :HASH, :VisibleFrom$DATE, :VisibleTo$DATE
do
suspend;
end
end
end