Merge branch 'master' of http://jperez@adsistemasof.sytes.net:8383/SIG.git

App_Code/ClsClientes.vb

@@ -23,11 +23,13 @@ Public Class ClsClientes
     'Atributos de la clase
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
     'REGISTRAR CONEXIÓN
-    Private CveConexion As Integer = 0
+    Private CveConexion As Integer = 0
+    Private EsTransaccionCompartida As Boolean = False
+
 #End Region
-
+
 #Region "Propiedades"
-
+
     Public Property CveCliente As Integer
     Public Property Nombre As String
     Public Property NombreComercial As String
@@ -186,7 +188,8 @@ Public Class ClsClientes
             End Try
         Else
             SqlConexion = TransaccionCompartida.Connection
-            SqlTransacc = TransaccionCompartida
+            SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
         End If
 
         SqlCommand = New SqlCommand("", SqlConexion)
@@ -201,11 +204,11 @@ Public Class ClsClientes
         End With
         If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
         Data = New DataTable
-    End Sub
+    End Sub
 #Region "Conexiones"
-
+
     Private Sub ConexionAdd()
-        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
             Try
                 DataAdapter("PA_Sis_RegistrarConexion")
                 With SqlAdapter.SelectCommand.Parameters

App_Code/ClsInventarios.vb

@@ -4749,13 +4749,17 @@ Public Class ClsInventarios
 
 #Region "MOVIMIENTOS SALIDA"
 
-    Public Function GetRepMovimientosSalida(FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean
+    Public Function GetRepMovimientosSalida(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveCliente As Integer, CveClasificacion As Integer, Grupo As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_RepMovimientosSalidaGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Grupo", SqlDbType.Int).Value = Grupo
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsPaginas.vb

@@ -4262,13 +4262,14 @@ Public Class ClsPaginas
             PaginaDict.Add("/General/CatDiasInhabiles.aspx".ToUpper(), 429)
             PaginaDict.Add("/General/CatTipoCambio.aspx".ToUpper(), 642)
             PaginaDict.Add("/General/PopUpPaqueteriasGuias.aspx".ToUpper(), 659)
+            PaginaDict.Add("/General/PopUpPaqueteriasGuiasInternas.aspx".ToUpper(), 659)
             PaginaDict.Add("/General/CatPaqueterias.aspx".ToUpper(), 665)
             PaginaDict.Add("/General/CatDocumentacionTipo.aspx".ToUpper(), -1)
             PaginaDict.Add("/General/CatModelos.aspx".ToUpper(), 710)
             PaginaDict.Add("/General/CatRinTamanios.aspx".ToUpper(), 711)
             PaginaDict.Add("/General/CatMedidas.aspx".ToUpper(), 712)
             PaginaDict.Add("/General/CatSatListado69B.aspx".ToUpper, 1038)
-            PaginaDict.Add("/General/PopUpPaqueteriasGuiasInternas.aspx".ToUpper(), 727)
+
 
 #End Region
 #Region "GPS"
@@ -5044,8 +5045,8 @@ Public Class ClsPaginas
     Protected Overrides Sub SavePageStateToPersistenceMedium(pviewState As Object)
         'If Request.Form("__VIEWSTATE_KEY") IsNot Nothing Then Cache.Remove(Request.Form("__VIEWSTATE_KEY")) 'elimino la cachado anteriormente
         Dim VSKey As String = String.Format("VIEWSTATE_{0}_{1}_{2}", Session.SessionID, Request.Path, Date.Now.Ticks)
-        'Cache.Add(VSKey, pviewState, Nothing, Date.Now.AddMinutes(60), Cache.NoSlidingExpiration, CacheItemPriority.Default, Nothing) 'Store the ViewState on Cache
-        Session.Add(VSKey, pviewState) 'Store the ViewState on Cache
+        Cache.Add(VSKey, pviewState, Nothing, Date.Now.AddMinutes(60), Cache.NoSlidingExpiration, CacheItemPriority.Default, Nothing) 'Store the ViewState on Cache
+        'Session.Add(VSKey, pviewState) 'Store the ViewState on Cache
         ClientScript.RegisterHiddenField("__VIEWSTATE_KEY", VSKey)
 
     End Sub
@@ -5055,11 +5056,11 @@ Public Class ClsPaginas
         If Not VSKey.StartsWith("VIEWSTATE_") Then 'Request the Key from the page and validade it.
             Throw New Exception(String.Format("Invalid VIEWSTATE Key:         {0}", VSKey))
         End If
-        If Session(VSKey) Is Nothing Then 'si por algún motivo, el caché expiró, le dice a la página que se recargue y obtenga los datos de nuevo, y así evitar errores al obtener el viewstate vacío
+        If Cache(VSKey) Is Nothing Then 'si por algún motivo, el caché expiró, le dice a la página que se recargue y obtenga los datos de nuevo, y así evitar errores al obtener el viewstate vacío
             Response.Redirect(Request.RawUrl)
             Return Nothing
         Else
-            Return Session(VSKey)
+            Return Cache(VSKey)
         End If
 
     End Function
@@ -5267,6 +5268,8 @@ Public Class ClsPaginas
                 params.Add(param)
             Next
             Bytes = wsreport.StreamPDFBytes(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario)
+            wsreport = Nothing
+            params = Nothing
         Else
             If IsNothing(MR) Then MR = New ReportViewer
             Try
@@ -5339,6 +5342,7 @@ Public Class ClsPaginas
 
         End If
         sw.Stop()
+
         If sw.Elapsed.TotalSeconds > 5 Then
             GuardaLog($"Reporte:{RutaReporte} | Tiempo Renderizado Milisegundos: {sw.ElapsedMilliseconds},Total Segundos: {sw.Elapsed.TotalSeconds}   ")
         End If
@@ -5591,7 +5595,7 @@ Public Class ClsPaginas
             HttpContext.Current.Response.SuppressContent = True
             HttpContext.Current.ApplicationInstance.CompleteRequest()
             HttpContext.Current.Response.End()
-
+            bytes = Nothing
         Catch ex As Exception
 
             If UsuarioActual.CveRol = 1 Then
@@ -7246,6 +7250,20 @@ Public Class ClsPaginas
                     params.Add(New ReportParameter("Comprador", ObjOC.UsuarioAsignado))
                 End If
 
+                If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                    Dim ObjCuentasBancos As New ClsGenerales()
+                    If ObjCuentasBancos.GetCuentasDepositos(ObjOC.CveProveedor) Then
+                        Dim CuentasActivas As DataTable = ObjCuentasBancos.DtResultados.FiltraParametros("EstatusTexto = 'Activo'")
+                        Dim CuentasStr As New StringBuilder("")
+                        For Each CuentasBancarios As DataRow In CuentasActivas.Rows
+                            Dim CuentaClabe As String = If(CuentasBancarios.Item("BancoNombre").ToString.Contains("BBVA") Or CuentasBancarios.Item("BancoNombre").ToString.Contains("BANCOMER"), CuentasBancarios.Item("Cuenta").ToString, CuentasBancarios.Item("CLABE").ToString)
+                            Dim infoCuenta As String = String.Format("<br>{0} {1}: {2}", CuentasBancarios.Item("BancoNombre").ToString, CuentasBancarios.Item("Abreviatura").ToString, CuentaClabe)
+                            CuentasStr.AppendFormat(infoCuenta)
+                        Next
+                        params.Add(New ReportParameter("Cuentas", CuentasStr.ToString))
+                    End If
+                    ObjCuentasBancos.Dispose()
+                End If
                 'params.Add(New ReportParameter("FechaOC", ObjOC.Fecha.ToShortDateString))
                 Dim RutaFisicaSol As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol)
                 Dim RutaVirtuaSol As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={0}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaSol))

App_Code/ClsVentas.vb

@@ -339,7 +339,8 @@ Public Class ClsVentas
                              Optional ObservacionesAlmacen As String = "", Optional CveSubProyecto As Integer = -1, Optional CveSubProyectoEjecucion As Integer = -1, Optional CveSubProyectoCobranza As Integer = -1,
                              Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0,
                              Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1,
-                             Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0) As Boolean
+                             Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0,
+                             Optional CorreoNotificacion As String = "") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_VentasAdd")
@@ -428,6 +429,7 @@ Public Class ClsVentas
             .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje
             .Add("@EsAmortizacion", SqlDbType.Bit).Value = EsAmortizacion
             .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion
+            .Add("@CorreoNotificacion", SqlDbType.VarChar).Value = CorreoNotificacion
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With

App_Code/MyHub.vb

@@ -69,13 +69,4 @@ Public Class MyHub
     Public Sub send(name As String, mensaje As String)
         Clients.All.broadcastMessage(name, mensaje)
     End Sub
-End Class
-Public Class MyhubUserIdProvider
-    Implements IUserIdProvider
-
-
-    Private Function IUserIdProvider_GetUserId(request As IRequest) As String Implements IUserIdProvider.GetUserId
-        Dim userId = Decripta(request.User.Identity.Name) 'MyCustomUserClass.FindUserId(request.User.Identity.Name)
-        Return userId.ToString()
-    End Function
 End Class

App_Code/Notificaciones.vb

@@ -44,3 +44,12 @@ Public Class Notificaciones
     '    Clients.Users(Para).AlertaVentana(Titulo, Message, DirectCast(Tipo, Integer), timeoutseconds)
     'End Sub
 End Class
+Public Class MyhubUserIdProvider
+    Implements IUserIdProvider
+
+
+    Private Function IUserIdProvider_GetUserId(request As IRequest) As String Implements IUserIdProvider.GetUserId
+        Dim userId = Decripta(request.User.Identity.Name) 'MyCustomUserClass.FindUserId(request.User.Identity.Name)
+        Return userId.ToString()
+    End Function
+End Class

App_Code/modExtensiones.vb

@@ -192,10 +192,10 @@ Namespace Extensiones
         Public Sub GuardaLogAD(Mensaje As String, Optional Archivo As String = "Log")
             Dim ArchivoW As StreamWriter
 
-            Dim MensajeFormato = $"{Chr(13)}{Chr(10)}Log: {Mensaje} | Fecha:{Now.ToString("dd/MM/yyyy HH:mm")}"
+            Dim MensajeFormato = String.Format("{0}{1}Log: {2} | Fecha:{3}", Chr(13), Chr(10), Mensaje, Now.ToString("dd/MM/yyyy HH:mm"))
 
             Try
-                ArchivoW = New StreamWriter($"{AppDomain.CurrentDomain.BaseDirectory}\Log\{Archivo}.txt", True, System.Text.Encoding.UTF8)
+                ArchivoW = New StreamWriter(String.Format("{0}\Log\{1}.txt", AppDomain.CurrentDomain.BaseDirectory, Archivo), True, System.Text.Encoding.UTF8)
             Catch ex As UnauthorizedAccessException
                 'Alert("No hay permisos para guardar en el Log.", Extensiones.TipoMensaje.MsgError)
                 Exit Sub
@@ -544,6 +544,8 @@ Namespace Extensiones
                 Alert("", String.Format("{0} code[FilesMove]", ex.Message), TipoMensaje.MsgAdvertencia)
                 retorno = False
             End Try
+            directorioOld.Clear()
+            directorioNew.Clear()
             Return retorno
         End Function
         <Runtime.CompilerServices.Extension()>
@@ -2044,6 +2046,8 @@ Namespace Extensiones
                 HttpContext.Current.Response.Write(style.ToString)
                 HttpContext.Current.Response.Write(sb.ToString())
                 HttpContext.Current.Response.End()
+                sb.Clear()
+                style.Clear()
             End If
 
         End Sub
@@ -2076,6 +2080,8 @@ Namespace Extensiones
             HttpContext.Current.Response.Write(style.ToString)
             HttpContext.Current.Response.Write(sb.ToString())
             HttpContext.Current.Response.End()
+            sb.Clear()
+            style.Clear()
         End Sub
         <Runtime.CompilerServices.Extension()>
         Public Sub ExportToExcel(datatable As DataTable, NombreArchivoXLSX As String)
@@ -2284,6 +2290,7 @@ Namespace Extensiones
                     HttpContext.Current.Response.Write(style.ToString)
                     HttpContext.Current.Response.Write(pdfDoc)
                     HttpContext.Current.Response.[End]()
+                    style.Clear()
                 End Using
             End Using
         End Sub

Bancos/IE.aspx.vb

@@ -941,7 +941,8 @@ Partial Class Bancos_IE
                     HplListaProveedores.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncript}"
 
                 Else
-                    HplListaProveedores.NavigateUrl = String.Format("/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}", ObjIE.CveIE)
+                    Dim StrEncript As String = Encripta($"OP=ImprimeMov&CveIE={ObjIE.CveIE}")
+                    HplListaProveedores.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", StrEncript)
                 End If
                 If CveIEDeposito2 > 0 Then
                     divDepositado.Visible = True
@@ -2492,7 +2493,7 @@ Partial Class Bancos_IE
 
                         'GUARDA COMPROBANTE
                         If filemove <> "" Then
-                            filemove.FilesMove(CveIE.ToString, String.Format("Empresas\{0}\IE", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta))
+                            filemove.FilesMove(CveIE.ToString, String.Format("Empresas\{0}\IE", UsuarioActual.CveEmpresa))
                         End If
 
                         'GUARDA PREPOLIZAS DETALLE [PRIMERO SON LOS CASOS ESPECIALES, AL FINAL (ELSE) LOS CASOS NORMALES]   --REEMPLAZA IFs

Bancos/ProveedoresAbonar.aspx.vb

@@ -2292,7 +2292,7 @@ Partial Class Bancos_ProveedoresAbonar
                         'If Archivo.Exists Then
                         Msg.AppendFormat("<li> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir movimiento</a></li> ", Encripta(String.Format("OP=IECHEQUE&CVEIE={0}", CveIE)))
                         'End If
-                        Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}"">Listado</a></li>", CveIE)
+                        Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Listado</a></li>", Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIE)))
                         If IDPoliza > 0 Then Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Póliza</a></li>", IDPoliza)
 
                         Dim Mensaje As String = String.Format("<br />El Documento se generó correctamente.<br /><br /><br />Descargas:<ul>{0}</ul>", Msg.ToString)

Compras/Compras.aspx

@@ -2364,10 +2364,8 @@
 
                             <table>
                                 <tr id="TrRembolsoUpdate" runat="server" visible="False">
-                                    <td>Rembolso:
-                                       
-                                       
-
+                                    <td>Reembolso:
+                                        
                                         <asp:RadioButtonList ID="RblRembolso" OnSelectedIndexChanged="RblRembolso_SelectedIndexChanged" RepeatDirection="Horizontal" runat="server" AutoPostBack="True">
                                             <asp:ListItem Value="1">Personal/Empleado</asp:ListItem>
                                             <asp:ListItem Value="2">Caja Chica</asp:ListItem>
@@ -2554,10 +2552,11 @@
                     <asp:UpdatePanel ID="UpFacturar" runat="server" UpdateMode="Conditional">
                         <ContentTemplate>
 
-                            <asp:Button ID="BtnGuardar" CssClass="btn btn-primary " runat="server" data-toggle="confirmation" data-popout="true" data-original-title="<b>Verifique los datos para continuar</b>. <br/><br/> <center>¿Seguro de registrar el documento con la información actual?</center>" data-btn-ok-label="si" Text="Registrar Compra" />
+                            <asp:Button ID="BtnGuardar" CssClass="btn btn-primary " runat="server"  ValidationGroup="GrpGuardar" data-toggle="confirmation" data-popout="true" data-original-title="<b>Verifique los datos para continuar</b>. <br/><br/> <center>¿Seguro de registrar el documento con la información actual?</center>" data-btn-ok-label="si" Text="Registrar Compra" />
                             <asp:Button ID="BtnActualizar" CssClass="btn btn-success" runat="server" Text="Actualizar Compra" ValidationGroup="GrpGuardar" Visible="False" />
                             <br />
                             <br />
