mirror of
https://github.com/KeymonSoft/Intmex_Multiventa.git
synced 2026-04-17 12:56:08 +00:00
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
This commit is contained in:
Javier
@@ -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)")
|
||||
|
||||
@@ -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
|
||||
@@ -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)
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Binary file not shown.
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user