|
|
|
@@ -1454,14 +1454,16 @@ Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As In
|
|
|
|
cs.Initialize
|
|
|
|
cs.Initialize
|
|
|
|
l_prodX.Width = p_prods.Width - p_botMasMen.Width
|
|
|
|
l_prodX.Width = p_prods.Width - p_botMasMen.Width
|
|
|
|
l_prodX.SetTextSizeAnimated(0, 13)
|
|
|
|
l_prodX.SetTextSizeAnimated(0, 13)
|
|
|
|
Private p1 As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_TIPOPROD2 from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_ID = '${clv_prods_ll.GetValue(i).As(Map).Get("id")}'"$)
|
|
|
|
' Private p1 As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_TIPOPROD2 from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_ID = '${clv_prods_ll.GetValue(i).As(Map).Get("id")}'"$)
|
|
|
|
Private prioridad As Int = 0
|
|
|
|
' Private prioridad As Int = 0
|
|
|
|
If p1.RowCount > 0 Then
|
|
|
|
' If p1.RowCount > 0 Then
|
|
|
|
p1.Position = 0
|
|
|
|
' p1.Position = 0
|
|
|
|
prioridad = p1.GetInt("CAT_GP_TIPOPROD2")
|
|
|
|
' prioridad = p1.GetInt("CAT_GP_TIPOPROD2")
|
|
|
|
' Log(prioridad)
|
|
|
|
'' Log(prioridad)
|
|
|
|
End If
|
|
|
|
' End If
|
|
|
|
p1.Close
|
|
|
|
' p1.Close
|
|
|
|
|
|
|
|
Private prioridad As Int = clv_prods_ll.GetValue(i).As(Map).Get("prioridad")
|
|
|
|
|
|
|
|
|
|
|
|
' Log("NIVEL: " & lfila.Text)
|
|
|
|
' Log("NIVEL: " & lfila.Text)
|
|
|
|
If lfila.Text = "RMI" Then ' Si es RMI, la cantidad solo se puede cambiar con los botones.
|
|
|
|
If lfila.Text = "RMI" Then ' Si es RMI, la cantidad solo se puede cambiar con los botones.
|
|
|
|
et_pCant.Enabled = False
|
|
|
|
et_pCant.Enabled = False
|
|
|
|
@@ -1590,9 +1592,9 @@ Sub LlenaProdsLL(p As ResultSet, extra As String)
|
|
|
|
Else
|
|
|
|
Else
|
|
|
|
' Log("NO HAY RESULTSET")
|
|
|
|
' Log("NO HAY RESULTSET")
|
|
|
|
If clienteId = "0" Then
|
|
|
|
If clienteId = "0" Then
|
|
|
|
Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$)
|
|
|
|
Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD, CAT_GP_TIPOPROD2 from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$)
|
|
|
|
Else
|
|
|
|
Else
|
|
|
|
Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_PROMOCION <> '1' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$)
|
|
|
|
Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD, CAT_GP_TIPOPROD2 from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_PROMOCION <> '1' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$)
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
' If Starter.Logger Then Log($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_PROMOCION <> '1' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$)
|
|
|
|
' If Starter.Logger Then Log($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_PROMOCION <> '1' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$)
|
|
|
|
' Log(p.RowCount & " - " & Subs.traeTablaProds(Starter.tipov))
|
|
|
|
' Log(p.RowCount & " - " & Subs.traeTablaProds(Starter.tipov))
|
|
|
|
@@ -1622,7 +1624,7 @@ Sub LlenaProdsLL(p As ResultSet, extra As String)
|
|
|
|
Private descXSku As String = kh.traeDescXSku(clienteId, p.GetString("CAT_GP_ID"))
|
|
|
|
Private descXSku As String = kh.traeDescXSku(clienteId, p.GetString("CAT_GP_ID"))
|
|
|
|
If Starter.Logger And descXSku > 0 Then LogColor(">>> DESCXSKU CC - " & descXSku & " | " & p.GetString("CAT_GP_NOMBRE"), Colors.red)
|
|
|
|
If Starter.Logger And descXSku > 0 Then LogColor(">>> DESCXSKU CC - " & descXSku & " | " & p.GetString("CAT_GP_NOMBRE"), Colors.red)
|
|
|
|
precio = NumberFormat2((precio-(precio*(descXSku/100))), 1, 2, 2, False)
|
|
|
|
precio = NumberFormat2((precio-(precio*(descXSku/100))), 1, 2, 2, False)
|
|
|
|
Dim tempMap As Map = CreateMap("prod":p.GetString("CAT_GP_NOMBRE"), "precio":precio, "almacen":p.GetString("CAT_GP_ALMACEN"), "abordo":invAbordo, "id":p.GetString("CAT_GP_ID"), "cant":cant, "tipo":p.GetString("CAT_GP_TIPO"))
|
|
|
|
Dim tempMap As Map = CreateMap("prod":p.GetString("CAT_GP_NOMBRE"), "precio":precio, "almacen":p.GetString("CAT_GP_ALMACEN"), "abordo":invAbordo, "id":p.GetString("CAT_GP_ID"), "cant":cant, "tipo":p.GetString("CAT_GP_TIPO"), "prioridad": p.GetInt("CAT_GP_TIPOPROD2")) ' MOD by Cheve - 20260422 - Agregamos "Prioridad"
|
|
|
|
listaProds.Add(tempMap)
|
|
|
|
listaProds.Add(tempMap)
|
|
|
|
Loop
|
|
|
|
Loop
|
|
|
|
p.Close
|
|
|
|
p.Close
|
|
|
|
|
