-

App_Code/ClsClasificaciones.vb

@@ -21,11 +21,13 @@ Public Class ClsClasificaciones
     Private Data As DataTable
     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 ReadOnly Property DtResultados() As DataTable
         Get
             DtResultados = Data
@@ -46,7 +48,8 @@ Public Class ClsClasificaciones
             End Try
         Else
             SqlConexion = TransaccionCompartida.Connection
-            SqlTransacc = TransaccionCompartida
+            SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
         End If
 
         SqlCommand = New SqlCommand("", SqlConexion)
@@ -67,7 +70,7 @@ Public Class ClsClasificaciones
 #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/ClsGenerales.vb

@@ -1506,7 +1506,7 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function UpdateCuentasDepositosEstatusPagoElectronicoGrupos(CveCuentaDeposito As Integer, EstatusPagoElectronicoGrupos As Boolean) As Boolean
+    Public Function UpdateCuentasDepositosEstatusPagoElectronicoGrupos(CveCuentaDeposito As Integer, EstatusPagoElectronicoGrupos As Boolean, CveSATBanco As Integer, BBVAAlias As String) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -1515,6 +1515,8 @@ Public Class ClsGenerales
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCuentaDeposito", SqlDbType.VarChar).Value = CveCuentaDeposito
             .Add("@EstatusPagoElectronicoGrupos", SqlDbType.Bit).Value = EstatusPagoElectronicoGrupos
+            .Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco
+            .Add("@BBVAAlias", SqlDbType.VarChar).Value = BBVAAlias
         End With
 
 

App_Code/ClsMovimientos.vb

@@ -542,7 +542,10 @@ Public Class ClsMovimientos
         End With
 
 
-        Try
+
+        Try
+            SqlAdapter.SelectCommand.CommandTimeout = 0
+
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As SqlException

App_Code/ClsUnidadesMedida.vb

@@ -19,6 +19,7 @@ Public Class ClsUnidadesMedida
     Private disposedValue As Boolean = False
     'PARA REGISTRAR CONEXION
     Private CveConexion As Integer = 0
+    Private EsTransaccionCompartida As Boolean = False
 #End Region
 
 #Region "Propiedades"
@@ -69,6 +70,7 @@ Public Class ClsUnidadesMedida
         Else
             SqlConexion = TransaccionCompartida.Connection
             SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
@@ -86,7 +88,7 @@ Public Class ClsUnidadesMedida
 #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(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo

App_Code/Modelos.vb

@@ -4571,7 +4571,7 @@ Namespace Modelos
 
                                 Next
 
-                                'SI EXISTEN HAY EXISTENCIA EN (ENTREGA POR ADELANTADO) SE TIENE QUE REGRESAR AL ALMACEN GENERAL
+                                'SI EXISTEN HAY EXISTENCIA EN (ENTREGA POR ADELANTADO) SE TIENE QUE REGRESAR AL ALMACEN ORGINAL (GENERAL,SIN COSTO)
                                 If Not ErrorCancelar AndAlso ListaRemisionesCancelar IsNot Nothing AndAlso ListaRemisionesCancelar.Count > 0 Then
 
                                     'VERIFICA LOS MOVIMIENTOS DE DEVOLUCION YA GENERADOS QUE TENGAN EXISTENCIA EN (ENTREGA POR ADELANTADO)
@@ -4584,21 +4584,24 @@ Namespace Modelos
                                         End If
                                     End If
 
-                                    'DEBE REGRESAR LA EXISTENCIA DE (ENTREGA POR ADELANTADO) AL ALMACEN GENERAL
+                                    'DEBE REGRESAR LA EXISTENCIA DE (ENTREGA POR ADELANTADO) AL ALMACEN ORGINAL (GENERAL,SIN COSTO)
                                     If Not ErrorCancelar AndAlso DtDevoluciones IsNot Nothing Then
                                         For Each CveRemision As Integer In ListaRemisionesCancelar
                                             Dim DtDevRemision As DataTable = DtDevoluciones.FiltraParametros($"CveRemision={CveRemision}")
 
-                                            Dim RowDevolucion As DataRow = DtDevRemision.FiltraParametros("", DistinctColumns:={"CveRemision", "CveAlmacen", "CveAlmacenDestino"}).Rows(0)
+                                            Dim DtDevMovs = DtDevRemision.FiltraParametros("", DistinctColumns:={"CveMovimiento", "CveRemision", "CveAlmacen", "CveAlmacenDestino"})
 
-                                            CveAlmacen = RowDevolucion("CveAlmacen").ToString().ToEntero()
+                                            For Each RowDevolucion As DataRow In DtDevMovs.Rows
-                                            CveAlmacenDevolucion = RowDevolucion("CveAlmacenDestino").ToString().ToEntero()
+                                                CveAlmacen = RowDevolucion("CveAlmacen").ToString().ToEntero()
+                                                CveAlmacenDevolucion = RowDevolucion("CveAlmacenDestino").ToString().ToEntero()
+
+                                                If Not CancelarMovimientosRemision(CveRemision, CveAlmacen, CveAlmacenDevolucion, DtDevRemision.FiltraParametros($"CveMovimiento={RowDevolucion("CveMovimiento")}"), ObjVentas, ObjInventario) Then
+                                                    ErrorCancelar = True
+                                                    MensajeError = "Ocurrió un error al cancelar los movimientos de la remisión."
+                                                    Exit For
+                                                End If
+                                            Next
 
-                                            If Not CancelarMovimientosRemision(CveRemision, CveAlmacen, CveAlmacenDevolucion, DtDevRemision, ObjVentas, ObjInventario) Then
-                                                ErrorCancelar = True
-                                                MensajeError = "Ocurrió un error al cancelar los movimientos de la remisión."
-                                                Exit For
-                                            End If
                                         Next
                                     Else
                                         ErrorCancelar = True
@@ -5028,7 +5031,7 @@ Namespace Modelos
 
             'SALIDA DE (ENTREGA POR ADELANTADO)
             If Not ErrorCancelar Then
-                For Each DrRem As DataRow In DtMovDetalle.FiltraParametros($"CveRemision = {CveRemision}").Rows
+                For Each DrRem As DataRow In DtMovDetalle.Rows
                     Dim CveVentaDetalleRem = DrRem("CveVentaDetalleRemision").ToString.ToEntero
                     Dim CantidadRem = DrRem("Cantidad").ToString.ToDecimal
 
@@ -5037,7 +5040,7 @@ Namespace Modelos
                         Exit For
                     End If
 
-                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, DrRem("Cantidad").ToString.ToDecimal, DrRem("CveUM").ToString.ToEntero, DrRem("CvePS").ToString.ToEntero, DrRem("PU").ToString.ToDecimal, CveAF:=DrRem("CveActivoFijo").ToString.ToEntero, Serie:=DrRem("Serie").ToString, CveVentaDetalle:=CveVentaDetalleRem, Lote:=DrRem("Lote").ToString) Then
+                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, DrRem("Cantidad").ToString.ToDecimal, DrRem("CveUM").ToString.ToEntero, DrRem("CvePS").ToString.ToEntero, DrRem("PU").ToString.ToDecimal, CveAF:=DrRem("CveActivoFijo").ToString.ToEntero, Serie:=DrRem("Serie").ToString, Lote:=DrRem("Lote").ToString, CveVentaDetalle:=CveVentaDetalleRem, CveMovimientoDetalleEntrada:=DrRem("CveMovimientoDetalle").ToString().ToEntero()) Then
                         ErrorCancelar = True
                         Exit For
                     End If

App_Code/Thalamus.vb

