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

2024-12-30 22:11:50 -07:00
parent 2193b065c5 40d7ef9dce
commit 45ea3f7b44
11 changed files with 225 additions and 80 deletions
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -102,7 +102,8 @@ Partial Class Ventas_PVCobranza
 #End Region

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not Page.IsPostBack Then
+        If Not Page.IsPostBack Then
+
            Dim Arr As New ArrayList
            'Arr.Add("autorizada")
            'If EnviarNotificacionWhatsApp("526621430964", "solicitud_autorizacion_anticipo_respuesta", Arr) Then
@@ -389,7 +390,24 @@ Partial Class Ventas_PVCobranza
                Else
                    e.Row.FCLinkButton("BtnPagar").CssClass = "btn btn-xs btn-danger"
                    ' e.Row.FCLinkButton("BtnPagar").Enabled = False
-                    e.Row.FCLinkButton("BtnPagar").OnClientClick = "alert('La solicitud de crédito no ha sido autorizada');return false;"
+                    'e.Row.FCLinkButton("BtnPagar").OnClientClick = "alert('La solicitud de crédito no ha sido autorizada');return false;"
+                    'e.Row.FCLinkButton("BtnPagar").OnClientClick = "bootbox.dialog({message: 'La solicitud de crédito no ha sido autorizada ', className: ' header-yellow ',  onEscape: function() {  },title: '<i class='fa fa-warning'></i> Advertencia',buttons: {  success: { label: '',  className: ' hide',callback: function() {     }  }, danger: { label: '', className: ' hide',callback: function() {   } },main: {  label: 'Aceptar', className: ' yellow',  callback: function() {    }  }  }  });return false;"
+                    'e.Row.FCLinkButton("BtnPagar") =
+                    e.Row.FCLinkButton("BtnPagar").Enabled = False
+                    e.Row.FCLinkButton("BtnPagar").OnClientClick =
+                        "bootbox.dialog({" &
+                            "message: 'La solicitud de crédito no ha sido autorizada ', " &
+                            "className: 'header-yellow', " &
+                            "onEscape: function() {}, " &
+                            "title: '<i class=""fa fa-warning""></i> Advertencia', " &
+                            "buttons: { " &
+                                "success: { label: '', className: 'hide', callback: function() {} }, " &
+                                "danger: { label: '', className: 'hide', callback: function() {} }, " &
+                                "main: { label: 'Aceptar', className: 'yellow', callback: function() {} } " &
+                            "} " &
+                        "});" &
+                        "return false;"
+
                End If
            End If

--- a/Ventas/PopUpBuscarFolio.aspx.vb
+++ b/Ventas/PopUpBuscarFolio.aspx.vb
@@ -175,7 +175,7 @@ Partial Class PopUpBuscarFolio
                Liga = String.Format("<a class='Texto' href='javascript:IrPV(""{0}"");'>", e.Row.DBCampo("CveVenta"))
            End If