+                           
                             <asp:Button ID="BtnEliminarCompra" CssClass="btn btn-danger" Visible="False" runat="server" Text="Eliminar Compra" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar la compra?" data-btn-ok-label="si" />
                             <br />
                             <br />
@@ -3920,8 +3919,8 @@
                                     <div class="row">
                                         <div class="col-md-2" style="width: 90%; margin-left: 5%; margin-right: 5%; text-align: left">
                                             <asp:TextBox ID="TxtNumeroReembolso" runat="server" Width="100%" />
-                                            <asp:RequiredFieldValidator ID="RFVNumeroReembolso" runat="server" ControlToValidate="TxtNumeroReembolso" InitialValue="" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Numero de Reembolso''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                            <ajax:ValidatorCalloutExtender ID="VCENumeroReembolso" runat="server" HighlightCssClass="vco" TargetControlID="RFVNumeroReembolso" Width="300px"></ajax:ValidatorCalloutExtender>
+                                           <%-- <asp:RequiredFieldValidator ID="RFVNumeroReembolso" runat="server" ControlToValidate="TxtNumeroReembolso" InitialValue="" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Numero de Reembolsoxx''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                            <ajax:ValidatorCalloutExtender ID="VCENumeroReembolso" runat="server" HighlightCssClass="vco" TargetControlID="RFVNumeroReembolso" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                         </div>
                                     </div>
                                 </div>

Compras/Compras.aspx.vb

@@ -10695,7 +10695,6 @@ Partial Class Compras_Compras
 
                 'VALIDA UNIDAD DE MEDIDA
                 If e.Row.DBCampo("CvePS").ToString.ToEntero > 0 Then
-                    Dim DtEquivalencias = GlobalDTProductosServiciosEquivalencias(e.Row.DBCampo("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa)
 
                     'SI UM NO ESTA REGISTRADA
                     If e.Row.DBCampo("CveUM").ToString.ToEntero <= 0 Then
@@ -10707,6 +10706,8 @@ Partial Class Compras_Compras
 
                     'EQUIVALENCIA
                     If e.Row.DBCampo("CveUM").ToString.ToEntero > 0 And e.Row.DBCampo("CveTipoPS").ToString.ToEntero = 2 Then
+                        Dim DtEquivalencias As DataTable = GlobalDTProductosServiciosEquivalencias(e.Row.DBCampo("CvePS").ToString.ToEntero, e.Row.DBCampo("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa)
+
                         If DtEquivalencias.FiltraParametros($"CveUM = {e.Row.DBCampo("CveUM").ToString.ToEntero}").Rows.Count > 0 Then
                             If Not DtEquivalencias.FiltraParametros($"CveUM = {e.Row.DBCampo("CveUM").ToString.ToEntero} AND UnidadBase = 1").Rows.Count > 0 Then
                                 'UM NO BASE
@@ -10724,6 +10725,7 @@ Partial Class Compras_Compras
                             e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip")
                             e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN equivalencia")
                         End If
+                        DtEquivalencias.Dispose()
                     End If
                 End If
 

Compras/PopUpVerFactura.aspx.vb

@@ -382,6 +382,13 @@ Partial Class PopUpVerFactura
             End If
         End If
 
+        'Imprime Movimiento de IE
+        If UrlParametros("OP").ToString = "ImprimeMov" Then
+            If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
+                ImprimeMov(UrlParametros("CVEIE").ToString.ToEntero)
+            End If
+        End If
+
         'IMPRIME DEPOSITOS CAJA
         If UrlParametros("OP").ToString = "DC" Then
             If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
@@ -3922,10 +3929,171 @@ Partial Class PopUpVerFactura
 
         ObjIE.Dispose()
 
-    End Sub
-
+    End Sub
+
+    Private Sub ImprimeMov(CveIE As Integer)
+        Dim ObjIE As New ClsBancos()
+        Dim DtGvRH As New DataTable
+        Dim DtComprobacion As New DataTable
+        Dim ParamComprobacion As New DataTable
+
+        'Movimientos Relacionados de Comprobacion - Hijo
+        If ObjIE.GetBancosIEMovimientosHijo(CveIE, UsuarioActual.CveEmpresa) Then
+            DtGvRH = ObjIE.DtResultados
+        End If
+
+        If DtGvRH IsNot Nothing AndAlso DtGvRH.Rows.Count > 0 Then
+
+            If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
+                ParamComprobacion = ObjIE.DtResultados
+            End If
+
+            Dim ObjMov As New ClsMovimientos
+            For Each dr As DataRow In DtGvRH.Rows
+                If ObjMov.GetPersonalCajaChica(UsuarioActual.CveEmpresa, dr("CveCompra").ToString.ToEntero) Then
+                    DtComprobacion.Merge(ObjMov.DtResultados.FiltraParametros("CveCompra =" + dr("CveCompra").ToString))
+                End If
+            Next
+            ObjMov.Dispose()
+
+            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta))
+            Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+            Dim params As New List(Of ReportParameter)
+
+            If Archivo.Exists Then
+
+                If UsuarioActual.CveEmpresa = 72 Then
+                    params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+                    params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+                    params.Add(New ReportParameter("CveCajaChica", DtComprobacion.Rows(0)("CveCajaChica").ToString))
+                    params.Add(New ReportParameter("CveFyE", "0")) '
+
+                    params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
+                    params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
+                    params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
+                    params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
+                    params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString))
+                    params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
+                    params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
+
+                    ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
+                Else
+                    params.Add(New ReportParameter("Numero", "")) '
+                    params.Add(New ReportParameter("Anio", DtComprobacion.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString))
+                    params.Add(New ReportParameter("Nombre", DtComprobacion.MAX("SubProyecto")))
+                    params.Add(New ReportParameter("Fecha", Now.Date.ToString))
+                    params.Add(New ReportParameter("Elaboro", ""))
+                    params.Add(New ReportParameter("Autorizo", ""))
+                    params.Add(New ReportParameter("ElaboroPuesto", ""))
+                    params.Add(New ReportParameter("AutorizoPuesto", ""))
+                    ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion.FiltraParametros("CveCompra > 0"), params, String.Format("IE{0}", CveIE), RDSName:="DsCompras")
+                End If
+            Else
+                params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+                params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+
+                params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
+                params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
+                params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
+                params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
+                params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString))
+                params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
+                params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
+
+                If Imagen.Exists Then
+                    params.Add(New ReportParameter("LogoPath", logouri))
+                Else
+                    params.Add(New ReportParameter("LogoPath", ""))
+                End If
+
+                ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
+            End If
+        Else
+            If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
+                If ObjIE.DtResultados.Rows.Count > 0 Then
+
+                    Dim reportDataSetsList As New List(Of ReportDataSource)
+
+                    Dim dtMovs As New DataTable
+                    Dim Mov As New ClsContabilidad
+                    If Mov.GetPrePolizasDetalle(-1, CveIE) Then
+
+                        dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,312)")
+
+                        If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                            'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
+                            For Each Dr As DataRow In dtMovs.Rows
+                                Dr("Importe") = Dr("ImporteMN").ToString.ToDecimal
+                                Dr("ImporteNC") = Dr("ImporteNC").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
+                                Dr("Total") = Dr("Total").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
+                                Dr("Saldo") = Dr("Saldo").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
+                            Next
+                        End If
+
+                    End If
+                    Mov.Dispose()
+                    Dim rds = New ReportDataSource("DataSet1", dtMovs)
+                    reportDataSetsList.Add(rds)
+
+                    Dim dtnc As New DataTable
+                    Dim ObjCompra As New ClsCompras()
+                    If ObjCompra.GetComprasNotasCredito(-1, -1, CveIE) Then
+                        dtnc = ObjCompra.DtResultados
+                    End If
+                    ObjCompra.Dispose()
+                    Dim rds2 = New ReportDataSource("DataSet2", dtnc)
+                    reportDataSetsList.Add(rds2)
+                    dtnc.Dispose()
+
+                    Dim paramList As New List(Of ReportParameter)
+                    With paramList
+                        'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+                        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+                        Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa)
+                        Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
+                        Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
+                        .Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+                        .Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+                        .Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+                        .Add(New ReportParameter("Cuenta", ObjIE.NumCuenta, True))
+                        .Add(New ReportParameter("Fecha", ObjIE.FechaDocumento.ToString("dd/MM/yyyy"), True))
+                        .Add(New ReportParameter("Paguese", ObjIE.PagueseA.Trim, True))
+                        .Add(New ReportParameter("Importe", ObjIE.Importe.ToString, True))
+                        .Add(New ReportParameter("Observaciones", ObjIE.Observaciones, True))
+                        .Add(New ReportParameter("Folio", ObjIE.Folio, True))
+                        .Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True))
+
+
+                        If Imagen.Exists Then
+                            .Add(New ReportParameter("LogoPath", logouri))
+                        Else
+                            .Add(New ReportParameter("LogoPath", ""))
+                        End If
+
+                    End With
+                    dtMovs.Dispose()
+
+                    ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
+
+                End If
+
+            End If
+        End If
+
+        DtGvRH.Dispose()
+        DtComprobacion.Dispose()
+        ParamComprobacion.Dispose()
+
+        ObjIE.Dispose()
+    End Sub
+
 #End Region
-
+
 #Region "OP = RECIBO DE PAGOS"
     Private Sub ImprimirReciboDePagos(CveIE As Integer, CveVenta As Integer)
 

Compras/ReembolsosComprobaciones.aspx.vb

@@ -1432,11 +1432,11 @@ Partial Class Compras_ReembolsosComprobaciones
             Dim Mensaje As New StringBuilder
 
             If CvePrePolizaExcedente > 0 Then
-                Mensaje.AppendFormat("Abono Registrado Correctamente. <br/><br/> Cheque:  <a target='_blank' href=/Bancos/IE.aspx?CveIE={0}>{1}</a> <br/><br/> <a target='_blank' href=""/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}"">Imprimir</a>", CveIEExcedente, TxtFolio.Text)
+                Mensaje.AppendFormat("Abono Registrado Correctamente. <br/><br/> Cheque:  <a target='_blank' href=/Bancos/IE.aspx?CveIE={0}>{1}</a> <br/><br/> <a target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={2}"">Imprimir</a>", CveIEExcedente, TxtFolio.Text, Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIEExcedente)))
                 Mensaje.AppendFormat("</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
                 Alert(Mensaje.ToString, TipoMensaje.MsgInformacion)
             Else
-                Mensaje.AppendFormat("Abono Registrado Correctamente. <br/><br/> <a  class=""Texto"" target='_blank' href=""/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}"">Imprimir</a>", CveIERegistrado)
+                Mensaje.AppendFormat("Abono Registrado Correctamente. <br/><br/> <a  class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir</a>", Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIERegistrado)))
                 If CvePrePolizaIERegistrado > 0 Then
                     Mensaje.AppendFormat("</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
                 End If

Contabilidad/RegPoliza.aspx.vb

@@ -1765,13 +1765,14 @@ Partial Class RegPoliza
         Try
             Select Case Tipo
                 Case "EXCEL"
-                    Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";")
-                    Conexion.Open()
-                    Dim cmd = Conexion.CreateCommand()
-                    cmd.CommandType = CommandType.Text
-                    cmd.CommandText = "Select * FROM [Hoja1$]"
-                    Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
-                    DataAdapter.Fill(dt)
+                    'Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";")
+                    'Conexion.Open()
+                    'Dim cmd = Conexion.CreateCommand()
+                    'cmd.CommandType = CommandType.Text
+                    'cmd.CommandText = "Select * FROM [Hoja1$]"
+                    'Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
+                    'DataAdapter.Fill(dt)
+                    dt = Extensiones.ModExtensiones.ReadExcelFile(String.Format("{0}{1}", Ruta, FileName), True)
                 Case Else
                     Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError)
                     Exit Sub

Default2.aspx

@@ -0,0 +1,20 @@
+<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Default2.aspx.cs" Inherits="Default2" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
+
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
+</asp:Content>
+

Default2.aspx.cs

@@ -0,0 +1,14 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+
+public partial class Default2 : System.Web.UI.Page
+{
+    protected void Page_Load(object sender, EventArgs e)
+    {
+
+    }
+}

Empresas/13/Formatos/OC.rdlc

@@ -3089,6 +3089,46 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Textbox Name="Cuentas">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Cuentas Bancarias: </Value>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!Cuentas.Value</Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Cuentas</rd:DefaultName>
+        <Top>5.72992cm</Top>
+        <Left>0.20457cm</Left>
+        <Height>1.34594cm</Height>
+        <Width>15.48536cm</Width>
+        <ZIndex>43</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
     </ReportItems>
     <Height>5.19589in</Height>
     <Style />
@@ -3403,6 +3443,12 @@
       <Nullable>true</Nullable>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Cuentas">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="LogoEMD">

Empresas/83/Formatos/OC.rdlc

@@ -2986,6 +2986,46 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Textbox Name="Cuentas">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Cuentas Bancarias: </Value>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!Cuentas.Value</Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Cuentas</rd:DefaultName>
+        <Top>5.38277cm</Top>
+        <Left>0.20457cm</Left>
+        <Height>1.34594cm</Height>
+        <Width>15.48536cm</Width>
+        <ZIndex>42</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
     </ReportItems>
     <Height>5.1933in</Height>
     <Style />
@@ -3027,7 +3067,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox8</rd:DefaultName>
-          <Top>0.08114cm</Top>
+          <Top>0.08113cm</Top>
           <Left>0.20457cm</Left>
           <Height>0.46771cm</Height>
           <Width>6.86562cm</Width>
@@ -3396,6 +3436,12 @@
       <Nullable>true</Nullable>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Cuentas">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="LOGOPrisay3">

Empresas/Grales/Formatos/RepFacturas.rdlc

@@ -6,6 +6,41 @@
         <TablixCorner>
           <TablixCornerRows>
             <TablixCornerRow>
+              <TablixCornerCell>
+                <CellContents>
+                  <Textbox Name="Textbox3">
+                    <CanGrow>true</CanGrow>
+                    <KeepTogether>true</KeepTogether>
+                    <Paragraphs>
+                      <Paragraph>
+                        <TextRuns>
+                          <TextRun>
+                            <Value>Tipo</Value>
+                            <Style />
+                          </TextRun>
+                        </TextRuns>
+                        <Style>
+                          <TextAlign>Center</TextAlign>
+                        </Style>
+                      </Paragraph>
+                    </Paragraphs>
+                    <rd:DefaultName>Textbox3</rd:DefaultName>
+                    <Style>
+                      <Border>
+                        <Color>DimGray</Color>
+                        <Style>Solid</Style>
+                      </Border>
+                      <RightBorder>
+                        <Style>None</Style>
+                      </RightBorder>
+                      <PaddingLeft>2pt</PaddingLeft>
+                      <PaddingRight>2pt</PaddingRight>
+                      <PaddingTop>2pt</PaddingTop>
+                      <PaddingBottom>2pt</PaddingBottom>
+                    </Style>
+                  </Textbox>
+                </CellContents>
+              </TablixCornerCell>
               <TablixCornerCell>
                 <CellContents>
                   <Textbox Name="Textbox28">
@@ -47,16 +82,16 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>3.5579cm</Width>
+              <Width>2.36727cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>7.63463cm</Width>
+              <Width>7.23964cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.64509cm</Width>
+              <Width>2.57894cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.86998cm</Width>
+              <Width>2.34081cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -172,7 +207,10 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Switch(Fields!FueValidado.Value = "1","Validado", Fields!FueValidado.Value = "2","Cancelada", Fields!FueValidado.Value = "3","Omitida")</Value>
+                              <Value>=Switch(Fields!FueValidado.Value = "1","Validado", 
+Fields!FueValidado.Value = "2","Cancelada", 
+Fields!FueValidado.Value = "3","Omitida",
+1=1,"No validado")</Value>
                               <Style>
                                 <FontSize>9pt</FontSize>
                                 <Format>#,0.00;(#,0.00)</Format>
