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

- VERSION 5.08.29

Browse Source 
- Se limpió la pantalla de "Resumen Dia".
- Se revisó que se envien bien los datos de la ubicacion en tiempo real a CAT_RUTAS
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-08-29 17:23:58 -06:00
parent 36012f89ec
commit 2a64f8cb6e
5 changed files with 257 additions and 193 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/ADM.b4a
View File

@@ -1121,7 +1121,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: ADM #ApplicationLabel: ADM
#VersionCode: 1 #VersionCode: 1
#VersionName: 5.08.28 #VersionName: 5.08.29
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

4
B4A/ADM.b4a.meta
View File

@@ -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= ModuleClosedNodes28=
ModuleClosedNodes29= ModuleClosedNodes29=
ModuleClosedNodes3= ModuleClosedNodes3=
ModuleClosedNodes30= ModuleClosedNodes30=4,5,6,7,8
ModuleClosedNodes31= ModuleClosedNodes31=
ModuleClosedNodes32=15,16,17,18,19 ModuleClosedNodes32=15,16,17,18,19
ModuleClosedNodes4= ModuleClosedNodes4=
@@ -97,6 +97,6 @@ ModuleClosedNodes6=4,6,7,8,9,10,11,12,13,15,19,21
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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=C_Principal,B4XPage_Created,239,6,C_Principal,p_transResumenDia_Click,2826,1,C_Principal,B4XPage_CloseRequest,2091,4,C_Principal,JobDone,2088,0,C_Principal,B4XPage_Appear,416,5,Starter,Process_Globals,18,0,Starter,ENVIA_ULTIMA_GPS,98,6,Diseñador Visual,principal.bal,-100,6,C_Principal,resdia_Click,2426,6,Main,Activity_Create,29,0,Main,Process_Globals,20,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=30,2,14,5,6,19,31,27,18 VisibleModules=30,2,14,5,6,19,31,27,18

410
B4A/C_Principal.bas
View File

