cheveguerra/Mariana-Reparto-V5
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana-Reparto-V5.git synced 2026-04-17 12:56:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se corrige la descarga del hist_ventas

Browse Source
This commit is contained in:
Javier
2025-09-26 13:12:45 -06:00
parent c0bdd75fd0
commit a6bd4febba
5 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/B4XMainPage.bas
View File

@@ -204,7 +204,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("CAT_GUNAPROD","PRECIOCONVER","TEXT")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS wayPoints (codigo TEXT, indice INT)")
Dim server As String = "http://187.189.244.154:1781"
Dim server As String = "http://keymon.net:1781"
' Dim server As String = "http://192.168.100.10:1781"
' Dim server As String = "http://keymon.lat:9000"
' server = "http://10.0.0.205:1782"

2
B4A/C_Principal.bas
View File

@@ -1642,7 +1642,7 @@ Sub JobDone(Job As HttpJob)
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS2(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
Else 'Si ya hay ruta cargada, solo guardamos los clientes nuevos.
' Log("Hay ruta, guardamos los nuevos")
Private tc As Cursor = Starter.skmt.ExecQuery($"select HVD_CLIENTE from HIST_VENTAS where HVD_CLIENTE = '${HVD_CLIENTE}' and HVD_PROID = '${HVD_PROID}'"$)
Private tc As Cursor = Starter.skmt.ExecQuery($"select HVD_CLIENTE from HIST_VENTAS where HVD_CLIENTE = '${HVD_CLIENTE}' and HVD_PROID = '${HVD_PROID}' AND HVD_CANT = '${HVD_CANT}' AND HVD_CODPROMO = '${HVD_CODPROMO}'"$)
If tc.RowCount = 0 Then
Log($"Guardamos ${HVD_CLIENTE}"$)
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL, PLACA,BCAJAS,CANTC,CONSECUTIVO,BCAJAS_OR,CANTC_OR) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?,?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PLACA,bcajas,cantc,consecutivo,bcajas,cantc))

2
B4A/Mariana_Reparto.b4a
View File

@@ -214,7 +214,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: MARIANA Reparto
#VersionCode: 1
#VersionName: 5.06.06
#VersionName: 5.09.06
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

4
B4A/Mariana_Reparto.b4a.meta
View File

@@ -91,6 +91,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=8,9
NavigationStack=Diseñador Visual,login.bal,-100,1,B4XMainPage,b_server_Click,579,0,B4XMainPage,b_apk_Click,576,0,B4XMainPage,JobDone,479,0,B4XMainPage,B4XPage_Created,222,6,C_Principal,JobDone,1762,0,C_Principal,B4XPage_Appear,234,0,MAPA_RUTAS,Activity_KeyPress,356,0,B4XMainPage,i_engrane_Click,528,1,MAPA_RUTAS,MapFragment1_Ready,259,4
NavigationStack=B4XMainPage,b_server_Click,579,0,B4XMainPage,b_apk_Click,576,0,B4XMainPage,JobDone,479,0,C_Principal,B4XPage_Appear,234,0,MAPA_RUTAS,Activity_KeyPress,356,0,MAPA_RUTAS,MapFragment1_Ready,259,4,C_Principal,JobDone,1638,0,B4XMainPage,i_engrane_Click,537,1,Starter,Process_Globals,29,0,B4XMainPage,B4XPage_Created,200,6
SelectedBuild=0
VisibleModules=28,2,3,4,5,6,7,8,9,10,21,27,16
VisibleModules=28,2,3,4,5,6,7,8,9,10,27,16

2
B4A/Starter.bas
View File

@@ -33,7 +33,7 @@ Sub Process_Globals
Public SharedFolder As String 'Para actualizar apk
Dim cedisLocation As Location
Dim reqManager As DBRequestManager
Dim server As String = "http://187.189.244.154:1781"
Dim server As String = "http://keymon.net:1781"
' Dim server As String = "http://192.168.100.10:1781"
' Dim server As String = "http://keymon.lat:9000"
' Dim server = "http://192.168.100.10:1781"