AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-11-27 22:26:02 -07:00
parent e061c5ae95 816622b06b
commit 66cedee067
26 changed files with 3112 additions and 541 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Ventas/Ventas.aspx.vb
View File

@@ -18584,7 +18584,7 @@ Partial Class Ventas
If CvePrecioListaPS > 0 Then
Dim ObjPS As New ClsProductosServicios
If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then
If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro, Opcion:=1) Then
PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal
PorcentajePrecio = ObjPS.DtResultados.FiltroPrimeroValor("Porcentaje").ToDecimal
End If
@@ -20599,7 +20599,7 @@ Partial Class Ventas
'Dim CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePrecioLista", $"CveCliente = {CveCliente}").ToEntero()
If CvePrecioLista > 0 Then
Dim ObjPS As New ClsProductosServicios
If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioLista, CvePS:=CvePSAdicional) Then
If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioLista, CvePS:=CvePSAdicional, Opcion:=1) Then
PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal
If PrecioSugerido = 0 Then
@@ -38125,7 +38125,7 @@ Partial Class Ventas
If CvePrecioListaPS > 0 Then
Dim ObjPS As New ClsProductosServicios
If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then
If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro, Opcion:=1) Then
PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal
PorcentajePrecio = ObjPS.DtResultados.FiltroPrimeroValor("Porcentaje").ToDecimal
End If
@@ -39278,12 +39278,12 @@ Partial Class Ventas
Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}")
If drr IsNot Nothing Then
If RBLTipoVenta.SelectedValue.Contiene("6") Then
If RBLTipoVenta.SelectedValue.Contiene("6") Then 'cuando es A-vista
tCveAlmacenExistencia = drr("CveAlmacenAlterno").ToString.ToEntero
ElseIf RBLTipoVenta.SelectedValue.Contiene("5") Then
ElseIf RBLTipoVenta.SelectedValue.Contiene("5") Then 'cuando es Consignación
tCveAlmacenExistencia = drr("CveAlmacenConsignacion").ToString.ToEntero
Else
tCveAlmacenExistencia = drr("CveAlmacenAsignado").ToString.ToEntero
tCveAlmacenExistencia = -1 'drr("CveAlmacenAsignado").ToString.ToEntero
End If
End If
Else
@@ -39294,7 +39294,7 @@ Partial Class Ventas
ElseIf RBLTipoVenta.SelectedValue.Contiene("5") Then 'cuando es Consignación
tCveAlmacenExistencia = drr("CveAlmacenConsignacion").ToString.ToEntero
Else
tCveAlmacenExistencia = drr("CveAlmacenAsignado").ToString.ToEntero '' cuando Fuera de Línea
tCveAlmacenExistencia = -1 ' drr("CveAlmacenAsignado").ToString.ToEntero '' cuando Fuera de Línea
End If
End If
End If