mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-20 19:49:12 +00:00
Cambios para Respaldo Diario
-Se agregó codigo para restaurar el respaldo.
This commit is contained in:
@@ -20,6 +20,7 @@ Version=9.85
|
||||
'###########################################################################################################
|
||||
#End Region
|
||||
|
||||
|
||||
'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\
|
||||
|
||||
Sub Class_Globals
|
||||
@@ -41,6 +42,8 @@ Sub Class_Globals
|
||||
Public promos As C_Promos
|
||||
Public historico As C_Historico
|
||||
Public checklist As C_CheckList
|
||||
Dim kh As kms_helperSubs
|
||||
Dim ime As IME
|
||||
|
||||
Dim reqManager As DBRequestManager
|
||||
Dim ultimaActualizacionGPS As String = 235959
|
||||
@@ -94,6 +97,11 @@ Sub Class_Globals
|
||||
Private b_envioBD As Button
|
||||
Dim MES1 As ManageExternalStorage
|
||||
Dim device As Phone
|
||||
Private b_cargaLocal As Button
|
||||
Private p_cargaLocal As Panel
|
||||
Private et_cargaLocal As EditText
|
||||
Private b_cargaLocalOk As Button
|
||||
Private b_cargaLocalCancelar As Button
|
||||
End Sub
|
||||
|
||||
Public Sub Initialize
|
||||
@@ -109,6 +117,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
Root = Root1
|
||||
' Root.LoadLayout("MainPage")
|
||||
Root.LoadLayout("login")
|
||||
kh.Initialize(Me, "kh")
|
||||
B4XPages.SetTitle(Me, "Kelloggs Preventa")
|
||||
login.Initialize
|
||||
B4XPages.AddPage("Login", login)
|
||||
@@ -168,25 +177,28 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PEDIDO_DOE (PE_PRECIO2 TEXT,PE_TIPO TEXT,PE_FOLIO NUMERIC,PE_DESC NUMERIC,PE_COSTO_SIN TEXT,PE_RUTA TEXT,PE_CEDIS TEXT,PE_COSTO_TOT NUMERIC,PE_COSTOU NUMERIC,PE_CANT NUMERIC,PE_PRONOMBRE TEXT,PE_PROID TEXT,PE_CLIENTE TEXT,PE_FECHA TEXT,PE_USUARIO TEXT)")
|
||||
''' FIN DOE
|
||||
|
||||
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "IMPRESION" en la tabla
|
||||
c=Starter.skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('kmt_info') WHERE name='IMPRESION'")
|
||||
c.Position = 0
|
||||
If c.GetString("fCol") = 0 Then 'Si no esta la columna FECHA la agregamos
|
||||
Starter.skmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN IMPRESION INTEGER")
|
||||
End If
|
||||
Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
|
||||
Try
|
||||
Starter.skmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN IMPRESION INTEGER")
|
||||
Catch
|
||||
Log(LastException)
|
||||
End Try
|
||||
End Try
|
||||
Try 'Agregamos columna fecha a usuarioa
|
||||
c=Starter.skmt.ExecQuery("SELECT fecha FROM usuarioa")
|
||||
Catch
|
||||
LogColor("Agregamos columna fecha a usuarioa", Colors.red)
|
||||
Starter.skmt.ExecNonQuery("ALTER TABLE usuarioa ADD COLUMN FECHA TEXT")
|
||||
End Try
|
||||
kh.agregaColumna(Starter.skmt, "kmt_info", "IMPRESION", "INTEGER")
|
||||
kh.agregaColumna(Starter.skmt, "USUARIOA", "FECHA", "TEXT")
|
||||
|
||||
' Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "IMPRESION" en la tabla
|
||||
' c=Starter.skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('kmt_info') WHERE name='IMPRESION'")
|
||||
' c.Position = 0
|
||||
' If c.GetString("fCol") = 0 Then 'Si no esta la columna FECHA la agregamos
|
||||
' Starter.skmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN IMPRESION INTEGER")
|
||||
' End If
|
||||
' Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
|
||||
' Try
|
||||
' Starter.skmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN IMPRESION INTEGER")
|
||||
' Catch
|
||||
' Log(LastException)
|
||||
' End Try
|
||||
' End Try
|
||||
' Try 'Agregamos columna fecha a usuarioa
|
||||
' c=Starter.skmt.ExecQuery("SELECT fecha FROM usuarioa")
|
||||
' Catch
|
||||
' LogColor("Agregamos columna fecha a usuarioa", Colors.red)
|
||||
' Starter.skmt.ExecNonQuery("ALTER TABLE usuarioa ADD COLUMN FECHA TEXT")
|
||||
' End Try
|
||||
' If sDate = "20190523" Then
|
||||
' Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER"))
|
||||
' Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER", Starter.DBReqServer))
|
||||
@@ -328,6 +340,7 @@ Sub B4XPage_Appear
|
||||
Wait For MES_StorageAvailable
|
||||
End If
|
||||
End If
|
||||
kh.RD_Init
|
||||
' server = "http://keymon.com.mx:1782"
|
||||
' server = "http://201.99.139.28:1782"
|
||||
' server = "http://177.244.63.54:1782"
|
||||
@@ -668,3 +681,40 @@ Private Sub b_envioBD_Click
|
||||
in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
|
||||
StartActivity(in)
|
||||
End Sub
|
||||
|
||||
Private Sub b_cargaLocal_Click
|
||||
p_cargaLocal.left = (Root.Width / 2) - (p_cargaLocal.Width / 2)
|
||||
p_cargaLocal.BringToFront
|
||||
p_cargaLocal.Elevation = 100dip
|
||||
p_cargaLocal.Top = E_SERVER.top
|
||||
p_cargaLocal.Visible = True
|
||||
' kh.string2date("10/03/2023")
|
||||
Log("CL" & (3 * DateTime.GetDayOfMonth(DateTime.now)) & (DateTime.GetMonth(DateTime.now) * 4))
|
||||
End Sub
|
||||
|
||||
Private Sub p_cargaLocal_Click
|
||||
End Sub
|
||||
|
||||
Private Sub b_cargaLocalOk_Click
|
||||
Private pass1 As String = "CL" & (3 * DateTime.GetDayOfMonth(DateTime.now)) & (DateTime.GetMonth(DateTime.now) * 4)
|
||||
If et_cargaLocal.Text = pass1 Then
|
||||
p_cargaLocal.Visible = False
|
||||
' Starter.skmt.ExecNonQuery("delete from CAT_GUNAPROD")
|
||||
' Log("OK")
|
||||
' kh.string2date("10/03/2023")
|
||||
kh.revisaRkmtAttached
|
||||
kh.RD_restaura_cat_gunaprod
|
||||
kh.RD_restaura_cat_gunaprod2
|
||||
kh.RD_restaura_cat_detalle_paq
|
||||
kh.RD_restaura_kmt_info
|
||||
ime.HideKeyboard
|
||||
ToastMessageShow("¡¡CARGA EXITOSA!!", True)
|
||||
Else
|
||||
ToastMessageShow("CODIGO EQUIVOCADO", True)
|
||||
End If
|
||||
et_cargaLocal.Text = ""
|
||||
End Sub
|
||||
|
||||
Private Sub b_cargaLocalCancelar_Click
|
||||
p_cargaLocal.Visible = False
|
||||
End Sub
|
||||
Reference in New Issue
Block a user