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

- VERSION 4.11.20

Browse Source 
- Se modificó el codigo de carga local (proyecto recuperacion) para que por default restaure el respaldo del día ANTERIOR
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-11-28 15:13:47 -06:00
parent 9cc4023549
commit 0240086367
5 changed files with 22 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
B4A/B4XMainPage.bas
View File

@@ -755,6 +755,10 @@ Private Sub b_cargaLocalOk_Click
p_cargaLocal.Visible = False
' Log(et_cargaLocal.Text.Length > pass1.Length)
Log(et_cargaLocal.text)
If et_cargaLocal.Text.Length = pass1.Length Then et_cargaLocal.text = et_cargaLocal.text & "-1"
Log(et_cargaLocal.text)
' RD_fechaRestauracion - Si esta en blanco, la fecha de restauracion es HOY, si no, es la especificada en "ticks".
kh.RD_fechaRestauracion = ""
@@ -780,11 +784,12 @@ Private Sub b_cargaLocalOk_Click
Msgbox($"Se va a restaurar el respaldo de la fecha: ${fechaRes}"$, "AVISO")
kh.revisaRkmtAttached
kh.RD_restaura_cat_gunaprod
kh.RD_restaura_cat_variables
kh.RD_restaura_cat_gunaprod
kh.RD_restaura_cat_gunaprod2
kh.RD_restaura_cat_detalle_paq
kh.RD_restaura_promos_comp
Sleep(500)
kh.RD_restaura_kmt_info
ime.HideKeyboard

5
B4A/C_Cliente.bas
View File

@@ -656,8 +656,9 @@ Sub B4XPage_Appear
' If Logger Then Log(mPromoEspecial.Get("esValida"))
If Subs.traeUltimaActividadBD = "Productos" Then 'Venimos de "Productos"
If logger Then Log("Venimos de Productos")
If l_total.Text <> Null And mPromoEspecial.Get("montoPromo") <> Null And l_total.Text > ((mPromoEspecial.Get("montoPromo") * (100 - mPromoEspecial.Get("rangoPromo")))/100) And _
l_total.Text <= mPromoEspecial.Get("montoPromo") Then 'El monto de la venta esta dentro del rango para la promo.
If l_total.Text <> Null And mPromoEspecial.Get("montoPromo") <> Null And _
l_total.Text > ((mPromoEspecial.Get("montoPromo") * (100 - mPromoEspecial.Get("rangoPromo")))/100) And _ 'El total es el porcentaje de rango MENOR al total de la venta
l_total.Text <= mPromoEspecial.Get("montoPromo") Then 'El monto de la venta esta dentro del rango para la promo.
If logger Then Log("Promo dentro del rango")
Msgbox($"Si la venta sobrepasa los $${mPromoEspecial.Get("montoPromo")} se activa la promoción '${mPromoEspecial.Get("descrPromo")}'"$, "CASI EN RANGO DE PROMO ESPECIAL") 'ignore
Else

4
B4A/C_Principal.bas
View File

@@ -2262,6 +2262,10 @@ Sub e_ruta_EnterPressed
End If
End Sub
Sub kh_corriBatch
Log("respaldo corrido!!")
End Sub
Sub inv_Click
img2.Visible =True
EJECUTANDO = 1

6
B4A/KelloggsV4.b4a.meta
View File

