From f881163aac8a4471f45cea7fbca945d85257143e Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Fri, 10 Nov 2023 11:48:02 -0600 Subject: [PATCH] Cambios Doe --- B4A/C_Cliente.bas | 37 ++++++++++++++++++++++++++++++++++--- B4A/C_Nota.bas | 3 +++ B4A/Files/cliente.bal | Bin 103396 -> 103396 bytes B4A/KelloggsV3.b4a.meta | 4 ++-- 4 files changed, 39 insertions(+), 5 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index c32b813..b75638e 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -740,12 +740,31 @@ Sub GPS_LocationChanged (Location1 As Location) ' Log(">>>>>>>>>>> " & distance & "|" & gps_boton_doe) If distance <= 50 Or usuario = "KMTSKLL1" Then Private clienteConPromo As Int = 0 + Private existenciaspromo As Int = 0 'Revisamos si el cliente ya existe en HIST_PROMO_WHATS. Private x As Cursor = Starter.skmt.ExecQuery("select count(HIST_CLIENTE) as clienteConPromo from HIST_PROMO_WHATS where HIST_CLIENTE in (Select CUENTA from cuentaa)") If x.RowCount > 0 Then x.Position = 0 clienteConPromo = x.GetString("clienteConPromo") End If + Private y As Cursor = Starter.skmt.ExecQuery("select CAT_GP_ALMACEN, CAT_GP_ID FROM CAT_GUNAPROD2 WHERE CAT_GP_ID = 1008027226") + Private y1 As Cursor = Starter.skmt.ExecQuery("select CAT_GP_ALMACEN, CAT_GP_ID FROM CAT_GUNAPROD2 WHERE CAT_GP_ID = 1008027230") + Private y2 As Cursor = Starter.skmt.ExecQuery("select CAT_GP_ALMACEN, CAT_GP_ID FROM CAT_GUNAPROD2 WHERE CAT_GP_ID = 1008027228") + Private y3 As Cursor = Starter.skmt.ExecQuery("select CAT_GP_ALMACEN, CAT_GP_ID FROM CAT_GUNAPROD2 WHERE CAT_GP_ID = 1008013799") + If y.RowCount > 0 And y1.RowCount > 0 And y2.RowCount > 0 And y3.RowCount > 0 Then + y.Position = 0 + y1.Position = 0 + y2.Position = 0 + y3.Position = 0 + If y.GetString("CAT_GP_ALMACEN") >=1 And y.GetString("CAT_GP_ALMACEN") >=1 And y.GetString("CAT_GP_ALMACEN") >=1 And y.GetString("CAT_GP_ALMACEN") >=1 Then + existenciaspromo = 1 + Else + existenciaspromo = 0 + End If + Else + existenciaspromo = 0 + End If + Log(existenciaspromo) ' If pgs_boton_noventa = "1" Then Tels.Visible = True ' Log(clienteConPromo) If gps_boton_doe = "1" And clienteConPromo = "0" Then b_whats.Visible = True @@ -2961,9 +2980,21 @@ Private Sub b_aceptarrpomo_Click Starter.skmt.ExecNonQuery2("INSERT INTO HIST_PROMO_WHATS VALUES (?,?)", Array As Object(l_promowhats.Text, "PROMO ACEPTADA")) - Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object ("PROMODOE",0 , 0, 1, "KIT DE BIENVENIDA DON TOÑO", "PROMODOE",la_cuenta.TEXT, sDate & sTime, usuario,Starter.rutaV,Starter.tipov,0)) - Starter. skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object ("PROMODOE",0.01 , 0.01, 1, "CAJA CHOCO ZUCARITAS 260 GR", "1008094223",la_cuenta.TEXT, sDate & sTime, usuario,Starter.rutaV,Starter.tipov,0)) - Starter.skmt.ExecNonQuery2("update cat_gunaprod2 set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object("1", "1008094223")) + Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object ("PROMODOE",0 , 0, 1, "KIT DE BIENVENIDA DOE", "PDOE100123",la_cuenta.TEXT, sDate & sTime, usuario,Starter.rutaV,"VENTA",0)) + Starter. skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object ("PROMODOE",0.01 , 0.01, 1, "LECHE ALL BRAN CHOCO 236ML", "1008027226",la_cuenta.TEXT, sDate & sTime, usuario,Starter.rutaV,"VENTA",0)) + Starter. skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object ("PROMODOE",0.01 , 0.01, 1, "LECHE ALL BRAN VAINILLA 236ML", "1008027230",la_cuenta.TEXT, sDate & sTime, usuario,Starter.rutaV,"VENTA",0)) + Starter. skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object ("PROMODOE",0.01 , 0.01, 1, "LECHE ALL BRAN NUEZ 236ML", "1008027228",la_cuenta.TEXT, sDate & sTime, usuario,Starter.rutaV,"VENTA",0)) + Starter. skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object ("PROMODOE",0.01 , 0.01, 1, "LECHE CHOCO MELVIN 236ML", "1008013799",la_cuenta.TEXT, sDate & sTime, usuario,Starter.rutaV,"VENTA",0)) + + + Starter.skmt.ExecNonQuery2("update cat_gunaprod2 set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object("1", "1008027226")) + Starter.skmt.ExecNonQuery2("update cat_gunaprod2 set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object("1", "1008027230")) + Starter.skmt.ExecNonQuery2("update cat_gunaprod2 set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object("1", "1008027228")) + Starter.skmt.ExecNonQuery2("update cat_gunaprod2 set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object("1", "1008013799")) + + + + c=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") c.Position=0 Starter.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") diff --git a/B4A/C_Nota.bas b/B4A/C_Nota.bas index 824036f..e22a4d6 100644 --- a/B4A/C_Nota.bas +++ b/B4A/C_Nota.bas @@ -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 diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index a7146f3154d029c6fbc36ff015856c0c3618ed8f..6314a32b629423755a3ceb5061d4cea8de6f2389 100644 GIT binary patch delta 43 wcmaE|obAbSwhgb(3QuETV2}f1#zTw@4Duj`+w=t!7&Ruxz2@3%aBj;{06FOnd;kCd delta 43 wcmaE|obAbSwhgb(3NtY?Fvu}5FfjH233(91ZTf-