- VERSION 5.05.13

- Se corrigen los montos y piezas que semuestran en Resumen Dia del abordo
- Se agrega la funcion "Subs/agrupaProdsPromo" que agrupa los productos fijos y variables de las promos, esto para el caso de que los fijos y variables sean iguales en monto y cantidad y el pasarInfoMovil no los tire!

B4A/Subs.bas

@@ -1510,4 +1510,65 @@ Sub revisaFechaVigenciaPromo(pm As Map) As Boolean
 '	Log(Starter.tipov & "|" & vigencia & "|" & DateTime.Date(DateTime.Now))
 	LogColor("Promo vigente: " & vigente, Colors.red)
 	Return vigente
+End Sub
+
+' Agrupa los productos de las promociones, porque si tenemos un producto fijo a precio x y un producto variabe al mismo precio
+' y las mismas cantidades, el pasarInfoMovil las detecta como duplicados y las tira, con esta funcion en lugar de dos registros,
+' solo va uno con cantidades y totales sumados.
+Sub agrupaProdsPromo (cliente As String)
+	Starter.skmt.ExecNonQuery($"CREATE TEMP TABLE IF NOT EXISTS PEDIDO_AGRUPADOR (
+	PE_PRECIO2,
+	PE_TIPO,
+    PE_FOLIO TEXT,
+    PE_DESC TEXT,
+    PE_COSTO_SIN REAL,
+    PE_RUTA TEXT,
+    PE_CEDIS TEXT,
+    PE_COSTO_TOT REAL,
+    PE_COSTOU REAL,
+    PE_CANT INTEGER,
+    PE_PRONOMBRE TEXT,
+    PE_PROID TEXT,
+    PE_CLIENTE TEXT,
+    PE_FECHA TEXT,
+    PE_USUARIO TEXT
+)"$)
+
+	Starter.skmt.BeginTransaction
+
+	'-- Vaciar la tabla temporal.
+	Starter.skmt.ExecNonQuery($"DELETE FROM PEDIDO_AGRUPADOR"$)
+
+	'-- Ponemos los datos agrupados en la tabla temporal.
+	Starter.skmt.ExecNonQuery($"
+		INSERT INTO PEDIDO_AGRUPADOR
+		Select
+			PE_PRECIO2,
+			PE_TIPO,
+		    PE_FOLIO,
+		    PE_DESC,
+		    PE_COSTO_SIN,
+		    PE_RUTA,
+		    PE_CEDIS,
+		    SUM(PE_COSTO_TOT) As PE_COSTO_TOT,
+		    PE_COSTOU,
+		    SUM(PE_CANT) As PE_CANT,
+		    PE_PRONOMBRE,
+		    PE_PROID,
+		    PE_CLIENTE,
+		    PE_FECHA,
+		    PE_USUARIO
+		FROM
+		    pedido
+		WHERE
+		    PE_CLIENTE = '${cliente}'
+		GROUP BY
+		    PE_PROID, PE_PRONOMBRE, PE_COSTOU, PE_RUTA, PE_CEDIS, PE_CLIENTE, PE_FECHA, PE_USUARIO"$)
+
+	'-- Reemplazar los datos originales en pedido.
+	Starter.skmt.ExecNonQuery($"DELETE FROM PEDIDO WHERE PE_CLIENTE = '${cliente}'"$)
+	Starter.skmt.ExecNonQuery($"INSERT INTO PEDIDO SELECT * FROM PEDIDO_AGRUPADOR"$)
+	Starter.skmt.TransactionSuccessful 'Si no se pone TransactionSuccessful no se escribe NADA!!
+	Starter.skmt.EndTransaction
+	Log("LISTO!!")
 End Sub