46 lines
1.4 KiB
Plaintext
46 lines
1.4 KiB
Plaintext
{
|
|
==============================================================================
|
|
PROGRAMA : BUSCA_D
|
|
OBJETIVO : BUSCA LAS DIRECCIONES DE LOS CLIENTES EN LOS REPORTES
|
|
QUE LO REQUIERA
|
|
PROGRAMADOR: JUAN F. SOTO
|
|
FECHA : AGOSTO 28, 1997.
|
|
|
|
==============================================================================
|
|
}
|
|
|
|
DATABASE exterior
|
|
|
|
FUNCTION busca_d(tipo_cliente,sec_cliente)
|
|
DEFINE tipo_cliente,sec_cliente SMALLINT
|
|
DEFINE clientes RECORD LIKE vetb00004.*,
|
|
localidad,direccion CHAR(80),
|
|
p_calle,p_casa,p_barrio,p_urbaniza,descrip_zona CHAR(25),
|
|
descrip_prov CHAR(30)
|
|
|
|
SELECT a.* INTO clientes.*
|
|
FROM vetb00004 a
|
|
WHERE a.tipo_cliente = tipo_cliente AND
|
|
a.sec_cliente = sec_cliente
|
|
|
|
SELECT a.descrip INTO descrip_zona
|
|
FROM vetb00008 a
|
|
WHERE a.cod_zona = clientes.cod_zona
|
|
|
|
SELECT a.nombre_provincia INTO descrip_prov
|
|
FROM vetb00020 a
|
|
WHERE a.cod_provincia = clientes.cod_provincia
|
|
|
|
SELECT a.calle,a.casa_num,a.barrio,a.urbanizacion
|
|
INTO p_calle,p_casa,p_barrio,p_urbaniza
|
|
FROM vetb00005 a
|
|
WHERE a.tipo_cliente = tipo_cliente AND
|
|
a.sec_cliente = sec_cliente
|
|
|
|
LET localidad = "ZONA: ",descrip_zona CLIPPED," PROVINCIA: ",
|
|
descrip_prov CLIPPED," Tel. ",clientes.telefono
|
|
LET direccion = p_calle CLIPPED," ",p_casa CLIPPED," ",p_barrio CLIPPED," ",
|
|
p_urbaniza CLIPPED
|
|
RETURN localidad,direccion
|
|
END FUNCTION
|