cheveguerra/Marquez
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Marquez.git synced 2026-04-17 21:06:15 +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:41:46 -06:00
parent dcb0bd0a29
commit 3046ec99bc
4 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
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)
@@ -98,8 +103,8 @@ Sub GUARDA_Click
End If End If
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)") ' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)") ' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
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.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)") B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)")

2
B4A/MARQUEZ.b4a
View File

@@ -189,7 +189,7 @@ Version=12.5
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Marquez #ApplicationLabel: Marquez
#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

4
B4A/MARQUEZ.b4a.meta
View File

@@ -85,6 +85,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=Diseñador Visual,login.bal,-100,1,C_Mapas,Class_Globals,0,0,MAPA_RUTAS,MapFragment1_Ready,231,1,MAPA_RUTAS,OnInfoWindowClickListener1_click,270,1,Starter,Timer1_Tick,61,0,Starter,ENVIA_ULTIMA_GPS,87,0,C_Principal,B4XPage_Appear,425,4,C_Cliente,MODS,0,0,Starter,Process_Globals,17,0,B4XMainPage,i_engrane_Click,689,0 NavigationStack=MAPA_RUTAS,OnInfoWindowClickListener1_click,270,1,Starter,Timer1_Tick,61,0,Starter,ENVIA_ULTIMA_GPS,87,0,C_Principal,B4XPage_Appear,425,4,C_Cliente,MODS,0,0,Starter,Process_Globals,17,0,B4XMainPage,i_engrane_Click,689,0,C_NoVenta,B4XPage_Created,37,0,Subs,pedidoGuardado,1414,0,C_NoVenta,GUARDA_Click,94,0,C_NoVenta,B4XPage_Appear,51,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,2,3,4,5,6,7,8,9,10,13,26 VisibleModules=1,2,3,4,5,6,7,8,9,10,27

2
B4A/Subs.bas
View File

@@ -1418,7 +1418,7 @@ 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