mirror of
https://github.com/KeymonSoft/Guna_Preventa_BAT.git
synced 2026-04-20 06:09:31 +00:00
Se agrego la clase v_clientes
This commit is contained in:
jalarakmt
@@ -262,6 +262,7 @@ Sub Class_Globals
|
||||
Private l_visitas As Label
|
||||
Private l_visitartotal As Label
|
||||
Private de As Label
|
||||
Private B_traec As Button
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -1268,6 +1269,8 @@ Sub cargar_Click
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_MARCAS_CUOTAS")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA_CLIENTE")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CAT_ENCUESTA_PREGUNTA")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CAT_CATCLIENTESTODOS")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM hist_ventastodos")
|
||||
|
||||
c = B4XPages.MainPage.skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
|
||||
c.Position = 0
|
||||
@@ -1444,6 +1447,16 @@ Sub cargar_Click
|
||||
cmd.Name = "select_cat_encuesta_p_GUNA"
|
||||
cmd.Parameters = Array As Object( ALMACEN,e_ruta.text )
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "carga_encuesta")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_clientes_guna_todos"
|
||||
cmd.Parameters = Array As Object( e_ruta.text,ALMACEN )
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_CAT_CATCLIENTESTODOS")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_hist_ventastodos_guna"
|
||||
cmd.Parameters = Array As Object( e_ruta.text,ALMACEN,e_ruta.text,ALMACEN)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_ventastodos")
|
||||
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "SELECT_HIST_ENCUESTA_GUNA"
|
||||
@@ -1616,7 +1629,7 @@ Sub JobDone(Job As HttpJob)
|
||||
If n = "OKActivo" Then
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ruta_GV2_70_13"
|
||||
cmd.Name = "select_ruta_GV2_70_14"
|
||||
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text, usuario)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
|
||||
'Log("Usuario guardado en BD es 'Valido'")
|
||||
@@ -1849,6 +1862,56 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "kmt_CAT_CATCLIENTESTODOS" Then 'query tag
|
||||
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CAT_CL_TIPO_RUTA As String = records(RESULT.Columns.Get("CAT_CL_TIPO_RUTA"))
|
||||
Dim CAT_CL_DIAS_VISITA As String = records(RESULT.Columns.Get("CAT_CL_DIAS_VISITA"))
|
||||
Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
|
||||
' Dim CAT_CL_FOTO As String = records(RESULT.Columns.Get("CAT_CL_FOTO"))
|
||||
Dim CAT_CL_CLASIFICADOR3 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR3"))
|
||||
Dim CAT_CL_CLASIFICADOR4 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR4"))
|
||||
Dim CAT_CL_CLASIFICADOR2 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR2"))
|
||||
Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA"))
|
||||
Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_CL_NOMBRE"))
|
||||
Dim CAT_CL_ATIENDE1 As String = records(RESULT.Columns.Get("CAT_CL_ATIENDE1"))
|
||||
Dim CAT_CL_ATIENTE2 As String = records(RESULT.Columns.Get("CAT_CL_ATIENTE2"))
|
||||
Dim CAT_CL_TELEFONO As String = records(RESULT.Columns.Get("CAT_CL_TELEFONO"))
|
||||
Dim CAT_CL_EMAIL As String = records(RESULT.Columns.Get("CAT_CL_EMAIL"))
|
||||
Dim CAT_CL_CALLE As String = records(RESULT.Columns.Get("CAT_CL_CALLE"))
|
||||
Dim CAT_CL_NOEXT As String = records(RESULT.Columns.Get("CAT_CL_NOEXT"))
|
||||
Dim CAT_CL_NOINT As String = records(RESULT.Columns.Get("CAT_CL_NOINT"))
|
||||
Dim CAT_CL_CALLE1 As String = records(RESULT.Columns.Get("CAT_CL_CALLE1"))
|
||||
Dim CAT_CL_CALLE2 As String = records(RESULT.Columns.Get("CAT_CL_CALLE2"))
|
||||
Dim CAT_CL_COLONIA As String = records(RESULT.Columns.Get("CAT_CL_COLONIA"))
|
||||
Dim CAT_CL_MUNI As String = records(RESULT.Columns.Get("CAT_CL_MUNI"))
|
||||
Dim CAT_CL_EDO As String = records(RESULT.Columns.Get("CAT_CL_EDO"))
|
||||
Dim CAT_CL_CP As String = records(RESULT.Columns.Get("CAT_CL_CP"))
|
||||
Dim CAT_CL_LONG As String = records(RESULT.Columns.Get("CAT_CL_LONG"))
|
||||
Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("CAT_CL_LAT"))
|
||||
Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA"))
|
||||
Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO"))
|
||||
Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
|
||||
Dim CAT_CL_DIASCREDITO As String = records(RESULT.Columns.Get("CAT_CL_DIASCREDITO"))
|
||||
Dim CAT_CL_TIPOCLIENTE As String = records(RESULT.Columns.Get("CAT_CL_TIPOCLIENTE"))
|
||||
Dim CAT_CL_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_CL_LIMITECREDITO"))
|
||||
|
||||
|
||||
|
||||
'########################## INICIA CODIGO PARA CREDITOS ####################
|
||||
Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_CATCLIENTESTODOS(CAT_CL_TIPO_RUTA,CAT_CL_DIAS_VISITA,CAT_CL_CODIGO,CAT_CL_FOTO,CAT_CL_CLASIFICADOR3,CAT_CL_CLASIFICADOR4,CAT_CL_CLASIFICADOR2,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_BCREDITO,CAT_CL_DIASCREDITO,CAT_CL_TIPOCLIENTE,CAT_CL_LIMITECREDITO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_CL_TIPO_RUTA, CAT_CL_DIAS_VISITA, CAT_CL_CODIGO, CAT_CL_FOTO, CAT_CL_CLASIFICADOR3, CAT_CL_CLASIFICADOR4, CAT_CL_CLASIFICADOR2, CAT_CL_RUTA, CAT_CL_NOMBRE, CAT_CL_ATIENDE1, CAT_CL_ATIENTE2, CAT_CL_TELEFONO, CAT_CL_EMAIL, CAT_CL_CALLE, CAT_CL_NOEXT, CAT_CL_NOINT, CAT_CL_CALLE1, CAT_CL_CALLE2, CAT_CL_COLONIA, CAT_CL_MUNI, CAT_CL_EDO, CAT_CL_CP, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_MTOCOMPRA, CAT_CL_NUM_SERIEFISICO, CAT_CL_BCREDITO, CAT_CL_DIASCREDITO, CAT_CL_TIPOCLIENTE, CAT_CL_LIMITECREDITO))
|
||||
'########################## TERMINA CODIGO PARA CREDITOS ####################
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
|
||||
Next
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_cat_clientestodos(CAT_CL_TIPO_RUTA,CAT_CL_DIAS_VISITA,CAT_CL_CODIGO,CAT_CL_FOTO,CAT_CL_CLASIFICADOR3,CAT_CL_CLASIFICADOR4,CAT_CL_CLASIFICADOR2,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_BCREDITO,CAT_CL_DIASCREDITO,CAT_CL_TIPOCLIENTE,CAT_CL_LIMITECREDITO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_CL_TIPO_RUTA, CAT_CL_DIAS_VISITA, CAT_CL_CODIGO, CAT_CL_FOTO, CAT_CL_CLASIFICADOR3, CAT_CL_CLASIFICADOR4, CAT_CL_CLASIFICADOR2, CAT_CL_RUTA, CAT_CL_NOMBRE, CAT_CL_ATIENDE1, CAT_CL_ATIENTE2, CAT_CL_TELEFONO, CAT_CL_EMAIL, CAT_CL_CALLE, CAT_CL_NOEXT, CAT_CL_NOINT, CAT_CL_CALLE1, CAT_CL_CALLE2, CAT_CL_COLONIA, CAT_CL_MUNI, CAT_CL_EDO, CAT_CL_CP, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_MTOCOMPRA, CAT_CL_NUM_SERIEFISICO, CAT_CL_BCREDITO, CAT_CL_DIASCREDITO, CAT_CL_TIPOCLIENTE, CAT_CL_LIMITECREDITO))
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "kmt_datos2" Then 'query tag
|
||||
@@ -2464,6 +2527,24 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "hist_ventastodos" Then 'query tag
|
||||
|
||||
For Each records() As Object In RESULT.Rows
|
||||
' Log ("NO HACE NADA")
|
||||
Dim HVD_CLIENTE As String = records(RESULT.Columns.Get("HVD_CLIENTE"))
|
||||
Dim HVD_PRONOMBRE As String = records(RESULT.Columns.Get("HVD_PRONOMBRE"))
|
||||
Dim HVD_CANT As String = records(RESULT.Columns.Get("HVD_CANT"))
|
||||
Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT"))
|
||||
Dim HVD_FECHA As String = records(RESULT.Columns.Get("HVD_FECHA"))
|
||||
Log(HVD_CLIENTE&"--"&HVD_PRONOMBRE&"--"&HVD_CANT&"--"&HVD_COSTO_TOT)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO hist_ventastodos(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA) VALUES (?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA))
|
||||
Next
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "variables" Then 'query tag
|
||||
@@ -3917,6 +3998,10 @@ Private Sub b_resdia_Click
|
||||
resdia_Click
|
||||
End Sub
|
||||
|
||||
Private Sub B_traec_click
|
||||
B4XPages.ShowPage("Clientes_Completos")
|
||||
End Sub
|
||||
|
||||
Sub checaPedido
|
||||
Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")
|
||||
If c.RowCount > 0 Then
|
||||
|
||||
Reference in New Issue
Block a user