mirror of
https://github.com/KeymonSoft/Mariana.git
synced 2026-04-22 07:00:11 +00:00
Se cambia la manera en que las promociones se borran, el tamaño de de los label de los listview... v4.06.01
This commit is contained in:
cvaldes1201
@@ -67,7 +67,7 @@ Sub Class_Globals
|
||||
Private l_total2 As Label
|
||||
Dim prodsPedidoActual As String
|
||||
Dim montoPedidoActual As String
|
||||
|
||||
Dim j3 As Cursor
|
||||
Private clv_prods_ll As CustomListView
|
||||
Private PCLV As PreoptimizedCLV
|
||||
Dim listaProds As List
|
||||
@@ -223,22 +223,30 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object)
|
||||
lfila.text = "PROMOCIONES"
|
||||
lv_catalogos.Visible = False
|
||||
lv_promos.Clear
|
||||
Dim label1 As Label
|
||||
lv_promos.TwoLinesLayout.ItemHeight =80dip
|
||||
Dim label1 As Label
|
||||
label1 = lv_promos.TwoLinesLayout.Label
|
||||
label1.Height = 50dip
|
||||
label1.TextSize = 15
|
||||
label1.TextColor = Colors.Black
|
||||
label1.Gravity = 3
|
||||
Dim label2 As Label
|
||||
label2 = lv_promos.TwoLinesLayout.SecondLabel
|
||||
label2.Top = label1.Height
|
||||
label2.TextSize = 15
|
||||
label2.TextColor = Colors.Black
|
||||
Dim label13 As Label
|
||||
label13 = lv_promos.TwoLinesAndBitmap.Label
|
||||
label13.Height = 50dip
|
||||
label13.TextSize = 15
|
||||
label13.TextColor = Colors.Black
|
||||
' label13.Height = 80dip
|
||||
Dim label14 As Label
|
||||
label14 = lv_promos.TwoLinesAndBitmap.SecondLabel
|
||||
label14.Top = label1.Height
|
||||
label14.TextSize = 15
|
||||
label14.TextColor = Colors.Black
|
||||
' label14.Height = 80dip
|
||||
lfila.text = "PROMOS"
|
||||
c2=Starter.skmt.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod 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))
|
||||
Log($"res:${c2.RowCount}, ${Value}, ${marca}, ${tipo}"$)
|
||||
@@ -248,7 +256,7 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object)
|
||||
Private tm As Map = Subs.procesaPromocion(c2.GetString("CAT_GP_ID"), clienteId)
|
||||
Log(c2.GetString("CAT_GP_ID"))
|
||||
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"))
|
||||
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
|
||||
@@ -591,6 +599,7 @@ Sub b_terminar1_Click
|
||||
clv_prods_ll.AsView.Visible = False
|
||||
lv_catalogos.Visible = True
|
||||
lv_prodsPedido.Clear
|
||||
lv_prodsPedido.TwoLinesLayout.ItemHeight =70dip
|
||||
' lv_prodsPedido.TwoLinesLayout.Label.Height = 50dip
|
||||
Private c_prods As Cursor=Starter.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")
|
||||
If c_prods.RowCount > 0 Then
|
||||
@@ -600,6 +609,8 @@ Sub b_terminar1_Click
|
||||
c_prods.Position=i
|
||||
Dim label1 As Label
|
||||
label1 = lv_prodsPedido.TwoLinesLayout.Label
|
||||
label1.Height = 50dip
|
||||
label1.Gravity = 3
|
||||
label1.TextSize = 15
|
||||
label1.TextColor = Colors.Black
|
||||
label1.color = Colors.White
|
||||
@@ -608,6 +619,7 @@ Sub b_terminar1_Click
|
||||
|
||||
Dim label2 As Label
|
||||
label2 = lv_prodsPedido.TwoLinesLayout.SecondLabel
|
||||
label2.Top = label1.Height
|
||||
label2.TextSize = 15
|
||||
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"))
|
||||
@@ -749,22 +761,47 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object)
|
||||
If Not(Subs.pedidoGuardado) Then
|
||||
result = Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
||||
If result = DialogResponse.POSITIVE Then
|
||||
c=Starter.skmt.ExecQuery2("select PE_PROID,PE_CANT FROM PEDIDO where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) ", Array As String(Value))
|
||||
c=Starter.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("aqui1")
|
||||
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
||||
Starter.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))
|
||||
c.Close
|
||||
Log("aqui2")
|
||||
c=Starter.skmt.ExecQuery2("select count(*) AS CUANTOS from cat_gunaprod where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'", Array As String(Value))
|
||||
c.Position=0
|
||||
If c.GetString("CUANTOS") > 0 Then
|
||||
Starter.skmt.ExecNonQuery2("delete from pedido where pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
|
||||
Log("aqui3")
|
||||
' Log("aqui1")
|
||||
' Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
||||
' Starter.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))
|
||||
' c.Close
|
||||
' Log("aqui2")
|
||||
' c=Starter.skmt.ExecQuery2("select count(*) AS CUANTOS from cat_gunaprod where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'", Array As String(Value))
|
||||
' c.Position=0
|
||||
' If c.GetString("CUANTOS") > 0 Then
|
||||
' Starter.skmt.ExecNonQuery2("delete from pedido where pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
|
||||
' Log("aqui3")
|
||||
' Else
|
||||
' Starter.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
|
||||
' Log("aqui4")
|
||||
' End If
|
||||
|
||||
Starter.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))
|
||||
c2=Starter.skmt.ExecQuery2($"select count(*) AS CUANTOS from cat_gunaprod where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'"$, Array As String(Value))
|
||||
c2.Position=0
|
||||
Log(c2.GetString("CUANTOS"))
|
||||
If c2.GetString("CUANTOS") > 0 Then
|
||||
j3 = Starter.skmt.ExecQuery2("SELECT PE_CEDIS, PE_CANT,PE_PROID, PE_PRONOMBRE FROM PEDIDO WHERE PE_CEDIS IN (SELECT PE_CEDIS FROM PEDIDO WHERE PE_PRONOMBRE = ?)",Array As String(Value))
|
||||
Log(j3.RowCount)
|
||||
If j3.RowCount > 0 Then
|
||||
Log("estoy aqui")
|
||||
For i = 0 To j3.RowCount -1
|
||||
Log("aqui tronare?")
|
||||
j3.Position = i
|
||||
Starter.skmt.ExecNonQuery($"update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ${j3.GetString("PE_CANT")} where cat_gp_id = '${j3.Getstring("PE_PROID")}'"$)
|
||||
Starter.skmt.ExecNonQuery2("delete from pedido where pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(j3.GetString("PE_PRONOMBRE"), c.GetString("PE_FOLIO")))
|
||||
Next
|
||||
End If
|
||||
j3.Close
|
||||
Else
|
||||
Starter.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
|
||||
Log("aqui4")
|
||||
Starter.skmt.ExecNonQuery($"update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ${c.GetString("PE_CANT")} where cat_gp_id = '${c.Getstring("PE_PROID")}'"$)
|
||||
Starter.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(Value, c.GetString("PE_FOLIO")))
|
||||
End If
|
||||
c.Close
|
||||
c2.Close
|
||||
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
|
||||
Reference in New Issue
Block a user