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
|
||||
|
||||
@@ -526,6 +526,7 @@ Sub Subir_Click
|
||||
|
||||
PASO = 1
|
||||
'End If
|
||||
|
||||
If PASO =1 Then
|
||||
E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO"))
|
||||
E1.Position = 0
|
||||
@@ -620,41 +621,42 @@ Sub Subir_Click
|
||||
c.Close
|
||||
End If
|
||||
|
||||
c=skmt.ExecQuery("SELECT * FROM HIST_ENCUESTA")
|
||||
c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
|
||||
' S_CP.Text = "Envio Encuesta"
|
||||
PB2.Progress = 1
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "INSERT_ENCUESTA_K001DUR"
|
||||
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"),"K001",ALMACEN,l_ruta.text,"1", C.GetString("TIPO"))
|
||||
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"),"1",ALMACEN,l_ruta.text,"1", C.GetString("HE_TIPO"))
|
||||
reqManager.ExecuteQuery(cmd , 0,"INS_K001")
|
||||
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
|
||||
c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
|
||||
' S_CP.Text = "Envio Encuesta"
|
||||
' PB2.Progress = 1
|
||||
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_encuesta_DUR"
|
||||
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"),l_ruta.Text )
|
||||
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
|
||||
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
c.Close
|
||||
' PEDIO
|
||||
' c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
|
||||
' ' S_CP.Text = "Envio Encuesta"
|
||||
' ' PB2.Progress = 1
|
||||
'
|
||||
' If c.RowCount>0 Then
|
||||
' For i=0 To c.RowCount -1
|
||||
' c.Position=i
|
||||
'
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "insert_encuesta_DUR"
|
||||
' cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"),l_ruta.Text )
|
||||
' reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
|
||||
'
|
||||
'
|
||||
' Next
|
||||
'
|
||||
' End If
|
||||
' c.Close
|
||||
' ' PEDIO
|
||||
|
||||
skmt.ExecNonQuery("update PEDIDO set PE_FOLIO = rowid ")
|
||||
|
||||
|
||||
@@ -797,7 +797,7 @@ Version=12.5
|
||||
#Region Project Attributes
|
||||
#ApplicationLabel: Durakelo
|
||||
#VersionCode: 1
|
||||
#VersionName: 4.01.18_2 ENC
|
||||
#VersionName: 4.01.18_5
|
||||
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
||||
#SupportedOrientations: portrait
|
||||
#CanInstallToExternalStorage: False
|
||||
|
||||
@@ -70,6 +70,6 @@ ModuleClosedNodes6=
|
||||
ModuleClosedNodes7=1,3
|
||||
ModuleClosedNodes8=
|
||||
ModuleClosedNodes9=
|
||||
NavigationStack=C_Productos,l_prodX_LongClick,1134,0,C_Cliente,B_IMP2_Click,859,6,C_Principal,Subir_Click,624,0,C_Principal,cargar_Click,923,3,C_Principal,JobDone,1240,6,C_Cliente,B_IMP_Click,787,6,C_Cliente,GPS_LocationChanged,363,0,C_Cliente,B_VENTA_Click,1162,0,Diseñador Visual,Cliente.bal,-100,2,C_Cliente,gest_Click,377,6
|
||||
NavigationStack=Main,Globals,24,0,Diseñador Visual,Cliente.bal,-100,1,kms_helperSubs,Class_Globals,0,0,C_Cliente,B_INV_Click,1154,0,C_Cliente,B_VENTA_Click,1218,6,C_Principal,t1_tick,2092,0,C_Principal,cargar_Click,868,0,C_Principal,SUBIR_P_Click,2640,0,B4XMainPage,B4XPage_Created,150,0,C_Principal,Subir_Click,589,0
|
||||
SelectedBuild=0
|
||||
VisibleModules=21,2,9,18,7,4,10,22,11,23
|
||||
|
||||
Reference in New Issue
Block a user