From d97bbd4608e5ed6d26b1f51d2c8a691521920d20 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Mon, 26 Feb 2024 10:58:08 -0600 Subject: [PATCH] ... --- B4A/C_Cliente.bas | 288 +++++++++++++++++++++--------------------- B4A/C_Nota.bas | 8 +- B4A/C_Productos.bas | 7 +- B4A/Durakelo.b4a | 2 +- B4A/Durakelo.b4a.meta | 6 +- B4A/MAPA_RUTAS.bas | 2 +- 6 files changed, 158 insertions(+), 155 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 2355eea..1f2b634 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -387,80 +387,80 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object) End Sub Sub gest_Click - Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$) - If Not(cuest.encuestaIniciada) 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 -' If la_cuenta.Text <> "0" Then -' Dim queenc As String -' ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local -' If B4XPages.MainPage.principal.ALMACEN = "6" Then queenc = "1" -' If B4XPages.MainPage.principal.ALMACEN = "1" Then queenc = "2" -' If B4XPages.MainPage.principal.ALMACEN = "2" Then queenc = "3" -' If B4XPages.MainPage.principal.ALMACEN = "3" Then queenc = "4" -' If B4XPages.MainPage.principal.ALMACEN = "4" Then queenc = "5" -' If B4XPages.MainPage.principal.ALMACEN = "5" Then queenc = "6" -' c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String(queenc)) -' If c2.RowCount = 0 Then -'' 2=2 ----> si no esta en el historico local mostrar encuesta -' c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA4 WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)") -' If c.RowCount = 0 Then -' b_factura.Visible = False -' B_EXIBI.Visible = False -' HIST.Visible = False -' Tar.Visible = False -' Tels.Visible = False -' B_VENTA.Visible = False -' B_IMP.Visible = False -' gest.Visible = False -' B_IMP2.Visible = False -' B_INV.Visible = False -' Guardar.Visible = False -' sv_encuesta.Visible = True -' sv_encuesta.Height = Root.Height -' sv_encuesta.Width = Root.Width -' sv_encuesta.Panel.LoadLayout("encuesta") -' sv_encuesta.Panel.Height = p_encuestas.Height -' p_encuestas.Width = Root.Width -' -' Dim items As List -' items.Initialize -' items.Add("Selecciona una opción") -' items.Add("ESQUINA") -' items.Add("CALLE") -' items.Add("AVENIDA") -' cb_pregunta1.SetItems(items) -' itemselect = "Selecciona una opción" -' -' Dim items2 As List -' items2.Initialize -' items2.Add("Selecciona una opción") -' items2.Add("1 persona") -' items2.Add("2 personas") -' items2.Add("Mas de 2 personas") -' cb_pregunta8.SetItems(items2) -' itemselect2 = "Selecciona una opción" -' -' bandera = 2 -' Else -' Starter.tipov = "PREVENTA" -' B4XPages.ShowPage("Productos") -' End If -' Else -' Starter.tipov = "PREVENTA" -' B4XPages.ShowPage("Productos") -' End If -' Else If la_cuenta.Text = "0" Then -' Starter.tipov = "PREVENTA" -' If Subs.traeCliente = 0 Then Starter.tipov = "ABORDO" -' B4XPages.ShowPage("Productos") +' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$) +' If Not(cuest.encuestaIniciada) 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 + If la_cuenta.Text <> "0" Then + Dim queenc As String + ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local + If B4XPages.MainPage.principal.ALMACEN = "6" Then queenc = "1" + If B4XPages.MainPage.principal.ALMACEN = "1" Then queenc = "2" + If B4XPages.MainPage.principal.ALMACEN = "2" Then queenc = "3" + If B4XPages.MainPage.principal.ALMACEN = "3" Then queenc = "4" + If B4XPages.MainPage.principal.ALMACEN = "4" Then queenc = "5" + If B4XPages.MainPage.principal.ALMACEN = "5" Then queenc = "6" + c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String(queenc)) + If c2.RowCount = 0 Then +' 2=2 ----> si no esta en el historico local mostrar encuesta + c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA4 WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)") + If c.RowCount = 0 Then + b_factura.Visible = False + B_EXIBI.Visible = False + HIST.Visible = False + Tar.Visible = False + Tels.Visible = False + B_VENTA.Visible = False + B_IMP.Visible = False + gest.Visible = False + B_IMP2.Visible = False + B_INV.Visible = False + Guardar.Visible = False + sv_encuesta.Visible = True + sv_encuesta.Height = Root.Height + sv_encuesta.Width = Root.Width + sv_encuesta.Panel.LoadLayout("encuesta") + sv_encuesta.Panel.Height = p_encuestas.Height + p_encuestas.Width = Root.Width + + Dim items As List + items.Initialize + items.Add("Selecciona una opción") + items.Add("ESQUINA") + items.Add("CALLE") + items.Add("AVENIDA") + cb_pregunta1.SetItems(items) + itemselect = "Selecciona una opción" + + Dim items2 As List + items2.Initialize + items2.Add("Selecciona una opción") + items2.Add("1 persona") + items2.Add("2 personas") + items2.Add("Mas de 2 personas") + cb_pregunta8.SetItems(items2) + itemselect2 = "Selecciona una opción" + + bandera = 2 + Else + Starter.tipov = "PREVENTA" + B4XPages.ShowPage("Productos") + End If + Else + Starter.tipov = "PREVENTA" + B4XPages.ShowPage("Productos") + End If + Else If la_cuenta.Text = "0" Then + Starter.tipov = "PREVENTA" + If Subs.traeCliente = 0 Then Starter.tipov = "ABORDO" + B4XPages.ShowPage("Productos") + End If - Starter.tipov = "PREVENTA" - B4XPages.ShowPage("Productos") -' StartActivity(colonia2) - cuestionario +' Starter.tipov = "PREVENTA" +' B4XPages.ShowPage("Productos") +'' StartActivity(colonia2) +' cuestionario End Sub Sub Tels_Click @@ -1193,79 +1193,79 @@ Sub B_INV_Click End Sub Sub B_VENTA_Click - Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$) - If Not(cuest.encuestaIniciada) 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 -' If la_cuenta.Text <> "0" Then -' Dim queenc As String -' ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local -' If B4XPages.MainPage.principal.ALMACEN = "6" Then queenc = "1" -' If B4XPages.MainPage.principal.ALMACEN = "1" Then queenc = "2" -' If B4XPages.MainPage.principal.ALMACEN = "2" Then queenc = "3" -' If B4XPages.MainPage.principal.ALMACEN = "3" Then queenc = "4" -' If B4XPages.MainPage.principal.ALMACEN = "4" Then queenc = "5" -' If B4XPages.MainPage.principal.ALMACEN = "5" Then queenc = "6" -' c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String(queenc)) -' If c2.RowCount = 0 Then -' ' 2=2 ----> si no esta en el historico local mostrar encuesta -' c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA4 WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)") -' If c.RowCount = 0 Then -' b_factura.Visible = False -' B_EXIBI.Visible = False -' HIST.Visible = False -' Tar.Visible = False -' Tels.Visible = False -' B_VENTA.Visible = False -' B_IMP.Visible = False -' gest.Visible = False -' B_IMP2.Visible = False -' B_INV.Visible = False -' Guardar.Visible = False -' sv_encuesta.Visible = True -' sv_encuesta.Height = Root.Height -' sv_encuesta.Width = Root.Width -' sv_encuesta.Panel.LoadLayout("encuesta") -' sv_encuesta.Panel.Height = p_encuestas.Height -' p_encuestas.Width = Root.Width -' -' Dim items As List -' items.Initialize -' items.Add("Selecciona una opción") -' items.Add("ESQUINA") -' items.Add("CALLE") -' items.Add("AVENIDA") -' cb_pregunta1.SetItems(items) -' itemselect = "Selecciona una opción" -' -' Dim items2 As List -' items2.Initialize -' items2.Add("Selecciona una opción") -' items2.Add("1 persona") -' items2.Add("2 personas") -' items2.Add("Mas de 2 personas") -' cb_pregunta8.SetItems(items2) -' itemselect2 = "Selecciona una opción" -' -' bandera = 1 -' Else -' Starter.tipov = "VENTA" -' B4XPages.ShowPage("Productos") -' End If -' Else -' Starter.tipov = "VENTA" -' B4XPages.ShowPage("Productos") -' End If -' Else If la_cuenta.Text = "0" Then -' Starter.tipov = "VENTA" -' B4XPages.ShowPage("Productos") +' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$) +' If Not(cuest.encuestaIniciada) 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 - - Starter.tipov = "VENTA" -' StartActivity(colonia2) - B4XPages.ShowPage("Productos") - cuestionario + If la_cuenta.Text <> "0" Then + Dim queenc As String + ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local + If B4XPages.MainPage.principal.ALMACEN = "6" Then queenc = "1" + If B4XPages.MainPage.principal.ALMACEN = "1" Then queenc = "2" + If B4XPages.MainPage.principal.ALMACEN = "2" Then queenc = "3" + If B4XPages.MainPage.principal.ALMACEN = "3" Then queenc = "4" + If B4XPages.MainPage.principal.ALMACEN = "4" Then queenc = "5" + If B4XPages.MainPage.principal.ALMACEN = "5" Then queenc = "6" + c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String(queenc)) + If c2.RowCount = 0 Then + ' 2=2 ----> si no esta en el historico local mostrar encuesta + c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA4 WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)") + If c.RowCount = 0 Then + b_factura.Visible = False + B_EXIBI.Visible = False + HIST.Visible = False + Tar.Visible = False + Tels.Visible = False + B_VENTA.Visible = False + B_IMP.Visible = False + gest.Visible = False + B_IMP2.Visible = False + B_INV.Visible = False + Guardar.Visible = False + sv_encuesta.Visible = True + sv_encuesta.Height = Root.Height + sv_encuesta.Width = Root.Width + sv_encuesta.Panel.LoadLayout("encuesta") + sv_encuesta.Panel.Height = p_encuestas.Height + p_encuestas.Width = Root.Width + + Dim items As List + items.Initialize + items.Add("Selecciona una opción") + items.Add("ESQUINA") + items.Add("CALLE") + items.Add("AVENIDA") + cb_pregunta1.SetItems(items) + itemselect = "Selecciona una opción" + + Dim items2 As List + items2.Initialize + items2.Add("Selecciona una opción") + items2.Add("1 persona") + items2.Add("2 personas") + items2.Add("Mas de 2 personas") + cb_pregunta8.SetItems(items2) + itemselect2 = "Selecciona una opción" + + bandera = 1 + Else + Starter.tipov = "VENTA" + B4XPages.ShowPage("Productos") + End If + Else + Starter.tipov = "VENTA" + B4XPages.ShowPage("Productos") + End If + Else If la_cuenta.Text = "0" Then + Starter.tipov = "VENTA" + B4XPages.ShowPage("Productos") + End If +' +' Starter.tipov = "VENTA" +'' StartActivity(colonia2) +' B4XPages.ShowPage("Productos") +' cuestionario End Sub Sub b_factura_Click diff --git a/B4A/C_Nota.bas b/B4A/C_Nota.bas index 22819ba..acff6cb 100644 --- a/B4A/C_Nota.bas +++ b/B4A/C_Nota.bas @@ -146,10 +146,10 @@ Sub B4XPage_Appear b_desc.Visible = False ' Log("revisaRMIs=" & Subs.revisaRMIs(Subs.traeCliente) & " Cant=" & L_CANT.text) Log(1) - If Subs.revisaRMIs(Subs.traeCliente) = False Then - Log(2) - B4XPage_Appear - End If +' If Subs.revisaRMIs(Subs.traeCliente) = False Then +' Log(2) +' B4XPage_Appear +' End If End If 'la_no_ird.Text = c.GetString("PR_CF_SALDO_ACORT") diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index a435680..6863c5a 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -289,6 +289,8 @@ Sub B4XPage_Appear Next ' Log(mPromos) traeListaPrecios(kh.traeAlmacen, kh.traeRuta, "", PERFIL) + + End Sub Sub PCLV_AddProds @@ -305,6 +307,7 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object) LlenaProdsLL(Null, Null) clv_prods_ll.AsView.BringToFront clv_prods_ll.AsView.Visible = True + p_botonesVenta.Visible = True If hayPedido Then p_botonesVenta.Visible = True 'Si ya hay pedido, entonces mostramos los botones. l_mDisponible.Visible = False Else @@ -832,7 +835,7 @@ Sub b_terminar1_Click Subs.agrupador lv_prodsPedido.Clear list_prodsPedido.Initialize - Subs.revisaRMIs(Subs.traeCliente) +' Subs.revisaRMIs(Subs.traeCliente) Private c_prods As Cursor=Starter.skmt.ExecQuery("select PE_PRONOMBRE,PE_COSTO_TOT, ifnull(PE_COSTOU, 0) as PE_COSTOU, PE_CANT, PE_FOLIO, PE_CEDIS, PE_PROID, PE_TIPO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_TIPO desc, PE_CEDIS, PE_COSTO_TOT, PE_PRONOMBRE") ' Log(c_prods.RowCount) If c_prods.RowCount > 0 Then @@ -1085,7 +1088,7 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object) Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") End If Log("xxx") - Subs.revisaRMIs(Subs.traeCliente) +' Subs.revisaRMIs(Subs.traeCliente) b_terminar1_Click End If diff --git a/B4A/Durakelo.b4a b/B4A/Durakelo.b4a index 07474de..69f3c4c 100644 --- a/B4A/Durakelo.b4a +++ b/B4A/Durakelo.b4a @@ -1398,7 +1398,7 @@ Version=12.5 #Region Project Attributes #ApplicationLabel: Durakelo #VersionCode: 1 - #VersionName: 4.02.05.ENCU + #VersionName: 4.02.06.ENCK 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index 4c44ddc..2bda97d 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -51,7 +51,7 @@ ModuleBreakpoints9= ModuleClosedNodes0= ModuleClosedNodes1= ModuleClosedNodes10= -ModuleClosedNodes11=7,35,36,41,42 +ModuleClosedNodes11=35,36,42 ModuleClosedNodes12= ModuleClosedNodes13= ModuleClosedNodes14= @@ -73,6 +73,6 @@ ModuleClosedNodes6=5 ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Productos,b_rmi_mas_Click,1443,0,C_Principal,JobDone,1912,3,C_Principal,Class_Globals,0,0,C_Productos,B4XPage_Appear,154,0,C_Productos,B4XPage_CloseRequest,485,0,C_Productos,b_rmi_aceptar_Click,1419,0,C_Productos,clv_prods_ll_ItemLongClick,1091,0,C_Productos,p_rmi_Click,1418,0,Visual Designer,productos.bal,-100,2,C_Productos,l_prodX_LongClick,1167,6 +NavigationStack=C_Cliente,B_IMP_Click,628,0,Starter,Service_Create,34,0,Starter,BTAdmin_StateChanged,61,0,Starter,Process_Globals,16,0,kms_helperSubs,EnableBluetooth,551,0,C_Cliente,B_IMP2_Click,856,0,C_Cliente,B_EXIBI_Click,1357,0,C_Cliente,Class_Globals,145,0,C_Cliente,Printer1_Connected,1374,0,C_Cliente,B4XPage_Appear,207,0 SelectedBuild=0 -VisibleModules=1,2,10,4,5,6,8,9,11,24 +VisibleModules=1,2,10,4,5,6,8,9,11,24,16,22,19 diff --git a/B4A/MAPA_RUTAS.bas b/B4A/MAPA_RUTAS.bas index 0c9d5c0..0cb1de7 100644 --- a/B4A/MAPA_RUTAS.bas +++ b/B4A/MAPA_RUTAS.bas @@ -162,7 +162,7 @@ Sub MapFragment1_Ready CODIGO=c2.GetString("CAT_CL_CODIGO") Tienda= c2.GetString("CAT_CL_NOMBRE") NumSerie=c2.GetInt("CAT_CL_NUM_SERIEFISICO") - MARK_VERDE = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, NumSerie&"marker-verde-"&".png")) + MARK_VERDE = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, NumSerie&"marker-verde"&".png")) MARK_VERDE.Snippet = Tienda ' MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO,gmap.HUE_GREEN) ' MARK_VERDE.Snippet = Tienda