cheveguerra/Medicomed_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Medicomed_Preventa.git synced 2026-04-17 21:16:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Version: 4:11:02

Browse Source 
Se arrglo el resumen dia, ahora puedes entrar sin necesidad de hacer algun pedido sin que truene, se muestra la cantidad de clientes visitados sin importar si tienen o no tienen venta y tambien se le agrego la cantidad de clientes que si tienen venta.
This commit is contained in:
IsR0d
2024-11-04 12:36:27 -06:00
parent 65319638b4
commit f9f3ff7d6e
545 changed files with 22807 additions and 103664 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
B4A/C_Cliente.bas
View File

@@ -156,6 +156,7 @@ Sub Class_Globals
Private et_monto_venta As EditText
Private b_can_monto_venta As Button
Private b_gu_monto_venta As Button
Private p_inv As Panel
End Sub
'You can add more parameters here.
@@ -215,6 +216,7 @@ Sub B4XPage_Appear
' Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
' Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
p_inv.Width = Root.Width : p_inv.Height = Root.Height
b_inicioFinVenta.Width = Root.Width
LA_GPS.TextColor = Colors.Red
LA_GPS.Text = "SIN UBICACION GPS"
@@ -1029,7 +1031,8 @@ Private Sub b_clienteVenta_Click
et_monto_venta.Text = ""
p_monto_venta.Visible = True
p_inv.BringToFront
p_inv.Visible = True
End Sub
Private Sub b_clinteSinVenta_Click
@@ -1043,15 +1046,15 @@ Private Sub b_clinteSinVenta_Click
c.Position = 0
clie_id = c.GetString("CUENTA")
c.Close
B4XPages.MainPage.skmt.ExecNonQuery("delete from NOVENTA where NV_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("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_OUT = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(DateTime.Time(DateTime.Now)))
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(DateTime.Time(DateTime.Now)))
'
' B4XPages.MainPage.skmt.ExecNonQuery("delete from NOVENTA where NV_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("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
'
' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_OUT = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(DateTime.Time(DateTime.Now)))
' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(DateTime.Time(DateTime.Now)))
'
ToastMessageShow("Cliente con venta eliminado correctamente.", False)
Catch
@@ -1063,8 +1066,8 @@ End Sub
Private Sub b_gu_monto_venta_Click
If et_monto_venta.Text = "" Or et_monto_venta.Text = "0" Then
ToastMessageShow("El monto de venta no puede ser vacío o 0.", True)
If et_monto_venta.Text.Trim = "" Or et_monto_venta.Text.Trim.StartsWith("0") Or et_monto_venta.Text.Trim = "0" Then
ToastMessageShow("El monto de venta no puede estar vacío o empezar con ceros.", True)
Else
Guardar_Click
Subs.ventaNoVenta(usuario, Id_Almacen, ruta_tienda, "ConVenta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, et_monto_venta.Text)
@@ -1075,13 +1078,13 @@ Private Sub b_gu_monto_venta_Click
clie_id = c.GetString("CUENTA")
c.Close
B4XPages.MainPage.skmt.ExecNonQuery("delete from NOVENTA where NV_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 NOVENTA where NV_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("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_OUT = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(DateTime.Time(DateTime.Now)))
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(DateTime.Time(DateTime.Now)))
' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_OUT = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(DateTime.Time(DateTime.Now)))
' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(DateTime.Time(DateTime.Now)))
ToastMessageShow("Cliente con venta eliminado correctamente.", False)
@@ -1090,10 +1093,14 @@ Private Sub b_gu_monto_venta_Click
End Try
p_monto_venta.Visible = False
p_inv.BringToFront
p_inv.Visible = False
End If
End Sub
Private Sub b_can_monto_venta_Click
p_monto_venta.Visible = False
p_inv.BringToFront
p_inv.Visible = False
End Sub