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

30/11/23 - Cambios en mensaje de "enviando" y cambio de ruta, usuario y almacen

Browse Source 
- Se agregó un gif animado al mensaje de "Enviando".
- Se modificó el código que guarda el nuevo usuario, almacen y ruta cuando se hace clic largo.
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-30 23:43:40 -06:00
parent dac3e44863
commit 165d933cd8
4 changed files with 36 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
B4A/B4XMainPage.bas
View File

@@ -80,6 +80,7 @@ Sub Class_Globals
Private l_vProds2 As Label Private l_vProds2 As Label
Private l_vPedidos2 As Label Private l_vPedidos2 As Label
Private l_vNoVenta2 As Label Private l_vNoVenta2 As Label
Private i_progress As B4XGifView
End Sub End Sub
Public Sub Initialize Public Sub Initialize
@@ -90,6 +91,7 @@ End Sub
Sub B4XPage_Created (Root1 As B4XView) Sub B4XPage_Created (Root1 As B4XView)
Root = Root1 Root = Root1
Root.LoadLayout("MainPage") Root.LoadLayout("MainPage")
i_progress.SetGif(File.DirAssets, "progress.gif")
l_version.Text = Application.VersionName l_version.Text = Application.VersionName
p_principal.Width = Root.Width : p_principal.Height = Root.Height p_principal.Width = Root.Width : p_principal.Height = Root.Height
Subs.centraPanel(p_datos, Root.Width) Subs.centraPanel(p_datos, Root.Width)
@@ -246,7 +248,7 @@ End Sub
Sub b_enviar_Click Sub b_enviar_Click
Dim resultado = Msgbox2("Se va a enviar la venta de la BD", "AVISO", "Continuar", "Cancelar", "", Null) 'ignore Dim resultado = Msgbox2("Se va a enviar la venta de la BD", "AVISO", "Continuar", "Cancelar", "", Null) 'ignore
If resultado = DialogResponse.POSITIVE Then If resultado = DialogResponse.POSITIVE Then
B4XPages.MainPage.l_progressDialog.Text = " Enviando información ..." B4XPages.MainPage.l_progressDialog.Text = " Enviando información"
B4XPages.MainPage.p_progressDialog.Top = l_pedidos2.Top B4XPages.MainPage.p_progressDialog.Top = l_pedidos2.Top
B4XPages.MainPage.p_progressDialog.Visible = True B4XPages.MainPage.p_progressDialog.Visible = True
B4XPages.MainPage.p_progressDialog.BringToFront B4XPages.MainPage.p_progressDialog.BringToFront
@@ -258,8 +260,9 @@ Sub b_enviar_Click
else if empresa.ToUpperCase = "INTMEX" Then else if empresa.ToUpperCase = "INTMEX" Then
envioIntmex envioIntmex
End If End If
' Sleep(5000)
End If End If
ToastMessageShow("Se enviaran los datos, este proceso podria tardar hasta un minuto, gracias "& ruta , True) ToastMessageShow($"Se enviaran los datos, este proceso podria tardar hasta un minuto."$ , True)
End Sub End Sub
Sub JobDone(Job As HttpJob) Sub JobDone(Job As HttpJob)
@@ -411,27 +414,36 @@ Sub l_clienteNoNumerico_LongClick
p_clientes.Visible = True p_clientes.Visible = True
End Sub End Sub
'Cambiamos la ruta actual por la especificado.
Sub b_guardaRuta_Click Sub b_guardaRuta_Click
If et_nuevaRuta.Text <> "" Then If et_nuevaRuta.Text <> "" Then
skmt.ExecNonQuery($"update pedido set pe_ruta = '${et_nuevaRuta.Text}' where pe_ruta = '${ruta}'"$) skmt.ExecNonQuery($"update PEDIDO set PE_RUTA = '${et_nuevaRuta.Text}' where PE_RUTA = '${ruta}'"$)
skmt.ExecNonQuery($"update PEDIDO_CLIENTE set PC_RUTA = '${et_nuevaRuta.Text}' where PC_RUTA = '${ruta}'"$)
l_ruta2.Text = et_nuevaRuta.text l_ruta2.Text = et_nuevaRuta.text
End If End If
p_editaRuta.Visible = False p_editaRuta.Visible = False
End Sub End Sub
'Cambiamos el almacen actual por el especificado.
Sub b_guardaAlmacen_Click Sub b_guardaAlmacen_Click
If et_nuevoAlmacen.Text <> "" Then If et_nuevoAlmacen.Text <> "" Then
skmt.ExecNonQuery($"delete from cat_almacen"$) skmt.ExecNonQuery($"delete from cat_almacen"$)
skmt.ExecNonQuery($"insert into cat_almacen (id_almacen) values ('${et_nuevoAlmacen.Text}')"$) skmt.ExecNonQuery($"insert into cat_almacen (id_almacen) values ('${et_nuevoAlmacen.Text}')"$)
skmt.ExecNonQuery($"update PEDIDO set PE_CEDIS = '${et_nuevoAlmacen.Text}' where PE_CEDIS = '${l_almacen2.text}'"$)
skmt.ExecNonQuery($"update PEDIDO_CLIENTE set PC_ALMACEN = '${et_nuevoAlmacen.Text}' where PC_ALMACEN = '${l_almacen2.text}'"$)
l_almacen2.Text = et_nuevoAlmacen.text l_almacen2.Text = et_nuevoAlmacen.text
End If End If
p_editaAlmacen.Visible = False p_editaAlmacen.Visible = False
End Sub End Sub
'Cambiamos el usuario actual por el especificado.
Private Sub b_guardaUsuario_Click Private Sub b_guardaUsuario_Click
' skmt.ExecNonQuery($"delete from usuarioa"$) ' skmt.ExecNonQuery($"delete from usuarioa"$)
If et_nuevoUsuario.Text <> "" Then If et_nuevoUsuario.Text <> "" Then
skmt.ExecNonQuery($"update usuarioa set usuario = '${et_nuevoUsuario.Text}'"$) skmt.ExecNonQuery($"update usuarioa set usuario = '${et_nuevoUsuario.Text}'"$)
skmt.ExecNonQuery($"update NOVENTA set NV_USER = '${et_nuevoUsuario.Text}' where NV_USER = '${l_usuario2.text}'"$)
skmt.ExecNonQuery($"update PEDIDO set PE_USUARIO = '${et_nuevoUsuario.Text}' where PE_USUARIO = '${l_usuario2.text}'"$)
skmt.ExecNonQuery($"update PEDIDO_CLIENTE set PC_USER = '${et_nuevoUsuario.Text}' where PC_USER = '${l_usuario2.text}'"$)
l_usuario2.Text = et_nuevoUsuario.text l_usuario2.Text = et_nuevoUsuario.text
End If End If
p_editaUsuario.Visible = False p_editaUsuario.Visible = False
@@ -997,6 +1009,8 @@ Sub envioGuna 'ignore
x.Close x.Close
End Sub End Sub
'Valida la venta contra web.
'Revisa que la NOVENTA, la cantidad de pedidos y los productos de PEDIDO sean los mismos en web y locales.
Sub valida(identificador As String) Sub valida(identificador As String)
Log("Validamos " & identificador) Log("Validamos " & identificador)
If empresa.ToUpperCase = "GUNA" Then If empresa.ToUpperCase = "GUNA" Then