-            e.Row.FCLiteral("LtlTipo").Text = String.Format("<div class='truncate' style='width:22px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("TipoDocto"))
+            e.Row.FCLiteral("LtlTipo").Text = String.Format("<div  style='width:22px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("TipoDocto"))
            e.Row.FCLiteral("LtlFolio").Text = String.Format("<div class='truncate' style='width:95px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Folio"))
            e.Row.FCLiteral("LtlFecha").Text = String.Format("<div class='truncate' style='width:64px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Fecha").ToDate.ToShortDateString)
            e.Row.FCLiteral("LtlNombre").Text = String.Format("<div class='truncate' style='width:200px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("NombreComercial"))
--- a/Ventas/Promociones.aspx
+++ b/Ventas/Promociones.aspx
@@ -142,6 +142,9 @@
                                        <asp:ListItem Value ="1">Descuento</asp:ListItem>
                                        <asp:ListItem Value ="2">PU</asp:ListItem>
                                    </asp:DropDownList>
+                                    <asp:RequiredFieldValidator ID="RfvDdlTipoAplicacion" runat="server" ControlToValidate="DdlTipoAplicacion" Display="None"  InitialValue="-1"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Aplicacion''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCERfvDdlTipoAplicacion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlTipoAplicacion" Width="300px"></ajax:ValidatorCalloutExtender>
                                </div>
                            
                                <label class="col-md-2 truncate">Marca:</label>
@@ -193,7 +196,7 @@
                            </div>
                            <div class="actions">
                                <div class="btn-group">
-                                    <asp:LinkButton ID="LbAgregarModal" OnClick="LbAgregarModal_Click" runat="server" data-toggle="tooltip" title="Agregar Producto/Servicio" AlternateText="Agregar Producto/Servicio" CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i>" />
+                                    <asp:LinkButton ID="LbAgregarModal" OnClick="LbAgregarModal_Click" runat="server" data-toggle="tooltip" title="Agregar Producto/Servicio" AlternateText="Agregar Producto/Servicio" CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar Producto" />
                                </div>
                            </div>
                        </div>
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -243,7 +243,7 @@ Partial Class Ventas_Promociones
        'CLASIFICACIONES
        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
        DdlClasificacion.DataBind()
-        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+        If EmpresaGrupoDiaz Then
            DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
        Else
            DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -536,11 +536,16 @@ Partial Class Ventas_Promociones
        End If

        ' validación de %minimo considerado 02580104V
-        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+        If EmpresaGrupoDiaz Then
            Dim tuc As Decimal = LblUltimoCosto.Text.ToDecimal
            Dim tpu As Decimal = TxtPromocionConcepto.Text.ToDecimal
            If tuc <= 0 OrElse (tpu - tuc) / tuc < UsuarioActual.Empresa.Funcionalidad(129).ToDecimal / 100 Then
-                Alert("El producto está debajo de la utilidad permitida, la promoción requerirá autorización.", TipoMensaje.MsgAdvertencia.ToastAdventencia)
+                If PermisoAutorizPromocionPorcentaje Then
+                    Alert("El producto está debajo de la utilidad permitida.", TipoMensaje.MsgAdvertencia.ToastAdventencia)
+                Else
+                    Alert("El producto está debajo de la utilidad permitida, la promoción requerirá autorización.", TipoMensaje.MsgAdvertencia.ToastAdventencia)
+                End If
+
            End If
        End If

@@ -714,7 +719,7 @@ Partial Class Ventas_Promociones
            Next
        End If

-        If BloqueadoPromocionPorcentaje AndAlso Bloquear Then
+        If (Not PermisoAutorizPromocionPorcentaje) AndAlso BloqueadoPromocionPorcentaje AndAlso Bloquear Then
            ChkEstatus.Checked = False
            ChkEstatus.Enabled = False
        End If
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -8233,7 +8233,7 @@
                                <div class="row">
                                    <asp:Panel ID="PnlValidaNombre" runat="server" DefaultButton="BtnValidaPorNombre">
                                        <div class="form-group form-md-line-input input-iconright col-xs-9">
-                                            <asp:TextBox ID="TxtRFCNombre" Style="text-transform: uppercase;" placeholder="Ingrese el RFC/Nombre para su validación" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
+                                            <asp:TextBox ID="TxtRFCNombre" Style="text-transform: uppercase;" placeholder="Ingrese el RFC/Nombre para su validación" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
                                            <label for="<%= TxtRFCNombre.ClientID.ToString()%>">RFC / Nombre:</label>
                                        </div>
                                        <div class="form-group form-md-line-input input-iconright col-xs-3" style="display:flex;">
@@ -8383,10 +8383,9 @@
                                <label for="<%= DdlMetodoCliente.ClientID.ToString()%>">Método Pago:</label>
                            </div>
                            <div class="form-group form-md-line-input input-iconright  col-xs-6">
-                                <asp:DropDownList ID="DdlFormaCliente" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="FormaPagoSAT" DataValueField="CveFormaPago" Width="100%">
-                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                <asp:DropDownList ID="DdlFormaCliente" CssClass=" form-control input-sm select2me" runat="server" CausesValidation="true" DataTextField="FormaPagoSAT" DataValueField="CveFormaPago" Width="100%">
                                </asp:DropDownList>
-                                <asp:RequiredFieldValidator ID="RequiredFieldValidator11" runat="server" ControlToValidate="DdlMetodoCliente" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Forma Pago''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                <asp:RequiredFieldValidator ID="RFVFormaCliente" runat="server" ControlToValidate="DdlFormaCliente" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Forma Pago''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
                                <label for="<%= DdlFormaCliente.ClientID.ToString()%>">Forma Pago: </label>
                                <i></i>
                            </div>
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -11,7 +11,6 @@ Imports ADSNetLibrary.SIGAPI.Models.CRM.Request
 Imports ADSNetLibrary.SIGAPI.Services.CRM
 Imports ADSTimbrado
 Imports Extensiones
-Imports Microsoft.Ajax.Utilities
 Imports Microsoft.Reporting.WebForms
 Imports Modelos
 Imports Newtonsoft.Json.Linq
@@ -25084,7 +25083,7 @@ Partial Class Ventas
        DivNombreCliente.Visible = False
        DivTipoPersona.Visible = False
        DivDireccionCliente.Visible = False
-
+        DVRegimenSociedad.Visible = False
        DivNumeroCPCliente.Visible = False
        'DivColoniaTelefonoCliente.Visible = False
        DivCiudadLocalidadCliente.Visible = False
@@ -25098,6 +25097,20 @@ Partial Class Ventas

        CargaEstados()

+        TxtNombreCliente.Text = ""
+        TxtRFCCliente.Text = ""
+        TxtRegimenSociedad.Text = ""
+        DdlEstadoSAT.SelectedValueExist("-1")
+        TxtCiudadCliente.Text = ""
+        TxtLocalidadCliente.Text = ""
+        TxtColoniaCliente.Text = ""
+        TxtCPCliente.Text = ""
+        TxtDireccionCliente.Text = ""
+        TxtNumExtCliente.Text = ""
+        TxtNumIntCliente.Text = ""
+        TxtCorreoCliente.Text = ""
+        TxtTelefonoCliente.Text = ""
+
        If UsuarioActual.CveEmpresa = 189 Then
            TxtRFCNombre.Text = ""

@@ -25150,7 +25163,16 @@ Partial Class Ventas
                DivValidaRFC.Visible = True
                DivValidaPorNombre.Visible = False
                DivBusquedaCliente.Visible = False
-                TxtRFCCliente.Text = TxtRFCNombre.Text
+
+                'VERIFICAR SI EL TEXTO DE ENTRADA ES UN NOMBRE O UN RFC
+                If TxtRFCNombre.Text.Length > 13 Then
+                    TxtNombreCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+                ElseIf EsRFC(TxtRFCNombre.Text.Trim()) Then
+                    TxtRFCCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+                Else
+                    TxtNombreCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+                End If
+
                BtnValidarRFC_Click(Nothing, EventArgs.Empty)
            End If
        End If
@@ -25183,7 +25205,8 @@ Partial Class Ventas

            RdTipoPersona.SelectedValue = "0"

-            DdlMetodoCliente.SelectedValueExist(1)
+            DdlMetodoCliente.SelectedValueExist("1")
+            DdlMetodoCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)

            'DdlFormaCliente.SelectedValueExist(1)