@@ -360,16 +398,19 @@
                 </SortExpression>
               </SortExpressions>
               <TablixHeader>
-                <Size>2.33715cm</Size>
+                <Size>2.16269cm</Size>
                 <CellContents>
-                  <Textbox Name="SerieFolio">
+                  <Textbox Name="TipoComprobante">
                     <CanGrow>true</CanGrow>
                     <KeepTogether>true</KeepTogether>
                     <Paragraphs>
                       <Paragraph>
                         <TextRuns>
                           <TextRun>
-                            <Value>=Fields!SerieFolio.Value</Value>
+                            <Value>=Switch(Fields!TipoComprobante.Value="I","Ingreso",
+Fields!TipoComprobante.Value="E","Egreso",
+Fields!TipoComprobante.Value="P","Pago"
+)</Value>
                             <Style>
                               <FontSize>9pt</FontSize>
                             </Style>
@@ -378,7 +419,7 @@
                         <Style />
                       </Paragraph>
                     </Paragraphs>
-                    <rd:DefaultName>SerieFolio</rd:DefaultName>
+                    <rd:DefaultName>TipoComprobante</rd:DefaultName>
                     <Style>
                       <Border>
                         <Style>None</Style>
@@ -389,16 +430,51 @@
                       <PaddingBottom>2pt</PaddingBottom>
                     </Style>
                   </Textbox>
-                  <rd:Selected>true</rd:Selected>
                 </CellContents>
               </TablixHeader>
+              <TablixMembers>
+                <TablixMember>
+                  <TablixHeader>
+                    <Size>2.33715cm</Size>
+                    <CellContents>
+                      <Textbox Name="SerieFolio">
+                        <CanGrow>true</CanGrow>
+                        <KeepTogether>true</KeepTogether>
+                        <Paragraphs>
+                          <Paragraph>
+                            <TextRuns>
+                              <TextRun>
+                                <Value>=Fields!SerieFolio.Value</Value>
+                                <Style>
+                                  <FontSize>9pt</FontSize>
+                                </Style>
+                              </TextRun>
+                            </TextRuns>
+                            <Style />
+                          </Paragraph>
+                        </Paragraphs>
+                        <rd:DefaultName>SerieFolio</rd:DefaultName>
+                        <Style>
+                          <Border>
+                            <Style>None</Style>
+                          </Border>
+                          <PaddingLeft>2pt</PaddingLeft>
+                          <PaddingRight>2pt</PaddingRight>
+                          <PaddingTop>2pt</PaddingTop>
+                          <PaddingBottom>2pt</PaddingBottom>
+                        </Style>
+                      </Textbox>
+                    </CellContents>
+                  </TablixHeader>
+                </TablixMember>
+              </TablixMembers>
             </TablixMember>
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet1</DataSetName>
         <Left>0.06614cm</Left>
         <Height>1.2cm</Height>
-        <Width>19.04475cm</Width>
+        <Width>19.0265cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -805,6 +881,10 @@
         <CommandText>/* Local Query */</CommandText>
       </Query>
       <Fields>
+        <Field Name="TipoComprobante">
+          <DataField>TipoComprobante</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
         <Field Name="SerieFolio">
           <DataField>SerieFolio</DataField>
           <rd:TypeName>System.String</rd:TypeName>

General/PopUpPaqueteriasGuiasInternas.aspx.cs

@@ -92,14 +92,14 @@ public partial class General_PopUpPaqueteriasGuiasInternas : ClsPaginas
 
         String Observaciones = TxtObservaciones.Text;
 
-        int CvePaqueteriaGuia = ObjGeneral.AddPaqueteriasGuias(-1, -1, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, 
+        int CvePaqueteriaGuia = ObjGeneral.AddPaqueteriasGuias(-1, 9, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, 
                                                                 UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:true);
 
         if (CvePaqueteriaGuia > 0)
         {
             if (CveVenta > 0 || CveSubProyecto > 0 )
             {
-                TieneError = !ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVenta, -1, CveSubProyecto, -1);
+                TieneError = !ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVenta, -1, -1, -1);
             }
         }
         else

General/RepPaqueteriasGuias.aspx.cs

@@ -235,7 +235,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
     {
         DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa:UsuarioActual.CveEmpresa);
         DdlUsuarios.DataBind();
-        DdlUsuarios.Items.Insert(0, new ListItem("Seleccione ", "-1"));
+        DdlUsuarios.Items.Insert(0, new ListItem("Todos ", "-1"));
     }
 
     protected void InicializaFechas()

Inicio.aspx

@@ -1144,7 +1144,7 @@
                                                 <br />
                                                 <asp:TextBox ID="TxtComentarios" CssClass="form-control" Text='<%# Eval("Respuesta")%>' TextMode="MultiLine" Rows="3" runat="server"></asp:TextBox>
                                                 <asp:RequiredFieldValidator ID="RfvTxtComentarios" runat="server" ControlToValidate="TxtComentarios" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Responda el cuestionario para poder guardar" ValidationGroup="GrpGuardarUnoAUno"></asp:RequiredFieldValidator>
-                                                <ajax:ValidatorCalloutExtender ID="VcoTxtCFecha" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtComentarios" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                <ajax:ValidatorCalloutExtender ID="VcoTxtCFecha" runat="server" HighlightCssClass="vco" PopupPosition="BottomLeft" TargetControlID="RfvTxtComentarios" Width="350px"></ajax:ValidatorCalloutExtender>
 
                                             </ItemTemplate>
                                         </asp:TemplateField>

Inventarios/EntradasSalidas.aspx

@@ -1325,7 +1325,7 @@
                             <ajax:ValidatorCalloutExtender ID="VCOCantidad1" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
                             <asp:CustomValidator ID="CVCantidad" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> no tiene el formato correcto (6 decimales). Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GprAgregaPS"></asp:CustomValidator>
                             <ajax:ValidatorCalloutExtender ID="VCECantidad" runat="server" HighlightCssClass="vco" TargetControlID="CVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
-                            <label for="<%= txtCantidad.ClientID.ToString()%>">Cant</label>
+                            <label for="<%= txtCantidad.ClientID.ToString()%>">Cantidad</label>
                             <br />
                         </div>
                         <div runat="server" id="divClasificacionProducto" class="form-group form-md-line-input input-iconright">
@@ -1342,6 +1342,7 @@
                             <label for="<%= DdlUnidad.ClientID.ToString()%>">U.M.</label>
                             <br />
                         </div>
+
                         <div runat="server" id="divPrecio" class="form-group form-md-line-input input-iconright" visible="false">
                             <asp:TextBox ID="txtPrecio" CssClass="form-control input-sm" runat="server" Width="50%" Visible="false"></asp:TextBox>
                             <label for="<%= txtPrecio.ClientID.ToString()%>">P.U.</label>
@@ -1350,7 +1351,7 @@
                         <div runat="server" id="divSerie" class="form-group form-md-line-input input-iconright" visible="false">
                             <asp:TextBox ID="TxtnSerie" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
                             <asp:Button Text="" ID="BtnSerieAddNew" OnClick="BtnSerieAddNew_Click" Style="display: none" runat="server" />
-                            <label for="<%= TxtnSerie.ClientID.ToString()%>">Serie Lote</label>
+                            <label for="<%= TxtnSerie.ClientID.ToString()%>">Serie</label>
                             <br />
                         </div>
                         <div runat="server" id="divLote" class="form-group form-md-line-input input-iconright" visible="false">

Inventarios/EntradasSalidas.aspx.vb

@@ -2165,6 +2165,10 @@ Partial Class Inventarios_EntradasSalidas
                     'TrLote2.Visible = True
 
                 End If
+                If CBool(dr("AplicaSeccion")) Then
+                    divSeccionAlmacen.Visible = True
+
+                End If
             End If
 
         End If
@@ -2231,7 +2235,7 @@ Partial Class Inventarios_EntradasSalidas
             GvM.Columns(9).Visible = DtTemp.MAX("Serie") <> ""
             GvM.Columns(10).Visible = DtTemp.MAX("Lote") <> ""
             GvM.Columns(11).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
-            GvM.Columns(12).Visible = DtTemp.MAX("CveSeccionAlmacen") <> ""
+            GvM.Columns(12).Visible = DtTemp.MAX("CveSeccionAlmacen").ToEntero > 0
 
         End If
 
@@ -2370,6 +2374,9 @@ Partial Class Inventarios_EntradasSalidas
         TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
         DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
         LkAgregarDetalle.Text = "Actualizar"
+        Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
+        divPrecio.Visible = Origen = 1
+        txtPrecio.Visible = Origen = 1
         UpAgregar.Update()
         RegistraScript("$('#ModalAgregar').modal()")
         CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
@@ -2392,6 +2399,9 @@ Partial Class Inventarios_EntradasSalidas
         TxtnSerie.Text = GvRow.DataKey("Serie")
         TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
         DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
+        Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
+        divPrecio.Visible = Origen = 1
+        txtPrecio.Visible = Origen = 1
         LkAgregarDetalle.Text = "Actualizar"
         UpAgregar.Update()
         RegistraScript("$('#ModalAgregar').modal()")
@@ -4198,7 +4208,9 @@ Partial Class Inventarios_EntradasSalidas
         Else
             VisualizaPUExtranjero(False)
         End If
-
+        Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
+        divPrecio.Visible = Origen = 1
+        txtPrecio.Visible = Origen = 1
         UpAgregar.Update()
     End Sub
 

Inventarios/EntregaAlmacen.aspx

@@ -242,11 +242,13 @@
                                         </tr>
                                         <tr>
                                             <td colspan="2">
-                                                <div >
-                                                    <asp:RadioButton ID="RbSinEntrega" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Sin Entrega" AutoPostBack="true"></asp:RadioButton>
-                                                    <asp:RadioButton ID="RbEntregaInterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Entrega Interna" AutoPostBack="true"></asp:RadioButton>
-                                                    <asp:RadioButton ID="RbEntregaExterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Entrega Externa" AutoPostBack="true"></asp:RadioButton>
-                                                </div>
+                                               
+                                                    <asp:Panel ID="PnlEntrega" runat="server" Visible="false">
+                                                        <asp:RadioButton id="RbSinEntrega" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="25%" GroupName="EntregaRadioGroup" Text="Sin Entrega" AutoPostBack="true"></asp:RadioButton>
+                                                        <asp:RadioButton id="RbEntregaInterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="25%" GroupName="EntregaRadioGroup" Text="Entrega Interna" AutoPostBack="true"></asp:RadioButton>
+                                                        <asp:RadioButton id="RbEntregaExterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="25%" GroupName="EntregaRadioGroup" Text="Entrega Externa" AutoPostBack="true"></asp:RadioButton>
+                                                    </asp:Panel>
+                                                 
                                             </td>
                                         </tr>
 
@@ -718,7 +720,6 @@
                                             <div class="col-md-5" style="text-align: right;">
                                                 Cantidad
                                            
-                                           
                                             </div>
                                             <div class="col-md-7">
                                                 <asp:TextBox ClientIDMode="Static" ID="TxtCantidadEspecial" Text="" runat="server"></asp:TextBox>
@@ -761,8 +762,6 @@
                             <asp:Panel runat="server" DefaultButton="BtnGuardarCantidadEspecialDiv">
                                 Cant.:
                                
-                               
-
                                 <asp:TextBox ClientIDMode="Static" ID="TxtCantidadEspecialDiv" Text="1" onfocus="this.select();" Width="50px" runat="server"></asp:TextBox>
                                 <ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtCantidadEspecialDiv" FilterType="Custom, Numbers" ValidChars="." />
                                 <br />
@@ -884,8 +883,7 @@
                             <tr runat="server" id="RowDimensiones" align="left" visible="true">
                                 <td class="text-right" style="width: 140px"><b># Cajas:</b></td>
                                 <td style="width: 200px">
-                                    <asp:TextBox ID="TxtNoCajas" runat="server" CssClass="form-control" Width="200px" Height="30px" Style="padding: 0px"></asp:TextBox>
-                                    <ajax:MaskedEditExtender ID="MEENoCajas" runat="server" TargetControlID="TxtNoCajas" Mask="9999" MaskType="Number" AcceptNegative="None"></ajax:MaskedEditExtender>
+                                    <asp:TextBox ID="TxtNoCajas" runat="server" CssClass="form-control" Width="200px" Height="30px" Style="padding: 0px"></asp:TextBox>                                     
                                 </td>
 
                             </tr>

Inventarios/EntregaAlmacen.aspx.vb

@@ -2,16 +2,14 @@
 Option Explicit On
 
 Imports System.Data
-Imports System.IO
-Imports System.Linq
-Imports CrystalDecisions.[Shared].Json
+Imports System.IO
 Imports Extensiones
 
 Imports Microsoft.Reporting.WebForms
 
 Partial Class Inventarios_EntregaAlmacen
-    Inherits ClsPaginas
-
+    Inherits ClsPaginas
+
 #Region "PROPIEDADES"
     Private Property CveVentaAD As Integer
         Get
@@ -245,10 +243,10 @@ Partial Class Inventarios_EntregaAlmacen
         Set(value As Boolean)
             ViewState("EsDevolucionDirecta") = value
         End Set
-    End Property
-
+    End Property
+
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
@@ -256,9 +254,9 @@ Partial Class Inventarios_EntregaAlmacen
             CargaParametrosAD()
             If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True
         End If
-    End Sub
-
-
+    End Sub
+
+
 #Region "  INICIALIZA VALORES  "
     Private Sub InicializaValores()
         TipoEstatus = -1
@@ -318,6 +316,7 @@ Partial Class Inventarios_EntregaAlmacen
         DdlSubProyectos.SelectedValueExist(UsuarioActual.CveSubProyecto.ToString)
 
         If UsuarioActual.TienePermisoProceso(152) Then DdlSubProyectos.Enabled = False
+        If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then PnlEntrega.Visible = True
 
         CreaDtDetalle()
         CreaDtDetalleLote()
@@ -325,11 +324,11 @@ Partial Class Inventarios_EntregaAlmacen
 
 
         LimpiaCampos()
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+
 #Region "  CARGA PARAMETROS - EXCLUSIVO USO AD  "
     Private Sub CargaParametrosAD()
 
@@ -347,9 +346,9 @@ Partial Class Inventarios_EntregaAlmacen
             BtnGuardar.Visible = False
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  CARGA PENDIENTES POR SURTIR  "
     Protected Sub DdlCliente_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaFolios()
@@ -467,11 +466,11 @@ Partial Class Inventarios_EntregaAlmacen
             End Select
             UpPendientes.Update()
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+
 #Region "  CARGA VENTA POR SURTIR   "
     Protected Sub BtnSurtir_Click(sender As Object, e As EventArgs)
 
@@ -917,14 +916,14 @@ Partial Class Inventarios_EntregaAlmacen
         End If
         objInv.Dispose()
         GvDocs.DataBind()
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
-
+
+
 #Region "  AGREGAR  "
-
+
     Protected Sub BtnSerie_Click(sender As Object, e As EventArgs)
 
         Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c)
@@ -951,10 +950,10 @@ Partial Class Inventarios_EntregaAlmacen
             UpLoteBatch.Update()
         End If
 
-    End Sub
-
+    End Sub
+
 #Region "   AGREGA POR SERIE/LOTE   "
-
+
     Private Sub CreaDtDetalle()
         If DtDatosDetalle Is Nothing Then
             DtDatosDetalle = New DataTable
@@ -1159,11 +1158,11 @@ Partial Class Inventarios_EntregaAlmacen
         DtDatosDetalle.AcceptChanges()
         CargaSerie()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "   AGREGA CON LOTE BATCH   "
-
+
     Private Sub CreaDtDetalleLote()
         If DtDatosDetalleLote Is Nothing Then
             DtDatosDetalleLote = New DataTable
