Cada cosa que toco, SQL me sorprende más y más!!!
Código: Seleccionar todo
BEGIN
SET @cNifReal = '';
SET @cLectura = Upper(SUBSTRING(rtf,1,1));
IF InStr( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789', @cLectura ) THEN
SET @cNifReal = CONCAT( @cNifReal, @cLectura );
END IF;
SET @cLectura = Upper(SUBSTRING(rtf,2,1));
IF InStr( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789', @cLectura ) THEN
SET @cNifReal = CONCAT( @cNifReal, @cLectura );
END IF;
SET @cLectura = Upper(SUBSTRING(rtf,3,1));
IF InStr( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789', @cLectura ) THEN
SET @cNifReal = CONCAT( @cNifReal, @cLectura );
END IF;
SET @cLectura = Upper(SUBSTRING(rtf,4,1));
IF InStr( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789', @cLectura ) THEN
SET @cNifReal = CONCAT( @cNifReal, @cLectura );
END IF;
SET @cLectura = Upper(SUBSTRING(rtf,5,1));
IF InStr( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789', @cLectura ) THEN
SET @cNifReal = CONCAT( @cNifReal, @cLectura );
END IF;
SET @cLectura = Upper(SUBSTRING(rtf,6,1));
IF InStr( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789', @cLectura ) THEN
SET @cNifReal = CONCAT( @cNifReal, @cLectura );
END IF;
SET @cLectura = Upper(SUBSTRING(rtf,7,1));
IF InStr( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789', @cLectura ) THEN
SET @cNifReal = CONCAT( @cNifReal, @cLectura );
END IF;
SET @cLectura = Upper(SUBSTRING(rtf,8,1));
IF InStr( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789', @cLectura ) THEN
SET @cNifReal = CONCAT( @cNifReal, @cLectura );
END IF;
SET @cLectura = Upper(SUBSTRING(rtf,9,1));
IF InStr( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789', @cLectura ) THEN
SET @cNifReal = CONCAT( @cNifReal, @cLectura );
END IF;
SET @cLectura = Upper(SUBSTRING(rtf,10,1));
IF InStr( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789', @cLectura ) THEN
SET @cNifReal = CONCAT( @cNifReal, @cLectura );
END IF;
SET @cLectura = Upper(SUBSTRING(rtf,11,1));
IF InStr( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789', @cLectura ) THEN
SET @cNifReal = CONCAT( @cNifReal, @cLectura );
END IF;
SET @cLectura = Upper(SUBSTRING(rtf,12,1));
IF InStr( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789', @cLectura ) THEN
SET @cNifReal = CONCAT( @cNifReal, @cLectura );
END IF;
RETURN @cNifReal;
END
Funciona!!!
Pero, cómo lo puedo simplificar y hacerlo en un bucle, For...Next ???
Gracias por vuestro tiempo.