15 lines
365 B
Plaintext
15 lines
365 B
Plaintext
FUNCTION verInstalacion(pnumoc)
|
|
DEFINE pnumoc,cuenta INT,
|
|
existe_instalacion BOOLEAN
|
|
|
|
SELECT COUNT(*) INTO cuenta FROM prtb00013 a,iptb00020 b
|
|
WHERE a.num_oc = pnumoc AND a.cod_n = b.cod_n AND b.instalacion = "SI"
|
|
|
|
IF cuenta > 0 THEN
|
|
LET existe_instalacion = FALSE
|
|
ELSE
|
|
LET existe_instalacion = TRUE
|
|
END IF
|
|
|
|
|
|
END FUNCTION |