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

Ventas/Ventas.aspx.vb

@@ -9157,6 +9157,9 @@ Partial Class Ventas
         Cantidad = GvPS.Rows(e.RowIndex).FCTextBox("TxtCantidad").Text.ToDecimal
         PU = (GvPS.Rows(e.RowIndex).FCTextBox("TxtPrecio").Text.ToDecimal).RoundSQL(6)
 
+        Dim CantidadOriginal As Decimal = GvPS.Rows(e.RowIndex).DataKey("Cantidad").ToDecimal()
+        Dim TotalOriginal As Decimal = GvPS.Rows(e.RowIndex).DataKey("Total").ToDecimal()
+
         If Cantidad <= 0 Then
             Alert("La cantidad debe ser mayor a cero", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -9172,8 +9175,62 @@ Partial Class Ventas
             Exit Sub
         End If
 
-        If UsuarioActual.CveEmpresa = 140 OrElse DtPromociones IsNot Nothing AndAlso DtPromociones.Rows.Count > 0 Then
-            ObjDescuento = CalcularDescuentos(TmpDT.Rows(e.RowIndex)("CvePS").ToString().ToEntero(), Cantidad, PU)
+        Dim DdlUM As DropDownList = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida")
+        Dim DdlCla As DropDownList = GvPS.Rows(e.RowIndex).FCDropDownList("DdlClasificacion")
+        Dim DdlSP As DropDownList = GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto")
+
+        Dim DrProducto = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSNuevo).FiltroPrimero("")
+
+        Dim CveUMPS As Integer = DrProducto("CveUnidadMedida").ToString().ToEntero()
+        Dim CveClasificacion As Integer = DrProducto("CveClasificacion").ToString().ToEntero()
+
+        DdlUM.SelectedValueExist(CveUMPS)
+
+        Dim RecalcularPromociones As Boolean = False
+        Dim RegeneraPrecio As Boolean = False
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            RecalcularPromociones = True
+        End If
+
+        If DtPromociones IsNot Nothing AndAlso DtPromociones.Rows.Count > 0 Then
+            RecalcularPromociones = True
+        End If
+
+        If Not GvPS.Rows(e.RowIndex).FCTextBox("TxtPrecio").Enabled Then
+            If CvePSAnterior <> CvePSNuevo Then
+                RegeneraPrecio = True
+            End If
+
+            If Cantidad <> CantidadOriginal Then
+                RegeneraPrecio = True
+            End If
+
+            If RegeneraPrecio Then
+                Dim CvePrecioLista As Integer = -1
+
+                If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(360) = "1" Then
+                    CvePrecioLista = GvPS.Rows(e.RowIndex).FCDropDownList("DdlPrecioListaEdit").SelectedValue.ToEntero()
+                Else
+                    CvePrecioLista = GvPS.Rows(e.RowIndex).DataKey("CvePrecioLista").ToEntero()
+                End If
+
+                Dim ObjPrecioSugerido As Modelos.MPrecioSugerido = CalculaPrecioSugerido(CvePSNuevo, CveClasificacion, CvePrecioListaSugerido:=CvePrecioLista)
+
+                If ObjPrecioSugerido IsNot Nothing AndAlso ObjPrecioSugerido.PrecioSugerido > 0 Then
+                    PU = ObjPrecioSugerido.PrecioSugerido
+                End If
+
+            End If
+        End If
+
+        If RecalcularPromociones Then
+            ObjDescuento = CalcularDescuentos(CvePSNuevo, Cantidad, PU)
+            Dim RegenerarPU As Boolean = False
+
+            If ObjDescuento.EsPUModificado Then
+                PU = ObjDescuento.PU
+            End If
         End If
 
         'SI ESTA HABILITADO LA OPCION DE DESCUENTO, SE AGREGO UN DESCUENTO MANUAL Y NO TIENE PROMOCION
@@ -9187,19 +9244,6 @@ Partial Class Ventas
             Exit Sub
         End If
 
-        Dim DdlUM As DropDownList = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida")
-        Dim DdlCla As DropDownList = GvPS.Rows(e.RowIndex).FCDropDownList("DdlClasificacion")
-        Dim DdlSP As DropDownList = GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto")
-
-        Dim CantidadOriginal As Decimal = GvPS.Rows(e.RowIndex).DataKey("Cantidad").ToDecimal()
-        Dim TotalOriginal As Decimal = GvPS.Rows(e.RowIndex).DataKey("Total").ToDecimal()
-
-        Dim DrProducto = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSNuevo).FiltroPrimero("")
-
-        Dim CveUMPS As Integer = DrProducto("CveUnidadMedida").ToString().ToEntero()
-
-        DdlUM.SelectedValueExist(CveUMPS)
-
         If Not ValidaAgregarPS(Cantidad, CvePSNuevo, DdlUM.SelectedValue.ToEntero(), PU, DrProducto("CveTipoPS").ToString().ToEntero(), DdlCla.SelectedValue.ToEntero(), DdlSubProyectoDatos.SelectedValue.ToEntero(), ObjDescuento, CantidadOriginal:=CantidadOriginal) Then
             Exit Sub
         End If
