- VERSION 4.06.23

- Se corrigió como se guarda la informacion de los pagos, ya deben de cuadrar las cantidades de Amex, Mifel y efectivo.
- Se quito del resumen de grupos la seccion de "pagos".
- En resumen de ordenes, si no hay efectivo, ahora solo dice "Total".
- En la pantala de ordenes se agregó la forma de pago y comensakes de cada mesa.
- En la pantalla de ordenes, el boton de "Reimprimr" no imprimia las ordenes de efectivo, ahora ya las imprime.
- Se ajustó el encabezado de el resumen del día.

Lanterna2.b4a

@@ -263,11 +263,11 @@ Private Sub b_envioBD_Click
 	'copy the shared file to the shared folder
 	Log("xxxxxx:"&Provider.SharedFolder)
 	Sleep(1000)
-	File.Copy(File.DirInternal, FileName, Provider.SharedFolder, FileName)
+	File.Copy(File.DirInternal, FileName, Provider.SharedFolder, "kmt_Lanterna.db")
 	Dim email As Email
 	email.To.Add("soporte@keymonsoft.com")
 	email.Subject = "Envio Base de datos Lanterna"
-	email.Attachments.Add(Provider.GetFileUri(FileName))
+	email.Attachments.Add(Provider.GetFileUri("kmt_Lanterna.db"))
 '	email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment
 	Dim in As Intent = email.GetIntent
 	in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION