- VERSION 5.10.03

- Se cambio com ose enviaban las imagenes, antes blob, ahora solo nombre.
- Se agregaron 2 columnas a FOTOINICIAL para poner el nombre de las fotos.

B4A/Starter.bas

@@ -251,4 +251,57 @@ Sub JobDone(Job As HttpJob)
 	Catch
 		Log(LastException)
 	End Try
+End Sub
+
+Sub mandaForma(almacen_ As String, ruta_ As String, cliente_ As String, imagen_ As String)
+	' 1. Inicializa un nuevo HttpJob
+	Dim job As HttpJob
+	job.Initialize("", Me)
+
+	' 2. Define la URL del servidor
+	Dim url As String = "https://keymon.net/ADM/POST_IMAGEN.aspx"
+
+	' 3. Crea un Map para los campos de texto del formulario
+	Dim params As Map
+	params.Initialize
+	params.Put("Almacen", almacen_)
+	params.Put("Ruta", ruta_)
+	params.Put("Cliente", cliente_)
+	params.Put("btnUpload", "Subir Imagen") ' El botón de submit también envía su valor
+
+	' --- CAMPOS OCULTOS DE ASP.NET ---
+	' Estos valores suelen ser dinámicos. Para este ejemplo, los ponemos fijos.
+	' Si falla, es posible que primero necesites hacer un GET a la página para obtener los valores actualizados.
+'	params.Put("__VIEWSTATE", "/wEPDwUKMjA1ODU4NjY1MGRkhSExd19qC1l3GdX6jvTnbM9pxPQR8urGAvs76UsqsDU=")
+'	params.Put("__VIEWSTATEGENERATOR", "6050E242")
+'	params.Put("__EVENTVALIDATION", "/wEdAAX5q9hoCUC745WBVO+/1ZWhraEDRZI2xn7OC3a5LAUoRlfyZCZSVcs/gLubOxTf2dCyEN4makXuwRjezU2tU1hn5vhDofrSSRcWtmHPtJVt4HHStaEfV6fkOi3uRRJDHybxwaB9FuVcVFxi7uoxeGMX")
+
+	' 4. Crea una lista de archivos a subir
+	Dim files As List
+	files.Initialize
+
+	' Creamos el objeto MultipartFileData para nuestra imagen
+	' KeyName: Es el atributo "name" del input en HTML ("Imagen")
+	' ContentType: El tipo de archivo
+	Dim mfd As MultipartFileData = Subs.CreateMultipartFileData(File.DirInternal&"/adm", imagen_, "Imagen", "image/jpeg")
+	files.Add(mfd)
+
+	' 5. Realiza la petición POST de tipo multipart
+	job.PostMultipart(url, params, files)
+
+	' 6. Espera a que el trabajo termine
+	Wait For (job) JobDone(job As HttpJob)
+
+	If job.Success Then
+		' El servidor respondió correctamente (HTTP 200 OK)
+		Log("Respuesta del servidor: " & job.GetString)
+'		MsgboxAsync("¡Imagen subida con éxito!", "Completado")
+	Else
+		' Hubo un error en la conexión o el servidor respondió con un error
+		Log("Error al subir la imagen: " & job.ErrorMessage)
+'		MsgboxAsync("Error: " & job.ErrorMessage, "Fallo")
+	End If
+
+	' Libera los recursos del job
+	job.Release
 End Sub