cambios global

- permiso inv fisico - oc, recarga global ps - actualiza precio,s que considere funcionalidad de listas de precio
2020-01-03 12:30:08 -07:00
parent b7abe00c84
commit 9dfb2de7df
11 changed files with 158 additions and 94 deletions
--- a/Ventas/ActualizarPrecios.aspx.vb
+++ b/Ventas/ActualizarPrecios.aspx.vb
@@ -75,31 +75,30 @@ Partial Class Ventas_ActualizarPrecios

    Public Sub CargaPreciosLista()

-        DdlPrecioLista.ITEMS.Clear
-        Dim ObjVta As New ClsVentas
-        Dim primerItem As String = ""
-        If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then
-            DdlPrecioLista.DataSource = ObjVta.DtResultados.Copy()
-            DdlPrecioListaCarga.DataSource = ObjVta.DtResultados.Copy()
-            primerItem = ObjVta.DtResultados.FiltroPrimeroValor("CvePrecioLista")
-        End If
-        ObjVta.Dispose()
+        DdlPrecioLista.Items.Clear()
+
+        If UsuarioActual.Empresa.Funcionalidad(404).ToString = "1" Then 'si manneja precios de lista
+            Dim ObjVta As New ClsVentas
+            Dim primerItem As String = ""
+            If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then
+                DdlPrecioLista.DataSource = ObjVta.DtResultados.Copy()
+                DdlPrecioListaCarga.DataSource = ObjVta.DtResultados.Copy()
+                primerItem = ObjVta.DtResultados.FiltroPrimeroValor("CvePrecioLista")
+            End If
+            ObjVta.Dispose()


-        DdlPrecioLista.DataBind()
-        DdlPrecioListaCarga.DataBind()
+            DdlPrecioLista.DataBind()
+            DdlPrecioListaCarga.DataBind()

-        If (DdlPrecioLista.Items.Count = 1) Then
-            DdlPrecioLista.Items.FindByValue(primerItem).Selected = True
-        End If
-
-        DdlPrecioLista.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        If UsuarioActual.CveEmpresa.Contiene(1, 140) Then
+            If (DdlPrecioLista.Items.Count = 1) Then
+                DdlPrecioLista.Items.FindByValue(primerItem).Selected = True
+            End If
+        Else
            DdlPrecioLista.Items.Insert(0, New ListItem("Sin Precio Lista", "-2"))
-            DdlPrecioListaCarga.Items.Insert(0, New ListItem("Sin Precio Lista", "-2"))
+            DdlPrecioListaCarga.Items.Insert(0, New ListItem("Sin Precio Lista", "-2"))
        End If
-
-
+
    End Sub

    Public Sub CargaPS()
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -5965,7 +5965,7 @@
    </div>
    <%--APLICAR REMISIONES DE NC--%>
    <div id="ModalAplicarRemisionesNC" class="modal ADS fade" role="dialog">
-        <asp:UpdatePanel ID="UpModalRemisionesNC" class="modal-dialog rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+        <asp:UpdatePanel ID="UpModalRemisionesNC" class="modal-dialog rowpadding modal-lg" tabindex="-1" runat="server" UpdateMode="Conditional">
            <ContentTemplate>
                <div class="modal-content">
                    <div class="modal-header">
@@ -5988,6 +5988,7 @@
                                            </ItemTemplate>
                                        </asp:TemplateField>
                                        <asp:HyperLinkField DataNavigateUrlFields="CveVenta" Target="_blank" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataTextField="Folio" HeaderText="Folio" ItemStyle-Width="150px" ItemStyle-HorizontalAlign="Left" />
+                                        <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" />
                                        <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
                                        <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
                                            <ItemTemplate>
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5840,9 +5840,9 @@ Partial Class Ventas
                    If Not EsValido Then
                        MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio menor de su Costo <br/>", DatarowPS("PS").ToString)
                        If TienePermisoImportes Then