@@ -1351,9 +1350,9 @@ Partial Class Inventarios_EntregaAlmacen
         End Try
         DtDatosDetalleLote.AcceptChanges()
         CargaLote()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  AGREGA CON TXT | CODIGO - SERIE  "
     Protected Sub BtnCodigoPS_Click(sender As Object, e As EventArgs)
 
@@ -1487,12 +1486,12 @@ Partial Class Inventarios_EntregaAlmacen
         End If
 
         TxtCantidadEspecialDiv.Text = "1"
-    End Sub
+    End Sub
 #End Region
-
+
 #End Region
-
-
+
+
 #Region "  GUARDAR  "
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
 
@@ -2422,12 +2421,19 @@ Partial Class Inventarios_EntregaAlmacen
             Dim FechaEstimada As String = If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
             Dim NoCajas As Integer = TxtNoCajas.Text.ToEntero()
             Dim Observaciones As String = TxtObservacionesPaqInterna.Text
-            Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(-1, -1, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
+            Dim CvePaqueteria As Integer = GlobalDTPaqueterias().FiltroPrimeroValor("CvePaqueteria", String.Format("CveEmpresa={0} AND TipoPaqueteria = 0", UsuarioActual.CveEmpresa)).ToEntero
+
+            Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "", "", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
 
             If CvePaqueteriaGuia > 0 Then
 
                 If CveVentaSurtir > 0 OrElse CveSubProyecto > 0 Then
-                    ErrorMovInv = Not ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1)
+                    If ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1) Then
+                        ''manda correo
+                        MandaCorreoEntrega(CveVentaSurtir)
+                    Else
+                        ErrorMovInv = True
+                    End If
                 End If
                 If ErrorMovInv Then
                     Alert("Error en el paqueteria guia detalle", TipoMensaje.MsgError)
@@ -2754,6 +2760,53 @@ Partial Class Inventarios_EntregaAlmacen
 
     End Sub
 
+
+    Private Sub MandaCorreoEntrega(tCveVenta As Integer)
+        Dim Correo As New ClsSisMail()
+        Dim SerieFolio As String = ""
+        Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio)
+        Dim Cuerpo As New StringBuilder()
+        Dim Destinatario As String = ""
+        Dim MensajeEnviado = False
+        Dim tCvecliente As Integer
+
+
+        Dim ObjVentas As New ClsVentas()
+
+        If (ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa)) Then
+            Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("")
+            Destinatario = String.Format("{0};{1}", dr("CorreoNotificacion"), dr("CorreoVendedorVenta"))
+
+            tCvecliente = dr("CveCliente").ToString.ToEntero
+
+            Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")
+            Destinatario += String.Format("{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
+
+            Cuerpo.AppendLine(String.Format("Estimado {0} le informamos que los productos de la factura {1}  han sido enviados a entrega. <br><br>", dr("ClienteNombre"), dr("SerieFolio")))
+            Cuerpo.AppendLine("<br><br>Dudas y aclaraciones con su coordinador empresarial.")
+
+        End If
+        ObjVentas.Dispose()
+
+
+        ' Dim ArchivoAdjunto As New ClsSisMail.ArchivoMail()
+
+        'Dim ListaAdjuntos As New List(ClsSisMail.ArchivoMail)
+
+
+        'If (File.Exists(RutaArchivoAdjunto))Then
+        '        {
+        '            ArchivoAdjunto.ArchivoBinario = File.ReadAllBytes(RutaArchivoAdjunto);
+        '            ArchivoAdjunto.Ruta = RutaArchivoAdjunto;
+        '            ArchivoAdjunto.NombreArchivo = new FileInfo(RutaArchivoAdjunto).Name;
+        '            ListaAdjuntos.Add(ArchivoAdjunto);
+        '        }
+
+
+        MensajeEnviado = Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString())
+
+
+    End Sub
     Private Sub Limpia()
 
         'DATOS DE LA VENTA
@@ -3050,7 +3103,7 @@ Partial Class Inventarios_EntregaAlmacen
                 If fi.Exists() Then
                     linkDescarga = $"/Empresas/{UsuarioActual.CveEmpresa}/Documentacion/ventas/{fi.Name}"
                     ImgDownLoad.Visible = True
-                    ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' ><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga)
+                    ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga)
 
 
                 End If

Inventarios/EntregasPorRealizar.aspx

@@ -15,11 +15,23 @@
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-    <%--Paqueterías Guías--%>Entrega Interna
+     Entregas por Realizar
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+
+
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAccionesComplementos">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="LnkImprimir" runat="server" OnClick="LnkImprimir_Click" Style="color: #686868;" Text="<i class='fa fa-pdf' style='color:#686868;'></i> Imprimir"/>
+            </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LnkImprimir"/>
+        </Triggers>
+    </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
@@ -70,9 +82,10 @@
                                     &nbsp;<asp:CheckBox ID="ChkAsigna" runat="server" Checked="false" />
                                 </ItemTemplate>
                             </asp:TemplateField>
+                            <asp:BoundField HeaderText="Cons" DataField="Num" HeaderStyle-Width="25px" ItemStyle-HorizontalAlign="Center" />
                             <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderStyle-Width="10%">
                                 <ItemTemplate>
-                                    &nbsp;<asp:Literal ID="LblFolio" runat="server" Text='<%# Eval("Folio") %>'></asp:Literal>
+                                    &nbsp;<asp:Literal ID="LblFolio" runat="server" Text='<%# Eval("SerieFolio") %>'></asp:Literal>
                                 </ItemTemplate>
 
                             </asp:TemplateField>

Inventarios/EntregasPorRealizar.aspx.cs

@@ -6,9 +6,22 @@ using System.Web.UI;
 using System.Web.UI.WebControls;
 using System.Data;
 using Extensiones;
+using Microsoft.Reporting.WebForms;
 
 public partial class Inventarios_EntregasPorRealizar : ClsPaginas
 {
+    private DataTable DtPaqueteriasGuias
+    {
+        get
+        {
+            return (ViewState["DtPaqueteriasGuias"] == null) ? null : (DataTable)ViewState["DtPaqueteriasGuias"];
+        }
+        set
+        {
+            ViewState["DtPaqueteriasGuias"] = value;
+        }
+    }
+
     protected void Page_Load(object sender, EventArgs e)
     {
         if (!IsPostBack)
@@ -65,6 +78,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
         if (ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa))
         {
             GvPaqueteriasGuias.DataSource = ObjGeneral.DtResultados;
+            DtPaqueteriasGuias = ObjGeneral.DtResultados;
             GvPaqueteriasGuias.DataBind();
         }
         ObjGeneral.Dispose();
@@ -76,4 +90,15 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
         DdlUsuario.DataBind();
         DdlUsuario.Items.Insert(0, new ListItem("Seleccione", "-1"));
     }
+
+    protected void LnkImprimir_Click(object sender, EventArgs e)
+    {
+        List<ReportParameter> RepParams = new List<ReportParameter>();
+        string Usuario = DdlUsuario.SelectedValue.ToEntero() > 0 ? DdlUsuario.SelectedItem.Text : "Todos";
+        RepParams.Add(new ReportParameter("Fecha", DateTime.Today.ToString()));
+        RepParams.Add(new ReportParameter("AsignadoA", Usuario));
+        RepParams.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
+
+        ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF",RDSName:"DsInventarios");
+    }
 }

Inventarios/PaquetesArmadoDesarmado.aspx.vb

@@ -713,8 +713,8 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             If e.Row.DBCampo("Inv_CveMetodoInventario") = "5" Then
-                e.Row.FCButton("BtnSerieLote").Visible = True
-                e.Row.FCButton("BtnSerieLote").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°1", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec"))
+                e.Row.FCButton("BtnSerie").Visible = True
+                e.Row.FCButton("BtnSerie").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°1", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec"))
                 e.Row.FCLinkButton("BtnSeriePaquete").CommandArgument = e.Row.DBCampo("Consec")
                 'Dim Contador = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", e.Row.DBCampo("Consec"))).Rows.Count
                 'e.Row.FCTextBox("TbCantidadF").Text = Contador.ToString
@@ -727,7 +727,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
                 GvDatosArmado.Columns(4).Visible = True
 
             Else
-                e.Row.FCButton("BtnSerieLote").Visible = False
+                e.Row.FCButton("BtnSerie").Visible = False
             End If
 
             ''FUNCIONALIDAD PISTOLA DE CODIGOS
@@ -744,10 +744,10 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             If e.Row.DBCampo("Inv_CveMetodoInventario") = "5" Then
-                e.Row.FCButton("BtnSerieLote").Visible = True
-                e.Row.FCButton("BtnSerieLote").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°2", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec"))
+                e.Row.FCButton("BtnSerie").Visible = True
+                e.Row.FCButton("BtnSerie").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°2", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec"))
             Else
-                e.Row.FCButton("BtnSerieLote").Visible = False
+                e.Row.FCButton("BtnSerie").Visible = False
             End If
 
 
@@ -770,7 +770,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
             DtDatosDetalle.Columns.Add("SeriePaquete", GetType(String))
         End If
     End Sub
-    Protected Sub BtnSerieLote_Click(sender As Object, e As EventArgs)
+    Protected Sub BtnSerie_Click(sender As Object, e As EventArgs)
 
         Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c)
 

Inventarios/RecepcionAlmacen.aspx.vb

@@ -1019,7 +1019,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 CveImportacionSurtir = pCveImportacion
                 CveImportacionProveedor = ddlProveedor.SelectedValue.ToEntero
                 CveImportacionCompra = DdlFactura.SelectedValue.ToEntero
-                LbProveedor.Text = ObjCompras.DtResultados.Rows(0)("Aduanal").ToString
+                LbProveedor.Text = ObjCompras.DtResultados.Rows(0)("ProveedorCompra").ToString
                 HLFolio.Text = ObjCompras.DtResultados.Rows(0)("PedimentoDescripcion").ToString
                 If UsuarioActual.TienePermisoProceso(201) Then
                     HLFolio.NavigateUrl = $"/Compras/Importaciones.aspx?CveImportacion={CveImportacionSurtir}"
@@ -3100,12 +3100,13 @@ Partial Class Inventarios_RecepcionAlmacen
         End If
         Dim CvePrePoliza As Integer = 0
         Dim UsaComplementariaCostoIndirecto As Boolean = False
+        Dim ConceptoPrePoliza As String = LbProveedor.Text
         If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaCostoIndirecto = False
         Dim PorcentajeCompraImportacion As Decimal = 0 ' si hay mas de una factura de importación saber lo que se está recibiendo
 
         'SE REGISTRAN LAS PREPOLIZAS
         If Not ErrorMovInv Then
-            CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen CostoInd", 74, 0, 0, 1, FechaMovto, TxtObservaciones.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen CostoInd", 74, 0, 0, 1, FechaMovto, ConceptoPrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
             Dim DtTempCompras As DataTable = Nothing
             PorcentajeCompraImportacion = 1
             If CveFleteSurtir > 0 Then

Inventarios/RepMovimientosSalida.aspx

@@ -63,21 +63,68 @@
                                 <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
                                 <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
+                             <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                             <div runat="server" id="DivSubProyecto" class="col-md-2">
+                           
+                             <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList> 
                         </div>
+                            <label runat="server" id="LblGripo" class="col-md-1 truncate">Grupo:</label>
+                             <div runat="server" id="Div1" class="col-md-1">                           
+                             <asp:DropDownList ID="DdlGrupo" runat="server"  Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Detalle" Value="1"></asp:ListItem>
+                                 <asp:ListItem   Text="Cliente" Value="2"></asp:ListItem>
+                                 <asp:ListItem   Text="Cliente sin desglosar mostrador" Value="3"></asp:ListItem>
+                                 <asp:ListItem   Text="Centro Costo" Value="4"></asp:ListItem>
+                                  <asp:ListItem   Text="Clasificaciones" Value="5"></asp:ListItem>
+                                  <asp:ListItem   Text="Centro Costo-Clasificaciones" Value="6"></asp:ListItem>
+                                  <asp:ListItem   Text="Clasificaciones-Centro Costo" Value="7"></asp:ListItem>
+                            </asp:DropDownList> 
+                        </div>
+                       
+                        </div>
+                       
                     </div>
                 </div>
-                <div class="portlet-body">
+                <div class="portlet-body" style="display: none">
+                      
+                          <div class="row">
+                               <label class="col-md-1 ">Cliente:</label>
+                        <div class="col-md-2">
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
+                            </ADS:Dropdownlost>
+                        </div>
+                                <label class="col-md-1 truncate">Clasificación:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlClasificacion" AutoPostBack="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Style="width: 100%">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        </div> 
                 </div>
-            </div>
+            </div> 
+             <div class="row">
+             <div class="col-md-12" style="vertical-align: middle;" align="left">
+                            <div style="z-index: 5; position: relative;">
+                                <div id="DivVirtualAdvertencia"  clientidmode="Static" runat="server" class="alert alert-warning" style="padding: 5px; margin-bottom: 5px; padding-right: 25px;">
+                                    <button type="button" class="close" data-dismiss="alert" style="margin-top: 5px;" aria-hidden="true"></button>
+                                    <strong style="font-size: 20px; margin-right: 25px;">Información: </strong>
+                                    <asp:Literal Text="Los importes de venta, hacen referencia a los productos que tienen costo" runat="server"></asp:Literal>
+                                </div>
+                            </div>
+                 </div></div>
         </ContentTemplate>
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
+           
+                        
             <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>
-            <table class="table  Widthall ">
+            <table class="table  Widthall " id="TbDetalle" runat="server">
                 <tr>
                     <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 55%; border-right: 3px solid white;">Ventas</td>
                     <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 45%; border-right: 3px solid white;">Movimientos</td>
@@ -94,6 +141,13 @@
                     <asp:BoundField DataField="Importe" ItemStyle-HorizontalAlign="Right" HeaderText="Importe" DataFormatString="{0:N2}" />
                 </Columns>
             </asp:GridView>
+             <asp:GridView ID="GvGrupo" runat="server" GridLines="None" ShowHeaderWhenEmpty="true" EmptyDataText="No se han encontrado datos con los filtros seleccionados" OnRowDataBound="GvGrupo_RowDataBound" CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="99%" data-sort="true" AutoGenerateColumns="False">
+                <Columns>
+                    <asp:BoundField DataField="Grupo" HeaderText="Grupo"   ItemStyle-Width="700px" />
+                    <asp:BoundField DataField="SubTotal" ItemStyle-HorizontalAlign="Right" HeaderText="Ventas" DataFormatString="{0:N2}" />
+                    <asp:BoundField DataField="Importe" ItemStyle-HorizontalAlign="Right" HeaderText="Costo" DataFormatString="{0:N2}" />
+                </Columns>
+            </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>

Inventarios/RepMovimientosSalida.aspx.cs

@@ -16,18 +16,50 @@ public partial class Inventarios_RepMovimientosSalida : ClsPaginas
         if (!IsPostBack)
         {
             InicializaValores();
+        }
+    }
+
+    private void InicializaValores()
+    {
+        txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
+        txtFechaF.Text = DateTime.Now.ToShortDateString();
+        DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa);
+        DdlSubProyecto.DataBind();
 
         //Cargo Clasificaciones
         DdlClasificacion.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa);
         DdlClasificacion.DataBind();
+
+        DdlClientes.setEsWebService(true);
+
+    }
+
     private void Consulta()
