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

-- sms. almacenes fuera linea

Browse Source 
-- parametro adicional para lista de precios, solo de un producto. para optimizar
This commit is contained in:
rrene
2024-11-26 20:03:52 -07:00
parent feca59b177
commit 279f9255b6
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Ventas/Ventas.aspx.vb
View File

@@ -18573,7 +18573,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
@@ -20588,7 +20588,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
@@ -38114,7 +38114,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
@@ -39267,12 +39267,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
@@ -39283,7 +39283,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