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

radiobutton de no venta se desmarcan y no deja eliminar su venta deshabilitando los botones

Browse Source
This commit is contained in:
cvaldes1201
2024-05-21 17:40:20 -06:00
parent f17e051ed8
commit 5ae80daf54
4 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
B4A/C_NoVenta.bas
View File

@@ -60,6 +60,11 @@ Sub B4XPage_Appear
ToastMessageShow("Es necesario tener el GPS encendido", True) ToastMessageShow("Es necesario tener el GPS encendido", True)
StartActivity(Starter.gps.LocationSettingsIntent) StartActivity(Starter.gps.LocationSettingsIntent)
End If End If
r_1.Checked = False
r_2.Checked = False
r_3.Checked = False
r_4.Checked = False
e_comm.Text = ""
End Sub End Sub
Sub GPS_LocationChanged (Location1 As Location) Sub GPS_LocationChanged (Location1 As Location)

2
B4A/INTMEX.b4a
View File

@@ -163,7 +163,7 @@ Version=12.5
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Intmex #ApplicationLabel: Intmex
#VersionCode: 1 #VersionCode: 1
#VersionName: 4.05.19 #VersionName: 4.05.20
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

2
B4A/INTMEX.b4a.meta
View File

@@ -85,6 +85,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=C_Productos,b_continuar_Click,792,0,C_Productos,clv_prods_ll_VisibleRangeChanged,999,0,C_Productos,b_prodMas_Click,572,0,C_Productos,cuentaProds,710,0,C_Productos,et_pCant_TextChanged,675,6,MAPA_RUTAS,MapFragment1_Ready,230,0,Starter,ENVIA_ULTIMA_GPS,86,0,C_Principal,B4XPage_Created,264,3,C_Principal,B4XPage_Appear,436,2,C_NoVenta,B4XPage_Created,37,0,C_NoVenta,GUARDA_Click,110,0 NavigationStack=C_Principal,B4XPage_Appear,436,2,C_NoVenta,B4XPage_Created,37,0,C_Nota,Class_Globals,0,0,C_Nota,borra_Click,162,0,C_Nota,B4XPage_CloseRequest,146,0,Subs,pedidoGuardado,1400,0,C_Nota,B4XPage_Appear,124,0,C_NoVenta,GUARDA_Click,67,0,Diseñador Visual,noventa.bal,-100,2,C_NoVenta,B4XPage_Appear,56,6
SelectedBuild=0 SelectedBuild=0
VisibleModules=2,26,13,16,14,4,27,15,9,6,10 VisibleModules=2,26,13,16,14,4,27,15,9,6,10

3
B4A/Subs.bas
View File

@@ -1404,7 +1404,8 @@ Sub pedidoGuardado As Boolean
Private g As Cursor = B4XPages.MainPage.skmt.ExecQuery("select gestion from kmt_info where CAT_CL_CODIGO in (Select CUENTA from cuentaa)") Private g As Cursor = B4XPages.MainPage.skmt.ExecQuery("select gestion from kmt_info where CAT_CL_CODIGO in (Select CUENTA from cuentaa)")
If g.RowCount > 0 Then If g.RowCount > 0 Then
g.Position=0 g.Position=0
If g.GetString("gestion") = "2" Then guardado = True If g.GetString("gestion") = "2" or g.GetString("gestion") = "3" Then guardado = True
End If End If
' Log($"Guardado=${guardado}"$) ' Log($"Guardado=${guardado}"$)
Return guardado Return guardado