- Se agrega codigo para que si hay venta, el boton de "NO VENTA" se deshabilite.

- Se agrega codigo para que cuando se muestre la panatalla de login se atualice la fecha en CAT_VARIABLES, porque a veces se quedaba la fecha del dia anterior y no dejaba hacer FIN DIA, era necesario cargar día y luego ya dejaba hacer FIN DIA.

B4A/C_TicketsDia.bas

@@ -12,6 +12,7 @@ Sub Class_Globals
 	Dim ListView1 As ListView
 	Dim b_noventa As Button
 	Dim nombre_boton As String
+	Private l_titulo As Label
 End Sub
 
 'You can add more parameters here.
@@ -41,6 +42,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 			ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),"Cantidad #"& c.GetString("PC_NOART")& " SubTotal $"& NumberFormat2(c.GetString("PC_MONTO"), 1, 2, 2, True))
 		Next
 	End If
+	Subs.centraEtiqueta(l_titulo, Root.Width)
 End Sub
 
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -95,6 +97,7 @@ End Sub
 
 Sub b_noventa_Click
 	If nombre_boton = "NOVENTA" Then
+		l_titulo.Text = "TICKETS NO VENTA"
 		nombre_boton = "VENTA"
 		b_noventa.Text ="VENTA"
 		c=Starter.skmt.ExecQuery("select NV_CLIENTE,NV_MOTIVO,NV_COMM, (select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = NV_CLIENTE ) as NOMBRE FROM NOVENTA ORDER BY NV_CLIENTE asc")
@@ -114,6 +117,7 @@ Sub b_noventa_Click
 			Next
 		End If
 	Else
+		l_titulo.Text = "TICKETS VENTA"
 		nombre_boton = "NOVENTA"
 		b_noventa.Text ="NO VENTA"
 		c=Starter.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")