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 a7146f3..6314a32 100644 Binary files a/B4A/Files/cliente.bal and b/B4A/Files/cliente.bal differ diff --git a/B4A/KelloggsV3.b4a.meta b/B4A/KelloggsV3.b4a.meta index 7b0b866..756ef95 100644 --- a/B4A/KelloggsV3.b4a.meta +++ b/B4A/KelloggsV3.b4a.meta @@ -82,6 +82,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=B4XMainPage,ImageView4_Click,531,1,Starter,Service_Create,69,0,C_Cliente,B4XPage_Created,374,0,C_Cliente,GPS_LocationChanged,746,6,C_Cliente,Class_Globals,291,0,C_Cliente,B4XPage_Appear,436,6,DBRequestManager,ExecuteQuery,30,0,DBRequestManager,PrintTable,267,0,C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,461,0,C_Principal,JobDone,837,0 +NavigationStack=C_Nota,Mods,0,0,C_Cliente,Tar_Click,815,0,Diseñador Visual,nota.bal,-100,3,B4XMainPage,Class_Globals,69,0,Diseñador Visual,login.bal,-100,2,B4XMainPage,b_findiaOk_Click,587,0,C_Cliente,b_aceptarrpomo_Click,2974,6,Subs,iniciaActividad,683,0,C_Nota,borra_Click,252,4,C_Nota,ListView1_ItemLongClick,284,0 SelectedBuild=0 -VisibleModules=1,2,3,4,5,6,7,8,9,10,17,11 +VisibleModules=1,2,3,4,5,6,7,8,9,10,11,26