@@ -25233,7 +25256,7 @@ Partial Class Ventas

        End If

-        If UsuarioActual.CveEmpresa = 189 Then
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
            divGiro.Visible = True

            Dim DrSP As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimero("")
@@ -25250,6 +25273,32 @@ Partial Class Ventas

            End If

+            DdlMetodoCliente.SelectedValueExist(1)
+            DdlMetodoCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
+
+            'PERSONA MORAL
+            If TxtRFCCliente.Text.Trim().Length = 12 Then
+                RdTipoPersona.SelectedValue = "1"
+                RdTipoPersona_SelectedIndexChanged(Nothing, EventArgs.Empty)
+
+                DdlRegimenFiscalCliente.SelectedValueExist("1")
+                DdlRegimenFiscalCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
+                'PERSONA FISICA
+            Else
+                RdTipoPersona.SelectedValue = "0"
+                RdTipoPersona_SelectedIndexChanged(Nothing, EventArgs.Empty)
+
+                If TxtRFCCliente.Text.Trim() = "XAXX010101000" Then
+                    DdlRegimenFiscalCliente.SelectedValueExist("11")
+                Else
+                    DdlRegimenFiscalCliente.SelectedValueExist("9")
+                End If
+
+                DdlRegimenFiscalCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
+
+            End If
+
+            DdlUsoCFDICliente.SelectedValueExist("3")
        End If

    End Sub
