cheveguerra/Intmex_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Preventa.git synced 2026-04-19 05:39:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

8/9/23 - Código para respaldo diario

Browse Source 
Se agregó una clase para el respaldo diario en una base de datos en SDCARD/kmts, para usar el almacenamiento externo es necesario usar la clase "ManageExternalStorage".
This commit is contained in:
cheveguerra
2023-09-08 01:11:34 -06:00
parent d0c13fc15e
commit 62b422dd5d
6 changed files with 167 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
B4A/C_Cliente.bas
View File

@@ -235,7 +235,7 @@ Sub B4XPage_Appear
ToastMessageShow("Es necesario tener el GPS encendido", True)
StartActivity(Starter.gps.LocationSettingsIntent)
End If
Log("appear")
' Log("appear")
cb_factura.Checked = False
p_abono.Visible = False
Subs.centraPanel(p_abono, Root.Width)
@@ -492,7 +492,7 @@ Sub Guardar_Click
c.Close
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
c.Position=0
Log("xxxxxxxxxxxxxxx " & c.GetString("CUANTOS"))
' Log("xxxxxxxxxxxxxxx " & c.GetString("CUANTOS"))
If c.GetString("CUANTOS") > 0 Then
Private cbFactura As Int = 0
If cb_factura.Checked Then cbFactura = 1
@@ -864,12 +864,12 @@ Sub mandaPendientes
ab.Close
'CLIENTES NUEVOS
Log("Entre aqui")
' Log("Entre aqui")
Dim bb As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT * from CLIENTE_NUEVO where CN_enviado is null"$)
Dim cb As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT ID_ALMACEN from CAT_ALMACEN")
cb.Position = 0
Log("Entre aqui x2")
Log(bb.RowCount)
' Log("Entre aqui x2")
' Log(bb.RowCount)
If bb.RowCount > 0 Then
For i=0 To bb.RowCount -1
bb.Position = i
@@ -915,7 +915,6 @@ Sub JobDone(Job As HttpJob)
Private cliente As String= resultado.Tag
cliente = cliente.SubString(cliente.IndexOf("_")+24)
Log($"Cliente1:${cliente}"$)
For Each records() As Object In resultado.Rows
For Each k As String In resultado.Columns.Keys
Log(resultado.Tag & ": " & k & ": " & records(resultado.Columns.Get(k)))