-        txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
+    {
         int tCveCliente = -1;
-    }
+        int tCveGrupo = -1;
+        if (DdlClientes.SelectedValue.ToEntero() > 0) tCveCliente = DdlClientes.SelectedValue.ToEntero();
+        if (DdlGrupo.SelectedValue.ToEntero() > 0) tCveGrupo = DdlGrupo.SelectedValue.ToEntero();
+
         ClsInventarios ObjInv = new ClsInventarios();
         if (ObjInv.GetRepMovimientosSalida(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlSubProyecto.SelectedValue.ToEntero(), tCveCliente, DdlClasificacion.SelectedValue.ToEntero(), DdlGrupo.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa))
         {
+            if (tCveGrupo == 1)
                 GvDatos.DataSource = ObjInv.DtResultados;
+            else
+                GvGrupo.DataSource = ObjInv.DtResultados;
+        }
+        ObjInv.Dispose();
+        GvDatos.DataBind();
+        GvGrupo.DataBind();
+        UpDatos.Update();
+
+        if (DdlGrupo.SelectedValue == "1")
+        {
+            TbDetalle.Visible = true;
+            GvDatos.Visible = true;
+            GvGrupo.Visible = false;
+        }
         else
         {
             TbDetalle.Visible = false;
@@ -48,6 +80,25 @@ public partial class Inventarios_RepMovimientosSalida : ClsPaginas
         {
             if (e.Row.RowIndex == 0)
             {
+                e.Row.Cells[0].Text = "Total";
+                e.Row.CssClass = "Totales";
+            }
+        }
+    }
+
+
+    protected void GvGrupo_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+        if (e.Row.RowType == DataControlRowType.DataRow)
+        {
+            if (e.Row.RowIndex == 0)
+            {
+                e.Row.Cells[0].Text = "Total";
+                e.Row.CssClass = "Totales";
+            }
+            else
+            {
+                if (e.Row.DBCampo("Grupo2") == "" && e.Row.DBCampo("Grupo1") != "")
                 {
                     e.Row.CssClass = "SubTotales";
                 }
@@ -55,6 +106,14 @@ public partial class Inventarios_RepMovimientosSalida : ClsPaginas
         }
     }
 
-    public override void VerifyRenderingInServerForm(Control control)
+    public override void VerifyRenderingInServerForm(Control control)
+    {
+        //base.VerifyRenderingInServerForm(control);
+    }
+
+    protected void LnkExcel_Click(object sender, EventArgs e)
+    {
+        if (DdlGrupo.SelectedValue == "1")
+        {
             GvDatos.ExportToExcelG("Movimientos de Salida", "Movimientos de Salida", UsuarioActual);
         }

Inventarios/ResguardoMaterial.aspx

@@ -208,7 +208,7 @@
                                     <th width="40%">Clasificación<br />
                                         Producto </th>
                                     <th width="10%">U.M.</th>
-                                    <th style="width: 20%" runat="server" id="ThSerie" visible="false">Serie - Lote</th>
+                                    <th style="width: 20%" runat="server" id="ThSerie" visible="false">Serie</th>
                                     <th style="width: 10%;">Observaciones</th>
                                     <th width="10%"></th>
                                 </tr>

Inventarios/ResguardoMaterial.aspx.vb

@@ -84,22 +84,6 @@ Partial Class Inventarios_ResguardoMaterial
     End Property
 
 
-    Private Property DtSeccionAlmacen As DataTable
-        Get
-            Return CType(ViewState("DtSeccionAlmacen"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtSeccionAlmacen") = value
-        End Set
-    End Property
-    Private Property IndexSeccionAlmacen As Integer
-        Get
-            Return CType(ViewState("IndexSeccionAlmacen"), Integer)
-        End Get
-        Set(value As Integer)
-            ViewState("IndexSeccionAlmacen") = value
-        End Set
-    End Property
     Private Property CantidadTotal As Decimal
         Get
             Return CType(ViewState("CantidadTotal"), Decimal)
@@ -174,7 +158,6 @@ Partial Class Inventarios_ResguardoMaterial
         GvM.DataBind()
 
         CantidadTotal = 0
-        IndexSeccionAlmacen = 0
         CvePS = 0
         TipoSeccionAlmacen = 0
 
@@ -379,7 +362,7 @@ Partial Class Inventarios_ResguardoMaterial
 #End Region
 
 
-#Region "  EISTENCIAS  "
+#Region "  EXISTENCIAS  "
     Private Function GetExistencias(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, CveAlmacen As Integer, Optional Serie As String = "-1") As Double
         Dim Inv As New ClsInventarios
         Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, CveEmpresa, CveAlmacen, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Serie)
@@ -481,10 +464,10 @@ Partial Class Inventarios_ResguardoMaterial
 
     Protected Sub GvM_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
-            If DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {e.Row.RowIndex}").SUMD("CantidadSeccionAlmacen") > 0 Then
-                e.Row.FCLinkButton("lnkRemove").Visible = False
-                e.Row.FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen"
-            End If
+            'If DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {e.Row.RowIndex}").SUMD("CantidadSeccionAlmacen") > 0 Then
+            '    e.Row.FCLinkButton("lnkRemove").Visible = False
+            '    e.Row.FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen"
+            'End If
         End If
     End Sub
 #End Region
@@ -502,7 +485,6 @@ Partial Class Inventarios_ResguardoMaterial
 
         DdlAlmacen.SelectedValueExist("-1")
         DdlAlmacenDestino.SelectedValueExist("-1")
-        DtSeccionAlmacen.Rows.Clear()
 
         TxtObservaciones.Text = ""
         TxtFecha.Text = Now.ToShortDateString
@@ -595,8 +577,6 @@ Partial Class Inventarios_ResguardoMaterial
             FechaLiberacion = TxtFechaLiberacion.Text
             BtnGuardarLiberacion.Visible = True
 
-            DtSeccionAlmacen.Rows.Clear()
-
             UpGeneralesLibreacion.Update()
         Else
             Alert("Ocurrió un error al cargar los resguardos del personal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
@@ -633,8 +613,6 @@ Partial Class Inventarios_ResguardoMaterial
         LbFechaLiberacion.Text = ""
         FechaLiberacion = ""
         BtnGuardarLiberacion.Visible = False
-        DtSeccionAlmacen.Rows.Clear()
-
         DdlAlmacenDestinoLiberacion.SelectedValue = "-1"
         TxtObservacionesLiberacion.Text = ""
 
@@ -685,14 +663,6 @@ Partial Class Inventarios_ResguardoMaterial
             Alert(TextoExistencia.ToString, TipoMensaje.MsgError)
         End If
 
-        Dim TotalCantidad As Double = DtMovimientos.SUMD("Cantidad")
-        If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then
-            If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 1").SUMD("CantidadSeccionAlmacen") Then
-                Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
-            End If
-        End If
-
         Guardar(23)
 
     End Sub
@@ -724,13 +694,6 @@ Partial Class Inventarios_ResguardoMaterial
             Exit Sub
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then
-            If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 2").SUMD("CantidadSeccionAlmacen") Then
-                Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
-            End If
-        End If
-
         Guardar(24)
 
 
@@ -824,7 +787,7 @@ Partial Class Inventarios_ResguardoMaterial
                 Dim Cont As Integer = 0
                 For Each Gvr As GridViewRow In GvMLiberacion.Rows
                     If Gvr.FCTextBox("TxtCantidad").Text.ToDouble > 0 Then
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, Gvr.DataKey("SerieLote").ToString, Gvr.DataKey("Observaciones").ToString) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, Gvr.DataKey("Serie").ToString, Gvr.DataKey("Observaciones").ToString) Then
                             MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
                             TieneError = True
                             Exit For
@@ -846,7 +809,7 @@ Partial Class Inventarios_ResguardoMaterial
                         If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                             Cont = 0
                             For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Dr("Observaciones").ToString) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("Serie").ToString, Dr("Observaciones").ToString) Then
                                     TieneError = True
                                     MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
                                     Exit For

Metronic/assets/admin/layout/css/custom.css

