- VERSION 4.07.16

- Se cambio el codigo de descuento en el resumen de grupos porque a veces marcaba un peso de menos.
- Se corrigio la subrutina de impresion de A+B para que no muestre el ".00".
- Se agrego que mande por FTP la base de datos al hacer el cierre administrativo.

Subs.bas

@@ -1179,17 +1179,19 @@ Sub traeTotalTicketActual_P(tipoPago As String) As String
 		For j = 0 To p.RowCount - 1
 			p.Position = j
 '			Log(p.GetString("CAT_GP_TIPO"))
-			If p.GetString("CAT_GP_TIPO") = "ALIMENTOS" Then
+			If p.GetString("CAT_GP_TIPO") = "ALIMENTOS" Or p.GetString("CAT_GP_TIPO") = "MEDIA" Then
+'				Log(1)
 				desc = p.GetString("DESC") / 100
 '				desc = Ceil(desc)
 			Else
+'				Log(2)
 				desc = 0
 			End If
 '			Log(desc)
 			Private elSubTIndividual As String = p.GetString("PE_COSTOU") - (p.GetString("PE_COSTOU") * desc)
 			Private st2 As String = Ceil(elSubTIndividual) * p.GetString("PE_CANT")
 '			Log(">>>>>>>   " & p.GetString("CAT_GP_NOMBRE") & " - " & (p.GetString("PE_COSTO_TOT") * desc))
-'			Log(" >>>>>>   " & st & " + " & st2)
+			Log(" >>>>>>   " & st & " + " & st2)
 			st = st + st2 'Sumamos el subtotal anterior mas el REDONDEO del producto con descuento.
 		Next
 	End If