Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

2023-01-30 14:10:25 -07:00
parent ac83d42bf7 563ea013f3
commit 8cb609f6ea
13 changed files with 294 additions and 312 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/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -3083,7 +3083,7 @@ Partial Class ProductosyServicios
            End If

            If Agregar Then
-                If Not ObjPS.AddPS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, txtcodigo2.text.trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
+                If Not ObjPS.AddPS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtCodigo2.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
                           (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, DdlProveedor.txtValue.Value.ToEntero, True, ChkAplicaParaVenta.Checked, UsuarioActual.CveUsuario,
                           CveEmpresaFranquicia, CveMetodoInv, EsPaquete, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, FuePorXML:=False, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2,
                           CveMarca:=CveMarcaFranquicia, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,
@@ -3092,6 +3092,7 @@ Partial Class ProductosyServicios
                           PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal, CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
                           CveClasificacionDetalle:=CveTipo, CveTamaño:=DdlTamanio.SelectedValue.ToEntero, CveModelo:=CveModelo,
                           CveMedida:=CveMedida, CveRinTamaño:=CveRin, ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString,
+                            CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero,
                           ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString,
                           EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TxtTiempoCaducidad.Text.ToEntero()) > 0 Then
                    'Alert(String.Format("Error al agregar el nuevo producto en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")))
@@ -3102,7 +3103,7 @@ Partial Class ProductosyServicios

                If ObjPS.GetPS(-1, -1, CveEmpresaFranquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then
                    Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS", String.Format(" Codigo  = '{0}'", TxtCodigo.Text.Trim.ToUpper)).ToEntero()
-                    If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, txtcodigo2.text.trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
+                    If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtCodigo2.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
                                  (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, -1, True, ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv,
                                  EsPaquete, DdlSATPS.SelectedValue.ToEntero, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarcaFranquicia,
                                  AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,
@@ -3111,6 +3112,7 @@ Partial Class ProductosyServicios
                                  CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario,
                                  CveClasificacionDetalle:=CveTipo, CveTamaño:=DdlTamanio.SelectedValue.ToEntero, CveModelo:=CveModelo,
                                  CveMedida:=CveMedida, CveRinTamaño:=CveRin, ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString,
+                                  CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero,
                                  ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString,
                                  EsOutSourcing:=ChkEsOutSourcing.Checked, AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked,
                                  TiempoCaducidad:=TxtTiempoCaducidad.Text.ToEntero()) Then