@@ -0,0 +1,179 @@
+Imports System.IO
+Imports System.Net
+Imports System.Web
+Imports System.Web.Services
+Imports System.Web.Services.Protocols
+Imports Extensiones.ModExtensiones
+Imports GemBox.Spreadsheet
+Imports System.Data
+
+' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
+' <System.Web.Script.Services.ScriptService()> _
+<WebService(Namespace:="http://ADSistemas.mx/")>
+<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Public Class Thalamus
+    Inherits System.Web.Services.WebService
+
+    <WebMethod()>
+    Public Function GenerarArchivos(CveEmpresa As Integer) As Boolean
+
+        Dim RutaArchivoVentas As String = $"C:\Temp\Ventas{Now.ToString("yyyyMMdd")}.xlsx"
+
+        Dim DTVentas As New DataTable
+        DTVentas.Columns.Add("systemId")
+        DTVentas.Columns.Add("Branch")
+        DTVentas.Columns.Add("Code")
+        DTVentas.Columns.Add("Sale Date")
+        DTVentas.Columns.Add("Quantity")
+        DTVentas.Columns.Add("Amount")
+        DTVentas.Columns.Add("Transaction ID")
+
+
+        For x = 0 To 50
+            Dim dr As DataRow = DTVentas.NewRow
+
+            dr(0) = $"systemId {x}"
+            dr(1) = $"Branch {x}"
+            dr(2) = $"{x}"
+            dr(3) = $"{Now.ToString("yyyy-MM-dd")}"
+            dr(4) = $"{x}"
+            dr(5) = $"{x}.00"
+            dr(6) = $"{x}"
+
+            DTVentas.Rows.Add(dr)
+
+        Next
+
+        SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet())
+
+        Dim workbook = New ExcelFile
+        Dim worksheet = workbook.Worksheets.Add("Ventas")
+
+        worksheet.InsertDataTable(DTVentas,
+            New InsertDataTableOptions() With
+            {
+                .ColumnHeaders = True,
+                .StartRow = 0
+            })
+
+        workbook.Save(RutaArchivoVentas)
+
+        Dim FTPServer As String = "ftp://127.0.0.1/"
+        Dim TFPUsr As String = "Toor"
+        Dim FTPPass As String = "agj-3500"
+
+
+        Dim FInfo As New FileInfo(RutaArchivoVentas)
+
+
+        Dim Carga As Boolean = CargarArchivos(FInfo.FullName, FTPServer, TFPUsr, FTPPass)
+        If Carga Then
+            Carga = VerificarArchivo(FInfo.Name, FInfo.Length, FTPServer, TFPUsr, FTPPass)
+        End If
+
+
+
+        Return Carga
+
+    End Function
+
+    Private Function CargarArchivos(RutaArchivo As String, FTPServer As String, FTPUsr As String, FTPPass As String) As Boolean
+
+        Dim Respuesta As Boolean
+
+        Dim FInfo As New FileInfo(RutaArchivo)
+
+        If FInfo.Exists Then
+
+            Dim request As FtpWebRequest = DirectCast(WebRequest.Create($"{FTPServer}/{FInfo.Name}"), FtpWebRequest)
+            request.Method = WebRequestMethods.Ftp.UploadFile
+
+            Dim tamanio As Integer = 1024
+            Dim buffer As Byte() = New Byte(tamanio) {}
+            Dim byteRead As Integer = 0
+
+            Dim Conected As Boolean = False
+
+
+
+            request.Credentials = New NetworkCredential(FTPUsr, FTPPass)
+
+            Try
+                request.GetResponse()
+                Conected = True
+            Catch ex As Exception
+
+            End Try
+
+
+            If Conected Then
+
+                Dim ftpStream As Stream
+                Dim f As FileStream
+
+                ftpStream = request.GetRequestStream
+                f = File.OpenRead(FInfo.FullName)
+
+                Try
+                    Do
+                        byteRead = f.Read(buffer, 0, tamanio)
+                        ftpStream.Write(buffer, 0, byteRead)
+
+                    Loop While byteRead <> 0
+
+                    Respuesta = True
+                    'validar si existe archivo si coincide en tamaño
+                Catch ex As Exception
+                    Respuesta = False
+                End Try
+
+
+                If f IsNot Nothing Then
+                    f.Close()
+                End If
+
+                If ftpStream IsNot Nothing Then
+                    ftpStream.Close()
+                End If
+
+            Else
+                Respuesta = False
+                'no se conecto al ftp probablemente credenciales erroneas
+            End If
+        Else
+            Respuesta = False
+            'El archivo no existe en el disco local
+        End If
+
+        Return Respuesta
+
+    End Function
+
+    Private Function VerificarArchivo(Archivo As String, Tamanio As Long, FTPServer As String, FTPUsr As String, FTPPass As String) As Boolean
+
+        Dim Respuesta As Boolean = False
+
+        Dim reqSize As FtpWebRequest = DirectCast(FtpWebRequest.Create(New Uri(FTPServer & Archivo)), FtpWebRequest)
+        reqSize.Credentials = New NetworkCredential(FTPUsr, FTPPass)
+        reqSize.Method = WebRequestMethods.Ftp.GetFileSize
+        reqSize.UseBinary = True
+
+        Dim loginresponse As FtpWebResponse = DirectCast(reqSize.GetResponse(), FtpWebResponse)
+        Dim respSize As FtpWebResponse = DirectCast(reqSize.GetResponse(), FtpWebResponse)
+        respSize = DirectCast(reqSize.GetResponse(), FtpWebResponse)
+        Dim size As Long = respSize.ContentLength
+
+        respSize.Close()
+
+
+        If Tamanio = size Then
+            Respuesta = True
+        End If
+
+        Return Respuesta
+
+
+    End Function
+
+End Class

App_Code/modExtensiones.vb

@@ -1178,6 +1178,7 @@ Namespace Extensiones
                 Else
                     TmpDr = dt.Rows(0)
                 End If
+                dt.Dispose()
             End If
 
             Return TmpDr
@@ -1190,6 +1191,7 @@ Namespace Extensiones
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                 dt.PrimaryKey = New DataColumn() {dt.Columns(PrimaryKey)}
                 TmpDr = dt.Rows.Find(Valor)
+                dt.Dispose()
             End If
 
             Return TmpDr
@@ -1250,6 +1252,7 @@ Namespace Extensiones
                 Else
                     Retorno = dt.Rows(0)(Columna).ToString
                 End If
+                dt.Dispose()
             End If
 
             Return Retorno

Bancos/IE.aspx.vb

@@ -4653,6 +4653,26 @@ Partial Class Bancos_IE
                     Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
                 End If
 
+            ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
+
+
+                If Dep.DtResultados.Rows.Count > 0 Then
+
+                    DdlCuentaDeposito.DataSource = Dep.DtResultados
+                    trCuentaDeposito.Visible = True
+                    BtnGuardar.ToolTip = ""
+
+                Else
+
+                    BtnGuardar.Enabled = False
+                    Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia)
+                    BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
+
+                End If
+
+
+                UpGuardar.Update()
+
             Else
                 DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'")
                 If Dep.DtResultados.Rows.Count > 0 Then
@@ -4663,6 +4683,19 @@ Partial Class Bancos_IE
             End If
 
 
+        Else
+
+            If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
+
+                BtnGuardar.Enabled = False
+                Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia)
+                BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
+            Else
+                trCuentaDeposito.Visible = True
+                BtnGuardar.Enabled = True
+            End If
+
+            UpGuardar.Update()
 
 
         End If

Bancos/PagoElectronicoGrupos.aspx

@@ -11,6 +11,9 @@
     Pago Electrónico
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <i>
+        <asp:LinkButton ID="LnlImprimir" runat="server" Text="Imprimir"  OnClick="BtnReportePago_Click"></asp:LinkButton>
+    </i>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 
@@ -255,6 +258,17 @@
                                                     </ItemTemplate>
                                                    
                                                 </asp:TemplateField>
+
+                                                <asp:TemplateField ItemStyle-HorizontalAlign="Center">
+                                                    <ItemTemplate>
+                                                        <asp:LinkButton ID="LnkAyuda" runat="server" href="#" OnClientClick="return false;" 
+                                                            CssClass="btn btn-circle btn-sm bg-warning" Text="<i class='fa fa-info'></i>"  Visible="false" Height="25" Width="25"
+                                                            data-toggle="popover" title="Ayuda" data-placement="top" data-trigger="hover"  />
+                                                    </ItemTemplate>
+                                                   
+                                                </asp:TemplateField>
+
+
                                                 <%--<asp:BoundField DataField="Abonado" HeaderText="Importe" DataFormatString="{0:N2}" />--%>
                                             </Columns>
                                             <RowStyle CssClass="Texto" />
@@ -480,6 +494,15 @@
                                             <li >Cuenta
                                                 <asp:DropDownList ID="DdlCuentaEnviados" runat="server" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100px" CssClass="form-control input-sm select2me"></asp:DropDownList>
                                             </li>
+
+                                             <li>Tipo:
+                                                <asp:DropDownList ID="DdlTipoGeneracionEnviados" runat="server" CssClass="form-control input-sm select2me" Width="100px">
+                                                    <asp:ListItem Text="Todos" Value="-1" />
+                                                    <asp:ListItem Text="Pagos Proveedor" Selected="True" Value="PAGO" />
+                                                    <asp:ListItem Text="Anticipos" Value="ANT" />
+                                                    <asp:ListItem Text="Funcionarios y Empleados" Value="FyE" />
+                                                </asp:DropDownList>
+                                            </li>
                                             
                                             <li >Estatus
                                                 <asp:DropDownList ID="DdlEstatusEnviados" runat="server" Width="100px" CssClass="form-control input-sm select2me">
@@ -556,7 +579,7 @@
                                </div>                                        
                                         
                                         <asp:GridView ID="GvEnviadas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros enviados" ToolTip="Tabla de pagos electronicos" 
-                                            DataKeyNames="CveLayoutEnvioDetalle,CveIE,CveLayoutEnvio,CveProveedor,Archivo,Estatus"
+                                            DataKeyNames="CveLayoutEnvioDetalle,CveIE,CveLayoutEnvio,CveProveedor,Archivo,Estatus,NotificarA"
                                             OnRowDataBound="GvEnviadas_RowDataBound" CssClass="table table-striped table-hover Widthall ScrollAD" data-heigth="350px" data-freezerows="1" Style="text-align: center;" GridLines="None">
                                             <Columns>
                                                 <asp:BoundField DataField="Fecha" HeaderText="Fecha Envio" DataFormatString="{0:d}" />
@@ -682,7 +705,7 @@
 
     <asp:Button ID="BtnReporteAltaCarga" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReporteAltaCarga_Click" />
     <asp:Button ID="BtnReporteAltaGenera" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReporteAltaGenera_Click" />
-    <asp:Button ID="BtnReportePago" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReportePago_Click" />
+    <%--<asp:Button ID="BtnReportePago" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReportePago_Click" />--%>
 
 
 
@@ -690,7 +713,7 @@
         <div class="modal-dialog">
 
             <!-- Modal content-->
-            <div class="modal-content" style="width:750px!important">
+            <div class="modal-content" style="width:900px!important">
                 <div class="modal-header ">
                     <button type="button" class="close" data-dismiss="modal">&times;</button>
                     <h4 class="modal-title">Alta Cuentas</h4>
@@ -700,7 +723,8 @@
                     <asp:UpdatePanel ID="UpModalCuentasCuerpo" runat="server" UpdateMode="Conditional">
                         <ContentTemplate>
 
-                           <asp:GridView ID="GvCuentasModal" runat="server" DataKeyNames="CveCuentaDeposito" AutoGenerateColumns="False" ToolTip="Cuentas modal"  OnRowDataBound="GvCuentasModal_RowDataBound"
+                           <asp:GridView ID="GvCuentasModal" runat="server" DataKeyNames="CveCuentaDeposito,CveSATBanco" AutoGenerateColumns="False" ToolTip="Cuentas modal"  
+                               OnRowDataBound="GvCuentasModal_RowDataBound"
                                CssClass="table table-striped table-hover Widthall" Style="text-align: center;" GridLines="None">
                             <Columns>                                
                                 
@@ -709,19 +733,33 @@
                                 
                                 <asp:BoundField  HeaderText="Cuenta"  DataField="Cuenta" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
                                 <asp:BoundField  HeaderText="Clabe"  DataField="CLABEDestino" ItemStyle-HorizontalAlign="Left" />
-                                 
+                               
-                                <asp:BoundField  HeaderText="Alias"  DataField="BBVAAlias" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
+
-                                
+                                <asp:TemplateField HeaderText="Banco" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px">                                     
-                                <asp:TemplateField HeaderText="Alta" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="40px">
                                     <ItemTemplate>                                      
