VERSION 6.03.24

- Se agrego codigo para que cuando envie un pedido o modificacipn deun pedido, borre antes de web todo lo que encuentre de ese cliente y luego mande el nuevo.

B4A/B4XMainPage.bas

@@ -750,6 +750,8 @@ Private Sub i_engranes_LongClick
 	reqManagerW.Initialize
 	cmd.Initialize
 	
+	Dim a As Int = "abc"
+
 	cmd.Name = "select_usuario_guna_KELL"
 	cmd.Parameters = Array As Object(user.Text, pass.Text)
 	reqManagerW.ExecuteQuery(Starter.DBReqServer, cmd, Me, "elUsuario")

B4A/C_Principal.bas

@@ -3525,16 +3525,13 @@ End Sub
 ' 2. Genera un ID único (Arch) para vincular exactamente cada venta con sus productos.
 ' 3. Empaqueta todo en una lista de comandos (Batch) para enviarlo al servidor en una sola transacción.
 Sub enviaPedidoBatch(filtro As String)
-	' Creamos una lista llamada BatchCommands. Aquí vamos a guardar todas las instrucciones
-	' de base de datos que queremos mandar al servidor de un solo golpe (en lote o "batch").
-	Dim BatchCommands As List
-	BatchCommands.Initialize
-	Log($"enviaPedidoBatch(${filtro})"$)
-	
 	' Preparamos una variable para filtrar la consulta a la base de datos.
 	' Si el filtro no dice "Todos", armamos la condición para traer solo los pedidos que no se han enviado (PC_ENVIADO = 0).
 	Private condicion As String = ""
-	If filtro <> "Todos" Then condicion = "where PC_ENVIADO = 0"
+'	If filtro <> "Todos" Then condicion = "where PC_ENVIADO = 0"
+	If filtro <> "Todos" Then
+		condicion = "WHERE PC_ENVIADO = 0 OR PC_CLIENTE IN (SELECT PE_CLIENTE FROM PEDIDO WHERE PE_ENVIADO = 0)" ' Si se actualizo un producto, hay que volver a enviar todo el pedido.
+	End If
 
 	' Ejecutamos una consulta (Query) a la base de datos local de SQLite (skmt).
 	' Buscamos los ENCABEZADOS de los pedidos en la tabla PEDIDO_CLIENTE usando la condición que armamos arriba.
@@ -3544,8 +3541,8 @@ Sub enviaPedidoBatch(filtro As String)
 	Log("pedido_cliente: " & cx.RowCount)
 
 	' Reiniciamos la variable de condición para usarla ahora en el DETALLE de los pedidos.
-	Private condicion As String = ""
+'	Private condicion As String = ""
-	If filtro <> "Todos" Then condicion = "where PE_ENVIADO = 0"
+'	If filtro <> "Todos" Then condicion = "where PE_ENVIADO = 0"
 
 	' Verificamos si en la tabla de envíos históricos (HIST_ENVIOS) hay registros del tipo "ABORDO" (Ventas en ruta directa).
 	c = Starter.skmt.ExecQuery2("SELECT COUNT(*) as CANTIDAD FROM HIST_ENVIOS WHERE HE_TIPO = ?",Array As String("ABORDO") )
@@ -3565,17 +3562,56 @@ Sub enviaPedidoBatch(filtro As String)
 	
 	' Revisamos si nuestro cursor 'cx' (los encabezados de pedido) trajo algún resultado.
 	If cx.RowCount > 0 Then ' Si hay pedido entonces lo enviamos.
-		
 		' Iniciamos un bucle (For) para recorrer cada uno de los encabezados de pedido encontrados.
 		For j = 0 To cx.RowCount - 1
-			Log("===== ENVIAMOS PRODUCTOS DE PEDIDO =====")
+			' Creamos una lista llamada BatchCommands. Aquí vamos a guardar todas las instrucciones
+			' de base de datos que queremos mandar al servidor de un solo golpe (en lote o "batch").
+			Dim BatchCommands As List
+			BatchCommands.Initialize
+			Log($"enviaPedidoBatch(${filtro})"$)
+
+			Log("===== AGREGAMOS HEADER DE PEDIDO =====")
 			' Movemos el cursor 'cx' a la posición 'j' actual del bucle.
 			cx.Position = j
 
