diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 58d16ce..f341606 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -574,7 +574,7 @@ Sub B4XPage_Appear ' Log(2) Log(Subs.traeTipoVentaDeBD) End If - B4XPages.MainPage.tipo_venta = tipo_venta +' B4XPages.MainPage.tipo_venta = Subs.traeTipoVentaDeBD Log($"TIPO_VENTA: ${tipo_venta}"$) encuentasmapa.Initialize Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA) @@ -3923,7 +3923,7 @@ Private Sub B_guardaencuesta_m4_Click itemselect16 = "Selecciona una opcion" MsgboxAsync("Encuesta guardada","") Else - B4XPages.MainPage.tipo_venta = tipo_venta +' B4XPages.MainPage.tipo_venta = Subs.traeTipoVentaDeBD ' tipo_venta = "PREVENTA" p_pregunta1.Visible = False SV_ENCUESTA.Visible = False @@ -3972,7 +3972,7 @@ Private Sub B_guardaencuesta_m5_Click skmt.ExecNonQuery2("INSERT INTO ENCUESTA_MODULO5 (CLIENTE, ALMACEN,P1, P2, P3, P4, P5, P6, P7, P8, P9) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object(Subs.traeCliente, ALMACEN,itemselect8,itemselect9,itemselect10,itemselect11,itemselect12,itemselect13,itemselect14,itemselect15,itemselect16)) SV_ENCUESTA.Visible = False p_cliente.Visible = True - B4XPages.MainPage.tipo_venta = tipo_venta +' B4XPages.MainPage.tipo_venta = Subs.traeTipoVentaDeBD B4XPages.ShowPage("productos") MsgboxAsync("Encuesta guardada","") Else diff --git a/B4A/C_Historico.bas b/B4A/C_Historico.bas index 96b581e..37b1a34 100644 --- a/B4A/C_Historico.bas +++ b/B4A/C_Historico.bas @@ -72,13 +72,14 @@ Sub B4XPage_Appear C.Close c=B4XPages.MainPage.skmt.ExecQuery("select HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) order by HVD_PRONOMBRE asc") ListView1.Clear + Log("--->>> HISTORIAL: " & c.RowCount) If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i Dim label1 As Label label1 = ListView1.TwoLinesLayout.Label label1.TextSize = 15 - label1.TextColor = Colors.Black + label1.TextColor = Colors.White Dim label2 As Label label2 = ListView1.TwoLinesLayout.SecondLabel label2.TextSize = 10 diff --git a/B4A/C_Pedidos.bas b/B4A/C_Pedidos.bas index 0375a2f..e10f293 100644 --- a/B4A/C_Pedidos.bas +++ b/B4A/C_Pedidos.bas @@ -285,7 +285,7 @@ Sub guardar_Click f.Close End If e.Close - B4XPages.MainPage.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_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0 , 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta)) + B4XPages.MainPage.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_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0 , 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, Subs.traeTipoVentaDeBD)) B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cantidad.Text, L_PROID.Text)) Else Msgbox("Tiene " & TOT_ART_PROMO & " " & TOT_ART_PROMOR & " y necesita " & PROMO_C & " " & PROMO_CR & " Para la Promo. " , "ADVERTENCIA") 'ignore @@ -320,14 +320,14 @@ Sub guardar_Click F.Position =i h=B4XPages.MainPage.skmt.ExecQuery2($"select CAT_GP_NOMBRE from ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_ID = ? "$, Array As String(f.GetString("CAT_DP_IDPROD"))) h.Position=0 - B4XPages.MainPage.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_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,f.GetString("CAT_DP_PRECIO") * cantidad.text * f.GetString("CAT_DP_PZAS"), f.GetString("CAT_DP_PRECIO"), f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta)) + B4XPages.MainPage.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_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,f.GetString("CAT_DP_PRECIO") * cantidad.text * f.GetString("CAT_DP_PZAS"), f.GetString("CAT_DP_PRECIO"), f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta, Subs.traeTipoVentaDeBD)) h.Close Next f.Close End If e.Close '0 - B4XPages.MainPage.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_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta)) + B4XPages.MainPage.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_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, Subs.traeTipoVentaDeBD)) B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cantidad.Text, L_PROID.Text)) cantidad.Text = "" c=B4XPages.MainPage.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)") @@ -351,7 +351,7 @@ Sub guardar_Click c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa") c.Position=0 usuario = c.GetString("USUARIO") - B4XPages.MainPage.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_COSTO_SIN, PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, B4XPages.MainPage.tipo_venta)) + B4XPages.MainPage.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_COSTO_SIN, PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, Subs.traeTipoVentaDeBD)) B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cantidad.Text, L_PROID.Text)) c=B4XPages.MainPage.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 @@ -448,7 +448,7 @@ Sub Terminar_Click h=B4XPages.MainPage.skmt.ExecQuery2($"select CAT_GP_NOMBRE from ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_ID = ? "$, Array As String(f.GetString("CAT_DP_IDPROD"))) h.Position=0 Log(111) - B4XPages.MainPage.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_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,precio_Cero * f.GetString("CAT_DP_PZAS") * cantidad.text, precio_Cero, f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta)) + B4XPages.MainPage.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_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,precio_Cero * f.GetString("CAT_DP_PZAS") * cantidad.text, precio_Cero, f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta, Subs.traeTipoVentaDeBD)) h.Close Next End If @@ -456,7 +456,7 @@ Sub Terminar_Click End If e.Close Log(222) - B4XPages.MainPage.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_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0 , 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta)) + B4XPages.MainPage.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_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0 , 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, Subs.traeTipoVentaDeBD)) B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cantidad.Text, L_PROID.Text)) Else Msgbox("Tiene " & TOT_ART_PROMO & " " & TOT_ART_PROMOR & " y necesita " & PROMO_C & " " & PROMO_CR & " Para la Promo. " , "ADVERTENCIA") 'ignore @@ -491,14 +491,14 @@ Sub Terminar_Click h=B4XPages.MainPage.skmt.ExecQuery2($"select CAT_GP_NOMBRE from ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_ID = ? "$, Array As String(f.GetString("CAT_DP_IDPROD"))) h.Position=0 Log(333) - B4XPages.MainPage.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_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,f.GetString("CAT_DP_PRECIO") * cantidad.text * f.GetString("CAT_DP_PZAS"), f.GetString("CAT_DP_PRECIO"), f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta)) + B4XPages.MainPage.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_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,f.GetString("CAT_DP_PRECIO") * cantidad.text * f.GetString("CAT_DP_PZAS"), f.GetString("CAT_DP_PRECIO"), f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta, Subs.traeTipoVentaDeBD)) h.Close Next f.Close End If e.Close Log(444) - B4XPages.MainPage.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_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta)) + B4XPages.MainPage.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_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, Subs.traeTipoVentaDeBD)) B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cantidad.Text, L_PROID.Text)) cantidad.Text = "" c=B4XPages.MainPage.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)") @@ -523,7 +523,7 @@ Sub Terminar_Click c.Position=0 usuario = c.GetString("USUARIO") Log(555) - B4XPages.MainPage.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_COSTO_SIN,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, B4XPages.MainPage.tipo_venta)) + B4XPages.MainPage.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_COSTO_SIN,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, Subs.traeTipoVentaDeBD)) B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cantidad.Text, L_PROID.Text)) c=B4XPages.MainPage.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 @@ -573,7 +573,7 @@ Sub nopromo_Click c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa") c.Position=0 usuario = c.GetString("USUARIO") - B4XPages.MainPage.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_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?) ", Array As Object ("COACALCO",0,0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario, B4XPages.MainPage.tipo_venta)) + B4XPages.MainPage.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_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?) ", Array As Object ("COACALCO",0,0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario, Subs.traeTipoVentaDeBD)) B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cantidad.Text, L_PROID.Text)) cantidad.Text = "" B4XPages.ShowPage("Productos") diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index c590d43..8261f4b 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -970,14 +970,14 @@ End Sub Sub B4XPage_Appear tipo_venta = Subs.traeTipoVentaDeBD - If B4XPages.MainPage.tipo_venta = "PREVENTA" Or B4XPages.MainPage.tipo_venta = "ABORDO" Then - Starter.tabla = "CAT_GUNAPROD" - Else If B4XPages.MainPage.tipo_venta = "VENTA" Then - Starter.tabla = "CAT_GUNAPROD2" - Else If B4XPages.MainPage.tipo_venta = "RECARGA" Then - Starter.tabla = "CAT_GUNAPROD3" - End If - Log(Starter.tabla) +' If B4XPages.MainPage.tipo_venta = "DISTRIBUCION" Or B4XPages.MainPage.tipo_venta = "PREVENTA" Or B4XPages.MainPage.tipo_venta = "ABORDO" Then +' Starter.tabla = "CAT_GUNAPROD" +' Else If B4XPages.MainPage.tipo_venta = "VENTA" Then +' Starter.tabla = "CAT_GUNAPROD2" +' Else If B4XPages.MainPage.tipo_venta = "RECARGA" Then +' Starter.tabla = "CAT_GUNAPROD3" +' End If + Log(Subs.traeTablaProds(Subs.traeTipoVentaDeBD)) clienteId = Subs.traeCliente rutaUsuario = Subs.traeRuta B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("PRIORITARIO","1")) @@ -1153,7 +1153,7 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object) ' c2=B4XPages.MainPage.skmt.ExecQuery2($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from ${Starter.tabla} where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )"$, Array As String(Value, Value, Value)) - c2=B4XPages.MainPage.skmt.ExecQuery2($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_PA_BSEGMENTA, CAT_PA_SEGMENTAV from ${Starter.tabla} where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )"$, Array As String(Value, Value)) + c2=B4XPages.MainPage.skmt.ExecQuery2($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_PA_BSEGMENTA, CAT_PA_SEGMENTAV from ${Subs.traeTablaProds(Subs.traeTipoVentaDeBD)} where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )"$, Array As String(Value, Value)) ' Log($"res:${c2.RowCount}, ${Value}, ${marca}, ${tipo}"$) Private yaComproPRO2265 As Boolean = Subs.revisaPRO2265(Subs.traeCliente) @@ -1257,10 +1257,10 @@ Sub lv_catalogos2_ItemClick (Position As Int, Value As Object) End If If Value = "PROMOS" Then LogColor("Promos", Colors.red) - c2=B4XPages.MainPage.skmt.ExecQuery2($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from ${Starter.tabla} where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) ) ORDER BY 1"$, Array As String(Value, marca, tipo)) + c2=B4XPages.MainPage.skmt.ExecQuery2($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from ${Subs.traeTablaProds(Subs.traeTipoVentaDeBD)} where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) ) ORDER BY 1"$, Array As String(Value, marca, tipo)) Else LogColor("Catalogo", Colors.red) - c2=B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from ${Starter.tabla} where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD <> 'PROMOS' "$) + c2=B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from ${Subs.traeTablaProds(Subs.traeTipoVentaDeBD)} where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD <> 'PROMOS' "$) End If ' If Value = "PROMOS" Then @@ -1563,7 +1563,7 @@ Sub b_prodMenos_Click LogColor("prodsMap="&prodsMap, Colors.blue) ' (Subs.traeAlmacen, p1.Get("precio"), p1.Get("cant"), pn, p, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta) Log($"${Subs.traeAlmacen}, ${precio}, ${laCant.text}, ${Subs.traeProdNombre(id)}, ${id}, ${clienteId}"$) - Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta) + Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, Subs.traeTipoVentaDeBD) cuentaProds LogColor("prodsMap="&prodsMap, Colors.blue) Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$) @@ -1683,13 +1683,13 @@ Sub b_prodMas_Click ' Else ' totalcajasmaspiezas = laCant.Text ' End If - Subs.actualizaProducto( Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta) + Subs.actualizaProducto( Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, Subs.traeTipoVentaDeBD) cuentaProds ' Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$) ' If 1 = 1 Then Private cs As CSBuilder cs.Initialize - Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Subs.traeTablaProds(B4XPages.MainPage.tipo_venta)} where CAT_GP_ID = '${id}'"$) + Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Subs.traeTablaProds(Subs.traeTipoVentaDeBD)} where CAT_GP_ID = '${id}'"$) Private invActualizado As String = "0" If o.RowCount > 0 Then o.Position = 0 @@ -1777,7 +1777,7 @@ Private Sub et_pCant_TextChanged (Old As String, New As String) ' End If If Not(Old = "0" And New = "") And laCant.Text <> Null And laCant.Text <> "" And etCantHasFocus Then Log("actualizamos producto") - Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta) + Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, Subs.traeTipoVentaDeBD) cuentaProds End If @@ -1794,7 +1794,7 @@ Private Sub et_pCant_TextChanged (Old As String, New As String) If 1 = 1 Then Private cs As CSBuilder cs.Initialize - Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Starter.tabla} where CAT_GP_ID = '${id}'"$) + Private o As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${Subs.traeTablaProds(Subs.traeTipoVentaDeBD)} where CAT_GP_ID = '${id}'"$) Private invActualizado As String = "0" ' If o.RowCount > 0 Then o.Position = 0 @@ -1841,7 +1841,7 @@ Sub cuentaProds End Sub Sub b_terminar1_Click -' Log("b_terminar1_Click") + Log("b_terminar1_Click") ' ya_entro = "0" : Log("ya_entro=1") B4XPages.MainPage.skmt.ExecNonQuery2("delete from PEDIDO WHERE PE_PRONOMBRE = ? ", Array As Object("N/A") ) @@ -1852,11 +1852,11 @@ Sub b_terminar1_Click lv_prodsPedido.TwoLinesLayout.Label.Height = 35dip lv_prodsPedido.TwoLinesLayout.SecondLabel.Height = 25dip Private c_prods As Cursor=B4XPages.MainPage.skmt.ExecQuery("select PE_PRONOMBRE,PE_COSTO_TOT, PE_CANT, PE_FOLIO, PE_CEDIS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_PRONOMBRE") + Log(">>>>> CUANTOS: " & c_prods.RowCount) If c_prods.RowCount > 0 Then Private cs As CSBuilder - vamoaver.Initialize - For i=0 To c_prods.RowCount -1 + For i = 0 To c_prods.RowCount - 1 cs.Initialize c_prods.Position=i Dim label1 As Label @@ -1865,13 +1865,20 @@ Sub b_terminar1_Click label1.TextColor = Colors.Black label1.color = Colors.White Private textColor As Int = Colors.black - + If c_prods.GetString("PE_FOLIO") = "VENTA" Then textColor = Colors.RGB(48,3,195) - Else If c_prods.GetString("PE_FOLIO") = "PREVENTA" Or c_prods.GetString("PE_FOLIO") = "ABORDO" Or c_prods.GetString("PE_FOLIO") = "RECARGA" Then + Else If c_prods.GetString("PE_FOLIO") = "DISTRIBUCION" Or c_prods.GetString("PE_FOLIO") = "PREVENTA" Or c_prods.GetString("PE_FOLIO") = "ABORDO" Or c_prods.GetString("PE_FOLIO") = "RECARGA" Then textColor = Colors.RGB(166,0,0) End If - If Not(IsNumber(c_prods.GetString("PE_CEDIS"))) And c_prods.GetString("PE_FOLIO") = "VENTA" Then + +' Log("---------------------------------------------") +' Log(Not(IsNumber(c_prods.GetString("PE_CEDIS")))) +' Log(c_prods.GetString("PE_FOLIO") = "VENTA") +' Log("---------------------------------------------") + + If Not(IsNumber(c_prods.GetString("PE_CEDIS"))) And (c_prods.GetString("PE_FOLIO") = "VENTA" Or c_prods.GetString("PE_FOLIO") = "DISTRIBUCION") Then +' Log("--->>>> PROMO") textColor = Colors.RGB(154,131,231) 'Si es promo, cambiamos el color del texto. Else If Not(IsNumber(c_prods.GetString("PE_CEDIS"))) And c_prods.GetString("PE_FOLIO") = "PREVENTA" Then textColor = Colors.RGB(255,111,111) 'Si es promo, cambiamos el color del texto. @@ -1880,7 +1887,7 @@ Sub b_terminar1_Click label2 = lv_prodsPedido.TwoLinesLayout.SecondLabel label2.TextSize = 10 label2.TextColor = Colors.Blue - + ' lv_prodsPedido.AddTwoLines(cs.Color(textColor).append(c_prods.GetString("PE_PRONOMBRE")).pop,"Cantidad #"& c_prods.GetString("PE_CANT")& " SubTotal $"& c_prods.GetString("PE_COSTO_TOT")& " Folio "& c_prods.GetString("PE_FOLIO")&"_____") lv_prodsPedido.AddSingleLine(cs.Color(textColor).Size(15).append(c_prods.GetString("PE_PRONOMBRE") & " ").pop.Append(CRLF).Size(10).Color(Colors.Black).Append("Cantidad #"& c_prods.GetString("PE_CANT")).Append(" SubTotal $"& c_prods.GetString("PE_COSTO_TOT")).Append(" " & c_prods.GetString("PE_FOLIO")& " " &c_prods.GetString("PE_CEDIS")).PopAll) label1.Height = 120dip @@ -1946,7 +1953,7 @@ End Sub Private Sub lv_promos_ItemLongClick (Position As Int, Value As Object) Log("Promo longclic = "&Value) Private id As String = "" - Dim c As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID from ${Starter.tabla} where CAT_GP_TIPO = 'PROMOS' and CAT_GP_NOMBRE = '${Value}'"$) + Dim c As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID from ${Subs.traeTablaProds(Subs.traeTipoVentaDeBD)} where CAT_GP_TIPO = 'PROMOS' and CAT_GP_NOMBRE = '${Value}'"$) If c.RowCount > 0 Then c.Position = 0 id = c.GetString("CAT_GP_ID") @@ -2052,18 +2059,18 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object) If result = DialogResponse.POSITIVE Then c=B4XPages.MainPage.skmt.ExecQuery2("select PE_PROID,PE_CANT, PE_FOLIO FROM PEDIDO where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) ", Array As String(Value)) c.Position=0 - Log(vamoaver.Get(Position)) - If vamoaver.Get(Position) = "VENTA" Then - Log("CAT_GUNAPROD2") - Log(Position) - Log(Value) - Starter.tabla = "CAT_GUNAPROD2" - Else - Log("CAT_GUNAPROD") - Log(Position) - Log(Value) - Starter.tabla = "CAT_GUNAPROD" - End If +' Log(vamoaver.Get(Position)) +' If vamoaver.Get(Position) = "VENTA" Then +' Log("CAT_GUNAPROD2") +' Log(Position) +' Log(Value) +' Starter.tabla = "CAT_GUNAPROD2" +' Else +' Log("CAT_GUNAPROD") +' Log(Position) +' Log(Value) +' Starter.tabla = "CAT_GUNAPROD" +' End If ' B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?"$, Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID"))) ' Log(c.GetString("PE_CANT")) ' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (Subs.traeAlmacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1)) @@ -2104,7 +2111,7 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object) ' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") ' B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps)) ' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") -' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") +' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") ' Private h As Cursor = B4XPages.MainPage.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART, sum (PE_COSTO_TOT) as PC_MONTO from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )") ' h.Position=0 ' l_cant.Text = h.GetString("PC_NOART") @@ -2113,7 +2120,7 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object) ' Else ' Log("aqui6") ' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") -' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") +' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") ' Private h As Cursor = B4XPages.MainPage.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART, sum (PE_COSTO_TOT) as PC_MONTO from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )") ' h.Position=0 ' l_cant.Text = 0 @@ -2384,6 +2391,10 @@ Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As In Next End Sub + +'android.database.sqlite.SQLiteException: near "where": syntax error (code 1 SQLITE_ERROR): , while compiling: select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_PA_BSEGMENTA, CAT_PA_SEGMENTAV from where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) ) + + Sub Busca_TextChanged (Old As String, New As String) ' Private inicioContador As String = DateTime.Now If Not(clv_prods_ll.AsView.Visible) Then clv_prods_ll.AsView.Visible = True @@ -2394,7 +2405,7 @@ Sub Busca_TextChanged (Old As String, New As String) listaHints.Initialize Sleep(0) ' Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Starter.tabla} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$) - Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select DISTINCT CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_GP_NOMBRE like '%${New}%' AND CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN > 0 And CAT_GP_CLASIF <> 'PROMOS' AND CAT_GP_TIPO <> 'PROMOCION' union all select DISTINCT CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN = 0 And CAT_GP_CLASIF <> 'PROMOS' and cat_gp_id in (select pe_proid from pedido where pe_cliente in (select cuenta from cuentaa)) order by 2"$) + Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select DISTINCT CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Subs.traeTipoVentaDeBD)} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_GP_NOMBRE like '%${New}%' AND CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN > 0 And CAT_GP_CLASIF <> 'PROMOS' AND CAT_GP_TIPO <> 'PROMOCION' union all select DISTINCT CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Subs.traeTipoVentaDeBD)} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN = 0 And CAT_GP_CLASIF <> 'PROMOS' and cat_gp_id in (select pe_proid from pedido where pe_cliente in (select cuenta from cuentaa)) order by 2"$) Log("Llamamos LlenaProdsLL") LlenaProdsLL(p) ' Do While p.NextRow @@ -2424,7 +2435,7 @@ Sub LlenaProdsLL(p As ResultSet) Dim cantsMap As Map cantsMap.Initialize - Dim pe As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select PE_PROID, PE_CANT from PEDIDO where PE_CLIENTE = '${clienteId}' and PE_CEDIS = '${Subs.traeAlmacen}' and PE_FOLIO = '${B4XPages.MainPage.tipo_venta}'"$) + Dim pe As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select PE_PROID, PE_CANT from PEDIDO where PE_CLIENTE = '${clienteId}' and PE_CEDIS = '${Subs.traeAlmacen}' and PE_FOLIO = '${Subs.traeTipoVentaDeBD}'"$) ' LogColor("Ponemos productos de pedido anterior: "&pe.RowCount, Colors.red) Do While pe.NextRow Private cant As Int = 0 @@ -2445,7 +2456,7 @@ Sub LlenaProdsLL(p As ResultSet) ' Log("NO HAY RESULSET") - LogColor(Starter.tabla,Colors.blue) + LogColor(Subs.traeTablaProds(Subs.traeTipoVentaDeBD), Colors.blue) ' Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Starter.tabla} where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$) ' Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select distinct CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN > 0 And CAT_GP_CLASIF <> 'PROMOS' union all select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN = 0 And CAT_GP_CLASIF <> 'PROMOS' and cat_gp_id in (select pe_proid from pedido where pe_cliente in (select cuenta from cuentaa)) order by 2"$) @@ -2892,13 +2903,13 @@ Sub terminarpromoesp c2 = B4XPages.MainPage.skmt.ExecQuery($"select * from ${Subs.traeTablaProds(tipo_venta)} WHERE CAT_GP_ID IN (SELECT DISTINCT CAT_PE_IDPROMO FROM CAT_PROMO_ESP)"$) If c2.RowCount > 0 Then c2.Position = 0 - Subs.guardaProducto(c2.GetString("CAT_GP_ID"), "0", 1,c2.GetString("CAT_GP_NOMBRE"), c2.GetString("CAT_GP_ID"), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta) + Subs.guardaProducto(c2.GetString("CAT_GP_ID"), "0", 1,c2.GetString("CAT_GP_NOMBRE"), c2.GetString("CAT_GP_ID"), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, Subs.traeTipoVentaDeBD) c = B4XPages.MainPage.skmt.ExecQuery("select * from CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (SELECT DISTINCT CAT_PE_IDPROMO FROM CAT_PROMO_ESP)") If c.RowCount > 0 Then For i = 0 To c.RowCount - 1 c.Position = i Private pn As String = Subs.traeProdNombre(c.GetString("CAT_DP_IDPROD")) - Subs.guardaProducto(c2.GetString("CAT_GP_ID"), c.GetString("CAT_DP_PRECIO"), c.GetString("CAT_DP_PZAS"), pn, c.GetString("CAT_DP_IDPROD"), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta) + Subs.guardaProducto(c2.GetString("CAT_GP_ID"), c.GetString("CAT_DP_PRECIO"), c.GetString("CAT_DP_PZAS"), pn, c.GetString("CAT_DP_IDPROD"), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, Subs.traeTipoVentaDeBD) Next End If c.Close diff --git a/B4A/C_Promos.bas b/B4A/C_Promos.bas index e7f5e99..5aba726 100644 --- a/B4A/C_Promos.bas +++ b/B4A/C_Promos.bas @@ -979,11 +979,11 @@ Private Sub b_terminar1_Click Log("====================================================================") For t = 0 To prodsIds.Size - 1 'Guardamos los productos fijos de la promocion en pedido. Private pn As String = Subs.traeProdNombre(prodsIds.Get(t)) - If prodsCants.Get(t) > 0 Then Subs.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta) + If prodsCants.Get(t) > 0 Then Subs.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, Subs.traeTipoVentaDeBD) Next For t = 0 To prodsIds2.Size - 1 'Guardamos los productos variables de la promocion en pedido. Private pn As String = Subs.traeProdNombre(prodsIds2.Get(t)) - Subs.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta) + Subs.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, Subs.traeTipoVentaDeBD) Next ' Log(B4XPages.MainPage.productos.prodsMap) ' For o=0 To prodsIds.Size - 1 'Ponemos los productos fijos en el mapa de la compra. @@ -1008,11 +1008,11 @@ Private Sub b_continuar_Click Log("====================================================================") For t = 0 To prodsIds.Size - 1 'Guardamos los productos fijos de la promocion en pedido. Private pn As String = Subs.traeProdNombre(prodsIds.Get(t)) - Subs.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta) + Subs.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, Subs.traeTipoVentaDeBD) Next For t = 0 To prodsIds2.Size - 1 'Guardamos los productos variables de la promocion en pedido. Private pn As String = Subs.traeProdNombre(prodsIds2.Get(t)) - Subs.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta) + Subs.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, Subs.traeTipoVentaDeBD) Next ' Log(B4XPages.MainPage.productos.prodsMap) ' For o=0 To prodsIds.Size - 1 'Ponemos los productos fijos en el mapa de la compra. diff --git a/B4A/C_TicketsDia.bas b/B4A/C_TicketsDia.bas index d45ba43..8dcba28 100644 --- a/B4A/C_TicketsDia.bas +++ b/B4A/C_TicketsDia.bas @@ -179,7 +179,7 @@ Sub b_noventa_Click nombre_boton = "VENTA" b_noventa.Text ="VENTA" L_ventanoventa.Text = "Clientes sin venta" - c=B4XPages.MainPage.skmt.ExecQuery("select NV_CLIENTE,NV_MOTIVO,NV_COMM, (select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = NV_CLIENTE ) as NOMBRE FROM NOVENTA ORDER BY NV_CLIENTE asc") + c=B4XPages.MainPage.skmt.ExecQuery("select NV_CLIENTE,NV_MOTIVO,NV_COMM, (select CAT_CL_NOMBRE from kmt_info3 where cat_cl_codigo = NV_CLIENTE ) as NOMBRE FROM NOVENTA ORDER BY NV_CLIENTE asc") ListView1.Clear If c.RowCount>0 Then For i=0 To c.RowCount -1 diff --git a/B4A/Salma_Venta.b4a b/B4A/Salma_Venta.b4a index affd4f5..db4720e 100644 --- a/B4A/Salma_Venta.b4a +++ b/B4A/Salma_Venta.b4a @@ -1,17 +1,19 @@ Build1=Default,salma.keymon.net File1=alert2.png File10=clientes.bal -File100=senial.jpg -File101=sync.png -File102=tache_rojo.png -File103=telefonos.bal -File104=Ticket dia.jpg -File105=ticketdia20.png -File106=ticketsdia.bal -File107=Tiendita.jpg -File108=usuario.png -File109=verde.png +File100=salma_191x191.png +File101=seleccion.bal +File102=senial.jpg +File103=sync.png +File104=tache_rojo.png +File105=telefonos.bal +File106=Ticket dia.jpg +File107=ticketdia20.png +File108=ticketsdia.bal +File109=Tiendita.jpg File11=comis.bal +File110=usuario.png +File111=verde.png File12=contrasena.png File13=datoscliente.bal File14=detalle_promo.bal @@ -49,65 +51,65 @@ File42=ic_cloud_download_white_24dp.png File43=images.png File44=infonavit1.jpg File45=inicioFinVenta.bal -File46=itembuttonblue.png -File47=keymon_logo.png -File48=kmt.db -File49=login.bal +File46=intmex_logo_192x192.jpg +File47=itembuttonblue.png +File48=keymon_logo.png +File49=kmt.db File5=anterior.jpg -File50=Logo Guna_192x192.png -File51=Logo Guna-01.png -File52=logo sanfer.jpg -File53=logo_exitus1.jpg -File54=logo-guna-18.png -File55=logo-guna-contorno.png -File56=MainPage.bal -File57=Malo.jpg -File58=mapa.bal -File59=mapa_rutas.bal +File50=login.bal +File51=Logo Guna_192x192.png +File52=Logo Guna-01.png +File53=logo sanfer.jpg +File54=Logo_192x192.jpg +File55=logo_exitus1.jpg +File56=logo-guna-18.png +File57=logo-guna-contorno.png +File58=MainPage.bal +File59=Malo.jpg File6=bus-ar.png -File60=maparutas.bal -File61=mas-azul.png -File62=mas-azul-red.png -File63=mas-azul-red1.png -File64=menos.png -File65=menosred.png -File66=menos-red.png -File67=nota (conflict 2022-07-08-00-16-40).bal -File68=nota.bal -File69=noventa.bal +File60=mapa.bal +File61=mapa_rutas.bal +File62=maparutas.bal +File63=mas-azul.png +File64=mas-azul-red.png +File65=mas-azul-red1.png +File66=menos.png +File67=menosred.png +File68=menos-red.png +File69=nota (conflict 2022-07-08-00-16-40).bal File7=carrito.png -File70=nuevocliente.bal -File71=nuevo-cliente20.png -File72=Nvo Cliente.jpg -File73=p&g.png -File74=palomita_verde.png -File75=pedido.bal -File76=planfia_logo.png -File77=planfia_logo_old.png -File78=planfia_logo_old2.png -File79=principal.bal +File70=nota.bal +File71=noventa.bal +File72=nuevocliente.bal +File73=nuevo-cliente20.png +File74=Nvo Cliente.jpg +File75=p&g.png +File76=palomita_verde.png +File77=pedido.bal +File78=planfia_logo.png +File79=planfia_logo_old.png File8=celltitle.bal -File80=proditem.bal -File81=proditem_.bal -File82=proditem1.bal -File83=proditem2.bal -File84=productos.bal -File85=productos_.bal -File86=promociones.bal -File87=promociones_.bal -File88=qr.bal -File89=qr_gallina.jpg +File80=planfia_logo_old2.png +File81=principal.bal +File82=proditem.bal +File83=proditem_.bal +File84=proditem1.bal +File85=proditem2.bal +File86=productos.bal +File87=productos_.bal +File88=promociones.bal +File89=promociones_.bal File9=cliente.bal -File90=QRPlanLealtad.png -File91=resdia.bal -File92=ResDia.jpg -File93=resdia20.png -File94=rojo.png -File95=salma.jpg -File96=salma.png -File97=salma_191x191.jpg -File98=salma_191x191.png -File99=seleccion.bal +File90=qr.bal +File91=qr_gallina.jpg +File92=QRPlanLealtad.png +File93=resdia.bal +File94=ResDia.jpg +File95=resdia20.png +File96=rojo.png +File97=salma.jpg +File98=salma.png +File99=salma_191x191.jpg FileGroup1=Default Group FileGroup10=Default Group FileGroup100=Default Group @@ -121,6 +123,8 @@ FileGroup107=Default Group FileGroup108=Default Group FileGroup109=Default Group FileGroup11=Default Group +FileGroup110=Default Group +FileGroup111=Default Group FileGroup12=Default Group FileGroup13=Default Group FileGroup14=Default Group @@ -279,7 +283,7 @@ Module6=C_Clientes Module7=C_Cuestionario Module8=C_Historico Module9=C_Mapas -NumberOfFiles=109 +NumberOfFiles=111 NumberOfLibraries=34 NumberOfModules=26 Version=12.8 @@ -287,7 +291,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Salma Preventa #VersionCode: 1 - #VersionName: 5.07.03 + #VersionName: 5.07.05.1 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Salma_Venta.b4a.meta b/B4A/Salma_Venta.b4a.meta index 4558a07..02d677a 100644 --- a/B4A/Salma_Venta.b4a.meta +++ b/B4A/Salma_Venta.b4a.meta @@ -79,6 +79,6 @@ ModuleClosedNodes6= ModuleClosedNodes7=6,8,9,10,11 ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Principal,cargar_Click,1033,0,C_Cliente,B4XPage_Appear,551,0,C_Cliente,Initialize,465,0,C_Cliente,B4XPage_Created,528,2,C_Cliente,JobDone,1470,0,Diseñador Visual,cliente.bal,-100,6,C_Cliente,b_geopass_Click,1435,0,C_Cliente,gest_Click,1604,0,C_Cliente,EnviarPDFWhatsAppNumero2,5820,0,C_Cliente,gestionar,1648,0 +NavigationStack=C_Pedidos,nopromo_Click,569,0,C_Pedidos,Terminar_Click,519,0,C_Cliente,B_guardaencuesta_m5_Click,3968,0,C_Cliente,B_guardaencuesta_m4_Click,3919,0,C_Cliente,B4XPage_Appear,570,0,C_Productos,Busca_TextChanged,2402,0,C_Productos,LlenaProdsLL,2453,0,C_Productos,B4XPage_Appear,972,1,C_Productos,lv_prodsPedido_ItemLongClick,2056,0,C_Productos,lv_promos_ItemLongClick,1957,0,C_Productos,lv_tipo_ItemClick,1963,0 SelectedBuild=0 -VisibleModules=24,2,14,25,5,10,11,20,15 +VisibleModules=24,2,14,25,5,15,17,8,13,16 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 7c26fce..93634c1 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -737,7 +737,7 @@ Sub borraPedidoClienteActual As String ' End If ' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)") ' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)") -' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") +' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") ' Return 1 Private thisC As Cursor ' Private tablaProds As String = "cat_gunaprod2" @@ -753,7 +753,7 @@ Sub borraPedidoClienteActual As String End If 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)") + Starter.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") Return 1 End Sub @@ -779,7 +779,7 @@ End Sub Sub traeRuta2 (cliente As String) As String 'ignore Private c As Cursor Private r As String - c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO = '${cliente}' UNION ALL select CAT_CL_RUTA from kmt_info2 where CAT_CL_CODIGO = '${cliente}'"$) + c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_RUTA from kmt_info3 where CAT_CL_CODIGO = '${cliente}' UNION ALL select CAT_CL_RUTA from kmt_info2 where CAT_CL_CODIGO = '${cliente}'"$) r = "0" If c.RowCount > 0 Then c.Position=0 @@ -863,6 +863,7 @@ End Sub Sub guardaProducto(cedis As String, costoU As String, cant As String, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoVenta As String) LogColor("guardaProducto: "&prodId&", cant="&cant&" - TV:"&tipoVenta, Colors.Magenta) + If tipoVenta = "DISTRIBUCION" Then tipoVenta = "PREVENTA" Private c As Cursor B4XPages.MainPage.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_COSTO_SIN,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (cedis, (cant * costoU), costoU, cant, nombre, prodId, clienteId, fecha, usuario, traeRutaBitacora, precioSin, tipoVenta)) B4XPages.MainPage.skmt.ExecNonQuery2($"update ${traeTablaProds(traeTipoVentaDeBD)} set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cant, prodId)) @@ -1560,7 +1561,7 @@ Sub revisaPromoProcterPRO3009(prodsMap1 As Map) If invRegalo > 0 Then Log("Hay inventario para regalo") If totalRegalos = 0 Then - guardaProducto("PRO3009", 1, 1, traeProdNombre(idRegalo), idRegalo, traeCliente, traeFecha, traeUsuarioDeBD, traeRuta, 0, B4XPages.MainPage.tipo_venta) + guardaProducto("PRO3009", 1, 1, traeProdNombre(idRegalo), idRegalo, traeCliente, traeFecha, traeUsuarioDeBD, traeRuta, 0, traeTipoVentaDeBD) ' ToastMessageShow("Agregamos regalo", False) Private cs As CSBuilder cs.Initialize @@ -1795,6 +1796,7 @@ End Sub 'Si "gestion=2" entonces el sistema considera que el pedido ya se guardó y ya no se debe modificar. Sub guardaProductoSinGestion(cedis As String, costoU As String, cant As String, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoVenta As String) If nombre.Length < 6 Then ToastMessageShow("(guardaProductoSinGestion) El nombre del producto no es valido " & nombre, True) + if tipoVenta = "DISTRIBUCION" then tipoVenta = "PREVENTA" precioSin = NumberFormat2(precioSin, 1, 2, 2, False) costoU = NumberFormat2(costoU, 1, 2, 2, False) ' LogColor("guardaProductoSinGestion: "&prodId&", cant="&cant&", tipo="&tipoVenta, Colors.Magenta) @@ -1820,7 +1822,7 @@ Sub traeTablaProds(tipoventa As String) As String tablaProds = "cat_gunaprod" 'Salma solo maneja Preventa. -' LogColor($"Tipo= ${tipoventa}, tabla=${tablaProds}"$, Colors.RGB(200,136,0)) + LogColor($"Tipo= ${tipoventa}, tabla=${tablaProds}"$, Colors.RGB(200,136,0)) Return tablaProds End Sub @@ -1841,13 +1843,16 @@ End Sub 'Trae el tipo de venta (VENTA o PREVENTA) desde CAT_VARIABLES, o "PREVENTA" por default. Sub traeTipoVentaDeBD As String Private tipoVenta As String = "PREVENTA" - Private r As ResultSet = Starter.skmt.ExecQuery("select * from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'TIPO_VENTA' ") - Do While r.NextRow - tipoVenta = r.GetString("CAT_VA_VALOR").As(String).ToUpperCase - Loop - If Starter.idCliente = "0" Then - tipoVenta = "ABORDO" - End If +' Private r As ResultSet = Starter.skmt.ExecQuery("select * from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'TIPO_VENTA' ") +' Do While r.NextRow +' tipoVenta = r.GetString("CAT_VA_VALOR").As(String).ToUpperCase +' Loop +' If Starter.idCliente = "0" Then +' tipoVenta = "ABORDO" +' End If + + tipoVenta = "PREVENTA" ' Salma solo usa PREVENTA + ' Log(">>>>>>> " & tipoVenta) Return tipoVenta End Sub @@ -1946,7 +1951,7 @@ End Sub Sub traeinventario(id As String) As String Dim c As Cursor Dim inventario As String = "0" - c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${traeTablaProds(B4XPages.MainPage.tipo_venta)} where CAT_GP_ID = '${id}'"$) + c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${traeTablaProds(traeTipoVentaDeBD)} where CAT_GP_ID = '${id}'"$) ' Log($"select CAT_GP_ALMACEN from ${Starter.tabla} where CAT_GP_NOMBRE = '${id}'"$) If c.RowCount > 0 Then c.Position = 0 @@ -2039,7 +2044,7 @@ Sub traePromo(promo As String, cliente As String) As Map Else promoMap.Put("resultado", "No hay datos de la promoción.") End If - c = B4XPages.MainPage.skmt.ExecQuery2($"Select CAT_GP_STS, CAT_GP_IMP1, CAT_GP_NOMBRE from ${Starter.tabla} where CAT_GP_ID = ?"$,Array As String(promo)) 'Obtenemos las piezas requeridas de productos variables para la promoción. + c = B4XPages.MainPage.skmt.ExecQuery2($"Select CAT_GP_STS, CAT_GP_IMP1, CAT_GP_NOMBRE from ${traeTablaProds(traeTipoVentaDeBD)} where CAT_GP_ID = ?"$,Array As String(promo)) 'Obtenemos las piezas requeridas de productos variables para la promoción. c.Position = 0 Private pvr As String = 0 Private pvr2 As String = 0