mirror of
https://github.com/KeymonSoft/Durakelo.git
synced 2026-04-18 03:39:13 +00:00
...
This commit is contained in:
cvaldes1201
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user