FUNCTION buscaRnc(rnc)
  DEFINE rnc VARCHAR(11),
         ventas VARCHAR(1),
         codigodgii VARCHAR(2),
         str_query STRING,
         xnombre,xcalle,xurbanizacion VARCHAR(100),xtelefono VARCHAR(25),
         procesa BOOLEAN


         LET str_query = 
         "SELECT a.razon_social,a.calle,a.sector,a.telefono FROM DGII.dbo.empresas a WHERE a.rnc = '",rnc CLIPPED,"'"

         PREPARE busca_rnc FROM str_query


            EXECUTE busca_rnc INTO xnombre,xcalle,xurbanizacion,xtelefono 
            
            IF STATUS = NOTFOUND THEN
               LET xnombre = 'NO EXISTE'
               LET xcalle = NULL
               LET xurbanizacion = NULL
               LET xtelefono = NULL
               LET procesa = FALSE
               
            ELSE
               LET procesa = TRUE
                
            END IF

         RETURN procesa, xnombre,xcalle,xurbanizacion,xtelefono 
END FUNCTION