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

..

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-02-29 16:45:03 -06:00
parent 5b3c520644
commit cc10ad5d69
6 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/B4XMainPage.bas
View File

@@ -691,7 +691,9 @@ Sub i_engrane_Click
' lv_server.AddSingleLine("http://keymon.lat:1781") ' lv_server.AddSingleLine("http://keymon.lat:1781")
If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1781") If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1781")
' lv_server.AddSingleLine("http://40.123.36.38:1782") ' 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) Subs.panelVisible(p_appUpdate,0,0)
If user.Text.trim = "KMTS1" Then b_importarBD.Visible = True Else b_importarBD.Visible = False If user.Text.trim = "KMTS1" Then b_importarBD.Visible = True Else b_importarBD.Visible = False
End Sub End Sub

3
B4A/C_Cliente.bas
View File

@@ -920,8 +920,9 @@ Sub mandaPendientes
' c.Close ' c.Close
' CUESTIONARIO (Pendientes) ' CUESTIONARIO (Pendientes)
c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM CUESTIONARIO where Q_ENVIO_OK <> 1 order by Q_IDCLIENTE, Q_IDPREGUNTA; Q_IDRESPUESTA") c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM CUESTIONARIO where ifnull(Q_ENVIO_OK, 0) = 0 order by Q_IDCLIENTE, Q_IDPREGUNTA; Q_IDRESPUESTA")
Private rutaActual As String = Subs.traeRuta Private rutaActual As String = Subs.traeRuta
Log("CUEST PENDIENTES: " & c.RowCount)
If c.RowCount > 0 Then If c.RowCount > 0 Then
For x = 0 To c.RowCount - 1 For x = 0 To c.RowCount - 1
c.Position = x c.Position = x

1
B4A/C_Productos.bas
View File

@@ -622,6 +622,7 @@ Sub b_terminar1_Click
End If End If
c_prods.Close c_prods.Close
p_vistaPreviaTrans.Width = Root.Width p_vistaPreviaTrans.Width = Root.Width
p_vistaPreviaTrans.Height = Root.Height
Subs.centraPanel(p_vistaPrevia, Root.Width) Subs.centraPanel(p_vistaPrevia, Root.Width)
If Subs.pedidoGuardado Then b_rechazar.Enabled = False Else b_rechazar.Enabled = True If Subs.pedidoGuardado Then b_rechazar.Enabled = False Else b_rechazar.Enabled = True
p_vistaPrevia.Visible=True p_vistaPrevia.Visible=True

2
B4A/INTMEX.b4a
View File

@@ -157,7 +157,7 @@ Module9=C_Nota
NumberOfFiles=46 NumberOfFiles=46
NumberOfLibraries=33 NumberOfLibraries=33
NumberOfModules=28 NumberOfModules=28
Version=12.5 Version=12.8
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Intmex #ApplicationLabel: Intmex

4
B4A/INTMEX.b4a.meta
View File

@@ -85,6 +85,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9=1 ModuleClosedNodes9=1
NavigationStack=C_Principal,cargar_Click,995,0,C_Principal,connecta_Click,1791,0,C_Principal,B4XPage_Appear,353,3,B4XMainPage,Entrar_Click,320,2,B4XMainPage,B4XPage_Created,178,0,Starter,ENVIA_ULTIMA_GPS,87,0,Starter,Service_Start,52,5,C_Subs,traeDBReqServerDeBD,435,0,C_Principal,JobDone,1635,6,B4XMainPage,B4XPage_Appear,259,4 NavigationStack=Starter,GPS_LocationChanged,65,0,Starter,Service_Start,52,1,Starter,Process_Globals,16,0,B4XMainPage,Entrar_Click,320,0,B4XMainPage,B4XPage_Appear,259,0,Visual Designer,productos.bal,-100,1,Visual Designer,login.bal,-100,1,B4XMainPage,i_engrane_Click,689,6,B4XMainPage,ocultaProgreso,679,0,B4XMainPage,muestraProgreso,674,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=2,26,13,16,14,4,27,15,9,6,17 VisibleModules=2,26,13,16,14,4,27,15,9,6

2
B4A/Starter.bas
View File

@@ -56,7 +56,7 @@ Sub Service_Start (StartingIntent As Intent)
Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases. Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
Subs.revisaBD Subs.revisaBD
' Log(marcaCel) ' Log(marcaCel)
If s.traeDBReqServerDeBD(skmt) <> "N/A" Then DBReqServer = s.traeDBReqServerDeBD(skmt) If s.traeDBReqServerDeBD(skmt) <> "N/A" And s.traeDBReqServerDeBD(skmt) <> "" Then DBReqServer = s.traeDBReqServerDeBD(skmt)
reqManager.Initialize(Me, DBReqServer) reqManager.Initialize(Me, DBReqServer)
Log($"Starter - |${DBReqServer}|"$) Log($"Starter - |${DBReqServer}|"$)
End Sub End Sub