@@ -2656,7 +2656,14 @@ select.select2-offscreen, select.select2-offscreen:focus {
     content: "Arrastre el archivo";
     color: #808080;
     font-size: 30px;
-    margin-top: 80px;
+    margin-top: 15px;
+}
+.addropzone.dz-clickable:after {
+    position: absolute;
+    content: "o presione doble click";
+    color: #808080;
+    font-size: 30px;
+    margin-top: 45px;
 }
 
 .mypaste {

Nomina/Nomina2.aspx

@@ -70,26 +70,29 @@
     <asp:UpdatePanel ID="UpAccciones" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
-                <asp:HyperLink ID="HypModalNomina" data-target="#DModalNominas" data-toggle="modal" runat="server"><i class="fa fa-upload" aria-hidden="true"></i>Cargar Nomina</asp:HyperLink>
+                <asp:LinkButton ID="LnkAutorizar" OnClick="LnkAutorizar_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Autorizar nómina</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkVerTablas" OnClick="LnkVerTablas_Click" runat="server"><i class="fa fa-columns" aria-hidden="true"></i>Tablas</asp:LinkButton>
+                <asp:LinkButton ID="LnkCargaAsistenciaMasiva" OnClick="LnkCargaAsistenciaMasiva_Click" runat="server"><i class="fa fa-check" aria-hidden="true"></i>Carga masiva de Asistencia</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkAutorizar" OnClick="LnkAutorizar_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Autorizar</asp:LinkButton>
+                <asp:LinkButton ID="LnkListaRaya" OnClick="LnkListaRaya_Click" runat="server"><i class="fa fa-file-text" aria-hidden="true"></i>Lista de raya</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkCargaAsistenciaMasiva" OnClick="LnkCargaAsistenciaMasiva_Click" runat="server"><i class="fa fa-check" aria-hidden="true"></i>Carga Asistencia</asp:LinkButton>
+                <asp:HyperLink ID="HypModalNomina" data-target="#DModalNominas" data-toggle="modal" runat="server"><i class="fa fa-upload" aria-hidden="true"></i>Cargar masiva de conceptos</asp:HyperLink>
             </li>
             <li>
-            <asp:HyperLink ID="HypAsistencia" NavigateUrl="/RH/Asistencias.aspx" runat="server"><i class="fa fa-list" aria-hidden="true"></i>Asistencia</asp:HyperLink>
+                <asp:LinkButton ID="LnkVerTablas" OnClick="LnkVerTablas_Click" runat="server"><i class="fa fa-columns" aria-hidden="true"></i>Tablas de cálculo</asp:LinkButton>
+            </li>
+            <li>
+                <asp:HyperLink ID="HypAsistencia" NavigateUrl="/RH/Asistencias.aspx" runat="server"><i class="fa fa-list" aria-hidden="true"></i>Ir a asistencia</asp:HyperLink>
             </li>
         </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LnkListaRaya" />
+        </Triggers>
     </asp:UpdatePanel>
 
-    <li>
-        <asp:LinkButton ID="LnkListaRaya" OnClick="LnkListaRaya_Click" runat="server"><i class="fa fa-file-text" aria-hidden="true"></i>Lista de Raya</asp:LinkButton>
-    </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
@@ -209,7 +212,7 @@
                                 </div>
                             </div>
                             <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
-                                <asp:GridView ID="GvNominas" runat="server" DataKeyNames="CvePeriodo,CvePersonal,CveNomina,SeTimbro,SerieFolio,Nombre,Correo,Turno,SubProyecto" AutoGenerateColumns="False" OnRowDataBound="GvNominas_RowDataBound"
+                                <asp:GridView ID="GvNominas" runat="server" DataKeyNames="CvePeriodo,CvePersonal,CveNomina,SeTimbro,SerieFolio,Nombre,Correo,Turno,SubProyecto,NomAutorizado" AutoGenerateColumns="False" OnRowDataBound="GvNominas_RowDataBound"
                                     CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" Style="text-align: center;" GridLines="None"
                                     data-rows="1">
                                     <Columns>
@@ -402,10 +405,12 @@
                                 <div class="row">
                                     <div class="col-md-2 bold">No. Trabajador</div>
                                     <div class="col-md-4">
-                                        <asp:Label ID="LblCodigoEmpleado" runat="server"></asp:Label></div>
+                                        <asp:Label ID="LblCodigoEmpleado" runat="server"></asp:Label>
+                                    </div>
                                     <div class="col-md-2 bold">Días Trabajados</div>
                                     <div class="col-md-4">
-                                        <asp:Label ID="LblDiasLaborados" runat="server"></asp:Label></div>
+                                        <asp:Label ID="LblDiasLaborados" runat="server"></asp:Label>
+                                    </div>
                                 </div>
                                 <div class="row">
                                     <div class="col-md-2 bold">Afi IMSS </div>
@@ -414,39 +419,48 @@
                                     </div>
                                     <div class="col-md-2 bold">Faltas</div>
                                     <div class="col-md-4">
-                                        <asp:Label ID="LblDiasFaltados" runat="server"></asp:Label></div>
+                                        <asp:Label ID="LblDiasFaltados" runat="server"></asp:Label>
+                                    </div>
                                 </div>
                                 <div class="row">
                                     <div class="col-md-2 bold">R.F.C.</div>
                                     <div class="col-md-4">
-                                        <asp:Label ID="LblRFC" runat="server"></asp:Label></div>
+                                        <asp:Label ID="LblRFC" runat="server"></asp:Label>
+                                    </div>
                                     <div class="col-md-2 bold">Retardos</div>
                                     <div class="col-md-4">
-                                        <asp:Label ID="LblDiasRetardos" runat="server"></asp:Label></div>
+                                        <asp:Label ID="LblDiasRetardos" runat="server"></asp:Label>
+                                    </div>
                                 </div>
                                 <div class="row">
                                     <div class="col-md-2 bold">Curp</div>
                                     <div class="col-md-4">
-                                        <asp:Label ID="LblCURP" runat="server"></asp:Label></div>
+                                        <asp:Label ID="LblCURP" runat="server"></asp:Label>
+                                    </div>
                                     <div class="col-md-2 bold">Días Vacaciones</div>
                                     <div class="col-md-4">
-                                        <asp:Label ID="LblDiasVacaciones" runat="server"></asp:Label></div>
+                                        <asp:Label ID="LblDiasVacaciones" runat="server"></asp:Label>
+                                    </div>
                                 </div>
                                 <div class="row">
                                     <div class="col-md-2 bold">Tipo de Pago</div>
                                     <div class="col-md-4">
-                                        <asp:Label ID="LblTipoPeriodo" runat="server"></asp:Label></div>
+                                        <asp:Label ID="LblTipoPeriodo" runat="server"></asp:Label>
+                                    </div>
                                     <div class="col-md-2 bold">Días Incapacidad</div>
                                     <div class="col-md-4">
-                                        <asp:Label ID="LblDiasIncapacidad" runat="server"></asp:Label></div>
+                                        <asp:Label ID="LblDiasIncapacidad" runat="server"></asp:Label>
+                                    </div>
                                 </div>
                                 <div class="row">
                                     <div class="col-md-2 bold">Fecha de Pago</div>
                                     <div class="col-md-4">
-                                        <asp:Label ID="LblFechaPagosrb" runat="server"></asp:Label></div>
+                                        <asp:Label ID="LblFechaPagosrb" runat="server"></asp:Label>
+                                    </div>
                                     <div class="col-md-2 bold">Periodo del</div>
                                     <div class="col-md-4">
-                                        <asp:Label ID="LblFecha" runat="server"></asp:Label></div>
+                                        <asp:Label ID="LblFecha" runat="server"></asp:Label>
+                                    </div>
                                 </div>
                             </div>
                         </div>
@@ -951,6 +965,20 @@
                     </div>
                     <div class="modal-body">
 
+                        <div class="portlet light smmallpadding bordered">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="fa fa-download font-green"></i>
+                                    <span class="caption-subject bold uppercase">Paso 1: Descargar Plantilla</span>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body rowpadding text-center">
+                                <asp:LinkButton ID="LnkFormato" OnClick="LnkFormato_Click" CssClass="btn btn-success" runat="server"><i class="fa fa-download"></i> Descargar Plantilla</asp:LinkButton>
+                            </div>
+                        </div>
                         <%--                        -recuerda Solo editar de las tercer fila en adelante.<br />
                         -No se debe editar el nombre de la hoja 'Nomina'.<br />
                         -la columna para referenciar al emplado es la primer columna 'Codigo', la columna empleado es solo es informativa.<br />
@@ -958,24 +986,38 @@
                         -si no desea  insertar un concepto puede borrar la columna.<br />
                         -no se debe borrar la columna codigo.<br />--%>
 
-                        <asp:TextBox ID="TxtArchivoNomina" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                        <div class="portlet light smmallpadding bordered">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="fa fa-upload font-green"></i>
+                                    <span class="caption-subject bold uppercase">Paso 2: cargar plantilla </span>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body rowpadding ">
+                                <asp:TextBox ID="TxtArchivoNomina" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                            </div>
+                        </div>
                     </div>
 
                     <div class="modal-footer">
                         <asp:UpdatePanel runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
                                 <asp:LinkButton ID="LnkFormatoEmpleados" OnClick="LnkFormatoEmpleados_Click" Visible="false" CssClass="btn btn-succes" runat="server">Formato</asp:LinkButton>
-                                <asp:LinkButton ID="LnkFormato" OnClick="LnkFormato_Click" CssClass="btn btn-success" runat="server">Formato</asp:LinkButton>
-                                <asp:LinkButton ID="LnkCargarNomina" OnClick="LnkCargarNomina_Click" CssClass="btn btn-primary" runat="server">cargar</asp:LinkButton>
+                                <asp:LinkButton ID="LnkCargarNomina" OnClick="LnkCargarNomina_Click" CssClass="btn btn-primary" runat="server">Procesar</asp:LinkButton>
                             </ContentTemplate>
                             <Triggers>
                                 <asp:PostBackTrigger ControlID="LnkFormatoEmpleados" />
-                                <asp:PostBackTrigger ControlID="LnkFormato" />
                             </Triggers>
                         </asp:UpdatePanel>
                     </div>
                 </div>
             </ContentTemplate>
+            <Triggers>
+                <asp:PostBackTrigger ControlID="LnkFormato" />
+            </Triggers>
         </asp:UpdatePanel>
     </div>
 
@@ -990,14 +1032,14 @@
                         <h4 class="modal-title" runat="server" style="text-align: left">Cargar asistencia del periodo</h4>
                     </div>
                     <div class="modal-body">
-                        
-                        <div class="form-group form-md-line-input" >
-                                <asp:DropDownList ID="DdlEjerciciosCM" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlEjerciciosCM_SelectedIndexChanged" Style="width: 100% !important;" CssClass="select2me" DataValueField="Ejercicio" DataTextField="Ejercicio"></asp:DropDownList>
-                           
+
+                        <div class="form-group form-md-line-input">
+                            <asp:DropDownList ID="DdlEjerciciosCM" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlEjerciciosCM_SelectedIndexChanged" Style="width: 100% !important;" CssClass="select2me" DataValueField="Ejercicio" DataTextField="Ejercicio"></asp:DropDownList>
+
                             <asp:Label runat="server" AssociatedControlID="DdlEjerciciosCM">Ejercicio:</asp:Label>
                         </div>
                         <div class="form-group form-md-line-input">
-                            <asp:DropDownList ID="DdlTipoPeriodoCM" runat="server"  AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPeriodoCM_SelectedIndexChanged" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="form-control select2me input-sm" Style="width: 100% !important;">
+                            <asp:DropDownList ID="DdlTipoPeriodoCM" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPeriodoCM_SelectedIndexChanged" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="form-control select2me input-sm" Style="width: 100% !important;">
                             </asp:DropDownList>
                             <asp:Label runat="server" AssociatedControlID="DdlTipoPeriodoCM">Tipo:</asp:Label>
                         </div>

Nomina/Nomina2.aspx.cs

@@ -625,6 +625,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             int CvePeriodo = e.Row.DataKey("CvePeriodo").ToEntero();
             int CveNomina = e.Row.DataKey("CveNomina").ToEntero();
             string SeTimbro = e.Row.DataKey("SeTimbro").ToString();
+            string NomAutorizado = e.Row.DataKey("NomAutorizado").ToString();
             string Nombre = e.Row.DataKey("Nombre").ToString();
             string Turno = e.Row.DataKey("Turno").ToString();
             string SubProyecto = e.Row.DataKey("SubProyecto").ToString();
@@ -634,15 +635,24 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 LtlNombre.Text = String.Format("<a class=\"Texto\" href=\"/RH/Personal.aspx?CvePersonal={0}\">{1}</a>", cvePersonal, Nombre);
                 if (CveNomina > 0)
                 {
-                    if (SeTimbro == "False")
+                    if (NomAutorizado == "False")
                     {
-                        LnkTimbrar.Visible = true;
-                        e.Row.CssClass = "info";
+
 
                     }
                     else
                     {
-                        e.Row.CssClass = "success";
+                        if (SeTimbro == "False")
+                        {
+                            LnkTimbrar.Visible = true;
+                            e.Row.CssClass = "info";
+
+                        }
+                        else
+                        {
+                            e.Row.CssClass = "success";
+                        }
+
                     }
 
                 }

OC/RepSolicitudesAnticipo.aspx

@@ -16,6 +16,9 @@
     <li>
         <asp:LinkButton ID="LnkExcel" OnClick="LnkExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Exporta Excel</asp:LinkButton>
     </li>
+    <li>
+        <asp:LinkButton ID="LnkImpresionMasiva" OnClick="LnkImpresionMasiva_Click" runat="server"> <i class="fa fa-download" style="font-weight:bold;"></i>  Descargar PDFs</asp:LinkButton>
+    </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
 </asp:Content>
@@ -34,7 +37,8 @@
 
                             <label class="col-md-1 " runat="server" style="margin-top: 5px; font-size:12px;">Proveedor:</label>
                             <div class="col-md-2" runat="server">
-                                <asp:DropDownList ID="DdlProveedor" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%"></asp:DropDownList>
+                                <%--<asp:DropDownList ID="DdlProveedor" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%"></asp:DropDownList>--%>
+                                <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" Width="100%" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
                             </div>
 
                             <label class="col-md-1 " runat="server" style="margin-top: 5px; font-size:12px;">Fecha Inicio:</label>
@@ -92,7 +96,7 @@
                     <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvSolicitudes.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                 </div>
             </div>
-            <asp:GridView ID="GvSolicitudes" runat="server" GridLines="None" DataKeyNames="Folio, RazonSocial, ImporteSol, FolioMov, Importe, Nombre"
+            <asp:GridView ID="GvSolicitudes" runat="server" GridLines="None" DataKeyNames="CveOrdenCompra,Folio, RazonSocial, ImporteSol, FolioMov, Importe, Nombre"
                 CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" data-footer="0" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False"
                 EmptyDataText="No se encontraron registros">
                 <Columns>

OC/RepSolicitudesAnticipo.aspx.cs

@@ -9,7 +9,11 @@ using System.Web.UI.WebControls;
 using Extensiones;
 using Microsoft.Reporting.WebForms;
 using static Extensiones.ModExtensiones;
-
+using iTextSharp;
+using iTextSharp.text;
+using iTextSharp.text.pdf;
+using System.IO;
+using Ionic.Zip;
 public partial class OC_RepSolicitudesAnticipo : ClsPaginas
 {
     #region "Propiedades"
@@ -66,6 +70,8 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
 
     protected void InicializaDatos()
     {
+        txtFechaI.Text = DateTime.Now.AddMonths(-1).FirstDayOfMonth().ToShortDateString();
+        txtFechaF.Text = DateTime.Now.ToShortDateString();
         CveProveedor = -1;
         CargaProveedor();
         CargaDatos();
@@ -73,17 +79,17 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
 
     protected void CargaProveedor()
     {
-        DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
-        DdlProveedor.DataBind();
-        DdlProveedor.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlProveedor.SelectedValue = "-1";
+        DdlProveedores.setEsWebService(true);
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores");
+        DdlProveedores.SelectedText = "Seleccione";
+        DdlProveedores.SelectedValue = "-1";
     }
 
     protected void CargaDatos()
     {
         ClsOC ObjOC = new ClsOC();
 
-        CveProveedor = DdlProveedor.SelectedValue.ToEntero();
+        CveProveedor = DdlProveedores.SelectedValue.ToEntero();
         FechaI = (txtFechaI.Text.ToString() != "" ? txtFechaI.Text.ToDateTime() : MinFecha);
         FechaF = (txtFechaF.Text.ToString() != "" ? txtFechaF.Text.ToDateTime() : DateTime.Now);
 
@@ -124,6 +130,10 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
     {
         GenerarPDF("PDF");
     }
+    protected void LnkImpresionMasiva_Click(object sender,EventArgs e)
+    {
+        GenerarImpresionMasiva();
+    }
 
     protected void GenerarPDF(String Opcion)
     {
@@ -132,7 +142,7 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
         String FechaF;
         if (txtFechaF.Text == "" || txtFechaF.Text == "__/__/____") { FechaF = ""; } else { FechaF = $"&emsp;<b>Fecha Final:</b> {txtFechaF.Text}"; }
         String Proveedor;
-        if (DdlProveedor.SelectedValue != "-1") { Proveedor = $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedItem.Text}"; } else { Proveedor = ""; }
+        if (DdlProveedores.SelectedValue != "-1") { Proveedor = $"&emsp;<b>Proveedor:</b> {DdlProveedores.ddl.SelectedItem.Text}"; } else { Proveedor = ""; }
         String Estatus;
         if (DdlEstatus.SelectedValue != "1") { Estatus = $"&emsp;<b>Estatus:</b> {DdlEstatus.SelectedItem.Text}"; } else { Estatus = ""; }
 
@@ -161,4 +171,38 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
             Alert("No hay datos consultados", ModExtensiones.TipoMensaje.MsgAdvertencia);
         }
     }
+
+    private void GenerarImpresionMasiva()
+    {
+        
+        byte[] all;
+
+        using (MemoryStream ms = new MemoryStream())
+        {
+            using (Document d = new Document())
+            {
+                using (PdfCopy copy = new PdfCopy(d,ms))
+                {
+                    d.Open();
+                    foreach (GridViewRow Gvr in GvSolicitudes.Rows)
+                    {
+                        int CveOC = Gvr.DataKey("CveOrdenCompra").ToEntero();
+                        byte[] reporteByte = NewGeneraBytesOC(CveOC);
+                        PdfReader reader = new PdfReader(reporteByte);
+                        int n = reader.NumberOfPages;
+                        int page = 0;
+                        while (page < n)
+                        {
+                            page++;
+                            copy.AddPage(copy.GetImportedPage(reader, page));
+                        }
+                    }
+                }
+
+            }
+            all = ms.ToArray();
+        }
+        ImprimirbytesPDF(all, "RepSolicitudesAnticipo");
+        
+    }
 }

OI/ConvocatoriaDetalle.aspx.cs

@@ -519,7 +519,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
             CveEventoMinuta = CveEvento;
             LnkOpenModalAsistencia.Visible = true;
             UpAcciones.Update();
-            this.Alert(string.Format("Se ha iniciado la minuta<br /> para ir a la minuta <a href=\"/OI/MinutaDetalle.aspx?CveEvento={0}\">click aquí</a>", CveEvento), ModExtensiones.TipoMensaje.ToastInformacion, "", 0);
+            this.Alert(string.Format("Se ha iniciado la minuta, si desea ir a la minuta <a href=\"/OI/MinutaDetalle.aspx?CveEvento={0}\">Click Aquí</a>.", CveEvento), ModExtensiones.TipoMensaje.ToastInformacion, "", 0);
             LnkOpenModalAsistencia_Click(null, null);
         }
     }