@@ -26064,16 +26113,16 @@ Partial Class Ventas

            Dim RestringirAlmacenes As Integer = -1

-            Dim BuscarEnTabla As Boolean = True
-
-            Dim ObjInventarios As New ClsInventarios()
-            If ObjInventarios.GetExistenciasProducto(GvRow.DataKey("CvePS").ToEntero(), -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"),
-                                                     ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=-1,
-                                                     ExcluyeTransitorios:=1, RestringirAlmacenes:=RestringirAlmacenes, TopSelect:=100, BuscarEnTabla:=BuscarEnTabla) Then
-                GvVerExistencias.DataSource = ObjInventarios.DtResultados.Copy()
-            End If
-            ObjInventarios.Dispose()
-
+            Dim BuscarEnTabla As Boolean = True
+
+            Dim ObjInventarios As New ClsInventarios()
+            If ObjInventarios.GetExistenciasProducto(GvRow.DataKey("CvePS").ToEntero(), -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"),
+                                                     ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=-1,
+                                                     ExcluyeTransitorios:=1, RestringirAlmacenes:=RestringirAlmacenes, TopSelect:=100, BuscarEnTabla:=BuscarEnTabla) Then
+                GvVerExistencias.DataSource = ObjInventarios.DtResultados.Copy()
+            End If
+            ObjInventarios.Dispose()
+
            GvVerExistencias.DataBind()

            UpVerExistencias.Update()
@@ -38738,7 +38787,7 @@ Partial Class Ventas
    End Sub

    Private Sub DdlMetodoCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMetodoCliente.SelectedIndexChanged
-        DdlFormaCliente.Items.Clear()
+
        If DdlMetodoCliente.SelectedValue = "3" Then
            DdlFormaCliente.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
        Else
@@ -38746,6 +38795,10 @@ Partial Class Ventas
        End If
        DdlFormaCliente.DataBind()

+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            DdlFormaCliente.SelectedValueExist("1")
+        End If
+
    End Sub

    Private Sub AsignaMedicoProcedimientoFacturaRemisionesModal()
@@ -39863,18 +39916,18 @@ Partial Class Ventas
    End Function
    Protected Sub GvVerExistencias_RowDataBound(sender As Object, e As GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.DBCampo("CveAlmacen") = "" Then
-                e.Row.CssClass = "Totales"
+            If e.Row.DBCampo("CveAlmacen") = "" Then
+                e.Row.CssClass = "Totales"
            End If
        End If
    End Sub

-    Private Sub CargaGiro()
-        Dim Dt As DataTable = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa)
-        DdlGiro.DataSource = Dt
-        DdlGiro.DataBind()
-        DdlGiro.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        UpAgregarCliente.Update()
+    Private Sub CargaGiro()
+        Dim Dt As DataTable = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa)
+        DdlGiro.DataSource = Dt
+        DdlGiro.DataBind()
+        DdlGiro.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        UpAgregarCliente.Update()
    End Sub


@@ -40058,9 +40111,21 @@ Partial Class Ventas
        DivValidaRFC.Visible = True
        DivValidaPorNombre.Visible = False
        DivBusquedaCliente.Visible = False
-        TxtRFCCliente.Text = TxtRFCNombre.Text
+
+        'VERIFICAR SI EL TEXTO DE ENTRADA ES UN NOMBRE O UN RFC
+        If TxtRFCNombre.Text.Length > 13 Then
+            TxtNombreCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+        ElseIf EsRFC(TxtRFCNombre.Text.Trim()) Then
+            TxtRFCCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+        Else
+            TxtNombreCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+        End If

        BtnValidarRFC_Click(Nothing, EventArgs.Empty)
    End Sub
+
+    Private Function EsRFC(texto As String) As Boolean
+        Return Regex.IsMatch(texto, "^[a-zñA-ZÑ.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$")
+    End Function
 End Class