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

- VERSION 4.08.05

Browse Source 
- Se agregó que cuando entre a la pantalla de NO_VENTA, al check de Reprogramar se le quite la palomita y que el radio de "No esta el encargado" se selecione!
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-08-06 14:03:01 -06:00
parent 89f2d228e0
commit bfe16d1757
4 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
intmex_reparto.b4a
View File

@@ -136,7 +136,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Intmex-Reparto #ApplicationLabel: Intmex-Reparto
#VersionCode: 1 #VersionCode: 1
#VersionName: 4.05.22 #VersionName: 4.08.05
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

2
intmex_reparto.b4a.meta
View File

@@ -70,6 +70,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=seleccion,e_ruta_EnterPressed,1051,0,fila,ListView1_ItemLongClick,247,0,fila,Guardado,274,0,fila,b_cancred_Click,588,4,Main,Activity_Create,93,0,fila,b_acred_Click,627,2,fila,gest_Click,319,6,Diseñador Visual,seleccion.bal,-100,4,seleccion,Subir_Click,492,6 NavigationStack=seleccion,e_ruta_EnterPressed,1051,0,fila,ListView1_ItemLongClick,247,0,fila,Guardado,274,0,fila,b_cancred_Click,588,4,Main,Activity_Create,93,0,fila,b_acred_Click,627,2,fila,gest_Click,319,6,seleccion,Subir_Click,470,6,nopago,Activity_Create,50,0,nopago,Activity_Resume,65,6
SelectedBuild=0 SelectedBuild=0
VisibleModules=19,23,20,18,4,5,8,15,6,9 VisibleModules=19,23,20,18,4,5,8,15,6,9

3
nopago.bas
View File

@@ -68,6 +68,8 @@ Sub Activity_Resume
Subs.SetButtonTintList(r_3, Colors.red, Colors.RGB(210, 105, 30)) Subs.SetButtonTintList(r_3, Colors.red, Colors.RGB(210, 105, 30))
Subs.SetButtonTintList(r_4, Colors.red, Colors.RGB(210, 105, 30)) Subs.SetButtonTintList(r_4, Colors.red, Colors.RGB(210, 105, 30))
Subs.SetButtonTintList(cb_reprogramar, Colors.red, Colors.red) Subs.SetButtonTintList(cb_reprogramar, Colors.red, Colors.red)
cb_reprogramar.Checked = False
r_4.Checked = True
End Sub End Sub
Sub Activity_Pause (UserClosed As Boolean) Sub Activity_Pause (UserClosed As Boolean)
@@ -119,6 +121,7 @@ Sub GUARDA_Click
Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE, NV_FECHA, NV_USER, NV_MOTIVO, NV_COMM, NV_LAT, NV_LON, NV_REPROGRAMAR) VALUES(?,?,?,?,?,?,?,?) ", Array As Object (cuenta, sDate & sTime, usuario, motivo, e_comm.text, Main.lat_gps, Main.lon_gps, reprogramar)) Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE, NV_FECHA, NV_USER, NV_MOTIVO, NV_COMM, NV_LAT, NV_LON, NV_REPROGRAMAR) VALUES(?,?,?,?,?,?,?,?) ", Array As Object (cuenta, sDate & sTime, usuario, motivo, e_comm.text, Main.lat_gps, Main.lon_gps, reprogramar))
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)") Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_RECHAZO = 1 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)") Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_RECHAZO = 1 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
cb_reprogramar.Checked = False
StartActivity(seleccion) StartActivity(seleccion)
Else Else
COMENTARIO = e_comm.Text COMENTARIO = e_comm.Text

2
seleccion.bas
View File

@@ -474,7 +474,7 @@ Sub Subir_Click
Next Next
End If End If
r.Close r.Close
'PAGARES. 'PAGARES.
Dim pa As Cursor =Starter.skmt.ExecQuery("select * from PAGARES") Dim pa As Cursor =Starter.skmt.ExecQuery("select * from PAGARES")
If pa.RowCount > 0 Then If pa.RowCount > 0 Then