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

...

Browse Source
This commit is contained in:
cvaldes1201
2024-02-26 10:58:08 -06:00
parent e877694ba5
commit d97bbd4608
6 changed files with 158 additions and 155 deletions
Download Patch File Download Diff File Expand all files Collapse all files

278
B4A/C_Cliente.bas
View File

@@ -387,80 +387,80 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
End Sub End Sub
Sub gest_Click Sub gest_Click
Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$) ' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then ' 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")) ' 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 ' 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 ' 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" Starter.tipov = "PREVENTA"
B4XPages.ShowPage("Productos") B4XPages.ShowPage("Productos")
' StartActivity(colonia2) End If
cuestionario 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
End Sub End Sub
Sub Tels_Click Sub Tels_Click
@@ -1193,79 +1193,79 @@ Sub B_INV_Click
End Sub End Sub
Sub B_VENTA_Click Sub B_VENTA_Click
Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$) ' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then ' 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")) ' 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 ' 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")
' End If ' 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" Starter.tipov = "VENTA"
' StartActivity(colonia2)
B4XPages.ShowPage("Productos") B4XPages.ShowPage("Productos")
cuestionario 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 End Sub
Sub b_factura_Click Sub b_factura_Click

8
B4A/C_Nota.bas
View File

@@ -146,10 +146,10 @@ Sub B4XPage_Appear
b_desc.Visible = False b_desc.Visible = False
' Log("revisaRMIs=" & Subs.revisaRMIs(Subs.traeCliente) & " Cant=" & L_CANT.text) ' Log("revisaRMIs=" & Subs.revisaRMIs(Subs.traeCliente) & " Cant=" & L_CANT.text)
Log(1) Log(1)
If Subs.revisaRMIs(Subs.traeCliente) = False Then ' If Subs.revisaRMIs(Subs.traeCliente) = False Then
Log(2) ' Log(2)
B4XPage_Appear ' B4XPage_Appear
End If ' End If
End If End If
'la_no_ird.Text = c.GetString("PR_CF_SALDO_ACORT") 'la_no_ird.Text = c.GetString("PR_CF_SALDO_ACORT")

7
B4A/C_Productos.bas
View File

@@ -289,6 +289,8 @@ Sub B4XPage_Appear
Next Next
' Log(mPromos) ' Log(mPromos)
traeListaPrecios(kh.traeAlmacen, kh.traeRuta, "", PERFIL) traeListaPrecios(kh.traeAlmacen, kh.traeRuta, "", PERFIL)
End Sub End Sub
Sub PCLV_AddProds Sub PCLV_AddProds
@@ -305,6 +307,7 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object)
LlenaProdsLL(Null, Null) LlenaProdsLL(Null, Null)
clv_prods_ll.AsView.BringToFront clv_prods_ll.AsView.BringToFront
clv_prods_ll.AsView.Visible = True 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. If hayPedido Then p_botonesVenta.Visible = True 'Si ya hay pedido, entonces mostramos los botones.
l_mDisponible.Visible = False l_mDisponible.Visible = False
Else Else
@@ -832,7 +835,7 @@ Sub b_terminar1_Click
Subs.agrupador Subs.agrupador
lv_prodsPedido.Clear lv_prodsPedido.Clear
list_prodsPedido.Initialize 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") 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) ' Log(c_prods.RowCount)
If c_prods.RowCount > 0 Then 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)") Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
End If End If
Log("xxx") Log("xxx")
Subs.revisaRMIs(Subs.traeCliente) ' Subs.revisaRMIs(Subs.traeCliente)
b_terminar1_Click b_terminar1_Click
End If End If

2
B4A/Durakelo.b4a
View File

@@ -1398,7 +1398,7 @@ Version=12.5
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Durakelo #ApplicationLabel: Durakelo
#VersionCode: 1 #VersionCode: 1
#VersionName: 4.02.05.ENCU #VersionName: 4.02.06.ENCK
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

6
B4A/Durakelo.b4a.meta
View File

@@ -51,7 +51,7 @@ ModuleBreakpoints9=
ModuleClosedNodes0= ModuleClosedNodes0=
ModuleClosedNodes1= ModuleClosedNodes1=
ModuleClosedNodes10= ModuleClosedNodes10=
ModuleClosedNodes11=7,35,36,41,42 ModuleClosedNodes11=35,36,42
ModuleClosedNodes12= ModuleClosedNodes12=
ModuleClosedNodes13= ModuleClosedNodes13=
ModuleClosedNodes14= ModuleClosedNodes14=
@@ -73,6 +73,6 @@ ModuleClosedNodes6=5
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 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

2
B4A/MAPA_RUTAS.bas
View File

@@ -162,7 +162,7 @@ Sub MapFragment1_Ready
CODIGO=c2.GetString("CAT_CL_CODIGO") CODIGO=c2.GetString("CAT_CL_CODIGO")
Tienda= c2.GetString("CAT_CL_NOMBRE") Tienda= c2.GetString("CAT_CL_NOMBRE")
NumSerie=c2.GetInt("CAT_CL_NUM_SERIEFISICO") 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.Snippet = Tienda
' MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO,gmap.HUE_GREEN) ' MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO,gmap.HUE_GREEN)
' MARK_VERDE.Snippet = Tienda ' MARK_VERDE.Snippet = Tienda