cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-21 05:09:29 +00:00
Code Issues Packages Projects Releases Wiki Activity

encuestas, tickets, arreglo de carga día, preventa de V-ESPECIAL se hace venta

Browse Source 
4_01_18_2
This commit is contained in:
cvaldes1201
2024-01-18 16:37:42 -06:00
parent 745adb86ca
commit bb11a55157
7 changed files with 543 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
B4A/C_Productos.bas
View File

@@ -261,7 +261,7 @@ Sub B4XPage_Appear
End If
c.Close
If PERFIL = "V-COSTO" Then
skmt.ExecNonQuery("DELETE FROM CAT_GUNAPROD WHERE CAT_GP_ID IN (SELECT CAT_GP_ID FROM LISTA_PRECIOS WHERE NLISTA = '9' AND PRECIO = '0')")
Starter.skmt.ExecNonQuery("DELETE FROM CAT_GUNAPROD WHERE CAT_GP_ID IN (SELECT CAT_GP_ID FROM LISTA_PRECIOS WHERE NLISTA = '9' AND PRECIO = '0')")
End If
' Log("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from " & query & " where 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)")
@@ -348,7 +348,7 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object)
If c2.RowCount > 0 Then
For i=0 To c2.RowCount -1
c2.Position=i
Logcolor(c2.GetString("CAT_GP_ID"),Colors.Green)
LogColor(c2.GetString("CAT_GP_ID"),Colors.Green)
Private tm As Map = Subs.procesaPromocion(c2.GetString("CAT_GP_ID"), clienteId)
If tm.Get("status") = "ok" Then 'Solo muestrala si hay producto.
Log(c2.GetString("CAT_GP_NOMBRE"))
@@ -1150,10 +1150,10 @@ Private Sub l_prodX_LongClick
t.Position = 0
Private ventaT As String = t.GetString("cuantosProds")
If ventaT = Null Then ventaT = 0
If Starter.tipov = "PREVENTA" Then
ToastMessageShow("¡¡En preventa NO hay cambios!!", True)
Return
End If
' If Starter.tipov = "PREVENTA" Then
' ToastMessageShow("¡¡En preventa NO hay cambios!!", True)
' Return
' End If
If ventaT > 0 Then
t = Starter.skmt.ExecQuery($"select sum(PE_CANT) as totalRMI from pedido where PE_PROID = '${pId}' and PE_CEDIS = 'DUR' and PE_CLIENTE in (Select CUENTA from cuentaa)"$)
t.Position = 0
@@ -1497,20 +1497,55 @@ Sub traeListaPrecios (almacenX As String, rutaX As String, idX As String, perfil
Private listaPrecios As List
listaPrecios.Initialize
listaPrecios.Add("-= Seleccione Precio =-")
If almacenX = "6" And rutaX = "16" Then
' Log("POR ALMACEN Y RUTA")
' If almacenX = "6" And rutaX = "16" Then
'' Log("POR ALMACEN Y RUTA")
' Starter.hayListaPreciosAlt = True
' c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','10') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
' If c.RowCount > 0 Then
' For i = 0 To c.RowCount - 1
' c.Position = i
' listaPrecios.Add($"${c.GetString("NLISTA")} - ${c.GetString("PRECIO")}"$)
' Next
' End If
' Else
' If perfilX = "V-MINI" Then
'' Log($"POR PERFIL: V-ESPECIAL"$)
' Starter.hayListaPreciosAlt = True
' c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','2') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
'' Log(c.RowCount)
' If c.RowCount > 0 Then
' For i = 0 To c.RowCount - 1
' c.Position = i
' listaPrecios.Add($"${c.GetString("NLISTA")} - ${NumberFormat2(c.GetDouble("PRECIO"), 1, 2, 2, False)}"$)
' Next
' End If
' Else
If perfilX = "V-COSTO" Then
' Log($"POR PERFIL: V-ESPECIAL"$)
Starter.hayListaPreciosAlt = True
c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','10') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','9') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
' Log(c.RowCount)
If c.RowCount > 0 Then
For i = 0 To c.RowCount - 1
c.Position = i
listaPrecios.Add($"${c.GetString("NLISTA")} - ${c.GetString("PRECIO")}"$)
listaPrecios.Add($"${c.GetString("NLISTA")} - ${NumberFormat2(c.GetDouble("PRECIO"), 1, 2, 2, False)}"$)
Next
End If
ELSE IF perfilX = "V-SUPER" Then
' Log($"POR PERFIL: V-ESPECIAL"$)
Starter.hayListaPreciosAlt = True
c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','11') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
' Log(c.RowCount)
If c.RowCount > 0 Then
For i = 0 To c.RowCount - 1
c.Position = i
listaPrecios.Add($"${c.GetString("NLISTA")} - ${NumberFormat2(c.GetDouble("PRECIO"), 1, 2, 2, False)}"$)
Next
End If
ELSE IF perfilX = "V-ESPECIAL" Then
' Log($"POR PERFIL: V-ESPECIAL"$)
Starter.hayListaPreciosAlt = True
c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('5','6','7','8','10') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','5','6','7','8','10') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
' Log(c.RowCount)
If c.RowCount > 0 Then
For i = 0 To c.RowCount - 1