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

Cambios Doe

Browse Source
This commit is contained in:
cvaldes1201
2023-11-10 11:48:02 -06:00
parent 326c0e7d7b
commit f881163aac
4 changed files with 39 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
B4A/C_Nota.bas
View File

@@ -247,6 +247,7 @@ Sub borra_Click
End If
Next
End If
Starter.skmt.ExecNonQuery("delete from HIST_PROMO_WHATS where HIST_CLIENTE in (Select CUENTA from cuentaa)")
Starter.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
Starter.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
@@ -255,6 +256,7 @@ Sub borra_Click
Else
Msgbox("CLIENTE YA SE TRANSMITIO, FAVOR DE LLAMAR A SOPORTE PARA ASISTENCIA","AVISO") 'ignore
End If
c.Close
End Sub
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
@@ -281,6 +283,7 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
c.Close
If TIPO = "VENTA" Then
c=Starter.skmt.ExecQuery2("select count(*) AS CUANTOS from cat_gunaprod2 where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'", Array As String(Value))
Else