-                                        <asp:CheckBox ID="ChkCuentasEstatus" runat="server" Checked='<%# Eval("EstatusPagoElectronicoGrupos") %>' />
+                                          <asp:DropDownList CssClass="form-control select2me" Width="100%" ID="DdlSatBanco" runat="server" DataTextField="Banco" DataValueField="CveSATBanco" >
+                                                <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
+                                            </asp:DropDownList>
                                     </ItemTemplate>
-                                </asp:TemplateField>
+                                </asp:TemplateField>  
 
 
-                             
+                                <asp:TemplateField HeaderText="Alias" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px">                                     
+                                    <ItemTemplate>                                      
+                                        <asp:TextBox runat="server" ID="TxtBBVAAlias" Text='<%# Bind("BBVAAlias") %>' Width="100%" ></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>  
 
-                                <%--________________________________________________________--%>
+
+                                
+                                <asp:TemplateField HeaderText="Alta" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" ItemStyle-Width="40px">
+                                    <HeaderTemplate>
+                                       <input type="checkbox" class="form-check-input" id="ChkSelector" onclick="SelectorCuentasProveedor(this)">
+                                    </HeaderTemplate>
+                                    <ItemTemplate>                                      
+                                        <asp:CheckBox ID="ChkCuentasEstatus" runat="server" Checked='<%# Eval("EstatusPagoElectronicoGrupos") %>' CssClass="CssCuentasSelector" />
+                                    </ItemTemplate>
+                                </asp:TemplateField>                                
                                 
                             </Columns>
                             <RowStyle CssClass="Texto" />
@@ -813,10 +851,15 @@
                                         <div class="col-md-12" runat="server" id="DVDescargaCuentas1" visible=" false" >
                                             <p> Cuentas Bancomer <asp:LinkButton runat="server" ID="LnkDescargaCuentas1" OnClick="LnkDescargaCuentas1_Click" CssClass="Texto"></asp:LinkButton> </p>
                                         </div>
+
                                         <div class="col-md-12" runat="server"  id="DVDescargaCuentas2" visible=" false">
                                             <p> Cuentas Interbancarias <asp:LinkButton runat="server" ID="LnkDescargaCuentas2" OnClick="LnkDescargaCuentas2_Click" CssClass="Texto"></asp:LinkButton> </p>
                                         </div>
 
+                                         <div class="col-md-12" runat="server"  id="DVDescargaReporte" visible=" false">
+                                            <p> <asp:LinkButton runat="server" ID="LnkDescargaReporte" OnClick="LnkDescargaReporte_Click" CssClass="Texto" Text="Descargar Reporte"></asp:LinkButton> </p>
+                                        </div>
+
                                          
 
                                     </div>
@@ -825,6 +868,7 @@
                                     <asp:PostBackTrigger ControlID="LnkDescarga" />
                                     <asp:PostBackTrigger ControlID="LnkDescargaCuentas1" />
                                     <asp:PostBackTrigger ControlID="LnkDescargaCuentas2" />
+                                    <asp:PostBackTrigger ControlID="LnkDescargaReporte" />                                    
                                 </Triggers>
                             </asp:UpdatePanel>
 
@@ -847,24 +891,40 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 
     <script type="text/javascript">
