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

version final 4_01_18_2

Browse Source
This commit is contained in:
cvaldes1201
2024-01-18 19:38:57 -06:00
parent bb11a55157
commit deded905a7
4 changed files with 116 additions and 104 deletions
Download Patch File Download Diff File Expand all files Collapse all files

168
B4A/C_Cliente.bas
View File

@@ -360,6 +360,7 @@ End If
Next Next
End If End If
End If End If
Printer1.DisConnect
End Sub End Sub
Sub GPS_LocationChanged (Location1 As Location) Sub GPS_LocationChanged (Location1 As Location)
@@ -379,54 +380,59 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
End Sub End Sub
Sub gest_Click 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 ' 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")) 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 If c2.RowCount = 0 Then
' 2=2 ----> si no esta en el historico local mostrar encuesta ' 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)") c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)")
If c.RowCount = 0 Then If c.RowCount = 0 Then
b_factura.Visible = False b_factura.Visible = False
B_EXIBI.Visible = False B_EXIBI.Visible = False
HIST.Visible = False HIST.Visible = False
Tar.Visible = False Tar.Visible = False
Tels.Visible = False Tels.Visible = False
B_VENTA.Visible = False B_VENTA.Visible = False
B_IMP.Visible = False B_IMP.Visible = False
gest.Visible = False gest.Visible = False
B_IMP2.Visible = False B_IMP2.Visible = False
B_INV.Visible = False B_INV.Visible = False
Guardar.Visible = False Guardar.Visible = False
sv_encuesta.Visible = True sv_encuesta.Visible = True
sv_encuesta.Height = Root.Height sv_encuesta.Height = Root.Height
sv_encuesta.Width = Root.Width sv_encuesta.Width = Root.Width
sv_encuesta.Panel.LoadLayout("encuesta") sv_encuesta.Panel.LoadLayout("encuesta")
sv_encuesta.Panel.Height = p_encuestas.Height sv_encuesta.Panel.Height = p_encuestas.Height
p_encuestas.Width = Root.Width p_encuestas.Width = Root.Width
Dim items As List Dim items As List
items.Initialize items.Initialize
items.Add("Selecciona una opción") items.Add("Selecciona una opción")
items.Add("ESQUINA") items.Add("ESQUINA")
items.Add("CALLE") items.Add("CALLE")
items.Add("AVENIDA") items.Add("AVENIDA")
cb_pregunta1.SetItems(items) cb_pregunta1.SetItems(items)
itemselect = "Selecciona una opción" itemselect = "Selecciona una opción"
Dim items2 As List Dim items2 As List
items2.Initialize items2.Initialize
items2.Add("Selecciona una opción") items2.Add("Selecciona una opción")
items2.Add("1 persona") items2.Add("1 persona")
items2.Add("2 personas") items2.Add("2 personas")
items2.Add("Mas de 2 personas") items2.Add("Mas de 2 personas")
cb_pregunta8.SetItems(items2) cb_pregunta8.SetItems(items2)
itemselect2 = "Selecciona una opción" itemselect2 = "Selecciona una opción"
bandera = 2 bandera = 2
Else
Starter.tipov = "PREVENTA"
B4XPages.ShowPage("Productos")
End If
Else Else
Starter.tipov = "PREVENTA" Starter.tipov = "PREVENTA"
B4XPages.ShowPage("Productos") B4XPages.ShowPage("Productos")
End If End If
Else Else If la_cuenta.Text = "0" Then
Starter.tipov = "PREVENTA" Starter.tipov = "PREVENTA"
B4XPages.ShowPage("Productos") B4XPages.ShowPage("Productos")
End If End If
@@ -1165,54 +1171,58 @@ Sub B_INV_Click
End Sub End Sub
Sub B_VENTA_Click Sub B_VENTA_Click
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")) 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 c.RowCount = 0 Then
' 2=2 ----> si no esta en el historico local mostrar encuesta ' 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)") c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)")
If c.RowCount = 0 Then If c.RowCount = 0 Then
b_factura.Visible = False b_factura.Visible = False
B_EXIBI.Visible = False B_EXIBI.Visible = False
HIST.Visible = False HIST.Visible = False
Tar.Visible = False Tar.Visible = False
Tels.Visible = False Tels.Visible = False
B_VENTA.Visible = False B_VENTA.Visible = False
B_IMP.Visible = False B_IMP.Visible = False
gest.Visible = False gest.Visible = False
B_IMP2.Visible = False B_IMP2.Visible = False
B_INV.Visible = False B_INV.Visible = False
Guardar.Visible = False Guardar.Visible = False
sv_encuesta.Visible = True sv_encuesta.Visible = True
sv_encuesta.Height = Root.Height sv_encuesta.Height = Root.Height
sv_encuesta.Width = Root.Width sv_encuesta.Width = Root.Width
sv_encuesta.Panel.LoadLayout("encuesta") sv_encuesta.Panel.LoadLayout("encuesta")
sv_encuesta.Panel.Height = p_encuestas.Height sv_encuesta.Panel.Height = p_encuestas.Height
p_encuestas.Width = Root.Width p_encuestas.Width = Root.Width
Dim items As List Dim items As List
items.Initialize items.Initialize
items.Add("Selecciona una opción") items.Add("Selecciona una opción")
items.Add("ESQUINA") items.Add("ESQUINA")
items.Add("CALLE") items.Add("CALLE")
items.Add("AVENIDA") items.Add("AVENIDA")
cb_pregunta1.SetItems(items) cb_pregunta1.SetItems(items)
itemselect = "Selecciona una opción" itemselect = "Selecciona una opción"
Dim items2 As List Dim items2 As List
items2.Initialize items2.Initialize
items2.Add("Selecciona una opción") items2.Add("Selecciona una opción")
items2.Add("1 persona") items2.Add("1 persona")
items2.Add("2 personas") items2.Add("2 personas")
items2.Add("Mas de 2 personas") items2.Add("Mas de 2 personas")
cb_pregunta8.SetItems(items2) cb_pregunta8.SetItems(items2)
itemselect2 = "Selecciona una opción" itemselect2 = "Selecciona una opción"
bandera = 1 bandera = 1
Else
Starter.tipov = "VENTA"
B4XPages.ShowPage("Productos")
End If
Else Else
Starter.tipov = "VENTA" Starter.tipov = "VENTA"
B4XPages.ShowPage("Productos") B4XPages.ShowPage("Productos")
End If End If
Else Else If la_cuenta.Text = "0" Then
Starter.tipov = "VENTA" Starter.tipov = "VENTA"
B4XPages.ShowPage("Productos") B4XPages.ShowPage("Productos")
End If End If

