- VERSION 4.07.10

- Se corrigió el código del resumen A+B.
- Se corrigió el código del resumen de grupos.

Subs.bas

@@ -1565,7 +1565,26 @@ Sub rellenaHasta(tamano As Int) As String
 	Return relleno
 End Sub
 
+Sub GroupAndCountRS(RS1 As ResultSet, iColumn As Int) As Map
+	Dim i As Int
+	Dim oMap As Map
+	Dim strKey As String
+	oMap.Initialize
+	For i = 0 To RS1.RowCount - 1
+		RS1.Position = i
+		strKey = RS1.GetString2(iColumn)
+		If oMap.ContainsKey(strKey) Then
+			oMap.Put(strKey, CInt(oMap.Get(strKey)) + 1)
+		Else
+			oMap.Put(strKey, 1)
+		End If
+	Next
+	Return oMap
+End Sub
 
+Sub CInt(o As Object) As Int
+	Return Floor(o)
+End Sub
 
 'CAT_GUNAPRODS, CAT_MESAS y CAT_MESEROS
 '1782