-        function fncg() {
+
-            $get('BtnReporteAltaCarga').click();
+        function pageLoad() {
+            $(document).ready(function () {
+                $('[data-toggle="popover"]').popover();
+            });
         }
 
-        function fncp() {
+       
-            $get('BtnReportePago').click();
+
-        }
+        //function fncg() {
+        //    $get('BtnReporteAltaCarga').click();
+        //}
+
+        //function fncp() {
+        //    $get('BtnReportePago').click();
+        //}
 
 
         function PrefijoFolioEnviados(TxtPrefijo) {
 
-
             $(`.CSSPrefijo`).each(function () {
                 $(this).val(TxtPrefijo.value)
             });
+        }
+
+
+
+        function SelectorCuentasProveedor(Chk) {
+
+            $(`.CssCuentasSelector input[type=checkbox]`).each(function () {                
+                $(this).prop('checked', Chk.checked);
+            });
 
             
-
         }
 
 

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -70,6 +70,17 @@ Partial Class Bancos_PagoElectronicoGrupos
         End Set
     End Property
 
+    Private Property DT_PagosReporte As DataTable
+        Get
+            Return CType(ViewState("DT_PagosReporte"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DT_PagosReporte") = value
+        End Set
+    End Property
+
+
+
     Private Property DTAltasPendientes As DataTable
         Get
             Return CType(ViewState("DTAltasPendientes"), DataTable)
@@ -181,6 +192,7 @@ Partial Class Bancos_PagoElectronicoGrupos
             ViewState("NombreArchivoBancomer") = value
         End Set
     End Property
+
     Private Property NombreArchivoInterbancario As String
         Get
             Return ViewState("NombreArchivoInterbancario").ToString
@@ -190,6 +202,18 @@ Partial Class Bancos_PagoElectronicoGrupos
         End Set
     End Property
 
+    Property DTSATBancos As DataTable
+        Get
+            If ViewState("DTSATBancos") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DTSATBancos"), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            ViewState("DTSATBancos") = value
+        End Set
+    End Property
 
 
 #End Region
@@ -273,11 +297,8 @@ Partial Class Bancos_PagoElectronicoGrupos
         GvPendientes.DataBind()
         UpEnviados.Update()
 
-
         UpGVDatos.Update()
 
-
-
     End Sub
     Private Sub CargaDatosInformativos()
         Dim Altas = 0
@@ -369,7 +390,7 @@ Partial Class Bancos_PagoElectronicoGrupos
         Response.ContentType = "application/zip"
         Response.End()
     End Sub
-    Private Function CreaArchivo(Tipo As Integer, Optional MismoBanco As Boolean = True, Optional NombreArchivoEnviado As String = "") As Boolean
+    Private Function CreaArchivo(Tipo As Integer, Optional MismoBanco As Boolean = True, Optional ByRef NombreArchivoEnviado As String = "") As Boolean
 
 
         System.Threading.Thread.Sleep(1000) 'Un segundo de diferencia Para doferentes tipos de bancos
@@ -386,6 +407,8 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         If NombreArchivoEnviado.Length > 0 Then
             NombreArchivo = NombreArchivoEnviado
+        Else
+            NombreArchivoEnviado = NombreArchivo
         End If
 
         Dim path As String = String.Format("{0}Layout\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo)
@@ -428,13 +451,20 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
+            Dim LnkAyuda As LinkButton = e.Row.FCLinkButton("LnkAyuda")
+
             'Colorea GV
             If e.Row.DBCampo("RazonSocial").ToString = "" Then
                 e.Row.BackColor = Drawing.Color.WhiteSmoke
             Else
-                If e.Row.DBCampo("EstatusPagoElectronicoGrupos").ToString <> "True" Then
+                If e.Row.DBCampo("EstatusPagoElectronicoGrupos").ToString <> "True" Then
-                    e.Row.BackColor = Drawing.Color.LightSalmon
+
+                    'e.Row.BackColor = Drawing.Color.LightSalmon
                     e.Row.ToolTip = "Cuenta Deposito aun sin dar de Alta."
+
+                    LnkAyuda.Attributes.Add("data-content", "Cuenta Deposito aún sin dar de Alta.")
+                    LnkAyuda.Visible = True
+
                 End If
 
                 If e.Row.DBCampo("CveProveedor").ToString.ToEntero > 0 Then
@@ -446,13 +476,22 @@ Partial Class Bancos_PagoElectronicoGrupos
             End If
 
             If Not e.Row.DBCampo("CveCuentaDeposito").ToString.ToEntero > 0 Then
-                e.Row.Cells(0).BackColor = Drawing.Color.Red
+                'e.Row.Cells(0).BackColor = Drawing.Color.Red
                 e.Row.ToolTip = "Sin Cuenta Deposito asignada"
+
+                LnkAyuda.Attributes.Add("data-content", "Sin Cuenta Deposito asignada")
+                LnkAyuda.Visible = True
+
+
+
             End If
 
             If e.Row.DBCampo("EstatusCtaDeposito").ToString = "False" Then
-                e.Row.Cells(0).BackColor = Drawing.Color.Red
+                'e.Row.Cells(0).BackColor = Drawing.Color.Red
-                e.Row.ToolTip = "Cuenta Deposito INACTIVA"
+                e.Row.ToolTip = "Cuenta Deposito INACTIVA"
+                LnkAyuda.Attributes.Add("data-content", "Cuenta Deposito INACTIVA")
+                LnkAyuda.Visible = True
+
             End If
 
             e.Row.FCHyperLink("HLImporte").NavigateUrl = String.Format("IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
@@ -503,7 +542,7 @@ Partial Class Bancos_PagoElectronicoGrupos
                 e.Row.FCHyperLink("HLDetalle").NavigateUrl = String.Format("IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
 
 
-                If e.Row.DataKey("Estatus").ToEntero = 3 Then
+                If e.Row.DataKey("Estatus").ToEntero.contiene(2, 3) Then
 
                     e.Row.FCLinkButton("ImgUpload").Visible = False
                     e.Row.FCLinkButton("LnkGvCancelar").Visible = False
@@ -755,6 +794,7 @@ Partial Class Bancos_PagoElectronicoGrupos
         'Mensaje.Append("Descarga Layouts<br><br>")
 
         DVDescargaPagos.Visible = False
+        DVDescargaReporte.Visible = False
 
 
 
@@ -1192,6 +1232,9 @@ Partial Class Bancos_PagoElectronicoGrupos
                     DVDescargaPagos.Visible = True
                     DVDescargaCuentas1.Visible = False
                     DVDescargaCuentas2.Visible = False
+                    DVDescargaReporte.Visible = True
+
+                    DT_PagosReporte = DTPendientesTemp.Copy
 
                     LnkDescarga.Text = NombreArchivoPago
                     RegistraScript("$('#ModalDescarga').modal({ backdrop: 'static',  keyboard: false});")
@@ -1703,6 +1746,8 @@ Partial Class Bancos_PagoElectronicoGrupos
         If NombreArchivoBancomer.Length > 0 Or NombreArchivoInterbancario.Length > 0 Then
 
             DVDescargaPagos.Visible = False
+            DVDescargaReporte.Visible = False
+
             LnkDescargaCuentas1.Text = NombreArchivoBancomer
             LnkDescargaCuentas2.Text = NombreArchivoInterbancario
             RegistraScript("$('#ModalDescarga').modal({ backdrop: 'static',  keyboard: false});")
@@ -1850,18 +1895,19 @@ Partial Class Bancos_PagoElectronicoGrupos
 
     'CORREO
 #Region "  GENERA Y MANDA CORREO  "
-    Private Sub MandaCorreo(data As Object)
-        Dim Parametros As List(Of String) = DirectCast(data, List(Of String))
-
-        Dim Mail As New ClsSisMail()
-        Dim Para As String = Parametros(0)
-        Dim Asunto As String = Parametros(1)
-        Dim Body As String = Parametros(2)
 
-        Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
+    'Private Sub MandaCorreo(data As Object)
-
+    '    Dim Parametros As List(Of String) = DirectCast(data, List(Of String))
-    End Sub
+
-
+    '    Dim Mail As New ClsSisMail()
+    '    Dim Para As String = Parametros(0)
+    '    Dim Asunto As String = Parametros(1)
+    '    Dim Body As String = Parametros(2)
+
+    '    Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
+
+    'End Sub
+
     Private Function GeneraCorreo(CveIE As Integer, objIE As ClsBancos) As String
         Dim strBody As New StringBuilder
 
@@ -2338,42 +2384,49 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         Return strBody.ToString
     End Function
+
+
 #End Region
 
 
 
 #Region " IMPRIMIR "
-    Protected Sub BtnReporteAltaCarga_Click(sender As Object, e As EventArgs)
+
-        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta))
+
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+    Protected Sub BtnReporteAltaCarga_Click(sender As Object, e As EventArgs)
-
+        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta))
-
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        'Estatus visible
+
-        Dim params As New List(Of ReportParameter)
+
-        params.Add(New ReportParameter("MostrarEstatus", "True"))
+        'Estatus visible
-
+        Dim params As New List(Of ReportParameter)
-        If Archivo.Exists Then
+        params.Add(New ReportParameter("MostrarEstatus", "True"))
-            'ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/LayoutAltaProveedor.rdlc", DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico") 
+
-            ImprimirPDF(String.Format("{0}Formatos\LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
+        If Archivo.Exists Then
-        Else
+            'ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/LayoutAltaProveedor.rdlc", DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico") 
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            ImprimirPDF(String.Format("{0}Formatos\LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
-
+        Else
-            If Imagen.Exists Then
+            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                params.Add(New ReportParameter("LogoPath", logouri))
+
-            Else
+            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", ""))
+                params.Add(New ReportParameter("LogoPath", logouri))
-            End If
+            Else
-
+                params.Add(New ReportParameter("LogoPath", ""))
-
+            End If
-            params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+
-            params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
+
-            params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
+            params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+            params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
-
+            params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
-
+            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
-            ImprimirPDF("Empresas/Grales/Formatos/LayoutAltaProveedor.rdlc", DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
+
-        End If
+
-    End Sub
+            ImprimirPDF("Empresas/Grales/Formatos/LayoutAltaProveedor.rdlc", DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
+        End If
+    End Sub
+
+
+
     Protected Sub BtnReporteAltaGenera_Click(sender As Object, e As EventArgs)
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta))
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -2402,12 +2455,24 @@ Partial Class Bancos_PagoElectronicoGrupos
         End If
 
     End Sub
-    Protected Sub BtnReportePago_Click(sender As Object, e As EventArgs)
+
+
+
+
+    Protected Sub BtnReportePago_Click(sender As Object, e As EventArgs)
+             
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta))
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
 
-        Dim params As New List(Of ReportParameter)
+        Dim DT_PagosReporte As New DataTable
+        DT_PagosReporte = DTPendientes.FiltraParametros("EstatusPagoElectronicoGrupos = 'True'  AND EstatusCtaDeposito > 0").Copy()
 
+        'DT_PagosReporte.Columns(7).ColumnName = "Proveedor"
+        'DT_PagosReporte.Columns(2).ColumnName = "Importe"
+        'DT_PagosReporte.Columns(22).ColumnName = "Moneda"
+
+
+        Dim params As New List(Of ReportParameter)
 
         If Archivo.Exists Then
             ImprimirPDF(String.Format("{0}Formatos\LayoutPagoProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtPago, params, "LayoutPagoProveedor", RDSName:="DSPagoElectronicoV2")
@@ -2420,14 +2485,23 @@ Partial Class Bancos_PagoElectronicoGrupos
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
 
-            params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
             params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
-            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
-            ImprimirPDF("Empresas/Grales/Formatos/LayoutPagoProveedor.rdlc", DtPago, params, "LayoutPagoProveedor", RDSName:="DSPagoElectronicoV2")
+
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("Titulo", "Reporte Pago Proveedor Layout"))
+
+            ImprimirPDF("Empresas/Grales/Formatos/LayoutPagoProveedor.rdlc", DT_PagosReporte, params, "LayoutPagoProveedor", RDSName:="DSPagoElectronicoV2")
         End If
 
     End Sub
+
+
+
+
+
 #End Region
 
 
@@ -2444,22 +2518,40 @@ Partial Class Bancos_PagoElectronicoGrupos
     End Sub
 
 
+
+
+
     Private Sub CargaGVPendintesModal()
 
-        Dim DTGvCuentasPendientes As DataTable = DTPendientes.Copy.FiltraParametros("CveCuentaDeposito > 0", "", {"CveCuentaDeposito", "BancoNombre", "RazonSocial", "Cuenta", "CLABEDestino", "BBVAAlias", "EstatusPagoElectronicoGrupos"})
+        Dim ObjBancos As New ClsBancos
+
+        If ObjBancos.GetBancosSAT Then
+            DTSATBancos = ObjBancos.DtResultados
+        End If
+
+        ObjBancos.Dispose()
+
+        Dim DTGvCuentasPendientes As DataTable = DTPendientes.Copy.FiltraParametros("CveCuentaDeposito > 0", "", {"CveCuentaDeposito", "BancoNombre", "RazonSocial", "Cuenta", "CLABEDestino", "BBVAAlias", "EstatusPagoElectronicoGrupos", "CveSATBanco"})
 
         GvCuentasModal.DataSource = DTGvCuentasPendientes
         GvCuentasModal.DataBind()
         UpModalCuentasCuerpo.Update()
 
+
+
     End Sub
 
-
-
     Protected Sub GvCuentasModal_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
         If e.Row.RowType = DataControlRowType.DataRow Then
-            e.Row.FCCheckBox("ChkCuentasEstatus").Checked = True
+
+            'e.Row.FCCheckBox("ChkCuentasEstatus").Checked = True
+
+            e.Row.FCDropDownList("DdlSatBanco").DataSource = DTSATBancos
+            e.Row.FCDropDownList("DdlSatBanco").DataBind()
+            e.Row.FCDropDownList("DdlSatBanco").Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+            e.Row.FCDropDownList("DdlSatBanco").SelectedValueExist(e.Row.DataKey("CveSATBanco"))
+
         End If
 
     End Sub
@@ -2475,10 +2567,14 @@ Partial Class Bancos_PagoElectronicoGrupos
         ObjGenerales.IniciaTransacSQL()
 
         For Each GvRow As GridViewRow In GvCuentasModal.Rows
+
             Dim CveCuentaDeposito As Integer = GvRow.DataKey("CveCuentaDeposito").ToEntero
             Dim ChkCuentasEstatus As CheckBox = GvRow.FCCheckBox("ChkCuentasEstatus")
+            Dim TxtBBVAAlias As TextBox = GvRow.FCTextBox("TxtBBVAAlias")
+            Dim DdlSatBanco As DropDownList = GvRow.FCDropDownList("DdlSatBanco")
 
-            If Not ObjGenerales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(CveCuentaDeposito, ChkCuentasEstatus.Checked) Then
+
+            If Not ObjGenerales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(CveCuentaDeposito, ChkCuentasEstatus.Checked, DdlSatBanco.SelectedValue.ToEntero, TxtBBVAAlias.Text) Then
                 ErrorProceso = True
                 Exit For
             End If
@@ -2512,7 +2608,7 @@ Partial Class Bancos_PagoElectronicoGrupos
         Dim FechaI = If(IsDate(txtFechaIEnviados.Text.Trim()), txtFechaIEnviados.Text.Trim(), "-1")
         Dim FechaF = If(IsDate(txtFechaFEnviados.Text.Trim()), txtFechaFEnviados.Text.Trim(), "-1")
 
-        If ObjBancos.GetLayoutPagosEnviados(DdlCuentaEnviados.SelectedValue.ToEntero, DdlEstatusEnviados.SelectedValue.ToEntero, "-1", FechaI, FechaF, PorGrupos:=True) Then
+        If ObjBancos.GetLayoutPagosEnviados(DdlCuentaEnviados.SelectedValue.ToEntero, DdlEstatusEnviados.SelectedValue.ToEntero, DdlTipoGeneracionEnviados.SelectedValue, FechaI, FechaF, PorGrupos:=True) Then
             DTEnviadas = ObjBancos.DtResultados
         Else
             DTEnviadas = Nothing
@@ -2651,9 +2747,6 @@ Partial Class Bancos_PagoElectronicoGrupos
         End If
 
 
-
-
-
     End Sub
 
 
@@ -2672,6 +2765,7 @@ Partial Class Bancos_PagoElectronicoGrupos
         Dim CveLayoutEnvio As Integer = GvRow.DataKey("CveLayoutEnvio").ToEntero
         Dim CveIE As Integer = GvRow.DataKey("CveIE").ToEntero
         Dim CveProveedor As Integer = GvRow.DataKey("CveProveedor").ToEntero
+        Dim NotificarA As String = GvRow.DataKey("NotificarA")
 
 
         If Not ObjBanco.UpdateLayoutEnviosDetalle(CveLayoutEnvioDetalle, CveLayoutEnvio, CveIE, CveProveedor, 2, "", True) Then
@@ -2713,6 +2807,10 @@ Partial Class Bancos_PagoElectronicoGrupos
         Else
             ObjBanco.Commit()
             Alert("Confirmado Correctamente")
+            NotificacionPago(CveIE, NotificarA)
+
+            CargaEnviados()
+
         End If
 
 
@@ -2968,4 +3066,312 @@ Partial Class Bancos_PagoElectronicoGrupos
         Response.TransmitFile(FilePath)
         Response.End()
     End Sub
+
+
+
+
+    Protected Sub LnkDescargaReporte_Click(sender As Object, e As EventArgs)
+
+        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+        ' Dim DT_PagosReporte As New DataTable
+        DT_PagosReporte = DT_PagosReporte.FiltraParametros("EstatusPagoElectronicoGrupos = 'True'  AND EstatusCtaDeposito > 0").Copy()
+
+        'DT_PagosReporte.Columns(7).ColumnName = "Proveedor"
+        'DT_PagosReporte.Columns(2).ColumnName = "Importe"
+        'DT_PagosReporte.Columns(22).ColumnName = "Moneda"
+
+
+        Dim params As New List(Of ReportParameter)
+
+        If Archivo.Exists Then
+            ImprimirPDF(String.Format("{0}Formatos\LayoutPagoProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtPago, params, "LayoutPagoProveedor", RDSName:="DSPagoElectronicoV2")
+        Else
+            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+            If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", logouri))
+            Else
+                params.Add(New ReportParameter("LogoPath", ""))
+            End If
+
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
+            params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
+            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("Titulo", "Reporte Pago Proveedor Layout"))
+
+            ImprimirPDF("Empresas/Grales/Formatos/LayoutPagoProveedor.rdlc", DT_PagosReporte, params, "LayoutPagoProveedor", RDSName:="DSPagoElectronicoV2")
+        End If
+
+
+
+    End Sub
+
+
+    Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String)
+
+        'If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
+        'Dim Param As New List(Of String)
+
+        'Param.Add(CorreoNotificarA) 'Para
+        'Param.Add("Notificaciones de pago") 'Asunto
+        'Param.Add(GeneraCorreo(CveIE)) 'Body
+        'Param.Add(CveIE.ToString) 'CveIE
+        Dim Body As String = GeneraCorreo(CveIE)
+
+        'Dim Comprobante = If(ComprobanteIE <> "", String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ComprobanteIE), "") 'Archivo Adjunto
+        Dim Comprobante As String = ""
+        Dim File As Byte() = Nothing
+        'If UsuarioActual.Empresa.Funcionalidad(545).ToEntero > 0 Then
+        '    File = NewGeneraBytesCxP(CveProveedor, UsuarioActual.Nombre)
+        'End If
+
+        Dim Hilo As New Threading.Thread(Sub() MandaCorreo(CorreoNotificarA, "Notificaciones de pago", Body, CveIE, Comprobante, File))
+        Hilo.Start()
+
+        'End If
+
+    End Sub
+
+    Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte())
+        'Dim Parametros As List(Of String) = DirectCast(Data, List(Of String))
+
+        Dim Mail As New ClsSisMail()
+        Para = If(Para IsNot Nothing, Para, "")
+        Asunto = If(Asunto IsNot Nothing, Asunto, "")
+        Body = If(Body IsNot Nothing, Body, "")
+
+        Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
+        If Comprobante IsNot Nothing AndAlso Comprobante <> "" Then
+            ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Comprobante})
+        End If
+
+        If File IsNot Nothing Then
+            ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoCuentaCxP.pdf"})
+        End If
+
+        If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos) Then
+            Dim objIE As New ClsBancos
+            objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE)
+            objIE.Dispose()
+        End If
+    End Sub
+
+
+    Private Function GeneraCorreo(CveIE As Integer) As String
+
+        Dim strBody As New StringBuilder
+        Dim objIE As New ClsBancos
+
+        If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
+            strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
+            strBody.Append("<head> ")
+            strBody.Append("    <style type=""text/css""> ")
+            strBody.Append("        body ")
+            strBody.Append("        { ")
+            strBody.Append("            margin:0px; ")
+            strBody.Append("            padding:0px 0px 0px 0px; ")
+            strBody.Append("            font-family: Verdana, Arial, Helvetica, sans-serif; ")
+            strBody.Append("            font-size: 10px; ")
+            strBody.Append("            background-color:#F0F0F0; ")
+            strBody.Append("        } ")
+            strBody.Append("        a.Texto ")
+            strBody.Append("        { ")
+            strBody.Append("            font-size:11px; ")
+            strBody.Append("            background-color:#F7F6F3; ")
+            strBody.Append("            text-decoration:none; ")
+            strBody.Append("            font-weight:bold; ")
+            strBody.Append("        } ")
+            strBody.Append("        .Texto ")
+            strBody.Append("        { ")
+            strBody.Append("            	background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
+            strBody.Append("        } ")
+            strBody.Append("        .TextoAlterno ")
+            strBody.Append("        { ")
+            strBody.Append("            background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center;  ")
+            strBody.Append("            vertical-align:middle; height:20px;")
+            strBody.Append("        } ")
+            strBody.Append("        .BarraIdentidad ")
+            strBody.Append("        { ")
+            strBody.Append("            color:#FFFFFF; ")
+            strBody.Append("            background:#F0F0F0; ")
+            strBody.Append("            font-weight:bold; ")
+            strBody.Append("            font-size:19px; ")
+            strBody.Append("            font-style:oblique; ")
+            strBody.Append("        } ")
+            strBody.Append("        .Titulos ")
+            strBody.Append("        { ")
+            strBody.Append("            background-color: Gray;")
+            strBody.Append("            color:White;  ")
+            strBody.Append("           font-family:Verdana; font-size:12px; text-align:center;  ")
+            strBody.Append("            vertical-align:middle; font-weight:bold; height:30px; ")
+            strBody.Append("            text-decoration:none; ")
+            strBody.Append("        } ")
+            strBody.Append("        .Verde {color: #00CC00;} ")
+            strBody.Append("        .Negro {color: #000000;} ")
+            strBody.Append("        .Rojo {color: #FF0000;} ")
+            strBody.Append("    </style> ")
+            strBody.Append("</head> ")
+            strBody.Append("<body> ")
+            strBody.AppendFormat("<div id='C_div' style='width: 600px'>")
+            strBody.AppendFormat("    <fieldset>")
+            strBody.AppendFormat("        <legend><b>{0}</b></legend>", UsuarioActual.Empresa.Empresa)
+            strBody.AppendFormat("        <table class='TextoG' border='0' cellpadding='0' cellspacing='0' width='100%'>")
+            strBody.AppendFormat("            <tr>")
+            strBody.AppendFormat("                <td style='width:100px'>{0}</td>", UsuarioActual.Empresa.Direccion)
+            strBody.AppendFormat("            </tr>")
+            strBody.AppendFormat("            <tr>")
+            strBody.AppendFormat("                <td>Col. {0}</td>", UsuarioActual.Empresa.Colonia)
+            strBody.AppendFormat("            </tr>")
+            strBody.AppendFormat("            <tr>")
+            strBody.AppendFormat("                <td>{0}, {1}, C.P.{2}</td>", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP)
+            strBody.AppendFormat("            </tr>")
+            strBody.AppendFormat("            <tr>")
+            strBody.AppendFormat("                <td>RFC {0}</td>", UsuarioActual.Empresa.RFC)
+            strBody.AppendFormat("            </tr>")
+            strBody.AppendFormat("        </table>")
+            strBody.AppendFormat("    </fieldset>")
+            strBody.AppendFormat("</div><br/><br/>")
+
+            strBody.AppendFormat("<div style='width: 600px'>")
+            strBody.AppendFormat("    <fieldset>")
+            strBody.AppendFormat("        <legend><b> </b></legend>")
+            strBody.AppendFormat("        <table class='TextoG' style='width:100%'>")
+
+            If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque
+                strBody.Append("                <tr style=""height: 22px""> ")
+                strBody.Append("                    <td>Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.</td> ")
+                strBody.Append("                </tr> ")
+            End If
+
+            If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
+                strBody.Append("                <tr style=""height: 22px""> ")
+                strBody.Append("                    <td>Notificación de transferencia de pago realizada.</td> ")
+                strBody.Append("                </tr> ")
+            End If
+
+            strBody.Append("                    <tr style=""height: 22px""> ")
+            strBody.AppendFormat("                  <td>&nbsp;</td> ")
+            strBody.Append("                    </tr> ")
+            strBody.Append("                </table> ")
+            strBody.AppendFormat("      </fieldset>")
+            strBody.Append("    </div> ")
+
+
+            strBody.AppendFormat("<div style='width: 600px'>")
+            strBody.AppendFormat("    <table style='width:100%'>")
+            strBody.AppendFormat("        <tr>")
+            strBody.AppendFormat("            <td style='vertical-align: top'>")
+            strBody.AppendFormat("                <fieldset>")
+            strBody.AppendFormat("                    <legend>Beneficiario:<b>{0}</b> </legend>", objIE.PagueseA)
+            strBody.AppendFormat("                    <table width='100%'>")
+            strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
+            strBody.AppendFormat("                            <th scope='col' style='width:150px;'></th>")
+            strBody.AppendFormat("                            <th scope='col' style='width:450px;'></th>")
+            strBody.AppendFormat("                        </tr>")
+            strBody.AppendFormat("                        <tr class='Texto'>")
+            strBody.AppendFormat("                            <td>Movimiento:</td>")
+            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.TipoTransaccion)
+            strBody.AppendFormat("                        </tr>")
+            strBody.AppendFormat("                        <tr class='Texto'>")
+            strBody.AppendFormat("                            <td>Banco:</td>")
+            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Banco)
+            strBody.AppendFormat("                        </tr>")
+            strBody.AppendFormat("                        <tr class='Texto'>")
+            strBody.AppendFormat("                            <td>Cuenta:</td>")
+            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.NumCuenta)
+            strBody.AppendFormat("                        </tr>")
+            If objIE.CuentaDepositado.ToString <> "" Then
+                strBody.AppendFormat("                        <tr class='Texto'>")
+                strBody.AppendFormat("                            <td>Cuenta Destino:</td>")
+                strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.CuentaDepositado)
+                strBody.AppendFormat("                        </tr>")
+            End If
+            strBody.AppendFormat("                        <tr class='Texto'>")
+            strBody.AppendFormat("                            <td>Fecha:</td>")
+            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.FechaDocumento.ToString("dd/MM/yyyy"))
+            strBody.AppendFormat("                        </tr>")
+            strBody.AppendFormat("                        <tr class='Texto'>")
+            strBody.AppendFormat("                            <td>Importe:</td>")
+            strBody.AppendFormat("                            <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
+            strBody.AppendFormat("                        </tr>")
+            strBody.AppendFormat("                        <tr class='Texto'>")
+            strBody.AppendFormat("                            <td>Observaciones:</td>")
+            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Observaciones)
+            strBody.AppendFormat("                        </tr>")
+            strBody.AppendFormat("                        <tr class='Texto'>")
+            strBody.AppendFormat("                            <td colspan='2'>")
+            strBody.AppendFormat("                                <hr />")
+            strBody.AppendFormat("                            </td>")
+            strBody.AppendFormat("                        </tr>")
+            strBody.AppendFormat("                    </table>")
+            strBody.AppendFormat("                </fieldset>")
+            strBody.AppendFormat("            </td>")
+            strBody.AppendFormat("      </tr>")
+            strBody.AppendFormat("  </table>")
+            strBody.AppendFormat("</div>")
+
+
+            'MOVIMIENTOS CHEQUE
+            If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
+                Dim Textov33 As String = ""
+                If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
+                    Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
+                End If
+
+                strBody.AppendFormat("<div style='width: 1000px'>")
+                strBody.AppendFormat("    <table style='width:1000px'>")
+                strBody.AppendFormat("        <tr>")
+                strBody.AppendFormat("            <td style='vertical-align: top'>")
+                strBody.AppendFormat("                <fieldset>")
+                strBody.AppendFormat("                    <legend><b>Documentos abonados o pagados <br/>{0}</b> </legend>", Textov33)
+                strBody.AppendFormat("                    <table width='1000px'>")
+                strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
+                strBody.AppendFormat("                            <th scope='col' style='width: 10%'>Fecha</th>")
+                strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Factura</th>")
+                strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Importe ($)</th>")
+                strBody.AppendFormat("                            <th scope='col' style='width: 40%'>Folio Fiscal</th>")
+                strBody.AppendFormat("                            <th scope='col' style='width: 15%'>NC Aplicadas</th>")
+                strBody.AppendFormat("                        </tr>")
+
+
+                For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows
+                    strBody.AppendFormat("                        <tr class='Texto'>")
+                    strBody.AppendFormat("                            <td>{0}</td>", dr("Fecha").ToString.ToDate.ToShortDateString())
+                    strBody.AppendFormat("                            <td>{0}</td>", dr("SerieFolio").ToString)
+                    strBody.AppendFormat("                            <td style='text-align: right'>$ {0}</td>", dr("Importe").ToString.FormatoNumero)
+                    strBody.AppendFormat("                            <td>{0}</td>", dr("FolioFiscal"))
+                    strBody.AppendFormat("                            <td>{0}</td>", dr("ImporteNC").ToString.FormatoNumero)
+                    strBody.AppendFormat("                        </tr>")
+                Next
+
+
+                strBody.AppendFormat("                        <tr class='Texto'>")
+                strBody.AppendFormat("                            <td colspan='5'>")
+                strBody.AppendFormat("                                <hr />")
+                strBody.AppendFormat("                            </td>")
+                strBody.AppendFormat("                        </tr>")
+                strBody.AppendFormat("                    </table>")
+                strBody.AppendFormat("                </fieldset>")
+                strBody.AppendFormat("            </td>")
+                strBody.AppendFormat("      </tr>")
+                strBody.AppendFormat("  </table>")
+                strBody.AppendFormat("</div>")
+            End If
+
+            strBody.Append("   <div> Favor de no responder a este correo. </div> ")
+
+            strBody.Append("</body></html>")
+        End If
+
+        objIE.Dispose()
+        Return strBody.ToString
+
+    End Function
+
+
 End Class

