- VERSION 4.08.30

- Se quitaron los botones de propinas y envio de informacion cuando ya se borro el efectivo.
- Se quito del corte Z la seccion de "TOTAL SIN PROPINAS".

Lanterna2.b4a

@@ -90,7 +90,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Lanterna
 	#VersionCode: 1
-	#VersionName:  4.08.19
+	#VersionName:  4.08.30
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: landscape
 	#CanInstallToExternalStorage: False
@@ -152,6 +152,7 @@ Sub Globals
 	Dim habilitarImportarDesdeWA As Boolean = False
 	Private b_update As Button
 	Private b_borraEfectivo As Button
+	Private user As EditText
 End Sub
 
 Sub Activity_Create(FirstTime As Boolean)
@@ -317,7 +318,7 @@ Private Sub i_conf_Click
 		p_botones.BringToFront
 		p_botones.Top = p_server.Top + p_server.Height - 10dip
 	End If
-	
+	If user.text.Trim = "KMTS7" Then b_borraEfectivo.Visible = true else b_borraEfectivo.Visible = False
 End Sub
 
 Private Sub b_cargaProductos_Click
@@ -485,7 +486,7 @@ Private Sub b_entrar_LongClick
 End Sub
 
 Private Sub user_TextChanged (Old As String, New As String)
-	If New.Trim = "KMTS1" Then i_conf.Visible = True Else i_conf.Visible = False
+	If New.Trim = "KMTS1" or New.Trim = "KMTS7" Then i_conf.Visible = True Else i_conf.Visible = False
 End Sub
 
 Private Sub cb_impresionActiva_CheckedChange(Checked As Boolean)