- Se modificó la parte de Intmex, como envía y como valida los datos.

B4A/Subs.bas

@@ -192,4 +192,14 @@ Sub traeAlmacen As String 'ignore
 	a = C.GetString("ID_ALMACEN")
 	c.Close
 	Return a
+End Sub
+
+'Muestra en el Log los campos y valores que regresan en el JobDone.
+Sub logJobDoneResultados(resultado As DBResult)
+	For Each records() As Object In resultado.Rows
+		LogColor($"====== ${resultado.Tag} - REGISTROS = ${resultado.Rows.Size}"$, Colors.RGB(215,37,0))
+		For Each k As String In resultado.Columns.Keys
+			LogColor(k & " = " & records(resultado.Columns.Get(k)), Colors.RGB(215,37,0))
+		Next
+	Next
 End Sub