Bancos/PopIECompras.aspx.vb

@@ -943,7 +943,25 @@ Partial Class Bancos_PopIECompras
                     Else
                         BtnGuardar.Enabled = False
                         Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
-                    End If
+                    End If
+
+                ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
+
+
+                    If Dep.DtResultados.Rows.Count > 0 Then
+                        DdlCuentaDeposito.DataSource = Dep.DtResultados
+                        trCuentaDeposito.Visible = True
+                        BtnGuardar.ToolTip = ""
+                    Else
+
+                        BtnGuardar.Enabled = False
+                        BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
+
+                    End If
+
+
+                    UpGuardar.Update()
+
 
                 Else
                     DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'")
@@ -951,7 +969,20 @@ Partial Class Bancos_PopIECompras
                         trCuentaDeposito.Visible = True
                         DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                     End If
-                End If
+                End If
+            Else
+
+                If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
+
+                    BtnGuardar.Enabled = False
+                    BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
+                Else
+                    trCuentaDeposito.Visible = True
+                    BtnGuardar.Enabled = True
+                    BtnGuardar.ToolTip = ""
+                End If
+
+                UpGuardar.Update()
 
             End If
             Dep.Dispose()

Bancos/ProveedoresAbonar.aspx.vb

@@ -2518,22 +2518,23 @@ Partial Class Bancos_ProveedoresAbonar
                         Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
                     End If
 
