mirror of
https://github.com/KeymonSoft/ADM2.git
synced 2026-04-20 04:39:14 +00:00
VERSION 6.01.10
- Se corrige en resumen dia la venta por marcas
This commit is contained in:
@@ -199,7 +199,7 @@ Sub Class_Globals
|
||||
Private xui As XUI
|
||||
Type TitleData (Title As String)
|
||||
Private B_MARCAS As Button
|
||||
Private Panel5 As Panel
|
||||
Private p_marcas As Panel
|
||||
Private lblTitle As Label
|
||||
Private B_OK_PANEL5 As Button
|
||||
Private p_principal As Panel
|
||||
@@ -223,6 +223,7 @@ Sub Class_Globals
|
||||
Dim q_buscar As String
|
||||
Private et_buspc As EditText
|
||||
Dim bitacora As C_BItacora
|
||||
Private l_Version As Label
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -245,6 +246,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
If File.Exists(ruta, "kmt.db") = False Then
|
||||
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
|
||||
End If
|
||||
SCROLL_RESDIA.Height = Root.Height - 10dip
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
fecha=DateTime.Date(DateTime.Now)
|
||||
B4XPages.MainPage.skmt.Initialize(ruta,"kmt.db", True)
|
||||
@@ -255,6 +257,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
d=B4XPages.MainPage.skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
|
||||
d.Position=0
|
||||
e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
|
||||
l_Version.Left = Root.Width - l_Version.Width - 5dip
|
||||
l_Version.text = Application.VersionName
|
||||
e.Position=0
|
||||
' f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
|
||||
' f.Position=0
|
||||
@@ -670,7 +674,7 @@ Sub Subir_Click
|
||||
Dim Dir2 As String
|
||||
Dir = "/promotoriakmts"
|
||||
|
||||
c=Starter.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO, CN_SOLICITA FROM CLIENTES_NUEVOS")
|
||||
c=Starter.skmt.ExecQuery("SELECT * FROM CLIENTES_NUEVOS")
|
||||
If c.RowCount>0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
@@ -691,7 +695,7 @@ Sub Subir_Click
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_clientesnuevos_ADM3"
|
||||
cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),ALMACEN, c.GetString("CN_RUTA"), "En espera",c.GetString("CN_GIRO"),dialetra, c.GetString("CN_SOLICITA"))
|
||||
cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),ALMACEN, c.GetString("CN_RUTA"), "En espera",c.GetString("CN_GIRO"),dialetra, c.GetString("CN_SOLICITA"), c.GetString("CN_COMENTARIO"))
|
||||
reqManager.ExecuteCommand(cmd , "inst_clientesn")
|
||||
Next
|
||||
End If
|
||||
@@ -955,7 +959,6 @@ Sub cargar_Click
|
||||
|
||||
If E_RUTA2.Text <> "" Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO RUTA_SUPLENCIA(RS_RUTA) VALUES(?)",Array As String(E_RUTA2.Text))
|
||||
E_RUTA2.Text = ""
|
||||
End If
|
||||
|
||||
c = B4XPages.MainPage.skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
|
||||
@@ -1023,7 +1026,7 @@ Sub cargar_Click
|
||||
reqManager.ExecuteQuery(cmd , 0, "detallepaq")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_clientes_ADM3"
|
||||
cmd.Name = "select_cat_clientes2_ADM3"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
|
||||
|
||||
@@ -1068,8 +1071,11 @@ Sub cargar_Click
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_clientes_ADM3"
|
||||
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
|
||||
|
||||
reqManager.ExecuteQuery(cmd , 0, "kmt_datos_sup")
|
||||
Log("====== PEDIMOS RUTA SUPLENCIA - " & E_RUTA2.text & "|" & ALMACEN)
|
||||
|
||||
E_RUTA2.Text = ""
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_clientes_todos_ADM3"
|
||||
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
|
||||
@@ -1247,6 +1253,52 @@ Sub JobDone(Job As HttpJob)
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
|
||||
Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA"))
|
||||
Log("-" &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_DIAS_VISITA As String = records(RESULT.Columns.Get("CAT_CL_DIAS_VISITA"))
|
||||
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_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_CL_LIMITECREDITO"))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,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_LIMITECREDITO, gestion,CAT_CL_DIAS_VISITA) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,? ,?,0,?)", Array As Object (CAT_CL_CODIGO,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_LIMITECREDITO, CAT_CL_DIAS_VISITA))
|
||||
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
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,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, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object ("0",e_ruta.TEXT, "VENTA ABORDO","null","null","null","null","null","null","null","null","null","null","null","null","NULL","null","NULL"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,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, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object ("1",e_ruta.TEXT, "VENTA RECARGA","null","null","null","null","null","null","null","null","null","null","null","null","NULL","null","NULL"))
|
||||
Listo1 = 1
|
||||
S_CC.Text = "LISTO"
|
||||
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True)
|
||||
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
|
||||
B4XPage_Appear
|
||||
img2.Visible=False
|
||||
EJECUTANDO=0
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "kmt_datos_sup" Then 'query tag
|
||||
S_CC.TEXT = "CARGANDO"
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
|
||||
Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA"))
|
||||
Log("-" &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"))
|
||||
@@ -1840,7 +1892,7 @@ Sub JobDone(Job As HttpJob)
|
||||
datos_iguales = "ok"
|
||||
S_CP.Text = "INFO OK"
|
||||
Else
|
||||
If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True)
|
||||
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True)
|
||||
S_CP.Text = "ENVIAR DATOS (K-2)"
|
||||
End If
|
||||
Next
|
||||
@@ -1856,7 +1908,7 @@ Sub JobDone(Job As HttpJob)
|
||||
' ToastMessageShow("rojo val ok 1 cuantosp." , True)
|
||||
datos_iguales = "ok"
|
||||
Else
|
||||
If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info C. Sync Nuevamente" & CUANTOSC & " " & cuantos_pedidosc, True)
|
||||
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info C. Sync Nuevamente" & CUANTOSC & " " & cuantos_pedidosc, True)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
@@ -1871,7 +1923,7 @@ Sub JobDone(Job As HttpJob)
|
||||
' ToastMessageShow("rojo val ok 1 cuantosp." , True)
|
||||
datos_iguales = "ok"
|
||||
Else
|
||||
If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info N. Sync Nuevamente" & CUANTOSN & " " & cuantos_noventa, True)
|
||||
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info N. Sync Nuevamente" & CUANTOSN & " " & cuantos_noventa, True)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
@@ -2041,13 +2093,11 @@ End Sub
|
||||
|
||||
Private Sub B4XPage_CloseRequest As ResumableSub
|
||||
'Return True to close, False to cancel
|
||||
|
||||
|
||||
If SCROLL_RESDIA.Visible Then
|
||||
SCROLL_RESDIA.Visible = False
|
||||
B_OK_RES_Click
|
||||
Return False
|
||||
Else if Panel5.Visible Then
|
||||
Else if p_marcas.Visible Then
|
||||
B_OK_PANEL5_Click
|
||||
Return False
|
||||
Else
|
||||
@@ -2643,103 +2693,49 @@ Sub B_OK_COMISS_Click
|
||||
Btn_Ubicar.Visible=True
|
||||
End Sub
|
||||
|
||||
|
||||
Sub B_MARCAS_Click
|
||||
' SCROLL_RESDIA.Visible = False
|
||||
' Panel5.Visible = True
|
||||
' pnlTitle.Visible = False
|
||||
' pnlTitle.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight + DividerHeight)
|
||||
' pnlTitle.LoadLayout("CellTitle")
|
||||
' c=B4XPages.MainPage.skmt.ExecQuery("Select CAT_GP_CLASIF, sum(pe_costo_tot) As total from CATALOGO, pedido where pe_proid = cat_gp_id And pe_cliente <> 0 group by cat_gp_clasif")
|
||||
'
|
||||
' CLV1.Clear
|
||||
' If c.RowCount>0 Then
|
||||
' For i=0 To c.RowCount -1
|
||||
' c.Position=i
|
||||
' AddTitle(c.GetString("CAT_GP_CLASIF"))
|
||||
' f=B4XPages.MainPage.skmt.ExecQuery2("select * from HIST_AVANCE where HA_MARCA = ?", Array As String(c.GetString("CAT_GP_CLASIF")))
|
||||
' f.Position=0
|
||||
' If f.RowCount > 0 Then
|
||||
' CLV1.AddTextItem("VENTA = $" & f.GetString("HA_AVANCE"),"1")
|
||||
' CLV1.AddTextItem("META = $" & f.GetString("HA_OBJETIVO"),"1")
|
||||
' CLV1.AddTextItem("PORCENTAJE = %" & (f.GetString("HA_PORCENTAJE")) ,"1")
|
||||
' End If
|
||||
' f.Close
|
||||
' Next
|
||||
' End If
|
||||
' c.Close
|
||||
|
||||
Log("MARCAS")
|
||||
SCROLL_RESDIA.Visible = False
|
||||
Panel5.Visible = True
|
||||
p_marcas.Visible = True
|
||||
p_marcas.BringToFront
|
||||
p_marcas.Top = 0 : p_marcas.left = 0
|
||||
p_marcas.Width = Root.Width : p_marcas.height = Root.height
|
||||
p_marcas.Visible = True
|
||||
Log("Panel 5 visible")
|
||||
pnlTitle.Visible = False
|
||||
pnlTitle.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight + DividerHeight)
|
||||
pnlTitle.LoadLayout("CellTitle")
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("Select CAT_GP_CLASIF, SUM(TOTAL) AS TOTAL FROM TOTAL_MARCAS GROUP BY CAT_GP_CLASIF")
|
||||
c = B4XPages.MainPage.skmt.ExecQuery("Select sum(pe_costo_tot) as TOTAL, CAT_GP_TIPO, CAT_GP_SUBTIPO from pedido join cat_gunaprod on cat_gp_id = Pe_proid where cat_gp_tipo like '%GANADOR%' or cat_gp_tipo like '%MININO%' or cat_gp_tipo like '%Top CHOICE%' or cat_gp_tipo like '%FULLLIFE%' group by CAT_GP_SUBTIPO")
|
||||
CLV1.Clear
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
AddTitle(c.GetString("CAT_GP_CLASIF"))
|
||||
If c.GetString("CAT_GP_CLASIF") = "PROMOS" Then
|
||||
d=B4XPages.MainPage.skmt.ExecQuery("SELECT SUM(PE_CANT) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID")
|
||||
d.Position=0
|
||||
CLV1.AddTextItem("CANTIDAD DE PROMOS = " & d.GetString("CUANTOS"),"1")
|
||||
d.Close
|
||||
Else
|
||||
f=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS CUANTOS from HIST_MARCAS_CUOTAS where HMC_MARCA = ?", Array As String(c.GetString("CAT_GP_CLASIF")))
|
||||
f.Position=0
|
||||
If f.GetString("CUANTOS") > 0 Then
|
||||
e=B4XPages.MainPage.skmt.ExecQuery2("select HMC_MARCA, HMC_TOTAL from HIST_MARCAS_CUOTAS where HMC_MARCA = ?", Array As String(c.GetString("CAT_GP_CLASIF")))
|
||||
e.Position=0
|
||||
d=B4XPages.MainPage.skmt.ExecQuery2("SELECT count(distinct(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from cat_gunaprod WHERE CAT_GP_CLASIF =?)", Array As String (c.GetString("CAT_GP_CLASIF")))
|
||||
d.Position=0
|
||||
CLV1.AddTextItem("TOTAL PREVENTA = $" & c.GetString("TOTAL"),"1")
|
||||
CLV1.AddTextItem("M E T A = $" & e.GetString("HMC_TOTAL"),"1")
|
||||
CLV1.AddTextItem("FALTA = $" & (e.GetString("HMC_TOTAL") - c.GetString("TOTAL")) ,"1")
|
||||
CLV1.AddTextItem("CLIENTES = " & d.GetString("CUANTOS"),"1")
|
||||
d.Close
|
||||
e.Close
|
||||
Else
|
||||
d=B4XPages.MainPage.skmt.ExecQuery2("SELECT count(distinct(pe_cliente)) AS CUANTOS FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from cat_gunaprod WHERE CAT_GP_CLASIF =?)", Array As String (c.GetString("CAT_GP_CLASIF")))
|
||||
d.Position=0
|
||||
CLV1.AddTextItem("TOTAL PREVENTA = $" & c.GetString("TOTAL"),"1")
|
||||
CLV1.AddTextItem("M E T A = $" & "1000","1")
|
||||
CLV1.AddTextItem("FALTA = $" & (1000 - c.GetString("TOTAL")) ,"1")
|
||||
CLV1.AddTextItem("CLIENTES = " & d.GetString("CUANTOS"),"1")
|
||||
d.Close
|
||||
End If
|
||||
f.Close
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
AddTitle("TIPOS")
|
||||
f = B4XPages.MainPage.skmt.ExecQuery("Select sum(pe_costo_tot) as TOTAL, CAT_GP_TIPO, CAT_GP_SUBTIPO from pedido join cat_gunaprod on cat_gp_id = Pe_proid where cat_gp_tipo like '%GANADOR%' or cat_gp_tipo like '%MININO%' or cat_gp_tipo like '%Top CHOICE%' or cat_gp_tipo like '%FULLLIFE%' group by CAT_GP_SUBTIPO")
|
||||
If f.RowCount > 0 Then
|
||||
For i = 0 To f.RowCount - 1
|
||||
f.Position = i
|
||||
CLV1.AddTextItem($"${f.GetString("CAT_GP_TIPO")} = $${NumberFormat2(f.GetString("TOTAL"),1,2,2,True)}"$,"1")
|
||||
Next
|
||||
End If
|
||||
f.Close
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("Select HMC_MARCA, HMC_TOTAL from HIST_MARCAS_CUOTAS where HMC_MARCA not in (SELECT CAT_GP_CLASIF FROM TOTAL_MARCAS )")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
AddTitle(c.GetString("HMC_MARCA"))
|
||||
CLV1.AddTextItem("TOTAL PREVENTA = $ 0.00","1")
|
||||
CLV1.AddTextItem("M E T A = $" & C.GetString("HMC_TOTAL"),"1")
|
||||
CLV1.AddTextItem("CLIENTES = 0","1")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub AddTitle (Title As String)
|
||||
Dim p_MARCAS As B4XView = xui.CreatePanel("")
|
||||
p_MARCAS.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight)
|
||||
p_MARCAS.LoadLayout("CellTitle")
|
||||
Dim p_marcas2 As B4XView = xui.CreatePanel("")
|
||||
p_marcas2.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight)
|
||||
p_marcas2.LoadLayout("CellTitle")
|
||||
lblTitle.Text = Title
|
||||
Dim td As TitleData
|
||||
td.Title = Title
|
||||
CLV1.Add(p_MARCAS, td)
|
||||
CLV1.Add(p_marcas2, td)
|
||||
End Sub
|
||||
|
||||
Sub B_OK_PANEL5_Click
|
||||
Panel5.Visible = False
|
||||
p_marcas.Visible = False
|
||||
NUEVO.Visible =True
|
||||
BUSCA.Visible=True
|
||||
connecta.Visible=True
|
||||
@@ -2780,4 +2776,4 @@ End Sub
|
||||
|
||||
Private Sub img2_Click
|
||||
img2.Visible = False
|
||||
End Sub
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user