19 lines
504 B
Plaintext
19 lines
504 B
Plaintext
FUNCTION busca_imagen(pcodn,pcodgrupo,pcodtipo,pcodsec)
|
|
DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec INT,
|
|
pimagen BYTE
|
|
|
|
|
|
LOCATE pimagen IN MEMORY
|
|
SELECT a.imagen INTO pimagen FROM iptb00002 a
|
|
WHERE a.cod_n = pcodn AND
|
|
a.cod_grupo = pcodgrupo AND
|
|
a.cod_tipo = pcodtipo AND
|
|
a.cod_Sec = pcodsec
|
|
|
|
IF pimagen IS NULL OR LENGTH(pimagen) < 4 THEN
|
|
|
|
CALL pimagen.readFile("fotodefault.jpg")
|
|
END IF
|
|
|
|
RETURN pimagen
|
|
END FUNCTION |