cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-21 13:19:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Compare commits

base: cheveguerra:5.05.25
Branches Tags
cheveguerra:master
cheveguerra:5.06.05 cheveguerra:5.05.25
...
compare: cheveguerra:master
Branches Tags
cheveguerra:master
cheveguerra:5.06.05 cheveguerra:5.05.25

3 Commits
5.05.25 ... master

Author SHA1 Message Date
cvaldes1201
9c5d0d7242 5.010.25 2026-02-20 09:46:33 -06:00
Javier
ef1c9fe058 ... 2026-01-14 11:51:55 -06:00
Jose Alberto Guerra Ugalde
ba70f9550e -VERSION 5.06.05 
- Cambio al nuevo servidor
- Envio de informacion a tmp_drop al cargar dia
 2025-06-05 14:12:33 -06:00
6 changed files with 12 additions and 9 deletions
Expand all files Collapse all files

4
B4A/C_Principal.bas
View File

@@ -890,7 +890,7 @@ Sub cargar_Click
cmd.Name ="insert_drop3_DUR"
'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)
' 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 = (?)
'cmd.Initialize
@@ -1220,7 +1220,7 @@ Sub JobDone(Job As HttpJob)
If n = "OKActivo" Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_DUR4" 'Se cambio de "select_ruta_DUR2_2" el 28/5/2024 para poder deshabilitar el query de las versiones anteriores.
cmd.Name = "select_ruta_DUR6" 'Se cambio de "select_ruta_DUR2_2" el 28/5/2024 para poder deshabilitar el query de las versiones anteriores.
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
Log($"${ALMACEN},${e_ruta.text},${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta")

3
B4A/C_Productos.bas
View File

@@ -520,7 +520,8 @@ Private Sub B4XPage_CloseRequest As ResumableSub
Return False
else If entro = "4" Then
entro = "3"
B4XPage_Appear
' B4XPage_Appear178
Subs.iniciaActividad("Cliente")
Return True
Else If entro = "3" Then
Subs.iniciaActividad("Cliente")

2
B4A/Durakelo.b4a
View File

@@ -1409,7 +1409,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Durakelo
#VersionCode: 1
#VersionName: 5.05.25
#VersionName: 5.10.25
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

4
B4A/Durakelo.b4a.meta
View File

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
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=C_Principal,connecta_Click,2005,0,C_Principal,JobDone,1208,0,Subs,agregaColumna,1473,0,Subs,logJobDoneResultados,1465,0,Subs,revisaFechaVigenciaPromo,1492,0,Subs,procesaPromocion,1011,0,C_Productos,lv_catalogos_ItemClick,349,0,C_Productos,lv_catalogos2_ItemClick,423,0,C_Productos,B4XPage_Appear,275,0,C_Productos,Busca_TextChanged,1273,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 Interval As Int = 300
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 tipov As String = ""
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("prodsVariablesCant", prodsVariables.Size)
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(" ")))
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.
@@ -1505,7 +1505,7 @@ Sub revisaFechaVigenciaPromo(pm As Map) As Boolean
DateTime.DateFormat = "yyyyMMdd"
If Starter.tipov = "PREVENTA" Or Starter.tipov = "ABORDO" Then
Private vigencia As String = pm.Get("vigencia").As(String).Replace("-", "")
' Log("|" & vigencia & "|")
Log("-------> |" & vigencia & "|")
If vigencia >= DateTime.Date(DateTime.Now) Then vigente = True
Else if Starter.tipov = "VENTA" Then
Private vigencia As String = pm.Get("vigencia_abordo").As(String).Replace("-", "")