48
B4A/C_Principal.bas
View File

@@ -526,6 +526,7 @@ Sub Subir_Click
PASO = 1 PASO = 1
'End If 'End If
If PASO =1 Then If PASO =1 Then
E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO")) E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO"))
E1.Position = 0 E1.Position = 0
@@ -620,41 +621,42 @@ Sub Subir_Click
c.Close c.Close
End If 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 If c.RowCount>0 Then
For i=0 To c.RowCount -1 For i=0 To c.RowCount -1
c.Position=i c.Position=i
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "INSERT_ENCUESTA_K001DUR" 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") reqManager.ExecuteQuery(cmd , 0,"INS_K001")
Next Next
c.Close c.Close
End If End If
c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA") ' c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
' S_CP.Text = "Envio Encuesta" ' ' S_CP.Text = "Envio Encuesta"
' PB2.Progress = 1 ' ' PB2.Progress = 1
'
If c.RowCount>0 Then ' If c.RowCount>0 Then
For i=0 To c.RowCount -1 ' For i=0 To c.RowCount -1
c.Position=i ' c.Position=i
'
Dim cmd As DBCommand ' Dim cmd As DBCommand
cmd.Initialize ' cmd.Initialize
cmd.Name = "insert_encuesta_DUR" ' 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 ) ' 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") ' reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
'
'
Next ' Next
'
End If ' End If
c.Close ' c.Close
' PEDIO ' ' PEDIO
skmt.ExecNonQuery("update PEDIDO set PE_FOLIO = rowid ") skmt.ExecNonQuery("update PEDIDO set PE_FOLIO = rowid ")

2
B4A/Durakelo.b4a
View File

@@ -797,7 +797,7 @@ Version=12.5
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Durakelo #ApplicationLabel: Durakelo
#VersionCode: 1 #VersionCode: 1
#VersionName: 4.01.18_2 ENC #VersionName: 4.01.18_5
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

2
B4A/Durakelo.b4a.meta
View File

@@ -70,6 +70,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=1,3 ModuleClosedNodes7=1,3
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 SelectedBuild=0
VisibleModules=21,2,9,18,7,4,10,22,11,23 VisibleModules=21,2,9,18,7,4,10,22,11,23