.

2021-01-13 15:23:32 -07:00
parent 99189cee7c 627acdd784
commit 25c2358013
15 changed files with 627 additions and 206 deletions
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -577,10 +577,10 @@
                                            <asp:TextBox ID="TxtPagina" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
                                            <label for="<%= TxtPagina.ClientID.ToString()%>">Página: </label>
                                        </div>
-                                        <div class="form-group form-md-line-input">
+                                        <%--<div class="form-group form-md-line-input">
                                            <asp:TextBox ID="TxtGiro" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
                                            <label for="<%= TxtGiro.ClientID.ToString()%>">Giro:</label>
-                                        </div>
+                                        </div>--%>
                                        <div class="form-group form-md-line-input input-iconright">
                                            <asp:TextBox ID="TxtNotificar" CssClass="form-control" runat="server" MaxLength="300"></asp:TextBox>
                                            <asp:RegularExpressionValidator ID="REVEnotificar" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtNotificar" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Notificar A''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
@@ -607,7 +607,7 @@
                                        <div class="form-group form-md-line-input input-iconright" id="DivPortletAsignaciones" runat="server">
                                            <asp:DropDownList ID="DdlClasificacion" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" Width="150px" runat="server" CssClass="form-control  select2me">
                                            </asp:DropDownList>
-                                            <label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación:</label>
+                                            <label for="<%= DdlClasificacion.ClientID.ToString()%>">Giro:</label>
                                        </div>

                                        <div class="form-group form-md-line-input input-iconright" id="Div1" runat="server">
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1465,7 +1465,7 @@ Partial Class Clientes
                TxtEmailCotizacion.Text = ObjClientes.MailCotizacion
                TxtNotificar.Text = ObjClientes.NotificarA
                TxtPagina.Text = ObjClientes.Pagina
-                TxtGiro.Text = ObjClientes.Giro
+                'TxtGiro.Text = ObjClientes.Giro
                DdlPrecioLista.SelectedValue = ObjClientes.CvePrecioLista.ToString
                TxtCC.Text = ObjClientes.NotificarA
                ChkMail.Checked = ObjClientes.EnviarFactura
@@ -2520,11 +2520,11 @@ Partial Class Clientes
                MetodoPago = 1
            End If

