cheveguerra/Marquez_Reparto
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Marquez_Reparto.git synced 2026-04-19 13:49:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

V 4.11.28

Browse Source
This commit is contained in:
cvaldes1201
2025-03-27 16:27:59 -06:00
parent c10e9e9e06
commit 854e3f8f3b
17 changed files with 3270 additions and 1605 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
B4A/Subs.bas
View File

@@ -613,6 +613,7 @@ End Sub
'Trae el precio del ID dado, desde CAT_GUNAPROD o HIST_VENTAS, dependiendo de si es promoción o no.
Sub traePrecio(id As String, quePromo As String) As String
Private pu As String = "0"
' Log(id & ", "& quePromo)
If quePromo = traeAlmacen Then
Private idc As Cursor = kmt.ExecQuery($"select CAT_GP_PRECIO from CAT_GUNAPROD where CAT_GP_ID = '${id}'"$)
If idc.RowCount > 0 Then
@@ -625,13 +626,46 @@ Sub traePrecio(id As String, quePromo As String) As String
Private pc As Cursor = Starter.skmt.ExecQuery($"select HVD_CANT, HVD_COSTO_TOT from HIST_VENTAS2 where HVD_CLIENTE in (select cuenta from cuentaa) and HVD_PROID = '${id}' and HVD_CODPROMO = '${quePromo}'"$)
If pc.RowCount > 0 Then
pc.Position = 0
' Log(pc.GetString("HVD_COSTO_TOT")&", "& pc.GetString("HVD_CANT"))
If pc.GetString("HVD_COSTO_TOT")<> Null And pc.GetString("HVD_CANT") <> Null Then
pu = pc.GetString("HVD_COSTO_TOT") / pc.GetString("HVD_CANT")
End If
End If
' Log("x cosa")
pc.Close
End If
' Log(pu)
Return pu
End Sub
'Trae el precio del ID dado, desde CAT_GUNAPROD o HIST_VENTAS, dependiendo de si es promoción o no.
Sub traePrecio2(id As String, quePromo As String, consecutivo As String) As String
Private pu As String = "0"
' Log(id & ", "& quePromo)
If quePromo = traeAlmacen Then
Private idc As Cursor = kmt.ExecQuery($"select CAT_GP_PRECIO from CAT_GUNAPROD where CAT_GP_ID = '${id}'"$)
If idc.RowCount > 0 Then
idc.Position=0
If idc.RowCount > 0 And IsNumber(idc.GetString("CAT_GP_PRECIO")) Then pu = idc.GetString("CAT_GP_PRECIO")
' Log("id=" & id & "|p=" & x & "|" & idc.GetString("CAT_GP_PRECIO"))
End If
idc.Close
Else 'Si es una promo, entonces sacamos el costo total del producto en la promo de HIST_VENTAS2 y lo dividimos entre la cantidad.
Private pc As Cursor = Starter.skmt.ExecQuery($"select HVD_CANT, HVD_COSTO_TOT from HIST_VENTAS where HVD_CLIENTE in (select cuenta from cuentaa) and HVD_PROID = '${id}' and HVD_CODPROMO = '${quePromo}' AND CONSECUTIVO = '${consecutivo}'"$)
If pc.RowCount > 0 Then
pc.Position = 0
' Log(pc.GetString("HVD_COSTO_TOT")&", "& pc.GetString("HVD_CANT"))
If pc.GetString("HVD_COSTO_TOT")<> Null And pc.GetString("HVD_CANT") <> Null Then
pu = pc.GetString("HVD_COSTO_TOT") / pc.GetString("HVD_CANT")
End If
End If
' Log("x cosa")
pc.Close
End If
' Log(pu)
Return pu
End Sub
'Trae el precio del ID dado, desde CAT_GUNAPROD o HIST_VENTAS, dependiendo de si es promoción o no Y CAJAS.
@@ -934,4 +968,40 @@ Sub traeAlmacen As String 'ignore
a = C.GetString("ID_ALMACEN")
c.Close
Return a
End Sub
Sub traeUsuario As String 'ignore
Private c As Cursor
Private a As String
c = Starter.skmt.ExecQuery("select USUARIO from USUARIOA")
c.Position = 0
a = C.GetString("USUARIO")
c.Close
Return a
End Sub
Sub traefECHAPREV As String 'ignore
Private c As Cursor
Private a As String
c = Starter.skmt.ExecQuery("select HVD_FECHA from HIST_VENTAS where HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
c.Position = 0
Dim fecha() As String = Regex.Split(" ", c.GetString("HVD_FECHA"))
Dim fecha2() As String = Regex.Split("-", fecha(0))
Dim fecha3 As String = fecha2(2)&"/"&fecha2(1)&"/"&fecha2(0)
Log(fecha3)
Dim hora() As String = Regex.Split("\.", fecha(1))
a = fecha3 & " " & hora(0)
c.Close
Return a
End Sub
Sub traerUTAPREV As String 'ignore
Private c As Cursor
Private a As String
c = Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
c.Position = 0
a = C.GetString("CAT_CL_RUTA")
c.Close
Return a
End Sub