-                    'ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
+                ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
 
 
-                    '    If Dep.DtResultados.Rows.Count > 0 Then
+                    If Dep.DtResultados.Rows.Count > 0 Then
-                    '        DdlCuentaDeposito.DataSource = Dep.DtResultados
+                        DdlCuentaDeposito.DataSource = Dep.DtResultados
-                    '        trCuentaDeposito.Visible = True
+                        trCuentaDeposito.Visible = True
-                    '        BtnIEGuardar.ToolTip = ""
+                        BtnIEGuardar.ToolTip = ""
-                    '    Else
+                    Else
 
-                    '        BtnIEGuardar.Enabled = False
+                        BtnIEGuardar.Enabled = False
-                    '        BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
+                        BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
+                        Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia)
 
-                    '    End If
+                    End If
 
 
-                    '    UpGuardar.Update()
+                    UpGuardar.Update()
                 Else
                     DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'")
                     If Dep.DtResultados.Rows.Count > 0 Then
@@ -2550,23 +2551,43 @@ Partial Class Bancos_ProveedoresAbonar
                 End If
 
 
-                'Else
+            Else
 
 
-                '    If DdlTipoTransaccion.SelectedValue = "17" Then
+                If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
 
-                '        BtnIEGuardar.Enabled = False
+                    BtnIEGuardar.Enabled = False
-                '        BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
+                    BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
-                '    Else
+                    Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia)
-                '        BtnIEGuardar.Enabled = True
+                Else
-                '        BtnIEGuardar.ToolTip = ""
+                    trCuentaDeposito.Visible = True
-                '    End If
+                    BtnIEGuardar.Enabled = True
+                    BtnIEGuardar.ToolTip = ""
+                End If
 
-                '    UpGuardar.Update()
+                UpGuardar.Update()
 
             End If
 
+
+        Else
+
+
+            If DdlTipoTransaccion.SelectedValue = "17" Then
+
+                BtnIEGuardar.Enabled = False
+                BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
+            Else
+                trCuentaDeposito.Visible = True
+                BtnIEGuardar.Enabled = True
+                BtnIEGuardar.ToolTip = ""
+            End If
+
+            UpGuardar.Update()
+
+
         End If
+
         Dep.Dispose()
         'Else
         '    trCuentaDeposito.Visible = False

Bancos/Reportes.aspx

@@ -1,23 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Reportes.aspx.vb" Inherits="Bancos_Reportes" %>
-
-<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
-<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="HB" runat="Server">
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
-</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-    <rvweb:ReportViewer ID="rv" runat="server" Width="1000px" Font-Names="Verdana"
-        Font-Size="8pt" Height="1000px" ToolBarItemBorderColor=""
-        BackColor="#CCCCCC">
-        <LocalReport EnableExternalImages="True">
-        </LocalReport>
-    </rvweb:ReportViewer>
-</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
-</asp:Content>

Bancos/Reportes.aspx.vb

@@ -1,217 +0,0 @@
-Option Strict On
-Option Explicit On
-
-Imports System.Data
-Imports Extensiones
-Imports Microsoft.Reporting.WebForms
-
-Partial Class Bancos_Reportes
-    Inherits ClsPaginas
-
-    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
-        'CType(Me.Master, BaseMasterPage).EsPopup = True
-        If Not Page.IsPostBack Then
-            If Request("Opcion") IsNot Nothing Then
-                Select Case Request("Opcion")
-                    Case "ImprimeMov"
-                        If Request("CveIE") IsNot Nothing AndAlso Request("CveIE").ToString.ToEntero > 0 Then
-                            ImprimeMov(Request("CveIE").ToEntero)
-                        End If
-                End Select
-            End If
-        End If
-    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 dtMovs As DataTable
-                    'obtengo los movimientos pagados
-
-                    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
-
-                        'TblBancos.ExportToPDF("Listado")
-                        Dim dtnc As New DataTable
-                        Dim ObjCompra As New ClsCompras()
-                        If ObjCompra.GetComprasNotasCredito(-1, -1, CveIE) Then
-                            dtnc = ObjCompra.DtResultados
-                        End If
-                        ObjCompra.Dispose()
-
-                        'cargo el reporte con los datos
-
-                        Dim rds2 = New ReportDataSource("DataSet2", dtnc)
-                        Dim rds = New ReportDataSource("DataSet1", dtMovs)
-                        rv.LocalReport.DataSources.Clear()
-                        rv.LocalReport.DataSources.Add(rds)
-                        rv.LocalReport.DataSources.Add(rds2)
-                        rv.LocalReport.ReportPath = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\rptChequeMovimientos.rdlc"
-                        rv.LocalReport.Refresh()
-
-                        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
-
-                        rv.LocalReport.SetParameters(paramList)
-                        rv.LocalReport.Refresh()
-
-
-                    End If
-
-                    Mov.Dispose()
-                    GeneraPDF(String.Format("IE{0}", CveIE))
-
-                End If
-
-            End If
-        End If
-
-        ObjIE.Dispose()
-    End Sub
-    Public Sub GeneraPDF(Optional Nombre As String = "Reporte")
-
-        Dim warnings As Warning() = Nothing
-        Dim streamids As String() = Nothing
-        Dim mimeType As String = Nothing
-        Dim encoding As String = Nothing
-        Dim extension As String = Nothing
-        Dim fileName As String = Nombre
-        Dim bytes As Byte()
-        Try
-            bytes = Me.rv.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings)
-
-            Response.Buffer = True
-            Response.Clear()
-            Response.ContentType = mimeType
-            Response.AddHeader("content-disposition", String.Format("attachment; filename={0}.{1}", fileName, extension))
-            Response.BinaryWrite(bytes) ' create the file
-            Response.Flush() ' send it to the client to download
-            Response.End()
-        Catch ex As Exception
-
-        End Try
-
-    End Sub
-
-
-End Class