@@ -9220,9 +9264,9 @@ Partial Class Ventas
             Dim ConsecutivoActual As Integer = TmpDT.Rows(e.RowIndex)("Consec").ToString().ToEntero()
             Dim OrdenOriginal As Integer = TmpDT.Rows(e.RowIndex)("Orden").ToString().ToEntero()
 
-            If DtPromociones IsNot Nothing AndAlso DtPromociones.Rows.Count > 0 Then
-                ObjDescuento = CalcularDescuentos(CvePSNuevo, Cantidad, PU)
-            End If
+            'If DtPromociones IsNot Nothing AndAlso DtPromociones.Rows.Count > 0 Then
+            '    ObjDescuento = CalcularDescuentos(CvePSNuevo, Cantidad, PU)
+            'End If
 
             Dim NumTurnos As Decimal = 0
             If UsuarioActual.CveEmpresa.Contiene(7, 122) Then
@@ -18333,7 +18377,7 @@ Partial Class Ventas
 
                 If EsVentaMedica Then
                     TxtPrecio.Enabled = False
-                    If UsuarioActual.CveUsuario = 3986 OrElse RBLTipoVenta.SelectedValue = "2" Then
+                    If UsuarioActual.CveUsuario = 3986 Or RBLTipoVenta.SelectedValue.ToEntero = 2 Then
                         TxtPrecio.Enabled = True
                     End If
 
@@ -18352,7 +18396,11 @@ Partial Class Ventas
                     End If
                 End If
 
-                If UsuarioActual.TienePermisoProceso(68) AndAlso Not drPS("SATClavePS").ToString.Contiene("84111506", "80141610") Then TxtPrecio.Enabled = False
+
+
+                Dim PSCodigoSAT As String = drPS("SATClavePS").ToString
+
+                If UsuarioActual.TienePermisoProceso(68) AndAlso Not PSCodigoSAT.Contiene("84111506", "80141610") Then TxtPrecio.Enabled = False
 
                 If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count = 0 AndAlso Not ChkEmitirComercioExterior.Checked Then
                     DdlMoneda.SelectedValueExist(drPS("CveMoneda").ToString())
@@ -19644,7 +19692,7 @@ Partial Class Ventas
                     objPS.Dispose()
                 End If
 
-                Dim ValidaExistencia As Boolean = (DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False) OrElse UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1
+                Dim ValidaExistencia As Boolean = (DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False) Or UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1
 
                 If CantidadOriginal > 0 Then
                     'SI NO HAY CAMBIOS EN LAS CANTIDADES, NO VALIDAR EXISTENCIA
@@ -23983,6 +24031,27 @@ Partial Class Ventas
 
         TxtAtencionA.Enabled = True
 
+        GvPS.Columns(21).Visible = True
+        thOrden.Visible = True
+
+        If GvPS.Columns(21).Visible Then
+            For Each GvRow As GridViewRow In GvPS.Rows
+                If GvRow.RowType = DataControlRowType.Header Then
+                    GvRow.FCLinkButton("LnkOrdenarGvPS").Visible = True
+                End If
+
+                If GvRow.RowType = DataControlRowType.DataRow Then
+                    GvRow.FCTextBox("TxtOrden").Visible = True
+
+                    If GvRow.FCTextBox("TxtOrden").ToEntero() <= 0 Then
+                        GvRow.FCTextBox("TxtOrden").Text = GvRow.DataKey("Consec")
+                    End If
+                End If
+            Next
+        End If
+
+        OrdenarPS(True)
+
         UpCliente.Update()
         UPPVentas.Update()
         UpPS.Update()
@@ -33157,6 +33226,27 @@ Partial Class Ventas
             imgCalendario.Visible = False
         End If
 
+        GvPS.Columns(21).Visible = True
+        thOrden.Visible = True
+
+        If GvPS.Columns(21).Visible Then
+            For Each GvRow As GridViewRow In GvPS.Rows
+                If GvRow.RowType = DataControlRowType.Header Then
+                    GvRow.FCLinkButton("LnkOrdenarGvPS").Visible = True
+                End If
+
+                If GvRow.RowType = DataControlRowType.DataRow Then
+                    GvRow.FCTextBox("TxtOrden").Visible = True
+
+                    If GvRow.FCTextBox("TxtOrden").ToEntero() <= 0 Then
+                        GvRow.FCTextBox("TxtOrden").Text = GvRow.DataKey("Consec")
+                    End If
+                End If
+            Next
+        End If
+
+        OrdenarPS(True)
+
         UpPS.Update()
         UPPDescuento.Update()
         UPObservaciones.Update()