mirror of
https://github.com/KeymonSoft/ADM.git
synced 2026-04-18 11:49:26 +00:00
Compare commits
2 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
| 670a875efa | |||
| 2a64f8cb6e |
@@ -1121,7 +1121,7 @@ Version=12.8
|
||||
#Region Project Attributes
|
||||
#ApplicationLabel: ADM
|
||||
#VersionCode: 1
|
||||
#VersionName: 5.08.28
|
||||
#VersionName: 5.08.29
|
||||
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
||||
#SupportedOrientations: portrait
|
||||
#CanInstallToExternalStorage: False
|
||||
|
||||
@@ -88,7 +88,7 @@ ModuleClosedNodes27=3,4,8,9,10,11,12,13,14,15,16,17,18,20,21,24,25,27,28
|
||||
ModuleClosedNodes28=
|
||||
ModuleClosedNodes29=
|
||||
ModuleClosedNodes3=
|
||||
ModuleClosedNodes30=
|
||||
ModuleClosedNodes30=4,5,6,7,8
|
||||
ModuleClosedNodes31=
|
||||
ModuleClosedNodes32=15,16,17,18,19
|
||||
ModuleClosedNodes4=
|
||||
@@ -97,6 +97,6 @@ ModuleClosedNodes6=4,6,7,8,9,10,11,12,13,15,19,21
|
||||
ModuleClosedNodes7=
|
||||
ModuleClosedNodes8=
|
||||
ModuleClosedNodes9=
|
||||
NavigationStack=C_TicketsDia,b_guardaNoVenta_Click,278,0,C_TicketsDia,b_cancelaNoVenta_Click,282,0,C_Clientes,b_inicioVenta_Click,570,0,C_Clientes,b_guardaNoVenta_Click,671,0,Diseñador Visual,ticketsdia.bal,-100,5,C_TicketsDia,Class_Globals,19,0,C_TicketsDia,b_noventa0_Click,195,0,C_Clientes,b_noVenta_Click,666,6,C_TicketsDia,b_noVenta_Click,303,0,MAPA_RUTAS,b_noVenta_Click,512,0
|
||||
NavigationStack=Main,Process_Globals,20,0,B4XMainPage,Class_Globals,69,0,Diseñador Visual,principal.bal,-100,6,C_Principal,resdia_Click,2419,6,C_Principal,B4XPage_Created,316,0,Diseñador Visual,login.bal,-100,1,C_Principal,B4XPage_Appear,374,5,MAPA_RUTAS,Activity_Resume,197,0,CameraExClass,FindCamera,48,0,MAPA_RUTAS,MapFragment1_Ready,301,6
|
||||
SelectedBuild=0
|
||||
VisibleModules=30,2,14,5,6,19,31,27,18
|
||||
VisibleModules=30,2,14,5,6,19,31,27,18,21
|
||||
|
||||
@@ -223,6 +223,12 @@ Sub Class_Globals
|
||||
Dim q_buscar As String
|
||||
Private et_buspc As EditText
|
||||
Private Panel9 As Panel
|
||||
Private p_transResumenDia As Panel
|
||||
Private p_resumenDia As Panel
|
||||
Private l_totalPesoActual As Label
|
||||
Private l_conVenta As Label
|
||||
Private l_visitados As Label
|
||||
Private l_totalAVisitar As Label
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -278,7 +284,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
l_ctast.Text = d.GetString("TOTAL_VISITAR")
|
||||
l_porvisitar.Text = e.GetString("POR_VISITAR")
|
||||
Else
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente where PC_CLIENTE <> 0 AND PC_CLIENTE <> 1")
|
||||
' c=B4XPages.MainPage.skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente where PC_CLIENTE <> 0 AND PC_CLIENTE <> 1")
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_peso) as MONTO_DIA, count(pe_cliente) AS CLIENTES_DIA from pedido_cliente where PC_CLIENTE <> 0 AND PC_CLIENTE <> 1")
|
||||
b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
|
||||
'where pc_fecha = ?", Array As String(fecha)
|
||||
c.Position=0
|
||||
@@ -308,14 +315,12 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
l_rutasuplencia.Visible = True
|
||||
l_rutasuplencia.Text = s.GetString("RS_RUTA")
|
||||
End If
|
||||
|
||||
p_mandaInfo.Top = 0 : p_mandaInfo.Left = 0
|
||||
Panel5.Top = 0 : Panel5.Left = 0
|
||||
P_RESUMEN.Top = 0 : P_RESUMEN.Left = 0
|
||||
SCROLL_RESDIA.Top = 0 : SCROLL_RESDIA.Left = 0
|
||||
SCROLL_RESDIA.Height = Root.Height * 0.9
|
||||
SCROLL_RESDIA.Left = (Root.Width / 2) - (SCROLL_RESDIA.Width / 2)
|
||||
|
||||
Starter.Skmt.ExecNonQuery($"create table if not exists kmt_info2 (${getTableColumnList(Starter.skmt, "kmt_info")})"$)
|
||||
End Sub
|
||||
|
||||
@@ -377,6 +382,11 @@ Sub B4XPage_Appear
|
||||
rd.respaldaInventarios
|
||||
rd.respaldaPaquetes
|
||||
HORAINGRESO ="000000"
|
||||
|
||||
p_transResumenDia.Left = 0 : p_transResumenDia.top = 0
|
||||
p_transResumenDia.Height = Root.Height : p_transResumenDia.Width = Root.Width
|
||||
Subs.centraPanel(p_resumenDia, Root.Width)
|
||||
|
||||
' Private inicioL As Float = (nvo_cliente.Left + nvo_cliente.Width)
|
||||
' Private finR As Float = Panel9.Left
|
||||
' Btn_Ubicar.Left = ((nvo_cliente.Left + nvo_cliente.Width)) - (Btn_Ubicar.Width / 2) + ((finR - inicioL)/2) + 15
|
||||
@@ -461,13 +471,14 @@ Sub B4XPage_Appear
|
||||
b.close
|
||||
Else
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select SUM(PE_COSTO_TOT) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA from PEDIDO WHERE PE_CLIENTE <> 0")
|
||||
b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
|
||||
' b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
|
||||
b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from pesos where PE_TIPO = 'NO VENTA'")
|
||||
c.Position=0
|
||||
b.Position=0
|
||||
L_MONTOD.Text = c.GetString("MONTO_DIA")
|
||||
l_cuantosc.Text = c.GetString("CLIENTES_DIA")
|
||||
|
||||
D2=B4XPages.MainPage.skmt.ExecQuery("select COUNT(*) AS CUANTOS from PEDIDO ")
|
||||
D2 = B4XPages.MainPage.skmt.ExecQuery("select COUNT(*) AS CUANTOS from PEDIDO")
|
||||
D2.Position = 0
|
||||
LPT = D2.GetString("CUANTOS") / l_cuantosc.Text
|
||||
D2.Close
|
||||
@@ -2090,8 +2101,9 @@ End Sub
|
||||
|
||||
Private Sub B4XPage_CloseRequest As ResumableSub
|
||||
'Return True to close, False to cancel
|
||||
|
||||
If SCROLL_RESDIA.Visible Then
|
||||
If p_transResumenDia.Visible Then
|
||||
p_transResumenDia.Visible = False
|
||||
Else If SCROLL_RESDIA.Visible Then
|
||||
SCROLL_RESDIA.Visible = False
|
||||
B_OK_RES_Click
|
||||
Return False
|
||||
@@ -2413,193 +2425,217 @@ Sub CARGA_Click
|
||||
End Sub
|
||||
|
||||
Sub resdia_Click
|
||||
p_principal.Visible = False
|
||||
Btn_Ubicar.Visible=False
|
||||
SCROLL_RESDIA.Visible = True
|
||||
SCROLL_RESDIA.Panel.LoadLayout("RESDIA")
|
||||
SCROLL_RESDIA.Panel.Height = Panel4.Height
|
||||
Panel4.Visible = True
|
||||
|
||||
Private totalPesoActual As String = 0
|
||||
Private conVenta As String = 0
|
||||
Private visitados As String = 0
|
||||
Private totalAVisitar As String = 0
|
||||
|
||||
NUEVO.Visible =False
|
||||
BUSCA.Visible=False
|
||||
connecta.Visible=False
|
||||
b_subir.Visible=False
|
||||
b_cargar.Visible=False
|
||||
Resumen.Visible= False
|
||||
|
||||
d=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS CUANTOS FROM HIST_ENCUESTA WHERE HE_TIPO = ?", Array As String("TELEFONO"))
|
||||
d.Position = 0
|
||||
l_encuesta.Text = d.GetString("CUANTOS")
|
||||
d.Close
|
||||
|
||||
L_MARCAS.CLEAR
|
||||
d=B4XPages.MainPage.skmt.ExecQuery2("select distinct HE_CLIE AS CLIENTE FROM HIST_ENCUESTA WHERE HE_TIPO = ?", Array As String("TELEFONO"))
|
||||
If D.RowCount>0 Then
|
||||
For i=0 To D.RowCount -1
|
||||
D.Position=i
|
||||
c=B4XPages.MainPage.skmt.ExecQuery2("Select HE_RES from HIST_ENCUESTA where HE_CLIE = ? AND HE_TIPO = ?", Array As String(d.GetString("CLIENTE"), "TELEFONO"))
|
||||
c.Position = 0
|
||||
Dim label1 As Label
|
||||
label1 = L_MARCAS.TwoLinesLayout.Label
|
||||
label1.TextSize = 13
|
||||
label1.TextColor = Colors.Black
|
||||
Dim label2 As Label
|
||||
label2 = L_MARCAS.TwoLinesLayout.SecondLabel
|
||||
label2.TextSize = 13
|
||||
label2.TextColor = Colors.Black
|
||||
L_MARCAS.AddTwoLines(d.GetString("CLIENTE"),"TELEFONO :" & c.GetString("HE_RES") )
|
||||
c.Close
|
||||
Next
|
||||
Private utr As Cursor = Starter.skmt.ExecQuery($"select sum(pe_peso) as totalPesoActual,
|
||||
(select count(pe_cliente) from pesos where pe_tipo = 'VENTA') as conVenta,
|
||||
(select count(distinct pe_cliente) from pesos) as visitados,
|
||||
(select count(cat_cl_codigo) from kmt_info) as totalAVisitar
|
||||
from pesos"$)
|
||||
If utr.RowCount > 0 Then
|
||||
utr.position = 0
|
||||
l_totalPesoActual.text = NumberFormat2(utr.GetString("totalPesoActual"), 0, 2, 0, True)
|
||||
l_conVenta.text = utr.GetString("conVenta")
|
||||
l_visitados.text = utr.GetString("visitados")
|
||||
l_totalAVisitar.text = utr.GetString("totalAVisitar")
|
||||
Log("totalPesoActual: " & utr.GetString("totalPesoActual"))
|
||||
Log("conVenta: " & utr.GetString("conVenta"))
|
||||
Log("visitados: " & utr.GetString("visitados"))
|
||||
Log("totalAVisitar: " & utr.GetString("totalAVisitar"))
|
||||
End If
|
||||
d.Close
|
||||
|
||||
c=B4XPages.MainPage.skmt.ExecQuery2("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_TIPO = ? )", Array As String("RTEC"))
|
||||
c.Position = 0
|
||||
l_monto_k.Text = c.GetString("MONTO_DIA")
|
||||
If l_monto_k.Text = "null" Then
|
||||
l_monto_k.Text = "0"
|
||||
End If
|
||||
c.Close
|
||||
|
||||
c=B4XPages.MainPage.skmt.ExecQuery2("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_TIPO = ? )", Array As String("PING"))
|
||||
c.Position = 0
|
||||
l_monto_kp.Text = c.GetString("MONTO_DIA")
|
||||
If l_monto_kp.Text = "null" Then
|
||||
l_monto_kp.Text = "0"
|
||||
End If
|
||||
c.Close
|
||||
|
||||
' c=skmt.ExecQuery2("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_TIPO = ? )", Array As String("SALTY SNACKS"))
|
||||
|
||||
p_transResumenDia.Visible = True
|
||||
' p_principal.Visible = False
|
||||
' Btn_Ubicar.Visible=False
|
||||
' SCROLL_RESDIA.Visible = True
|
||||
' SCROLL_RESDIA.Panel.LoadLayout("RESDIA")
|
||||
' SCROLL_RESDIA.Panel.Height = Panel4.Height
|
||||
' Panel4.Visible = True
|
||||
'
|
||||
' NUEVO.Visible =False
|
||||
' BUSCA.Visible=False
|
||||
' connecta.Visible=False
|
||||
' b_subir.Visible=False
|
||||
' b_cargar.Visible=False
|
||||
' Resumen.Visible= False
|
||||
'
|
||||
' d=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS CUANTOS FROM HIST_ENCUESTA WHERE HE_TIPO = ?", Array As String("TELEFONO"))
|
||||
' d.Position = 0
|
||||
' l_encuesta.Text = d.GetString("CUANTOS")
|
||||
' d.Close
|
||||
'
|
||||
' L_MARCAS.CLEAR
|
||||
' d=B4XPages.MainPage.skmt.ExecQuery2("select distinct HE_CLIE AS CLIENTE FROM HIST_ENCUESTA WHERE HE_TIPO = ?", Array As String("TELEFONO"))
|
||||
' If D.RowCount>0 Then
|
||||
' For i=0 To D.RowCount -1
|
||||
' D.Position=i
|
||||
' c=B4XPages.MainPage.skmt.ExecQuery2("Select HE_RES from HIST_ENCUESTA where HE_CLIE = ? AND HE_TIPO = ?", Array As String(d.GetString("CLIENTE"), "TELEFONO"))
|
||||
' c.Position = 0
|
||||
' Dim label1 As Label
|
||||
' label1 = L_MARCAS.TwoLinesLayout.Label
|
||||
' label1.TextSize = 13
|
||||
' label1.TextColor = Colors.Black
|
||||
' Dim label2 As Label
|
||||
' label2 = L_MARCAS.TwoLinesLayout.SecondLabel
|
||||
' label2.TextSize = 13
|
||||
' label2.TextColor = Colors.Black
|
||||
' L_MARCAS.AddTwoLines(d.GetString("CLIENTE"),"TELEFONO :" & c.GetString("HE_RES") )
|
||||
' c.Close
|
||||
' Next
|
||||
' End If
|
||||
' d.Close
|
||||
'
|
||||
' c=B4XPages.MainPage.skmt.ExecQuery2("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_TIPO = ? )", Array As String("RTEC"))
|
||||
' c.Position = 0
|
||||
' l_monto_ks.Text = c.GetString("MONTO_DIA")
|
||||
' l_monto_k.Text = c.GetString("MONTO_DIA")
|
||||
' If l_monto_k.Text = "null" Then
|
||||
' l_monto_k.Text = "0"
|
||||
' End If
|
||||
' c.Close
|
||||
'
|
||||
' c=B4XPages.MainPage.skmt.ExecQuery2("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_TIPO = ? )", Array As String("PING"))
|
||||
' c.Position = 0
|
||||
' l_monto_kp.Text = c.GetString("MONTO_DIA")
|
||||
' If l_monto_kp.Text = "null" Then
|
||||
' l_monto_kp.Text = "0"
|
||||
' End If
|
||||
' c.Close
|
||||
'
|
||||
'' c=skmt.ExecQuery2("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_TIPO = ? )", Array As String("SALTY SNACKS"))
|
||||
'' c.Position = 0
|
||||
'' l_monto_ks.Text = c.GetString("MONTO_DIA")
|
||||
'' If l_monto_ks.Text = "null" Then
|
||||
'' l_monto_ks.Text = "0"
|
||||
'' End If
|
||||
' '
|
||||
'' c.Close
|
||||
' c=B4XPages.MainPage.skmt.ExecQuery("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 ")
|
||||
' c.Position = 0
|
||||
' l_monto_ks.Text = Subs.traeTotalCliente
|
||||
'
|
||||
' If l_monto_ks.Text = "null" Then
|
||||
' l_monto_ks.Text = "0"
|
||||
' End If
|
||||
'
|
||||
' c.Close
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 ")
|
||||
c.Position = 0
|
||||
l_monto_ks.Text = Subs.traeTotalCliente
|
||||
|
||||
If l_monto_ks.Text = "null" Then
|
||||
l_monto_ks.Text = "0"
|
||||
End If
|
||||
c.Close
|
||||
c=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As PREVENTA from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0", Array As String ("PREVENTA"))
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
L_PREVENTA.Text = Subs.traeTotalClientepreventa
|
||||
If L_PREVENTA.TEXT = "null" Then
|
||||
L_PREVENTA.Text = "0"
|
||||
End If
|
||||
End If
|
||||
c.Close
|
||||
c=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As VENTA from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0", Array As String ("VENTA"))
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
L_VENTA.Text = Subs.traeTotalClienteventa
|
||||
If L_VENTA.TEXT = "null" Then
|
||||
L_VENTA.Text = "0"
|
||||
End If
|
||||
End If
|
||||
c.Close
|
||||
c=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As ABORDO from pedido where PE_FOLIO = ? AND PE_CLIENTE = ?", Array As String ("ABORDO", "0"))
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
L_ABORDO.Text = Subs.traeTotalClienteabordo
|
||||
If L_ABORDO.TEXT = "null" Then
|
||||
L_ABORDO.Text = "0"
|
||||
End If
|
||||
End If
|
||||
c.Close
|
||||
Dim cuantos_obj As String
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) AS TOTAL from HIST_MARCAS_CUOTAS ")
|
||||
c.Position = 0
|
||||
cuantos_obj = c.GetString("TOTAL")
|
||||
c.Close
|
||||
|
||||
If cuantos_obj > 0 Then
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("Select SUM( HMC_TOTAL) AS TOTAL from HIST_MARCAS_CUOTAS ")
|
||||
c.Position = 0
|
||||
L_NES.Text = c.GetString("TOTAL")
|
||||
c.Close
|
||||
End If
|
||||
L_REAL.Text = l_monto_ks.Text
|
||||
L_ALCANCE.Text = Round2((L_NES.Text / L_REAL.Text + 1),2)
|
||||
L_VPLAN.Text = l_porvisitar.Text
|
||||
L_VREAL.Text = L_CUANTOST.text
|
||||
L_EFEC_VIS.Text = Round2(L_VREAL.text / L_VPLAN.Text,2)
|
||||
L_VISITCC.Text = l_cuantosc.text
|
||||
L_EFEC_PV.Text = Round2(L_VISITCC.Text / L_VREAL.Text,2)
|
||||
L_EFEC_PURA.Text = Round2(L_VISITCC.Text / L_VPLAN.Text,2)
|
||||
L_LIN_TICK.Text = LPT
|
||||
If l_monto_ks.Text <> "0" Then
|
||||
|
||||
c=B4XPages.MainPage.skmt.ExecQuery2("Select COUNT(DISTINCT(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = ? ", Array As String(ALMACEN))
|
||||
c.Position = 0
|
||||
L_CTE_PROMO.Text = c.GetString("CUANTOS")
|
||||
c.Close
|
||||
d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("PRIORITARIO"))
|
||||
d.Position = 0
|
||||
'///////////////////////////////////////////////////////////////////////////////
|
||||
'//////////////////////////// ULTIMA LINEA ANTES DEL ERROR //////////////////
|
||||
'////////// java.lang.NullPointerException: Attempt to invoke virtual method 'int java.lang.String.length()' on a null object reference
|
||||
'
|
||||
'/// Al parecer d.GetString("MONTO_DIA") regresa null y la funcion numberFormat truena
|
||||
'/////////////////////////////////////////////////////////////////////////////////
|
||||
Log("|"&d.GetString("MONTO_DIA")&"|")
|
||||
'L_PRIO.Text = NumberFormat(d.GetString("MONTO_DIA"),0,2)
|
||||
L_PRIO.Text = d.GetString("MONTO_DIA")
|
||||
d.Close
|
||||
|
||||
d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("ESTRATEGICO"))
|
||||
d.Position = 0
|
||||
L_SECUND.Text =d.GetString("MONTO_DIA")
|
||||
d.Close
|
||||
|
||||
d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("COMPLEMENTARIO"))
|
||||
d.Position = 0
|
||||
L_COMP.Text =d.GetString("MONTO_DIA")
|
||||
d.Close
|
||||
Else
|
||||
L_PRIO.Text = "0"
|
||||
L_SECUND.Text = "0"
|
||||
L_COMP.Text = "0"
|
||||
End If
|
||||
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("Select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ")
|
||||
c.Position = 0
|
||||
If c.GetString("CUANTOS") > 0 Then
|
||||
d=B4XPages.MainPage.skmt.ExecQuery("Select sum(pe_cant) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ")
|
||||
d.Position = 0
|
||||
L_CTE_PROMO.Text = d.GetString("CUANTOS")
|
||||
d.Close
|
||||
L_REDEN_PROMO.TEXT = Round2(L_VISITCC.Text / L_CTE_PROMO.Text,2)
|
||||
Else
|
||||
L_CTE_PROMO.Text = 0
|
||||
L_REDEN_PROMO.Text = 0
|
||||
End If
|
||||
c.Close
|
||||
d=B4XPages.MainPage.skmt.ExecQuery("Select COUNT(*) AS CUANTOS FROM PEDIDO ")
|
||||
d.Position = 0
|
||||
L_LIN_TICK.Text = Round2(d.GetString("CUANTOS") / L_VISITCC.Text,2)
|
||||
d.Close
|
||||
|
||||
d=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOS from HIST_CUOTAS ")
|
||||
d.Position = 0
|
||||
If d.GetString("CUANTOS") > 0 Then
|
||||
' c=skmt.ExecQuery("Select HC_CUOTA1,HC_CUOTA2,HC_CUOTA3 from HIST_CUOTAS ")
|
||||
' c.Position = 0
|
||||
' l_monto_c1.Text = Round( c.GetString("HC_CUOTA1") / 6)
|
||||
' l_monto_c2.Text = Round(c.GetString("HC_CUOTA2") / 6)
|
||||
' l_monto_c3.Text = Round(c.GetString("HC_CUOTA3") / 6)
|
||||
' c.Close
|
||||
Else
|
||||
l_monto_c1.Text = 4000
|
||||
l_monto_c2.Text = 2000
|
||||
l_monto_c3.Text = 1000
|
||||
End If
|
||||
d.Close
|
||||
' c=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As PREVENTA from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0", Array As String ("PREVENTA"))
|
||||
' If c.RowCount > 0 Then
|
||||
' c.Position = 0
|
||||
' L_PREVENTA.Text = Subs.traeTotalClientepreventa
|
||||
' If L_PREVENTA.TEXT = "null" Then
|
||||
' L_PREVENTA.Text = "0"
|
||||
' End If
|
||||
' End If
|
||||
' c.Close
|
||||
' c=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As VENTA from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0", Array As String ("VENTA"))
|
||||
' If c.RowCount > 0 Then
|
||||
' c.Position = 0
|
||||
' L_VENTA.Text = Subs.traeTotalClienteventa
|
||||
' If L_VENTA.TEXT = "null" Then
|
||||
' L_VENTA.Text = "0"
|
||||
' End If
|
||||
' End If
|
||||
' c.Close
|
||||
' c=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As ABORDO from pedido where PE_FOLIO = ? AND PE_CLIENTE = ?", Array As String ("ABORDO", "0"))
|
||||
' If c.RowCount > 0 Then
|
||||
' c.Position = 0
|
||||
' L_ABORDO.Text = Subs.traeTotalClienteabordo
|
||||
' If L_ABORDO.TEXT = "null" Then
|
||||
' L_ABORDO.Text = "0"
|
||||
' End If
|
||||
' End If
|
||||
' c.Close
|
||||
' Dim cuantos_obj As String
|
||||
' c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) AS TOTAL from HIST_MARCAS_CUOTAS ")
|
||||
' c.Position = 0
|
||||
' cuantos_obj = c.GetString("TOTAL")
|
||||
' c.Close
|
||||
'
|
||||
' If cuantos_obj > 0 Then
|
||||
' c=B4XPages.MainPage.skmt.ExecQuery("Select SUM( HMC_TOTAL) AS TOTAL from HIST_MARCAS_CUOTAS ")
|
||||
' c.Position = 0
|
||||
' L_NES.Text = c.GetString("TOTAL")
|
||||
' c.Close
|
||||
' End If
|
||||
' L_REAL.Text = l_monto_ks.Text
|
||||
' L_ALCANCE.Text = Round2((L_NES.Text / L_REAL.Text + 1),2)
|
||||
' L_VPLAN.Text = l_porvisitar.Text
|
||||
' L_VREAL.Text = L_CUANTOST.text
|
||||
' L_EFEC_VIS.Text = Round2(L_VREAL.text / L_VPLAN.Text,2)
|
||||
' L_VISITCC.Text = l_cuantosc.text
|
||||
' L_EFEC_PV.Text = Round2(L_VISITCC.Text / L_VREAL.Text,2)
|
||||
' L_EFEC_PURA.Text = Round2(L_VISITCC.Text / L_VPLAN.Text,2)
|
||||
' L_LIN_TICK.Text = LPT
|
||||
' If l_monto_ks.Text <> "0" Then
|
||||
'
|
||||
' c=B4XPages.MainPage.skmt.ExecQuery2("Select COUNT(DISTINCT(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = ? ", Array As String(ALMACEN))
|
||||
' c.Position = 0
|
||||
' L_CTE_PROMO.Text = c.GetString("CUANTOS")
|
||||
' c.Close
|
||||
' d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("PRIORITARIO"))
|
||||
' d.Position = 0
|
||||
' '///////////////////////////////////////////////////////////////////////////////
|
||||
' '//////////////////////////// ULTIMA LINEA ANTES DEL ERROR //////////////////
|
||||
' '////////// java.lang.NullPointerException: Attempt to invoke virtual method 'int java.lang.String.length()' on a null object reference
|
||||
' '
|
||||
' '/// Al parecer d.GetString("MONTO_DIA") regresa null y la funcion numberFormat truena
|
||||
' '/////////////////////////////////////////////////////////////////////////////////
|
||||
' Log("|"&d.GetString("MONTO_DIA")&"|")
|
||||
' 'L_PRIO.Text = NumberFormat(d.GetString("MONTO_DIA"),0,2)
|
||||
' L_PRIO.Text = d.GetString("MONTO_DIA")
|
||||
' d.Close
|
||||
'
|
||||
' d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("ESTRATEGICO"))
|
||||
' d.Position = 0
|
||||
' L_SECUND.Text =d.GetString("MONTO_DIA")
|
||||
' d.Close
|
||||
'
|
||||
' d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("COMPLEMENTARIO"))
|
||||
' d.Position = 0
|
||||
' L_COMP.Text =d.GetString("MONTO_DIA")
|
||||
' d.Close
|
||||
' Else
|
||||
' L_PRIO.Text = "0"
|
||||
' L_SECUND.Text = "0"
|
||||
' L_COMP.Text = "0"
|
||||
' End If
|
||||
'
|
||||
' c=B4XPages.MainPage.skmt.ExecQuery("Select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ")
|
||||
' c.Position = 0
|
||||
' If c.GetString("CUANTOS") > 0 Then
|
||||
' d=B4XPages.MainPage.skmt.ExecQuery("Select sum(pe_cant) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ")
|
||||
' d.Position = 0
|
||||
' L_CTE_PROMO.Text = d.GetString("CUANTOS")
|
||||
' d.Close
|
||||
' L_REDEN_PROMO.TEXT = Round2(L_VISITCC.Text / L_CTE_PROMO.Text,2)
|
||||
' Else
|
||||
' L_CTE_PROMO.Text = 0
|
||||
' L_REDEN_PROMO.Text = 0
|
||||
' End If
|
||||
' c.Close
|
||||
' d=B4XPages.MainPage.skmt.ExecQuery("Select COUNT(*) AS CUANTOS FROM PEDIDO ")
|
||||
' d.Position = 0
|
||||
' L_LIN_TICK.Text = Round2(d.GetString("CUANTOS") / L_VISITCC.Text,2)
|
||||
' d.Close
|
||||
'
|
||||
' d=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOS from HIST_CUOTAS ")
|
||||
' d.Position = 0
|
||||
' If d.GetString("CUANTOS") > 0 Then
|
||||
' ' c=skmt.ExecQuery("Select HC_CUOTA1,HC_CUOTA2,HC_CUOTA3 from HIST_CUOTAS ")
|
||||
' ' c.Position = 0
|
||||
' ' l_monto_c1.Text = Round( c.GetString("HC_CUOTA1") / 6)
|
||||
' ' l_monto_c2.Text = Round(c.GetString("HC_CUOTA2") / 6)
|
||||
' ' l_monto_c3.Text = Round(c.GetString("HC_CUOTA3") / 6)
|
||||
' ' c.Close
|
||||
' Else
|
||||
' l_monto_c1.Text = 4000
|
||||
' l_monto_c2.Text = 2000
|
||||
' l_monto_c3.Text = 1000
|
||||
' End If
|
||||
' d.Close
|
||||
End Sub
|
||||
|
||||
Sub hacer_ped_Click
|
||||
@@ -2823,3 +2859,6 @@ Sub checaPedido
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub p_transResumenDia_Click
|
||||
p_transResumenDia.Visible = False
|
||||
End Sub
|
||||
Binary file not shown.
@@ -208,7 +208,7 @@ Sub MapFragment1_Ready
|
||||
gmap.IsInitialized
|
||||
' todos = 1
|
||||
'permisos
|
||||
|
||||
|
||||
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
|
||||
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
|
||||
gmap.MyLocationEnabled = Result
|
||||
@@ -219,7 +219,7 @@ Sub MapFragment1_Ready
|
||||
'''''''----------------------------MARKER AZUL - POR VISITAR
|
||||
If azul = 1 Or todos = 1 Then
|
||||
c.IsInitialized
|
||||
c=skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_NOMBRE,CAT_CL_LAT,CAT_CL_LONG from kmt_info where gestion = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_LAT <> ' ' and CAT_CL_LONG <> ' ' and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
|
||||
c=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE, CAT_CL_LAT, CAT_CL_LONG from kmt_info where gestion = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_LAT <> ' ' and CAT_CL_LONG <> ' ' and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
|
||||
' skmt.Initialize(ruta,"kmt.db", True)
|
||||
Log($"============== Resultados = ${c.RowCount}"$)
|
||||
If c.RowCount > 0 Then
|
||||
@@ -227,88 +227,119 @@ Sub MapFragment1_Ready
|
||||
c.Position = i
|
||||
' Log($"|${c.GetString("CAT_CL_LONG")}|${c.GetString("CAT_CL_LAT")}|"$)
|
||||
' Log(i&"|"&c.GetString("CAT_CL_LAT")&"|")
|
||||
LatitudRu = 0
|
||||
Log(c.GetString("CAT_CL_CODIGO")&" "& c.GetString("CAT_CL_LAT"))
|
||||
If c.GetString("CAT_CL_LAT") <> "" Then LatitudRu = c.GetString("CAT_CL_LAT")
|
||||
LongitudRU = 0
|
||||
If c.GetString("CAT_CL_LONG") <> "" Then LongitudRU = c.GetString("CAT_CL_LONG")
|
||||
CODIGO=c.GetString("CAT_CL_CODIGO")
|
||||
Tienda= c.GetString("CAT_CL_NOMBRE")
|
||||
MARK_AZUL = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_BLUE)
|
||||
MARK_AZUL.Snippet = Tienda
|
||||
' LatitudRu = 0
|
||||
If c.GetString("CAT_CL_LAT") = Null Or c.GetString("CAT_CL_LAT") = "null" Or c.GetString("CAT_CL_LAT") = "NULL" _
|
||||
Or c.GetString("CAT_CL_LONG") = Null Or c.GetString("CAT_CL_LONG") = "null" Or c.GetString("CAT_CL_LONG") = "NULL" _
|
||||
Then
|
||||
ToastMessageShow($"Tienda con coordenadas incorrectas (${c.GetString("CAT_CL_CODIGO")})"$, False)
|
||||
Else
|
||||
Log(c.GetString("CAT_CL_CODIGO")&" "& c.GetString("CAT_CL_LAT")&", "&c.GetString("CAT_CL_LAT"))
|
||||
If c.GetString("CAT_CL_LAT") <> "" Then LatitudRu = c.GetString("CAT_CL_LAT")
|
||||
LongitudRU = 0
|
||||
If c.GetString("CAT_CL_LONG") <> "" Then LongitudRU = c.GetString("CAT_CL_LONG")
|
||||
CODIGO=c.GetString("CAT_CL_CODIGO")
|
||||
Tienda= c.GetString("CAT_CL_NOMBRE")
|
||||
MARK_AZUL = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_BLUE)
|
||||
MARK_AZUL.Snippet = Tienda
|
||||
Log(LatitudRu & "," & LongitudRU)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
c .Close
|
||||
' Log("4")
|
||||
|
||||
If MARK_AZUL.IsInitialized Then LIST_AZUL.Add(MARK_AZUL)
|
||||
End If
|
||||
'''''''----------------------------MARKER VERDE - VENTA
|
||||
If verde = 1 Or todos = 1 Then
|
||||
c2.IsInitialized
|
||||
c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1 UNION select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info2 where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
|
||||
c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1 UNION select CAT_CL_CODIGO, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT from kmt_info2 where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
|
||||
Log($"============== Resultados = ${c2.RowCount}"$)
|
||||
For i = 0 To c2.RowCount -1
|
||||
c2.Position = i
|
||||
' Log($"|${c2.GetString("CAT_CL_LONG")}|${c2.GetString("CAT_CL_LAT")}|"$)
|
||||
If IsNumber(c2.GetString("CAT_CL_LONG")) Then
|
||||
If c2.GetString("CAT_CL_LAT") = Null Or c2.GetString("CAT_CL_LAT") = "null" Or c2.GetString("CAT_CL_LAT") = "NULL" _
|
||||
Or c2.GetString("CAT_CL_LONG") = Null Or c2.GetString("CAT_CL_LONG") = "null" Or c2.GetString("CAT_CL_LONG") = "NULL" _
|
||||
Then
|
||||
ToastMessageShow($"Tienda con coordenadas incorrectas (${c.GetString("CAT_CL_CODIGO")})"$, False)
|
||||
Else
|
||||
LongitudRU = c2.GetString("CAT_CL_LONG")
|
||||
LatitudRu = c2.GetString("CAT_CL_LAT")
|
||||
CODIGO=c2.GetString("CAT_CL_CODIGO")
|
||||
Tienda= c2.GetString("CAT_CL_NOMBRE")
|
||||
MARK_VERDE = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO,gmap.HUE_GREEN)
|
||||
MARK_VERDE.Snippet = Tienda
|
||||
Log(LatitudRu & "," & LongitudRU)
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
If verde = 1 Or todos = 1 Then
|
||||
c2.IsInitialized
|
||||
c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
|
||||
c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE, CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
|
||||
Log($"============== Resultados = ${c2.RowCount}"$)
|
||||
For i = 0 To c2.RowCount -1
|
||||
c2.Position = i
|
||||
' Log($"|${c2.GetString("CAT_CL_LONG")}|${c2.GetString("CAT_CL_LAT")}|"$)
|
||||
LongitudRU = c2.GetString("CAT_CL_LONG")
|
||||
LatitudRu = c2.GetString("CAT_CL_LAT")
|
||||
CODIGO=c2.GetString("CAT_CL_CODIGO")
|
||||
Tienda= c2.GetString("CAT_CL_NOMBRE")
|
||||
MARK_VERDE = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO,gmap.HUE_GREEN)
|
||||
MARK_VERDE.Snippet = Tienda
|
||||
If c2.GetString("CAT_CL_LAT") = Null Or c2.GetString("CAT_CL_LAT") = "null" Or c2.GetString("CAT_CL_LAT") = "NULL" _
|
||||
Or c2.GetString("CAT_CL_LONG") = Null Or c2.GetString("CAT_CL_LONG") = "null" Or c2.GetString("CAT_CL_LONG") = "NULL" _
|
||||
Then
|
||||
ToastMessageShow($"Tienda con coordenadas incorrectas (${c.GetString("CAT_CL_CODIGO")})"$, False)
|
||||
Else
|
||||
LongitudRU = c2.GetString("CAT_CL_LONG")
|
||||
LatitudRu = c2.GetString("CAT_CL_LAT")
|
||||
CODIGO=c2.GetString("CAT_CL_CODIGO")
|
||||
Tienda= c2.GetString("CAT_CL_NOMBRE")
|
||||
MARK_VERDE = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO,gmap.HUE_GREEN)
|
||||
MARK_VERDE.Snippet = Tienda
|
||||
Log(LatitudRu & "," & LongitudRU)
|
||||
End If
|
||||
Next
|
||||
c2 .Close
|
||||
If MARK_VERDE.IsInitialized Then LIST_VERDE.Add(MARK_VERDE)
|
||||
End If
|
||||
End If
|
||||
' '''''''----------------------------MARKER ROJO - NO VENTA
|
||||
|
||||
|
||||
If rojo = 1 Or todos = 1 Then
|
||||
c3.IsInitialized
|
||||
c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
|
||||
c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
|
||||
Log($"============== Resultados = ${c3.RowCount}"$)
|
||||
For i = 0 To c3.RowCount -1
|
||||
c3.Position = i
|
||||
' Log($"|${c3.GetString("CAT_CL_LONG")}|${c3.GetString("CAT_CL_LAT")}|"$)
|
||||
LongitudRU = c3.GetDouble("CAT_CL_LONG")
|
||||
LatitudRu = c3.GetDouble("CAT_CL_LAT")
|
||||
CODIGO = c3.GetString("CAT_CL_CODIGO")
|
||||
Tienda= c3.GetString("CAT_CL_NOMBRE")
|
||||
MARK_ROJO = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_RED)
|
||||
MARK_ROJO.Snippet = Tienda
|
||||
Next
|
||||
Else
|
||||
If rojo = 1 Or todos = 1 Then
|
||||
c3.IsInitialized
|
||||
c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
|
||||
Log($"============== Resultados = ${c3.RowCount}"$)
|
||||
For i = 0 To c3.RowCount -1
|
||||
c3.Position = i
|
||||
' Log($"|${c3.GetString("CAT_CL_LONG")}|${c3.GetString("CAT_CL_LAT")}|"$)
|
||||
If c3.GetString("CAT_CL_LAT") = Null Or c3.GetString("CAT_CL_LAT") = "null" Or c3.GetString("CAT_CL_LAT") = "NULL" _
|
||||
Or c3.GetString("CAT_CL_LONG") = Null Or c3.GetString("CAT_CL_LONG") = "null" Or c3.GetString("CAT_CL_LONG") = "NULL" _
|
||||
Then
|
||||
ToastMessageShow($"Tienda con coordenadas incorrectas (${c.GetString("CAT_CL_CODIGO")})"$, False)
|
||||
Else
|
||||
LongitudRU = c3.GetDouble("CAT_CL_LONG")
|
||||
LatitudRu = c3.GetDouble("CAT_CL_LAT")
|
||||
CODIGO = c3.GetString("CAT_CL_CODIGO")
|
||||
Tienda= c3.GetString("CAT_CL_NOMBRE")
|
||||
MARK_ROJO = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_RED)
|
||||
MARK_ROJO.Snippet = Tienda
|
||||
Log(LatitudRu & "," & LongitudRU)
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
If rojo = 1 Or todos = 1 Then
|
||||
c3.IsInitialized
|
||||
c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
|
||||
Log($"============== Resultados = ${c3.RowCount}"$)
|
||||
For i = 0 To c3.RowCount -1
|
||||
c3.Position = i
|
||||
' Log($"|${c3.GetString("CAT_CL_LONG")}|${c3.GetString("CAT_CL_LAT")}|"$)
|
||||
If c3.GetString("CAT_CL_LAT") = Null Or c3.GetString("CAT_CL_LAT") = "null" Or c3.GetString("CAT_CL_LAT") = "NULL" _
|
||||
Or c3.GetString("CAT_CL_LONG") = Null Or c3.GetString("CAT_CL_LONG") = "null" Or c3.GetString("CAT_CL_LONG") = "NULL" _
|
||||
Then
|
||||
ToastMessageShow($"Tienda con coordenadas incorrectas (${c.GetString("CAT_CL_CODIGO")})"$, False)
|
||||
Else
|
||||
LongitudRU = c3.GetDouble("CAT_CL_LONG")
|
||||
LatitudRu = c3.GetDouble("CAT_CL_LAT")
|
||||
CODIGO = c3.GetString("CAT_CL_CODIGO")
|
||||
Tienda= c3.GetString("CAT_CL_NOMBRE")
|
||||
MARK_ROJO = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_RED)
|
||||
Log(LatitudRu & "," & LongitudRU)
|
||||
MARK_ROJO.Snippet = Tienda
|
||||
End If
|
||||
Next
|
||||
If MARK_ROJO.IsInitialized Then LIST_ROJO.Add(MARK_ROJO)
|
||||
c3.Close
|
||||
@@ -320,7 +351,7 @@ Sub MapFragment1_Ready
|
||||
' If MARK_VERDE.Visible Or MARK_ROJO.Visible Then
|
||||
' MARK_CEDIS.Remove
|
||||
' End If
|
||||
' Log("Centramos camara " & LatitudRu & ", " & LongitudRU)
|
||||
Log("Centramos camara " & LatitudRu & ", " & LongitudRU)
|
||||
Dim aa As CameraPosition
|
||||
aa.Initialize(LatitudRu, LongitudRU, 15) ''' RECOMENDABLE CAMBIAR A 10 PARA QUE SE VEAN MAS MARCADORES
|
||||
gmap.AnimateCamera(aa)
|
||||
|
||||
@@ -93,7 +93,7 @@ Sub Service_Destroy
|
||||
End Sub
|
||||
|
||||
Sub ENVIA_ULTIMA_GPS
|
||||
Dim logger As Boolean = False
|
||||
Dim logger As Boolean = True
|
||||
If logger Then LogColor("Iniciamos ENVIA_ULTIMA_GPS", Colors.Magenta)
|
||||
Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
@@ -102,9 +102,37 @@ Sub ENVIA_ULTIMA_GPS
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_ADM_ACTUAL2_GPS"
|
||||
|
||||
' En el campo CAT_RU_MONTO_ACT necesito que Me mandes el monto total de peso que llevan al momento. 1
|
||||
' En el campo CAT_RU_TTOTAL_ACT necesito saber si Me estas mandando los clientes totales por día. 4
|
||||
' En el campo CAT_RU_TVISIT_ACT necesito que Me mandes el total de visitas realizadas. 2
|
||||
' En el campo CAT_RU_TVENTA_ACT necesito que Me mandes el total de visitas con venta. 3
|
||||
|
||||
Private totalPesoActual As String = 0
|
||||
Private conVenta As String = 0
|
||||
Private visitados As String = 0
|
||||
Private totalAVisitar As String = 0
|
||||
|
||||
Private utr As Cursor = skmt.ExecQuery($"select sum(pe_peso) as totalPesoActual,
|
||||
(select count(pe_cliente) from pesos where pe_tipo = 'VENTA') as conVenta,
|
||||
(select count(distinct pe_cliente) from pesos) as visitados,
|
||||
(select count(cat_cl_codigo) from kmt_info) as totalAVisitar
|
||||
from pesos"$)
|
||||
If utr.RowCount > 0 Then
|
||||
utr.position = 0
|
||||
If logger Then Log("totalPesoActual: " & utr.GetString("totalPesoActual"))
|
||||
totalPesoActual = utr.GetString("totalPesoActual")
|
||||
conVenta = utr.GetString("conVenta")
|
||||
If logger Then Log("conVenta: " & utr.GetString("conVenta"))
|
||||
visitados = utr.GetString("visitados")
|
||||
If logger Then Log("visitados: " & utr.GetString("visitados"))
|
||||
totalAVisitar = utr.GetString("totalAVisitar")
|
||||
If logger Then Log("totalAVisitar: " & utr.GetString("totalAVisitar"))
|
||||
End If
|
||||
|
||||
If B4XPages.MainPage.lat_gps.Length < 15 Then B4XPages.MainPage.lat_gps = B4XPages.MainPage.lat_gps&"0"
|
||||
cmd.Parameters = Array As Object(B4XPages.MainPage.montoActual, B4XPages.MainPage.clientestotal, B4XPages.MainPage.clientesventa,B4XPages.MainPage.clientesvisitados,B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,B4XPages.MainPage.batt,0, 0, 0,B4XPages.MainPage.ALMACEN,B4XPages.MainPage.rutapreventa)
|
||||
If logger Then Log($"montoActual: ${B4XPages.MainPage.montoActual}, cTotal: ${B4XPages.MainPage.clientestotal}, cVenta: ${B4XPages.MainPage.clientesventa}, cVisitados: ${B4XPages.MainPage.clientesvisitados}, ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}, Batt: ${B4XPages.MainPage.batt}, 0, 0, 0, Almacen: ${B4XPages.MainPage.ALMACEN}, Ruta: ${B4XPages.MainPage.rutapreventa}"$)
|
||||
cmd.Parameters = Array As Object(totalPesoActual, visitados, conVenta, totalAVisitar, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, B4XPages.MainPage.batt, 0, 0, 0, B4XPages.MainPage.ALMACEN, B4XPages.MainPage.rutapreventa)
|
||||
If logger Then Log($"Ruta: ${B4XPages.MainPage.rutapreventa}, pesoActual: ${totalPesoActual}, cTotal: ${totalAVisitar}, cVenta: ${conVenta}, cVisitados: ${visitados}, ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}, Batt: ${B4XPages.MainPage.batt}, 0, 0, 0, Almacen: ${B4XPages.MainPage.ALMACEN}, Ruta: ${B4XPages.MainPage.rutapreventa}"$)
|
||||
reqManager.ExecuteCommand(cmd, "ubicacionTiempoReal")
|
||||
skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
|
||||
'Reiniciamos el timer para cuando llamamos el Sub desde "seleccion"
|
||||
|
||||
Reference in New Issue
Block a user