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

2023-01-28 16:29:41 -07:00
parent fc994d9543 d2396eb112
commit 563ea013f3
17 changed files with 290 additions and 107 deletions
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -668,13 +668,18 @@
                                                <label for="<%= DdlClasificacion.ClientID.ToString()%>">Giro:</label>
                                            </div>

-                                            <div class="form-group form-md-line-input input-iconright col-md-6" id="Div1" runat="server">
+                                            <div class="form-group form-md-line-input input-iconright col-md-4" id="Div1" runat="server">

                                                <asp:DropDownList ID="DdlVendedor" runat="server" CssClass="form-control  select2me" Width="200px" DataTextField="Vendedor" DataValueField="CveVendedor"></asp:DropDownList>
                                                <asp:LinkButton ID="LnkAgregarVendedorSucursal" Visible="false" runat="server" data-toggle="tooltip" data-placement="right" title="Agregar vendedor por sucursal." CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar por Sucursal"></asp:LinkButton>
                                                <label for="<%= DdlVendedor.ClientID.ToString()%>">Vendedor:</label>

                                            </div>
+
+                                             <div class="form-group form-md-line-input input-iconright col-md-2" id="DVLnkCambiarVendedor" runat="server" visible="false">
+                                                 <asp:LinkButton runat="server" ID="LnkCambiarVendedor" CssClass="Texto" Text="Actualziar" OnClick="LnkCambiarVendedor_Click">Actualziar</asp:LinkButton>
+                                             </div>
+
                                        </div>
                                        <div class="form-group form-md-line-input input-iconright" id="Div2" runat="server">
                                            <asp:DropDownList ID="DdlCorporativo" runat="server" CssClass="form-control  select2me" Width="200px" DataTextField="Descripcion" DataValueField="CveClienteCorporativo"></asp:DropDownList>
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -644,6 +644,23 @@ Partial Class Clientes
            ViewState("AdjuntoDocumentacion") = value
        End Set
    End Property
+
+    Property CveVendedorOriginal As Integer
+        Get
+            If ViewState("CveVendedorOriginal") Is Nothing Then
+                ViewState("CveVendedorOriginal") = -1
+            End If
+
+            Return DirectCast(ViewState("CveVendedorOriginal"), Integer)
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveVendedorOriginal") = value
+        End Set
+    End Property
+
+
+
    'Private ReadOnly Property CvePersonal As Integer
    '    Get
    '        If ViewState("CvePersonal") Is Nothing Then
@@ -857,9 +874,15 @@ Partial Class Clientes
                    Tab.ActiveTabIndex = Request("ATI").ToEntero()
                End If
                'CargaCuentasyConceptos()
-            Else
-                'Configuración de Modalidad Insert
-                CargaEstados()
+
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                    DVLnkCambiarVendedor.Visible = True
+                End If
+
+
+            Else
+                    'Configuración de Modalidad Insert
+                    CargaEstados()
                BtnGuardar.Visible = PermiteGuardar()

                If UsuarioActual.Empresa.Funcionalidad(525) = "1" Then
@@ -1591,6 +1614,7 @@ Partial Class Clientes
                Else
                    DdlVendedor.SelectedValueExist(CveVendedor)
                End If
+                CveVendedorOriginal = CveVendedor

                'TxtVendedor.Text = ObjClientes.Vendedor
                TxtPlazoCobranza.Text = ObjClientes.PlazoCobranza.ToString()
@@ -10569,5 +10593,39 @@ Partial Class Clientes

    End Sub

