mirror of
https://github.com/KeymonSoft/Durakelo.git
synced 2026-04-17 19:36:12 +00:00
version final 4_01_18_2
This commit is contained in:
cvaldes1201
@@ -360,6 +360,7 @@ End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Printer1.DisConnect
|
||||
End Sub
|
||||
|
||||
Sub GPS_LocationChanged (Location1 As Location)
|
||||
@@ -379,54 +380,59 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
||||
End Sub
|
||||
|
||||
Sub gest_Click
|
||||
If la_cuenta.Text <> "0" Then
|
||||
' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local
|
||||
c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String("K001"))
|
||||
If c2.RowCount = 0 Then
|
||||
c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String("K001"))
|
||||
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_ENCUESTA 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
|
||||
c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA 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 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"
|
||||
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
|
||||
bandera = 2
|
||||
Else
|
||||
Starter.tipov = "PREVENTA"
|
||||
B4XPages.ShowPage("Productos")
|
||||
End If
|
||||
Else
|
||||
Starter.tipov = "PREVENTA"
|
||||
B4XPages.ShowPage("Productos")
|
||||
End If
|
||||
Else
|
||||
Else If la_cuenta.Text = "0" Then
|
||||
Starter.tipov = "PREVENTA"
|
||||
B4XPages.ShowPage("Productos")
|
||||
End If
|
||||
@@ -1165,54 +1171,58 @@ Sub B_INV_Click
|
||||
End Sub
|
||||
|
||||
Sub B_VENTA_Click
|
||||
|
||||
c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String("K001"))
|
||||
If c.RowCount = 0 Then
|
||||
If la_cuenta.Text <> "0" Then
|
||||
c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String("K001"))
|
||||
If c.RowCount = 0 Then
|
||||
' 2=2 ----> si no esta en el historico local mostrar encuesta
|
||||
c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA 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
|
||||
c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA 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 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"
|
||||
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
|
||||
bandera = 1
|
||||
Else
|
||||
Starter.tipov = "VENTA"
|
||||
B4XPages.ShowPage("Productos")
|
||||
End If
|
||||
Else
|
||||
Starter.tipov = "VENTA"
|
||||
B4XPages.ShowPage("Productos")
|
||||
End If
|
||||
Else
|
||||
Else If la_cuenta.Text = "0" Then
|
||||
Starter.tipov = "VENTA"
|
||||
B4XPages.ShowPage("Productos")
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user