mirror of
https://github.com/KeymonSoft/Shark_Venta.git
synced 2026-08-18 16:36:41 +00:00
jalarakmt
829 lines
38 KiB
VB.net
829 lines
38 KiB
VB.net
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Class
|
|
Version=11.5
|
|
@EndOfDesignText@
|
|
Sub Class_Globals
|
|
Private Root As B4XView 'ignore
|
|
Private xui As XUI 'ignore
|
|
|
|
Dim skmt As SQL
|
|
Dim g As GPS
|
|
Dim clie_id As String
|
|
Dim sDate,sTime As String
|
|
Dim usuario As String
|
|
|
|
Dim c As Cursor
|
|
Dim ruta As String
|
|
Dim Regresar As Button
|
|
|
|
Dim ListView1 As ListView
|
|
Dim L_CANT As Label
|
|
Dim L_TOTAL As Label
|
|
Dim borra As Button
|
|
Dim Existe As String
|
|
Dim result As String
|
|
' Dim lat_gps, lon_gps As String
|
|
Dim DESC As String
|
|
|
|
Private Titulo As Label
|
|
Private b_desc As Button
|
|
Dim DESCUENTO As String
|
|
Dim folio As String
|
|
Dim tgl As Toggle
|
|
Private almacen As String
|
|
Private p_nota As Panel
|
|
Dim vamoaver As List
|
|
Dim c2 As Cursor
|
|
Dim j3 As Cursor
|
|
End Sub
|
|
|
|
'You can add more parameters here.
|
|
Public Sub Initialize As Object
|
|
Return Me
|
|
End Sub
|
|
|
|
'This event will be called once, before the page becomes visible.
|
|
Private Sub B4XPage_Created (Root1 As B4XView)
|
|
Root = Root1
|
|
ruta = File.DirInternal
|
|
Root.LoadLayout("nota")
|
|
borra.Visible = True
|
|
Titulo.Text = "Pedido Actual"
|
|
' If Existe <> 0 Then
|
|
' c=B4XPages.MainPage.skmt.ExecQuery("select pc_noart, pc_monto from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
|
|
' C.Position=0
|
|
' L_CANT.Text = c.GetString("PC_NOART")
|
|
' L_TOTAL.Text = c.GetString("PC_MONTO")
|
|
' End If
|
|
End Sub
|
|
|
|
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
|
|
|
'Sub B4XPage_Appear
|
|
' ' Verificar si el GPS está encendido
|
|
' If Not(Starter.gps.GPSEnabled) Then
|
|
' ToastMessageShow("Es necesario tener el GPS encendido", True)
|
|
' StartActivity(Starter.gps.LocationSettingsIntent)
|
|
' End If
|
|
'
|
|
' ' Obtener el ID del almacén
|
|
' c = B4XPages.MainPage.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
|
|
' If c.RowCount > 0 Then
|
|
' c.Position = 0
|
|
' almacen = c.GetString("ID_ALMACEN")
|
|
' End If
|
|
' c.Close
|
|
'
|
|
' ' Limpiar los campos de cantidad y total
|
|
' L_CANT.Text = ""
|
|
' L_TOTAL.Text = ""
|
|
'
|
|
' ' Verificar si existen pedidos para el cliente
|
|
' c = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS EXISTE FROM pedido_cliente WHERE pc_cliente IN (SELECT CUENTA FROM cuentaa)")
|
|
' If c.RowCount > 0 Then
|
|
' c.Position = 0
|
|
' Existe = c.GetString("EXISTE")
|
|
' End If
|
|
' c.Close
|
|
'
|
|
' ' Obtener los pedidos del cliente
|
|
' c = B4XPages.MainPage.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")
|
|
' ListView1.Clear
|
|
' vamoaver.Initialize
|
|
' Private cs As CSBuilder
|
|
'
|
|
' If c.RowCount > 0 Then
|
|
' For i = 0 To c.RowCount - 1
|
|
' cs.Initialize
|
|
' c.Position = i
|
|
' Dim label1 As Label
|
|
' label1 = ListView1.TwoLinesLayout.Label
|
|
' label1.TextSize = 15
|
|
' label1.TextColor = Colors.Black
|
|
' label1.Color = Colors.White
|
|
'
|
|
' Private textColor As Int = Colors.Black
|
|
' Dim folio As String = c.GetString("PE_FOLIO")
|
|
'
|
|
' ' Asignar colores según el tipo de folio
|
|
' If folio = "VENTA" Then
|
|
' textColor = Colors.RGB(48, 3, 195)
|
|
' Else If folio = "PREVENTA_CONTADO" Or folio = "ABORDO" Or folio = "RECARGA" Then
|
|
' textColor = Colors.RGB(166, 0, 0)
|
|
' Else If folio = "PREVENTA_CREDITO" Then
|
|
' textColor = Colors.RGB(0, 128, 0)
|
|
' End If
|
|
'
|
|
' ' Cambiar el color si es una promoción
|
|
' If Not(IsNumber(c.GetString("PE_CEDIS"))) And folio = "VENTA" Then
|
|
' textColor = Colors.RGB(154, 131, 231)
|
|
' Else If Not(IsNumber(c.GetString("PE_CEDIS"))) And folio = "PREVENTA_CONTADO" Then
|
|
' folio = "PREVENTA"
|
|
' textColor = Colors.RGB(255,0,214)
|
|
' Else If Not(IsNumber(c.GetString("PE_CEDIS"))) And folio = "PREVENTA_CREDITO" Then
|
|
' folio = "PREVENTA"
|
|
' textColor = Colors.RGB(120,178,108)
|
|
' End If
|
|
'
|
|
'
|
|
' Dim polioreal As String
|
|
' If folio = "VENTA" Then
|
|
' textColor = Colors.RGB(154,131,231)
|
|
' Else If folio = "PREVENTA_CONTADO" Then
|
|
' polioreal = "PREVENTA"
|
|
' textColor = Colors.RGB(255,111,111)
|
|
' Else If folio = "PREVENTA_CREDITO" Then
|
|
' polioreal = "PREVENTA"
|
|
' textColor = Colors.RGB(120,178,108)
|
|
' End If
|
|
' LogColor(polioreal,Colors.Gray)
|
|
' Dim label2 As Label
|
|
' label2 = ListView1.TwoLinesLayout.SecondLabel
|
|
' label2.TextSize = 10
|
|
' label2.TextColor = Colors.Blue
|
|
'' LogColor(folio,Colors.Gray)
|
|
' ' Agregar el ítem a la lista
|
|
'' ListView1.AddTwoLines(cs.Color(textColor).append(c.GetString("PE_PRONOMBRE")).pop, "Cantidad #" & c.GetString("PE_CANT") & " SubTotal $" & c.GetString("PE_COSTO_TOT") & " Folio " & folio )
|
|
' ListView1.AddSingleLine(cs.Color(textColor).Size(12).append(c.GetString("PE_PRONOMBRE") & " ").pop.Append(CRLF).Size(8).Color(Colors.Blue).Append("Cantidad #"& c.GetString("PE_CANT")).Append(" SubTotal $"& c.GetString("PE_COSTO_TOT")).Append(" " & polioreal& " " &c.GetString("PE_CEDIS")).PopAll)
|
|
'
|
|
' vamoaver.Add(folio)
|
|
' Next
|
|
' End If
|
|
'
|
|
' Log($"EXISTE: ${Existe}"$)
|
|
'
|
|
' ' Calcular la cantidad total y el monto total
|
|
' c = B4XPages.MainPage.skmt.ExecQuery("SELECT IFNULL(SUM(IFNULL(PE_CANT,0)),0) AS PC_NOART, SUM(IFNULL(PE_COSTO_TOT,0)) AS PC_MONTO FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP)")
|
|
' If c.RowCount > 0 Then
|
|
' c.Position = 0
|
|
' Log($"registros: ${c.RowCount}, arts: ${c.GetString("PC_NOART")}, monto:${c.GetString("PC_MONTO")}"$)
|
|
' L_CANT.Text = c.GetString("PC_NOART")
|
|
' L_TOTAL.Text = c.GetString("PC_MONTO")
|
|
' If L_CANT.Text = Null Or L_CANT.Text = "null" Or L_CANT.Text = "" Then L_CANT.Text = "0"
|
|
' If L_TOTAL.Text = Null Or L_TOTAL.Text = "null" Or L_TOTAL.Text = "" Then L_TOTAL.Text = "0"
|
|
' c.Close
|
|
'
|
|
' ' Obtener el descuento total
|
|
' c = B4XPages.MainPage.skmt.ExecQuery("SELECT SUM(IFNULL(PE_DESC,0)) AS DESCUENTO FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM cuentaa)")
|
|
' If c.RowCount > 0 Then
|
|
' c.Position = 0
|
|
' DESC = c.GetString("DESCUENTO")
|
|
' b_desc.Visible = False
|
|
' End If
|
|
' c.Close
|
|
' End If
|
|
'
|
|
' ' Habilitar o deshabilitar el botón de borrar
|
|
' If Subs.pedidoGuardado Then
|
|
' borra.Enabled = False
|
|
' Else
|
|
' borra.Enabled = True
|
|
' End If
|
|
'End Sub
|
|
|
|
' ... (Globals se mantienen igual)
|
|
|
|
Sub B4XPage_Appear
|
|
' 1. Verificación inicial de servicios
|
|
If Not(Starter.gps.GPSEnabled) Then
|
|
ToastMessageShow("Es necesario tener el GPS encendido", True)
|
|
StartActivity(Starter.gps.LocationSettingsIntent)
|
|
End If
|
|
|
|
' 2. Obtener el ID del almacén actual
|
|
c = B4XPages.MainPage.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
|
|
If c.RowCount > 0 Then
|
|
c.Position = 0
|
|
almacen = c.GetString("ID_ALMACEN")
|
|
End If
|
|
c.Close
|
|
|
|
' 3. CONFIGURACIÓN VISUAL DEL LISTVIEW (Diseño espaciado)
|
|
ListView1.TwoLinesLayout.ItemHeight = 130dip
|
|
|
|
' Título: Nombre del Producto (Negrita y Rojo oscuro)
|
|
ListView1.TwoLinesLayout.Label.Height = 45dip
|
|
ListView1.TwoLinesLayout.Label.TextSize = 18
|
|
ListView1.TwoLinesLayout.Label.Typeface = Typeface.DEFAULT_BOLD
|
|
ListView1.TwoLinesLayout.Label.TextColor = Colors.RGB(150, 0, 0)
|
|
ListView1.TwoLinesLayout.Label.Gravity = Gravity.CENTER_VERTICAL
|
|
|
|
' Detalles: Presentación y Totales (Espacio amplio)
|
|
ListView1.TwoLinesLayout.SecondLabel.Height = 80dip
|
|
ListView1.TwoLinesLayout.SecondLabel.Top = 45dip
|
|
ListView1.TwoLinesLayout.SecondLabel.TextSize = 14
|
|
|
|
' 4. CARGA DE DATOS DESDE LA BASE DE DATOS
|
|
' Incluimos PE_PRESENTACION, PE_CANTC, PE_UVM, PE_PROID y PE_DIRIGIDA para el Map de borrado
|
|
Dim query As String = "SELECT PE_PRONOMBRE, PE_COSTO_TOT, PE_CANT, PE_FOLIO, PE_CEDIS, " & _
|
|
"PE_PRESENTACION, PE_CANTC, PE_UVM, PE_PROID, PE_DIRIGIDA " & _
|
|
"FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM cuentaa) " & _
|
|
"ORDER BY PE_CEDIS,PE_COSTO_TOT, PE_PRONOMBRE"
|
|
|
|
c = B4XPages.MainPage.skmt.ExecQuery(query)
|
|
ListView1.Clear
|
|
vamoaver.Initialize
|
|
|
|
' If c.RowCount > 0 Then
|
|
' For i = 0 To c.RowCount - 1
|
|
' c.Position = i
|
|
'
|
|
' ' Extraer datos para la lógica visual y el Map
|
|
' Dim idProd As String = c.GetString("PE_PROID")
|
|
' Dim nomProd As String = c.GetString("PE_PRONOMBRE")
|
|
' Dim fActual As String = c.GetString("PE_FOLIO")
|
|
' Dim presName As String = c.GetString("PE_PRESENTACION")
|
|
' Dim cantPres As String = c.GetString("PE_CANTC")
|
|
' Dim uvmVal As Int = c.GetInt("PE_UVM")
|
|
' Dim cedisFila As String = c.GetString("PE_CEDIS")
|
|
' Dim dirigidaFila As String = c.GetString("PE_DIRIGIDA")
|
|
' Dim cantPzs As Int = c.GetInt("PE_CANT")
|
|
'
|
|
' ' Validar cantidad de presentación
|
|
' If cantPres = "" Or cantPres = "null" Then cantPres = "0"
|
|
'
|
|
' ' CONSTRUCCIÓN DEL SUBTÍTULO CON CSBUILDER
|
|
' Dim cs As CSBuilder
|
|
' cs.Initialize
|
|
'
|
|
' ' REGLA: Si la UVM es mayor a 1, mostrar la presentación en azul (Estilo normal)
|
|
' If uvmVal > 1 Then
|
|
' cs.Color(Colors.Blue).Size(17).Append(presName.ToUpperCase & ": " & (cantPzs/uvmVal)).Pop.Pop.Append(CRLF)
|
|
' cs.Size(6).Append(CRLF).Pop ' Espacio entre líneas
|
|
' End If
|
|
'
|
|
' ' Línea de Piezas y Subtotal (Siempre visible)
|
|
' cs.Color(Colors.DarkGray).Size(13).Append("Piezas: ").Color(Colors.Black).Append("#" & cantPzs).Pop
|
|
' cs.Append(" | ").Color(Colors.DarkGray).Append("Subtotal: ").Color(0xFF008000).Append("$" & NumberFormat2(c.GetDouble("PE_COSTO_TOT"), 1, 2, 2, False)).PopAll
|
|
'
|
|
' ' CREACIÓN DEL MAPA DE IDENTIDAD (El "secreto" para que el borrado no falle)
|
|
' Dim datosIdentificadores As Map = CreateMap("id": idProd, "nombre": nomProd, "cedis": cedisFila, "pres": presName, "uvm": uvmVal, "dir": dirigidaFila, "folio": fActual, "cant": cantPzs)
|
|
'
|
|
' ' AÑADIR AL LISTVIEW:
|
|
' ' Parámetro 1: Nombre (Usará la negrita del layout)
|
|
' ' Parámetro 2: Subtítulo (CSBuilder)
|
|
' ' Parámetro 3: El Mapa (Se recupera en el ItemLongClick como 'Value')
|
|
' ListView1.AddTwoLines2(nomProd, cs, datosIdentificadores)
|
|
'
|
|
' vamoaver.Add(fActual)
|
|
' Next
|
|
' End If
|
|
|
|
|
|
If c.RowCount > 0 Then
|
|
Dim almacenActual As String = Subs.traeAlmacen ' Obtenemos el almacén actual para comparar
|
|
|
|
For i = 0 To c.RowCount - 1
|
|
c.Position = i
|
|
|
|
' 1. Extraer datos
|
|
Dim idProd As String = c.GetString("PE_PROID")
|
|
Dim nomProd As String = c.GetString("PE_PRONOMBRE")
|
|
Dim fActual As String = c.GetString("PE_FOLIO")
|
|
Dim presName As String = c.GetString("PE_PRESENTACION")
|
|
Dim cantPres As String = c.GetString("PE_CANTC")
|
|
Dim uvmVal As Int = c.GetInt("PE_UVM")
|
|
Dim cedisFila As String = c.GetString("PE_CEDIS")
|
|
Dim dirigidaFila As String = c.GetString("PE_DIRIGIDA")
|
|
Dim cantPzs As Int = c.GetInt("PE_CANT")
|
|
|
|
If cantPres = "" Or cantPres = "null" Then cantPres = "0"
|
|
|
|
' 2. CONFIGURACIÓN DEL TÍTULO (Nombre del Producto)
|
|
' Usamos CSBuilder para saltarnos el color predefinido del Layout si es promoción
|
|
Dim csTitulo As CSBuilder
|
|
csTitulo.Initialize
|
|
|
|
If cedisFila <> almacenActual Then
|
|
' ES UNA PROMOCIÓN (Color diferente, p.ej. Verde esmeralda o Naranja)
|
|
csTitulo.Color(Colors.RGB(0, 150, 136)).Typeface(Typeface.DEFAULT_BOLD).Append(nomProd & " (PROMO)").PopAll
|
|
Else
|
|
' ES VENTA NORMAL (Rojo oscuro como lo tenías)
|
|
csTitulo.Color(Colors.RGB(150, 0, 0)).Typeface(Typeface.DEFAULT_BOLD).Append(nomProd).PopAll
|
|
End If
|
|
|
|
' 3. CONFIGURACIÓN DEL SUBTÍTULO (Detalles)
|
|
Dim csDetalle As CSBuilder
|
|
csDetalle.Initialize
|
|
|
|
' Regla UVM
|
|
If uvmVal > 1 Then
|
|
csDetalle.Color(Colors.Blue).Size(17).Append(presName.ToUpperCase & ": " & (cantPzs/uvmVal)).Pop.Pop.Append(CRLF)
|
|
csDetalle.Size(6).Append(CRLF).Pop
|
|
End If
|
|
|
|
' Línea de Piezas y Subtotal
|
|
csDetalle.Color(Colors.DarkGray).Size(13).Append("Piezas: ").Color(Colors.Black).Append("#" & cantPzs).Pop
|
|
csDetalle.Append(" | ").Color(Colors.DarkGray).Append("Subtotal: ").Color(0xFF008000).Append("$" & NumberFormat2(c.GetDouble("PE_COSTO_TOT"), 1, 2, 2, False)).PopAll
|
|
|
|
' 4. MAPA DE IDENTIDAD
|
|
Dim datosIdentificadores As Map = CreateMap("id": idProd, "nombre": nomProd, "cedis": cedisFila, "pres": presName, "uvm": uvmVal, "dir": dirigidaFila, "folio": fActual, "cant": cantPzs)
|
|
|
|
' 5. AÑADIR AL LISTVIEW
|
|
' Pasamos csTitulo en lugar de nomProd para que respete el color condicional
|
|
ListView1.AddTwoLines2(csTitulo, csDetalle, datosIdentificadores)
|
|
|
|
vamoaver.Add(fActual)
|
|
Next
|
|
End If
|
|
c.Close
|
|
|
|
' 5. Actualizar los totales globales de la pantalla
|
|
ActualizarTotalesPantalla
|
|
End Sub
|
|
|
|
Private Sub ActualizarTotalesPantalla
|
|
' Calculamos el resumen de la orden
|
|
Dim res As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT IFNULL(SUM(PE_CANT),0) AS PC_NOART, SUM(IFNULL(PE_COSTO_TOT,0)) AS PC_MONTO FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP)")
|
|
|
|
If res.RowCount > 0 Then
|
|
res.Position = 0
|
|
L_CANT.Text = res.GetString("PC_NOART")
|
|
L_TOTAL.Text = "$" & NumberFormat2(res.GetDouble("PC_MONTO"), 1, 2, 2, False)
|
|
Else
|
|
L_CANT.Text = "0"
|
|
L_TOTAL.Text = "$0.00"
|
|
End If
|
|
res.Close
|
|
|
|
' Habilitar borrado general solo si la venta no ha sido transmitida/guardada
|
|
If Subs.pedidoGuardado Then borra.Enabled = False Else borra.Enabled = True
|
|
End Sub
|
|
|
|
Sub Activity_Pause (UserClosed As Boolean)
|
|
|
|
End Sub
|
|
|
|
Sub GPS_LocationChanged (Location1 As Location)
|
|
'lat_gps=Location1.ConvertToSeconds(Location1.Latitude)
|
|
'lon_gps=Location1.ConvertToSeconds(Location1.Longitude)
|
|
End Sub
|
|
|
|
Sub Regresar_Click
|
|
B4XPages.ShowPage("Cliente")
|
|
End Sub
|
|
|
|
Private Sub B4XPage_CloseRequest As ResumableSub
|
|
' BACK key pressed
|
|
' Return True To close, False To cancel
|
|
B4XPages.ShowPage("Cliente")
|
|
Return False
|
|
End Sub
|
|
|
|
Sub borra_Click
|
|
Log("Entre al btn borrar")
|
|
result = Msgbox2("Seguro que desa borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
|
If result = DialogResponse.POSITIVE Then
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
|
|
Log($"select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa)"$)
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount -1
|
|
|
|
|
|
c.Position=i
|
|
|
|
Dim tablaInventario As String
|
|
' If folioActual = "PREVENTA_CREDITO" Then tablaInventario = "CAT_GUNAPROD4"
|
|
If c.GetString("PE_FOLIO") = "PREVENTA_CONTADO" Or c.GetString("PE_FOLIO") = "ABORDO" Then
|
|
tablaInventario = "CAT_GUNAPROD"
|
|
Log("1")
|
|
Else If c.GetString("PE_FOLIO") = "VENTA" Then
|
|
tablaInventario = "CAT_GUNAPROD2"
|
|
Log(2)
|
|
Else If c.GetString("PE_FOLIO") = "RECARGA" Then
|
|
tablaInventario = "CAT_GUNAPROD"
|
|
Log(3)
|
|
Else If c.GetString("PE_FOLIO") = "PREVENTA_CREDITO" Then
|
|
tablaInventario = "CAT_GUNAPROD4"
|
|
Log(4)
|
|
End If
|
|
B4XPages.MainPage.skmt.ExecNonQuery2($"update ${tablaInventario} set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?"$, Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1))
|
|
Next
|
|
End If
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
|
B4XPage_Appear
|
|
End If
|
|
End Sub
|
|
|
|
'Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
|
' Log(Value)
|
|
'' 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=B4XPages.MainPage.skmt.ExecQuery2("select PE_PROID,PE_CANT, PE_FOLIO,PE_CEDIS FROM PEDIDO where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) ", Array As String(Value))
|
|
' c.Position=0
|
|
' Log(vamoaver.Get(Position))
|
|
' If vamoaver.Get(Position) = "VENTA" Then
|
|
' Log("CAT_GUNAPROD2")
|
|
' Log(Position)
|
|
' Log(Value)
|
|
' Starter.tabla = "CAT_GUNAPROD2"
|
|
' Else
|
|
' Log("CAT_GUNAPROD")
|
|
' Log(Position)
|
|
' Log(Value)
|
|
' Starter.tabla = "CAT_GUNAPROD"
|
|
' End If
|
|
'' B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?"$, Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
|
' B4XPages.MainPage.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=B4XPages.MainPage.skmt.ExecQuery2($"select count(*) AS CUANTOS from ${Starter.tabla} 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 = B4XPages.MainPage.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 = ?) and PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)",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
|
|
'
|
|
' If vamoaver.get(Position) = "VENTA" Then
|
|
' Log("Entre aqui?")
|
|
' B4XPages.MainPage.skmt.ExecNonQuery($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen + ${j3.GetString("PE_CANT")} where cat_gp_id = '${j3.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 Object(j3.GetString("PE_PRONOMBRE"), c.GetString("PE_FOLIO")))
|
|
' Log("Aqui borro pedido 1")
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis <> ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(Subs.traeAlmacen, c.GetString("PE_FOLIO")))
|
|
' Else
|
|
' Log("Esto es Folio: " & vamoaver.get(Position) & "Esto es cedis: " & Subs.traeAlmacen)
|
|
' B4XPages.MainPage.skmt.ExecNonQuery($"update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ${j3.GetString("PE_CANT")} where cat_gp_id = '${j3.Getstring("PE_PROID")}'"$)
|
|
' B4XPages.MainPage.skmt.ExecNonQuery($"update cat_gunaprod4 set cat_gp_almacen = cat_gp_almacen + ${j3.GetString("PE_CANT")} where cat_gp_id = '${j3.Getstring("PE_PROID")}'"$)
|
|
' Log("Aqui borro pedido 2")
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis <> ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(Subs.traeAlmacen, c.GetString("PE_FOLIO")))
|
|
' End If
|
|
' Next
|
|
' End If
|
|
' j3.Close
|
|
' Else
|
|
' Log("Esto no es una promo")
|
|
' If vamoaver.get(Position) = "VENTA" Then
|
|
' Log("Esto no es una promo")
|
|
' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD2 set cat_gp_almacen = cat_gp_almacen + ${c.GetString("PE_CANT")} where cat_gp_id = '${c.Getstring("PE_PROID")}'"$)
|
|
' Log("Aqui borro pedido 3")
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis = ? and pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(Subs.traeAlmacen, Value, vamoaver.Get(Position)))
|
|
' Else
|
|
' Log("Esto no es una promo")
|
|
' Log("Esto es Folio: " & vamoaver.get(Position) & "Esto es cedis: " & Subs.traeAlmacen & "Esto es nombre: " & Value)
|
|
' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen + ${c.GetString("PE_CANT")} where cat_gp_id = '${c.Getstring("PE_PROID")}'"$)
|
|
' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD4 set cat_gp_almacen = cat_gp_almacen + ${c.GetString("PE_CANT")} where cat_gp_id = '${c.Getstring("PE_PROID")}'"$)
|
|
' Log("Aqui borro pedido 4")
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis = ? and pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(Subs.traeAlmacen, Value, vamoaver.Get(Position)))
|
|
' End If
|
|
'' B4XPages.MainPage.skmt.ExecNonQuery($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen + ${c.GetString("PE_CANT")} where cat_gp_id = '${c.Getstring("PE_PROID")}'"$)
|
|
'' B4XPages.MainPage.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)
|
|
' c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
|
|
' c.Position=0
|
|
' clie_id = c.GetString("CUENTA")
|
|
' c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
|
' c.Position=0
|
|
' usuario = c.GetString("USUARIO")
|
|
' c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
|
' c.Position=0
|
|
' If c.GetString("CUANTOS") > 0 Then
|
|
' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
|
|
' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
|
' Else
|
|
' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
|
' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
|
' End If
|
|
' B4XPage_Appear
|
|
' End If
|
|
'' Else
|
|
'' ToastMessageShow("Pedido guardado, NO se puede editar.",False)
|
|
'' End If
|
|
'End Sub
|
|
|
|
'Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
|
' Log(Value)
|
|
' Private X() As String = Regex.Split(" ", Value)
|
|
' Private nom As String = ""
|
|
' For i = 0 To X.Length -1
|
|
' If X(i).Contains(CRLF) Then
|
|
' End If
|
|
' If Not(X(i).Contains(CRLF)) Then
|
|
' nom = nom & " " & X(i)
|
|
' Else
|
|
' Exit
|
|
' End If
|
|
' Next
|
|
' nom = nom.Trim
|
|
' Log(nom)
|
|
' Private cedis As String = X(X.Length-1)
|
|
' Log(cedis)
|
|
' result = Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
|
' If result = DialogResponse.POSITIVE Then
|
|
' Log("|" &nom & "|")
|
|
' Log("|" & cedis & "|")
|
|
' Log("|" & Subs.traeCliente & "|")
|
|
' Private y As Cursor =B4XPages.MainPage.skmt.ExecQuery($"select PE_PROID,PE_CANT, PE_FOLIO FROM PEDIDO where pe_pronombre = '${nom.TRIM}' and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS = '${cedis}' "$)
|
|
' Log($"select PE_PROID,PE_CANT, PE_FOLIO FROM PEDIDO where pe_pronombre = '${nom}' and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS = '${cedis}' "$)
|
|
' Log(y.RowCount)
|
|
' y.Position=0
|
|
' Log(vamoaver.Get(Position))
|
|
' If vamoaver.Get(Position) = "VENTA" Then
|
|
' Log("CAT_GUNAPROD2")
|
|
' Log(Position)
|
|
' Log(Value)
|
|
' Starter.tabla = "CAT_GUNAPROD2"
|
|
' Else
|
|
' Log("CAT_GUNAPROD")
|
|
' Log(Position)
|
|
' Log(Value)
|
|
' Starter.tabla = "CAT_GUNAPROD"
|
|
' End If
|
|
'
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (Subs.traeAlmacen,y.GetString("PE_PROID"),y.GetString("PE_CANT")* -1))
|
|
' Log(cedis)
|
|
' Log(Subs.traeAlmacen)
|
|
' If cedis <> Subs.traeAlmacen Then
|
|
' j3 = B4XPages.MainPage.skmt.ExecQuery2("SELECT PE_CEDIS, PE_CANT,PE_PROID, PE_PRONOMBRE, PE_FOLIO FROM PEDIDO WHERE PE_CEDIS IN (SELECT PE_CEDIS FROM PEDIDO WHERE PE_PRONOMBRE = ? and PE_CEDIS = ?)",Array As String(nom,cedis))
|
|
' Log(j3.RowCount)
|
|
' If j3.RowCount > 0 Then
|
|
' Log("Soy promo")
|
|
' For j = 0 To j3.RowCount -1
|
|
' Log("aqui tronare?")
|
|
'
|
|
' j3.Position = j
|
|
' Log(j3.GetString("PE_CANT"))
|
|
' Log($"update ${Starter.tabla} set CAT_GP_ALMACEN = CAT_GP_ALMACEN + '${j3.GetString("PE_CANT")}' where CAT_GP_ID = '${j3.GetString("PE_PROID")}'"$)
|
|
' If vamoaver.Get(Position) = "PREVENTA_CREDITO" Then
|
|
' Starter.skmt.ExecNonQuery($"update CAT_GUNAPROD4 set CAT_GP_ALMACEN = CAT_GP_ALMACEN + ${j3.GetString("PE_CANT")} where CAT_GP_ID = '${j3.GetString("PE_PROID")}'"$)
|
|
' B4XPages.MainPage.skmt.ExecNonQuery($"delete from pedido where pe_cedis= '${cedis}' and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = '${j3.GetString("PE_FOLIO")}' AND PE_PROID = '${j3.GetString("PE_PROID")}'"$)', Array As Object(cedis, c.GetString("PE_FOLIO")))
|
|
' Else
|
|
' Starter.skmt.ExecNonQuery($"update ${Starter.tabla} set CAT_GP_ALMACEN = CAT_GP_ALMACEN + ${j3.GetString("PE_CANT")} where CAT_GP_ID = '${j3.GetString("PE_PROID")}'"$)
|
|
' B4XPages.MainPage.skmt.ExecNonQuery($"delete from pedido where pe_cedis= '${cedis}' and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = '${j3.GetString("PE_FOLIO")}' AND PE_PROID = '${j3.GetString("PE_PROID")}'"$)', Array As Object(cedis, c.GetString("PE_FOLIO")))
|
|
'
|
|
' End If
|
|
' Next
|
|
' End If
|
|
' j3.Close
|
|
' Else
|
|
' Log(y.GetString("PE_CANT"))
|
|
' Log(y.Getstring("PE_PROID"))
|
|
' Log("Esto no es promo")
|
|
' If vamoaver.Get(Position) = "PREVENTA_CREDITO" Then
|
|
' B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD4 set cat_gp_almacen = cat_gp_almacen + ${y.GetString("PE_CANT")} where cat_gp_id = '${y.Getstring("PE_PROID")}'"$)
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cedis = ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(nom, cedis, vamoaver.Get(Position)))
|
|
' Else
|
|
' B4XPages.MainPage.skmt.ExecNonQuery($"update ${Starter.tabla} set cat_gp_almacen = cat_gp_almacen + ${y.GetString("PE_CANT")} where cat_gp_id = '${y.Getstring("PE_PROID")}'"$)
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cedis = ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(nom, cedis, vamoaver.Get(Position)))
|
|
' End If
|
|
' End If
|
|
' y.Close
|
|
' DateTime.DateFormat = "MM/dd/yyyy"
|
|
' sDate=DateTime.Date(DateTime.Now)
|
|
' sTime=DateTime.Time(DateTime.Now)
|
|
' c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
|
|
' c.Position=0
|
|
' clie_id = c.GetString("CUENTA")
|
|
' c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
|
' c.Position=0
|
|
' usuario = c.GetString("USUARIO")
|
|
' c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
|
' c.Position=0
|
|
' If c.GetString("CUANTOS") > 0 Then
|
|
' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
|
|
' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
|
' Else
|
|
' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
|
' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
|
' End If
|
|
' B4XPage_Appear
|
|
' End If
|
|
'
|
|
'End Sub
|
|
|
|
'Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
|
' Log("Valor seleccionado: " & Value)
|
|
'
|
|
' ' 1. EXTRAER EL NOMBRE Y EL CEDIS DEL LISTVIEW
|
|
' ' El valor recibido es el texto completo del ítem (Nombre + CRLF + Detalles)
|
|
' Private X() As String = Regex.Split(" ", Value)
|
|
' Private nom As String = ""
|
|
'
|
|
' ' Reconstruimos el nombre hasta encontrar el primer salto de línea
|
|
' For i = 0 To X.Length - 1
|
|
' If Not(X(i).Contains(CRLF)) Then
|
|
' nom = nom & " " & X(i)
|
|
' Else
|
|
' ' El nombre termina justo antes del CRLF
|
|
' Dim partes() As String = Regex.Split(CRLF, X(i))
|
|
' nom = nom & " " & partes(0)
|
|
' Exit
|
|
' End If
|
|
' Next
|
|
' nom = nom.Trim
|
|
'
|
|
' ' El CEDIS siempre está al final según nuestra construcción previa
|
|
' Private cedis As String = X(X.Length - 1).Trim
|
|
' ' Eliminamos cualquier residuo de paréntesis si existiera
|
|
' cedis = cedis.Replace("(", "").Replace(")", "")
|
|
'
|
|
' result = Msgbox2("¿Seguro que desea borrar este artículo?", "Borrar Artículo", "Si", "", "No", LoadBitmap(File.DirAssets, "alert2.png"))
|
|
'
|
|
' If result = DialogResponse.POSITIVE Then
|
|
' ' 2. BUSQUEDA DE LA FILA ESPECÍFICA
|
|
' ' Buscamos por Nombre y CEDIS, que es lo que tenemos disponible en el texto del ListView
|
|
' ' IMPORTANTE: Al ser un ListView de "Nota", traemos todos los campos para identificar la presentación
|
|
' Dim q As String = "SELECT PE_PROID, PE_CANT, PE_FOLIO, PE_PRESENTACION, PE_UVM, PE_DIRIGIDA " & _
|
|
' "FROM PEDIDO WHERE PE_PRONOMBRE = ? AND PE_CEDIS = ? " & _
|
|
' "AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)"
|
|
'
|
|
' Dim res As Cursor = B4XPages.MainPage.skmt.ExecQuery2(q, Array As String(nom, cedis))
|
|
'
|
|
' ' VALIDACIÓN: Solo entramos si el cursor NO está vacío
|
|
' If res.RowCount > 0 Then
|
|
' res.Position = 0
|
|
' Dim idProd As String = res.GetString("PE_PROID")
|
|
' Dim cantRegresar As Int = res.GetInt("PE_CANT")
|
|
' Dim folioActual As String = res.GetString("PE_FOLIO")
|
|
' Dim presName As String = res.GetString("PE_PRESENTACION")
|
|
' Dim uvmVal As String = res.GetString("PE_UVM")
|
|
' Dim dirTarget As String = res.GetString("PE_DIRIGIDA")
|
|
'
|
|
' ' 3. DEVOLVER AL INVENTARIO
|
|
' ' Decidimos la tabla según el folio del registro encontrado
|
|
' Dim tablaInv As String = "CAT_GUNAPROD"
|
|
' If folioActual = "VENTA" Then tablaInv = "CAT_GUNAPROD2"
|
|
' If folioActual = "PREVENTA_CREDITO" Then tablaInv = "CAT_GUNAPROD4"
|
|
'
|
|
' B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE ${tablaInv} SET CAT_GP_ALMACEN = CAT_GP_ALMACEN + ${cantRegresar} WHERE CAT_GP_ID = '${idProd}'"$)
|
|
'
|
|
' ' Registrar movimiento para sincronización
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN, PROID, CANTIDAD) VALUES(?,?,?)", _
|
|
' Array As Object(cedis, idProd, cantRegresar * -1))
|
|
'
|
|
' ' 4. BORRADO QUIRÚRGICO
|
|
' ' Usamos todos los campos clave para borrar SOLO la presentación seleccionada
|
|
' Dim qDelete As String = "DELETE FROM PEDIDO WHERE PE_PROID = ? AND PE_PRESENTACION = ? " & _
|
|
' "AND PE_UVM = ? AND PE_DIRIGIDA = ? AND PE_CEDIS = ? " & _
|
|
' "AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)"
|
|
'
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2(qDelete, Array As Object(idProd, presName, uvmVal, dirTarget, cedis))
|
|
'
|
|
' LogColor("Borrado: " & nom & " - " & presName, Colors.Blue)
|
|
' Else
|
|
' ' Si llegamos aquí, es que la consulta SELECT no encontró el producto
|
|
' LogColor("Error: No se encontró el registro en la BD para " & nom, Colors.Red)
|
|
' ToastMessageShow("No se pudo localizar el registro para borrar.", False)
|
|
' End If
|
|
' res.Close
|
|
'
|
|
' ' 5. ACTUALIZAR LA PANTALLA
|
|
' ' Llamamos al Appear para que refresque la lista y los totales
|
|
' B4XPage_Appear
|
|
' End If
|
|
'End Sub
|
|
|
|
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
|
' Value ya no es texto, es el Map que guardamos en Appear
|
|
Dim datos As Map = Value
|
|
|
|
Dim idProd As String = datos.Get("id")
|
|
Dim nom As String = datos.Get("nombre")
|
|
Dim presName As String = datos.Get("pres")
|
|
Dim uvmVal As Int = datos.Get("uvm")
|
|
Dim cedis As String = datos.Get("cedis")
|
|
Dim folioActual As String = datos.Get("folio")
|
|
Dim cantRegresar As Int = datos.Get("cant")
|
|
Log(folioActual)
|
|
Log(cedis)
|
|
|
|
result = Msgbox2("¿Seguro que desea borrar " & nom & " (" & presName & ")?", "Borrar Artículo", "Si", "", "No", LoadBitmap(File.DirAssets, "alert2.png"))
|
|
|
|
If result = DialogResponse.POSITIVE Then
|
|
' 1. DEVOLVER AL INVENTARIO (Tabla dinámica según el folio)
|
|
Dim tablaInv As String
|
|
' If folioActual = "VENTA" Then tablaInv = "CAT_GUNAPROD2"
|
|
' If folioActual = "PREVENTA_CREDITO" Then tablaInv = "CAT_GUNAPROD4"
|
|
|
|
If folioActual = "PREVENTA_CONTADO" Or folioActual = "ABORDO" Then
|
|
tablaInv = "CAT_GUNAPROD"
|
|
Log("1")
|
|
Else If folioActual = "VENTA" Then
|
|
tablaInv = "CAT_GUNAPROD2"
|
|
Log(2)
|
|
Else If folioActual = "RECARGA" Then
|
|
tablaInv = "CAT_GUNAPROD"
|
|
Log(3)
|
|
Else If folioActual = "PREVENTA_CREDITO" Then
|
|
tablaInv = "CAT_GUNAPROD4"
|
|
Log(4)
|
|
End If
|
|
|
|
If cedis <> Subs.traeAlmacen Then
|
|
|
|
|
|
j3 = B4XPages.MainPage.skmt.ExecQuery2("SELECT PE_CEDIS, PE_CANT,PE_PROID, PE_PRONOMBRE, PE_FOLIO FROM PEDIDO WHERE PE_CEDIS IN (SELECT PE_CEDIS FROM PEDIDO WHERE PE_PRONOMBRE = ? and PE_CEDIS = ?) AND PE_FOLIO = ?",Array As String(nom,cedis,folioActual))
|
|
Log(j3.RowCount)
|
|
If j3.RowCount > 0 Then
|
|
Log("Soy promo")
|
|
For j = 0 To j3.RowCount -1
|
|
Log("aqui tronare?")
|
|
|
|
j3.Position = j
|
|
Log(j3.GetString("PE_CANT"))
|
|
Log($"update ${tablaInv} set CAT_GP_ALMACEN = CAT_GP_ALMACEN + '${j3.GetString("PE_CANT")}' where CAT_GP_ID = '${j3.GetString("PE_PROID")}'"$)
|
|
If vamoaver.Get(Position) = "PREVENTA_CREDITO" Then
|
|
Starter.skmt.ExecNonQuery($"update CAT_GUNAPROD4 set CAT_GP_ALMACEN = CAT_GP_ALMACEN + ${j3.GetString("PE_CANT")} where CAT_GP_ID = '${j3.GetString("PE_PROID")}'"$)
|
|
B4XPages.MainPage.skmt.ExecNonQuery($"delete from pedido where pe_cedis= '${cedis}' and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = '${j3.GetString("PE_FOLIO")}' AND PE_PROID = '${j3.GetString("PE_PROID")}'"$)', Array As Object(cedis, c.GetString("PE_FOLIO")))
|
|
Else
|
|
Starter.skmt.ExecNonQuery($"update ${tablaInv} set CAT_GP_ALMACEN = CAT_GP_ALMACEN + ${j3.GetString("PE_CANT")} where CAT_GP_ID = '${j3.GetString("PE_PROID")}'"$)
|
|
B4XPages.MainPage.skmt.ExecNonQuery($"delete from pedido where pe_cedis= '${cedis}' and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = '${j3.GetString("PE_FOLIO")}' AND PE_PROID = '${j3.GetString("PE_PROID")}'"$)', Array As Object(cedis, c.GetString("PE_FOLIO")))
|
|
|
|
End If
|
|
Next
|
|
End If
|
|
j3.Close
|
|
|
|
B4XPage_Appear
|
|
|
|
Else
|
|
|
|
B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE ${tablaInv} SET CAT_GP_ALMACEN = CAT_GP_ALMACEN + ${cantRegresar} WHERE CAT_GP_ID = '${idProd}'"$)
|
|
|
|
' ' 2. REGISTRAR MOVIMIENTO PARA SINCRONIZACIÓN
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN, PROID, CANTIDAD) VALUES(?,?,?)", _
|
|
' Array As Object(cedis, idProd, cantRegresar * -1))
|
|
|
|
' 3. BORRADO QUIRÚRGICO (Usamos todos los criterios para no afectar otras presentaciones)
|
|
Dim qDelete As String = "DELETE FROM PEDIDO WHERE PE_PROID = ? AND PE_PRESENTACION = ? " & _
|
|
"AND PE_UVM = ? AND PE_CEDIS = ? " & _
|
|
"AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO = ?"
|
|
|
|
B4XPages.MainPage.skmt.ExecNonQuery2(qDelete, Array As Object(idProd, presName, uvmVal, cedis,folioActual))
|
|
|
|
LogColor("Borrado exitoso de Nota: " & nom & " (" & presName & ")", Colors.Blue)
|
|
|
|
' 4. REFRESCAR PANTALLA
|
|
B4XPage_Appear
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Sub b_desc_Click
|
|
If DESCUENTO = "MENOS" Then
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
sDate=DateTime.Date(DateTime.Now)
|
|
sTime=DateTime.Time(DateTime.Now)
|
|
c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
|
|
c.Position=0
|
|
clie_id = c.GetString("CUENTA")
|
|
c.Close
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
|
c.Position=0
|
|
usuario = c.GetString("USUARIO")
|
|
c.Close
|
|
result = Msgbox2("Seguro que desea dar descuento del 5%?","Dar descuento", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
|
If result = DialogResponse.POSITIVE Then
|
|
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE pedido SET PE_COSTO_TOT = PE_COSTO_TOT * .95, PE_DESC = 5 WHERE PE_CLIENTE In (select cuenta from cuentaa)")
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS 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)")
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
|
|
c.Close
|
|
B4XPage_Appear
|
|
End If
|
|
ELSE IF DESCUENTO = "MAS" Then
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
sDate=DateTime.Date(DateTime.Now)
|
|
sTime=DateTime.Time(DateTime.Now)
|
|
c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
|
|
c.Position=0
|
|
clie_id = c.GetString("CUENTA")
|
|
c.Close
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
|
c.Position=0
|
|
usuario = c.GetString("USUARIO")
|
|
c.Close
|
|
result = Msgbox2("Seguro que desea CANCELAR el descuento?","Cancelar descuento", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
|
If result = DialogResponse.POSITIVE Then
|
|
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE pedido SET PE_COSTO_TOT = PE_COSTO_TOT / .95, PE_DESC = 0 WHERE PE_CLIENTE In (select cuenta from cuentaa)")
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS 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)")
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
|
|
c.Close
|
|
B4XPage_Appear
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub p_nota_Click
|
|
|
|
End Sub |