cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-20 12:49:25 +00:00
Code Issues Packages Projects Releases Wiki Activity

-VERSION 5.06.05

Browse Source 
- Cambio al nuevo servidor
- Envio de informacion a tmp_drop al cargar dia
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-06-05 14:12:26 -06:00
parent 2716f80d25
commit ba70f9550e
4 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Principal.bas
View File

@@ -890,7 +890,7 @@ Sub cargar_Click
cmd.Name ="insert_drop3_DUR" cmd.Name ="insert_drop3_DUR"
'cmd.Name = "UPDATE_DUR_ACTUALR2_GPS" 'cmd.Name = "UPDATE_DUR_ACTUALR2_GPS"
cmd.Parameters = Array As Object(usuario, e_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"CARGO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT, Application.VersionName) cmd.Parameters = Array As Object(usuario, e_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"CARGO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT, Application.VersionName)
' reqManager.ExecuteQuery(cmd , 0, "inst_noventa") xxxxxxxxxxxxxxx reqManager.ExecuteCommand(cmd, "ins_drop")
'sql.UPDATE_DUR_ACTUALR2_GPS=UPDATE DURAKELO.CAT_RUTAS_REPARTO SET CAT_RR_MONTO_ACT = (?),CAT_RR_MRECH_ACT =(?),CAT_RR_VISIT_ACT =(?), CAT_RR_DEV_ACT =(?), CAT_RR_LAT_ACT =(?), CAT_RR_LONG_ACT =(?), CAT_RR_BAT_ACT =(?), CAT_RR_TT = (?), CAT_RR_MONTO = (?), CAT_RR_FECHA_ACT = SYSDATE WHERE CAT_RR_IDALMACEN = (?) And CAT_RR_RUTA = (?) 'sql.UPDATE_DUR_ACTUALR2_GPS=UPDATE DURAKELO.CAT_RUTAS_REPARTO SET CAT_RR_MONTO_ACT = (?),CAT_RR_MRECH_ACT =(?),CAT_RR_VISIT_ACT =(?), CAT_RR_DEV_ACT =(?), CAT_RR_LAT_ACT =(?), CAT_RR_LONG_ACT =(?), CAT_RR_BAT_ACT =(?), CAT_RR_TT = (?), CAT_RR_MONTO = (?), CAT_RR_FECHA_ACT = SYSDATE WHERE CAT_RR_IDALMACEN = (?) And CAT_RR_RUTA = (?)
'cmd.Initialize 'cmd.Initialize

4
B4A/Durakelo.b4a.meta
View File

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=Subs,dameErroresJSON,367,0,C_Principal,SUBIR_P_Click,2725,0,C_Principal,cargar_Click,883,0,C_Principal,Subir_Click,558,0,C_Productos,Class_Globals,0,0,Subs,revisaFechaVigenciaPromo,1502,6,Subs,agrupaProdsPromo,1576,0,C_Productos,B4XPage_Appear,278,6,Subs,fechaMenosUnDia,1579,6,Subs,traePromo,851,6 NavigationStack=Main,Activity_ActionBarHomeClick,35,0,Subs,procesaPromocion,1017,0,Subs,traePromo,829,6,Main,Globals,22,0,Subs,revisaFechaVigenciaPromo,1502,6,Tracker,CreateLocationRequest,112,0,Starter,ENVIA_ULTIMA_GPS,89,0,Starter,Process_Globals,20,1,C_Principal,Subir_Click,575,0,C_Principal,cargar_Click,886,2
SelectedBuild=0 SelectedBuild=0
VisibleModules=22,2,10,4,11,23,12,8 VisibleModules=22,2,10,4,11,23,12,8,24

4
B4A/Starter.bas
View File

@@ -26,7 +26,9 @@ Sub Process_Globals
Dim Timer1 As Timer Dim Timer1 As Timer
Dim Interval As Int = 300 Dim Interval As Int = 300
Private flpStarted As Boolean Private flpStarted As Boolean
Dim DBReqServer As String = "http://keymon.lat:1781" ' Dim DBReqServer As String = "http://keymon.lat:1781"
' Dim DBReqServer As String = "http://keymon.net:1781"
Dim DBReqServer As String = "http://192.99.93.204:1781"
Dim FECHA_HOY As String Dim FECHA_HOY As String
Dim tipov As String = "" Dim tipov As String = ""
Dim muestraProgreso = 0 Dim muestraProgreso = 0

4
B4A/Subs.bas
View File

@@ -858,7 +858,7 @@ Sub traePromo(promo As String, cliente As String) As Map
promoMap.Put("prodsFijosPiezas", prodsFijosPiezas) promoMap.Put("prodsFijosPiezas", prodsFijosPiezas)
promoMap.Put("prodsVariablesCant", prodsVariables.Size) promoMap.Put("prodsVariablesCant", prodsVariables.Size)
promoMap.Put("prodsVariablesPrecios", prodsVariablesPrecios) promoMap.Put("prodsVariablesPrecios", prodsVariablesPrecios)
Log("-------> |" & c.GetString("CAT_PA_VIGENCIA_FIN") & "|") Log("ooo -------> |" & c.GetString("CAT_PA_VIGENCIA_FIN") & "|")
' promoMap.Put("vigencia", c.GetString("CAT_PA_VIGENCIA_FIN").SubString2(0, c.GetString("CAT_PA_VIGENCIA_FIN").IndexOf(" "))) ' promoMap.Put("vigencia", c.GetString("CAT_PA_VIGENCIA_FIN").SubString2(0, c.GetString("CAT_PA_VIGENCIA_FIN").IndexOf(" ")))
Private fVigencia As String = fechaMenosUnDia(c.GetString("CAT_PA_VIGENCIA_FIN").SubString2(0, c.GetString("CAT_PA_VIGENCIA_FIN").IndexOf(" "))) Private fVigencia As String = fechaMenosUnDia(c.GetString("CAT_PA_VIGENCIA_FIN").SubString2(0, c.GetString("CAT_PA_VIGENCIA_FIN").IndexOf(" ")))
promoMap.Put("vigencia", fVigencia) ' La vigencia de la preventa debe de ser la especificada MENOS un dia. promoMap.Put("vigencia", fVigencia) ' La vigencia de la preventa debe de ser la especificada MENOS un dia.
@@ -1505,7 +1505,7 @@ Sub revisaFechaVigenciaPromo(pm As Map) As Boolean
DateTime.DateFormat = "yyyyMMdd" DateTime.DateFormat = "yyyyMMdd"
If Starter.tipov = "PREVENTA" Or Starter.tipov = "ABORDO" Then If Starter.tipov = "PREVENTA" Or Starter.tipov = "ABORDO" Then
Private vigencia As String = pm.Get("vigencia").As(String).Replace("-", "") Private vigencia As String = pm.Get("vigencia").As(String).Replace("-", "")
' Log("|" & vigencia & "|") Log("-------> |" & vigencia & "|")
If vigencia >= DateTime.Date(DateTime.Now) Then vigente = True If vigencia >= DateTime.Date(DateTime.Now) Then vigente = True
Else if Starter.tipov = "VENTA" Then Else if Starter.tipov = "VENTA" Then
Private vigencia As String = pm.Get("vigencia_abordo").As(String).Replace("-", "") Private vigencia As String = pm.Get("vigencia_abordo").As(String).Replace("-", "")