cheveguerra/Intmex_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Preventa.git synced 2026-04-17 21:06:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

AAAAAAAAAAAAA AIIUDA

Browse Source
This commit is contained in:
IsR0d
2024-05-08 17:58:05 -06:00
parent 1a654a5025
commit ee539b0b92
2 changed files with 46 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
B4A/C_Cliente.bas
View File

@@ -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.
Private hc As Cursor = Starter.skmt.ExecQuery($"select count(HC_CLIENTE) as cuantos from HIST_CUESTIONARIO where HC_CLIENTE = '${Subs.traeCliente}'"$)
hc.Position = 0
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
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
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")
'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}'"$)
hc.Position = 0
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
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
End If
End If
'Si hay mapa de productos es que hay venta en proceso, entonces borramos la actual para meter la nueva.
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
'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

2
B4A/INTMEX.b4a.meta
View File

@@ -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