Dim IMG As String
CURSOR1=SQL1.ExecQuery("SELECT * FROM Imagen")
For i =0 To CURSOR1.RowCount -1
CURSOR1.Position = i
Dim NombreImagen As String
Dim SU As StringUtils
Dim ImagenCod As String
Dim Entrada As InputStream
Dim Salida As OutputStream
Dim GetImagen() As Byte
Dim ImgCod As String
NombreImagen =CURSOR1.GetString("OCR_I")
GetImagen=CURSOR1.GetBlob("FotoEvidnc")
Entrada.InitializeFromBytesArray(GetImagen, 0, GetImagen.Length)
IMG=SU.EncodeBase64(Entrada.InitializeFromBytesArray(GetImagen, 0, GetImagen.Length))
Entrada.Close
ImgCod = "Complemento"
ExecuteRemoteQuery("INSERT INTO evidenciaext(NombreEvidencia, FotoEvidencia, CodImg) VALUES ('"& NombreImagen &"', '"& IMG &"', '"& ImgCod &"')",LISTA_INSPECCION)
Next