Compras/Compras.aspx.vb

@@ -17609,13 +17609,15 @@ Partial Class Compras_Compras
         If Version = "3.3" And CveSATPS > 0 Then
             Dim DrPSSAT As DataRow = Nothing
             If CargaXml Then
-                If GlobalDTPSATPS().FiltraParametros(String.Format("SATClavePS={0}", CveSATPS)).Rows.Count > 0 Then
+                DrPSSAT = GlobalDTPSATPS().FiltroPrimero(String.Format("SATClavePS={0}", CveSATPS))
-                    DrPSSAT = GlobalDTPSATPS().FiltraParametros(String.Format("SATClavePS={0}", CveSATPS)).Rows(0)
+                'If GlobalDTPSATPS().FiltraParametros(String.Format("SATClavePS={0}", CveSATPS)).Rows.Count > 0 Then
-                End If
+                '    DrPSSAT = GlobalDTPSATPS().FiltraParametros(String.Format("SATClavePS={0}", CveSATPS)).Rows(0)
+                'End If
             Else
-                If GlobalDTPSATPS().FiltraParametros(String.Format("CveSATPS={0}", CveSATPS)).Rows.Count > 0 Then
+                DrPSSAT = GlobalDTPSATPS().FiltroPrimero(String.Format("SATClavePS={0}", CveSATPS))
-                    DrPSSAT = GlobalDTPSATPS().FiltraParametros(String.Format("CveSATPS={0}", CveSATPS)).Rows(0)
+                'If GlobalDTPSATPS().FiltraParametros(String.Format("CveSATPS={0}", CveSATPS)).Rows.Count > 0 Then
-                End If
+                '    DrPSSAT = GlobalDTPSATPS().FiltraParametros(String.Format("CveSATPS={0}", CveSATPS)).Rows(0)
+                'End If
             End If
             If DrPSSAT IsNot Nothing Then
                 Row("SATClaveProductoServicio") = DrPSSAT("SATClaveProductoServicio").ToString

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=""/Compras/PopUpVerFactura.aspx?P={2}"">Imprimir</a>", CveIEExcedente, TxtFolio.Text, Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIEExcedente)))
+                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("OP=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=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir</a>", Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIERegistrado)))
+                Mensaje.AppendFormat("Abono Registrado Correctamente. <br/><br/> <a  class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir</a>", Encripta(String.Format("OP=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

General/SaldosIniciales.aspx.vb

@@ -714,6 +714,8 @@ Partial Class General_SaldosIniciales
                     Dim CveSATPS As Integer = GlobalDTPSATPS.FiltroPrimeroValor("CveSATPS", $"SATClavePS = '{SATClavePS}'").ToString.ToEntero
                     Dim CveTamaño As Integer = GlobalDTAcumTamaños.FiltroPrimeroValor("CveTamaño", $"Tamaño = '{Tamaño}' AND CveEmpresa = {UsuarioActual.CveEmpresa}").ToString.ToEntero
                     Dim CveClasificacion2 As Integer = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString.ToEntero
+                    Dim CveClasificacionDetalle As Integer = GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveClasificacionDetalle", $"ClasificacionDetalle = '{Linea}'").ToString.ToEntero
+
 
                     If Not CveClasificacion > 0 AndAlso Clasificacion <> "" Then
                         If ObjClas.AddClasificaciones(Clasificacion, "", -1, "-1", -1, "-1", -1, "-1",
@@ -851,16 +853,16 @@ Partial Class General_SaldosIniciales
 
                             If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1,
                                   CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño,
-                                      CveModelo:=CveModelo, Litraje:=Litraje, IEPSPorcentaje:=IEPS, CveClasificacion2:=CveClasificacion2) <= 0 Then
+                                      CveModelo:=CveModelo, Litraje:=Litraje, IEPSPorcentaje:=IEPS, CveClasificacion2:=CveClasificacion2, CveClasificacionDetalle:=CveClasificacionDetalle) <= 0 Then
                                 'If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1,
                                 '           CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) <= 0 Then
                                 ErrorPS = True
                                 Codigo.GuardaLog
                                 Exit For
-                            Else
+                                'Else
-                                If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa) Then
+                                '    If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa) Then
-                                    DTPS = ObjPS.DtResultados
+                                '        DTPS = ObjPS.DtResultados
-                                End If
+                                '    End If
                             End If
                         End If
 

Inventarios/KardexAlmacenHorizontal.aspx

@@ -145,7 +145,7 @@
                         <label class="col-md-1 truncate">Clasificación:</label>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlClasificacion" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 150px !important;">
-                                <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text=" Todas" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
                         <label class="col-md-1 truncate">Unidad Medida:</label>
@@ -161,7 +161,7 @@
                         <label class="col-md-1 truncate">Tipo Almacen:</label>
                         <div class="col-md-1">
                             <asp:DropDownList ID="DdlTipoAlmacen" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoAlmacen" DataValueField="CveTipoAlmacen" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
-                                <asp:ListItem Selected="True" Text="Seleccione el tipo de Almacen (Todos)" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
                         <label class="col-md-1 truncate">Tránsito?:</label>

Inventarios/PopUpExistenciasAlmacen.aspx

@@ -121,7 +121,7 @@
                                 <asp:BoundField DataField="Existencia" ItemStyle-HorizontalAlign="Right" HeaderText="Existencia" DataFormatString="{0:#,###.######}" />
                                 <asp:BoundField DataField="PendientePorSurtir" ItemStyle-HorizontalAlign="Right" HeaderText="Pendiente Por Surtir" DataFormatString="{0:#,###.######}" />                              
                                 <asp:BoundField DataField="ExistenciaFinal" ItemStyle-HorizontalAlign="Right" HeaderText="Existencia Real" DataFormatString="{0:#,###.######}" />
-                                <asp:BoundField DataField="Importe" ItemStyle-HorizontalAlign="Right" HeaderText="Precio" DataFormatString="{0:N2}"/>
+                                <asp:BoundField DataField="Importe" ItemStyle-HorizontalAlign="Right" HeaderText="Precio Neto" DataFormatString="{0:N2}"/>
                                 <asp:BoundField DataField="CantidadDisponibleInv" ItemStyle-HorizontalAlign="Right" HeaderText="Pendiente Por Recibir" DataFormatString="{0:#,###.######}" Visible="false"/>
                             </Columns>
                         </asp:GridView>                    

Inventarios/TraspasoAlmacen.aspx.vb

@@ -532,7 +532,7 @@ Partial Class Inventarios_TraspasoAlmacen
         End If
         Inv.Dispose()
 
-        If Existencia - Cantidad - CantidadEnGrid < 0 ORELSE ExistenciaEspecificada - Cantidad - CantidadEnGrid < 0 Then
+        If Existencia - Cantidad - CantidadEnGrid < 0 OrElse ExistenciaEspecificada - Cantidad - CantidadEnGrid < 0 Then
             If Existencia < 0 OrElse ExistenciaEspecificada < 0 Then
                 Alert("No hay existencia del producto", TipoMensaje.MsgAdvertencia)
                 RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
@@ -659,7 +659,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 Dim CveSucursalOrigen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue.ToEntero}")
                 Dim CveSucursalDestino = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}")
 
-                If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").ToEntero <> 21 Then  'NO SE VALIDA CUANDO EL TIPO DE ALMACEN DESTINO ES DE DEVOLUCION
+                If Not GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").Contiene("21", "26") Then  'NO SE VALIDA CUANDO EL TIPO DE ALMACEN DESTINO ES DE DEVOLUCION
                     If CveSucursalOrigen <> CveSucursalDestino Then
                         Alert("Por ser un traspaso entre sucursales es necesario indicar que el traspaso es transitorio.", TipoMensaje.MsgAdvertencia)
                         RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'');", "SonidoError")
@@ -844,6 +844,9 @@ Partial Class Inventarios_TraspasoAlmacen
             If Not ErrorMovInv Then
                 Dim TipoMovimientoEntrada = 27
                 AlmacenEntrada = If(ChkTransitorio.Checked, DdlAlmacenTransitorio.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero)
+
+                Dim TipoAlmacenEntrada As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {AlmacenEntrada}").ToEntero()
+
                 CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, TipoMovimientoEntrada, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1,
                                                                    Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
                                                                    CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G3")
@@ -855,7 +858,8 @@ Partial Class Inventarios_TraspasoAlmacen
                     If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                         Dim Cont As Integer = 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, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=-1, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Observaciones:=Dr("Observaciones").ToString) Then
+                            Dim CostoEntrada As Decimal = If(TipoAlmacenEntrada = 26, 0, Dr("PU").ToString.ToDecimal())
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, CostoEntrada, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=-1, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Observaciones:=Dr("Observaciones").ToString) Then
                                 ErrorMovInv = True
                                 TextoError = "Ocurrió un error al guardar los movimientos de entrada"
                                 Exit For
@@ -1274,7 +1278,7 @@ Partial Class Inventarios_TraspasoAlmacen
     Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            If e.Row.DBCampo("EstatusExistencia").ToEntero <0 Then
+            If e.Row.DBCampo("EstatusExistencia").ToEntero < 0 Then
                 e.Row.Cells(0).BackColor = Drawing.Color.Red
             End If
 