@@ -561,7 +561,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
         {
             if (CveEventoMinuta > 0)
             {
-                Alert(string.Format("se ingresó la asistencia correctamente.<br /> para ir a la minuta <a href=\"/OI/MinutaDetalle.aspx?CveEvento={0}\">click aquí</a>", CveEventoMinuta));
+                Alert(string.Format("Se ingresó la asistencia correctamente, si desea ir a la minuta <a href=\"/OI/MinutaDetalle.aspx?CveEvento={0}\">Click Aquí</a>.", CveEventoMinuta));
             }
             else
             {

OI/MinutaDetalle.aspx

@@ -115,7 +115,7 @@
                             <div class="form-group form-md-line-input input-iconright">
                                 <asp:TextBox ID="TxtAsunto" runat="server" CssClass="form-control TxtAsunto" CausesValidation="true"></asp:TextBox>
                                 <asp:RequiredFieldValidator ID="RFVAsunto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAsunto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>
-                                <asp:Label runat="server" Text="Asunto:" AssociatedControlID="TxtAsunto"></asp:Label>
+                                <asp:Label runat="server" Text="Asunto" AssociatedControlID="TxtAsunto"></asp:Label>
                             </div>
                             <div class="form-group form-md-line-input">
                                 <asp:TextBox ID="TxtDescripcion" runat="server" CssClass="form-control TxtDescripcion" CausesValidation="true" TextMode="MultiLine" Rows="2"></asp:TextBox>
@@ -125,7 +125,7 @@
                             <asp:Panel ID="pnlmiembrosvista" Visible="false" runat="server">
                                 <div class="pnlCorreo" style="margin-bottom: 5px;">
                                     <div class="headerCorreo ">
-                                        <h3 class="panel-title ">Moderador:</h3>
+                                        <h3 class="panel-title ">Moderador</h3>
                                     </div>
                                     <div class="bodycorreos ">
                                         <asp:Literal ID="LtlDeUser" runat="server"></asp:Literal>
@@ -133,7 +133,7 @@
                                 </div>
                                 <div class="pnlCorreo" style="margin-bottom: 5px;">
                                     <div class="headerCorreo ">
-                                        <h3 class="panel-title ">Participantes:</h3>
+                                        <h3 class="panel-title ">Participantes</h3>
                                     </div>
                                     <div class="bodycorreos ">
                                         <asp:Literal ID="LtlCCPara" runat="server"></asp:Literal>
@@ -149,8 +149,8 @@
                     </asp:Panel>
                     <div class="text-center">
                         <asp:LinkButton ID="LnkGuardar" runat="server" OnClick="LnkGuardar_Click" CssClass="btn btn-primary">Guardar</asp:LinkButton>
-                        <asp:LinkButton ID="LnkEnviarMinuta" Visible="false" runat="server" OnClick="LnkEnviarMinuta_Click" CssClass="btn btn-primary">Enviar Minuta</asp:LinkButton>
-                        <asp:LinkButton ID="LnkTerminar_EnviarMinuta" Visible="false" runat="server" OnClick="LnkTerminarMinuta_Click" CssClass="btn btn-primary LnkTerminarMinuta">Terminar y Enviar Minuta</asp:LinkButton>
+                        <asp:LinkButton ID="LnkEnviarMinuta" Visible="false" runat="server" OnClick="LnkEnviarMinuta_Click" CssClass="btn btn-primary">Enviar minuta</asp:LinkButton>
+                        <asp:LinkButton ID="LnkTerminar_EnviarMinuta" Visible="false" runat="server" OnClick="LnkTerminarMinuta_Click" CssClass="btn btn-primary LnkTerminarMinuta">Terminar y enviar minuta</asp:LinkButton>
 
                     </div>
                 </div>
@@ -284,7 +284,7 @@
                                                         </div>
                                                         <div class="col-md-4">
                                                             <asp:Button ID="LnkSinfuncion" OnClick="LnkSinfuncion_Click" UseSubmitBehavior="false" CssClass="btn btn-default LnkSinfuncion hidden" runat="server"></asp:Button>
-                                                            <asp:LinkButton ID="LnkAgregarchklistitem" OnClick="LnkAgregarchklistitem_Click" CssClass="btn btn-default" runat="server">Agregar</asp:LinkButton>
+                                                            <asp:LinkButton ID="LnkAgregarchklistitem" OnClick="LnkAgregarchklistitem_Click" CssClass="btn btn-primary" runat="server">Agregar</asp:LinkButton>
                                                             <%--<a class="btn btn-default">Agregar</a>--%>
                                                         </div>
                                                     </div>
@@ -355,7 +355,7 @@
                                                 <div class="form-group form-md-line-input input-iconright">
                                                     <asp:TextBox ID="TxtTareaAsunto" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
                                                     <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtTareaAsunto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>
-                                                    <asp:Label runat="server" Text="Asunto:" AssociatedControlID="TxtTareaAsunto"></asp:Label>
+                                                    <asp:Label runat="server" Text="Asunto" AssociatedControlID="TxtTareaAsunto"></asp:Label>
                                                 </div>
                                                 <div class="form-group form-md-line-input">
                                                     <asp:TextBox ID="TxtTareaDescripcion" runat="server" CssClass="form-control" CausesValidation="true" TextMode="MultiLine" Rows="2"></asp:TextBox>
@@ -393,7 +393,7 @@
                                                                 <asp:ListItem Text="Alta" Value="3" class="itemalta"></asp:ListItem>
                                                             </asp:DropDownList>
                                                             <asp:RequiredFieldValidator ID="RFVPrioridad" runat="server" ControlToValidate="DdlTareaPrioridad" Display="None" ErrorMessage="El campo <b>''Prioridad''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>
-                                                            <asp:Label runat="server" AssociatedControlID="DdlTareaPrioridad">Prioridad:</asp:Label>
+                                                            <asp:Label runat="server" AssociatedControlID="DdlTareaPrioridad">Prioridad</asp:Label>
                                                             <ajax:ValidatorCalloutExtender ID="VCOPrio" runat="server" TargetControlID="RFVPrioridad" HighlightCssClass="vco" Width="300px"></ajax:ValidatorCalloutExtender>
                                                         </div>
                                                     </div>
@@ -402,7 +402,7 @@
                                                             <asp:DropDownList ID="DdlTareaPara" runat="server" CssClass="form-control select2me input-sm" DataValueField="CveUsuario" DataTextField="Nombre" Width="100%">
                                                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                                             </asp:DropDownList>
-                                                            <asp:Label runat="server" AssociatedControlID="DdlTareaPara">Para:</asp:Label>
+                                                            <asp:Label runat="server" AssociatedControlID="DdlTareaPara">Para</asp:Label>
                                                         </div>
                                                     </div>
                                                 </div>
@@ -529,7 +529,7 @@
                                                 <div class="form-group form-md-line-input input-iconright">
                                                     <asp:TextBox ID="TxtAgendaAsunto" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
                                                     <asp:RequiredFieldValidator ID="rfvAgendaAsunto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAgendaAsunto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgenda"></asp:RequiredFieldValidator>
-                                                    <asp:Label runat="server" Text="Asunto:" AssociatedControlID="TxtAgendaAsunto"></asp:Label>
+                                                    <asp:Label runat="server" Text="Asunto" AssociatedControlID="TxtAgendaAsunto"></asp:Label>
                                                 </div>
                                                 <div class="form-group form-md-line-input">
                                                     <asp:TextBox ID="TxtAgendaDescripcion" runat="server" CssClass="form-control" CausesValidation="true" TextMode="MultiLine" Rows="2"></asp:TextBox>
@@ -593,7 +593,7 @@
                                                     <asp:DropDownList ID="DdlAgendaPara" runat="server" CssClass="form-control select2me input-sm" DataValueField="CveUsuario" DataTextField="Nombre" Width="100%">
                                                         <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                                     </asp:DropDownList>
-                                                    <asp:Label runat="server" AssociatedControlID="DdlAgendaPara">Para:</asp:Label>
+                                                    <asp:Label runat="server" AssociatedControlID="DdlAgendaPara">Para</asp:Label>
                                                 </div>
                                             </div>
                                         </div>

OI/MinutaDetalle.aspx.cs

@@ -752,7 +752,7 @@ public partial class OI_MinutaDetalle : ClsPaginas
 
         objOI.IniciaTransacSQL();
 
-        tCveSeguimiento = objOI.AddEventoComentario2(RCveEvento, "Termino Minuta", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
+        tCveSeguimiento = objOI.AddEventoComentario2(RCveEvento, "Termino minuta.", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
 
         if (tCveSeguimiento > 0)
         {
@@ -774,7 +774,7 @@ public partial class OI_MinutaDetalle : ClsPaginas
             {
                 script = string.Format("location.replace(\"/OI/ConvocatoriaDetalle.aspx?CveEventoPadre={0}\");", RCveEvento);
             }
-            Alert("La minuta se termino con exito.", ModExtensiones.TipoMensaje.MsgInformacion, script);
+            Alert("La minuta ha finalizado.", ModExtensiones.TipoMensaje.MsgInformacion, script);
             objOI.Commit();
         }
         else
@@ -800,7 +800,7 @@ public partial class OI_MinutaDetalle : ClsPaginas
     protected void LnkEnviarMinuta_Click(object sender, EventArgs e)
     {
         EnviarMinuta();
-        Alert("La minuta se envió con exito.", ModExtensiones.TipoMensaje.MsgInformacion);
+        Alert("La minuta se envió por correo electronico.", ModExtensiones.TipoMensaje.MsgInformacion);
     }
 
     #region "enviarminuta"

OI/RepReuniones.aspx

@@ -20,10 +20,10 @@
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <li>
-        <asp:HyperLink runat="server" NavigateUrl="/OI/ConvocatoriaDetalle.aspx"><i class="fa fa-plus"></i>Nueva Convocatoria</asp:HyperLink>
+        <asp:HyperLink runat="server" NavigateUrl="/OI/ConvocatoriaDetalle.aspx"><i class="fa fa-plus"></i>Nueva convocatoria</asp:HyperLink>
     </li>
     <li>
-        <asp:HyperLink runat="server" NavigateUrl="/OI/MinutaDetalle.aspx"><i class="fa fa-plus"></i>Nueva Minuta</asp:HyperLink>
+        <asp:HyperLink runat="server" NavigateUrl="/OI/MinutaDetalle.aspx"><i class="fa fa-plus"></i>Nueva minuta</asp:HyperLink>
     </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
@@ -211,7 +211,7 @@
                                         <%--<asp:Literal ID="LtlParticipantes" runat="server" Text='<%# Eval("Participantes")%>'></asp:Literal>--%>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-                                <asp:BoundField HeaderText="Hora termino" DataField="FechaFin" DataFormatString="{0:HH:mm}" />
+                                <asp:BoundField HeaderText="Hora terminó" DataField="FechaFin" DataFormatString="{0:HH:mm}" />
                             </Columns>
                             <AlternatingRowStyle CssClass="TextoAlterno" />
                             <RowStyle CssClass="Texto" />

OI/RepTareas.aspx.vb

@@ -109,6 +109,7 @@ Partial Class OI_RepTareas
 
         If ObjProspectos.GetRepEventos(-1, -1, -1, "-1", "-1", -1, -1, -1, CveEventoEstatus, DdlRevision.SelectedValue.ToEntero, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF, TipoReporte:=TipoReporte) Then
             DTOIEventosTareas = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioPara = {0} AND CveTipoEvento IN (1,3)", UsuarioActual.CveUsuario))
+            DTOIEventosTareas = DTOIEventosTareas.FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa))
             ltlGrafMEasiginaron.Text = DTOIEventosTareas.Rows.Count.ToString()
             'BURBUJITAS - BADGE
             If DTOIEventosTareas.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then
@@ -176,6 +177,7 @@ Partial Class OI_RepTareas
 
         If ObjProspectos.GetEventosUsuarioCCP(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlRevision.SelectedValue.ToEntero, FechaI, FechaF, CveEventoEstatus) Then
             DTOIEventosTareasCCP = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioIng = {0} And CveTipoEvento In (1,3)", UsuarioActual.CveUsuario))
+            DTOIEventosTareasCCP = DTOIEventosTareasCCP.FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa))
             ltlgrafCcp.Text = DTOIEventosTareasCCP.Rows.Count.ToString()
             'BURBUJITAS - BADGE
             If DTOIEventosTareasCCP.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then
@@ -243,6 +245,7 @@ Partial Class OI_RepTareas
 
         If ObjProspectos.GetRepEventos(-1, -1, -1, "-1", "-1", -1, -1, -1, CveEventoEstatus, DdlRevision.SelectedValue.ToEntero, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF, TipoReporte:=TipoReporte) Then
             DTOIEventosTareasAsigne = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioIng = {0} And CveTipoEvento In (1,3)", UsuarioActual.CveUsuario))
+            DTOIEventosTareasAsigne = DTOIEventosTareasAsigne.FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa))
             ltlgrafAsigne.Text = DTOIEventosTareasAsigne.Rows.Count.ToString()
             'BURBUJITAS - BADGE
             If DTOIEventosTareasAsigne.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then

OI/TareaDetalle.aspx

@@ -124,6 +124,11 @@
                 height: 100%;
                 cursor: not-allowed;
             }
+            .porcentajelabel{
+               color: #ed5565;
+               font-size: 64px;
+               font-weight:bold;
+            }
     </style>
 
     <link href="/Metronic/assets/global/plugins/ion.rangeslider/css/ion.rangeSlider.css" rel="stylesheet" type="text/css" />
@@ -361,7 +366,10 @@
 
                                         <asp:Label runat="server" AssociatedControlID="DdlEventoEstatus">Estatus:</asp:Label>
                                     </div>
-                                    <asp:Label ID="lblEstatus" Style="font-size: 25px" runat="server" Text="Label"></asp:Label>
+                                    <asp:Label ID="lblEstatus" Style="font-size: 25px;position:absolute;" runat="server" Text="Label"></asp:Label>
+                                    <div class="text-right porcentajelabel">
+                                        <asp:Label ID="LblPorcentaje" CssClass="LblPorcentaje" runat="server" Text="0"></asp:Label>%
+                                    </div>
                                     <div class="DivAvance">
                                         <asp:Label runat="server" CssClass="labelitem" AssociatedControlID="TxtAvance">Avance:</asp:Label>
                                         <asp:TextBox ID="TxtAvance" runat="server" CssClass="form-control TxtAvance" CausesValidation="true"></asp:TextBox>
@@ -371,7 +379,7 @@
 
                                     <div class="form-group form-md-line-input input-iconright">
                                         <asp:TextBox ID="TxtFechaIng" Enabled="false" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
-                                        <asp:Label runat="server" Text="Fecha Registró" AssociatedControlID="TxtFechaIng"></asp:Label>
+                                        <asp:Label runat="server" Text="Fecha de registro" AssociatedControlID="TxtFechaIng"></asp:Label>
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright">
                                         <asp:TextBox ID="TxtUsuarioreg" Enabled="false" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
@@ -744,15 +752,20 @@
                             <asp:Literal ID="Literal4" runat="server">Agregar relación</asp:Literal></h4>
                     </div>
                     <div class="modal-body">
-                        <div class="form-group form-md-line-input">
-                            <asp:DropDownList ID="DdlViculos" Visible="true" AutoPostBack="true" OnSelectedIndexChanged="DdlViculos_SelectedIndexChanged" runat="server" CssClass="form-control select2me input-sm" Width="100%">
-                                <asp:ListItem Value="0" Text="Seleccione" Selected="True"></asp:ListItem>
-                                <%--<asp:ListItem Value="1" Text="Activo Fijo"></asp:ListItem>--%>
+                        <div  >
+                            <asp:Label runat="server" AssociatedControlID="DdlViculos">Relacionar Con:</asp:Label>
+                            <asp:RadioButtonList ID="DdlViculos" RepeatDirection="Horizontal" runat="server"  AutoPostBack="true" OnSelectedIndexChanged="DdlViculos_SelectedIndexChanged">
+                                
+                                <asp:ListItem Value="2" Selected="true" Text=" &nbsp;Cliente"></asp:ListItem>
+                                <asp:ListItem Value="3" Text=" &nbsp;Personal"></asp:ListItem>
+                                <asp:ListItem Value="4" Text=" &nbsp;Proveedor"></asp:ListItem>
+                            </asp:RadioButtonList>
+                            <%--<asp:DropDownList ID="DdlViculos" Visible="true" AutoPostBack="true" OnSelectedIndexChanged="DdlViculos_SelectedIndexChanged" runat="server" CssClass="form-control select2me input-sm" Width="100%">
+                                <asp:ListItem Value="0" Text="Seleccione" Selected="True"></asp:ListItem> 
                                 <asp:ListItem Value="2" Text="Cliente"></asp:ListItem>
                                 <asp:ListItem Value="3" Text="Personal"></asp:ListItem>
                                 <asp:ListItem Value="4" Text="Proveedor"></asp:ListItem>
-                            </asp:DropDownList>
-                            <asp:Label runat="server" AssociatedControlID="DdlViculos">Relacionar Con:</asp:Label>
+                            </asp:DropDownList>--%>
                         </div>
                         <asp:Panel ID="PnlActivoFijo" Visible="false" runat="server">
 
@@ -830,7 +843,7 @@
                             </asp:GridView>--%>
                         </asp:Panel>
 
-                        <asp:Panel ID="PnlCliente" CssClass="form-group form-md-line-input" Visible="false" runat="server">
+                        <asp:Panel ID="PnlCliente" CssClass="form-group form-md-line-input" Visible="true" runat="server">
                             <ADS:Dropdownlost ID="DdlCliente" UsaWebService="true" runat="server" CssStyle="width: 100%;" DataTextField="NombreComercial" DataValueField="CveCliente" CssClass="form-control"></ADS:Dropdownlost>
                             <asp:Label runat="server" AssociatedControlID="DdlCliente">Cliente:</asp:Label>
                             <%--                            <asp:GridView ID="GvClientes" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Clientes registrados"
@@ -1141,7 +1154,7 @@
                     step: .01,
                     //[disable]
                     onChange: (function () {
-                        setTimeout(function () { if ($(".TxtAvance").val() != Valorxyz) { avancecambio = 1 } }, 50);
+                        setTimeout(function () { let avance = $(".TxtAvance").val(); if ( avance != Valorxyz) { avancecambio = 1; $('.LblPorcentaje').text(avance)} }, 50);
                     })
                 });
             }

OI/TareaDetalle.aspx.cs

@@ -441,7 +441,8 @@ public partial class OI_TareaDetalle : ClsPaginas
                 BtnActualizarArchivo.Text = portletArchivo.Visible ? "Actualizar" : "Agregar";
                 CveUsuarioDe = drow["CveUsuarioDe"].ToString().ToEntero();
                 CveUsuarioPara = drow["CveUsuarioPara"].ToString().ToEntero();
-                TxtAvance.Text = string.Format("{0:##0}", drow["Avance"]);
+                TxtAvance.Text = string.Format("{0:##0.##}", drow["Avance"]);
+                LblPorcentaje.Text = string.Format("{0:##0.##}", drow["Avance"]);
                 TxtUsuarioreg.Text = string.Format("{0}", drow["NombreRegistro"]);
                 TxtFechaIng.Text = string.Format("{0:dd/MM/yyyy HH}:{0:mm}", drow["FechaIng"]);
                 //OIE.[CveEvento], OIE.[CveTipoEvento], OIE.[Folio], OIE.[Asunto], OIE.[Descripcion], OIE.[Prioridad], OIE.[CveUsuarioDe], OIE.[CveUsuarioPara], 
