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

2024-12-31 09:09:08 -07:00
parent ba51d47522 0a260d42bc
commit 15a7001e19
8 changed files with 854 additions and 76 deletions
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -5154,12 +5154,20 @@ Public Class ClsPaginas
    ''' <param name="NombreArchivo">Opcional Nombre del archivo que se descarga</param>
    ''' <param name="Formato">Optional, Formato de Generacion PDF o Excel</param>
    ''' <remarks></remarks>
-    Public Sub ImprimirPDF(RutaReporte As String, DtDatos As DataTable, Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional RDSName As String = "DataSet1", Optional MR As ReportViewer = Nothing, Optional Content_Disposition As String = "attachment")
+    Public Sub ImprimirPDF(RutaReporte As String, DtDatos As DataTable, Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional RDSName As String = "DataSet1", Optional MR As ReportViewer = Nothing, Optional Content_Disposition As String = "attachment", Optional DtDatos2 As DataTable = Nothing, Optional RDSName2 As String = "DataSet2")
        Dim lrds As New List(Of ReportDataSource)
        Dim rds As New ReportDataSource
        rds.Name = RDSName
        rds.Value = DtDatos
        lrds.Add(rds)
+
+        If DtDatos2 IsNot Nothing Then
+            Dim rds2 As New ReportDataSource
+            rds2.Name = RDSName2
+            rds2.Value = DtDatos2
+            lrds.Add(rds2)
+        End If
+
        ImprimirPDF(RutaReporte, lrds, Parametros, NombreArchivo, Formato, MR, Content_Disposition)
    End Sub
    Public Sub ImprimirPDFStimul(RutaReporte As String, DtDatos As DataTable, Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional RDSName As String = "Datos", Optional Content_Disposition As String = "attachment")
--- a/Bancos/CuentasBancarias.aspx
+++ b/Bancos/CuentasBancarias.aspx
@@ -24,9 +24,16 @@
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+
+      <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
+    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+    </div>
+    
    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta" EmptyDataText="No se encontraron Números de Cuentas Registrados" ToolTip="Listado de Números de Cuentas" CssClass="table table-striped table-advance table-hover" Style="text-align: center;" GridLines="None" Width="100%">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta" EmptyDataText="No se encontraron Números de Cuentas Registrados" ToolTip="Listado de Números de Cuentas" 
+                CssClass="table table-striped table-advance table-hover ScrollAD" Style="text-align: center;" GridLines="None" Width="100%">
                <Columns>
                    <asp:HyperLinkField DataTextField="TipoCuenta" HeaderText="Tipo Cuenta" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataNavigateUrlFormatString="/Bancos/CuentasBancariasDetalle.aspx?CveCuenta={0}" DataNavigateUrlFields="CveCuenta" Target="_blank" />
                    <asp:TemplateField ItemStyle-HorizontalAlign="Left">
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -14891,7 +14891,7 @@ Partial Class Compras_Compras
                End If
            Next
            If TextoErrorOC <> "" Then
-                Alert($"Las siguientes Ordenes de Compra no se pudieron vincular automaticamente: <br/>{TextoErrorOC} <br/><br/> Sera necesario vincular de manera manual mediante busqueda (lupia).", TipoMensaje.MsgAdvertencia)
+                Alert($"Las siguientes Ordenes de Compra no se pudieron vincular automaticamente: <br/>{TextoErrorOC} <br/><br/> Sera necesario vincular de manera manual mediante busqueda (lupita).", TipoMensaje.MsgAdvertencia)
                TxtOC.Text = ""
                Exit Sub
            End If
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -30,6 +30,17 @@ Partial Class PopUpVerFactura
            ViewState("DtDetalle") = value
        End Set
    End Property
+
+    Public Property DTPrePoliza() As DataTable
+        Get
+            Return DirectCast(IfNull(ViewState("DTPrePoliza"), New DataTable, ViewState("DTPrePoliza")), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTPrePoliza") = value
+        End Set
+    End Property
+
+
    Public Property Opcion As String
        Get
            Return CType(ViewState("Opcion"), String)
@@ -2776,6 +2787,7 @@ Partial Class PopUpVerFactura
        Dim ResponsableCarga As String = ObjInventarios.ResponsableCarga
        Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio
        Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo")
+        Dim CvePrePoliza As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero


        Dim Ruta As String = ""
@@ -2921,6 +2933,18 @@ Partial Class PopUpVerFactura
                    keys(0) = DtMovimientos.Columns("No")
                    DtMovimientos.PrimaryKey = keys
                End If
+
+
+                If CvePrePoliza > 0 Then
+                    Dim objConta As New ClsContabilidad
+                    If objConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso objConta.DtResultados.Rows.Count > 0 Then
+                        'DtDetalle = objConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
+                        DTPrePoliza = objConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
+                    End If
+
+                    objConta.Dispose()
+                End If
+
            End If
        End If

@@ -3080,13 +3104,16 @@ Partial Class PopUpVerFactura

                        params.Add(New ReportParameter("Observaciones", Observaciones))

+
+
                        If UsuarioActual.CveEmpresa.Contiene(186, 189, 193, 189) Then
                            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
                            params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
+                        Else
+                            DTPrePoliza = Nothing
                        End If

-
-                        If UsuarioActual.CveEmpresa.Contiene(72, 80, 193) Then
+                        If UsuarioActual.CveEmpresa.Contiene(72, 80, 193, 186, 189, 193, 189) Then
                            params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
                            params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, "")))
                            params.Add(New ReportParameter("RFCProveedor", If(CveCompra > 0, dr("RFC").ToString, "")))
@@ -3105,7 +3132,8 @@ Partial Class PopUpVerFactura
                            params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                        End If

-                        ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios")
+                        ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios", DtDatos2:=DTPrePoliza, RDSName2:="DsPrePoliza")
+
                    ElseIf UsuarioActual.CveEmpresa = 140 Then

                        params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
--- a/Empresas/189/Formatos/Entradas.rdlc
+++ b/Empresas/189/Formatos/Entradas.rdlc
--- a/Ventas/CatPromociones.aspx
+++ b/Ventas/CatPromociones.aspx
@@ -51,7 +51,12 @@
            </asp:Panel>
        </ContentTemplate>
    </asp:UpdatePanel>
-    <br />
+  
+
+  <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
+    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+    </div>


    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -104,6 +104,7 @@ Partial Class Ventas_PVCobranza
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

+
            Dim Arr As New ArrayList
            'Arr.Add("autorizada")
            'If EnviarNotificacionWhatsApp("526621430964", "solicitud_autorizacion_anticipo_respuesta", Arr) Then
@@ -392,14 +393,14 @@ Partial Class Ventas_PVCobranza
                    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', " &
+                            "message: 'La solicitud de crédito esta en proceso de autorización ', " &
+                            "className: 'header-red', " &
                            "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() {} } " &
+                                "main: { label: 'Aceptar', className: 'red', callback: function() {} } " &
                            "} " &
                        "});" &
                        "return false;"
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -259,7 +259,12 @@ Partial Class Ventas_Promociones
        'CARGA SUBPROYECTOS
        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
        DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        If EmpresaGrupoDiaz AndAlso PermisoAutorizPromocionPorcentaje Then
+            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
+
+

        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
        DdlVendedor.DataBind()