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

11/9/23 - Cambio de ligas de Github

Browse Source
This commit is contained in:
cheveguerra
2023-09-11 21:44:55 -06:00
parent c1f86a3573
commit 6d7e09c473
1 changed files with 75 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
B4A/B4XMainPage.bas
View File

@@ -10,12 +10,13 @@ Version=9.85
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip 'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
'########################################################################################################### '###########################################################################################################
'###################### PULL ############################################################# '###################### PULL #############################################################
'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=..\..\gitpull.bat 'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull
'########################################################################################################### '###########################################################################################################
'###################### PUSH ############################################################# '###################### PUSH #############################################################
'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\ 'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=github&Args=..\..\
'########################################################################################################### '###########################################################################################################
#End Region #End Region
'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\
Sub Class_Globals Sub Class_Globals
Private Root As B4XView Private Root As B4XView
@@ -53,7 +54,7 @@ Sub Class_Globals
Private et_nuevaRuta As EditText Private et_nuevaRuta As EditText
Private et_nuevoAlmacen As EditText Private et_nuevoAlmacen As EditText
Private p_clientes As Panel Private p_clientes As Panel
Private lv_clientes As ListView ' Private lv_clientes As ListView
Private clv_clientes As CustomListView Private clv_clientes As CustomListView
Private p_item As Panel Private p_item As Panel
Private l_item As Label Private l_item As Label
@@ -76,6 +77,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.centraPanel(p_editaRuta, Root.Width) Subs.centraPanel(p_editaRuta, Root.Width)
Subs.centraPanel(p_editaAlmacen, Root.Width) Subs.centraPanel(p_editaAlmacen, Root.Width)
Subs.centraPanel(p_clientes, Root.Width) Subs.centraPanel(p_clientes, Root.Width)
ime.Initialize("ime")
End Sub End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -106,6 +108,7 @@ Sub B4XPage_Appear
Log($"Existe BD: ${File.Exists(File.DirInternal, "kmt.db") }"$) Log($"Existe BD: ${File.Exists(File.DirInternal, "kmt.db") }"$)
If File.Exists(File.DirInternal, "kmt.db") Then If File.Exists(File.DirInternal, "kmt.db") Then
If Not(skmt.IsInitialized) Then skmt.Initialize(File.DirInternal,"kmt.db", True) If Not(skmt.IsInitialized) Then skmt.Initialize(File.DirInternal,"kmt.db", True)
Try
Dim ai As Cursor = skmt.ExecQuery($"select CAT_VA_DESCRIPCION, CAT_VA_VALOR from cat_variables where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_VERSION'"$) Dim ai As Cursor = skmt.ExecQuery($"select CAT_VA_DESCRIPCION, CAT_VA_VALOR from cat_variables where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_VERSION'"$)
If ai.RowCount > 1 Then If ai.RowCount > 1 Then
For i = 0 To ai.RowCount -1 For i = 0 To ai.RowCount -1
@@ -115,6 +118,12 @@ Sub B4XPage_Appear
Next Next
l_appInfo.Text = $"${empresa} ${appVersion}"$ l_appInfo.Text = $"${empresa} ${appVersion}"$
End If End If
ai.Close
Catch
Log(LastException)
LogColor("Error en CAT_VARIABLES", Colors.red)
End Try
Try
Dim c As Cursor = skmt.ExecQuery($"select count(distinct pe_cliente) as pedidos, group_concat(distinct substr(pe_fecha, 4,2)) as diasVenta, sum(pe_costo_tot) as total, (select PE_CANT from pedido where PE_CANT = 0) as cantsEnCero, (select count(distinct PE_CLIENTE) from pedido where printf("%d", PE_CLIENTE) <> PE_CLIENTE ) as clienteNoNumerico from pedido"$) Dim c As Cursor = skmt.ExecQuery($"select count(distinct pe_cliente) as pedidos, group_concat(distinct substr(pe_fecha, 4,2)) as diasVenta, sum(pe_costo_tot) as total, (select PE_CANT from pedido where PE_CANT = 0) as cantsEnCero, (select count(distinct PE_CLIENTE) from pedido where printf("%d", PE_CLIENTE) <> PE_CLIENTE ) as clienteNoNumerico from pedido"$)
Log(c.RowCount) Log(c.RowCount)
If c.RowCount > 0 Then If c.RowCount > 0 Then
@@ -127,18 +136,36 @@ Sub B4XPage_Appear
If c.GetString("cantsEnCero") <> Null Then l_cantsEnCero.Text = c.GetString("cantsEnCero") If c.GetString("cantsEnCero") <> Null Then l_cantsEnCero.Text = c.GetString("cantsEnCero")
l_clienteNoNumerico.Text = c.GetString("clienteNoNumerico") l_clienteNoNumerico.Text = c.GetString("clienteNoNumerico")
End If End If
c.Close
Catch
Log(LastException)
LogColor("Error en PEDIDO", Colors.red)
End Try
Try
Dim c As Cursor = skmt.ExecQuery("select pe_ruta from pedido") Dim c As Cursor = skmt.ExecQuery("select pe_ruta from pedido")
If c.RowCount > 0 Then If c.RowCount > 0 Then
c.Position = 0 c.Position = 0
ruta = c.GetString("PE_RUTA") ruta = c.GetString("PE_RUTA")
l_ruta2.Text = ruta l_ruta2.Text = ruta
End If End If
c.Close
Catch
Log(LastException)
LogColor("Error en PEDIDO", Colors.red)
End Try
Try
Dim c As Cursor = skmt.ExecQuery("select USUARIO from usuarioa") Dim c As Cursor = skmt.ExecQuery("select USUARIO from usuarioa")
If c.RowCount > 0 Then If c.RowCount > 0 Then
c.Position = 0 c.Position = 0
usuario = c.GetString("USUARIO") usuario = c.GetString("USUARIO")
l_usuario2.Text = usuario l_usuario2.Text = usuario
End If End If
c.Close
Catch
Log(LastException)
LogColor("Error en USUARIOA", Colors.red)
End Try
Try
Dim c As Cursor = skmt.ExecQuery("select ID_ALMACEN from cat_almacen") Dim c As Cursor = skmt.ExecQuery("select ID_ALMACEN from cat_almacen")
If c.RowCount > 0 Then If c.RowCount > 0 Then
c.Position = 0 c.Position = 0
@@ -146,6 +173,10 @@ Sub B4XPage_Appear
l_almacen2.Text = almacen l_almacen2.Text = almacen
End If End If
c.Close c.Close
Catch
Log(LastException)
LogColor("Error en CAT_ALMACEN", Colors.red)
End Try
End If End If
End Sub End Sub
@@ -475,7 +506,7 @@ End Sub
Sub CreateListItem(mostrar As String) As Panel Sub CreateListItem(mostrar As String) As Panel
Dim p As B4XView = xui.CreatePanel("") Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 1, 10) p.SetLayoutAnimated(0, 0, 0, 1, 10) 'ignore
p.LoadLayout("listItem") p.LoadLayout("listItem")
p.Height= 36dip p.Height= 36dip
p.Width = clv_clientes.GetBase.Width p.Width = clv_clientes.GetBase.Width