mirror of
https://github.com/KeymonSoft/Marquez.git
synced 2026-04-19 21:59:29 +00:00
Version: 5.04.28
Se modifico el boton de guardar ya que necesitavamos revisar que la preventa a credito no fuera menor a $1000.00 pesos. Se modifico la rutina de impresion de Preventa, ahora imprime ambos tickets, si encuentra credito o contado, la venta sigue igual. Se modifico el Apper de Principal para que evalue si la preventa a credito ya esta correcta en caso que no, se borra y se genero una nueva rutina de borrado la cual solo borra preventa_credito.
This commit is contained in:
IsR0d
141
B4A/Subs.bas
141
B4A/Subs.bas
@@ -669,13 +669,14 @@ End Sub
|
||||
|
||||
'Regresa el almacen actual de la base de datos.
|
||||
Sub traeAlmacen As String 'ignore
|
||||
Private c As Cursor
|
||||
Private a As String
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||
c.Position = 0
|
||||
a = C.GetString("ID_ALMACEN")
|
||||
c.Close
|
||||
Return a
|
||||
Private c2 As Cursor
|
||||
Private b As String
|
||||
c2=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||
Log(c2.RowCount)
|
||||
c2.Position = 0
|
||||
b = c2.GetString("ID_ALMACEN")
|
||||
Log("Esto es almacen !!!!!!! " &c2.GetString("ID_ALMACEN") & " Esto es almacen !!!!!!!")
|
||||
Return b
|
||||
End Sub
|
||||
|
||||
'Regresa el nombre del producto desde CAT_GUNAPROD
|
||||
@@ -790,7 +791,12 @@ Sub guardaProductoSinGestion(cedis As String, costoU As String, cant As String,
|
||||
' LogColor("guardaProducto: "&prodId&", cant="&cant, Colors.Magenta)
|
||||
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,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?) ", Array As Object (cedis, (cant * costoU), costoU, cant, nombre, prodId, clienteId, fecha, usuario, rutaV, precioSin, tipoVenta,cantc,bcajas))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cant, prodId))
|
||||
If B4XPages.MainPage.tipo_venta = "VENTA" Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cant, prodId))
|
||||
Else
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2($"update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cant, prodId))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2($"update CAT_GUNAPROD4 set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cant, prodId))
|
||||
End If
|
||||
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
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
||||
@@ -798,17 +804,24 @@ Sub guardaProductoSinGestion(cedis As String, costoU As String, cant As String,
|
||||
End Sub
|
||||
|
||||
Sub actualizaProducto(cedis As String, costoU As String, cant As Int, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoVenta As String, cantc As String, bcajas As String)
|
||||
Log("Entramos a actualiza producto")
|
||||
Private c As Cursor=B4XPages.MainPage.skmt.ExecQuery($"select * from pedido where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' AND PE_FOLIO = '${B4XPages.MainPage.tipo_venta}'"$)
|
||||
' Log($"ROWCOUNT: ${c.RowCount}, ${cant}"$)
|
||||
LogColor($"actualizaProducto, c=${clienteId}, p=${prodId}, nombre=${nombre}, cant=${cant}, cedis=${cedis}, tipo=${tipoVenta}"$, Colors.Magenta)
|
||||
|
||||
If c.RowCount > 0 Then
|
||||
Log("----->1<--------------")
|
||||
c.Position=0
|
||||
Private antCant As Int = 0
|
||||
If IsNumber(c.GetInt("PE_CANT")) Then antCant=c.GetInt("PE_CANT")
|
||||
Private difCant As Int = cant - antCant
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update pedido set pe_cant = ${cant}, pe_costo_tot = ${(cant*c.GetString("PE_COSTOU"))}, PE_CANTC = ${cantc}, PE_BCAJAS = ${bcajas} where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' AND PE_FOLIO = '${B4XPages.MainPage.tipo_venta}'"$)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
|
||||
If B4XPages.MainPage.tipo_venta = "VENTA" Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
|
||||
Else
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD4 set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
|
||||
End If
|
||||
|
||||
' Log($"CANT=${cant}"$)
|
||||
If cant = 0 Then
|
||||
Log("BORRAMOS PROD")
|
||||
@@ -818,6 +831,7 @@ Sub actualizaProducto(cedis As String, costoU As String, cant As Int, nombre As
|
||||
If pe.GetString("cuantosPedidos") = 0 Then B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
||||
End If
|
||||
Else
|
||||
Log("----->2<--------------")
|
||||
'INSERTAMOS
|
||||
If cant <> 0 Then guardaProductoSinGestion(cedis, costoU, cant, nombre, prodId, clienteId, fecha, usuario, rutaV, precioSin, tipoVenta,cantc,bcajas)
|
||||
End If
|
||||
@@ -828,7 +842,12 @@ Sub guardaProductoSinGestion2(cedis As String, costoU As String, cant As String,
|
||||
' LogColor("guardaProducto: "&prodId&", cant="&cant, Colors.Magenta)
|
||||
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,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?) ", Array As Object (cedis, (cantc * costoU), costoU, cant, nombre, prodId, clienteId, fecha, usuario, rutaV, precioSin, tipoVenta,cantc,bcajas))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cant, prodId))
|
||||
If B4XPages.MainPage.tipo_venta = "VENTA" Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cant, prodId))
|
||||
Else
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2($"update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cant, prodId))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2($"update CAT_GUNAPROD4 set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cant, prodId))
|
||||
End If
|
||||
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
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
||||
@@ -846,7 +865,13 @@ Sub actualizaProducto2(cedis As String, costoU As String, cant As Int, nombre As
|
||||
If IsNumber(c.GetInt("PE_CANT")) Then antCant=c.GetInt("PE_CANT")
|
||||
Private difCant As Int = cant - antCant
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update pedido set pe_cant = ${cant}, pe_costo_tot = ${(cantc*c.GetString("PE_COSTOU"))}, PE_CANTC = ${cantc}, PE_BCAJAS = ${bcajas} where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' AND PE_FOLIO = '${B4XPages.MainPage.tipo_venta}'"$)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
|
||||
If B4XPages.MainPage.tipo_venta = "VENTA" Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
|
||||
Else
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD4 set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
|
||||
End If
|
||||
' Log($"CANT=${cant}"$)
|
||||
If cant = 0 Then
|
||||
Log("BORRAMOS PROD")
|
||||
@@ -862,6 +887,8 @@ Sub actualizaProducto2(cedis As String, costoU As String, cant As Int, nombre As
|
||||
c.Close
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub traeTotalCliente As Double
|
||||
Private sumaTotal As Double
|
||||
Private cursorprueba As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select PE_COSTO_TOT from pedido where PE_CLIENTE <> 0 ")
|
||||
@@ -1149,6 +1176,33 @@ Sub traeMaxPromos(pm As Map) As Int
|
||||
If pm.Get("historico") = "1" Then maxPromos.Add(pm.Get("maxRecurrente")) 'Si hay historico, agregamos maxRecurrente
|
||||
maxPromos.Add(pm.Get("maxPromos")) 'Agregamos maxPromos
|
||||
maxPromos.Add(pm.Get("maxXcliente")) 'Agregamos maxXcliente
|
||||
|
||||
Dim precioPromo As Float
|
||||
'Traemos el precio de la promo.
|
||||
Dim cGp As Cursor = Starter.skmt.ExecQuery($"SELECT ifnull(CAT_GP_PRECIO,0) as CAT_GP_PRECIO FROM CAT_GUNAPROD WHERE CAT_GP_ID = '${pm.get("id")}'"$)
|
||||
If cGp.RowCount > 0 Then
|
||||
cGp.Position = 0
|
||||
precioPromo = cGp.GetString("CAT_GP_PRECIO")
|
||||
End If
|
||||
Dim creditoOtorgado As Float = B4XPages.MainPage.cliente.credito_diponible
|
||||
Dim totalActual As Float = 0
|
||||
Dim maxPromosXCreditoDisponible As Int
|
||||
'Traemos el total del pedido actual.
|
||||
Dim fg As Cursor = Starter.skmt.ExecQuery("Select IFNULL(sum(PE_COSTO_TOT),0) AS TOT_ACTUAL FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO = 'PREVENTA_CREDITO'")
|
||||
fg.Position = 0
|
||||
totalActual = fg.GetString("TOT_ACTUAL")
|
||||
'Calculamos el credito que tenemos disponible.
|
||||
Dim creditoDisponible As Float = creditoOtorgado - totalActual
|
||||
'Calculamos las promos disponibles deacuerdo a lo que nos alcanza con el credito disponible.
|
||||
maxPromosXCreditoDisponible = creditoDisponible / precioPromo
|
||||
Log("Maximo de promos disponibles: " & maxPromosXCreditoDisponible)
|
||||
Log((fg.GetString("TOT_ACTUAL")) & " Monto Actual<-------")
|
||||
If fg.GetString("TOT_ACTUAL") + precioPromo > creditoOtorgado Then
|
||||
maxPromosXCreditoDisponible = 0
|
||||
End If
|
||||
maxPromos.Add(maxPromosXCreditoDisponible.As(String)) 'Agregamos Maxpromos X Credito Disponible
|
||||
|
||||
|
||||
maxPromos.Sort(True)
|
||||
|
||||
' Log($"|${pm.Get("id").As(String).trim}|${traeCliente.Trim}|"$)
|
||||
@@ -1444,13 +1498,30 @@ Sub borraPedidoClienteActual As String
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||
' Return 1
|
||||
Private thisC As Cursor
|
||||
' Private tablaProds As String = "cat_gunaprod2"
|
||||
thisC=Starter.skmt.ExecQuery("select PE_PROID, PE_CANT, PE_FOLIO FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
|
||||
' Private tablaProds As String = "cat_gunaprod4"
|
||||
thisC=Starter.skmt.ExecQuery("select PE_PRONOMBRE, PE_PROID, PE_CANT, PE_FOLIO FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
|
||||
If thisC.RowCount>0 Then
|
||||
For i=0 To thisC.RowCount -1
|
||||
thisC.Position = i
|
||||
' Log(thisC.GetString("PE_TIPO") & "|" & traeTablaProds(thisC.GetString("PE_TIPO")))
|
||||
Starter.skmt.ExecNonQuery($"update ${traeTablaProds(thisC.GetString("PE_FOLIO"))} set cat_gp_almacen = cat_gp_almacen + ${thisC.GetString("PE_CANT")} where cat_gp_id = '${thisC.GetString("PE_PROID")}'"$)
|
||||
|
||||
' If thisC.GetString("PE_FOLIO") = "VENTA" Then
|
||||
' Starter.skmt.ExecNonQuery($"update ${traeTablaProds(thisC.GetString("PE_FOLIO"))} set cat_gp_almacen = cat_gp_almacen + ${thisC.GetString("PE_CANT")} where cat_gp_id = '${thisC.GetString("PE_PROID")}'"$)
|
||||
' Else
|
||||
' Starter.skmt.ExecNonQuery($"update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen + ${thisC.GetString("PE_CANT")} where cat_gp_id = '${thisC.GetString("PE_PROID")}'"$)
|
||||
' Starter.skmt.ExecNonQuery($"update CAT_GUNAPROD4 set cat_gp_almacen = cat_gp_almacen + ${thisC.GetString("PE_CANT")} where cat_gp_id = '${thisC.GetString("PE_PROID")}'"$)
|
||||
'
|
||||
' End If
|
||||
|
||||
If thisC.GetString("PE_FOLIO") = "VENTA" Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update ${traeTablaProds(thisC.GetString("PE_FOLIO"))} set cat_gp_almacen = cat_gp_almacen + ${thisC.GetString("PE_CANT")} where cat_gp_id = '${thisC.GetString("PE_PROID")}'"$)
|
||||
B4XPages.MainPage.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 String(thisC.GetString("PE_PRONOMBRE"), thisC.GetString("PE_FOLIO")))
|
||||
Else
|
||||
Starter.skmt.ExecNonQuery($"update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen + ${thisC.GetString("PE_CANT")} where cat_gp_id = '${thisC.GetString("PE_PROID")}'"$)
|
||||
Starter.skmt.ExecNonQuery($"update CAT_GUNAPROD4 set cat_gp_almacen = cat_gp_almacen + ${thisC.GetString("PE_CANT")} where cat_gp_id = '${thisC.GetString("PE_PROID")}'"$)
|
||||
B4XPages.MainPage.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 String(thisC.GetString("PE_PRONOMBRE"), thisC.GetString("PE_FOLIO")))
|
||||
End If
|
||||
|
||||
LogColor($"update ${traeTablaProds(thisC.GetString("PE_FOLIO"))} set cat_gp_almacen = cat_gp_almacen + ${thisC.GetString("PE_CANT")} where cat_gp_id = '${thisC.GetString("PE_PROID")}'"$, Colors.red)
|
||||
' Starter.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (traeAlmacen, thisC.GetString("PE_PROID"),thisC.GetString("PE_CANT")* -1))
|
||||
Next
|
||||
@@ -1461,14 +1532,48 @@ Sub borraPedidoClienteActual As String
|
||||
Return 1
|
||||
End Sub
|
||||
|
||||
Sub borraPedidoCredito As String
|
||||
Dim cPedidos As Cursor
|
||||
cPedidos = Starter.skmt.ExecQuery("SELECT PE_PROID, PE_CANT FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO = 'PREVENTA_CREDITO'")
|
||||
|
||||
If cPedidos.RowCount > 0 Then
|
||||
For i = 0 To cPedidos.RowCount - 1
|
||||
cPedidos.Position = i
|
||||
Dim productoId As String = cPedidos.GetString("PE_PROID")
|
||||
Dim cantidad As Int = cPedidos.GetInt("PE_CANT")
|
||||
|
||||
Starter.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_ALMACEN = CAT_GP_ALMACEN + ? WHERE CAT_GP_ID = ?", Array As String(cantidad, productoId))
|
||||
Starter.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD4 SET CAT_GP_ALMACEN = CAT_GP_ALMACEN + ? WHERE CAT_GP_ID = ?", Array As String(cantidad, productoId))
|
||||
|
||||
Next
|
||||
End If
|
||||
cPedidos.Close
|
||||
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO = 'PREVENTA_CREDITO'")
|
||||
|
||||
Log("Pedidos a crédito borrados correctamente.")
|
||||
Return "1"
|
||||
|
||||
Dim pCli As Cursor = Starter.skmt.ExecQuery("select PE_CLIENTE, PE_FECHA, PE_CEDIS, 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)")
|
||||
If pCli.RowCount > 0 Then
|
||||
pCli.Position = 0
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As String(pCli.GetString("PE_CLIENTE"), pCli.GetString("PE_FECHA"), pCli.GetString("PE_USUARIO"), pCli.GetString("CANT_CLIE"), pCli.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, pCli.GetString("PE_CEDIS"), pCli.GetString("TOTAL_CLIE_SIN")))
|
||||
Else
|
||||
Starter.skmt.ExecNonQuery("UPDATE KMT_INFO SET GESTION = 0 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub traeTablaProds(tipoventa As String) As String
|
||||
Private tablaProds As String = "cat_gunaprod2"
|
||||
If tipoventa = "ABORDO" Or tipoventa = "PREVENTA" Then
|
||||
|
||||
If tipoventa = "ABORDO" Or tipoventa = "PREVENTA_CONTADO" Then
|
||||
tablaProds = "cat_gunaprod"
|
||||
Else if tipoventa = "RECARGA" Then
|
||||
Else If tipoventa = "RECARGA" Then
|
||||
tablaProds = "cat_gunaprod3"
|
||||
Else If tipoventa = "PREVENTA_CREDITO" Then
|
||||
tablaProds = "cat_gunaprod4"
|
||||
End If
|
||||
|
||||
|
||||
LogColor($"Tipo= ${tipoventa}, tabla=${tablaProds}"$, Colors.RGB(200,136,0))
|
||||
Return tablaProds
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user