+
+    Protected Sub LnkCambiarVendedor_Click(sender As Object, e As EventArgs)
+
+        If Not DdlVendedor.SelectedValue.ToEntero > 0 Then
+            Alert("Debe de seleccionar un Vendedor.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+
+        If CveVendedorOriginal = DdlVendedor.SelectedValue.ToEntero Then
+            Alert("Debe de seleccionar un vendedor distinto para actualizar.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim ObjVentas As New ClsVentas
+        Dim ErrorCambio As Boolean = False
+
+        If ObjVentas.CambioClientesVendedor(CveCliente, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            CveVendedorOriginal = DdlVendedor.SelectedValue.ToEntero
+        Else
+            ErrorCambio = True
+        End If
+
+        ObjVentas.Dispose()
+
+        If Not ErrorCambio Then
+            Alert("Vendedor Cambiado Correctamente.", TipoMensaje.MsgInformacion, $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}""")
+        End If
+
+
+
+
+    End Sub
+
 End Class

--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -13354,7 +13354,7 @@ Partial Class Ventas

                                    Else

-                                        Dim DrTamanio As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePSCargo={CvePSCargo}")
+                                        Dim DrTamanio As DataRow = ClsPaginas.GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePSCargo={CvePSCargo}")

                                        If DrTamanio IsNot Nothing Then
                                            'OBTIENE LOS IMPORTES ORIGINALES EN BASE A LO QUE HABIA EN EL MOVIMIENTO
@@ -29122,7 +29122,7 @@ Partial Class Ventas
                Dim CvePSCargo As Integer = RowUsado("CvePS").ToString().ToEntero()
                Dim Obs = ""
                'SI ES ACUMULADOR LAS OBSERVACIOENS DEBEN SER EL NOMBRE DEL ACUMULADOR
-                If GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
+                If ClsPaginas.GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
                    Obs = RowUsado("CodigoPS").ToString()
                Else
                    Obs = RowUsado("Obs").ToString()
@@ -29210,7 +29210,7 @@ Partial Class Ventas
                Dim CvePSCargo As Integer = RowUsado("CvePS").ToString().ToEntero()
                Dim Obs = ""
                'SI ES ACUMULADOR LAS OBSERVACIOENS DEBEN SER EL NOMBRE DEL ACUMULADOR
-                If GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
+                If ClsPaginas.GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
                    Obs = RowUsado("CodigoPS").ToString()
                End If
                'SI TIENE BCI EN LAS OBSERVACIONES AGREGARLO A LA FACTURA
@@ -29395,7 +29395,7 @@ Partial Class Ventas

                For Each RowCargo As DataRow In TmpDT.FiltraParametros("EsCargo = True", Orderby:="PU").Rows
                    Dim CantidadCargo = RowCargo("Cantidad").ToString().ToDecimal()
-                    Dim ImportePU As Decimal = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Bonificacion", $"CvePSCargo={RowCargo("CvePS")}").ToDecimal()
+                    Dim ImportePU As Decimal = ClsPaginas.GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Bonificacion", $"CvePSCargo={RowCargo("CvePS")}").ToDecimal()
                    Dim TotalCalculableImpuestosCargo As Decimal = (CantidadCargo * ImportePU)
                    Dim TotalCargo As Decimal = TotalCalculableImpuestosCargo + (TotalCalculableImpuestosCargo * RowCargo("PorcentajeIVA").ToString().ToDecimal).RoundSQL(2)

@@ -29492,7 +29492,7 @@ Partial Class Ventas
                Dim CvePSCargo As Integer = RowUsado("CvePS").ToString().ToEntero()
                Dim Obs = ""
                'SI ES ACUMULADOR LAS OBSERVACIOENS DEBEN SER EL NOMBRE DEL ACUMULADOR
-                If GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
+                If ClsPaginas.GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
                    Obs = RowUsado("CodigoPS").ToString()
                    'Else
                    '    Obs = RowUsado("Obs").ToString()
@@ -31337,7 +31337,7 @@ Partial Class Ventas
    Private Function CalculaUsadosCotizacion(ByRef SbVentasDetalle As StringBuilder, ByVal DTSeleccionadas As DataTable, ByVal DtCotizaciones As DataTable) As List(Of MVentaDetalleCotizacion)
        Dim Retorno As New List(Of MVentaDetalleCotizacion)

-        Dim DTTamanios As DataTable = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa)
+        Dim DTTamanios As DataTable = ClsPaginas.GlobalDTAcumTamaños(UsuarioActual.CveEmpresa)

        Dim DTCvePSCostos As DataTable = DTTamanios.FiltraParametros("", "", {"CvePSCargo"})

@@ -32930,7 +32930,7 @@ Partial Class Ventas
                Exit Sub
            End If

-            Dim DTTamanios As DataTable = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa)
+            Dim DTTamanios As DataTable = ClsPaginas.GlobalDTAcumTamaños(UsuarioActual.CveEmpresa)

            Dim DTCvePSCostos As DataTable
            DTCvePSCostos = DTTamanios.FiltraParametros("", "", {"CvePSCargo"})
@@ -33096,7 +33096,7 @@ Partial Class Ventas
            If ClienteEsDistribuidor AndAlso Not factura.EsGarantia Then
                For Each drow As DataRow In factura.DtDetalle.Rows
                    If drow("CveTamaño").ToString.ToEntero > 0 Then
-                        Dim DrTamanio As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CveTamaño={drow("CveTamaño").ToString.ToEntero}")
+                        Dim DrTamanio As DataRow = ClsPaginas.GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CveTamaño={drow("CveTamaño").ToString.ToEntero}")
                        If DrTamanio IsNot Nothing Then
                            Dim Cargo As Decimal = DrTamanio("Cargo").ToString().ToDecimal() * drow("Cantidad").ToString.ToDecimal()
                            Dim Bonificacion As Decimal = DrTamanio("Bonificacion").ToString().ToDecimal() * drow("Cantidad").ToString.ToDecimal()