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

Version: 5.06.04

Browse Source 
Se corriguio el tiempo real, la gestion de las no ventas ahora se actualizan a 3 cuando se hace la no venta.
This commit is contained in:
IsR0d
2025-06-06 20:03:56 -06:00
parent a77706a0ae
commit dca4e98fb1
4 changed files with 40 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
B4A/C_NoVenta.bas
View File

@@ -112,6 +112,7 @@ Sub GUARDA_Click
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
Else
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON) VALUES(?,?,?,?,?,?,?) ", Array As Object (cuenta,sDate & sTime, usuario, motivo,e_comm.text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
End If
DateTime.TimeFormat = "HHmmss"
sTime=DateTime.Time(DateTime.Now)

42
B4A/C_Principal.bas
View File

@@ -529,13 +529,44 @@ Sub B4XPage_Appear
c.Position = 0
usuario = c.GetString("USUARIO")
c.Close
' B4XPages.MainPage.batt = batterystatus(0)
' B4XPages.MainPage.montoActual = L_MONTOD.Text
' B4XPages.MainPage.clientestotal = L_CUANTOST.Text
' B4XPages.MainPage.clientesventa = l_cuantosc.Text
' B4XPages.MainPage.clientesvisitados = l_porvisitar.TEXT
' B4XPages.MainPage.ALMACEN = ALMACEN
' B4XPages.MainPage.rutapreventa = l_ruta.text
Dim conVen As Int = 0
Dim sinVen As Int = 0
Dim cursor As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(PE_COSTO_TOT) AS PE_COSTO_TOT, COUNT(DISTINCT PE_CLIENTE) AS PE_CLIENTE FROM PEDIDO WHERE PE_FOLIO <> 'RECARGA'"$)
If cursor.RowCount > 0 Then
cursor.Position = 0
B4XPages.MainPage.montoActual = cursor.GetString("PE_COSTO_TOT")
B4XPages.MainPage.clientesventa = cursor.GetString("PE_CLIENTE")
conVen = cursor.GetInt("PE_CLIENTE")
End If
Log("Clientes con venta: " & conVen)
Dim cNoVenta As Cursor = Starter.skmt.ExecQuery($"SELECT COUNT(DISTINCT NV_CLIENTE) AS NV_CLIENTE FROM NOVENTA"$)
If cNoVenta.RowCount > 0 Then
cNoVenta.Position = 0
sinVen = cNoVenta.GetInt("NV_CLIENTE")
Log("Clientes sin venta: " & sinVen)
Dim totClientes As Int = sinVen + conVen
Log("Total clientes visitados: " & totClientes)
End If
B4XPages.MainPage.batt = batterystatus(0)
B4XPages.MainPage.montoActual = L_MONTOD.Text
B4XPages.MainPage.clientestotal = L_CUANTOST.Text
B4XPages.MainPage.clientesventa = l_cuantosc.Text
B4XPages.MainPage.clientesvisitados = l_porvisitar.TEXT
B4XPages.MainPage.clientestotal = totClientes
B4XPages.MainPage.clientesvisitados = l_porvisitar.Text
B4XPages.MainPage.ALMACEN = ALMACEN
B4XPages.MainPage.rutapreventa = l_ruta.text
B4XPages.MainPage.rutapreventa = l_ruta.Text
'////// Para el usuario global - Chv
c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
@@ -613,6 +644,7 @@ Sub B4XPage_Appear
fg.Close
checaPedido
'-----------------------------
End Sub

2
B4A/MARQUEZ.b4a
View File

@@ -211,7 +211,7 @@ Version=13.1
#Region Project Attributes
#ApplicationLabel: Marquez
#VersionCode: 1
#VersionName: 5.06.01
#VersionName: 5.06.04
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

2
B4A/MARQUEZ.b4a.meta
View File

@@ -94,6 +94,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=Diseñador Visual,principal.bal,-100,6,C_Principal,btnCobranza_Click,2994,6,Main,Activity_KeyPress,40,0,Main,Activity_ActionBarHomeClick,37,0,Main,Create_Menu,56,0,B4XMainPage,i_engrane_Click,883,0,C_Nota,Class_Globals,0,0,C_Nota,B4XPage_Appear,124,0,C_Nota,borra_Click,296,0,C_Nota,ListView1_ItemLongClick,302,0
NavigationStack=Main,Activity_ActionBarHomeClick,37,0,Main,Create_Menu,56,0,B4XMainPage,i_engrane_Click,883,0,C_Nota,Class_Globals,0,0,C_Nota,B4XPage_Appear,124,0,C_Nota,ListView1_ItemLongClick,302,0,C_Nota,borra_Click,296,0,C_Principal,Class_Globals,0,0,C_Principal,B4XPage_Appear,556,0,C_NoVenta,Class_Globals,0,0,C_NoVenta,GUARDA_Click,108,0
SelectedBuild=0
VisibleModules=1,2,13,4,5,7,8,9,10,14