@@ -63,7 +63,7 @@ ModuleBreakpoints9=
ModuleClosedNodes0=
ModuleClosedNodes1=
ModuleClosedNodes10=
ModuleClosedNodes11=3,25
ModuleClosedNodes11=
ModuleClosedNodes12=3,5,6,7,8,9
ModuleClosedNodes13=1,5
ModuleClosedNodes14=
@@ -76,7 +76,7 @@ ModuleClosedNodes2=
ModuleClosedNodes20=
ModuleClosedNodes21=
ModuleClosedNodes22=
ModuleClosedNodes23=1,5,8,11,19
ModuleClosedNodes23=1,3,5,6,7,8,9,11,12,13,14,15,17,18,19,21,22,24,25,26,27,28,29,30,31,32,33,35
ModuleClosedNodes24=
ModuleClosedNodes25=
ModuleClosedNodes26=
@@ -91,6 +91,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=Subs,generaGUID_EnExterno,1891,0,Main,Globals,28,0,Main,Process_Globals,26,0,Main,Activity_Create,34,0,B4XMainPage,b_cargaLocalOk_Click,740,6,B4XMainPage,B4XPage_Created,361,0,kms_helperSubs,revisaSiExisteRespaldo,92,0,kms_helperSubs,RD_copiaRespaldoDiario,529,6,kms_helperSubs,RD_respaldoBatch,526,0,C_Principal,B4XPage_Appear,514,3
NavigationStack=C_Cliente,gest_Click,866,0,C_Principal,B_PROXIMA_Click,2696,0,C_Cliente,B_VENTA_Click,2170,0,C_Cliente,B_IMP_INVBAK_Click,3230,0,Subs,traeTablaProds,1624,0,Visual Designer,checklist.bal,-100,3,Subs,guardaCambiosDeProducto,1607,0,Subs,traeFechaDeBD,1620,0,C_Principal,JobDone,2052,0,B4XMainPage,B4XPage_Created,169,0,B4XMainPage,b_cargaLocalOk_Click,752,6
SelectedBuild=0
VisibleModules=1,28,11,3,29,12,4,13,23,7

11
B4A/kms_helperSubs.bas
View File

@@ -193,20 +193,21 @@ End Sub
'RD - Copia la tabla CAT_GUNAPROD de rkmt.db al celular.
Sub RD_restaura_cat_gunaprod
Private inicio As String = DateTime.Now
' Log("Restaurando CAT_GUNAPROD ...")
' Log($"FECHA RESTAURACION: ${RD_fechaRestauracion}"$)
Log("Restaurando CAT_GUNAPROD ...")
Log($"FECHA RESTAURACION: ${RD_fechaRestauracion}"$)
fechaRestauracion = RD_fechaRestauracionSQL(RD_fechaRestauracion)
Private lasCols As String = getTableColumnListName(rkmt, "CAT_GUNAPROD")
Log(">>>>>>>> fechaRestauracion GP: " & fechaRestauracion)
lasCols = lasCols.Replace(", FECHA", "") 'Quitamos la imagen del respaldo.
Private c As Cursor = rkmt.ExecQuery($"select distinct fecha from CAT_GUNAPROD ${fechaRestauracion} order by fecha desc"$) ' where fecha <> '${fechaHoy}' 'Traemos la ultima fecha antes de hoy.
' Log(c.RowCount)
Log($"select distinct fecha from CAT_GUNAPROD ${fechaRestauracion} order by fecha desc"$)
Log(c.RowCount)
If c.RowCount > 0 Then
c.Position = 0
' Log(c.GetString("FECHA"))
skmt.ExecNonQuery("delete from CAT_GUNAPROD")
skmt.ExecNonQuery($"insert into CAT_GUNAPROD (${lasCols}) select ${lasCols} from rkmt1.CAT_GUNAPROD where fecha = '${c.GetString("FECHA")}'"$)
' Log($"insert into CAT_GUNAPROD (${lasCols}) select ${lasCols} from rkmt1.CAT_GUNAPROD where fecha = '${c.GetString("FECHA")}'"$)
Log($"insert into CAT_GUNAPROD (${lasCols}) select ${lasCols} from rkmt1.CAT_GUNAPROD where fecha = '${c.GetString("FECHA")}'"$)
Else
If fechaRestauracion.Length > 0 Then
ToastMessageShow($"No hay respaldo GP para la fecha ${fechaRestauracion.SubString(fechaRestauracion.Length - 10)}"$, True)
@@ -467,7 +468,7 @@ Sub RD_restaura_promos_comp
End If
End If
c.Close
Log("R-KMT: " & ((DateTime.Now - inicio)/1000) & " segs")
Log("R-PC: " & ((DateTime.Now - inicio)/1000) & " segs")
End Sub
'RD - Copia la tabla cat_rmi a rkmt.db en la tarjeta del celular.