{
==============================================================================
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