Version: 4:11:02

Se arrglo el resumen dia, ahora puedes entrar sin necesidad de hacer algun pedido sin que truene, se muestra la cantidad de clientes visitados sin importar si tienen o no tienen venta y tambien se le agrego la cantidad de clientes que si tienen venta.

B4A/C_Cliente.bas

@@ -156,6 +156,7 @@ Sub Class_Globals
 	Private et_monto_venta As EditText
 	Private b_can_monto_venta As Button
 	Private b_gu_monto_venta As Button
+	Private p_inv As Panel
 End Sub
 
 'You can add more parameters here.
@@ -215,6 +216,7 @@ Sub B4XPage_Appear
 '	Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
 '	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
 '	Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
+	p_inv.Width = Root.Width : p_inv.Height = Root.Height
 	b_inicioFinVenta.Width = Root.Width
 	LA_GPS.TextColor = Colors.Red
 	LA_GPS.Text = "SIN UBICACION GPS"
@@ -1029,7 +1031,8 @@ Private Sub b_clienteVenta_Click
 	
 	et_monto_venta.Text = ""
 	p_monto_venta.Visible = True
-	
+	p_inv.BringToFront
+	p_inv.Visible = True
 End Sub
 
 Private Sub b_clinteSinVenta_Click
@@ -1043,15 +1046,15 @@ Private Sub b_clinteSinVenta_Click
 		c.Position = 0
 		clie_id = c.GetString("CUENTA")
 		c.Close
-        
-		B4XPages.MainPage.skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)")
-		B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
-        
-		B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
-        
-		B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_OUT = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(DateTime.Time(DateTime.Now)))
-		B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(DateTime.Time(DateTime.Now)))
-        
+'        
+'		B4XPages.MainPage.skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)")
+'		B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+'        
+		B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+'        
+'		B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_OUT = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(DateTime.Time(DateTime.Now)))
+'		B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(DateTime.Time(DateTime.Now)))
+'        
 		ToastMessageShow("Cliente con venta eliminado correctamente.", False)
         
 	Catch
@@ -1063,8 +1066,8 @@ End Sub
 
 Private Sub b_gu_monto_venta_Click
 
-	If et_monto_venta.Text = "" Or et_monto_venta.Text = "0" Then
-		ToastMessageShow("El monto de venta no puede ser vacío o 0.", True)
+	If et_monto_venta.Text.Trim = "" Or et_monto_venta.Text.Trim.StartsWith("0") Or et_monto_venta.Text.Trim = "0" Then
+		ToastMessageShow("El monto de venta no puede estar vacío o empezar con ceros.", True)
 	Else
 		Guardar_Click
 		Subs.ventaNoVenta(usuario, Id_Almacen, ruta_tienda, "ConVenta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, et_monto_venta.Text)
@@ -1075,13 +1078,13 @@ Private Sub b_gu_monto_venta_Click
 			clie_id = c.GetString("CUENTA")
 			c.Close
             
-			B4XPages.MainPage.skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)")
-			B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+'			B4XPages.MainPage.skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)")
+'			B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
             
 			B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
             
-			B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_OUT = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(DateTime.Time(DateTime.Now)))
-			B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(DateTime.Time(DateTime.Now)))
+'			B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_OUT = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(DateTime.Time(DateTime.Now)))
+'			B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(DateTime.Time(DateTime.Now)))
             
 			ToastMessageShow("Cliente con venta eliminado correctamente.", False)
         
@@ -1090,10 +1093,14 @@ Private Sub b_gu_monto_venta_Click
 		End Try
         
 		p_monto_venta.Visible = False
+		p_inv.BringToFront
+		p_inv.Visible = False
 	End If
 End Sub
 
 
 Private Sub b_can_monto_venta_Click
 	p_monto_venta.Visible = False
+	p_inv.BringToFront
+	p_inv.Visible = False
 End Sub

B4A/C_Historico.bas

@@ -101,7 +101,7 @@ End Sub
 Private Sub B4XPage_CloseRequest As ResumableSub
 '	BACK key pressed
 '	Return True To close, False To cancel
-		B4XPages.ShowPage("Principal")
+	B4XPages.ShowPage("Cliente")
 	Return False
 End Sub
 

B4A/C_Principal.bas

@@ -219,7 +219,6 @@ Sub Class_Globals
 	Private lblTitle As Label
 	Private B_OK_PANEL5 As Button
 	
-	
 	Private p_principal As Panel
 	Private p_mandaInfo As Panel
 End Sub
@@ -306,6 +305,7 @@ End Sub
 
 Sub B4XPage_Appear
 ''	LogColor("Revisa permisos Phone_State", Colors.Green)
