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

TERMINO DOE Y RESPALDO DE TABLAS

Browse Source
This commit is contained in:
cvaldes1201
2023-11-10 12:52:06 -06:00
parent f881163aac
commit d13c5f3b64
4 changed files with 95 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
B4A/C_Nota.bas
View File

@@ -286,11 +286,24 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
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
c=Starter.skmt.ExecQuery2("select count(*) AS CUANTOS from cat_gunaprod 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))
End If
c.Position=0
If c.GetString("CUANTOS") > 0 Then
Log(c.GetString("CUANTOS"))
Private cuantos As String = c.GetString("CUANTOS")
'ESTO ES PARA LA PROMOCION DOE LA BORRE COMPLETA
Private cursord As Cursor = Starter.skmt.ExecQuery2("SELECT PE_CEDIS FROM PEDIDO WHERE PE_PRONOMBRE = ? AND pe_cliente in (Select CUENTA from cuentaa)", Array As String(Value))
If cursord.RowCount > 0 Then
cursord.Position = 0
If cursord.GetString("PE_CEDIS") = "PROMODOE" Then
cuantos = 1
Starter.skmt.ExecNonQuery("delete from HIST_PROMO_WHATS where HIST_CLIENTE in (Select CUENTA from cuentaa)")
End If
End If
If cuantos > 0 Then
Starter.skmt.ExecNonQuery2("delete from pedido where pe_folio = 0 and pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa) and pe_cedis <> ?", Array As Object(Value, "DOE"))
Else
Starter.skmt.ExecNonQuery2("delete from pedido where pe_folio = 0 and pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS <> ?", Array As Object(Value, "DOE"))