+			' ===== 1. EJECUTAR DELETES PRIMERO =====
+			Log("===== LIMPIANDO PEDIDOS PREVIOS EN SERVER =====")
+
+			' Borrar Pedido (Detalle)
+			Dim cmdDelPed As DBCommand
+			cmdDelPed.Initialize
+			cmdDelPed.Name = "borraPedido_Kelloggs"
+			cmdDelPed.Parameters = Array As Object(ALMACEN, l_ruta.text, cx.GetString("PC_USER"), cx.GetString("PC_CLIENTE"))
+			BatchCommands.Add(cmdDelPed)
+
+			' Borrar Pedido Cliente (Header)
+			Dim cmdDelHeader As DBCommand
+			cmdDelHeader.Initialize
+			cmdDelHeader.Name = "borraPedidoCliente_Kelloggs"
+			cmdDelHeader.Parameters = Array As Object(ALMACEN, l_ruta.text, cx.GetString("PC_USER"), cx.GetString("PC_CLIENTE"))
+			BatchCommands.Add(cmdDelHeader)
+
+			' Borrar Hist_Ventas (Header)
+			Dim cmdDelHV As DBCommand
+			cmdDelHV.Initialize
+			cmdDelHV.Name = "borraHV_Kelloggs"
+			cmdDelHV.Parameters = Array As Object(ALMACEN, l_ruta.text, cx.GetString("PC_USER"), cx.GetString("PC_CLIENTE"))
+			BatchCommands.Add(cmdDelHV)
+
+			' Borrar Hist_Ventas_Detalle (Detalle)
+			Dim cmdDelHVD As DBCommand
+			cmdDelHVD.Initialize
+			cmdDelHVD.Name = "borraHVD_Kelloggs"
+			cmdDelHVD.Parameters = Array As Object(ALMACEN, l_ruta.text, cx.GetString("PC_USER"), cx.GetString("PC_CLIENTE"))
+			BatchCommands.Add(cmdDelHVD)
+
 			' Generamos un identificador único (Arch) concatenando el almacén, la ruta, el cliente y la fecha/hora actual.
 			' Esto sirve para agrupar en el servidor el encabezado con sus respectivos detalles.
 			Dim Arch As String = Subs.traeAlmacen & "_" & Subs.traeRuta & "_" & cx.GetString("PC_CLIENTE") & "_" & DateTime.Now
 
+			Starter.skmt.ExecNonQuery2($"UPDATE PEDIDO SET PE_ARCH = ? WHERE PE_CLIENTE = ?"$, Array As Object(Arch, cx.GetString("PC_CLIENTE")))
+			Starter.skmt.ExecNonQuery2($"UPDATE PEDIDO_CLIENTE SET PC_ARCH = ? WHERE PC_CLIENTE = ?"$, Array As Object(Arch, cx.GetString("PC_CLIENTE")))
+
 			' Preparamos un comando de base de datos (DBCommand) para mandar al servidor.
 			Dim cmdHeader As DBCommand
 			cmdHeader.Initialize
@@ -3589,14 +3625,13 @@ Sub enviaPedidoBatch(filtro As String)
 
 			' Ahora hacemos una consulta para buscar el DETALLE de este pedido (los productos individuales).
 			' Filtramos por la condición (si se envió o no) y lo amarramos al cliente actual del bucle (PC_CLIENTE).
-			Private cPed As Cursor = Starter.skmt.ExecQuery($"SELECT PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO, PE_TIPO, PE_ARCH FROM PEDIDO ${condicion} ${(IIf(condicion = "","where", "and"))} pe_cliente = '${cx.GetString("PC_CLIENTE")}' "$)
+			Private cPed As Cursor = Starter.skmt.ExecQuery($"SELECT PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO, PE_TIPO, PE_ARCH FROM PEDIDO where pe_cliente = '${cx.GetString("PC_CLIENTE")}' "$)
 
 			' Si hay detalles para este encabezado...
 			If cPed.RowCount > 0 Then
-				
 				' Iniciamos un bucle interno para recorrer cada producto de este pedido.
 				For i = 0 To cPed.RowCount - 1
-					Log("==== ENVIAMOS PRODS ====")
+					Log("==== AGREGAMOS PRODS DE PEDIDO ====")
 					' Movemos el cursor de detalles a la posición actual.
 					cPed.Position = i
 
@@ -3609,8 +3644,8 @@ Sub enviaPedidoBatch(filtro As String)
 						Log("===== V-ESPECIAL =====")
 						' Nota: Aquí el código original tiene un detalle, usa la variable global 'cmd' en lugar de 'cmdDetail'
 						' que acaba de inicializar, pero la copiamos tal cual. Utiliza un query distinto para ventas especiales.
-						cmd.Name = "insert_pedido_esp_KELL"
+						cmdDetail.Name = "insert_pedido_esp_KELL"
-						cmd.Parameters = Array As Object(cPed.GetString("PE_CEDIS"),ALMACEN,cPed.GetString("PE_COSTO_TOT"),cPed.GetString("PE_COSTOU"),cPed.GetString("PE_CANT"),cPed.GetString("PE_PRONOMBRE"),cPed.GetString("PE_PROID"),cPed.GetString("PE_CLIENTE"),cPed.GetString("PE_FECHA"),cPed.GetString("PE_USUARIO"),cPed.GetString("PE_RUTA"),cPed.GetString("PE_COSTO_SIN"),cPed.GetString("PE_DESC"),cPed.GetString("PE_FOLIO"),cPed.GetString("PE_TIPO"),NUMERO_PEDIDO)
+						cmdDetail.Parameters = Array As Object(cPed.GetString("PE_CEDIS"),ALMACEN,cPed.GetString("PE_COSTO_TOT"),cPed.GetString("PE_COSTOU"),cPed.GetString("PE_CANT"),cPed.GetString("PE_PRONOMBRE"),cPed.GetString("PE_PROID"),cPed.GetString("PE_CLIENTE"),cPed.GetString("PE_FECHA"),cPed.GetString("PE_USUARIO"),cPed.GetString("PE_RUTA"),cPed.GetString("PE_COSTO_SIN"),cPed.GetString("PE_DESC"),cPed.GetString("PE_FOLIO"),cPed.GetString("PE_TIPO"),NUMERO_PEDIDO)
 					Else
 						' Si es un vendedor normal, usa el comando estándar para insertar el detalle
 						' y le pasa la misma variable 'Arch' para que en el servidor sepa de qué encabezado es.