@@ -223,6 +223,12 @@ Sub Class_Globals
Dim q_buscar As String Dim q_buscar As String
Private et_buspc As EditText Private et_buspc As EditText
Private Panel9 As Panel 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 End Sub
'You can add more parameters here. '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_ctast.Text = d.GetString("TOTAL_VISITAR")
l_porvisitar.Text = e.GetString("POR_VISITAR") l_porvisitar.Text = e.GetString("POR_VISITAR")
Else 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") b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
'where pc_fecha = ?", Array As String(fecha) 'where pc_fecha = ?", Array As String(fecha)
c.Position=0 c.Position=0
@@ -308,14 +315,15 @@ Private Sub B4XPage_Created (Root1 As B4XView)
l_rutasuplencia.Visible = True l_rutasuplencia.Visible = True
l_rutasuplencia.Text = s.GetString("RS_RUTA") l_rutasuplencia.Text = s.GetString("RS_RUTA")
End If End If
p_mandaInfo.Top = 0 : p_mandaInfo.Left = 0 p_mandaInfo.Top = 0 : p_mandaInfo.Left = 0
Panel5.Top = 0 : Panel5.Left = 0 Panel5.Top = 0 : Panel5.Left = 0
P_RESUMEN.Top = 0 : P_RESUMEN.Left = 0 P_RESUMEN.Top = 0 : P_RESUMEN.Left = 0
SCROLL_RESDIA.Top = 0 : SCROLL_RESDIA.Left = 0 SCROLL_RESDIA.Top = 0 : SCROLL_RESDIA.Left = 0
SCROLL_RESDIA.Height = Root.Height * 0.9 SCROLL_RESDIA.Height = Root.Height * 0.9
SCROLL_RESDIA.Left = (Root.Width / 2) - (SCROLL_RESDIA.Width / 2) SCROLL_RESDIA.Left = (Root.Width / 2) - (SCROLL_RESDIA.Width / 2)
p_transResumenDia.Left = 0 : p_transResumenDia.top = 0
p_transResumenDia.Height = Root.Height : p_transResumenDia.Width = Root.Width
Subs.centraPanel(p_resumenDia, Root.Width)
Starter.Skmt.ExecNonQuery($"create table if not exists kmt_info2 (${getTableColumnList(Starter.skmt, "kmt_info")})"$) Starter.Skmt.ExecNonQuery($"create table if not exists kmt_info2 (${getTableColumnList(Starter.skmt, "kmt_info")})"$)
End Sub End Sub
@@ -461,13 +469,14 @@ Sub B4XPage_Appear
b.close b.close
Else 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") 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 c.Position=0
b.Position=0 b.Position=0
L_MONTOD.Text = c.GetString("MONTO_DIA") L_MONTOD.Text = c.GetString("MONTO_DIA")
l_cuantosc.Text = c.GetString("CLIENTES_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 D2.Position = 0
LPT = D2.GetString("CUANTOS") / l_cuantosc.Text LPT = D2.GetString("CUANTOS") / l_cuantosc.Text
D2.Close D2.Close
@@ -2090,8 +2099,9 @@ End Sub
Private Sub B4XPage_CloseRequest As ResumableSub Private Sub B4XPage_CloseRequest As ResumableSub
'Return True to close, False to cancel 'Return True to close, False to cancel
If p_transResumenDia.Visible Then
If SCROLL_RESDIA.Visible Then p_transResumenDia.Visible = False
Else If SCROLL_RESDIA.Visible Then
SCROLL_RESDIA.Visible = False SCROLL_RESDIA.Visible = False
B_OK_RES_Click B_OK_RES_Click
Return False Return False
@@ -2413,193 +2423,216 @@ Sub CARGA_Click
End Sub End Sub
Sub resdia_Click Sub resdia_Click
p_principal.Visible = False Private totalPesoActual As String = 0
Btn_Ubicar.Visible=False Private conVenta As String = 0
SCROLL_RESDIA.Visible = True Private visitados As String = 0
SCROLL_RESDIA.Panel.LoadLayout("RESDIA") Private totalAVisitar As String = 0
SCROLL_RESDIA.Panel.Height = Panel4.Height
Panel4.Visible = True
NUEVO.Visible =False Private utr As Cursor = Starter.skmt.ExecQuery($"select sum(pe_peso) as totalPesoActual,
BUSCA.Visible=False (select count(pe_cliente) from pesos where pe_tipo = 'VENTA') as conVenta,
connecta.Visible=False (select count(distinct pe_cliente) from pesos) as visitados,
b_subir.Visible=False (select count(cat_cl_codigo) from kmt_info) as totalAVisitar
b_cargar.Visible=False from pesos"$)
Resumen.Visible= False If utr.RowCount > 0 Then
utr.position = 0
d=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS CUANTOS FROM HIST_ENCUESTA WHERE HE_TIPO = ?", Array As String("TELEFONO")) l_totalPesoActual.text = NumberFormat2(utr.GetString("totalPesoActual"), 0, 2, 0, True)
d.Position = 0 l_conVenta.text = utr.GetString("conVenta")
l_encuesta.Text = d.GetString("CUANTOS") l_visitados.text = utr.GetString("visitados")
d.Close l_totalAVisitar.text = utr.GetString("totalAVisitar")
Log("totalPesoActual: " & utr.GetString("totalPesoActual"))
L_MARCAS.CLEAR Log("conVenta: " & utr.GetString("conVenta"))
d=B4XPages.MainPage.skmt.ExecQuery2("select distinct HE_CLIE AS CLIENTE FROM HIST_ENCUESTA WHERE HE_TIPO = ?", Array As String("TELEFONO")) Log("visitados: " & utr.GetString("visitados"))
If D.RowCount>0 Then Log("totalAVisitar: " & utr.GetString("totalAVisitar"))
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 End If
d.Close
p_transResumenDia.Visible = True
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")) ' p_principal.Visible = False
c.Position = 0 ' Btn_Ubicar.Visible=False
l_monto_k.Text = c.GetString("MONTO_DIA") ' SCROLL_RESDIA.Visible = True
If l_monto_k.Text = "null" Then ' SCROLL_RESDIA.Panel.LoadLayout("RESDIA")
l_monto_k.Text = "0" ' SCROLL_RESDIA.Panel.Height = Panel4.Height
End If ' Panel4.Visible = True
c.Close '
' NUEVO.Visible =False
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")) ' BUSCA.Visible=False
c.Position = 0 ' connecta.Visible=False
l_monto_kp.Text = c.GetString("MONTO_DIA") ' b_subir.Visible=False
If l_monto_kp.Text = "null" Then ' b_cargar.Visible=False
l_monto_kp.Text = "0" ' Resumen.Visible= False
End If '
c.Close ' d=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS CUANTOS FROM HIST_ENCUESTA WHERE HE_TIPO = ?", Array As String("TELEFONO"))
' d.Position = 0
' 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")) ' 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 ' 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 ' If l_monto_ks.Text = "null" Then
' l_monto_ks.Text = "0" ' l_monto_ks.Text = "0"
' End If ' End If
'
' c.Close ' c.Close
c=B4XPages.MainPage.skmt.ExecQuery("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 ") ' 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"))
c.Position = 0 ' If c.RowCount > 0 Then
l_monto_ks.Text = Subs.traeTotalCliente ' c.Position = 0
' L_PREVENTA.Text = Subs.traeTotalClientepreventa
If l_monto_ks.Text = "null" Then ' If L_PREVENTA.TEXT = "null" Then
l_monto_ks.Text = "0" ' L_PREVENTA.Text = "0"
End If ' End If
c.Close ' End If
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")) ' c.Close
If c.RowCount > 0 Then ' 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"))
c.Position = 0 ' If c.RowCount > 0 Then
L_PREVENTA.Text = Subs.traeTotalClientepreventa ' c.Position = 0
If L_PREVENTA.TEXT = "null" Then ' L_VENTA.Text = Subs.traeTotalClienteventa
L_PREVENTA.Text = "0" ' If L_VENTA.TEXT = "null" Then
End If ' L_VENTA.Text = "0"
End If ' End If
c.Close ' End If
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")) ' c.Close
If c.RowCount > 0 Then ' 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"))
c.Position = 0 ' If c.RowCount > 0 Then
L_VENTA.Text = Subs.traeTotalClienteventa ' c.Position = 0
If L_VENTA.TEXT = "null" Then ' L_ABORDO.Text = Subs.traeTotalClienteabordo
L_VENTA.Text = "0" ' If L_ABORDO.TEXT = "null" Then
End If ' L_ABORDO.Text = "0"
End If ' End If
c.Close ' End If
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")) ' c.Close
If c.RowCount > 0 Then ' Dim cuantos_obj As String
c.Position = 0 ' c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) AS TOTAL from HIST_MARCAS_CUOTAS ")
L_ABORDO.Text = Subs.traeTotalClienteabordo ' c.Position = 0
If L_ABORDO.TEXT = "null" Then ' cuantos_obj = c.GetString("TOTAL")
L_ABORDO.Text = "0" ' c.Close
End If '
End If ' If cuantos_obj > 0 Then
c.Close ' c=B4XPages.MainPage.skmt.ExecQuery("Select SUM( HMC_TOTAL) AS TOTAL from HIST_MARCAS_CUOTAS ")
Dim cuantos_obj As String ' c.Position = 0
c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) AS TOTAL from HIST_MARCAS_CUOTAS ") ' L_NES.Text = c.GetString("TOTAL")
c.Position = 0 ' c.Close
cuantos_obj = c.GetString("TOTAL") ' End If
c.Close ' L_REAL.Text = l_monto_ks.Text
' L_ALCANCE.Text = Round2((L_NES.Text / L_REAL.Text + 1),2)
If cuantos_obj > 0 Then ' L_VPLAN.Text = l_porvisitar.Text
c=B4XPages.MainPage.skmt.ExecQuery("Select SUM( HMC_TOTAL) AS TOTAL from HIST_MARCAS_CUOTAS ") ' L_VREAL.Text = L_CUANTOST.text
c.Position = 0 ' L_EFEC_VIS.Text = Round2(L_VREAL.text / L_VPLAN.Text,2)
L_NES.Text = c.GetString("TOTAL") ' L_VISITCC.Text = l_cuantosc.text
c.Close ' L_EFEC_PV.Text = Round2(L_VISITCC.Text / L_VREAL.Text,2)
End If ' L_EFEC_PURA.Text = Round2(L_VISITCC.Text / L_VPLAN.Text,2)
L_REAL.Text = l_monto_ks.Text ' L_LIN_TICK.Text = LPT
L_ALCANCE.Text = Round2((L_NES.Text / L_REAL.Text + 1),2) ' If l_monto_ks.Text <> "0" Then
L_VPLAN.Text = l_porvisitar.Text '
L_VREAL.Text = L_CUANTOST.text ' c=B4XPages.MainPage.skmt.ExecQuery2("Select COUNT(DISTINCT(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = ? ", Array As String(ALMACEN))
L_EFEC_VIS.Text = Round2(L_VREAL.text / L_VPLAN.Text,2) ' c.Position = 0
L_VISITCC.Text = l_cuantosc.text ' L_CTE_PROMO.Text = c.GetString("CUANTOS")
L_EFEC_PV.Text = Round2(L_VISITCC.Text / L_VREAL.Text,2) ' c.Close
L_EFEC_PURA.Text = Round2(L_VISITCC.Text / L_VPLAN.Text,2) ' 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"))
L_LIN_TICK.Text = LPT ' d.Position = 0
If l_monto_ks.Text <> "0" Then ' '///////////////////////////////////////////////////////////////////////////////
' '//////////////////////////// ULTIMA LINEA ANTES DEL ERROR //////////////////
c=B4XPages.MainPage.skmt.ExecQuery2("Select COUNT(DISTINCT(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = ? ", Array As String(ALMACEN)) ' '////////// java.lang.NullPointerException: Attempt to invoke virtual method 'int java.lang.String.length()' on a null object reference
c.Position = 0 ' '
L_CTE_PROMO.Text = c.GetString("CUANTOS") ' '/// Al parecer d.GetString("MONTO_DIA") regresa null y la funcion numberFormat truena
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")) ' Log("|"&d.GetString("MONTO_DIA")&"|")
d.Position = 0 ' 'L_PRIO.Text = NumberFormat(d.GetString("MONTO_DIA"),0,2)
'/////////////////////////////////////////////////////////////////////////////// ' L_PRIO.Text = d.GetString("MONTO_DIA")
'//////////////////////////// ULTIMA LINEA ANTES DEL ERROR ////////////////// ' d.Close
'////////// java.lang.NullPointerException: Attempt to invoke virtual method 'int java.lang.String.length()' on a null object reference '
' ' 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"))
'/// Al parecer d.GetString("MONTO_DIA") regresa null y la funcion numberFormat truena ' d.Position = 0
'///////////////////////////////////////////////////////////////////////////////// ' L_SECUND.Text =d.GetString("MONTO_DIA")
Log("|"&d.GetString("MONTO_DIA")&"|") ' d.Close
'L_PRIO.Text = NumberFormat(d.GetString("MONTO_DIA"),0,2) '
L_PRIO.Text = d.GetString("MONTO_DIA") ' 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.Close ' d.Position = 0
' L_COMP.Text =d.GetString("MONTO_DIA")
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.Close
d.Position = 0 ' Else
L_SECUND.Text =d.GetString("MONTO_DIA") ' L_PRIO.Text = "0"
d.Close ' L_SECUND.Text = "0"
' L_COMP.Text = "0"
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")) ' End If
d.Position = 0 '
L_COMP.Text =d.GetString("MONTO_DIA") ' c=B4XPages.MainPage.skmt.ExecQuery("Select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ")
d.Close ' c.Position = 0
Else ' If c.GetString("CUANTOS") > 0 Then
L_PRIO.Text = "0" ' d=B4XPages.MainPage.skmt.ExecQuery("Select sum(pe_cant) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ")
L_SECUND.Text = "0" ' d.Position = 0
L_COMP.Text = "0" ' L_CTE_PROMO.Text = d.GetString("CUANTOS")
End If ' d.Close
' L_REDEN_PROMO.TEXT = Round2(L_VISITCC.Text / L_CTE_PROMO.Text,2)
c=B4XPages.MainPage.skmt.ExecQuery("Select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ") ' Else
c.Position = 0 ' L_CTE_PROMO.Text = 0
If c.GetString("CUANTOS") > 0 Then ' L_REDEN_PROMO.Text = 0
d=B4XPages.MainPage.skmt.ExecQuery("Select sum(pe_cant) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ") ' End If
d.Position = 0 ' c.Close
L_CTE_PROMO.Text = d.GetString("CUANTOS") ' d=B4XPages.MainPage.skmt.ExecQuery("Select COUNT(*) AS CUANTOS FROM PEDIDO ")
d.Close ' d.Position = 0
L_REDEN_PROMO.TEXT = Round2(L_VISITCC.Text / L_CTE_PROMO.Text,2) ' L_LIN_TICK.Text = Round2(d.GetString("CUANTOS") / L_VISITCC.Text,2)
Else ' d.Close
L_CTE_PROMO.Text = 0 '
L_REDEN_PROMO.Text = 0 ' d=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOS from HIST_CUOTAS ")
End If ' d.Position = 0
c.Close ' If d.GetString("CUANTOS") > 0 Then
d=B4XPages.MainPage.skmt.ExecQuery("Select COUNT(*) AS CUANTOS FROM PEDIDO ") ' ' c=skmt.ExecQuery("Select HC_CUOTA1,HC_CUOTA2,HC_CUOTA3 from HIST_CUOTAS ")
d.Position = 0 ' ' c.Position = 0
L_LIN_TICK.Text = Round2(d.GetString("CUANTOS") / L_VISITCC.Text,2) ' ' l_monto_c1.Text = Round( c.GetString("HC_CUOTA1") / 6)
d.Close ' ' l_monto_c2.Text = Round(c.GetString("HC_CUOTA2") / 6)
' ' l_monto_c3.Text = Round(c.GetString("HC_CUOTA3") / 6)
d=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOS from HIST_CUOTAS ") ' ' c.Close
d.Position = 0 ' Else
If d.GetString("CUANTOS") > 0 Then ' l_monto_c1.Text = 4000
' c=skmt.ExecQuery("Select HC_CUOTA1,HC_CUOTA2,HC_CUOTA3 from HIST_CUOTAS ") ' l_monto_c2.Text = 2000
' c.Position = 0 ' l_monto_c3.Text = 1000
' l_monto_c1.Text = Round( c.GetString("HC_CUOTA1") / 6) ' End If
' l_monto_c2.Text = Round(c.GetString("HC_CUOTA2") / 6) ' d.Close
' 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 End Sub
Sub hacer_ped_Click Sub hacer_ped_Click
@@ -2823,3 +2856,6 @@ Sub checaPedido
End If End If
End Sub End Sub
Private Sub p_transResumenDia_Click
p_transResumenDia.Visible = False
End Sub

BIN
B4A/Files/principal.bal
View File

Binary file not shown.

34
B4A/Starter.bas
View File

@@ -93,7 +93,7 @@ Sub Service_Destroy
End Sub End Sub
Sub ENVIA_ULTIMA_GPS Sub ENVIA_ULTIMA_GPS
Dim logger As Boolean = False Dim logger As Boolean = True
If logger Then LogColor("Iniciamos ENVIA_ULTIMA_GPS", Colors.Magenta) If logger Then LogColor("Iniciamos ENVIA_ULTIMA_GPS", Colors.Magenta)
Dim cmd As DBCommand Dim cmd As DBCommand
' cmd.Initialize ' cmd.Initialize
@@ -102,9 +102,37 @@ Sub ENVIA_ULTIMA_GPS
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "UPDATE_ADM_ACTUAL2_GPS" 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" 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) 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($"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}"$) 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") 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")) 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" 'Reiniciamos el timer para cuando llamamos el Sub desde "seleccion"