-                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0}</b> <br/>", Costo)
-                            MensajeCosto.AppendFormat("El rango menor aceptado es: {0}% <b>${1}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero, CostoMenor)
-                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
+                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0:#,###.00}</b> <br/>", Costo)
+                            MensajeCosto.AppendFormat("El rango menor aceptado es: {0:#,###.00}% <b>${1}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero, CostoMenor)
+                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0:#,###.00}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
                        End If


@@ -5855,9 +5855,9 @@ Partial Class Ventas
                    If Not EsValidoMayor Then
                        MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio mayor de su rango aceptado<br/>", HdnPS.Value)
                        If TienePermisoImportes Then
-                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0}</b> <br/>", Costo)
-                            MensajeCosto.AppendFormat("El rango mayor aceptado es: {0}% <b>${1}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero, CostoMayor)
-                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
+                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0:#,###.00}</b> <br/>", Costo)
+                            MensajeCosto.AppendFormat("El rango mayor aceptado es: {0}% <b>${1:#,###.00}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero, CostoMayor)
+                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0:#,###.00}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
                        End If
                        Alert(MensajeCosto.ToString, TipoMensaje.MsgAdvertencia)
                        e.Cancel = True
@@ -6422,18 +6422,18 @@ Partial Class Ventas

                        MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio menor de su Costo ni a un precio mayor de su rango aceptado<br/>", dr("PS").ToString)
                        If TienePermisoImportes Then
-                            MensajeCosto.AppendFormat("El costo del producto es: <b>{0}$</b> <br/>", Costo)
-                            MensajeCosto.AppendFormat("El rango menor aceptado es: {0} <b>{1}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero, CostoMenor)
-                            MensajeCosto.AppendFormat("El precio indicado es: <b>{0}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
+                            MensajeCosto.AppendFormat("El costo del producto es: <b>{0:#,###.00}$</b> <br/>", Costo)
+                            MensajeCosto.AppendFormat("El rango menor aceptado es: {0} <b>{1:#,###.00}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero, CostoMenor)
+                            MensajeCosto.AppendFormat("El precio indicado es: <b>{0:#,###.00}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
                        End If
                    End If

                    If Not EsValidoMayor Then
                        MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio mayor de su rango aceptado<br/>", dr("PS").ToString)
                        If TienePermisoImportes Then
-                            MensajeCosto.AppendFormat("El costo del producto es: <b>{0}$</b> <br/>", Costo)
-                            MensajeCosto.AppendFormat("El rango mayor aceptado es: {0} <b>{1}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero, CostoMayor)
-                            MensajeCosto.AppendFormat("El precio indicado es: <b>{0}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
+                            MensajeCosto.AppendFormat("El costo del producto es: <b>{0:#,###.00}$</b> <br/>", Costo)
+                            MensajeCosto.AppendFormat("El rango mayor aceptado es: {0} <b>{1:#,###.00}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero, CostoMayor)
+                            MensajeCosto.AppendFormat("El precio indicado es: <b>{0:#,###.00}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
                        End If
                    End If

@@ -13065,7 +13065,7 @@ Partial Class Ventas

                    Dim PorcentajePrecio As Double = 0
                    If PrecioSugerido = 0 Then
-                        CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePrecioLista", $"CveCliente = {CveCliente}").ToEntero
+                        CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero
                        If CvePrecioListaPS > 0 Then
                            Dim ObjPS As New ClsProductosServicios
                            If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then
@@ -13089,13 +13089,16 @@ Partial Class Ventas

                End If

-                Dim PrecioBaseCosto As Decimal = 0
-                Dim ObjClasificaciones As New ClsClasificaciones
-                If ObjClasificaciones.GetClasificaciones() Then
-                    PrecioBaseCosto = ObjClasificaciones.DtResultados.FiltroPrimeroValor("PrecioBaseCosto", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveClasificacion = {drPS("CveClasificacion")}").ToDecimal
-                End If
+
+                'Dim ObjClasificaciones As New ClsClasificaciones
+                'If ObjClasificaciones.GetClasificaciones() Then
+                '    PrecioBaseCosto = ObjClasificaciones.DtResultados.FiltroPrimeroValor("PrecioBaseCosto", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveClasificacion = {drPS("CveClasificacion")}").ToDecimal
+                'End If

                If PrecioSugerido > 0 Then
+                    Dim PrecioBaseCosto As Decimal = 0
+                    PrecioBaseCosto = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=drPS("CveClasificacion").ToString.ToEntero).FiltroPrimeroValor("PrecioBaseCosto", "").ToDecimal
+
                    If PrecioBaseCosto > 0 Then
                        PrecioSugerido = PrecioSugerido * ((PrecioBaseCosto / 100) + 1)
                    End If
@@ -13733,11 +13736,11 @@ Partial Class Ventas
                    Dim MensajeCosto As New StringBuilder
                    Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
                    If Not EsValido Then
-                        MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio menor de su Costo <br/>", HdnPS.Value)
+                        MensajeCosto.AppendFormat("El Producto <b>{0}-{1}</b>. No se puede vender a un precio menor de su Costo <br/>", HdnCodigoPS.Value, HdnPS.Value)
                        If TienePermisoImportes Then
-                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0}</b> <br/>", Costo)
-                            MensajeCosto.AppendFormat("El rango menor aceptado es: {0}% <b>${1}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero, CostoMenor)
-                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
+                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0:#,###.00}</b> <br/>", Costo)
+                            MensajeCosto.AppendFormat("El rango menor aceptado es: {0}% <b>${1:#,###.00}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero, CostoMenor)
+                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0:#,###.00}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
                        End If

                        Alert(String.Format(MensajeCosto.ToString), TipoMensaje.MsgAdvertencia)
@@ -13748,9 +13751,9 @@ Partial Class Ventas
                    If Not EsValidoMayor Then
                        MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio mayor de su rango aceptado<br/>", HdnPS.Value)
                        If TienePermisoImportes Then
-                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0}</b> <br/>", Costo)
-                            MensajeCosto.AppendFormat("El rango mayor aceptado es: {0}% <b>${1}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero, CostoMayor)
-                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
+                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0:#,###.00}</b> <br/>", Costo)
+                            MensajeCosto.AppendFormat("El rango mayor aceptado es: {0}% <b>${1:#,###.00}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero, CostoMayor)
+                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0:#,###.00}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
                        End If
                        Alert(MensajeCosto.ToString, TipoMensaje.MsgAdvertencia)
                        Return False