-
+            Dim Giro As String = If(DdlClasificacion.SelectedValue.ToEntero() <> -1, DdlClasificacion.SelectedItem.Text, "")


            If ObjClientes.AddCliente(TxtNombre.Text.Trim, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, DdlEstadoSAT.SelectedItem.Text.Trim, DdlSATPais.SelectedItem.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim, TxtTelefono.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
-                                    TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text.Trim, TxtGiro.Text.Trim, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble,
+                                    TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text.Trim, Giro, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble,
                                    TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero, TxtPlazoCobranza.Text.Trim.ToEntero, TxtPlazoCobranzaRemision.Text.Trim.ToEntero,
                                    DiasPago, DdlTipoPago.SelectedValue, DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero,
                                    DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero,
@@ -2617,9 +2617,9 @@ Partial Class Clientes
            Else
                NombreCliente = TxtNombre.Text.Trim()
            End If
-
+            Dim Giro As String = If(DdlClasificacion.SelectedValue.ToEntero() <> -1, DdlClasificacion.SelectedItem.Text, "")
            If ObjClientes.UpdateCliente(NombreCliente, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, DdlEstadoSAT.SelectedItem.Text.Trim, DdlSATPais.SelectedItem.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim,
-                                        TxtTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text, TxtGiro.Text, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked,
+                                        TxtTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text, Giro, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked,
                                        ChkEstado.Checked, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero, TxtPlazoCobranza.Text.Trim.ToEntero, TxtPlazoCobranzaRemision.Text.Trim.ToEntero, DiasPago, DdlTipoPago.SelectedValue,
                                        DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero, DdlCtaContableAnticipos.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero,
                                        DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableCompClientes.SelectedValue.ToEntero, DdlCtaContableCompClientes.SelectedItem.Text, DdlCtaContableCompAnticipos.SelectedValue.ToEntero, DdlCtaContableCompAnticipos.SelectedItem.Text,
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3981,7 +3981,7 @@ Partial Class Ventas

                    Dim TipoEstatus As Integer = GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {CveEstatus}").ToEntero()

-                    If UsuarioActual.Empresa.Funcionalidad(135) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso TipoEstatus = 5 Then
+                    If UsuarioActual.Empresa.Funcionalidad(135).Contiene("1", "2") AndAlso DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso TipoEstatus = 5 Then
                        If UsuarioActual.TienePermisoProceso(159) Then
                            Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto")))
                            If TienePermiso <> "" Then
@@ -4087,7 +4087,7 @@ Partial Class Ventas
                            End If


-
+                            'SI LA AUTORIZACION ES POR SUPERVISOR, BUSCA EL SUPERVISOR QUE TIENE EL VENDEDOR
                            If UsuarioActual.Empresa.Funcionalidad(135) = "1" Then
                                'Reviso cuales son los supervisores
                                Dim Objeto As New ClsVtaVendedores
@@ -4104,7 +4104,7 @@ Partial Class Ventas

                                        If TipoEstatus = 2 Then
                                            LkCotizacionAutorizar.Visible = False
-                                        ElseIf TipoEstatus = 2 Then
+                                        ElseIf TipoEstatus = 5 Then
                                            LkCotizacionAutorizar.Visible = False
                                        End If
                                    End If
@@ -4113,8 +4113,18 @@ Partial Class Ventas
                                Objeto.Dispose()
                            End If

-                            String.Format("CveVendedor = {0}", DbRowVenta("CveVendedor").ToString())
-
+                            'SI LA AUTORIZACION ES POR PERMISO, BUSCA QUE EL USUARIO TENGA EL PERMISO PARA AUTORIZAR
+                            If UsuarioActual.Empresa.Funcionalidad(135) = "2" Then
+                                'Reviso cuales son los supervisores
+                                If UsuarioActual.TienePermisoProceso(116) Then
+                                    LkCotizacionAutorizar.Visible = True
+                                    If TipoEstatus = 2 Then
+                                        LkCotizacionAutorizar.Visible = False
+                                    ElseIf TipoEstatus = 5 Then
+                                        LkCotizacionAutorizar.Visible = False
+                                    End If
+                                End If
+                            End If

                        Case "Ant"
                            Trsaldo.Visible = True
@@ -4872,30 +4882,47 @@ Partial Class Ventas


                'Verifico si tiene la funcionalidad (135)
-                If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(135) = "1" Then
-                    'Reviso cuales son los supervisores
-                    Dim ObjVendedores As New ClsVtaVendedores
+                If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(135).Contiene("1", "2") Then

-                    If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
-                        Dim DTVendedores As New DataTable
-                        If DbRowVenta("CveVendedor").ToString().ToEntero() > 0 AndAlso UsuarioActual.CveVendedor > 0 Then
-                            DTVendedores = ObjVendedores.DtResultados.FiltraParametros(String.Format("CveVendedor = {0}", DbRowVenta("CveVendedor").ToString())).FiltraParametros(String.Format("CveSupervisor = {0}", UsuarioActual.CveVendedor))
-                        End If
+                    Select Case UsuarioActual.Empresa.Funcionalidad(135)
+                        Case "1" ' POR SUPERVISOR
+                            Dim ObjVendedores As New ClsVtaVendedores

-                        'Verifico si es su supervisor asignado
-                        If DTVendedores.Rows.Count > 0 Then
-                            If GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() = 2 Then
-                                BtnsFacturar.Visible = True
-                                BtnGenerarRemision.Visible = True
-                            Else
-                                BtnsFacturar.Visible = False
-                                BtnGenerarRemision.Visible = False
+                            If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
+                                Dim DTVendedores As New DataTable
+                                If DbRowVenta("CveVendedor").ToString().ToEntero() > 0 AndAlso UsuarioActual.CveVendedor > 0 Then
+                                    DTVendedores = ObjVendedores.DtResultados.FiltraParametros(String.Format("CveVendedor = {0}", DbRowVenta("CveVendedor").ToString())).FiltraParametros(String.Format("CveSupervisor = {0}", UsuarioActual.CveVendedor))
+                                End If
+
+                                'Verifico si es su supervisor asignado
+                                If DTVendedores.Rows.Count > 0 Then
+                                    If GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() = 2 Then
+                                        BtnsFacturar.Visible = True
+                                        BtnGenerarRemision.Visible = True
+                                    Else
+                                        BtnsFacturar.Visible = False
+                                        BtnGenerarRemision.Visible = False
+                                    End If
+                                End If
+
+                                DTVendedores.Dispose()
                            End If
-                        End If
+                            ObjVendedores.Dispose()
+
+                        Case "2" ' POR PERMISO
+                            If UsuarioActual.TienePermisoProceso(116) Then
+                                If GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() = 2 Then
+                                    BtnsFacturar.Visible = True
+                                    BtnGenerarRemision.Visible = True
+                                Else
+                                    BtnsFacturar.Visible = False
+                                    BtnGenerarRemision.Visible = False
+                                End If
+                            End If
+
+                    End Select
+

-                        DTVendedores.Dispose()
-                    End If
-                    ObjVendedores.Dispose()
                End If

                If DdlTipoComprobante.SelectedValue = "Cot" Then
@@ -10132,6 +10159,8 @@ Partial Class Ventas
                End If
            End If

+            tPS = tPS.Replace("|", " ")
+
            If tPS.Length >= 1000 Then
                Dim tPSRecortado = tPS.Remove(999, tPS.Length - 999)
                tPS = tPSRecortado
@@ -15479,7 +15508,7 @@ Partial Class Ventas
        TrAlmacenAsignado.Visible = False
        TrAlmacenOrigen.Visible = False

-        If DdlTipoComprobante.SelectedValue = "Cot" And UsuarioActual.Empresa.Funcionalidad(135) = "1" Then
+        If DdlTipoComprobante.SelectedValue = "Cot" And UsuarioActual.Empresa.Funcionalidad(135).Contiene("1", "2") Then
            Alert("Se ocupa una autorización.", TipoMensaje.MsgAdvertencia)
            TrDireccion.Visible = False
            TrCiudad.Visible = False
@@ -21211,8 +21240,14 @@ Partial Class Ventas
        ObjVentas.Dispose()

        If ActualizoEstatus Then
-            'GeneraPDFCotizacion(True)
-            Alert("La cotización ha sido enviada al correo de nuestro cliente:" & Mail)
+
+            If UsuarioActual.Empresa.Funcionalidad(135) = "1" Then
+                GeneraPDFCotizacion(True)
+                Alert("La cotización ha sido enviada al correo de nuestro cliente:" & Mail)
+            ElseIf UsuarioActual.Empresa.Funcionalidad(135) = "2" Then
+                Alert("La cotización ha sido autorizada.")
+            End If
+
        Else
            Alert("No se pudo autorizar la cotización", TipoMensaje.MsgError)
        End If