@@ -3622,12 +3657,13 @@ Sub enviaPedidoBatch(filtro As String)
 					BatchCommands.Add(cmdDetail)
 				Next
 			End If
-		Next
+			cPed.Close
-		
 			' Al terminar de empaquetar, enviamos toda la lista de instrucciones (BatchCommands) al servidor de un solo golpe.
 			' Se le asigna un nombre de etiqueta (Tag) para saber qué responderá el JobDone ("pedido_completo_" + id de cliente).
 			' (Ojo visual para el programador: Esta línea está dentro del 'If' general, pero también después de armar los batches en el bucle 'For'. Al procesar el último item del bucle cx, tomará el ID del último cliente para el Tag).
 			reqManager.ExecuteBatch(BatchCommands, "pedido_completo_" & cx.GetString("PC_CLIENTE"))
+			Log("==== ENVIAMOS PEDIDO COMPLETO ====")
+		Next
 	End If
 
 	' Por buena práctica y para evitar fugas de memoria (memory leaks),

B4A/KelloggsV4.b4a

@@ -918,7 +918,7 @@ Version=12.8
 #Region  Project Attributes	
 	#ApplicationLabel: Kelloggs Venta
 	#VersionCode: 3000
-	#VersionName: 6.03.15
+	#VersionName: 6.03.24
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
 	#BridgeLogger:true

B4A/KelloggsV4.b4a.meta

@@ -94,15 +94,15 @@ ModuleClosedNodes29=
 ModuleClosedNodes3=
 ModuleClosedNodes30=3
 ModuleClosedNodes31=
-ModuleClosedNodes32=
+ModuleClosedNodes32=2
 ModuleClosedNodes33=
 ModuleClosedNodes34=
-ModuleClosedNodes4=1,128
+ModuleClosedNodes4=1,3
 ModuleClosedNodes5=
 ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=B4XMainPage,ImageView1_LongClick,1073,0,C_Productos,lv_catalogos_ItemClick,357,0,C_Principal,Subir_Click,688,0,C_Principal,enviaPedidoBatch,3520,0,C_Principal,SUBIR_INFO_PEDIDO,3516,0,C_Productos,Class_Globals,32,0,C_Productos,b_prodMas_Click,845,0,Subs,actualizaProducto,966,2,Subs,guardaProducto,896,0,Subs,traeInvDeBD,893,0,Subs,traeUsuarioDeBD,881,0
+NavigationStack=Starter,Application_Error,120,0,Starter,Service_Start,97,0,Starter,Service_Create,88,0,C_Cliente,b_inicioFinVenta_Click,4426,0,C_Cliente,mandaPendientes,1100,0,C_Principal,enviaPedido,3731,0,C_Cliente,Guardar_Click,1081,0,C_Cliente,Subir_Pedido_Con_Integridad,4501,0,C_Principal,SUBIR_INFO_PEDIDO,3519,0,C_Principal,enviaPedidoBatch,3578,6,C_Principal,JobDone,1878,0
 SelectedBuild=0
-VisibleModules=32,1,13,4,33,16,34,14,15,18
+VisibleModules=32,1,13,4,33,16,34,14,15,24

B4A/Starter.bas

@@ -86,9 +86,9 @@ Sub Service_Create
 	reqManager.Initialize(Me, DBReqServer) 'Inicializamos reqManager.
 	If Logger Then Log($"Starter reqManager server: ${DBReqServer}"$)
 	'Para los Logs
-	#if RELEASE
+'	#if RELEASE
 		logcat.LogCatStart(Array As String("-v","raw","*:F","B4A:v"), "logcat")
-	#end if
+'	#end if
 	logs.Initialize
 	sesion.Initialize
 End Sub
@@ -124,7 +124,7 @@ Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
 	logs.Append(StackTrace)
 	Subs.revisaBD
 	LogColor(logs, Colors.blue)
-	errorLog.ExecNonQuery($"INSERT INTO errores(fecha, error) VALUES ('${Subs.fechaKMT(DateTime.now)}', '${logs}')"$)
+	skmt.ExecNonQuery($"INSERT INTO errores(fecha, error) VALUES ('${Subs.fechaKMT(DateTime.now)}', '${logs}')"$)
 	LogColor("insertamos Error", Colors.red)
 	StartActivity(errorManager)
 	Return True