+	B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
 	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
 	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
 	If Result Then
@@ -537,7 +537,20 @@ Sub Subir_Click
 				Dim cmd As DBCommand
 				cmd.Initialize
 				cmd.Name = "UPDATE_MEDI_ACTUAL2_GPS"
-				cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0),LPT, STEYIN, STEYOUT,ALMACEN,l_ruta.Text )
+'				L_MONTOD= Suma monto
+				'L_CUANTOST = conteo de todo venta y no venta
+'				l_cuantosc = conteo que tiene mponto 
+				Private cursor As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT Sum(montoVentav) AS MONTO_VENTA FROM VENTA_NO_VENTA")
+				cursor.Position = 0
+				Private cursor2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT (*)  AS  CUENTA_TODO FROM VENTA_NO_VENTA")
+				cursor2.Position = 0
+				Private cursor3 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT (*)  AS  CUENTA_VENTA FROM VENTA_NO_VENTA WHERE montoVentaV <> 0")
+				cursor3.Position = 0
+				
+				cmd.Parameters = Array As String(cursor.GetString("MONTO_VENTA"), cursor2.GetString("CUENTA_TODO"), cursor3.GetString("CUENTA_VENTA"),l_porvisitar.TEXT,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0),LPT, STEYIN, STEYOUT,ALMACEN,l_ruta.Text )
+				cursor.Close
+				cursor2.Close
+				cursor3.Close
 				B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "update_gps")
 			Next
 		End If
@@ -600,32 +613,43 @@ Sub Subir_Click
 '			Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${nombreCliente}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$)
 '			TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC, TMP_FECHA_MOVIL
 			cmd.Parameters = Array As Object(h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("rutab"), eventob, clienteb, nombreCliente, h.GetString("iniciob"), finb, h.GetString("latitudb"), h.GetString("longitudb"), h.GetString("precision"), h.GetString("motivonoventa"), h.GetString("motivonovisita"), h.GetString("fechab"))
-			reqManager.ExecuteCommand(cmd , "mandaBitacora")
+			B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "mandaBitacora")
 		Loop
 		Log("MANDAMOS BITACORA")
 	
 	
 		'BITACORA (PROYECTO GPS)
 		
+'		Private h As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select * from VENTA_No_VENTA"$)
+'		Do While h.nextrow
+'			cmd.Initialize
+'			Private eventov As String = h.GetString("eventov")
+'			cmd.Name = "insert_venta_no_venta_MEDICOMED"
+'			Private clientev As String = h.GetString("clientev")
+'			Private nombreClientev As String =Subs. traeNombreCliente(h.GetString("clientev"))
+'			If eventov = "Llega a almacen" Then
+'				nombreClientev = "BOLETA"
+'				clientev = ""
+'			End If
+'			If eventov = "Salida almacen" Then nombreClientev = "CHECKLIST"
+'			If eventov = "Fin Día" Then nombreClientev = "FIN DIA"
+'			If eventov = "Carga día" Then nombreClientev = "CARGA DIA"
+'			cmd.Parameters = Array As Object(h.GetString("usuariov"), h.GetString("almacenv"), h.GetString("rutav"), eventov, clientev, h.GetString("iniciov"), h.GetString("latitudv"), h.GetString("longitudv"), nombreClientev)
+'			B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ventaNoVenta")
+'		Loop
+
 		Private h As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select * from VENTA_No_VENTA"$)
-		Do While h.nextrow
-			cmd.Initialize
-			Private eventov As String = h.GetString("eventov")
-			cmd.Name = "insert_venta_no_venta_MEDICOMED"
-			Private clientev As String = h.GetString("clientev")
-			Private nombreClientev As String =Subs. traeNombreCliente(h.GetString("clientev"))
-			If eventov = "Llega a almacen" Then
-				nombreClientev = "BOLETA"
-				clientev = ""
-			End If
-			If eventov = "Salida almacen" Then nombreClientev = "CHECKLIST"
-			If eventov = "Fin Día" Then nombreClientev = "FIN DIA"
-			If eventov = "Carga día" Then nombreClientev = "CARGA DIA"
-			cmd.Parameters = Array As Object(h.GetString("usuariov"), h.GetString("almacenv"), h.GetString("rutav"), eventov, clientev, h.GetString("iniciov"), finb, h.GetString("latitudv"), h.GetString("longitudv"), nombreClientev)
-			reqManager.ExecuteCommand(cmd , "ventaNoVenta")
-		Loop
-	
-	
+		If h.RowCount > 0 Then
+			For i = 0 To h.RowCount -1
+				h.Position = i
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_venta_no_venta_MEDICOMED"
+				cmd.Parameters = Array As Object(h.GetString("usuariov"), h.GetString("almacenv"), h.GetString("rutav"),h.GetString("eventov"),h.GetString("clientev"),h.GetString("iniciov"),h.GetString("latitudv"),h.GetString("longitudv"),h.GetString("montoVentav"))
+				B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ventaNoVenta")
+			Next
+		End If
+		h.Close
 	
 '		c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO IS NOT NULL")
 '		If c.RowCount>0 Then
