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

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
+            SqlAdapter.SelectCommand.CommandTimeout = 0
+
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As SqlException

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

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" />
@@ -481,6 +495,15 @@
                                                 <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">
                                                     <asp:ListItem Text="Todos" Value="-1" />
@@ -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>                                
                                 
@@ -710,18 +734,32 @@
                                 <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="Alta" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="40px">
+                                <asp:TemplateField HeaderText="Banco" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px">                                     
                                     <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 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
-                    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"
+                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,17 +1895,18 @@ 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()
+    'Private Sub MandaCorreo(data As Object)
-        Dim Para As String = Parametros(0)
+    '    Dim Parametros As List(Of String) = DirectCast(data, List(Of String))
-        Dim Asunto As String = Parametros(1)
-        Dim Body As String = Parametros(2)
 
-        Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
+    '    Dim Mail As New ClsSisMail()
+    '    Dim Para As String = Parametros(0)
+    '    Dim Asunto As String = Parametros(1)
+    '    Dim Body As String = Parametros(2)
 
-    End Sub
+    '    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,11 +2384,15 @@ 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))
@@ -2374,6 +2424,9 @@ Partial Class Bancos_PagoElectronicoGrupos
             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)
+             
         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")))
-            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

@@ -945,6 +945,24 @@ Partial Class Bancos_PopIECompras
                         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
+                        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
@@ -952,6 +970,19 @@ Partial Class Bancos_PopIECompras
                         DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                     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

Inventarios/EntregaAlmacen.aspx.vb

@@ -509,7 +509,7 @@ Partial Class Inventarios_EntregaAlmacen
         TipoEntrega = 1
         BtnGuardar.Visible = True
 
-        Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2)"
+        Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,26)"
 
         If UsuarioActual.CveSubProyecto = 8804 Then
             StrAlmacenes = "CveTipoAlmacen IN (1,2,12)"
@@ -1665,6 +1665,15 @@ Partial Class Inventarios_EntregaAlmacen
 
         Dim CveMovimientoSalida = -1, FolioSalida = -1, CveMovimientoEntrada = -1, CveMovimientoEntradaApartado = -1, FolioEntrada = -1, CveMovimientoSalidaDevRem = -1, FolioMovimientoSalidaDevRem = -1, CveMovimientoEntradaDevRem = -1, FolioMovimientoEntradaDevRem = -1
 
+
+        Dim DtDevSinCosto As New DataTable
+        DtDevSinCosto.Columns.Add("CveAlmacen", GetType(Integer))
+        DtDevSinCosto.Columns.Add("Almacen", GetType(String))
+        DtDevSinCosto.Columns.Add("CveMovimientoEntrada", GetType(Integer))
+        DtDevSinCosto.Columns.Add("FolioEntrada", GetType(Integer))
+        DtDevSinCosto.Columns.Add("CveTipoAlmacen", GetType(Integer))
+        DtDevSinCosto.Columns.Add("CveConceptoMovimientoSalida", GetType(Integer))
+
         Try
             'VALIDA EXISTENCIA 2
             If TipoMovimiento = 1 Then
@@ -2192,7 +2201,66 @@ Partial Class Inventarios_EntregaAlmacen
             End If
             ' TERMINA: GARANTIAS
 
-            Dim CantidadPendientePorSalir As Decimal = DtDatos.SUM("CantidadGV").ToDecimal() - CantidadSalidaSinCosto
+            'DEVOLUCION DE SIN COSTO
+            Dim CantidadEntradaSinCosto As Decimal = 0
+
+            If Not ErrorMovInv AndAlso TipoMovimiento = 2 AndAlso UsuarioActual.Empresa.Funcionalidad(587) = "1" Then
+                For Each Dr1 As DataRow In DtExistencias.FiltraParametros("CveTipoAlmacenDevolucion = 26").Rows
+                    Dim CveMovimientoSalidaSinCosto = Dr1("CveMovimiento").ToString.ToEntero
+
+                    'Dim CveAlmacenSinCosto As Integer = Dr1("CveAlmacenDevolucion").ToString().ToEntero()
+
+                    'Dim AlmacenSinCosto As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=26).FiltroPrimeroValor("Almacen", $"CveAlmacen={CveAlmacenSinCosto}").ToString()
+
+                    Dim CveMovimientoDevolucionSinCosto = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero(), 41, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
+                                                                                   Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida,
+                                                                                   Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4")
+                    Dim FolioDevSinCosto = ObjInventario.Folio
+
+                    If Not CveMovimientoDevolucionSinCosto > 0 Then
+                        ErrorMovInv = True
+                        TextoError.AppendFormat("Ocurrió un error al procesar los movimientos de traspaso de apartado. Por favor vuelva a intentar.")
+                        Exit For
+                    End If
+
+                    If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaSinCosto, UsuarioActual.CveEmpresa) Then
+                        For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+
+                            CantidadEntradaSinCosto += Dr("Cantidad").ToString.ToDecimal()
+
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucionSinCosto, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                                ErrorMovInv = True
+                                TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
+                                Exit For
+                            End If
+                        Next
+                    End If
+
+                    If ErrorMovInv Then Exit For
+
+                    Dim DrMovto = DtDevSinCosto.NewRow
+                    DrMovto("Almacen") = DdlAlmacen.SelectedItem.Text
+                    DrMovto("CveAlmacen") = DdlAlmacen.SelectedValue.ToEntero()
+                    DrMovto("CveMovimientoEntrada") = CveMovimientoDevolucionSinCosto
+                    DrMovto("FolioEntrada") = FolioDevSinCosto
+                    DrMovto("CveTipoAlmacen") = 10
+                    DrMovto("CveConceptoMovimientoSalida") = 41
+                    DtDevSinCosto.Rows.Add(DrMovto)
+
+                    If Not ErrorMovInv Then
+                        ErrorMovInv = Not GenerarPrePoliza(ObjInventario, ObjVentas, ObjConta, CveMovimientoDevolucionSinCosto, TextoError)
+                    End If
+
+                Next
+            End If
+
+            Dim CantidadPendientePorSalir As Decimal = DtDatos.SUM("CantidadGV").ToDecimal()
+
+            If TipoMovimiento = 1 Then
+                CantidadPendientePorSalir = CantidadPendientePorSalir - CantidadSalidaSinCosto
+            ElseIf TipoMovimiento = 2 Then
+                CantidadPendientePorSalir = CantidadPendientePorSalir - CantidadEntradaSinCosto
+            End If
 
             If Not ErrorMovInv AndAlso CantidadPendientePorSalir > 0 Then
                 Dim ConceptoMovimiento = 3
