- VERSION 5.09.01

- Cambios en starter para el mandaPendientes

B4A/Starter.bas

@@ -226,6 +226,20 @@ Sub JobDone(Job As HttpJob)
 						End If
 					Next
 				End If
+				
+				'GUARDA PESOS
+				If result.Tag.As(String).StartsWith("insertPesos_") Then
+					For Each records() As Object In result.Rows
+						Private id() = Regex.Split("_", result.tag)
+						If id.Length > 1 Then
+							For Each k As String In result.Columns.Keys
+'							Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k)))
+								skmt.ExecNonQuery($"update pesos set PE_ENVIO_OK = 1 where PE_CLIENTE = '${id(1)}'"$)
+'							Log($"update bitacoragps set enviado = 1 where id = '${id(1)}'"$)
+							Next
+						End If
+					Next
+				End If
 			End If
 		End If
 		Log(">>>>> Job.Release Starter")