27
B4A/DBCheck.b4a
View File

@@ -1,21 +1,28 @@
Build1=Default,dbcheck.keymon.lat,HU2_PUBLIC Build1=Default,dbcheck.keymon.lat,HU2_PUBLIC
File1=engrane_gris.png File1=engrane_gris.png
File2=listItem.bal File2=listItem.bal
File3=MainPage.bal File3=logo_192x192.jpg
File4=logo_keymon.png
File5=MainPage.bal
File6=progress.gif
FileGroup1=Default Group FileGroup1=Default Group
FileGroup2=Default Group FileGroup2=Default Group
FileGroup3=Default Group FileGroup3=Default Group
FileGroup4=Default Group
FileGroup5=Default Group
FileGroup6=Default Group
Group=Default Group Group=Default Group
Library1=b4xpages Library1=b4xpages
Library10=fileprovider Library10=xcustomlistview
Library11=b4xgifview
Library2=byteconverter Library2=byteconverter
Library3=contentresolver Library3=contentresolver
Library4=core Library4=core
Library5=ime Library5=fileprovider
Library6=okhttputils2 Library6=ime
Library7=randomaccessfile Library7=okhttputils2
Library8=sql Library8=randomaccessfile
Library9=xcustomlistview Library9=sql
ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="31"/>~\n~<supports-screens android:largeScreens="true" ~\n~ android:normalScreens="true" ~\n~ android:smallScreens="true" ~\n~ android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddPermission(android.permission.INTERNET)~\n~AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~SetApplicationAttribute(android:allowBackup, "false")~\n~~\n~AddActivityText(main,~\n~<intent-filter>~\n~<action android:name="android.intent.action.VIEW" />~\n~<category android:name="android.intent.category.DEFAULT" />~\n~<data android:mimeType="application/octet-stream" />~\n~</intent-filter>) ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="31"/>~\n~<supports-screens android:largeScreens="true" ~\n~ android:normalScreens="true" ~\n~ android:smallScreens="true" ~\n~ android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddPermission(android.permission.INTERNET)~\n~AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~SetApplicationAttribute(android:allowBackup, "false")~\n~~\n~AddActivityText(main,~\n~<intent-filter>~\n~<action android:name="android.intent.action.VIEW" />~\n~<category android:name="android.intent.category.DEFAULT" />~\n~<data android:mimeType="application/octet-stream" />~\n~</intent-filter>)
Module1=B4XMainPage Module1=B4XMainPage
Module2=C_Envios Module2=C_Envios
@@ -23,15 +30,15 @@ Module3=DBRequestManager
Module4=FileHandler Module4=FileHandler
Module5=Starter Module5=Starter
Module6=Subs Module6=Subs
NumberOfFiles=3 NumberOfFiles=6
NumberOfLibraries=10 NumberOfLibraries=11
NumberOfModules=6 NumberOfModules=6
Version=12.5 Version=12.5
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: DBCheck #ApplicationLabel: DBCheck
#VersionCode: 1 #VersionCode: 1
#VersionName: 3.11.15 #VersionName: 3.11.30
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

