mirror of
https://github.com/KeymonSoft/Durakelo.git
synced 2026-04-17 19:36:12 +00:00
- Cambios en ticket.
- Cambios en resumen dia
This commit is contained in:
@@ -159,6 +159,7 @@ Sub Class_Globals
|
||||
Dim ime As IME
|
||||
Private l_monto_kc As Label
|
||||
Private l_version As Label
|
||||
Private l_montoColgateResumen As Label
|
||||
End Sub
|
||||
|
||||
Sub initialize
|
||||
@@ -224,7 +225,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
l_ctast.Text = d.GetString("TOTAL_VISITAR")
|
||||
l_porvisitar.Text = e.GetString("POR_VISITAR")
|
||||
Else
|
||||
c=skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ")
|
||||
c=skmt.ExecQuery("select ifnull(sum(pc_monto), 0) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ")
|
||||
b=skmt.ExecQuery("select count(*) as CUANTOS from noventa")
|
||||
'where pc_fecha = ?", Array As String(fecha)
|
||||
C.Position=0
|
||||
@@ -1076,7 +1077,9 @@ Sub JobDone(Job As HttpJob)
|
||||
LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue)
|
||||
End If
|
||||
If Job.Success = False Then
|
||||
LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
|
||||
LogColor("############################################", Colors.red)
|
||||
LogColor("#### Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
|
||||
LogColor("############################################", Colors.red)
|
||||
If Job.ErrorMessage = "STREAM" Then
|
||||
If CARGA = "SUBIR" Then
|
||||
PB2.Progress = PB2.Progress + PORCENTAJE
|
||||
@@ -1872,8 +1875,11 @@ Sub JobDone(Job As HttpJob)
|
||||
If RESULT.Tag = "sucursal" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim SUCURSAL As String = records(RESULT.Columns.Get("SUCURSAL"))
|
||||
Dim domicilio As String = records(RESULT.Columns.Get("CAT_AG_CALLE")) & " " & records(RESULT.Columns.Get("CAT_AG_NUMERO")) & ", " & records(RESULT.Columns.Get("CAT_AG_COLONIA")) & ", " & records(RESULT.Columns.Get("CAT_AG_CIUDAD"))
|
||||
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SUCURSAL"))
|
||||
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SUCURSAL",SUCURSAL))
|
||||
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("DOMICILIO"))
|
||||
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("DOMICILIO", domicilio))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
@@ -1976,12 +1982,16 @@ End Sub
|
||||
|
||||
Sub BUSCA_Click
|
||||
c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS"))
|
||||
c.Position =0
|
||||
MARCASQ = c.GetString("CAT_VA_VALOR")
|
||||
c.Close
|
||||
skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" )
|
||||
' StartActivity(BUSCAR)
|
||||
B4XPages.ShowPage("TicketsDia")
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
MARCASQ = c.GetString("CAT_VA_VALOR")
|
||||
c.Close
|
||||
skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" )
|
||||
' StartActivity(BUSCAR)
|
||||
B4XPages.ShowPage("TicketsDia")
|
||||
Else
|
||||
ToastMessageShow("No hay tickets guardados!", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub b_mapa_Click
|
||||
@@ -2316,6 +2326,13 @@ Sub Resumen_Click
|
||||
cargar.Visible=False
|
||||
Resumen.Visible= False
|
||||
|
||||
Private r As ResultSet = Starter.skmt.ExecQuery($"Select CAT_GP_CLASIF, PEDIDO.* from pedido join cat_gunaprod on PE_PROID = CAT_GP_ID where CAT_GP_CLASIF = 'COLGATE'"$)
|
||||
Private cRes As String = 0
|
||||
Do While r.NextRow
|
||||
cRes = cRes + r.GetString("PE_COSTO_TOT")
|
||||
Loop
|
||||
l_montoColgateResumen.Text = numberformat2(cRes, 1, 2, 2, True)
|
||||
|
||||
b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente where pc_cliente <> 0")
|
||||
b.Position=0
|
||||
Cuantos = b.GetString("CUANTOS")
|
||||
@@ -2357,11 +2374,11 @@ Sub Resumen_Click
|
||||
If c.GetString("CUANTOS") > 0 Then
|
||||
Log("Entramos")
|
||||
ImageView12.Bitmap = LoadBitmap(File.DirAssets, "k.png")
|
||||
c=skmt.ExecQuery2("select sum(pe_cant) as CAMBIOS from pedido where substr(pe_pronombre,1,6) = ?", Array As String("CAMBIO"))
|
||||
c=skmt.ExecQuery2("select ifnull(sum(pe_cant), 0) as CAMBIOS from pedido where substr(pe_pronombre,1,6) = ?", Array As String("CAMBIO"))
|
||||
c.Position = 0
|
||||
l_cambios.Text = c.GetString("CAMBIOS")
|
||||
l_cambios.Text = numberformat2(c.GetString("CAMBIOS"), 1, 2, 2, True)
|
||||
c.Close
|
||||
c=skmt.ExecQuery("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2' union Select CAT_GP_ID from cat_gunaprod2 where CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2')")
|
||||
c=skmt.ExecQuery("Select ifnull(sum(PE_COSTO_TOT), 0) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2' union Select CAT_GP_ID from cat_gunaprod2 where CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2')")
|
||||
c.Position = 0
|
||||
l_monto_k.Text = c.GetString("MONTO_DIA")
|
||||
c.Close
|
||||
@@ -2373,12 +2390,12 @@ Sub Resumen_Click
|
||||
l_monto_kp.Text = "0"
|
||||
End If
|
||||
c.Close
|
||||
c=skmt.ExecQuery("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where (CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2') And CAT_GP_TIPO = 'SNACK' union Select CAT_GP_ID from cat_gunaprod2 where (CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2') And CAT_GP_TIPO = 'SNACK')")
|
||||
c=skmt.ExecQuery("Select ifnull(sum(PE_COSTO_TOT), 0) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where (CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2') And CAT_GP_TIPO = 'SNACK' union Select CAT_GP_ID from cat_gunaprod2 where (CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2') And CAT_GP_TIPO = 'SNACK')")
|
||||
c.Position = 0
|
||||
l_monto_ks.Text = c.GetString("MONTO_DIA")
|
||||
c.Close
|
||||
Log("Snacks=" & l_monto_ks.text)
|
||||
c=skmt.ExecQuery("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where (CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2') And CAT_GP_TIPO = 'CEREAL' union Select CAT_GP_ID from cat_gunaprod2 where (CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2') And CAT_GP_TIPO = 'CEREAL')")
|
||||
c=skmt.ExecQuery("Select ifnull(sum(PE_COSTO_TOT), 0) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where (CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2') And CAT_GP_TIPO = 'CEREAL' union Select CAT_GP_ID from cat_gunaprod2 where (CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2') And CAT_GP_TIPO = 'CEREAL')")
|
||||
c.Position = 0
|
||||
l_monto_kc.Text = c.GetString("MONTO_DIA")
|
||||
c.Close
|
||||
@@ -2415,14 +2432,13 @@ Sub Resumen_Click
|
||||
End If
|
||||
E1.Close
|
||||
|
||||
|
||||
E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("PREVENTA"))
|
||||
E1.Position = 0
|
||||
If E1.GetString("CUANTOS") > 0 Then
|
||||
|
||||
c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("PREVENTA"))
|
||||
c=skmt.ExecQuery2("Select ifnull(sum(PE_COSTO_TOT), 0) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("PREVENTA"))
|
||||
c.Position = 0
|
||||
L_PREVENTA.Text = c.GetString("MONTO_DIA")
|
||||
L_PREVENTA.Text = NumberFormat2(c.GetString("MONTO_DIA"), 1, 2, 2, True)
|
||||
c.Close
|
||||
Else
|
||||
L_PREVENTA.Text = 0
|
||||
@@ -2552,7 +2568,7 @@ End Sub
|
||||
|
||||
Sub B_MARCAS_Click
|
||||
Panel5.Visible = True
|
||||
|
||||
Panel5.BringToFront
|
||||
pnlTitle.Visible = False
|
||||
pnlTitle.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight + DividerHeight)
|
||||
pnlTitle.LoadLayout("CellTitle")
|
||||
|
||||
Reference in New Issue
Block a user