@@ -1718,8 +1722,12 @@ Partial Class Inventarios_TraspasoAlmacen
             ObjInventario.IniciaTransacSQL() 'Inicia la transacción
             Dim Fecha As Date = TxtFechaRecepcion.Text.ToDate
 
+            Dim CveAlmacenEntrada As Integer = GvDatosRecepcion.Rows(0).DataKey("CveAlmacenDestino").ToEntero
+
+            Dim TipoAlmacenDestino As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenEntrada}").ToEntero()
+
             'AGREGAMOS LA ENTRADA
-            CveMovimientoSalida = ObjInventario.AddMovimiento(GvDatosRecepcion.Rows(0).DataKey("CveAlmacenDestino").ToEntero, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
+            CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenEntrada, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
                                                               Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveAlmacenDestino:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G1")
             Folio = ObjInventario.Folio
 
@@ -1751,8 +1759,8 @@ Partial Class Inventarios_TraspasoAlmacen
                             TextoError = "Ocurrió un error al guardar los movimientos de salida"
                             Exit For
                         End If
-
+                        Dim PrecioEntrada As Decimal = If(TipoAlmacenDestino = 26, 0, gvr.DataKey("PU").ToString.ToDecimal)
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, gvr.DataKey("PU").ToString.ToDecimal, CveAF:=gvr.DataKey("CveAF").ToString.ToEntero, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, Serie:=gvr.DataKey("Serie").ToString, Lote:=gvr.DataKey("Lote").ToString, FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, PrecioEntrada, CveAF:=gvr.DataKey("CveAF").ToString.ToEntero, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, Serie:=gvr.DataKey("Serie").ToString, Lote:=gvr.DataKey("Lote").ToString, FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then
                             ErrorMovInv = True
                             TextoError = "Ocurrió un error al guardar los movimientos de salida"
                             Exit For

Site.master.vb

@@ -460,7 +460,7 @@ Partial Class Site
         'End If
         'OC.Dispose()
 
-        LtlMNotificaciones.Text = LtlMNotificaciones.Text & Notificaciones.ToString
+        LtlMNotificaciones.Text = String.Format("{0}{1}", LtlMNotificaciones.Text, Notificaciones.ToString)
         Notificaciones.Clear()
     End Sub
 
@@ -494,11 +494,41 @@ Partial Class Site
 
 #Region "TIPO DE CAMBIO"
     Private Sub CargaTipoCambio()
+
+        If Application("TipoCambioActual") Is Nothing Then
+            'sino existe el dato, lo carga por ser la primera vez
+            Application("TipoCambioActual") = GetTipoCambio()
+        Else
+            Dim TCA As TipoCambioActual = CType(Application("TipoCambioActual"), TipoCambioActual)
+            If TCA.Fecha <> DateTime.Today Then
+                Application("TipoCambioActual") = GetTipoCambio()
+            End If
+        End If
+        lblTipoCambio.Text = String.Format(" | TC {0:C4}", CType(Application("TipoCambioActual"), TipoCambioActual).TipoCambio)
+
+    End Sub
+
+    Private Function GetTipoCambio() As TipoCambioActual
+        Dim Retorno As TipoCambioActual = Nothing
+
+        'sino existe el dato, lo carga por ser la primera vez
         Dim ObjGenerales As ClsGenerales = New ClsGenerales
-        If ObjGenerales.GetTipoCambio(-1, DateTime.Now) And ObjGenerales.DtResultados.Rows.Count > 0 Then
+        If ObjGenerales.GetTipoCambio(-1, DateTime.Today) And ObjGenerales.DtResultados.Rows.Count > 0 Then
-            lblTipoCambio.Text = String.Format(" | TC {0:C4}", ObjGenerales.DtResultados(0)("TipoCambio").ToString().ToDecimal())
+            'lblTipoCambio.Text = String.Format(" | TC {0:C4}", ObjGenerales.DtResultados(0)("TipoCambio").ToString().ToDecimal())
+            If ObjGenerales.DtResultados.Rows.Count > 0 Then
+                Retorno = New TipoCambioActual With {.Fecha = DateTime.Today, .TipoCambio = ObjGenerales.DtResultados(0)("TipoCambio").ToString().ToDecimal()}
+            End If
+
         End If
         ObjGenerales.Dispose()
-    End Sub
+
+        Return Retorno
+    End Function
+
+
 #End Region
+End Class
+Public Class TipoCambioActual
+    Public Fecha As Date
+    Public TipoCambio As Decimal
 End Class

Tareas/Thalamus.asmx

@@ -0,0 +1 @@
+<%@ WebService Language="VB" CodeBehind="~/App_Code/Thalamus.vb" Class="Thalamus" %>

Ventas/Clientes.aspx.vb

@@ -487,10 +487,10 @@ Partial Class Clientes
         Set(value As String)
             ViewState("linkDescargaPagare") = value
         End Set
-    End Property
+    End Property
-
+
 #End Region
-
+
 #Region "Documentacion"
     Private Property DTDocumentacion As DataTable
         Get
@@ -5984,6 +5984,9 @@ Partial Class Clientes
 #Region "C U E N T A S - B A N C A R I A S"
 
     Private Sub CargaCuentasBancarias()
+
+        If CveCliente <= 0 Then Exit Sub
+
         Dim ObjCuentasBancos As New ClsGenerales
         ViewState("OrdenCuentasBancos") = ""
         DTCuentasBancos = New DataTable

Ventas/ProductosServicios.aspx.vb

@@ -222,7 +222,7 @@ Partial Class ProductosyServicios
 
             InicializaEcommerce()
 
-            If UsuarioActual.CveEmpresa.Contiene(141) Then
+            If UsuarioActual.CveEmpresa.Contiene(141, 152) Then
                 'DivDatos.Attributes("class") = "col-md-12"
 
                 DivDdlTipo.Visible = True

asmx/WSApp.asmx

@@ -30,18 +30,18 @@ Public Class WSApp
             Return ConfigurationManager.AppSettings("UrlSitio").ToString
         End Get
     End Property
-    ReadOnly Property GlobalDTPS(CveEmpresa As Integer, Optional CvePS As Integer = -1, Optional SATClavePS As String = "-1") As DataTable
+    ReadOnly Property GlobalDTPS(CveEmpresa As Integer, Optional CvePS As Integer = -1, Optional SATClavePS As String = "-1", Optional AplicaParaVenta As Integer = -1, Optional Estatus As Integer = -1, Optional Codigo As String = "-1") As DataTable
-        Get
+        Get
-            Dim ObjPS As New ClsProductosServicios
+            Dim ObjPS As New ClsProductosServicios
-
+
-            If ObjPS.GetPS(CvePS, -1, CveEmpresa, SATClavePS:=SATClavePS) Then
+            If ObjPS.GetPS(CvePS, -1, CveEmpresa, Codigo:=Codigo, SATClavePS:=SATClavePS, pAplicaParaVenta:=AplicaParaVenta, pEstado:=Estatus) Then
-                GlobalDTPS = ObjPS.DtResultados
+                GlobalDTPS = ObjPS.DtResultados
-            Else
+            Else
-                GlobalDTPS = Nothing
+                GlobalDTPS = Nothing
-            End If
+            End If
-
+
-            ObjPS.Dispose()
+            ObjPS.Dispose()
-        End Get
+        End Get
     End Property
     Property GlobalDTMonedas() As DataTable
         Get
@@ -66,41 +66,37 @@ Public Class WSApp
         Set(value As DataTable)
             Application("GlobalDTVtaFormaPago") = value
         End Set
-    End Property
+    End Property
-    Public Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
+    Public Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
-        Get
+        Get
-            Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
-            'sino existe, recarga los datos
+            'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Or (DirectCast(Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(Application(AppNombre), DataTable).Rows.Count = 0) Then
+            If DirectCast(Application(AppNombre), DataTable) Is Nothing Or (DirectCast(Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(Application(AppNombre), DataTable).Rows.Count = 0) Then
-                Dim P As New ClsSubProyectos
+                Dim P As New ClsSubProyectos
-                If P.GetSubProyectos(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = P.DtResultados
+                If P.GetSubProyectos(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = P.DtResultados
-                P.Dispose()
+                P.Dispose()
-
+            End If
-                Dim msg As String = "aqui no se carga subproyectos"
+
-                msg.GuardaLog()
+            If CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse Estatus <> -1 Then
-
+                Dim StrSQL As New StringBuilder
-            End If
+                If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
-
+                If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
-            If CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse Estatus <> -1 Then
+                If Estatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", Estatus)
-                Dim StrSQL As New StringBuilder
+                If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
-                If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
+
-                If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
-                If Estatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", Estatus)
+                GlobalDTSubProyectos = Dv.ToTable
-                If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
+                Dv.Dispose()
-
+
-                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
+            Else
-                GlobalDTSubProyectos = Dv.ToTable
+                GlobalDTSubProyectos = DirectCast(Application(AppNombre), DataTable)
-                Dv.Dispose()
+            End If
-
+
-            Else
+        End Get
-                GlobalDTSubProyectos = DirectCast(Application(AppNombre), DataTable)
+        Set(ByVal value As DataTable)
-            End If
+            Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
-
+            Application(AppNombre) = value
-        End Get
+        End Set
-        Set(ByVal value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa)
-            Application(AppNombre) = value
-        End Set
     End Property
     Property GlobalDTSATUsosCFDI(Optional EsPersonaFisica As Integer = -1) As DataTable
         Get
@@ -1238,9 +1234,7 @@ Public Class WSApp
         Dim Row As DataRow = Nothing
         Dim TotalCalculableImpuestos As Decimal = 0
 
-        Dim DrPS As DataRow = Nothing
+        Dim DrPS As DataRow = GlobalDTPS(CveEmpresa, CvePS:=PS.CvePS).FiltroPrimero("") ' Estado = -1
-
-        DrPS = GlobalDTPS(CveEmpresa, CvePS:=PS.CvePS).FiltroPrimero("") ' Estado = -1
 
         If DrPS Is Nothing Then
             Retorno.Mensajes.Add("Ocurrió un error al cargar la información del Producto. Por favor vuelva a intentar.")

vwd.webinfo

@@ -64,6 +64,10 @@
     
   
     
+  
+    
+  
+