4
B4A/DBCheck.b4a.meta
View File

@@ -13,12 +13,12 @@ ModuleBreakpoints4=
ModuleBreakpoints5= ModuleBreakpoints5=
ModuleBreakpoints6= ModuleBreakpoints6=
ModuleClosedNodes0=2,6 ModuleClosedNodes0=2,6
ModuleClosedNodes1=3,5,6,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31 ModuleClosedNodes1=3,5,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31
ModuleClosedNodes2=5 ModuleClosedNodes2=5
ModuleClosedNodes3= ModuleClosedNodes3=
ModuleClosedNodes4= ModuleClosedNodes4=
ModuleClosedNodes5=1 ModuleClosedNodes5=1
ModuleClosedNodes6=12,13,14,16,17,18 ModuleClosedNodes6=12,13,14,16,17,18
NavigationStack=B4XMainPage,valida,995,6,B4XMainPage,envioGuna,991,0,B4XMainPage,envioMariana,614,0,B4XMainPage,envioIntmex,766,0,B4XMainPage,p_empresa_Click,1030,0,B4XMainPage,b_valida_Click,1033,0,B4XMainPage,B4XPage_Appear,114,0,B4XMainPage,JobDone,266,6,Visual Designer,MainPage.bal,-100,6,B4XMainPage,Class_Globals,75,0,B4XMainPage,B4XPage_Created,110,4 NavigationStack=B4XMainPage,l_usuario2_LongClick,390,0,B4XMainPage,b_guardaUsuario_Click,436,6,B4XMainPage,b_guardaAlmacen_Click,424,1,B4XMainPage,l_clienteNoNumerico_LongClick,410,0,Visual Designer,MainPage.bal,-100,6,B4XMainPage,b_guardaRuta_Click,419,3,B4XMainPage,envioMariana,503,0,B4XMainPage,JobDone,320,0,B4XMainPage,B4XPage_Created,90,0,B4XMainPage,envioGuna,1006,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,6,2,3 VisibleModules=1,6,2,3

BIN
B4A/Files/mainpage.bal
View File

Binary file not shown.