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

- VERSION 5.10.15

Browse Source 
- Se pusieron los regalos y exhibidores como categorias exentas de bonificacion.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-10-20 16:20:37 -06:00
parent 7a547503b9
commit ceaa5246e5
7 changed files with 75 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
B4A/C_Principal.bas
View File

@@ -778,7 +778,7 @@ Sub cargar_Click
bcarga3 = 0
e_ruta.Text = ruta_valida
' NUEVOS CLIENTE
Starter.skmt.ExecNonQuery2("delete from kmt_info where substr(CAT_CL_CODIGO,1,1) <> ?", Array As Object ("N"))
Starter.skmt.ExecNonQuery("delete from cod_result")
Starter.skmt.ExecNonQuery("delete from hist_gest")
@@ -2377,6 +2377,7 @@ Private Sub connecta_LongClick
' Loop
'' End If
' Log("MANDAMOS BITACORA")
If e_ruta.Text = "KMTKLL1" Then Subs.deshabilitaValidaciones
End Sub
Sub BUSCA_Click
@@ -2402,17 +2403,17 @@ Sub e_ruta_EnterPressed
res = Msgbox2("Seguro que desea hacer el cierre? ... todos los datos se borraran","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If res = DialogResponse.POSITIVE Then
e_ruta.Text = ""
Starter.skmt.ExecNonQuery("delete from pedido")
Starter.skmt.ExecNonQuery("delete from pedido_cliente")
Starter.skmt.ExecNonQuery("delete from pedido_sugerido")
Starter.skmt.ExecNonQuery("delete from pedido")
Starter.skmt.ExecNonQuery("delete from BITACORAGPS")
Starter.skmt.ExecNonQuery("delete from noventa")
Starter.skmt.ExecNonQuery("delete from clie_act")
Starter.skmt.ExecNonQuery("delete from kmt_info")
Starter.skmt.ExecNonQuery("delete from cat_gunaprod")
Starter.skmt.ExecNonQuery("delete from cat_gunaprod2")
Starter.skmt.ExecNonQuery("delete from cat_inventario")
Starter.skmt.ExecNonQuery("delete from cat_rmi")
Starter.skmt.ExecNonQuery("delete from cat_gunaprod2")
Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
Starter.skmt.ExecNonQuery("delete from HIST_VENTAS")
Starter.skmt.ExecNonQuery("delete from HIST_VERIFICACION")
@@ -3802,9 +3803,11 @@ End Sub
Sub borraClientesNuevosSinVenta 'ignore
Private x As Cursor = Starter.skmt.ExecQuery("Select CAT_CL_CODIGO from kmt_info where CAT_CL_CODIGO like 'N%' and CAT_CL_CODIGO not in (Select pe_cliente from pedido)")
If x.RowCount > 0 Then
x.Position = 0
' x.Position = 0
For i = 0 To x.RowCount - 1
x.Position = i
Starter.skmt.ExecNonQuery($"delete from kmt_info where CAT_CL_CODIGO = '${x.GetString("CAT_CL_CODIGO")}'"$)
' Log($"delete from kmt_info where CAT_CL_CODIGO = '${x.GetString("CAT_CL_CODIGO")}'"$)
LogColor($"Cliente nuevo "${x.GetString("CAT_CL_CODIGO")}" SIN VENTA -> BORRADO!!"$, Colors.red)
Next
End If