@@ -2261,7 +2329,7 @@ Partial Class Inventarios_EntregaAlmacen
                     CantidadPendiente = 0
                     Dim Cont As Integer = 0
                     For Each Dr As DataRow In DtDatos.Rows
-                        CantidadPendiente = Dr("CantidadGV").ToString.ToDecimal - Dr("CantidadTraspaso").ToString.ToDecimal
+                        CantidadPendiente = Dr("CantidadGV").ToString.ToDecimal - Dr("CantidadTraspaso").ToString.ToDecimal - CantidadEntradaSinCosto
                         If CantidadPendiente > 0 Then
                             Dim PU As Decimal = 0
 
@@ -2271,7 +2339,7 @@ Partial Class Inventarios_EntregaAlmacen
                             If DtDetalle.Rows.Count > 0 Then
                                 For Each Dr1 As DataRow In DtDetalle.Rows
                                     If TipoMovimiento = 2 AndAlso DtExistencias IsNot Nothing Then
-                                        PU = DtExistencias.FiltroPrimeroValor("PU", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString.ToEntero} AND Serie = '{Dr1("Serie").ToString}'").ToString.ToDecimal
+                                        PU = DtExistencias.FiltroPrimeroValor("PU", $"CveTipoAlmacenDevolucion <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString.ToEntero} AND Serie = '{Dr1("Serie").ToString}'").ToString.ToDecimal
                                     End If
 
                                     If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PU, Serie:=Dr1("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
@@ -2626,6 +2694,13 @@ Partial Class Inventarios_EntregaAlmacen
                 Next
             End If
 
+            If DtDevSinCosto.Rows.Count > 0 Then
+                Msg.AppendFormat("<br/><br/> Movimientos de Control (Sin Costo):")
+                For Each Dr As DataRow In DtDevSinCosto.Rows
+                    Msg.AppendFormat("<br/>Almacén {0} | Devolución directa de almacen: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b> ", Dr("Almacen"), Dr("CveMovimientoEntrada"), Dr("FolioEntrada"))
+                Next
+            End If
+
             If CveMovimientoGarantia > 0 Then
                 Msg.AppendFormat("<br/>Movimiento de Entrada (garantías): <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoGarantia, FolioGarantia)
                 Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoGarantia)))

Tareas/Thalamus.asmx

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

Ventas/Ventas.aspx.vb

@@ -16086,6 +16086,8 @@ Partial Class Ventas
             Dim DtMovimientosDetalles As DataTable
             DtRemConceptosSurtidos = Nothing
 
+            Dim TieneMovimientosSinCosto As Boolean = False
+
             'Obtenemos los movimientos detalle
             If ObjInventario.GetInv_Mov(CveRemision, UsuarioActual.CveEmpresa) Then
 
@@ -16116,6 +16118,9 @@ Partial Class Ventas
                     'VALIDAR SI TIENE PRODUCTOS POR TRASPASAR
                     If DtMovimientos.Rows.Count > 0 Then
                         Dim GeneroMovimientoAlmacen As Boolean = False
+
+                        TieneMovimientosSinCosto = DtMovimientosDetalles.COUNT("CveTipoAlmacen", "CveTipoAlmacen=26") > 0
+
                         For Each dr As DataRow In DtMovimientos.Rows
                             'Obtenemos los Movimientos de salida
                             If ObjInventario.GetMovimientos(dr("CveMovimiento").ToString().ToEntero(), ConceptoMovimiento, -1, UsuarioActual.CveEmpresa) Then
@@ -16132,9 +16137,14 @@ Partial Class Ventas
 
                                         Dim MovDetalle As New DataTable
                                         Dim AplicaMovimientoDetalleEntrada As Boolean = False
+
                                         If RemisionesLista.Count > 0 Then
                                             AplicaMovimientoDetalleEntrada = True
-                                            MovDetalle = CuadrarFacturaMovimientos(DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")} AND (TieneSalidaxFactura IS NULL OR SaldoAlmacen > 0)"))
+                                            If TieneMovimientosSinCosto Then
+                                                MovDetalle = DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")}")
+                                            Else
+                                                MovDetalle = CuadrarFacturaMovimientos(DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")} AND (TieneSalidaxFactura IS NULL OR SaldoAlmacen > 0)"))
+                                            End If
                                         Else
                                             MovDetalle = DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")}")
                                         End If
@@ -16209,7 +16219,10 @@ Partial Class Ventas
 
                                         MovDetalle.Dispose()
 
-                                        OcurrioError = Not GeneroMovimientoAlmacen
+                                        'VERIFICA QUE SE HAYA GENERADO MOVIMIENTO DE ALMACEN
+                                        If Not OcurrioError Then
+                                            OcurrioError = Not GeneroMovimientoAlmacen
+                                        End If
                                     End If
 
                                 End If