Marioth
6th June 2018, 15:03
Hi.
I programmed this function:
function extern domain tcdsca zuibd.dll9002.get.default.color.basic.project(domain tcinbo i.colo, domain tccprj i.cprj)
{
if isspace(i.cprj) then
select tipcs400.dsca from tipcs400
where tipcs400._index1 = {"100100000",:i.colo}
as set with 1 rows
selectdo
return(tipcs400.dsca)
selectempty
select zuibd934.dsca from tcibd934
where zuibd934._index1 = {:i.colo}
as set with 1 rows
selectdo
return(zuibd934.dsca)
endselect
endselect
else
select tipcs400.dsca from tipcs400
where tipcs400._index1 = {:i.cprj,:i.colo}
as set with 1 rows
selectdo
return(tipcs400.dsca)
selectempty
select tipcs400.dsca from tipcs400
where tipcs400._index1 = {"100100000",:i.colo}
as set with 1 rows
selectdo
return(tipcs400.dsca)
selectempty
select zuibd934.dsca from tcibd934
where zuibd934._index1 = {:i.colo}
as set with 1 rows
selectdo
return(zuibd934.dsca)
endselect
endselect
endselect
endif
return("")
}
and when I compile it I get an Error 302 on zuibd934._index1. The tabel zuibd934 excist is configured etc. the index is on colo with domain tcinbo. I haven't a clue whats wrong. BTW this is in LN10.6.
I hope somebody can help me with this.
Thanks,
Mario
I programmed this function:
function extern domain tcdsca zuibd.dll9002.get.default.color.basic.project(domain tcinbo i.colo, domain tccprj i.cprj)
{
if isspace(i.cprj) then
select tipcs400.dsca from tipcs400
where tipcs400._index1 = {"100100000",:i.colo}
as set with 1 rows
selectdo
return(tipcs400.dsca)
selectempty
select zuibd934.dsca from tcibd934
where zuibd934._index1 = {:i.colo}
as set with 1 rows
selectdo
return(zuibd934.dsca)
endselect
endselect
else
select tipcs400.dsca from tipcs400
where tipcs400._index1 = {:i.cprj,:i.colo}
as set with 1 rows
selectdo
return(tipcs400.dsca)
selectempty
select tipcs400.dsca from tipcs400
where tipcs400._index1 = {"100100000",:i.colo}
as set with 1 rows
selectdo
return(tipcs400.dsca)
selectempty
select zuibd934.dsca from tcibd934
where zuibd934._index1 = {:i.colo}
as set with 1 rows
selectdo
return(zuibd934.dsca)
endselect
endselect
endselect
endif
return("")
}
and when I compile it I get an Error 302 on zuibd934._index1. The tabel zuibd934 excist is configured etc. the index is on colo with domain tcinbo. I haven't a clue whats wrong. BTW this is in LN10.6.
I hope somebody can help me with this.
Thanks,
Mario