@@ -1732,7 +1756,7 @@ Sub connecta_Click
 	
 	Dim cmd As DBCommand
 	cmd.Initialize
-	cmd.Name = "select_ruta_MEDI_6"
+	cmd.Name = "select_ruta_MEDI_7"
 	cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
 	B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
 
@@ -2059,23 +2083,56 @@ Sub resdia_Click
 	End If
 	c.Close
 	Dim cuantos_obj As String
-	c=B4XPages.MainPage.skmt.ExecQuery("Select  count(*) AS TOTAL from HIST_MARCAS_CUOTAS   ")
+	c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) AS TOTAL from HIST_MARCAS_CUOTAS")
 	c.Position = 0
 	cuantos_obj = c.GetString("TOTAL")
 	c.Close
 
 	If cuantos_obj > 0 Then
-		c=B4XPages.MainPage.skmt.ExecQuery("Select  SUM( HMC_TOTAL) AS TOTAL from HIST_MARCAS_CUOTAS   ")
-		c.Position = 0
-		L_NES.Text = c.GetString("TOTAL")
+		c=B4XPages.MainPage.skmt.ExecQuery("Select SUM(IFNULL(HMC_TOTAL),0) AS TOTAL from HIST_MARCAS_CUOTAS")
+		If c.RowCount > 0 Then
+			c.Position = 0
+			L_NES.Text = c.GetString("TOTAL")
+		Else
+			L_NES.Text = "0"
+		End If
 		c.Close
 	End If
-	L_REAL.Text = l_monto_ks.Text
-	L_ALCANCE.Text = Round2((L_NES.Text / L_REAL.Text + 1),2)
+	
+	Dim c As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT IFNULL(SUM(montoVentav), 0) AS MONTO_DIA FROM VENTA_No_VENTA	WHERE clientev <> 0")
+	If c.RowCount > 0 Then
+		c.Position = 0
+		L_REAL.Text = c.GetString("MONTO_DIA")
+	Else
+		L_REAL.Text = "0"
+	End If
+	c.Close
+	
+	If L_REAL.Text <> "0" And L_REAL.Text <> "" Then
+		L_ALCANCE.Text = NumberFormat2(L_NES.Text / L_REAL.Text + 1, 0, 2, 2, False)
+	Else
+		L_ALCANCE.Text = "0" 'Esto evitara que se vaya a infinito al ividir un numero en 0
+	End If
 	L_VPLAN.Text = l_porvisitar.Text
-	L_VREAL.Text = L_CUANTOST.text
+	Private cvR As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUENTAV FROM VENTA_No_VENTA")
+	If cvR.RowCount > 0 Then
+		cvR.Position = 0
+		L_VREAL.Text = cvR.GetString("CUENTAV")
+	Else
+		L_VREAL.Text = "0"
+	End If
+	cvR.Close
+'	L_VREAL.Text = L_CUANTOST.text
 	L_EFEC_VIS.Text = Round2(L_VREAL.text / L_VPLAN.Text,2)
-	L_VISITCC.Text = l_cuantosc.text
+	Private cv As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUENTAV FROM VENTA_No_VENTA WHERE montoVentav <> 0")
+	If cv.RowCount > 0 Then
+		cv.Position = 0
+		L_VISITCC.Text = cv.GetString("CUENTAV")
+	Else
+		L_VISITCC.Text = "0"
+	End If
+	cv.Close
+'	L_VISITCC.Text = l_cuantosc.text
 	L_EFEC_PV.Text = Round2(L_VISITCC.Text / L_VREAL.Text,2)
 	L_EFEC_PURA.Text = Round2(L_VISITCC.Text / L_VPLAN.Text,2)
 	L_LIN_TICK.Text = LPT

B4A/Objects/AndroidManifest.xml

@@ -3,7 +3,7 @@
 	xmlns:android="http://schemas.android.com/apk/res/android"
 	package="keymon.lat.medicomed"
 	android:versionCode="1"
-	android:versionName="4.09.22"
+	android:versionName="4.11.02"
 	android:installLocation="internalOnly">
 	
 	<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="33"/>