AAAAAAAAAAAAA AIIUDA

B4A/C_Cliente.bas

@@ -385,6 +385,9 @@ Sub B4XPage_Appear
 		l_factura.Visible = True
 		b_ventaabordo.Visible = True
 	End If
+	
+	
+	
 End Sub
 
 Sub GPS_LocationChanged (Location1 As Location)
@@ -1290,40 +1293,54 @@ End Sub
 
 
 Private Sub b_ventaabordo_Click
-	B4XPages.MainPage.tipo_venta = "VENTA"
+	c=B4XPages.MainPage.skmt.ExecQuery("Select * From CAT_GUNAPROD2")
+	
+	If c.RowCount > 0 Then
+		
+		
+		
+		B4XPages.MainPage.tipo_venta = "VENTA"
 '	If B4XPages.MainPage.productos.clv_prods_ll.Size = 0 Then 
 '		B4XPages.MainPage.productos.LlenaProdsLL(Null)
 '	Else
 '		
 '	B4XPages.MainPage.productos.clv_prods_ll.Clear
 '	End If
-	'Buscamos en el historial de cuestionarios si el cliente ya tiene cuestionario contestado.
+		'Buscamos en el historial de cuestionarios si el cliente ya tiene cuestionario contestado.
-	Private hc As Cursor = Starter.skmt.ExecQuery($"select count(HC_CLIENTE) as cuantos from HIST_CUESTIONARIO where HC_CLIENTE = '${Subs.traeCliente}'"$)
+		Private hc As Cursor = Starter.skmt.ExecQuery($"select count(HC_CLIENTE) as cuantos from HIST_CUESTIONARIO where HC_CLIENTE = '${Subs.traeCliente}'"$)
-	hc.Position = 0
+		hc.Position = 0
-	Log($"${cuest.encuestaIniciada} - ${hc.GetString("cuantos")} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
+		Log($"${cuest.encuestaIniciada} - ${hc.GetString("cuantos")} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
-	If Not(cuest.encuestaIniciada) And hc.GetString("cuantos") = 0 And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
+		If Not(cuest.encuestaIniciada) And hc.GetString("cuantos") = 0 And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
-		cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
+			cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
-		Return False
+			Return False
-	End If
-	Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select tienda_id from COORDENADAS_GPS where tienda_id = '${la_cuenta.text}'"$)
-'	Log("+++++++++++++  " & x.RowCount)
-	If distance > 50 And x.RowCount = 0 Then
-		Private res As String = Msgbox2("¿Estas en la tienda, para guardar la nueva ubicación?", "AVISO", "Si","" ,"No", Null) 'ignore
-		If res = DialogResponse.POSITIVE Then
-			DateTime.DateFormat = "MM/dd/yyyy"
-			sDate=DateTime.Date(DateTime.Now)
-			sTime=DateTime.Time(DateTime.Now)
-			B4XPages.MainPage.skmt.ExecNonQuery($"insert into COORDENADAS_GPS (tienda_id, ruta, almacen, latitud, longitud, fecha) values ('${la_cuenta.Text}', '${Subs.traeRuta}', '${Subs.traeAlmacen}', '${B4XPages.MainPage.lat_gps}', '${B4XPages.MainPage.lon_gps}', '${sDate} ${sTime}')"$)
-
-			Dim cmd As DBCommand
-			cmd.Initialize
-			cmd.Name = "insert_coords_nuevas_INTMEX"
-			cmd.Parameters = Array As Object(la_cuenta.text, Subs.traeRuta, Subs.traeAlmacen, sDate & " " & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, usuario)
-'			Log($"${la_cuenta.text}, ${Subs.traeRuta}, ${Subs.traeAlmacen}, ${sDate} ${sTime}, ${m_lat}, ${m_lon}"$)
-			reqManager.ExecuteCommand(cmd , "ins_coords_nuevas")
 		End If
-	End If
+		Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select tienda_id from COORDENADAS_GPS where tienda_id = '${la_cuenta.text}'"$)
-	'Si hay mapa de productos es que hay venta en proceso, entonces borramos la actual para meter la nueva.
+'	Log("+++++++++++++  " & x.RowCount)
+		If distance > 50 And x.RowCount = 0 Then
+			Private res As String = Msgbox2("¿Estas en la tienda, para guardar la nueva ubicación?", "AVISO", "Si","" ,"No", Null) 'ignore
+			If res = DialogResponse.POSITIVE Then
+				DateTime.DateFormat = "MM/dd/yyyy"
+				sDate=DateTime.Date(DateTime.Now)
+				sTime=DateTime.Time(DateTime.Now)
+				B4XPages.MainPage.skmt.ExecNonQuery($"insert into COORDENADAS_GPS (tienda_id, ruta, almacen, latitud, longitud, fecha) values ('${la_cuenta.Text}', '${Subs.traeRuta}', '${Subs.traeAlmacen}', '${B4XPages.MainPage.lat_gps}', '${B4XPages.MainPage.lon_gps}', '${sDate} ${sTime}')"$)
+
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_coords_nuevas_INTMEX"
+				cmd.Parameters = Array As Object(la_cuenta.text, Subs.traeRuta, Subs.traeAlmacen, sDate & " " & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, usuario)
+'			Log($"${la_cuenta.text}, ${Subs.traeRuta}, ${Subs.traeAlmacen}, ${sDate} ${sTime}, ${m_lat}, ${m_lon}"$)
+				reqManager.ExecuteCommand(cmd , "ins_coords_nuevas")
+			End If
+		End If
+		'Si hay mapa de productos es que hay venta en proceso, entonces borramos la actual para meter la nueva.
 '	If B4XPages.MainPage.productos.prodsMap.IsInitialized And B4XPages.MainPage.productos.prodsMap.Size > 0 Then Subs.borraPedidoClienteActual
-	B4XPages.ShowPage("productos")
+		B4XPages.ShowPage("productos")
+	
+	
+	Else If c.RowCount = 0 Then
+		
+	MsgboxAsync("No puedes hacer venta porque no tienes inventario abordo","Atención")
+	
+	End If
+
 End Sub

B4A/INTMEX.b4a.meta

@@ -85,6 +85,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_NoVenta,GUARDA_Click,122,0,C_Productos,B4XPage_Appear,189,6,B4XMainPage,Class_Globals,24,0,C_Nota,Class_Globals,0,0,C_Productos,Class_Globals,0,0,C_Productos,b_terminar1_Click,635,0,C_Nota,B4XPage_Appear,94,6,C_Principal,resdia_Click,2270,6,Diseñador Visual,resdia.bal,-100,6,Diseñador Visual,clientes.bal,-100,1,Diseñador Visual,cliente.bal,-100,1
+NavigationStack=C_Productos,b_terminar1_Click,635,0,C_Nota,B4XPage_Appear,94,6,C_Principal,resdia_Click,2270,6,Diseñador Visual,resdia.bal,-100,6,Diseñador Visual,clientes.bal,-100,1,Diseñador Visual,cliente.bal,-100,1,C_Cliente,MODS,0,0,C_Cliente,B4XPage_Appear,382,6,C_Cliente,cuest_preguntaContestada,1278,0,C_Cliente,b_ventaabordo_Click,1336,6,C_Productos,LlenaProdsLL,976,0
 SelectedBuild=0
 VisibleModules=2,26,13,16,14,4,27,15,9,6