From 501c2813807250fe5688fbec00b75097866ff263 Mon Sep 17 00:00:00 2001 From: Javier Date: Fri, 26 Sep 2025 13:33:24 -0600 Subject: [PATCH] v.5.09.07 s/C Se quitan los clientes nuevos, se agrega un boton de productos, se envian los clienes nuevos con el mandapendientes --- B4A/C_Cliente.bas | 38 +++++++-------- B4A/C_Principal.bas | 61 +++++++++++++++++++++++- B4A/C_Productos.bas | 100 ++++++++++++++++++++++++++++++++-------- B4A/C_Promos.bas | 10 ++-- B4A/C_Validador.bas | 2 +- B4A/Files/principal.bal | Bin 49071 -> 50878 bytes B4A/INTMEX.b4a | 2 +- B4A/INTMEX.b4a.meta | 4 +- 8 files changed, 169 insertions(+), 48 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index bca8afc..c2a801b 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -626,7 +626,7 @@ Sub Guardar_Click ' LogColor($"actualizamos "${la_cuenta.text}, hora_final=${DateTime.now}"$,Colors.Red) Subs.actualizaTET(la_cuenta.text) DateTime.TimeFormat = "HH:mm:ss" -' mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!! + mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!! solo envia clientes nuenos, no comentar lo que yo descomente --- javier (por que Guerra lo comento) mandapiezas B4XPages.MainPage.productos.reiniciarlistaProds = True B4XPages.MainPage.productos.prodsMap.Initialize @@ -1210,24 +1210,24 @@ Sub mandaPendientes ' End If ' ab.Close -' 'CLIENTES NUEVOS -' Dim bb As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT * from CLIENTE_NUEVO where CN_enviado is null"$) -' Dim cb As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT ID_ALMACEN from CAT_ALMACEN") -' cb.Position = 0 -' If bb.RowCount > 0 Then -' For i=0 To bb.RowCount -1 -' bb.Position = i -' Dim cmd As DBCommand -' cmd.Initialize -' cmd.Name = "insert_cliente_INTMEX" -' cmd.Parameters = Array As Object( bb.GetString("CN_ID_CLIENTE"), bb.GetString("CN_NOMBRE"),B4XPages.MainPage.principal.l_ruta.Text,cb.GetString("ID_ALMACEN")) -' reqManager.ExecuteCommand(cmd , $"insert_cliente_${bb.GetString("CN_ID_CLIENTE")}"$) -' Log($"insert_cliente_${bb.GetString("CN_ID_CLIENTE")}"$) -' Next -' Log("si lo hice") -' End If -' bb.Close -' cb.Close + 'CLIENTES NUEVOS + Dim bb As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT * from CLIENTE_NUEVO where CN_enviado is null"$) + Dim cb As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT ID_ALMACEN from CAT_ALMACEN") + cb.Position = 0 + If bb.RowCount > 0 Then + For i=0 To bb.RowCount -1 + bb.Position = i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_cliente_INTMEX" + cmd.Parameters = Array As Object( bb.GetString("CN_ID_CLIENTE"), bb.GetString("CN_NOMBRE"),B4XPages.MainPage.principal.l_ruta.Text,cb.GetString("ID_ALMACEN")) + reqManager.ExecuteCommand(cmd , $"insert_cliente_${bb.GetString("CN_ID_CLIENTE")}"$) + Log($"insert_cliente_${bb.GetString("CN_ID_CLIENTE")}"$) + Next + Log("si lo hice") + End If + bb.Close + cb.Close '' BANDERA FACTURA (Pendientes) '' c=B4XPages.MainPage.skmt.ExecQuery("SELECT PC_FACTURA, PC_CLIENTE FROM pedido_cliente where PC_CLIENTE IN (Select CUENTA from cuentaa)") diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index c3928dc..c22455d 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -218,6 +218,10 @@ Sub Class_Globals Private b_muestraPendientes As Button ' Dim p_conexion As Panel Dim l_conexion As Label + Private lv_prod_Prin As ListView + Private p_prod As Panel + Private b_regreso As Button + Private b_productos As Button End Sub 'You can add more parameters here. @@ -432,6 +436,15 @@ Sub B4XPage_Appear l_ruta.Text = f.GetString("CAT_CL_RUTA") f.Close End If + + If l_ruta.Text = "0" Then + + b_productos.Visible = False + Else + + b_productos.Visible = True + End If + If Cuantos = 0 Then L_MONTOD.Text =0 l_cuantosc.Text = 0 @@ -689,7 +702,7 @@ Sub Subir_Click Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_pedido5_INTMEX" 'CON TOTALES INCLUIDOS - cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO"), c.GetString("PCNoArts"), c.GetString("PCMonto"), c.GetString("PE_TICKET"), Application.VersionName, elFolio) + cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO"), c.GetString("PCNoArts"), c.GetString("PCMonto"), c.GetString("PE_TICKET"), elFolio) reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$) ' Log($">>>> INS_PEDIDO= ${C.GetString("PE_CEDIS")},${ALMACEN},${C.GetString("PE_COSTO_TOT")},${C.GetString("PE_COSTOU")},${C.GetString("PE_CANT")}, ${C.GetString("PE_PRONOMBRE")}, ${C.GetString("PE_PROID")}, ${C.GetString("PE_CLIENTE")}, ${C.GetString("PE_FECHA")}, ${C.GetString("PE_USUARIO")}, ${C.GetString("PE_RUTA")}, ${C.GetString("PE_COSTO_SIN")}, ${C.GetString("PE_DESC")}, ${c.GetString("PE_FOLIO")}, ${PCNoArts}, ${PCMonto}, ${c.GetString("PE_TICKET")}"$) ' cmd.Name = "insert_pedido_INTMEX" ' SIN TOTALES INCLUIDOS @@ -2726,4 +2739,50 @@ Sub checaPedido If c.RowCount > 0 Then Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 3 WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)") End If +End Sub + + +Private Sub b_productos_Click + + Dim label1 As Label + label1 = lv_prod_Prin.SingleLineLayout.Label + label1.TextSize = 14 + p_prod.Width = Root.Width + p_prod.Height = Root.Height + b_regreso.Left = (p_prod.Width - b_regreso.Width) / 2 + b_regreso.Top = p_prod.Height - b_regreso.Height + + p_prod.Visible = True + p_prod.BringToFront + + + Private c As Cursor = Starter.skmt.ExecQuery("select CAT_GP_NOMBRE AS HVD_PRONOMBRE, IFNULL(CAT_GP_PRECIO, 0) AS HVD_RECHAZOCANT from CAT_GUNAPROD order by CAT_GP_NOMBRE asc") + + lv_prod_Prin.SingleLineLayout.Label.TextColor = Colors.Black + lv_prod_Prin.Clear + If c.RowCount > 0 Then + For i = 0 To c.RowCount - 1 + c.Position = i + Dim itemText As String + + + + itemText = $"${c.GetString("HVD_PRONOMBRE")} ${CRLF}Precio: ${(c.GetDouble("HVD_RECHAZOCANT"))}"$ + lv_prod_Prin.AddSingleLine(itemText) + + + Next + Else + lv_prod_Prin.AddSingleLine("No hay datos disponibles.") + End If + c.Close + +End Sub + +Private Sub b_regreso_Click + p_prod.Visible = False +End Sub + +Private Sub p_prod_Click + End Sub \ No newline at end of file diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index 36b0b7f..6a2ddb0 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -184,7 +184,7 @@ Sub B4XPage_Appear c = B4XPages.MainPage.skmt.ExecQuery($"SELECT CUENTA FROM CUENTAA"$) c.Position = 0 If c.GetString("CUENTA") <> "0" Then - 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_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("PROMOS", "PROMOS")) + 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_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 CAT_GP_NOMBRE"$, Array As String("PROMOS", "PROMOS")) ' Log($"res:${c2.RowCount}, ${Value}, ${marca}, ${tipo}"$) Private hayPromos As Boolean = False If c2.RowCount > 0 Then @@ -295,7 +295,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 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 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) ) ORDER BY CAT_GP_NOMBRE"$, Array As String(Value, Value)) ' Log($"res:${c2.RowCount}, ${Value}, ${marca}, ${tipo}"$) If c2.RowCount > 0 Then For i=0 To c2.RowCount -1 @@ -328,7 +328,7 @@ 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) )"$, 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 ${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 CAT_GP_NOMBRE "$, 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' "$) @@ -1133,30 +1133,88 @@ Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As In Next End Sub + + 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 + If (New.Length = 1 Or New.Length = 2) And Not(forzarBusqueda) Then Return forzarBusqueda = False clv_prods_ll.Clear listaProds.Initialize listaHints.Initialize Sleep(0) - Private tipoRuta As String = "" - Private tRuta As Cursor = Starter.skmt.ExecQuery("select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'TIPO_RUTA'") - If tRuta.RowCount > 0 Then - tRuta.Position = 0 - tipoRuta = tRuta.GetString("CAT_VA_VALOR") + If BUSCA.Text = "" Then + lv_promos.Visible = False + clv_prods_ll.AsView.Visible = False + End If - If tipoRuta = "MAYOREO" Then - LogColor("####### RUTA MAYOREO ###########", Colors.red) - Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO10 as CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Starter.tabla} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_PRECIO10 > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$) + If lfila.text = "PROMOS" Then +' If Not(lv_promos.Visible) Then lv_promos.Visible = True +' Private cPromo As Cursor=Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_TIPO, CAT_GP_IMG from ${Starter.tabla} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS' AND CAT_GP_TIPOPROD <> 1 and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID) and CAT_GP_PROMOCION <> '1' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$) +' Log($"res:${cPromo.RowCount}"$) +' If cPromo.RowCount > 0 Then +' lv_promos.Clear +' For i=0 To cPromo.RowCount -1 +' cPromo.Position=i +' Private tm As Map = Subs.procesaPromocion(cPromo.GetString("CAT_GP_ID"), clienteId) +' If tm.Get("status") = "ok" Then 'Solo muestrala si hay producto. +' lv_promos.AddTwoLines(cPromo.GetString("CAT_GP_NOMBRE"),"# " & cPromo.GetString("CAT_GP_ALMACEN") & " $ " & cPromo.GetString("CAT_GP_PRECIO") & " F:" & tm.Get("mp").As(Map).Get("prodsFijosCant") & " V:" & tm.Get("mp").As(Map).Get("prodsVariablesCant")) +' End If +' Next + + lv_promos.Visible = True + 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_NOMBRE like '%${New}%' and 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) ) ORDER BY CAT_GP_NOMBRE"$, Array As String("PROMOS", "PROMOS")) +' Log($"res:${c2.RowCount}, ${Value}, ${marca}, ${tipo}"$) + If c2.RowCount > 0 Then + lv_promos.Clear + For i=0 To c2.RowCount -1 + c2.Position=i + Private tm As Map = Subs.procesaPromocion(c2.GetString("CAT_GP_ID"), clienteId) + If tm.Get("status") = "ok" Then 'Solo muestrala si hay producto. + lv_promos.AddTwoLines(c2.GetString("CAT_GP_NOMBRE"),"# " & c2.GetString("CAT_GP_ALMACEN") & " $ " & c2.GetString("CAT_GP_PRECIO") & " F:" & tm.Get("mp").As(Map).Get("prodsFijosCant") & " V:" & tm.Get("mp").As(Map).Get("prodsVariablesCant")) + End If + Next + Else + ToastMessageShow("No hay promociones disponibles.", False) + End If + c2.Close + + If BUSCA.Text = "" Then + lv_promos.Visible = False + clv_prods_ll.AsView.Visible = False + lv_catalogos.Visible = True + lfila.text = "CATALOGOS" + End If +' Else +' ToastMessageShow("No hay promociones disponibles.", False) +' End If +' cPromo.Close Else - LogColor("####### RUTA TRADICIONAL ###########", Colors.red) - 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"$) - End If - Log("Llamamos LlenaProdsLL") - LlenaProdsLL(p) + + If Not(clv_prods_ll.AsView.Visible) Then clv_prods_ll.AsView.Visible = True + Private tipoRuta As String = "" + Private tRuta As Cursor = Starter.skmt.ExecQuery("select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'TIPO_RUTA'") + If tRuta.RowCount > 0 Then + tRuta.Position = 0 + tipoRuta = tRuta.GetString("CAT_VA_VALOR") + End If + If tipoRuta = "MAYOREO" Then + LogColor("####### RUTA MAYOREO ###########", Colors.red) + Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO10 as CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Starter.tabla} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_PRECIO10 > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$) + Else + LogColor("####### RUTA TRADICIONAL ###########", Colors.red) + 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"$) + End If + clv_prods_ll.AsView.Visible = True + Log("Llamamos LlenaProdsLL") + LlenaProdsLL(p) + If BUSCA.Text = "" Then + lv_promos.Visible = False + clv_prods_ll.AsView.Visible = False + lv_catalogos.Visible = True + lfila.text = "CATALOGOS" + End If ' Do While p.NextRow ' Dim tempMap As Map = CreateMap("prod":p.GetString("CAT_GP_NOMBRE"), "precio":p.GetString("CAT_GP_PRECIO"), "almacen":p.GetString("CAT_GP_ALMACEN"), "id":p.GetString("CAT_GP_ID")) ' listaProds.Add(tempMap) @@ -1166,7 +1224,7 @@ Sub Busca_TextChanged (Old As String, New As String) ' clv_prods_ll.Add(Pnl, tempMap) ' Loop ' LogColor(clv_prods_ll.Size, Colors.red) -'' Log(listaProds) + '' Log(listaProds) ' p.Close ' PCLV.B4XSeekBar1.MaxValue = clv_prods_ll.Size ' PCLV.B4XSeekBar1.MinValue = 0 @@ -1174,7 +1232,11 @@ Sub Busca_TextChanged (Old As String, New As String) ' PCLV.B4XSeekBar1.Value = clv_prods_ll.Size ' PCLV.B4XSeekBar1.Update ' Log($"Min:0, max:${clv_prods_ll.Size}, Interval:${clv_prods_ll.Size/10}"$) -' LogColor("TIEMPO DE PROCESO DEL TEXTCHANGED: " & ((DateTime.Now-inicioContador)/1000), Colors.Red) +' LogColor("TIEMPO DE PROCESO DEL TEXTCHANGED: " & ((DateTime.Now-inicioContador)/1000), Colors.Red) + End If + + + End Sub Sub LlenaProdsLL(p As ResultSet) diff --git a/B4A/C_Promos.bas b/B4A/C_Promos.bas index d4d51bc..10dfbf1 100644 --- a/B4A/C_Promos.bas +++ b/B4A/C_Promos.bas @@ -350,7 +350,7 @@ End Sub Private Sub ObtenerVariablesRequeridas(promo As String) Log("Esto es promo: " & promo) - Dim cursorVariablesReq As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_STS AS CAT_GP_VAR1REQ, CAT_GP_IMP1 AS CAT_GP_VAR2REQ, CAT_GP_VARREQ3 from cat_gunaprod2 where cat_gp_id = '${promo}'"$) + Dim cursorVariablesReq As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_STS AS CAT_GP_VAR1REQ, CAT_GP_IMP1 AS CAT_GP_VAR2REQ, CAT_GP_VARREQ3 from cat_gunaprod2 where cat_gp_id = '${promo}' ORDER BY CAT_GP_NOMBRE"$) If cursorVariablesReq.RowCount > 0 Then cursorVariablesReq.Position = 0 @@ -446,7 +446,7 @@ Sub muestraPromo(promo As String, cliente As String) lblFijosRequeridos.Left = 0 lblFijosRequeridos.Width = Root.Width - Dim cursorProdFijo As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_NOMBRE, CAT_DP_PZAS, CAT_DP_PRECIO, CAT_DP_ID, CAT_DP_IDPROD, CAT_DP_TIPO FROM CAT_DETALLES_PAQ INNER JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID = '${promo}' AND CAT_DP_TIPO = 0"$) + Dim cursorProdFijo As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_NOMBRE, CAT_DP_PZAS, CAT_DP_PRECIO, CAT_DP_ID, CAT_DP_IDPROD, CAT_DP_TIPO FROM CAT_DETALLES_PAQ INNER JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID = '${promo}' AND CAT_DP_TIPO = 0 order BY CAT_GP_NOMBRE"$) If cursorProdFijo.RowCount > 0 Then For i = 0 To cursorProdFijo.RowCount - 1 cursorProdFijo.Position = i @@ -465,7 +465,7 @@ Sub muestraPromo(promo As String, cliente As String) lblVariablesRequeridas1.Text = $"Primeros Variables Requeridos: '${variablesRequeridas1}'"$ lblVariablesRequeridas1.Left = 0 lblVariablesRequeridas1.Width = Root.Width - Dim cursorNomProductosVar1 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO, CAT_DP_ID, CAT_DP_IDPROD, CAT_DP_TIPO FROM CAT_DETALLES_PAQ INNER JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID = '${promo}' AND CAT_DP_TIPO = 1"$) + Dim cursorNomProductosVar1 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO, CAT_DP_ID, CAT_DP_IDPROD, CAT_DP_TIPO FROM CAT_DETALLES_PAQ INNER JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID = '${promo}' AND CAT_DP_TIPO = 1 ORDER BY CAT_GP_NOMBRE "$) If cursorNomProductosVar1.RowCount > 0 Then For i = 0 To cursorNomProductosVar1.RowCount - 1 cursorNomProductosVar1.Position = i @@ -483,7 +483,7 @@ Sub muestraPromo(promo As String, cliente As String) lblVariablesRequeridas2.Text = $"Segundos Variables Requeridos: '${variablesRequeridas2}'"$ lblVariablesRequeridas2.Left = 0 lblVariablesRequeridas2.Width = Root.Width - Dim cursorNomProductosVar2 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO, CAT_DP_ID, CAT_DP_IDPROD, CAT_DP_TIPO FROM CAT_DETALLES_PAQ INNER JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID = '${promo}' AND CAT_DP_TIPO = 2"$) + Dim cursorNomProductosVar2 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO, CAT_DP_ID, CAT_DP_IDPROD, CAT_DP_TIPO FROM CAT_DETALLES_PAQ INNER JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID = '${promo}' AND CAT_DP_TIPO = 2 ORDER BY CAT_GP_NOMBRE "$) If cursorNomProductosVar2.RowCount > 0 Then For i = 0 To cursorNomProductosVar2.RowCount - 1 cursorNomProductosVar2.Position = i @@ -500,7 +500,7 @@ Sub muestraPromo(promo As String, cliente As String) lblVariablesRequeridas3.Visible = True lblVariablesRequeridas3.Text = $"Tercer Variables Requeridas: '${variablesRequeridas3}'"$ lblVariablesRequeridas3.Width = Root.Width - Dim cursorNomProductosVar3 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO, CAT_DP_ID, CAT_DP_IDPROD, CAT_DP_TIPO FROM CAT_DETALLES_PAQ INNER JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID = '${promo}' AND CAT_DP_TIPO = 3"$) + Dim cursorNomProductosVar3 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO, CAT_DP_ID, CAT_DP_IDPROD, CAT_DP_TIPO FROM CAT_DETALLES_PAQ INNER JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID = '${promo}' AND CAT_DP_TIPO = 3 ORDER BY CAT_GP_NOMBRE "$) If cursorNomProductosVar3.RowCount > 0 Then For i = 0 To cursorNomProductosVar3.RowCount - 1 cursorNomProductosVar3.Position = i diff --git a/B4A/C_Validador.bas b/B4A/C_Validador.bas index 87587ff..c9bf8c2 100644 --- a/B4A/C_Validador.bas +++ b/B4A/C_Validador.bas @@ -109,7 +109,7 @@ Sub mandaGuardados Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_pedido5_INTMEX" - cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"), almacen, c.GetString("PE_COSTO_TOT"), c.GetString("PE_COSTOU"), c.GetString("PE_CANT"), c.GetString("PE_PRONOMBRE"), c.GetString("PE_PROID"), c.GetString("PE_CLIENTE"), c.GetString("PE_FECHA"), c.GetString("PE_USUARIO"), c.GetString("PE_RUTA"), c.GetString("PE_COSTO_SIN"), c.GetString("PE_DESC"), c.GetString("PE_FOLIO"), c.GetString("PCNoArts"), c.GetString("PCMonto"), c.GetString("PE_TICKET"), Application.VersionName, elFolio) + cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"), almacen, c.GetString("PE_COSTO_TOT"), c.GetString("PE_COSTOU"), c.GetString("PE_CANT"), c.GetString("PE_PRONOMBRE"), c.GetString("PE_PROID"), c.GetString("PE_CLIENTE"), c.GetString("PE_FECHA"), c.GetString("PE_USUARIO"), c.GetString("PE_RUTA"), c.GetString("PE_COSTO_SIN"), c.GetString("PE_DESC"), c.GetString("PE_FOLIO"), c.GetString("PCNoArts"), c.GetString("PCMonto"), c.GetString("PE_TICKET"), elFolio) reqManager.ExecuteCommand(cmd, $"ins_mandaGuardados_prods_${c.GetString("PE_CLIENTE")}|${c.GetString("PE_PROID")}|${c.GetString("PE_CEDIS")}"$) Log($">>>> INS_PEDIDO= ${C.GetString("PE_CEDIS")},${almacen},${C.GetString("PE_COSTO_TOT")},${C.GetString("PE_COSTOU")},${C.GetString("PE_CANT")}, ${C.GetString("PE_PRONOMBRE")}, ${C.GetString("PE_PROID")}, ${C.GetString("PE_CLIENTE")}, ${C.GetString("PE_FECHA")}, ${C.GetString("PE_USUARIO")}, ${C.GetString("PE_RUTA")}, ${C.GetString("PE_COSTO_SIN")}, ${C.GetString("PE_DESC")}, ${c.GetString("PE_FOLIO")}, ${c.GetString("PCNoArts")}, ${c.GetString("PCMonto")}, ${c.GetString("PE_TICKET")}, ${Application.VersionName}, ${elFolio}"$) Next diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index de3f8b5d8a992521bd31cccd0cfe6e501b52d07d..1711c110f2f897a38dac336cac0c1441f94b53f7 100644 GIT binary patch delta 2301 zcmZwIZBSHI7zglst}M1IEGv?N!tR1gyhFgU>k=edBvHv_(IirF6(SIUc9E>4l}y4( z3wowzvKsxwmud{x7ZhCVqcgpXeW;n5$?2OjH9=pRnrX(Kb9e9h$B~(b`#W#Xy?4*K z=bXQ*Mo+IuH7SZxY*iEsUr$b@QuZpw{?4J`VAtUT!-FBSUJQ2k1iM3nGv|&Z*;2Ts ze?;%msRernDAUwqN#@ESy)F_q2_Z&kEIGV-1=l8VaDGKMiIwZZ8C-hUsNw5cj&&TF z99bMTj@2CN!5i4w9620zumkJ_=YsRV8xIYM|Z&_JTKoec)PYzQ6ucKL!nT;Ck@m;LYF$@D}h^ z@Dt!C!Qn;~@v?*(^)_kjc8{on)OF2i#EyNv>0Ujp}lUk3Mr``E@}Jjgb_f_}E~ zi5_APa13$`fnQ;VjfNmJguuh#!{8C{tKcKx*VwOfyuoo4Jj#yWH>|wL1>;HOuVK8w zF}Cp?kAdF;A7{VKae`xLRYVoZ%Qk!EJK9$E-RVVZR*!Ft=?z?P%eu%sI8@Krz+qU>4?e@?ZEp#N)=w55& z_Sua#u^9R5Or}t?1-16o(~b6Y$!|WaR&xYRecH6<2OcgrU@Drj&lXV5Q&3n`!%mnd+T8=-kKYbZ{nLIAyEN$)gK7O^SSXvqMmWH;)!) zJ`%Y!enGS4E^BrQ`l>IV8csFS&d7Nhy_7-wPOkjmOgdTfT=d-~D<{46xsw)W+vul@ z)AaY{&RC7er=?jxX_u$z&eaUET&XADwRrD%+s!M}qJV~GwX}le_mmm+KL1c)PUic1 zE<|(Jrs?PTcy{Wz-bU{EX;DhQ%xh_-4;Wvj-~Y?&b(V5&mGfk-pqo)wN+lOf`kBWS z|3)1uzoVn3kj|dAlD1%`+kK5Jv1y$}|OXU+qJZr`DTZ@aVT9#TPs7Na;`Ga%oy=!>b zz4>!x)Q&UH}&2!(A$fc6u!4;3h_Tmc2l4L delta 1832 zcmaLYNlX(_7zglqg_4v&sk8_vU7_GoHbq6Hf{GvoTqr6kS_KhNkwRU-t++*F;9$NR z#sn{oH)6^jD214KG9f0Ojq&Koc=Vv(j7<4U#KS-R&3kX&yruIdG8i}VOOvdXBXX0iOl?z~{i{Wy||7Z$S%Gw1O{y+rSsW?chsn^`GCtR$t4@>?@qBoKA4?8eDXN z{ornJ4>$n64!*&@$+^Yp1^2PlLEL8Z;98VJ;|^b_qrS^l-`9KK`(Sz1`Z*6c4>{_+ zkJ##rAG4LiDqNoQL+FczBqeZBYoM{u-$vg}8Q~^#o#z1bw!3QnV?RJfluwk?RZ=?pHoylH>za$1S6F2l?9* zXz{6@I_q`xZM08V>GhD2ddJ)b>tD?+{FIkY`Z?gClJOB?<7O^etjjUjRyON?ZWVT# zk2KKuM2NnQo5(-uHaPy#j9MqWR5%r)=1HH1AHa7iMQ^4R diff --git a/B4A/INTMEX.b4a b/B4A/INTMEX.b4a index 4b09099..4c7d1ad 100644 --- a/B4A/INTMEX.b4a +++ b/B4A/INTMEX.b4a @@ -164,7 +164,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Intmex #VersionCode: 1 - #VersionName: 5.09.03 + #VersionName: 5.09.07 s/C 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/INTMEX.b4a.meta b/B4A/INTMEX.b4a.meta index d6a7055..bdd7559 100644 --- a/B4A/INTMEX.b4a.meta +++ b/B4A/INTMEX.b4a.meta @@ -85,12 +85,12 @@ ModuleClosedNodes28= ModuleClosedNodes29= ModuleClosedNodes3= ModuleClosedNodes30= -ModuleClosedNodes4=4,36 +ModuleClosedNodes4=4 ModuleClosedNodes5=3 ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Principal,B4XPage_CloseRequest,1969,0,C_Validador,buscaSinEnviar,68,0,C_Validador,mandaGuardados,105,6,C_Principal,Subir_Click,697,0,C_Validador,JobDone,257,0,Starter,tConexion_Tick,83,0,B4XMainPage,JobDone,459,0,C_Principal,B4XPage_Appear,546,0,C_Principal,connecta_LongClick,1975,0,C_Principal,b_muestraPendientes_Click,2683,0,C_Principal,b_abordo_Click,2679,0 +NavigationStack=C_Productos,Busca_TextChanged,1143,6,C_Principal,checaPedido,2723,0,C_Principal,Class_Globals,217,0,C_Principal,B4XPage_Appear,440,0,C_Principal,b_productos_Click,2774,0,Diseñador Visual,principal.bal,-100,6,C_Principal,b_regreso_Click,2777,0,C_Principal,p_prod_Click,2781,0,C_Productos,clv_prods_ll_VisibleRangeChanged,1112,0,C_Principal,JobDone,1477,0,C_Principal,cargar_Click,910,0 SelectedBuild=0 VisibleModules=28,2,13,20,14,29,17,15,9,4