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

ultima sin encuestas

Browse Source
This commit is contained in:
cvaldes1201
2024-02-01 18:27:37 -06:00
parent 766f2e0f6d
commit e6cea606e6
914 changed files with 1032 additions and 385 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
B4A/C_Cliente.bas
View File

@@ -386,8 +386,15 @@ 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"))
' 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)")
@@ -442,6 +449,7 @@ Sub gest_Click
' If Subs.traeCliente = 0 Then Starter.tipov = "ABORDO"
' B4XPages.ShowPage("Productos")
' End If
Starter.tipov = "PREVENTA"
B4XPages.ShowPage("Productos")
' StartActivity(colonia2)
@@ -1177,10 +1185,17 @@ End Sub
Sub B_VENTA_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"))
' 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
' ' 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
@@ -1234,7 +1249,7 @@ Sub B_VENTA_Click
' End If
Starter.tipov = "VENTA"
'StartActivity(colonia2)
' StartActivity(colonia2)
B4XPages.ShowPage("Productos")
cuestionario
End Sub