@@ -473,31 +474,31 @@ public partial class OI_TareaDetalle : ClsPaginas
 
                 if (CveCliente > 0)
                 {
-                    titulo = "Cliente: ";
+                    titulo = "Cliente ";
                     link = string.Format("<a href=\"/Ventas/Clientes.aspx?CveCliente={1}\" class=\"linkCorreo\">{0}</a>", drow["Cliente"], CveCliente);
 
                 }
                 else if (CveVenta > 0)
                 {
-                    titulo = "Venta: ";
+                    titulo = "Venta ";
                     link = string.Format("<a href=\"/Ventas/Ventas.aspx?CveVenta={1}\" class=\"linkCorreo\">{0} </a>", drow["Venta"], CveVenta);
 
                 }
                 else if (CveProveedor > 0)
                 {
-                    titulo = "proveedor: ";
+                    titulo = "Proveedor ";
                     link = string.Format("<a href=\"/Compras/Proveedores.aspx?CveProveedor={1}\" class=\"linkCorreo\">{0} </a>", drow["Proveedor"], CveProveedor);
 
                 }
                 else if (CveCompra > 0)
                 {
-                    titulo = "Compra: ";
+                    titulo = "Compra ";
                     link = string.Format("<a href=\"/Compras/Proveedores.aspx?CveProveedor={1}\" class=\"linkCorreo\">{0} </a>", drow["Compra"], CveCompra);
 
                 }
                 else if (CvePersonal > 0)
                 {
-                    titulo = "Personal: ";
+                    titulo = "Personal ";
                     link = string.Format("<a href=\"/RH/Personal.aspx?CvePersonal={1}\" class=\"linkCorreo\">{0} </a>", drow["NombreCompleto"], CvePersonal);
                 }
                 else if (CveActivoFijo > 0)
@@ -1269,7 +1270,8 @@ public partial class OI_TareaDetalle : ClsPaginas
             {
                 if (objoi.DtResultados.Rows.Count > 0)
                 {
-                    LtlTitulo.Text = objoi.DtResultados.Rows[0]["Titulo"].ToString();
+                    //LtlTitulo.Text = objoi.DtResultados.Rows[0]["Titulo"].ToString();
+                    LblPorcentaje.Text = string.Format("{0:##0.##}", TxtAvance.Text.ToDecimal());
                 }
                 cargaActividades(objoi);
 
@@ -1300,7 +1302,7 @@ public partial class OI_TareaDetalle : ClsPaginas
             this.Alert("Avance Actualizadó", ModExtensiones.TipoMensaje.ToastInformacion);
 
         }
-        UpTitulo.Update();
+        //UpTitulo.Update();
     }
 
     protected void LnkAddTtemaB_Click(object sender, EventArgs e)

OI/UnoaUno.aspx

@@ -153,7 +153,7 @@
                             <div class="portlet solid  grey-cascade portlet-filter">
                                 <div class="portlet-title portlet-filterT smalltitle magindate">
                                     <div class="tools">
-                                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="BtnConsultar_Click" CssClass="btn btn-primary" />
+                                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="BtnConsultar_Click" CssClass="btn btn-primary" ValidationGroup="GrpGuardaruuCaptura" />
                                     </div>
                                     <div class="titlefiltros  caption ">
                                         <ul class="list-inline text-size-12">
@@ -166,8 +166,8 @@
                                                     </span>
                                                     <ajax:MaskedEditExtender ID="MEETxtCFecha" runat="server" TargetControlID="TxtCFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                                     <ajax:CalendarExtender runat="server" ID="CEETxtCFecha" TargetControlID="TxtCFecha" PopupButtonID="LnkFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                                    <asp:RequiredFieldValidator ID="RfvTxtCFecha" runat="server" ControlToValidate="TxtCFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaI''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                    <asp:CompareValidator ID="CVTxtCFecha" runat="server" ControlToValidate="TxtCFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaI''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                    <asp:RequiredFieldValidator ID="RfvTxtCFecha" runat="server" ControlToValidate="TxtCFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaI''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardaruuCaptura"></asp:RequiredFieldValidator>
+                                                    <asp:CompareValidator ID="CVTxtCFecha" runat="server" ControlToValidate="TxtCFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaI''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardaruuCaptura"></asp:CompareValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VcoTxtCFecha" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtCFecha" Width="350px"></ajax:ValidatorCalloutExtender>
                                                     <ajax:ValidatorCalloutExtender ID="VcoTxtCFecha2" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtCFecha" Width="350px"></ajax:ValidatorCalloutExtender>
                                                 </div>
@@ -187,7 +187,7 @@
                                             <br />
                                             <asp:TextBox ID="TxtComentarios" CssClass="form-control" Text='<%# Eval("Respuesta")%>' TextMode="MultiLine" Rows="3" runat="server"></asp:TextBox>
                                             <asp:RequiredFieldValidator ID="RfvTxtComentarios" runat="server" ControlToValidate="TxtComentarios" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Responda el cuestionario para poder guardar." ValidationGroup="GrpGuardarUnoAUno"></asp:RequiredFieldValidator>
-                                            <ajax:ValidatorCalloutExtender ID="VcoTxtCFecha" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtComentarios" Width="350px"></ajax:ValidatorCalloutExtender>
+                                            <ajax:ValidatorCalloutExtender ID="VcoTxtCFecha" runat="server" HighlightCssClass="vco" PopupPosition="BottomLeft" TargetControlID="RfvTxtComentarios" Width="350px"></ajax:ValidatorCalloutExtender>
 
                                         </ItemTemplate>
                                     </asp:TemplateField>
@@ -288,17 +288,17 @@
                                         <ContentTemplate>
                                             <asp:Panel ID="PnlCuestionario" runat="server" DefaultButton="LnkGuardarCuestionario">
                                                 <div class="portlet light smmallpadding bordered">
-                                                    <div class="portlet-title">
+                                                    <div class="portlet-title" style="margin-bottom: 3px;">
                                                         <div class="caption font-green">
                                                             <i class="fa fa-list font-green"></i>
                                                             <span class="caption-subject bold uppercase">Cuestionario</span>
-                                                            <div class="msgAyuda" style="white-space: nowrap;">Selecciona un cuestionario existente, o bien, genera uno nuevo</div>
                                                         </div>
                                                         <div class="tools"><a href="javascript:;" class="collapse" data-original-title="" title=""></a></div>
                                                         <div class="actions">
                                                             <div class="btn-group"></div>
                                                         </div>
                                                     </div>
+                                                    <div class="msgAyuda" style="white-space: nowrap;">Selecciona un cuestionario existente, o bien, genera uno nuevo</div>
                                                     <div class="portlet-body rowpadding">
                                                         <asp:DropDownList ID="DdlCuestionario" CssClass="form-control input-sm select2me " runat="server" DataTextField="Cuestionario" DataValueField="CveUnoaUnoCuestionario" Style="width: 100%" OnSelectedIndexChanged="DdlCuestionario_SelectedIndexChanged" AutoPostBack="true"></asp:DropDownList>
                                                         <%--<asp:DropDownList ID="DdlCuestionario" CssClass="form-control select2me" runat="server"></asp:DropDownList>--%>
@@ -308,7 +308,7 @@
                                                             <asp:TextBox ID="TxtCuestionario" CssClass="form-control TxtCuestionario" runat="server"></asp:TextBox>
                                                             <asp:Label runat="server" AssociatedControlID="TxtCuestionario">Cuestionario:</asp:Label>
                                                             <asp:RequiredFieldValidator ID="RfvCuestionario" runat="server" ControlToValidate="TxtCuestionario" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuestionario''</b> es necesario, por favor ingréselo." ValidationGroup="VGMCuestionario"></asp:RequiredFieldValidator>
-                                                            <ajax:ValidatorCalloutExtender ID="VcoCuestionario" runat="server" HighlightCssClass="vco" TargetControlID="RfvCuestionario"></ajax:ValidatorCalloutExtender>
+                                                            <ajax:ValidatorCalloutExtender ID="VcoCuestionario" runat="server" HighlightCssClass="vco" PopupPosition="BottomLeft" TargetControlID="RfvCuestionario"></ajax:ValidatorCalloutExtender>
                                                         </div>
                                                         <div class="form-group form-md-line-input" style="display: none;">
 
@@ -454,7 +454,7 @@
                     </div>
                     <div class="modal-body">
 
-                        <div class="row">
+                        <asp:Panel runat="server" DefaultButton="LnkFechaSeguir" CssClass="row">
                             <div class="col-md-4 text-left">
                                 <asp:LinkButton ID="lnkAtras" OnClick="lnkAtras_Click" CssClass="btn btn-default" runat="server">< Anterior</asp:LinkButton>
 
@@ -481,7 +481,7 @@
                                 <asp:LinkButton ID="LnkAdelante" OnClick="LnkAdelante_Click" CssClass="btn btn-default" runat="server">Siguiente ></asp:LinkButton>
 
                             </div>
-                        </div>
+                        </asp:Panel>
                         <div class="" data-always-visible="1" data-rail-visible="0">
                             <asp:GridView ID="gvPregResSiguiendoA" runat="server" GridLines="None" CssClass="Widthall" AutoGenerateColumns="False" ShowHeader="false">
                                 <Columns>
@@ -489,7 +489,8 @@
                                         <ItemTemplate>
                                             <div style="padding-bottom: 15px;">
                                                 <asp:Label CssClass="lnkUserBlack" runat="server" Text='<%# Eval("Pregunta")%>'> </asp:Label><br />
-                                                <asp:Label CssClass="lnkUsergray" runat="server" Text='<%# Eval("Respuesta")%>'> </asp:Label>
+                                                <asp:TextBox ID="TxtComentarios" CssClass="form-control" Text='<%# Eval("Respuesta")%>' TextMode="MultiLine" Enabled="false" Rows="3" runat="server"></asp:TextBox>
+                                                <%--<asp:Label CssClass="lnkUsergray" runat="server" Text='<%# Eval("Respuesta")%>'> </asp:Label>--%>
                                                 <%--<asp:Label CssClass="lnkUsergray" runat="server" Text='<%# Eval("Fecha","ultima Actualización: {0:dd/MM/yyyy}")%>'> </asp:Label>--%>
                                             </div>
                                         </ItemTemplate>

Ventas/Clientes.aspx

@@ -605,12 +605,12 @@
                                             <label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label>
                                         </div>
 
-                                        <div class="form-group form-md-line-input input-iconright">
+                                        <div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaCompras" runat="server" visible="false" >
                                             <asp:TextBox runat="server" ID="TxtCorreoEntregaCompras" CssClass="form-control"/>
                                             <label for="<%= TxtCorreoEntregaCompras.ClientID.ToString()%>">Correo de Entrega de Compras:</label>
                                         </div>
 
-                                        <div class="form-group form-md-line-input input-iconright">
+                                        <div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaAlmacen" runat="server" visible="false">
                                             <asp:TextBox runat="server" ID="TxtCorreoEntregaAlmacen" CssClass="form-control"/>
                                             <label for="<%= TxtCorreoEntregaAlmacen.ClientID.ToString()%>">Correo de Entrega de Almacén:</label>
                                         </div>

Ventas/Clientes.aspx.vb

@@ -1667,7 +1667,7 @@ Partial Class Clientes
                 End If
 
                 TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString
-                TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString
+                TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString
             Else
                 Existe = False
                 Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
@@ -5622,6 +5622,11 @@ Partial Class Clientes
         CobranzaTelefono = ""
         CodigoCliente = ""
 
+        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
+            divCorreoEntregaCompras.Visible = True
+            divCorreoEntregaAlmacen.Visible = True
+        End If
+
     End Sub
 
     Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click

Ventas/RepIngresos.aspx.vb

@@ -94,7 +94,7 @@ Partial Class Ventas_RepIngresos
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             TCEspecifico = -1
-            TipoCambio = 2
+            TipoCambio = 1
             CveSubProyecto = -1
             TxtFechaInicio.Text = String.Format("01/01/{0}", Now.Year)
             DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)

Ventas/Ventas.aspx

@@ -3259,7 +3259,7 @@
                             <tr align="left">
                                 <td>
                                     <asp:TextBox ID="TxtObsFact" runat="server" Rows="3" TextMode="MultiLine" Width="250px" MaxLength="800" CssClass="form-control input-sm"></asp:TextBox></td>
-                            </tr>
+                            </tr>                            
                             <tr id="TrOC" runat="server">
                                 <td>Orden de Compra: &nbsp;
                                     <asp:TextBox ID="TxtOrdenCompra" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
@@ -3287,10 +3287,10 @@
                                 <td>Kilometraje&nbsp;                                        
                                                 <asp:TextBox ID="TxtKilometraje" runat="server" Width="250px" CssClass="form-control input-sm"></asp:TextBox></td>
                             </tr>
-                            <tr align="left">
-                                <td id="Td1" runat="server">Correo Notificaciones:&nbsp;</td>
+                            <tr align="left" id="trCorreoNotif1" runat="server" visible="false">
+                                <td id="Td1" runat="server">Correo Notificacion:&nbsp;</td>
                             </tr>
-                            <tr align="left">
+                            <tr align="left" id="trCorreoNotif2" runat="server" visible="false">
                                 <td>
                                     <asp:TextBox ID="TxtCorreoNotificaciones" runat="server" Width="100%" CssClass="form-control"></asp:TextBox></td>
                             </tr>

Ventas/Ventas.aspx.vb

@@ -1854,8 +1854,10 @@ Partial Class Ventas
                 thPredial2.Visible = True
             End If
 
-            If UsuarioActual.CveEmpresa.Contiene(72, 80) Then ' PARA BUSCAR FOLIO DE OC, YA FACTURADA EN EL CAMPO ORDEN DE COMPRA
+            If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then ' PARA BUSCAR FOLIO DE OC, YA FACTURADA EN EL CAMPO ORDEN DE COMPRA
                 TxtOrdenCompra.Attributes.Add("onblur", "BuscarOCRegistrada();")
+                trCorreoNotif1.Visible = True
+                trCorreoNotif2.Visible = True
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(561).ToString() = "1" Then
@@ -3936,6 +3938,8 @@ Partial Class Ventas
                 TxtSubTotal2.Text = (TxtSubTotal.Text.Replace(",", "").Trim.Trim.ToDouble - LblDescuentos.Text.Replace(",", "").Trim.Trim.ToDouble - LblAmortizacion.Text.Replace(",", "").Trim.Trim.ToDouble).FormatoNumero(2)
                 TxtIVA.Text = DbRowVenta("IVA").ToString().FormatoNumero(2)
                 TxtRetIVA.Text = DbRowVenta("RetIVA").ToString().FormatoNumero(2)
+                TxtCorreoNotificaciones.Text = DbRowVenta("CorreoNotificacion").ToString()
+
                 If TxtRetIVA.Text.ToDecimal() > 0 Then
                     TrRetIVA.Style.Add("display", "")
                     UsuarioActual.Empresa.MostrarRetIVA = True
@@ -13775,7 +13779,7 @@ Partial Class Ventas
                     End If
 
                     Dim PorcentajePrecio As Double = 0
-                    If PrecioSugerido = 0 Then
+                    If PrecioSugerido = 0 AndAlso CveCliente > 0 Then
                         CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                         If CvePrecioListaPS > 0 Then
                             Dim ObjPS As New ClsProductosServicios

asmx/WSSIGApp.asmx

@@ -2049,7 +2049,7 @@ Public Class WSSIGApp
         Return TmpDT
     End Function
     Private Function AgregarProductoServicioRem(TmpDT As DataTable, PS As MVentaProductos, CveEmpresa As Integer, CveSubProyecto As Integer,
-               Optional SerieLote As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0,
+               Optional Serie As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0,
                Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0,
                Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0,
                Optional CuentaPredial As String = "", Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0) As DataRow
@@ -2083,7 +2083,7 @@ Public Class WSSIGApp
         Row("Proyecto") = DrSubProyecto("Proyecto").ToString()
         Row("CveSubProyecto") = CveSubProyecto
         Row("SubProyecto") = DrSubProyecto("SubProyecto").ToString()
-        Row("SerieLote") = SerieLote
+        Row("Serie") = Serie
         Row("TiempoEntrega") = TiempoEntrega
         Row("Orden") = TmpDT.Rows.Count + 1
         Row("Cantidad") = PS.Cantidad