cheveguerra/Marquez
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Marquez.git synced 2026-04-21 14:39:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

aun no se termina estamos viendo abonos

Browse Source
This commit is contained in:
cvaldes1201
2024-05-20 18:08:23 -06:00
parent 71664d1c8f
commit 02961b58c8
499 changed files with 423 additions and 260 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
B4A/B4XMainPage.bas
View File

@@ -113,7 +113,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("login")
s.Initialize(Me, "Subs")
B4XPages.SetTitle(Me, "Intmex Preventa")
B4XPages.SetTitle(Me, "Marquez")
login.Initialize
B4XPages.AddPage("Login", login)
principal.Initialize
@@ -177,6 +177,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS NOVENTA (NV_CLIENTE TEXT, NV_FECHA TEXT, NV_USER TEXT, NV_MOTIVO TEXT, NV_COMM TEXT, NV_LAT TEXT, NV_LON TEXT)")
Subs.agregaColumna("PEDIDO", "PE_ENVIO_OK", "INT")
Subs.agregaColumna("NOVENTA", "NV_ENVIO_OK", "INT")
Subs.agregaColumna("kmt_info", "CAT_CL_BCREDITO", "TEXT")
Subs.agregaColumna("kmt_info", "CAT_CL_LIMITECREDITO", "TEXT")
c=skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_STAY_OUT ")
C.Position = 0
If c.GetString("CUANTOS") = 0 Then
@@ -400,20 +402,20 @@ Sub Entrar_Click
If IMEI = "" Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_usuario_INTMEX_10" 'Antes select_usuario_guna_GV2_1
cmd.Name = "select_usuario_marquez" 'Antes select_usuario_guna_GV2_1
cmd.Parameters = Array As Object(user.Text.Trim, pass.Text.Trim)
reqManager.ExecuteQuery(cmd , 0, "usuario_10") 'Antes usuario
Else
If IMEI = "" Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_usuario_INTMEX_10"
cmd.Name = "select_usuario_marquez"
cmd.Parameters = Array As Object(user.Text.Trim, pass.Text.Trim)
reqManager.ExecuteQuery(cmd , 0, "usuario_10")
Else
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_usuario_INTMEX_10" 'Antes select_usuario_guna_GV2
cmd.Name = "select_usuario_marquez" 'Antes select_usuario_guna_GV2
cmd.Parameters = Array As Object(user.Text.Trim, pass.Text.trim)
Log("Mandamos: "&user.Text&"|"& pass.Text)
reqManager.ExecuteQuery(cmd , 0, "usuario_10") 'Antes usuario
@@ -421,7 +423,7 @@ Sub Entrar_Click
End If
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_version_INTMEX"
cmd.Name = "select_version_MARQUEZ"
reqManager.ExecuteQuery(cmd , 0, "version")
Else
usuario = user.Text
@@ -651,20 +653,20 @@ Sub copiaDB
If Result Then
' Private x As String
' If File.ExternalWritable Then
' x = File.DirRootExternal
' x = File.DirInternal
' Else
' x = File.DirInternal
' End If
Dim theDir As String
Try
File.MakeDir(File.DirRootExternal,"kmts")
File.MakeDir(File.DirInternal,"kmts")
theDir = "/kmts"
Catch
theDir = ""
End Try
Try
File.Copy(File.DirInternal,"kmt.db",File.DirRootExternal&theDir, "intmex_kmt.db")
ToastMessageShow("Listo, copiado a " & File.DirRootExternal&theDir & "/intmex_kmt.db", False)
File.Copy(File.DirInternal,"kmt.db",File.DirInternal&theDir, "Marquez_kmt.db")
ToastMessageShow("Listo, copiado a " & File.DirInternal&theDir & "/Marquez_kmt.db", False)
Catch
ToastMessageShow("No se pudo hacer la copia: "&LastException, True)
End Try
@@ -695,7 +697,7 @@ Sub i_engrane_Click
If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1781")
' lv_server.AddSingleLine("http://40.123.36.38:1782")
Log($"|${Starter.DBReqServer}|"$)
l_server.Text = Starter.DBReqServer
' l_server.Text = Starter.DBReqServer
et_server.Text = Starter.DBReqServer
Subs.panelVisible(p_appUpdate,0,0)
If user.Text.trim = "KMTS1" Then b_importarBD.Visible = True Else b_importarBD.Visible = False
@@ -715,7 +717,7 @@ End Sub
Private Sub lv_server_ItemClick (Position As Int, Value As Object)
Starter.DBReqServer = Value
l_server.Text = Value
' l_server.Text = Value
et_server.Text = Value
Starter.reinicializaReqManager(Value)
' Starter.reqManager.Initialize(Me, Value)
@@ -732,7 +734,7 @@ Private Sub b_enviarbd_Click
File.Copy(File.DirInternal, FileName, Provider.SharedFolder, FileName)
Dim email As Email
email.To.Add("soporte@keymonsoft.com")
email.Subject = "Envio Base de datos INTMEX"
email.Subject = "Envio Base de datos Marquez"
email.Attachments.Add(Provider.GetFileUri(FileName))
' email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment
Dim in As Intent = email.GetIntent