diff --git a/AC/Reportes/RepEstadoActividades.rdlc b/AC/Reportes/RepEstadoActividades.rdlc
index 931f42736..de0652b3b 100644
--- a/AC/Reportes/RepEstadoActividades.rdlc
+++ b/AC/Reportes/RepEstadoActividades.rdlc
@@ -1008,7 +1008,18 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value>=Parameters!pFirma1.Value</Value>
+                  <Value>C.P Vera Guadalupe Tarazon Moreno</Value>
+                  <Style />
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Director Administrativo</Value>
                   <Style />
                 </TextRun>
               </TextRuns>
diff --git a/AC/Reportes/RepSituacionFinanciera.rdlc b/AC/Reportes/RepSituacionFinanciera.rdlc
index 3723ffd7a..ab0b3f9b8 100644
--- a/AC/Reportes/RepSituacionFinanciera.rdlc
+++ b/AC/Reportes/RepSituacionFinanciera.rdlc
@@ -2942,7 +2942,18 @@
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value>=Parameters!pFirma1.Value</Value>
+                      <Value>C.P Vera Guadalupe Tarazon Moreno</Value>
+                      <Style />
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Center</TextAlign>
+                  </Style>
+                </Paragraph>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>Director Administrativo</Value>
                       <Style />
                     </TextRun>
                   </TextRuns>
diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 03d47a895..754e99d4a 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -3122,6 +3122,13 @@ Public Class ClsBancos
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
+
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe un registro con el mismo Folio", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar los cambios", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             OnError("Ocurrió un error al actualizar El movimiento Bancario", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 8d999ba99..167b29d2b 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -6,8 +6,8 @@ Imports System.Data.SqlClient
 Imports Extensiones
 
 Public Class ClsGenerales
-    Implements IDisposable
-
+    Implements IDisposable
+
 #Region "Campos"
     Private _CveColectiva As Integer
 
@@ -48,9 +48,9 @@ Public Class ClsGenerales
         Get
             DtResultados = Data
         End Get
-    End Property
+    End Property
 #End Region
-
+
     Public Function IniciaTransacSQL() As SqlTransaction
         If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
         Return SqlTransacc
@@ -89,9 +89,9 @@ Public Class ClsGenerales
         End With
         Data = New DataTable
         If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
-    End Sub
+    End Sub
 #Region "Conexiones"
-
+
     Private Sub ConexionAdd()
         If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
             Try
@@ -124,9 +124,9 @@ Public Class ClsGenerales
             CveConexion = 0
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
     Private Sub DataCommand(ByVal pStrSQL As String, Optional ByVal TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlCommand
             .Parameters.Clear()
@@ -209,7 +209,7 @@ Public Class ClsGenerales
             OnError("Ocurrió un error al obtener los registros de solicitudes CFDI SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
         Return retorno
-    End Function
+    End Function
 #Region " I N D I C A D O R E S   Y    G R A F I C A S"
     Public Function GetIndicadores(CveEmpresa As Integer) As DataSet
         'Dim Retorno As Boolean = False
@@ -231,10 +231,10 @@ Public Class ClsGenerales
         End Try
 
         Return ds
-    End Function
-
+    End Function
+
 #End Region
-
+
 #Region " D I A S I N H A B I L E S "
     Public Function DiasInhabiles_Add(CveEmpresa As Integer, CveUsuario As Integer, DiaInhabil As String, Descripcion As String, Estatus As Integer, FechaInhabil As Date) As Boolean
         Dim Retorno As Boolean = False
@@ -317,9 +317,9 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region " P A Q U E T E R I A S"
     Public Function GetGralPaqueterias(Optional CveEmpresa As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
@@ -453,11 +453,11 @@ Public Class ClsGenerales
             OnError("Ocurrió un error al actualizar en el Catálogo de Paqueterias Guias Tipos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "P L A N T I L L A S  C O N T R A T O S"
-
+
     Public Function ContratoPlantillaAdd(CveEmpresa As Integer, CveUsuario As Integer, NombrePlantilla As String, URL As String, Tipo As String) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_ContratoPlantillaAdd")
@@ -534,10 +534,10 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
-
+    End Function
+
 #End Region
-
+
 #Region " E S T A D O S"
     Public Function GetGralEstados() As Boolean
         Dim Retorno As Boolean = False
@@ -550,9 +550,9 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region " M U N I C I P I O S"
     Public Function GetGralMunicipios() As Boolean
         Dim Retorno As Boolean = False
@@ -565,9 +565,9 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region " P A I S E S"
     Public Function GetGralPaises() As Boolean
         Dim Retorno As Boolean = False
@@ -580,9 +580,9 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region " P O B L A C I O N E S"
     Public Function GetGralPoblaciones() As Boolean
         Dim Retorno As Boolean = False
@@ -595,9 +595,9 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "E S C O L A R I D A D"
     Public Function GetEscolaridades() As Boolean
         Dim Retorno As Boolean = False
@@ -687,9 +687,9 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "C A T E G O R I A S"
     Public Function GetCategorias(Optional CveEmpresa As Integer = -1, Optional Tipo As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
@@ -786,9 +786,9 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "M O D E L O S"
     Public Function GetModelos(CveEmpresa As Integer, Optional CveModelo As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
@@ -882,9 +882,9 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "R I M T A M A N I O S"
     Public Function GetRimTamanios(CveEmpresa As Integer, Optional CveRinTamaño As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
@@ -976,9 +976,9 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "M E D I D A S"
     Public Function GetMedidas(CveEmpresa As Integer, Optional CveMedida As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
@@ -1058,9 +1058,9 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "C O L E C T I V A S"
     Public Function GetColectivas(CveColectiva As Integer, Colectiva As String, Codigo As String, Tipo As String, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
@@ -1216,10 +1216,10 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
-
+    End Function
+
 #End Region
-
+
 #Region "C O L E C T I V A S - D E T A L L E S"
     Public Function GetColectivasDetalles(CveColectiva As Integer, Tipo As String, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
@@ -1337,9 +1337,9 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "S u b i r  I m a g e n e s"
     Public Function ImagenUpload(pCveOpcion As Integer, pCveClave As Integer, pCveUsuario As Integer, IMEI As String, pCveEmpresa As Integer) As Integer
         Dim Retorno As Integer = -1
@@ -1370,6 +1370,7 @@ Public Class ClsGenerales
 #Region "G E N E R A L E S   -  C U E N T A S  B A N C A R I A S "
     Public Function GetCuentasDepositos(Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCuentaDeposito As Integer = -1, Optional CveEmpresa As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
+
         DataAdapter("PA_Gral_CuentasDepositosGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
@@ -1390,8 +1391,9 @@ Public Class ClsGenerales
         Return Retorno
     End Function
     Public Function AddCuentasDepositos(BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, RefCrediProveedor As String, CveUsuario As Integer, CveMoneda As Integer,
-                                            Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveUsuarioModifico As Integer = -1,
-                                        Optional Correo As String = "", Optional BBVAAlias As String = "-1", Optional EstatusPagoElectronico As Boolean = False, Optional EstatusPagoElectronicoGrupos As Boolean = False, Optional CveSATBanco As Integer = -1) As Boolean
+                                        Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveUsuarioModifico As Integer = -1,
+                                        Optional Correo As String = "", Optional BBVAAlias As String = "-1", Optional EstatusPagoElectronico As Boolean = False, Optional EstatusPagoElectronicoGrupos As Boolean = False, Optional CveSATBanco As Integer = -1,
+                                        Optional ConceptoCIE As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Gral_CuentasDepositosAdd")
@@ -1418,6 +1420,7 @@ Public Class ClsGenerales
             .Add("@EstatusPagoElectronico", SqlDbType.Bit).Value = EstatusPagoElectronico
             .Add("@EstatusPagoElectronicoGrupos", SqlDbType.Bit).Value = EstatusPagoElectronicoGrupos
             .Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco
+            .Add("@ConceptoCIE", SqlDbType.VarChar).Value = ConceptoCIE
 
         End With
 
@@ -1436,6 +1439,7 @@ Public Class ClsGenerales
 
         Return Retorno
     End Function
+
     Public Function RemoveCuentasDepositos(CveCuentaDeposito As Integer, Optional CveUsuarioModifico As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
@@ -1462,7 +1466,8 @@ Public Class ClsGenerales
 
     Public Function UpdateCuentasDepositos(CveCuentaDeposito As Integer, BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String,
                                            RefCrediProveedor As String, Predeterminada As Boolean, Estatus As Boolean, CveMoneda As Integer, Optional CveUsuarioModifico As Integer = -1, Optional Correo As String = "",
-                                           Optional BBVAAlias As String = "-1", Optional EstatusPagoElectronico As Boolean = False, Optional EstatusPagoElectronicoGrupos As Boolean = False, Optional CveSATBanco As Integer = -1) As Boolean
+                                           Optional BBVAAlias As String = "-1", Optional EstatusPagoElectronico As Boolean = False, Optional EstatusPagoElectronicoGrupos As Boolean = False, Optional CveSATBanco As Integer = -1,
+                                           Optional ConceptoCIE As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Gral_CuentasDepositosUpdate")
@@ -1488,6 +1493,7 @@ Public Class ClsGenerales
             .Add("@EstatusPagoElectronico", SqlDbType.Bit).Value = EstatusPagoElectronico
             .Add("@EstatusPagoElectronicoGrupos", SqlDbType.Bit).Value = EstatusPagoElectronicoGrupos
             .Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco
+            .Add("@ConceptoCIE", SqlDbType.VarChar).Value = ConceptoCIE
 
         End With
 
@@ -1507,7 +1513,7 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function UpdateCuentasDepositosEstatusPagoElectronicoGrupos(CveCuentaDeposito As Integer, EstatusPagoElectronicoGrupos As Boolean, CveSATBanco As Integer, BBVAAlias As String) As Boolean
+    Public Function UpdateCuentasDepositosEstatusPagoElectronicoGrupos(CveCuentaDeposito As Integer, EstatusPagoElectronicoGrupos As Integer, CveSATBanco As Integer, BBVAAlias As String, Referencia As String, ConceptoCIE As String) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -1515,21 +1521,17 @@ Public Class ClsGenerales
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCuentaDeposito", SqlDbType.VarChar).Value = CveCuentaDeposito
-            .Add("@EstatusPagoElectronicoGrupos", SqlDbType.Bit).Value = EstatusPagoElectronicoGrupos
+            .Add("@EstatusPagoElectronicoGrupos", SqlDbType.Int).Value = EstatusPagoElectronicoGrupos
             .Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco
             .Add("@BBVAAlias", SqlDbType.VarChar).Value = BBVAAlias
+            .Add("@Referencia", SqlDbType.VarChar).Value = Referencia
+            .Add("@ConceptoCIE", SqlDbType.VarChar).Value = ConceptoCIE
         End With
 
 
         Try
             SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe un registro con el mismo nombre", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al guardar los cambios", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
+            Retorno = True
         Catch ex As Exception
             OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
@@ -1639,11 +1641,11 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "C  l a s i f i c a c i o n e s     C a  r a c t  e r i  s t i c a s"
-
+
     Public Function AddClasificacionesCaracteristicas(CaracteristicaClasificacion As String, Orden As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_CaracteristicasClasificacionesAdd")
@@ -1724,12 +1726,12 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
-
+    End Function
+
 #End Region
-
+
 #Region "C a r a c t e r í s t i c a s"
-
+
     Public Function GetCaracteristicasModulos() As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_CaracteristicasModuloGet")
@@ -1983,9 +1985,9 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "O p c i o n  e  s"
     Public Function AddCaracteristicasOpciones(CaracteristicaOpcion As String, CveCaracteristica As Integer, Orden As Integer, Estatus As Boolean, CveUsuario As Integer) As Boolean
         Dim Retorno As Boolean = False
@@ -2086,9 +2088,9 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "T I P O    C U E N T A S  E Q U I P O S"
     Public Function AddTipoCuentaEquipo(TipoCuentaEquipo As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
@@ -2175,9 +2177,9 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "C U E N T A S  E Q U I P O S"
     Public Function AddCuentaEquipo(CveCliente As Integer, CveTipoCuentaEquipo As Integer, CuentaEquipo As String, NoSerie As String, CveClienteSucursal As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveCuentaEquipo As Integer = -1, Optional CveCuentaEquipoRelacionado As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
@@ -2350,11 +2352,11 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
-
-
+    End Function
+
+
 #End Region
-
+
 #Region "Bitacora"
     Public Function GetHistorialBitacora(CveAcarreo As Integer, CveOrdenCompra As Integer, CveActivoFijo As Integer,
                                          CveOS As Integer, CvePS As Integer, CveCompra As Integer, CveIE As Integer,
@@ -2448,9 +2450,9 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "SAT PRODUCTOS SERVICIOS Y UNIDAD DE MEDIDA"
     Public Function GetSATProductosServicios() As Boolean
         Dim Retorno As Boolean = False
@@ -2506,10 +2508,10 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
-
+    End Function
+
 #End Region
-
+
 #Region "SAT CFDI COMERCIO EXTERIOR"
     Public Function GetSATClavePedimento() As Boolean
         Dim Retorno As Boolean = False
@@ -2651,10 +2653,10 @@ Public Class ClsGenerales
             OnError("Ocurrió un error al obtener las colonias del SAT", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
         Return Retorno
-    End Function
-
+    End Function
+
 #End Region
-
+
     Public Function JAMComparativo(Opcion As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_JAM_Comparativo")
@@ -2850,6 +2852,72 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
+    Public Function GetMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("Gral_MotivoRechazoPaqueteriaGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddMotivoRechazoPaqueteria(Descripcion As String, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("Gral_MotivoRechazoPaqueteriaAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("Gral_MotivoRechazoPaqueteriaDelete")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer, Optional Descripcion As String = "-1") As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("Gral_MotivoRechazoPaqueteriaUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al modificar el motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
 #End Region
 
 #Region "P A Q U E T E R I A S    G U I A S    D E T A L L E S"
@@ -2938,11 +3006,11 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "CLASIFICACIONES PORCENTAJE"
-
+
     Public Function GetClasificacionPorcentaje(CveEmpresa As Integer, Optional CveClasificacionPorcentaje As Integer = -1,
                                                Optional CveClasificacion As Integer = -1, Optional PorcentajeIVA As Double = -1,
                                                Optional Opcion As Integer = 1) As Boolean
@@ -3018,11 +3086,11 @@ Public Class ClsGenerales
             OnError("Ocurrió un error al eliminar la clasificacion del porcentaje.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
         Return Retorno
-    End Function
-
+    End Function
+
 #End Region
-
-
+
+
     Protected Overridable Sub Dispose(ByVal disposing As Boolean)
         If Not disposedValue Then
             If disposing Then
@@ -3038,9 +3106,9 @@ Public Class ClsGenerales
             ' TODO: Establecer campos grandes como Null.
         End If
         disposedValue = True
-    End Sub
-
-
+    End Sub
+
+
 #Region "CRUD_Edoc_DocumentacionTipo"
     Public Function GetEdoc_DocumentacionTipo(CveDocumentacionTipo As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional EsCatalogo As Integer = 0, Optional Modulo As Integer = 1) As Boolean
 
@@ -3121,21 +3189,21 @@ Public Class ClsGenerales
 
 
         Return retorno
-    End Function
-
+    End Function
+
 #End Region
-
-
+
+
 #Region " IDisposable Support "
-    ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
+    ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
         ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
-    End Sub
+    End Sub
 #End Region
-
+
 #Region " P O L I Z A   V I R T U A L "
     Public Function ModelosAutosGet(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
@@ -3195,7 +3263,7 @@ Public Class ClsGenerales
             OnError("Ocurrió un error al obtener los BCI de Usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
         Return Retorno
-    End Function
+    End Function
 #End Region
 End Class
 
diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb
index 2aa435c09..20d2c9d8f 100644
--- a/App_Code/ClsOC.vb
+++ b/App_Code/ClsOC.vb
@@ -2532,7 +2532,23 @@ Public Class ClsOC
     End Function
 #End Region
 
+    Public Function GetVentasRelacionadas(CveOCDetalle As String) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_OC_VentaRelacionada")
 
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveOCDetalles", SqlDbType.NVarChar).Value = CveOCDetalle
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener la venta relacionada", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
 
 #Region " IDisposable Support "
     ' IDisposable
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 479609e6b..ea4c411ed 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3696,6 +3696,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Sistemas/CatPlataformas.aspx".ToUpper(), -1)
             PaginaDict.Add("/Sistemas/PopUpAddUsuario.aspx".ToUpper(), -1)
             PaginaDict.Add("/General/JAMComparativos.aspx".ToUpper(), 643)
+            PaginaDict.Add("/General/CatMotivoRechazoGuias.aspx".ToUpper(), 729)
 
             '-------------------------------------------Q U I T A R----------------------------------
 #Region "Q U I T A R"
@@ -7258,7 +7259,7 @@ Public Class ClsPaginas
                 params.Add(New ReportParameter("TipoCambio", TipoCambio))
                 params.Add(New ReportParameter("NombreSolicito", dtOC(0)("UsuarioSolicito").ToString)) 'drSol("Nombre").ToString))
                 params.Add(New ReportParameter("PuestoSolicito", PuestoSol)) 'drPuestoSol("Puesto").ToString
-                params.Add(New ReportParameter("NombreAutorizo", nombreautorizo))
+                params.Add(New ReportParameter("NombreAutorizo", UsuarioActual.Nombre))
                 params.Add(New ReportParameter("PuestoAutorizo", PuestoAut)) 'drPuestoAut("Puesto").ToString
                 params.Add(New ReportParameter("TipoOC", If(ObjOC.Tipo = "OC", "Orden de Compra", "Requisición")))
                 params.Add(New ReportParameter("UsoCFDI", ObjOC.UsoCFDI))
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index e9f7496a6..c348cebec 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -4462,6 +4462,21 @@ Public Class ClsVentas
         End Try
         Return retorno
     End Function
+
+    Public Function GetOCRelacionadas(CveVentasDetalles As String) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Vta_OrdenCompraRelacionada", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVentasDetalles", SqlDbType.NVarChar).Value = CveVentasDetalles
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener la orden de compra relacionada", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
 #Region "Conciliación emitidas SAT"
 
     Public Function ConciliacionemitidasSATGet(cveEmpresa As Int32) As Boolean
diff --git a/App_Code/DtDatos.xsd b/App_Code/DtDatos.xsd
index a4b0800c5..f354dcef4 100644
--- a/App_Code/DtDatos.xsd
+++ b/App_Code/DtDatos.xsd
@@ -12,7 +12,7 @@
   <xs:element name="DtDatos" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:Generator_DataSetName="DtDatos" msprop:Generator_UserDSName="DtDatos">
     <xs:complexType>
       <xs:choice minOccurs="0" maxOccurs="unbounded">
-        <xs:element name="DataTable1" msprop:Generator_TableClassName="DataTable1DataTable" msprop:Generator_TableVarName="tableDataTable1" msprop:Generator_RowChangedName="DataTable1RowChanged" msprop:Generator_TablePropName="DataTable1" msprop:Generator_RowDeletingName="DataTable1RowDeleting" msprop:Generator_RowChangingName="DataTable1RowChanging" msprop:Generator_RowEvHandlerName="DataTable1RowChangeEventHandler" msprop:Generator_RowDeletedName="DataTable1RowDeleted" msprop:Generator_RowClassName="DataTable1Row" msprop:Generator_UserTableName="DataTable1" msprop:Generator_RowEvArgName="DataTable1RowChangeEvent">
+        <xs:element name="DataTable1" msprop:Generator_TableClassName="DataTable1DataTable" msprop:Generator_TableVarName="tableDataTable1" msprop:Generator_TablePropName="DataTable1" msprop:Generator_RowDeletingName="DataTable1RowDeleting" msprop:Generator_RowChangingName="DataTable1RowChanging" msprop:Generator_RowEvHandlerName="DataTable1RowChangeEventHandler" msprop:Generator_RowDeletedName="DataTable1RowDeleted" msprop:Generator_UserTableName="DataTable1" msprop:Generator_RowChangedName="DataTable1RowChanged" msprop:Generator_RowEvArgName="DataTable1RowChangeEvent" msprop:Generator_RowClassName="DataTable1Row">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -28,7 +28,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="VentaUtilidadDetalle" msprop:Generator_TableClassName="VentaUtilidadDetalleDataTable" msprop:Generator_TableVarName="tableVentaUtilidadDetalle" msprop:Generator_TablePropName="VentaUtilidadDetalle" msprop:Generator_RowDeletingName="VentaUtilidadDetalleRowDeleting" msprop:Generator_RowChangingName="VentaUtilidadDetalleRowChanging" msprop:Generator_RowEvHandlerName="VentaUtilidadDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="VentaUtilidadDetalleRowDeleted" msprop:Generator_UserTableName="VentaUtilidadDetalle" msprop:Generator_RowChangedName="VentaUtilidadDetalleRowChanged" msprop:Generator_RowEvArgName="VentaUtilidadDetalleRowChangeEvent" msprop:Generator_RowClassName="VentaUtilidadDetalleRow">
+        <xs:element name="VentaUtilidadDetalle" msprop:Generator_TableClassName="VentaUtilidadDetalleDataTable" msprop:Generator_TableVarName="tableVentaUtilidadDetalle" msprop:Generator_RowChangedName="VentaUtilidadDetalleRowChanged" msprop:Generator_TablePropName="VentaUtilidadDetalle" msprop:Generator_RowDeletingName="VentaUtilidadDetalleRowDeleting" msprop:Generator_RowChangingName="VentaUtilidadDetalleRowChanging" msprop:Generator_RowEvHandlerName="VentaUtilidadDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="VentaUtilidadDetalleRowDeleted" msprop:Generator_RowClassName="VentaUtilidadDetalleRow" msprop:Generator_UserTableName="VentaUtilidadDetalle" msprop:Generator_RowEvArgName="VentaUtilidadDetalleRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="CantVta" msprop:Generator_ColumnVarNameInTable="columnCantVta" msprop:Generator_ColumnPropNameInRow="CantVta" msprop:Generator_ColumnPropNameInTable="CantVtaColumn" msprop:Generator_UserColumnName="CantVta" type="xs:decimal" minOccurs="0" />
@@ -46,7 +46,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="RepClientesCxC" msprop:Generator_TableClassName="RepClientesCxCDataTable" msprop:Generator_TableVarName="tableRepClientesCxC" msprop:Generator_TablePropName="RepClientesCxC" msprop:Generator_RowDeletingName="RepClientesCxCRowDeleting" msprop:Generator_RowChangingName="RepClientesCxCRowChanging" msprop:Generator_RowEvHandlerName="RepClientesCxCRowChangeEventHandler" msprop:Generator_RowDeletedName="RepClientesCxCRowDeleted" msprop:Generator_UserTableName="RepClientesCxC" msprop:Generator_RowChangedName="RepClientesCxCRowChanged" msprop:Generator_RowEvArgName="RepClientesCxCRowChangeEvent" msprop:Generator_RowClassName="RepClientesCxCRow">
+        <xs:element name="RepClientesCxC" msprop:Generator_TableClassName="RepClientesCxCDataTable" msprop:Generator_TableVarName="tableRepClientesCxC" msprop:Generator_RowChangedName="RepClientesCxCRowChanged" msprop:Generator_TablePropName="RepClientesCxC" msprop:Generator_RowDeletingName="RepClientesCxCRowDeleting" msprop:Generator_RowChangingName="RepClientesCxCRowChanging" msprop:Generator_RowEvHandlerName="RepClientesCxCRowChangeEventHandler" msprop:Generator_RowDeletedName="RepClientesCxCRowDeleted" msprop:Generator_RowClassName="RepClientesCxCRow" msprop:Generator_UserTableName="RepClientesCxC" msprop:Generator_RowEvArgName="RepClientesCxCRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -64,7 +64,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="LibroMayor" msprop:Generator_TableClassName="LibroMayorDataTable" msprop:Generator_TableVarName="tableLibroMayor" msprop:Generator_RowChangedName="LibroMayorRowChanged" msprop:Generator_TablePropName="LibroMayor" msprop:Generator_RowDeletingName="LibroMayorRowDeleting" msprop:Generator_RowChangingName="LibroMayorRowChanging" msprop:Generator_RowEvHandlerName="LibroMayorRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroMayorRowDeleted" msprop:Generator_RowClassName="LibroMayorRow" msprop:Generator_UserTableName="LibroMayor" msprop:Generator_RowEvArgName="LibroMayorRowChangeEvent">
+        <xs:element name="LibroMayor" msprop:Generator_TableClassName="LibroMayorDataTable" msprop:Generator_TableVarName="tableLibroMayor" msprop:Generator_TablePropName="LibroMayor" msprop:Generator_RowDeletingName="LibroMayorRowDeleting" msprop:Generator_RowChangingName="LibroMayorRowChanging" msprop:Generator_RowEvHandlerName="LibroMayorRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroMayorRowDeleted" msprop:Generator_UserTableName="LibroMayor" msprop:Generator_RowChangedName="LibroMayorRowChanged" msprop:Generator_RowEvArgName="LibroMayorRowChangeEvent" msprop:Generator_RowClassName="LibroMayorRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Fecha" msprop:Generator_ColumnVarNameInTable="columnFecha" msprop:Generator_ColumnPropNameInRow="Fecha" msprop:Generator_ColumnPropNameInTable="FechaColumn" msprop:Generator_UserColumnName="Fecha" type="xs:dateTime" minOccurs="0" />
@@ -87,7 +87,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="LibroDiario" msprop:Generator_TableClassName="LibroDiarioDataTable" msprop:Generator_TableVarName="tableLibroDiario" msprop:Generator_RowChangedName="LibroDiarioRowChanged" msprop:Generator_TablePropName="LibroDiario" msprop:Generator_RowDeletingName="LibroDiarioRowDeleting" msprop:Generator_RowChangingName="LibroDiarioRowChanging" msprop:Generator_RowEvHandlerName="LibroDiarioRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroDiarioRowDeleted" msprop:Generator_RowClassName="LibroDiarioRow" msprop:Generator_UserTableName="LibroDiario" msprop:Generator_RowEvArgName="LibroDiarioRowChangeEvent">
+        <xs:element name="LibroDiario" msprop:Generator_TableClassName="LibroDiarioDataTable" msprop:Generator_TableVarName="tableLibroDiario" msprop:Generator_TablePropName="LibroDiario" msprop:Generator_RowDeletingName="LibroDiarioRowDeleting" msprop:Generator_RowChangingName="LibroDiarioRowChanging" msprop:Generator_RowEvHandlerName="LibroDiarioRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroDiarioRowDeleted" msprop:Generator_UserTableName="LibroDiario" msprop:Generator_RowChangedName="LibroDiarioRowChanged" msprop:Generator_RowEvArgName="LibroDiarioRowChangeEvent" msprop:Generator_RowClassName="LibroDiarioRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Fecha" msprop:Generator_ColumnVarNameInTable="columnFecha" msprop:Generator_ColumnPropNameInRow="Fecha" msprop:Generator_ColumnPropNameInTable="FechaColumn" msprop:Generator_UserColumnName="Fecha" type="xs:dateTime" minOccurs="0" />
@@ -111,7 +111,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="RepBalanzaComprobacion" msprop:Generator_TableClassName="RepBalanzaComprobacionDataTable" msprop:Generator_TableVarName="tableRepBalanzaComprobacion" msprop:Generator_TablePropName="RepBalanzaComprobacion" msprop:Generator_RowDeletingName="RepBalanzaComprobacionRowDeleting" msprop:Generator_RowChangingName="RepBalanzaComprobacionRowChanging" msprop:Generator_RowEvHandlerName="RepBalanzaComprobacionRowChangeEventHandler" msprop:Generator_RowDeletedName="RepBalanzaComprobacionRowDeleted" msprop:Generator_UserTableName="RepBalanzaComprobacion" msprop:Generator_RowChangedName="RepBalanzaComprobacionRowChanged" msprop:Generator_RowEvArgName="RepBalanzaComprobacionRowChangeEvent" msprop:Generator_RowClassName="RepBalanzaComprobacionRow">
+        <xs:element name="RepBalanzaComprobacion" msprop:Generator_TableClassName="RepBalanzaComprobacionDataTable" msprop:Generator_TableVarName="tableRepBalanzaComprobacion" msprop:Generator_RowChangedName="RepBalanzaComprobacionRowChanged" msprop:Generator_TablePropName="RepBalanzaComprobacion" msprop:Generator_RowDeletingName="RepBalanzaComprobacionRowDeleting" msprop:Generator_RowChangingName="RepBalanzaComprobacionRowChanging" msprop:Generator_RowEvHandlerName="RepBalanzaComprobacionRowChangeEventHandler" msprop:Generator_RowDeletedName="RepBalanzaComprobacionRowDeleted" msprop:Generator_RowClassName="RepBalanzaComprobacionRow" msprop:Generator_UserTableName="RepBalanzaComprobacion" msprop:Generator_RowEvArgName="RepBalanzaComprobacionRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Id" msprop:Generator_ColumnVarNameInTable="columnId" msprop:Generator_ColumnPropNameInRow="Id" msprop:Generator_ColumnPropNameInTable="IdColumn" msprop:Generator_UserColumnName="Id" type="xs:string" minOccurs="0" />
@@ -137,7 +137,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="CatPS" msprop:Generator_TableClassName="CatPSDataTable" msprop:Generator_TableVarName="tableCatPS" msprop:Generator_RowChangedName="CatPSRowChanged" msprop:Generator_TablePropName="CatPS" msprop:Generator_RowDeletingName="CatPSRowDeleting" msprop:Generator_RowChangingName="CatPSRowChanging" msprop:Generator_RowEvHandlerName="CatPSRowChangeEventHandler" msprop:Generator_RowDeletedName="CatPSRowDeleted" msprop:Generator_RowClassName="CatPSRow" msprop:Generator_UserTableName="CatPS" msprop:Generator_RowEvArgName="CatPSRowChangeEvent">
+        <xs:element name="CatPS" msprop:Generator_TableClassName="CatPSDataTable" msprop:Generator_TableVarName="tableCatPS" msprop:Generator_TablePropName="CatPS" msprop:Generator_RowDeletingName="CatPSRowDeleting" msprop:Generator_RowChangingName="CatPSRowChanging" msprop:Generator_RowEvHandlerName="CatPSRowChangeEventHandler" msprop:Generator_RowDeletedName="CatPSRowDeleted" msprop:Generator_UserTableName="CatPS" msprop:Generator_RowChangedName="CatPSRowChanged" msprop:Generator_RowEvArgName="CatPSRowChangeEvent" msprop:Generator_RowClassName="CatPSRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Clasificacion" msprop:Generator_ColumnVarNameInTable="columnClasificacion" msprop:Generator_ColumnPropNameInRow="Clasificacion" msprop:Generator_ColumnPropNameInTable="ClasificacionColumn" msprop:Generator_UserColumnName="Clasificacion" type="xs:string" minOccurs="0" />
@@ -153,7 +153,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="RepProveedorCxP" msprop:Generator_TableClassName="RepProveedorCxPDataTable" msprop:Generator_TableVarName="tableRepProveedorCxP" msprop:Generator_TablePropName="RepProveedorCxP" msprop:Generator_RowDeletingName="RepProveedorCxPRowDeleting" msprop:Generator_RowChangingName="RepProveedorCxPRowChanging" msprop:Generator_RowEvHandlerName="RepProveedorCxPRowChangeEventHandler" msprop:Generator_RowDeletedName="RepProveedorCxPRowDeleted" msprop:Generator_UserTableName="RepProveedorCxP" msprop:Generator_RowChangedName="RepProveedorCxPRowChanged" msprop:Generator_RowEvArgName="RepProveedorCxPRowChangeEvent" msprop:Generator_RowClassName="RepProveedorCxPRow">
+        <xs:element name="RepProveedorCxP" msprop:Generator_TableClassName="RepProveedorCxPDataTable" msprop:Generator_TableVarName="tableRepProveedorCxP" msprop:Generator_RowChangedName="RepProveedorCxPRowChanged" msprop:Generator_TablePropName="RepProveedorCxP" msprop:Generator_RowDeletingName="RepProveedorCxPRowDeleting" msprop:Generator_RowChangingName="RepProveedorCxPRowChanging" msprop:Generator_RowEvHandlerName="RepProveedorCxPRowChangeEventHandler" msprop:Generator_RowDeletedName="RepProveedorCxPRowDeleted" msprop:Generator_RowClassName="RepProveedorCxPRow" msprop:Generator_UserTableName="RepProveedorCxP" msprop:Generator_RowEvArgName="RepProveedorCxPRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -170,7 +170,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="ResumenNC" msprop:Generator_TableClassName="ResumenNCDataTable" msprop:Generator_TableVarName="tableResumenNC" msprop:Generator_TablePropName="ResumenNC" msprop:Generator_RowDeletingName="ResumenNCRowDeleting" msprop:Generator_RowChangingName="ResumenNCRowChanging" msprop:Generator_RowEvHandlerName="ResumenNCRowChangeEventHandler" msprop:Generator_RowDeletedName="ResumenNCRowDeleted" msprop:Generator_UserTableName="ResumenNC" msprop:Generator_RowChangedName="ResumenNCRowChanged" msprop:Generator_RowEvArgName="ResumenNCRowChangeEvent" msprop:Generator_RowClassName="ResumenNCRow">
+        <xs:element name="ResumenNC" msprop:Generator_TableClassName="ResumenNCDataTable" msprop:Generator_TableVarName="tableResumenNC" msprop:Generator_RowChangedName="ResumenNCRowChanged" msprop:Generator_TablePropName="ResumenNC" msprop:Generator_RowDeletingName="ResumenNCRowDeleting" msprop:Generator_RowChangingName="ResumenNCRowChanging" msprop:Generator_RowEvHandlerName="ResumenNCRowChangeEventHandler" msprop:Generator_RowDeletedName="ResumenNCRowDeleted" msprop:Generator_RowClassName="ResumenNCRow" msprop:Generator_UserTableName="ResumenNC" msprop:Generator_RowEvArgName="ResumenNCRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -179,7 +179,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="ProgramarRecursos" msprop:Generator_TableClassName="ProgramarRecursosDataTable" msprop:Generator_TableVarName="tableProgramarRecursos" msprop:Generator_TablePropName="ProgramarRecursos" msprop:Generator_RowDeletingName="ProgramarRecursosRowDeleting" msprop:Generator_RowChangingName="ProgramarRecursosRowChanging" msprop:Generator_RowEvHandlerName="ProgramarRecursosRowChangeEventHandler" msprop:Generator_RowDeletedName="ProgramarRecursosRowDeleted" msprop:Generator_UserTableName="ProgramarRecursos" msprop:Generator_RowChangedName="ProgramarRecursosRowChanged" msprop:Generator_RowEvArgName="ProgramarRecursosRowChangeEvent" msprop:Generator_RowClassName="ProgramarRecursosRow">
+        <xs:element name="ProgramarRecursos" msprop:Generator_TableClassName="ProgramarRecursosDataTable" msprop:Generator_TableVarName="tableProgramarRecursos" msprop:Generator_RowChangedName="ProgramarRecursosRowChanged" msprop:Generator_TablePropName="ProgramarRecursos" msprop:Generator_RowDeletingName="ProgramarRecursosRowDeleting" msprop:Generator_RowChangingName="ProgramarRecursosRowChanging" msprop:Generator_RowEvHandlerName="ProgramarRecursosRowChangeEventHandler" msprop:Generator_RowDeletedName="ProgramarRecursosRowDeleted" msprop:Generator_RowClassName="ProgramarRecursosRow" msprop:Generator_UserTableName="ProgramarRecursos" msprop:Generator_RowEvArgName="ProgramarRecursosRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="CveCompra" msprop:Generator_ColumnVarNameInTable="columnCveCompra" msprop:Generator_ColumnPropNameInRow="CveCompra" msprop:Generator_ColumnPropNameInTable="CveCompraColumn" msprop:Generator_UserColumnName="CveCompra" type="xs:short" minOccurs="0" />
@@ -215,7 +215,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="RepIVA" msprop:Generator_TableClassName="RepIVADataTable" msprop:Generator_TableVarName="tableRepIVA" msprop:Generator_TablePropName="RepIVA" msprop:Generator_RowDeletingName="RepIVARowDeleting" msprop:Generator_RowChangingName="RepIVARowChanging" msprop:Generator_RowEvHandlerName="RepIVARowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVARowDeleted" msprop:Generator_UserTableName="RepIVA" msprop:Generator_RowChangedName="RepIVARowChanged" msprop:Generator_RowEvArgName="RepIVARowChangeEvent" msprop:Generator_RowClassName="RepIVARow">
+        <xs:element name="RepIVA" msprop:Generator_TableClassName="RepIVADataTable" msprop:Generator_TableVarName="tableRepIVA" msprop:Generator_RowChangedName="RepIVARowChanged" msprop:Generator_TablePropName="RepIVA" msprop:Generator_RowDeletingName="RepIVARowDeleting" msprop:Generator_RowChangingName="RepIVARowChanging" msprop:Generator_RowEvHandlerName="RepIVARowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVARowDeleted" msprop:Generator_RowClassName="RepIVARow" msprop:Generator_UserTableName="RepIVA" msprop:Generator_RowEvArgName="RepIVARowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="TipoDocto" msprop:Generator_ColumnVarNameInTable="columnTipoDocto" msprop:Generator_ColumnPropNameInRow="TipoDocto" msprop:Generator_ColumnPropNameInTable="TipoDoctoColumn" msprop:Generator_UserColumnName="TipoDocto" type="xs:string" minOccurs="0" />
@@ -237,7 +237,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="RepIVAAcreditable" msprop:Generator_TableClassName="RepIVAAcreditableDataTable" msprop:Generator_TableVarName="tableRepIVAAcreditable" msprop:Generator_TablePropName="RepIVAAcreditable" msprop:Generator_RowDeletingName="RepIVAAcreditableRowDeleting" msprop:Generator_RowChangingName="RepIVAAcreditableRowChanging" msprop:Generator_RowEvHandlerName="RepIVAAcreditableRowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVAAcreditableRowDeleted" msprop:Generator_UserTableName="RepIVAAcreditable" msprop:Generator_RowChangedName="RepIVAAcreditableRowChanged" msprop:Generator_RowEvArgName="RepIVAAcreditableRowChangeEvent" msprop:Generator_RowClassName="RepIVAAcreditableRow">
+        <xs:element name="RepIVAAcreditable" msprop:Generator_TableClassName="RepIVAAcreditableDataTable" msprop:Generator_TableVarName="tableRepIVAAcreditable" msprop:Generator_RowChangedName="RepIVAAcreditableRowChanged" msprop:Generator_TablePropName="RepIVAAcreditable" msprop:Generator_RowDeletingName="RepIVAAcreditableRowDeleting" msprop:Generator_RowChangingName="RepIVAAcreditableRowChanging" msprop:Generator_RowEvHandlerName="RepIVAAcreditableRowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVAAcreditableRowDeleted" msprop:Generator_RowClassName="RepIVAAcreditableRow" msprop:Generator_UserTableName="RepIVAAcreditable" msprop:Generator_RowEvArgName="RepIVAAcreditableRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="TipoDocto" msprop:Generator_ColumnVarNameInTable="columnTipoDocto" msprop:Generator_ColumnPropNameInRow="TipoDocto" msprop:Generator_ColumnPropNameInTable="TipoDoctoColumn" msprop:Generator_UserColumnName="TipoDocto" type="xs:string" minOccurs="0" />
@@ -259,10 +259,15 @@
               <xs:element name="NumCuenta" msprop:Generator_ColumnVarNameInTable="columnNumCuenta" msprop:Generator_ColumnPropNameInRow="NumCuenta" msprop:Generator_ColumnPropNameInTable="NumCuentaColumn" msprop:Generator_UserColumnName="NumCuenta" type="xs:string" minOccurs="0" />
               <xs:element name="CveMoneda" msprop:Generator_ColumnVarNameInTable="columnCveMoneda" msprop:Generator_ColumnPropNameInRow="CveMoneda" msprop:Generator_ColumnPropNameInTable="CveMonedaColumn" msprop:Generator_UserColumnName="CveMoneda" type="xs:short" minOccurs="0" />
               <xs:element name="CveCompra" msprop:Generator_ColumnVarNameInTable="columnCveCompra" msprop:Generator_ColumnPropNameInRow="CveCompra" msprop:Generator_ColumnPropNameInTable="CveCompraColumn" msprop:Generator_UserColumnName="CveCompra" type="xs:short" minOccurs="0" />
+              <xs:element name="Direccion" msprop:Generator_ColumnVarNameInTable="columnDireccion" msprop:Generator_ColumnPropNameInRow="Direccion" msprop:Generator_ColumnPropNameInTable="DireccionColumn" msprop:Generator_UserColumnName="Direccion" type="xs:string" minOccurs="0" />
+              <xs:element name="CP" msprop:Generator_ColumnVarNameInTable="columnCP" msprop:Generator_ColumnPropNameInRow="CP" msprop:Generator_ColumnPropNameInTable="CPColumn" msprop:Generator_UserColumnName="CP" type="xs:string" minOccurs="0" />
+              <xs:element name="Telefono" msprop:Generator_ColumnVarNameInTable="columnTelefono" msprop:Generator_ColumnPropNameInRow="Telefono" msprop:Generator_ColumnPropNameInTable="TelefonoColumn" msprop:Generator_UserColumnName="Telefono" type="xs:string" minOccurs="0" />
+              <xs:element name="ContactoNombre" msprop:Generator_ColumnVarNameInTable="columnContactoNombre" msprop:Generator_ColumnPropNameInRow="ContactoNombre" msprop:Generator_ColumnPropNameInTable="ContactoNombreColumn" msprop:Generator_UserColumnName="ContactoNombre" type="xs:string" minOccurs="0" />
+              <xs:element name="ContactoCelular" msprop:Generator_ColumnVarNameInTable="columnContactoCelular" msprop:Generator_ColumnPropNameInRow="ContactoCelular" msprop:Generator_ColumnPropNameInTable="ContactoCelularColumn" msprop:Generator_UserColumnName="ContactoCelular" type="xs:string" minOccurs="0" />
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="DtVentaDetalle" msprop:Generator_TableClassName="DtVentaDetalleDataTable" msprop:Generator_TableVarName="tableDtVentaDetalle" msprop:Generator_RowChangedName="DtVentaDetalleRowChanged" msprop:Generator_TablePropName="DtVentaDetalle" msprop:Generator_RowDeletingName="DtVentaDetalleRowDeleting" msprop:Generator_RowChangingName="DtVentaDetalleRowChanging" msprop:Generator_RowEvHandlerName="DtVentaDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="DtVentaDetalleRowDeleted" msprop:Generator_RowClassName="DtVentaDetalleRow" msprop:Generator_UserTableName="DtVentaDetalle" msprop:Generator_RowEvArgName="DtVentaDetalleRowChangeEvent">
+        <xs:element name="DtVentaDetalle" msprop:Generator_TableClassName="DtVentaDetalleDataTable" msprop:Generator_TableVarName="tableDtVentaDetalle" msprop:Generator_TablePropName="DtVentaDetalle" msprop:Generator_RowDeletingName="DtVentaDetalleRowDeleting" msprop:Generator_RowChangingName="DtVentaDetalleRowChanging" msprop:Generator_RowEvHandlerName="DtVentaDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="DtVentaDetalleRowDeleted" msprop:Generator_UserTableName="DtVentaDetalle" msprop:Generator_RowChangedName="DtVentaDetalleRowChanged" msprop:Generator_RowEvArgName="DtVentaDetalleRowChangeEvent" msprop:Generator_RowClassName="DtVentaDetalleRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Cantidad" msprop:Generator_ColumnVarNameInTable="columnCantidad" msprop:Generator_ColumnPropNameInRow="Cantidad" msprop:Generator_ColumnPropNameInTable="CantidadColumn" msprop:Generator_UserColumnName="Cantidad" type="xs:string" minOccurs="0" />
diff --git a/App_Code/DtDatos.xss b/App_Code/DtDatos.xss
index d278af616..6f4a11dac 100644
--- a/App_Code/DtDatos.xss
+++ b/App_Code/DtDatos.xss
@@ -4,7 +4,7 @@
      Changes to this file may cause incorrect behavior and will be lost if
      the code is regenerated.
 </autogenerated>-->
-<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-10" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="128" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
   <Shapes>
     <Shape ID="DesignTable:DataTable1" ZOrder="13" X="511" Y="201" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
     <Shape ID="DesignTable:VentaUtilidadDetalle" ZOrder="12" X="679" Y="199" Height="257" Width="187" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 9fdf3e692..08b59bea8 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -4585,7 +4585,7 @@ Namespace Modelos
                                     End If
 
                                     'DEBE REGRESAR LA EXISTENCIA DE (ENTREGA POR ADELANTADO) AL ALMACEN ORGINAL (GENERAL,SIN COSTO)
-                                    If Not ErrorCancelar AndAlso DtDevoluciones IsNot Nothing Then
+                                    If Not ErrorCancelar AndAlso DtDevoluciones IsNot Nothing AndAlso DtDevoluciones.Rows.Count > 0 Then
                                         For Each CveRemision As Integer In ListaRemisionesCancelar
                                             Dim DtDevRemision As DataTable = DtDevoluciones.FiltraParametros($"CveRemision={CveRemision}")
 
@@ -4603,8 +4603,6 @@ Namespace Modelos
                                             Next
 
                                         Next
-                                    Else
-                                        ErrorCancelar = True
                                     End If
 
                                 End If
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index bd81b0c7c..cfb1e58c4 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -573,6 +573,7 @@ Partial Class Bancos_IE
                 CveCredito = IfNull(Request("CveCredito"), "-1").ToString.ToEntero
                 CveCreditoDetalle = IfNull(Request("CveCreditoDetalle"), "-1").ToString.ToEntero
                 LtlTitulo.Text = "Pago de Créditos"
+                CveIE = -1
 
                 DVInteresMoratorio.Visible = True
 
@@ -4642,7 +4643,7 @@ Partial Class Bancos_IE
         Dim Dep As New ClsGenerales
         If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCliente:=CveCliente, CvePersonal:=CvePersonal) Then
 
-            If DdlTipoTransaccion.SelectedValue = "9" Then
+            If DdlTipoTransaccion.SelectedValue = "9" And CveIE <= -1 Then
 
                 DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'")
 
@@ -4653,7 +4654,7 @@ 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
+            ElseIf DdlTipoTransaccion.SelectedValue = "17" And CveIE <= -1 Then
 
 
                 If Dep.DtResultados.Rows.Count > 0 Then
@@ -4685,7 +4686,7 @@ Partial Class Bancos_IE
 
         Else
 
-            If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
+            If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") And CveIE <= -1 Then
 
                 BtnGuardar.Enabled = False
                 Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia)
diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb
index ed0b9df3c..a47729cf5 100644
--- a/Bancos/PagoElectronico.aspx.vb
+++ b/Bancos/PagoElectronico.aspx.vb
@@ -1979,7 +1979,7 @@ Partial Class Bancos_PagoElectronico
         'Dim CveTipoTransaccion As Integer = Parametros(4).ToEntero
         'Dim Estatus As Integer = If(CveTipoTransaccion = 2, 2, 1) ' cuando es transferencia, no lo pasa por entregar
 
-        ' Mail.MandaCorreo(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
+        'Mail.MandaCorreo(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
         Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
     End Sub
 
@@ -2756,10 +2756,15 @@ Partial Class Bancos_PagoElectronico
                 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")))
+
+
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("Titulo", "Reporte Pago Proveedor Layout"))
+
             ImprimirPDF("Empresas/Grales/Formatos/LayoutPagoProveedor.rdlc", DtPago, params, "LayoutPagoProveedor", RDSName:="DSPagoElectronicoV2")
         End If
 
diff --git a/Bancos/PagoElectronicoGrupos.aspx b/Bancos/PagoElectronicoGrupos.aspx
index a79a95981..89aae1006 100644
--- a/Bancos/PagoElectronicoGrupos.aspx
+++ b/Bancos/PagoElectronicoGrupos.aspx
@@ -732,7 +732,7 @@
                                 <asp:BoundField  HeaderText="Banco"  DataField="BancoNombre" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
                                 
                                 <asp:BoundField  HeaderText="Cuenta"  DataField="Cuenta" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
-                                <asp:BoundField  HeaderText="Clabe"  DataField="CLABEDestino" ItemStyle-HorizontalAlign="Left" />
+                                <asp:BoundField  HeaderText="CLABE"  DataField="CLABE" ItemStyle-HorizontalAlign="Left" />
                                
 
                                 <asp:TemplateField HeaderText="Banco" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px">                                     
@@ -855,19 +855,20 @@
                                         <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="DVDescargaCuentas3" visible=" false">
+                                            <p> Cuentas Convennios CIE <asp:LinkButton runat="server" ID="LnkDescargaCuentas3" OnClick="LnkDescargaCuentas3_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>
                                 </ContentTemplate>
                                 <Triggers>
                                     <asp:PostBackTrigger ControlID="LnkDescarga" />
                                     <asp:PostBackTrigger ControlID="LnkDescargaCuentas1" />
                                     <asp:PostBackTrigger ControlID="LnkDescargaCuentas2" />
+                                    <asp:PostBackTrigger ControlID="LnkDescargaCuentas3" />
                                     <asp:PostBackTrigger ControlID="LnkDescargaReporte" />                                    
                                 </Triggers>
                             </asp:UpdatePanel>
diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb
index 9529708ac..9013449c5 100644
--- a/Bancos/PagoElectronicoGrupos.aspx.vb
+++ b/Bancos/PagoElectronicoGrupos.aspx.vb
@@ -202,6 +202,16 @@ Partial Class Bancos_PagoElectronicoGrupos
         End Set
     End Property
 
+
+    Private Property NombreArchivoCIE As String
+        Get
+            Return ViewState("NombreArchivoCIE").ToString
+        End Get
+        Set(value As String)
+            ViewState("NombreArchivoCIE") = value
+        End Set
+    End Property
+
     Property DTSATBancos As DataTable
         Get
             If ViewState("DTSATBancos") Is Nothing Then
@@ -216,6 +226,63 @@ Partial Class Bancos_PagoElectronicoGrupos
     End Property
 
 
+    Property CveIEPagoActual As Integer
+        Get
+            If ViewState("CveIEPagoActual") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveIEPagoActual").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveIEPagoActual") = value
+        End Set
+    End Property
+
+    Property CveLayoutEnvioDetalleActual As Integer
+        Get
+            If ViewState("CveLayoutEnvioDetalleActual") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveLayoutEnvioDetalleActual").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveLayoutEnvioDetalleActual") = value
+        End Set
+    End Property
+
+    Property GvIndexActual As Integer
+        Get
+            If ViewState("GvIndexActual") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("GvIndexActual").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("GvIndexActual") = value
+        End Set
+
+    End Property
+
+
+    Property DTFoliosPrefijos As DataTable
+        Get
+            If ViewState("DTFoliosPrefijos") Is Nothing Then
+                Crate_DTFoliosPrefijos()
+                Return DirectCast(ViewState("DTFoliosPrefijos"), DataTable)
+            Else
+                Return DirectCast(ViewState("DTFoliosPrefijos"), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            ViewState("DTFoliosPrefijos") = value
+        End Set
+
+    End Property
+
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -244,6 +311,20 @@ Partial Class Bancos_PagoElectronicoGrupos
     End Sub
 
 
+    Private Sub Crate_DTFoliosPrefijos()
+
+        Dim DTFolios As New DataTable
+        DTFolios.Columns.Add("CveIE", GetType(Integer))
+        DTFolios.Columns.Add("Folio", GetType(String))
+        DTFolios.AcceptChanges()
+
+        ViewState("DTFoliosPrefijos") = DTFolios.Copy
+
+
+
+    End Sub
+
+
 #Region " C A R G A - D A T O S  "
     Private Sub CargaCuentas()
         DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("UsaLayoutGrupos = 1")
@@ -412,6 +493,13 @@ Partial Class Bancos_PagoElectronicoGrupos
         End If
 
         Dim path As String = String.Format("{0}Layout\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo)
+
+        If File.Exists(path) Then
+
+            File.Delete(path)
+
+        End If
+
         Dim fs As FileStream = File.Create(path)
 
         ' Add text to the file.
@@ -622,9 +710,16 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         NombreArchivoBancomer = ""
         NombreArchivoInterbancario = ""
+        NombreArchivoCIE = ""
+
+        DVDescargaCuentas1.Visible = False
+        DVDescargaCuentas2.Visible = False
+        DVDescargaCuentas3.Visible = False
+
         NombreArchivo = ""
 
         Dim RegistrosAltaBancomer As New StringBuilder
+        Dim RegistrosAltaBancomerCIE As New StringBuilder
         Dim RegistrosAltaInterbancario As New StringBuilder
         Dim SBErrores As New StringBuilder
 
@@ -643,12 +738,13 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         DtCuentasPendientesTemp.CaseSensitive = False
 
-        Dim DtCuentasPendientesBancomer As DataTable = DtCuentasPendientesTemp.FiltraParametros($" (EstatusPagoElectronicoGrupos IS NULL OR EstatusPagoElectronicoGrupos = False) AND (BancoNombre like '%BBVA%'  OR BancoNombre like '%BANCOMER%' ) ", "", {"CveCuentaDeposito", "BancoNombre", "CLABEDestino", "Abreviatura", "RazonSocial", "CveProveedor", "CveBanco", "Cuenta", "BBVAAlias"})
-        Dim DtCuentasPendientesInterbancarias As DataTable = DtCuentasPendientesTemp.FiltraParametros($" (EstatusPagoElectronicoGrupos IS NULL OR EstatusPagoElectronicoGrupos = False) AND (BancoNombre  not like '%BBVA%'  AND BancoNombre not like '%BANCOMER%' ) ", "", {"CveCuentaDeposito", "BancoNombre", "CLABEDestino", "Abreviatura", "RazonSocial", "CveProveedor", "CveBanco", "Cuenta", "BBVAAlias"})
+        Dim DtCuentasPendientesBancomer As DataTable = DtCuentasPendientesTemp.FiltraParametros($" (EstatusPagoElectronicoGrupos IS NULL OR EstatusPagoElectronicoGrupos = False) AND (BancoNombre like '%BBVA%'  OR BancoNombre like '%BANCOMER%'  AND CveBanco = '012' AND LEN(CIE) = 0) ", "", {"CveCuentaDeposito", "BancoNombre", "CLABEDestino", "Abreviatura", "RazonSocial", "CveProveedor", "CveBanco", "Cuenta", "BBVAAlias", "CIE"})
+        Dim DtCuentasPendientesCIE As DataTable = DtCuentasPendientesTemp.FiltraParametros($" (EstatusPagoElectronicoGrupos IS NULL OR EstatusPagoElectronicoGrupos = False) AND (BancoNombre like '%BBVA%'  OR BancoNombre like '%BANCOMER%' AND LEN(CIE) > 0  AND CveBanco = '012') ", "", {"CveCuentaDeposito", "BancoNombre", "CLABEDestino", "Abreviatura", "RazonSocial", "CveProveedor", "CveBanco", "Cuenta", "BBVAAlias", "CIE"})
+        Dim DtCuentasPendientesInterbancarias As DataTable = DtCuentasPendientesTemp.FiltraParametros($" (EstatusPagoElectronicoGrupos IS NULL OR EstatusPagoElectronicoGrupos = False) AND (BancoNombre  not like '%BBVA%'  AND BancoNombre not like '%BANCOMER%' ) ", "", {"CveCuentaDeposito", "BancoNombre", "CLABEDestino", "Abreviatura", "RazonSocial", "CveProveedor", "CveBanco", "Cuenta", "BBVAAlias", "CIE"})
 
 
-        'Dim ObjGrales As New ClsGenerales
 
+        'Cuentas bancomer
         If DtCuentasPendientesBancomer.Rows.Count > 0 Then
             For Each dRow As DataRow In DtCuentasPendientesBancomer.Rows
 
@@ -707,10 +803,60 @@ Partial Class Bancos_PagoElectronicoGrupos
                 NombreArchivoBancomer = NombreArchivo
             End If
 
-
         End If
 
 
+        'Cuentas bancomer CIE
+        If DtCuentasPendientesCIE.Rows.Count > 0 Then
+            For Each dRow As DataRow In DtCuentasPendientesCIE.Rows
+
+                Dim SBTmpBancomerCIE As New StringBuilder
+                Dim SBErroresBancomerCIE As New StringBuilder
+                Dim ErrorLineaBancomerCIE As Boolean = False
+
+                SBErroresBancomerCIE.Append($"{dRow("RazonSocial").ToString } ")
+                SBErroresBancomerCIE.Append($"Cuenta: {dRow("Cuenta").ToString } ")
+
+                SBTmpBancomerCIE.Append("CV")
+                SBTmpBancomerCIE.Append(dRow("CIE").ToString.PadLeft(18, CeroRelleno))
+
+                If dRow("Abreviatura").ToString.Length = 3 Then
+                    SBTmpBancomerCIE.Append(dRow("Abreviatura"))
+                Else
+                    SBErroresBancomerCIE.Append("El tamaño de la divisa es incorrecto,  ")
+                    ErrorLineaBancomerCIE = True
+                End If
+
+                SBTmpBancomerCIE.Append("0999999999999.99")
+
+                If dRow("RazonSocial").ToString.Trim.Length < 31 Then 'Tamaño maximo 30
+                    SBTmpBancomerCIE.Append(dRow("RazonSocial").ToString.PadRight(30, EspacioRelleno))
+                Else
+                    SBTmpBancomerCIE.Append(dRow("RazonSocial").ToString.Trim.Substring(0, 30))
+                End If
+
+                'ALIAS DE LA CUENTA PENDIENTE TAMAÑO MAXIMO 30
+                SBTmpBancomerCIE.Append(dRow("BBVAAlias").ToString.PadRight(30, EspacioRelleno))
+
+                SBTmpBancomerCIE.Append(vbCrLf)
+
+                If Not ErrorLineaBancomerCIE Then
+                    RegistrosAltaBancomerCIE.Append(SBTmpBancomerCIE.ToString)
+                Else
+                    SBErroresBancomerCIE.Append("<br>")
+                    SBErrores.AppendLine(SBErroresBancomerCIE.ToString)
+                End If
+
+            Next
+
+            TextoCompleto = RegistrosAltaBancomerCIE.ToString
+
+            If CreaArchivo(2, True) Then
+                NombreArchivoCIE = NombreArchivo
+            End If
+
+        End If
+
 
 
         If DtCuentasPendientesInterbancarias.Rows.Count > 0 Then
@@ -799,17 +945,13 @@ Partial Class Bancos_PagoElectronicoGrupos
 
 
         If NombreArchivoBancomer.Trim.Length > 0 Then
-
             DVDescargaCuentas1.Visible = True
-            ' Mensaje.Append($"Cuentas Bancomer   <a class='Texto' href='../Empresas/{UsuarioActual.CveEmpresa}/Layout/{NombreArchivoBancomer}' download > Descarga Archivo cuentas Bancomer</a> <br><br>")
-
         End If
-
-
         If NombreArchivoInterbancario.Trim.Length > 0 Then
             DVDescargaCuentas2.Visible = True
-            'Mensaje.Append($"Cuentas Interbancarias  <a class='Texto' href='../Empresas/{UsuarioActual.CveEmpresa}/Layout/{NombreArchivoInterbancario}' download >Descarga Archivo cuentas Bancomer</a> <br><br>")
-
+        End If
+        If NombreArchivoCIE.Trim.Length > 0 Then
+            DVDescargaCuentas3.Visible = True
         End If
 
 
@@ -820,21 +962,18 @@ Partial Class Bancos_PagoElectronicoGrupos
             Mensaje.Append("</div>")
         End If
 
-        If NombreArchivoBancomer.Length > 0 Or NombreArchivoInterbancario.Length > 0 Then
-
+        If NombreArchivoBancomer.Length > 0 Or NombreArchivoInterbancario.Length > 0 Or NombreArchivoCIE.Length > 0 Then
 
             LnkDescargaCuentas1.Text = NombreArchivoBancomer
             LnkDescargaCuentas2.Text = NombreArchivoInterbancario
+            LnkDescargaCuentas3.Text = NombreArchivoCIE
+
             RegistraScript("$('#ModalDescarga').modal({ backdrop: 'static',  keyboard: false});")
-
             UpModalDescarga.Update()
-
-
         Else
             Alert(Mensaje.ToString, TipoMensaje.MsgAdvertencia)
         End If
 
-
         CargaDatos()
 
     End Sub
@@ -1000,6 +1139,7 @@ Partial Class Bancos_PagoElectronicoGrupos
             'Alert("Hola")
         End If
     End Sub
+
     Protected Sub FormarTexto(Registros As Integer)
         '''''' LLENADO HEADER
         Dim convenio As String = DTPendienteActual(0)("ConvenioPagoElectronico").ToString
@@ -1050,7 +1190,7 @@ Partial Class Bancos_PagoElectronicoGrupos
         Dim RegistrosPago As New StringBuilder
         Dim MENSAJEError As New StringBuilder
 
-
+        Dim EsCIE As Boolean = False
         Dim CeroRelleno As Char = "0"c
         Dim EspacioRelleno As Char = Chr(32)
         Dim ErrorLayout = False
@@ -1064,40 +1204,53 @@ Partial Class Bancos_PagoElectronicoGrupos
             MENSAJEError.AppendLine($"Error al generar pago <br>")
             MENSAJEError.AppendLine($" Proveedor: {drow("RazonSocial").ToString} detalle: { drow("Observaciones").ToString} <br>")
 
+            'CveBanco = '012'
+            If drow("CveBanco").ToString.Trim = "012" Then
+                If drow("CIE").ToString.Trim.Length > 0 Then 'cuenta bancomer Con convenio CIE
+                    EsCIE = True
+                    If drow("CIE").ToString.Trim.Length > 0 Then
+                        RegistrosPago.Append("CIL")
+                    Else
+                        ErrorLayout = True
+                        MENSAJEError.AppendLine("ERROR  en tamaño de CIE")
+                    End If
+                Else
+                    RegistrosPago.Append("PTC") 'cuenta bancomer
+                End If
 
-            If drow("BancoNombre").ToString.ToUpper.Contains("BANCOMER") Or drow("BancoNombre").ToString.ToUpper.Contains("BBVA") Then
-                RegistrosPago.Append("PTC")
             Else
                 RegistrosPago.Append("PSC")
             End If
 
 
-            If drow("CLABEDestino").ToString.Trim.Length.Contiene(10, 18) Then
-                RegistrosPago.Append(drow("CLABEDestino").ToString.PadLeft(18, CeroRelleno))
-            Else
-                ErrorLayout = True
-                MENSAJEError.AppendLine("ERROR EN CLABE cuenta destino")
-                Exit For
-            End If
+            If EsCIE Then
+
+                If drow("ConceptoCIE").ToString.Length <= 30 Then
+                    RegistrosPago.Append(drow("ConceptoCIE").ToString.PadRight(30, CeroRelleno))
+                Else
+                    ErrorLayout = True
+                    MENSAJEError.AppendLine("ERROR Tamaño de ConceptoCIE.")
+                    Exit For
+                End If
 
 
-            If drow("CLABEOrigen").ToString.Trim.Length.Contiene(10, 18) Then
+                If drow("CIE").ToString.Length < 5 Or drow("CIE").ToString.Length > 7 Then
+                    ErrorLayout = True
+                    MENSAJEError.AppendLine("ERROR Tamaño de CIE  (rango 5-7).")
+                    Exit For
+                Else
+                    RegistrosPago.Append(drow("CIE").ToString.PadLeft(7, CeroRelleno))
+                End If
 
-                RegistrosPago.Append(drow("CLABEOrigen").ToString.PadLeft(18, CeroRelleno))
+                If drow("CLABEOrigen").ToString.Trim.Length.Contiene(10, 18) Then
+                    RegistrosPago.Append(drow("CLABEOrigen").ToString.PadLeft(18, CeroRelleno))
+                Else
+                    ErrorLayout = True
+                    MENSAJEError.AppendLine("ERROR EN CLABE cuenta origen")
+                    Exit For
+                End If
 
-            Else
-                ErrorLayout = True
-                MENSAJEError.AppendLine("ERROR EN CLABE cuenta origen")
-                Exit For
-            End If
-
-
-
-            RegistrosPago.Append(drow("Abreviatura").ToString)
-            RegistrosPago.Append(drow("Abonado").ToString.ToDecimal.ToString("0000000000000.00"))
-
-
-            If drow("BancoNombre").ToString.ToUpper.Contains("BANCOMER") Or drow("BancoNombre").ToString.ToUpper.Contains("BBVA") Then
+                RegistrosPago.Append(drow("Abonado").ToString.ToDecimal.ToString("0000000000000.00"))
 
 
                 If drow("Observaciones").ToString.Trim.Length = 0 Then
@@ -1117,7 +1270,78 @@ Partial Class Bancos_PagoElectronicoGrupos
 
                 End If
 
-            Else
+
+                If drow("Referencia").ToString.Trim.Length > 20 Then
+                    RegistrosPago.Append(drow("Referencia").ToString.Substring(0, 20))
+                Else
+                    RegistrosPago.Append(drow("Referencia").ToString.PadRight(20, EspacioRelleno))
+                End If
+
+
+            ElseIf drow("CveBanco").ToString.Trim = "012" And drow("CIE").ToString.Trim.Length = 0 Then
+
+                'cuentas Inicio
+                If drow("CLABEDestino").ToString.Trim.Length.Contiene(10, 18) Then
+                    RegistrosPago.Append(drow("CLABEDestino").ToString.PadLeft(18, CeroRelleno))
+                Else
+                    ErrorLayout = True
+                    MENSAJEError.AppendLine("ERROR EN CLABE cuenta destino")
+                    Exit For
+                End If
+
+                If drow("CLABEOrigen").ToString.Trim.Length.Contiene(10, 18) Then
+                    RegistrosPago.Append(drow("CLABEOrigen").ToString.PadLeft(18, CeroRelleno))
+                Else
+                    ErrorLayout = True
+                    MENSAJEError.AppendLine("ERROR EN CLABE cuenta origen")
+                    Exit For
+                End If
+                'cuentas Fin
+
+
+                RegistrosPago.Append(drow("Abreviatura").ToString)
+                RegistrosPago.Append(drow("Abonado").ToString.ToDecimal.ToString("0000000000000.00"))
+
+
+                If drow("Observaciones").ToString.Trim.Length = 0 Then
+
+                    If drow("RazonSocial").ToString.Trim.Length > 30 Then
+                        RegistrosPago.Append(drow("RazonSocial").ToString.Substring(0, 30))
+                    Else
+                        RegistrosPago.Append(drow("RazonSocial").ToString.PadRight(30, EspacioRelleno))
+                    End If
+                Else
+
+                    If drow("Observaciones").ToString.Trim.Length > 30 Then
+                        RegistrosPago.Append(drow("Observaciones").ToString.Substring(0, 30))
+                    Else
+                        RegistrosPago.Append(drow("Observaciones").ToString.PadRight(30, EspacioRelleno))
+                    End If
+
+                End If
+
+            ElseIf drow("CveBanco").ToString <> "012" Then  'I N T E R B A N C A R I O 
+
+                'cuentas Inicio
+                If drow("CLABEDestino").ToString.Trim.Length.Contiene(10, 18) Then
+                    RegistrosPago.Append(drow("CLABEDestino").ToString.PadLeft(18, CeroRelleno))
+                Else
+                    ErrorLayout = True
+                    MENSAJEError.AppendLine("ERROR EN CLABE cuenta destino")
+                    Exit For
+                End If
+
+                If drow("CLABEOrigen").ToString.Trim.Length.Contiene(10, 18) Then
+                    RegistrosPago.Append(drow("CLABEOrigen").ToString.PadLeft(18, CeroRelleno))
+                Else
+                    ErrorLayout = True
+                    MENSAJEError.AppendLine("ERROR EN CLABE cuenta origen")
+                    Exit For
+                End If
+                'cuentas Fin
+
+                RegistrosPago.Append(drow("Abreviatura").ToString)
+                RegistrosPago.Append(drow("Abonado").ToString.ToDecimal.ToString("0000000000000.00"))
 
                 If drow("RazonSocial").ToString.Length <= 30 Then
                     RegistrosPago.Append(drow("RazonSocial").ToString.PadRight(30, EspacioRelleno))
@@ -1149,8 +1373,14 @@ Partial Class Bancos_PagoElectronicoGrupos
 
                 RegistrosPago.Append("H")
 
+            Else
+                ErrorLayout = True
+                MENSAJEError.AppendLine("Parametros incorrecots")
+                Exit For
             End If
 
+
+
             If ErrorLayout Then
                 Alert(MENSAJEError.ToString(), TipoMensaje.MsgAdvertencia)
                 Exit For
@@ -1232,6 +1462,7 @@ Partial Class Bancos_PagoElectronicoGrupos
                     DVDescargaPagos.Visible = True
                     DVDescargaCuentas1.Visible = False
                     DVDescargaCuentas2.Visible = False
+                    DVDescargaCuentas3.Visible = False
                     DVDescargaReporte.Visible = True
 
                     DT_PagosReporte = DTPendientesTemp.Copy
@@ -1866,7 +2097,7 @@ Partial Class Bancos_PagoElectronicoGrupos
         If ObjBancos.GetLayoutProveedores(DdlCuenta.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, PorGrupos:=True) Then
             DTProveedores = ObjBancos.DtResultados.FiltraParametros("LEN(RFC) IN (12,13)")
         Else
-            DTProveedores = Nothing
+            DTProveedores = New DataTable
         End If
         ObjBancos.Dispose()
 
@@ -1984,20 +2215,20 @@ Partial Class Bancos_PagoElectronicoGrupos
             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>Usted puede pasar a recorger el cheque en las oficinas administrativas.</td> ")
-                strBody.Append("                </tr> ")
-            End If
-
-            If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
-                strBody.Append("                <tr style=""height: 22px""> ")
+            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>Usted puede pasar a recorger el cheque en las oficinas administrativas.</td> ")
+            '    strBody.Append("                </tr> ")
+            'End If
+
+            ' If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
+            strBody.Append("                <tr style=""height: 22px""> ")
                 strBody.Append("              <td>Se notifica el envío de transferencia de pago.</td> ")
-                strBody.Append("                </tr> ")
-            End If
-
+                strBody.Append("                </tr> ")
+            ' End If
+
             strBody.Append("                <tr style=""height: 22px""> ")
             strBody.AppendFormat("              <td>&nbsp;</td> ")
             strBody.Append("                </tr> ")
@@ -2491,7 +2722,7 @@ Partial Class Bancos_PagoElectronicoGrupos
             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"))
+            params.Add(New ReportParameter("Titulo", "Reporte Pago Proveedor Layout Grupos"))
 
             ImprimirPDF("Empresas/Grales/Formatos/LayoutPagoProveedor.rdlc", DT_PagosReporte, params, "LayoutPagoProveedor", RDSName:="DSPagoElectronicoV2")
         End If
@@ -2531,7 +2762,7 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         ObjBancos.Dispose()
 
-        Dim DTGvCuentasPendientes As DataTable = DTPendientes.Copy.FiltraParametros("CveCuentaDeposito > 0", "", {"CveCuentaDeposito", "BancoNombre", "RazonSocial", "Cuenta", "CLABEDestino", "BBVAAlias", "EstatusPagoElectronicoGrupos", "CveSATBanco"})
+        Dim DTGvCuentasPendientes As DataTable = DTPendientes.Copy.FiltraParametros("CveCuentaDeposito > 0", "", {"CveCuentaDeposito", "BancoNombre", "RazonSocial", "Cuenta", "CLABEDestino", "BBVAAlias", "EstatusPagoElectronicoGrupos", "CveSATBanco", "CLABE"})
 
         GvCuentasModal.DataSource = DTGvCuentasPendientes
         GvCuentasModal.DataBind()
@@ -2574,7 +2805,7 @@ Partial Class Bancos_PagoElectronicoGrupos
             Dim DdlSatBanco As DropDownList = GvRow.FCDropDownList("DdlSatBanco")
 
 
-            If Not ObjGenerales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(CveCuentaDeposito, ChkCuentasEstatus.Checked, DdlSatBanco.SelectedValue.ToEntero, TxtBBVAAlias.Text) Then
+            If Not ObjGenerales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(CveCuentaDeposito, If(ChkCuentasEstatus.Checked, 1, 0), DdlSatBanco.SelectedValue.ToEntero, TxtBBVAAlias.Text, "-1", "-1") Then
                 ErrorProceso = True
                 Exit For
             End If
@@ -2626,44 +2857,6 @@ Partial Class Bancos_PagoElectronicoGrupos
 
     End Sub
 
-    Property CveIEPagoActual As Integer
-        Get
-            If ViewState("CveIEPagoActual") Is Nothing Then
-                Return -1
-            Else
-                Return ViewState("CveIEPagoActual").ToString.ToEntero
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("CveIEPagoActual") = value
-        End Set
-    End Property
-
-    Property CveLayoutEnvioDetalleActual As Integer
-        Get
-            If ViewState("CveLayoutEnvioDetalleActual") Is Nothing Then
-                Return -1
-            Else
-                Return ViewState("CveLayoutEnvioDetalleActual").ToString.ToEntero
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("CveLayoutEnvioDetalleActual") = value
-        End Set
-    End Property
-
-    Property GvIndexActual As Integer
-        Get
-            If ViewState("GvIndexActual") Is Nothing Then
-                Return -1
-            Else
-                Return ViewState("GvIndexActual").ToString.ToEntero
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("GvIndexActual") = value
-        End Set
-    End Property
 
 
 
@@ -2759,7 +2952,7 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         Dim ErrorProceso As Boolean = False
         Dim ObjBanco As New ClsBancos
-        'ObjBanco.IniciaTransacSQL()
+        ObjBanco.IniciaTransacSQL()
 
         Dim CveLayoutEnvioDetalle As Integer = GvRow.DataKey("CveLayoutEnvioDetalle").ToEntero
         Dim CveLayoutEnvio As Integer = GvRow.DataKey("CveLayoutEnvio").ToEntero
@@ -2767,12 +2960,32 @@ Partial Class Bancos_PagoElectronicoGrupos
         Dim CveProveedor As Integer = GvRow.DataKey("CveProveedor").ToEntero
         Dim NotificarA As String = GvRow.DataKey("NotificarA")
 
+        Dim FOrigen As String = $"{UsuarioActual.Empresa.Ruta}..\Temp\{Comprobante}"
+        Dim FDestino As String = $"{UsuarioActual.Empresa.Ruta}\IE\{Comprobante}"
+
 
         If Not ObjBanco.UpdateLayoutEnviosDetalle(CveLayoutEnvioDetalle, CveLayoutEnvio, CveIE, CveProveedor, 2, "", True) Then
             ErrorProceso = True
         End If
 
 
+        DTFoliosPrefijos.Clear()
+
+        For Each RowGV As GridViewRow In GvEnviadas.Rows
+            If RowGV.RowType = DataControlRowType.DataRow Then
+
+                Dim nRow As DataRow
+                nRow = DTFoliosPrefijos.NewRow
+
+                nRow("CveIE") = RowGV.DataKey("CveIE").ToEntero
+                nRow("Folio") = RowGV.FCTextBox("TxtFolio").Text.Trim
+
+                DTFoliosPrefijos.Rows.Add(nRow)
+
+            End If
+        Next
+        DTFoliosPrefijos.AcceptChanges()
+
         If NuevoFolio <> "-1" Or Comprobante <> "-1" And Not ErrorProceso Then
             If Not ObjBanco.UpdateBancos_IEFolio(CveIE, NuevoFolio, Comprobante) Then
                 ErrorProceso = True
@@ -2784,8 +2997,7 @@ Partial Class Bancos_PagoElectronicoGrupos
 
             Try
 
-                Dim FOrigen As String = $"{UsuarioActual.Empresa.Ruta}..\Temp\{Comprobante}"
-                Dim FDestino As String = $"{UsuarioActual.Empresa.Ruta}\IE\{Comprobante}"
+
 
                 If File.Exists(FDestino) Then
                     File.Delete(FDestino)
@@ -2797,22 +3009,32 @@ Partial Class Bancos_PagoElectronicoGrupos
                 ErrorProceso = True
                 Alert("Error al guardar comprobante.", TipoMensaje.MsgError)
             End Try
-
         End If
 
 
-
         If ErrorProceso Then
             ObjBanco.RollBack()
         Else
             ObjBanco.Commit()
             Alert("Confirmado Correctamente")
-            NotificacionPago(CveIE, NotificarA)
+
+            If Comprobante = "-1" Then
+                FDestino = ""
+            End If
+
+            NotificacionPago(CveIE, NotificarA, FDestino)
 
             CargaEnviados()
 
-        End If
+            For Each RowGV As GridViewRow In GvEnviadas.Rows
+                If RowGV.RowType = DataControlRowType.DataRow Then
+                    RowGV.FCTextBox("TxtFolio").Text = DTFoliosPrefijos.FiltroPrimeroValor("Folio", $"CveIE = {RowGV.DataKey("CveIE").ToEntero}")
+                End If
+            Next
 
+            UpEnviados.Update()
+
+        End If
 
         ObjBanco.Dispose()
 
@@ -3029,12 +3251,6 @@ Partial Class Bancos_PagoElectronicoGrupos
     End Sub
 
 
-
-
-
-
-
-
     Protected Sub LnkDescarga_Click(sender As Object, e As EventArgs)
 
         Dim FileName As String = NombreArchivo
@@ -3058,8 +3274,8 @@ Partial Class Bancos_PagoElectronicoGrupos
         Response.End()
     End Sub
     Protected Sub LnkDescargaCuentas2_Click(sender As Object, e As EventArgs)
-        Dim FileName As String = NombreArchivo
-        Dim FilePath As String = $"{UsuarioActual.Empresa.Ruta}Layout\{NombreArchivo}"
+        Dim FileName As String = NombreArchivoInterbancario
+        Dim FilePath As String = $"{UsuarioActual.Empresa.Ruta}Layout\{NombreArchivoInterbancario}"
         Response.Clear()
         Response.ContentType = "application/octet-stream"
         Response.AddHeader("Content-Disposition", "attachment; filename=" & FileName)
@@ -3067,6 +3283,17 @@ Partial Class Bancos_PagoElectronicoGrupos
         Response.End()
     End Sub
 
+    Protected Sub LnkDescargaCuentas3_Click(sender As Object, e As EventArgs)
+
+        Dim FileName As String = NombreArchivoCIE
+        Dim FilePath As String = $"{UsuarioActual.Empresa.Ruta}Layout\{NombreArchivoCIE}"
+        Response.Clear()
+        Response.ContentType = "application/octet-stream"
+        Response.AddHeader("Content-Disposition", "attachment; filename=" & FileName)
+        Response.TransmitFile(FilePath)
+        Response.End()
+
+    End Sub
 
 
 
@@ -3075,14 +3302,8 @@ Partial Class Bancos_PagoElectronicoGrupos
         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"
-
-
+        DT_PagosReporte = DT_PagosReporte.FiltraParametros("EstatusPagoElectronicoGrupos = 'True'  AND EstatusCtaDeposito > 0").Copy()
+
         Dim params As New List(Of ReportParameter)
 
         If Archivo.Exists Then
@@ -3112,33 +3333,20 @@ Partial Class Bancos_PagoElectronicoGrupos
     End Sub
 
 
-    Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String)
+    Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String, RutaComprobante 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 As String = ""
 
-        '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))
+        Dim Hilo As New Threading.Thread(Sub() MandaCorreo(CorreoNotificarA, "Notificaciones de pago", Body, CveIE, RutaComprobante, 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, "")
@@ -3242,17 +3450,17 @@ Partial Class Bancos_PagoElectronicoGrupos
             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 = 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""> ")
+            '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
+            'End If
 
             strBody.Append("                    <tr style=""height: 22px""> ")
             strBody.AppendFormat("                  <td>&nbsp;</td> ")
@@ -3374,4 +3582,6 @@ Partial Class Bancos_PagoElectronicoGrupos
     End Function
 
 
+
+
 End Class
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 3eb5a8958..3a56568cf 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4402,6 +4402,8 @@ Partial Class Compras_Compras
             Dim IVA As Decimal = 1.16D
             Dim ListaMovimientosAlmacen As New List(Of Integer)
 
+            Dim Devolucion As MMensajeDevolucion = Nothing
+
             Dim ErrorCreditoCapitalIntres As Boolean = False
             Dim ErrorCredito As Boolean = False
 
@@ -4572,7 +4574,9 @@ Partial Class Compras_Compras
                                 ViewState("CveCompra") = ObjCompras.CveCompra
                                 If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString
                                 If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
-                                    ErrorMovDev = guardardevolucion(ObjInventario, ObjCompras.CveCompra, TxtSubTotal.Text.ToDouble, TxtFecha.Text.Trim.ToDate)
+                                    Devolucion = guardardevolucion(ObjInventario, ObjCompras.CveCompra, TxtSubTotal.Text.ToDouble, TxtFecha.Text.Trim.ToDate)
+
+                                    TieneError = Devolucion.TieneError
                                 End If
                                 Dim ErrorDetalles As Boolean = False
                                 ' Dim IDPoliza As Integer
@@ -6649,6 +6653,13 @@ Partial Class Compras_Compras
                                                                     importeMN = importeMovimiento * tipoCambioActual * Multiplicador
 
                                                                     Dim ConceptoContabilizacionNC = 225
+                                                                    Dim CveMovimientoDevolucion As Integer = -1
+
+                                                                    'CUANDO NO SE RECIBE LA MERCANCIA EN COMPRAS, SE REGISTRA EL 225, SI SE ESTA REGISTRANDO LA DEVOLUCION EN ALMACEN, SE REGISTRA EL 68
+                                                                    If Devolucion IsNot Nothing AndAlso Devolucion.DebeRealizarDevolucion AndAlso Devolucion.CveMovimiento > 0 Then
+                                                                        ConceptoContabilizacionNC = 68
+                                                                        CveMovimientoDevolucion = Devolucion.CveMovimiento
+                                                                    End If
 
                                                                     If ObjConta.GetRetCuenta(ConceptoContabilizacionNC, UsuarioActual.CveEmpresa) Then
                                                                         If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -6666,7 +6677,7 @@ Partial Class Compras_Compras
                                                                             idCuentaContabilizacion = 0
                                                                         End If
 
-                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
                                                                             ErrorPrepoliza = True
                                                                         End If
 
@@ -13925,13 +13936,15 @@ Partial Class Compras_Compras
 
     '*se envia true si hubo un error*'
 
-    Private Function guardardevolucion(ObjInventario As ClsInventarios, CveCompra As Integer, subtotal As Double, Fecha As Date) As Boolean
+    Private Function guardardevolucion(ObjInventario As ClsInventarios, CveCompra As Integer, subtotal As Double, Fecha As Date) As MMensajeDevolucion
         Dim ErrorMovInv As Boolean = False
         Dim CveAlmacen As Integer = DdlAlmacenDevolucion.SelectedValue.ToEntero()
         Dim subtotaldevolucion As Double = 0
         Dim realizadevolucion As Boolean = False
+        Dim CveMovimientoEntrada As Integer = -1
         'Calculo los subtotales para comparar con la NC
         Dim cantidad As Double = 0.0
+
         For Each Dr As GridViewRow In GVDevolucion.Rows
             'CveAlmacen = Dr.DataKey("CveAlmacen").ToString.ToEntero
             cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDouble
@@ -13946,7 +13959,7 @@ Partial Class Compras_Compras
             'si el subtotal es iwal a la nc lo guardo si no marco error
             If subtotal > subtotaldevolucion - 1 AndAlso subtotal < subtotaldevolucion + 1 Then
 
-                Dim CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacen, 13, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, Modulo:="Comp/G")
+                CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacen, 13, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, Modulo:="Comp/G")
                 If CveMovimientoEntrada <= 0 Then
                     ErrorMovInv = True
                 Else
@@ -13964,9 +13977,14 @@ Partial Class Compras_Compras
                 Alert("El Total de la NC debe ser igual al total de la devolucion", TipoMensaje.MsgAdvertencia)
             End If
         End If
-        Return ErrorMovInv
-    End Function
 
+        Return New MMensajeDevolucion() With
+        {
+            .CveMovimiento = CveMovimientoEntrada,
+            .DebeRealizarDevolucion = realizadevolucion,
+            .TieneError = ErrorMovInv
+        }
+    End Function
 
     Private Sub cargaddldevoluciones(CveProveedor As Integer, SubTotal As Double)
         Dim objcompras As New ClsCompras()
@@ -19887,4 +19905,10 @@ Partial Class Compras_Compras
         End If
     End Sub
 
+End Class
+
+Public Class MMensajeDevolucion
+    Public Property CveMovimiento As Integer
+    Public Property TieneError As Boolean
+    Public Property DebeRealizarDevolucion As Boolean
 End Class
\ No newline at end of file
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 1141bf3d9..bc92c054a 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2673,9 +2673,10 @@ Partial Class PopUpVerFactura
                     Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                     Dim params As New List(Of ReportParameter)
 
+                    Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
                     Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalidaUniforme.rdlc"
 
-                    If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
+                    If Not ArchivoRuta.Exists Then
                         Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc"
                     End If
 
diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx
index c49035b5c..be6e26832 100644
--- a/Compras/Proveedores.aspx
+++ b/Compras/Proveedores.aspx
@@ -1944,7 +1944,7 @@
                                                 <div runat="server">
 
                                                     <asp:GridView ID="GvBancosCuentas" GridLines="None" BorderColor="#D3D3D3" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" runat="server" 
-                                                        DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco" AutoGenerateColumns="False" 
+                                                        DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco,ConceptoCIE" AutoGenerateColumns="False" 
                                                         EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias">
 
                                                         <Columns>
@@ -3568,11 +3568,19 @@
                             <%--<ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtConvenioCIE" FilterType="Numbers" />--%>
                             <label for="<%= TxtConvenioCIE.ClientID.ToString()%>">CIE:</label>
                         </div>
+                        
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtReferencia" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtReferencia" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
                             <label for="<%= TxtReferencia.ClientID.ToString()%>">Referencia:</label>
                         </div>
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtConceptoCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30" ></asp:TextBox>
+                            <ajax:FilteredTextBoxExtender ID="FilAlfanumerico" runat="server" TargetControlID="TxtConceptoCIE" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
+                            <label for="<%= TxtReferencia.ClientID.ToString()%>">Concepto CIE:</label>
+                        </div>
+
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtRefCrediProveedor" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="5" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <label for="<%= TxtRefCrediProveedor.ClientID.ToString()%>">Credito Proveedor:</label>
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 6d29fb43a..f5df70545 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -3111,30 +3111,53 @@ Partial Class Compras_Proveedores
             End If
 
         Else
-
             'SI CIE TIENE ALGO DEBE TENER UNA LOGITUD MINIMA DE 5
             If TxtConvenioCIE.Text.Trim.Length <> 0 And TxtConvenioCIE.Text.Trim.Length < 5 Then
                 Alert("El Convenio CIE debe tener una longitud de al menos 5 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
+            End If
+        End If
+
+
+
+        If ChkPagoElectronicoGrupos.Checked Then
+
+            If TxtConvenioCIE.Text.Trim.Length > 0 Then
+
+                If TxtConvenioCIE.Text.Trim.Length < 5 Then
+                    Alert("El campo CIE debe de tener una tamaño mininmo 5 caracteres.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
+
+                If Not DdlSatBanco.SelectedValue.ToEntero > 0 Then
+                    Alert("Se debe de especificar el banco.")
+                    Exit Sub
+                End If
+
+
+
             End If
 
         End If
+
         Dim Estatus As Boolean
         If ChkEstatus.Checked = True Then Estatus = True Else Estatus = False
 
         AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text.Trim, TxtReferencia.Text.Trim, TxtRefCrediProveedor.Text.Trim,
-                           DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, Estatus, TxtCorreoCuenta.Text.Trim, TxtBBVAAlias.Text, ChkPagoElectronico.Checked, ChkPagoElectronicoGrupos.Checked, DdlSatBanco.SelectedValue.ToEntero)
+                           DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, Estatus, TxtCorreoCuenta.Text.Trim, TxtBBVAAlias.Text, ChkPagoElectronico.Checked, ChkPagoElectronicoGrupos.Checked, DdlSatBanco.SelectedValue.ToEntero, TxtConceptoCIE.Text)
     End Sub
 
     Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String,
-                                   CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, CveSATBanco As Integer)
+                                   CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, CveSATBanco As Integer,
+                                   ConceptoCIE As String)
+
         Dim ObjCuentasBancos As New ClsGenerales
         If Modalidad = "A" Then
 
             If CveProveedor > 0 Then
 
                 If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveProveedor:=CveProveedor,
-                                                        Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco) Then
+                                                        Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco, ConceptoCIE:=ConceptoCIE) Then
                     DTCuentasBancos.Clear()
                     DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
                     Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
@@ -3163,6 +3186,7 @@ Partial Class Compras_Proveedores
                 Row("Estatus") = "True"
                 Row("Correo") = Correo
                 Row("CveSATBanco") = CveSATBanco
+                Row("ConceptoCIE") = ConceptoCIE
 
                 TempDTCuentasBancos.Rows.Add(Row)
 
@@ -3177,7 +3201,8 @@ Partial Class Compras_Proveedores
             If CveProveedor > 0 Then
 
                 If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor,
-                                                           False, Estatus, CveMoneda, Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco) Then
+                                                           False, Estatus, CveMoneda, Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco,
+                                                           ConceptoCIE:=ConceptoCIE) Then
                     DTCuentasBancos.Clear()
                     DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
                     Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
@@ -3206,6 +3231,7 @@ Partial Class Compras_Proveedores
                 Row("Estatus") = Estatus
                 Row("Correo") = Correo
                 Row("CveSATBanco") = CveSATBanco
+                Row("ConceptoCIE") = ConceptoCIE
 
                 TempDTCuentasBancos.AcceptChanges()
                 Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
@@ -3227,6 +3253,7 @@ Partial Class Compras_Proveedores
         TxtNumeroCuenta.Text = ""
         TxtConvenioCIE.Text = ""
         TxtReferencia.Text = ""
+        TxtConceptoCIE.Text = ""
         TxtRefCrediProveedor.Text = ""
         TxtCorreoCuenta.Text = ""
         TxtBBVAAlias.Text = ""
@@ -4691,6 +4718,7 @@ Partial Class Compras_Proveedores
         TxtPlaza.Text = ""
         TxtConvenioCIE.Text = ""
         TxtReferencia.Text = ""
+        TxtConceptoCIE.Text = ""
         TxtRefCrediProveedor.Text = ""
         DdlMoneda.SelectedIndex = 0
         TxtCorreoCuenta.Text = ""
@@ -4721,6 +4749,7 @@ Partial Class Compras_Proveedores
         TxtPlaza.Text = GvRow.DataKey("Plaza")
         TxtConvenioCIE.Text = GvRow.DataKey("CIE")
         TxtReferencia.Text = GvRow.DataKey("Referencia")
+        TxtConceptoCIE.Text = GvRow.DataKey("ConceptoCIE")
         TxtRefCrediProveedor.Text = GvRow.DataKey("RefCrediProveedor")
         TxtCorreoCuenta.Text = GvRow.DataKey("Correo")
         TxtBBVAAlias.Text = GvRow.DataKey("BBVAAlias")
diff --git a/Compras/ProveedoresAuxiliar.aspx.vb b/Compras/ProveedoresAuxiliar.aspx.vb
index 926764dfe..26f320e35 100644
--- a/Compras/ProveedoresAuxiliar.aspx.vb
+++ b/Compras/ProveedoresAuxiliar.aspx.vb
@@ -115,6 +115,9 @@ Partial Class Compras_ProveedoresAuxiliar
         If txtFechaI.Text = "" Then FechaIn = ""
         If txtFechaF.Text = "" Then FechaFn = ""
         Dim Proveedor = If(DdlProveeedores.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveeedores.SelectedText}")
+        Dim OpcionP = If(DdlOpcion.SelectedValue = "-1", "", $"&emsp;<b>Opción:</b> {DdlOpcion.SelectedItem.Text}")
+        Dim TipoProv = If(DdlTipoProveedor.SelectedValue = "-1", "", $"&emsp;<b>Tipo Proveedor:</b> {DdlTipoProveedor.SelectedItem.Text}")
+        Dim ContaP = If(DdlOpcionContabilizable.SelectedValue = "-1", "", $"&emsp;<b>Contabilizable:</b> {DdlOpcionContabilizable.SelectedItem.Text}")
         If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
             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)
@@ -122,7 +125,7 @@ Partial Class Compras_ProveedoresAuxiliar
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToString))
-            params.Add(New ReportParameter("Filtros", $"<b>Filtros:</b> {Proveedor}{FechaIn}{FechaFn}"))
+            params.Add(New ReportParameter("Filtros", $"<b>Filtros:</b> {Proveedor}{FechaIn}{FechaFn}{OpcionP}{TipoProv}{ContaP}"))
             If Imagen.Exists Then
                 params.Add(New ReportParameter("LogoPath", logouri))
             Else
diff --git a/Contabilidad/RepIVA.aspx b/Contabilidad/RepIVA.aspx
index 83e549317..ab77a2796 100644
--- a/Contabilidad/RepIVA.aspx
+++ b/Contabilidad/RepIVA.aspx
@@ -37,6 +37,9 @@
             <asp:PostBackTrigger ControlID="LnkAccionesDIOT" />
         </Triggers>
     </asp:UpdatePanel>
+    <li>
+        <asp:LinkButton ID="LnkExcel2"  OnClick="LnkExcel2_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Generales del proveedor</asp:LinkButton>
+    </li>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs
index d76955b06..f694ee2bc 100644
--- a/Contabilidad/RepIVA.aspx.cs
+++ b/Contabilidad/RepIVA.aspx.cs
@@ -43,7 +43,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
         if (!IsPostBack)
         {
             InicializaValores();
-            
+
         }
     }
 
@@ -53,8 +53,8 @@ public partial class Contabilidad_RepIVA : ClsPaginas
         TCEspecifico = -1;
         txtFechaI.Text = $"01/{DateTime.Now.Month}/{DateTime.Now.Year}";
         txtFechaF.Text = DateTime.Now.ToShortDateString();
-         
-        LnkAccionesDIOT.Visible = true;      
+
+        LnkAccionesDIOT.Visible = true;
 
     }
 
@@ -84,17 +84,17 @@ public partial class Contabilidad_RepIVA : ClsPaginas
         {
             GvA.DataSource = ObjCont.DtResultados;
             DtIVAAcreditable = ObjCont.DtResultados;
-            if (DtIVAAcreditable.FiltraParametros("IVA < 0 OR IEPS < 0 ").Rows.Count > 0) 
+            if (DtIVAAcreditable.FiltraParametros("IVA < 0 OR IEPS < 0 ").Rows.Count > 0)
             {
                 LblMsgAcreditable.Text = "La información presenta importes en negativo, estos no se incluirán en el archivo generado para DIOT";
-             }
-                
+            }
+
 
             if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 3, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
             {
                 GvIVA2.DataSource = ObjCont.DtResultados;
             }
-          
+
 
         }
         ObjCont.Dispose();
@@ -130,19 +130,19 @@ public partial class Contabilidad_RepIVA : ClsPaginas
             {
                 e.Row.CssClass = "Totales";
             }
-            if  (e.Row.DBCampo("PorcentajeIVA").ToDecimal() > 0  )
-               {
-                Decimal SubTotal = (e.Row.DBCampo("SubTotal16").ToDecimal() > 0? e.Row.DBCampo("SubTotal16").ToDecimal() : (e.Row.DBCampo("SubTotal8").ToDecimal() > 0? e.Row.DBCampo("SubTotal8").ToDecimal() : (Decimal)0.0) );
+            if (e.Row.DBCampo("PorcentajeIVA").ToDecimal() > 0)
+            {
+                Decimal SubTotal = (e.Row.DBCampo("SubTotal16").ToDecimal() > 0 ? e.Row.DBCampo("SubTotal16").ToDecimal() : (e.Row.DBCampo("SubTotal8").ToDecimal() > 0 ? e.Row.DBCampo("SubTotal8").ToDecimal() : (Decimal)0.0));
 
                 Decimal dif = Math.Round(SubTotal * e.Row.DBCampo("PorcentajeIVA").ToDecimal(), 2) - Math.Round(e.Row.DBCampo("IVA").ToDecimal(), 2);
                 if (dif > 1)
                 {
                     e.Row.ForeColor = System.Drawing.Color.Red;
-                    e.Row.Cells[0].Text  = e.Row.Cells[0].Text + "Err";
+                    e.Row.Cells[0].Text = e.Row.Cells[0].Text + "Err";
 
-                    e.Row.ToolTip = "Dif:" + dif.ToString() + "- Sub:" + e.Row.DBCampo("SubTotal")+ " - IVA:"+ e.Row.DBCampo("IVA");
+                    e.Row.ToolTip = "Dif:" + dif.ToString() + "- Sub:" + e.Row.DBCampo("SubTotal") + " - IVA:" + e.Row.DBCampo("IVA");
                 }
-            } 
+            }
         }
     }
 
@@ -155,6 +155,10 @@ public partial class Contabilidad_RepIVA : ClsPaginas
     {
         Imprimir("EXCEL");
     }
+    protected void LnkExcel2_Click(object sender, EventArgs e)
+    {
+        Imprimir("EXCEL2");
+    }
 
     public void Imprimir(String Opcion)
     {
@@ -192,11 +196,12 @@ public partial class Contabilidad_RepIVA : ClsPaginas
             }
 
             DataTable Dt = TT.ActiveTabIndex == 0 ? DtIVATrasladado.Copy() : DtIVAAcreditable.Copy();
-            string Formato = TT.ActiveTabIndex == 0 ? "RepIVA.rpt" : "RepIVAAcreditable.rpt";
+            string Formato = TT.ActiveTabIndex == 0 ? "RepIVA.rpt" : (Opcion == "EXCEL2" ? "RepIVAAcreditable2.rpt" : "RepIVAAcreditable.rpt");
+            Opcion = (Opcion == "EXCEL2" ? "EXCEL" : Opcion);
             para.Add(new CrystalParametro("Excel", Formato));
             string Ruta = (ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\Grales\Formatos\{Formato}");
-                Ruta.GuardaLogAD(); 
-            ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt,para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
+            Ruta.GuardaLogAD();
+            ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
         }
         else
         {
@@ -248,17 +253,17 @@ public partial class Contabilidad_RepIVA : ClsPaginas
 
             foreach (DataRow Drow in Objconta.DtResultados.FiltraParametros("CveCompra is null and CveProveedor > 0 and SubTotal >= 1  ").Rows) // and(IVA > 1 OR IEPS > 0)
             {
-                SBDIOT.AppendLine(                    
-                    Drow["TipoTercero"].ToString() + "|" + 
-                    Drow["TipoOperacion"].ToString() + "|" + 
-                    Drow["RFC"].ToString() +"|"+  
-                    Drow["NumeroIDFiscal"].ToString() + "|" + 
-                    Drow["NombreExtranjero"].ToString() +"|"+ 
-                    Drow["PaisResidencia"].ToString() + "|" + 
-                    Drow["Nacionalidad"].ToString() +"|"+
-                    LV(Drow["valorActos1516"].ToString())  + "|"+
+                SBDIOT.AppendLine(
+                    Drow["TipoTercero"].ToString() + "|" +
+                    Drow["TipoOperacion"].ToString() + "|" +
+                    Drow["RFC"].ToString() + "|" +
+                    Drow["NumeroIDFiscal"].ToString() + "|" +
+                    Drow["NombreExtranjero"].ToString() + "|" +
+                    Drow["PaisResidencia"].ToString() + "|" +
+                    Drow["Nacionalidad"].ToString() + "|" +
+                    LV(Drow["valorActos1516"].ToString()) + "|" +
                     LV(Drow["valorActos15"].ToString()) + "|" +
-                    LV(Drow["ValorIvaNo1516"].ToString()) +"|"+
+                    LV(Drow["ValorIvaNo1516"].ToString()) + "|" +
 
                     LV(Drow["valorActos1011"].ToString()) + "|" +
                     LV(Drow["valorActos10"].ToString()) + "|" +
@@ -270,11 +275,11 @@ public partial class Contabilidad_RepIVA : ClsPaginas
                     LV(Drow["ValorIvaNoImp16"].ToString()) + "|" +
 
                     LV(Drow["valorActosImp10"].ToString()) + "|" +
-                    LV(Drow["ValorIvaNoImp10"].ToString()) + "|" +                  
+                    LV(Drow["ValorIvaNoImp10"].ToString()) + "|" +
 
-                    LV(Drow["IvaExentoImpo"].ToString()) + "|"+
+                    LV(Drow["IvaExentoImpo"].ToString()) + "|" +
                     LV(Drow["IVACero"].ToString()) + "|" +
-                    LV(Drow["IvaExento"].ToString()) + "|"+
+                    LV(Drow["IvaExento"].ToString()) + "|" +
                     LV(Drow["IvaRetenido"].ToString()) + "|" +
                     LV(Drow["IvaDevoluciones"].ToString()) + "|");
             }
@@ -286,7 +291,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
         //TextWriter tw = new StreamWriter(ms, System.Text.Encoding.UTF8); 
 
         //tw.Write(SBDIOT.ToString());
-        
+
         //tw.Flush();
 
         //byte[] bytes = ms.ToArray();
@@ -310,7 +315,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
         Response.End();
     }
 
-    protected string LV(string Valor )
+    protected string LV(string Valor)
     {
         return (Valor.ToDecimal() > 0) ? Valor.ToDecimal().ToString().FormatoNumero(0).Replace(",", string.Empty) : "";
     }
diff --git a/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt b/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt
new file mode 100644
index 000000000..76a5aadc4
Binary files /dev/null and b/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt differ
diff --git a/General/CatMotivoRechazoGuias.aspx b/General/CatMotivoRechazoGuias.aspx
new file mode 100644
index 000000000..2628a6266
--- /dev/null
+++ b/General/CatMotivoRechazoGuias.aspx
@@ -0,0 +1,74 @@
+<%@ Page Title="General - Catálogo de motivo de rechazo de guías" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatMotivoRechazoGuias.aspx.cs" Inherits="General_CatMotivoRechazoGuias" %>
+
+<%@ 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">
+    Catálogo de Motivos de Rechazo de Paquetes
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAgregar">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton runat="server" ID="BtnAgregarMotivoD" OnClick="BtnAgregarMotivoD_Click" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Motivo"></asp:LinkButton>
+            </li>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMotivoRechazoPaqueteria,Descripcion,Estado" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;width:100%" GridLines="None">
+                <Columns>
+                    <asp:BoundField HeaderText ="Descripción" DataField="Descripcion"/>
+                    <asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="LnkEditar" runat="server" OnClick="LnkEditar_Click" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
+                            <asp:LinkButton ID="LnkEliminar" runat="server" OnClick="LnkEliminar_Click" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"/>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                </Columns>
+                <RowStyle CssClass="Texto" />
+                <AlternatingRowStyle CssClass="TextoAlterno" />
+            </asp:GridView>
+
+             <div id="DivAgregarTiposD" class="modal ADS fade" role="dialog">
+                <div class="modal-dialog" style="width: 450px;">
+                    <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <div class="modal-header ">
+                                <button type="button" class="close" data-dismiss="modal">×</button>
+                                <h4 class="modal-title">
+                                    <asp:Literal ID="LtlTituloModalTiposD" runat="server">Motivos de Rechazo</asp:Literal></h4>
+                            </div>
+                            <div class="modal-body">
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="DescripcionTxt" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtTiposD" runat="server" ControlToValidate="DescripcionTxt" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
+                                    <label for="MotivoTxt">Descripción:</label>
+                                    <i></i>
+                                </div>
+                                <br />
+                            </div>
+                            <br />
+                            <div class="modal-footer">
+                                <asp:Button ID="BtnAgregarTiposDModal" OnClick="BtnAgregarTiposDModal_Click" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposD" />
+                                <button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                            </div>
+
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
diff --git a/General/CatMotivoRechazoGuias.aspx.cs b/General/CatMotivoRechazoGuias.aspx.cs
new file mode 100644
index 000000000..73f3ca210
--- /dev/null
+++ b/General/CatMotivoRechazoGuias.aspx.cs
@@ -0,0 +1,96 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+using Extensiones;
+using System.Data;
+
+public partial class General_CatMotivoRechazoGuias : ClsPaginas
+{
+    private int CveMotivoRechazoPaqueteria
+    {
+        get
+        {
+            return ViewState["CveMotivoRechazoPaqueteria"].ToString().ToEntero();
+        }
+
+        set
+        {
+            ViewState["CveMotivoRechazoPaqueteria"] = value;
+        }
+    }
+
+    protected void Page_Load(object sender, EventArgs e)
+    {
+        if (!IsPostBack)
+        {
+            CargaDatos();
+            UpDatos.Update();
+        }
+    }
+
+    private void CargaDatos()
+    {
+        ClsGenerales ObjGeneral = new ClsGenerales();
+        if (ObjGeneral.GetMotivoRechazoPaqueteria(-1,UsuarioActual.CveEmpresa))
+        {
+            GvDatos.DataSource = ObjGeneral.DtResultados;
+            GvDatos.DataBind();
+        }
+        ObjGeneral.Dispose();
+    }
+
+    protected void BtnAgregarMotivoD_Click(object sender, EventArgs e)
+    {
+        BtnAgregarTiposDModal.Text = "Agregar";
+        UpModalTiposD.Update();
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
+    }
+
+    protected void LnkEditar_Click(object sender, EventArgs e)
+    {
+        BtnAgregarTiposDModal.Text = "Actualizar";
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        CveMotivoRechazoPaqueteria = GvRow.DataKey("CveMotivoRechazoPaqueteria").ToEntero();
+        DescripcionTxt.Text = GvRow.DataKey("Descripcion");
+        UpModalTiposD.Update();
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
+    }
+
+    protected void BtnAgregarTiposDModal_Click(object sender, EventArgs e)
+    {
+        ClsGenerales ObjGeneral = new ClsGenerales();
+        if (BtnAgregarTiposDModal.Text == "Agregar")
+        {
+            if (ObjGeneral.AddMotivoRechazoPaqueteria(DescripcionTxt.Text,UsuarioActual.CveEmpresa))
+            {
+                Alert("Motivo Agregado Correctamente");
+            }
+        }else
+        {
+            if (ObjGeneral.UpdateMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria, DescripcionTxt.Text))
+            {
+                Alert("Motivo Actualizado Correctamente");
+            }
+        }
+        ObjGeneral.Dispose();
+        CargaDatos();
+        UpDatos.Update();
+    }
+
+    protected void LnkEliminar_Click(object sender, EventArgs e)
+    {
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        int CveMotivoRechazoPaqueteriaAux = GvRow.DataKey("CveMotivoRechazoPaqueteria").ToEntero();
+        ClsGenerales ObjGeneral = new ClsGenerales();
+        if (ObjGeneral.RemoveMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteriaAux))
+        {
+            Alert("Motivo Eliminado con Correctamente");
+        }
+        ObjGeneral.Dispose();
+        CargaDatos();
+        UpDatos.Update();
+    }
+}
\ No newline at end of file
diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs
index 7793d8e44..94b87e29b 100644
--- a/General/RepPaqueteriasGuias.aspx.cs
+++ b/General/RepPaqueteriasGuias.aspx.cs
@@ -930,6 +930,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
                     DataRow DbRowVenta = ObjVentas.DtResultados.Rows[0];
 
                     int CveCliente = DbRowVenta["CveCliente"].ToString().ToEntero();
+                    int CveVendedor = DbRowVenta["CveVendedor"].ToString().ToEntero();
                     SerieFolio = String.Format("{0}-{1}", DbRowVenta["Serie"].ToString(), DbRowVenta["Folio"].ToString().ToEntero());
                     NombreCliente = DbRowVenta["ClienteNombre"].ToString();
 
@@ -947,6 +948,10 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
                     }
 
                     // Destinatario = "sig.buzon02@gmail.com"; // CORREO PRUEBA
+                    //if (UsuarioActual.Empresa.Funcionalidad(280) == "1" && CveCliente > 0 && CveVendedor > 0)
+                    //{
+                    //    Destinatario = getCorreoNotificacion(CveCliente,CveVendedor);
+                    //}
 
                     if (ObjVentas.GetVentaDetalle(CveVenta))
                     {
@@ -957,6 +962,22 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
             }
         }
     }
+
+    private string getCorreoNotificacion(int CveCliente, int CveVendedor)
+    {
+        DataRow DatosCliente = get_GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("CveCliente = {0}",CveCliente));
+        DataRow DatosVendedor = get_GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("CveVendedor = {0}", CveVendedor));
+        if (DatosCliente != null && DatosVendedor != null)
+        {
+            StringBuilder correos = new StringBuilder("");
+            if (DatosCliente["CorreoEntregaCompras"].ToString().Length > 0) correos.Append(string.Format("{0};", DatosCliente["CorreoEntregaCompras"].ToString()));
+            if (DatosCliente["CorreoEntregaAlmacen"].ToString().Length > 0) correos.Append(string.Format("{0};", DatosCliente["CorreoEntregaAlmacen"].ToString()));
+            if (DatosVendedor["Correo"].ToString().Length > 0) correos.Append(string.Format("{0};", DatosVendedor["Correo"].ToString()));
+            if (DatosVendedor["CorreoAdicionalNotificaciones"].ToString().Length > 0) correos.Append(string.Format("{0};", DatosVendedor["CorreoAdicionalNotificaciones"].ToString()));
+            return correos.ToString();
+        }
+        return "";
+    }
     #endregion
 
     protected void Reasignar_Click(object sender, EventArgs e)
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index e16e212d4..0190cc9f0 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -822,11 +822,10 @@ Partial Class Inventarios_EntregaAlmacen
 
             If AplicaSeccion Then GvDatos.Columns(7).Visible = True
             If AplicaLote Then GvDatos.Columns(8).Visible = True
-            If AplicaCaducidad Then GvDatos.Columns(9).Visible = True
-
-            GvDatos.DataSource = DtDatos
+            If AplicaCaducidad Then GvDatos.Columns(9).Visible = True
+
         End If
-
+        GvDatos.DataSource = DtDatos
 
         GvDatos.DataBind()
         UpDatos.Update()
@@ -3253,6 +3252,8 @@ Partial Class Inventarios_EntregaAlmacen
         TimmerRefresh.Enabled = True
         UpGenerales.Update()
         CargaGvDatos()
+
+        UpDatos.Update()
     End Sub
 
 #End Region
diff --git a/OC/OC.aspx b/OC/OC.aspx
index 340dca446..54e04febc 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -591,7 +591,7 @@
                                     Cliente:                               
                                 </div>
                                 <div class="col-md-2">
-                                    <ADS:Dropdownlost ID="Ddlcliente" Width="100%"  CssStyle="width: 100%;"  UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me"   data-metodo="getcliente" runat="server" DataTextField="NombreComercial"    DataValueField="CveCliente"  ></ADS:Dropdownlost>
+                                    <ADS:Dropdownlost ID="Ddlcliente" Width="100%" CssStyle="width: 100%;" UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"></ADS:Dropdownlost>
                                     <%--                                    <asp:RangeValidator ID="RVCliente" CssClass="form-control" runat="server" ControlToValidate="Ddlcliente" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCECliente" runat="server" HighlightCssClass="vco" TargetControlID="RVCliente" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                 </div>
@@ -856,7 +856,7 @@
 
 
 
-                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" GridLines=" none" BorderColor="Transparent" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" 
+                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" GridLines=" none" BorderColor="Transparent" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn"
                                         DataKeyNames="SubProyecto, Cantidad, Importe, Descuento, CveOrdenCompra, CveUnidadMedida, CvePresupuestoEgreso, PS,CveClasificacion, CvePS, CveSubProyecto, CveActivoFijo, CodigoAF, TipoDato, Observacion, CveOrdenCompraDetalle,CveCompra,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje" data-tableheader=".GVDHeader" ShowHeader="false" data-rows="0">
                                         <Columns>
                                             <asp:TemplateField>
@@ -1503,6 +1503,25 @@
 
             </div>
         </div>
+        <div class="col-md-3" runat="server" id="DivVentaRelacionada">
+            <div class="portlet light xspadding  bordered">
+                <div class="portlet-title">
+                    <div class="caption font-green">
+                        <i class="icon-pin font-green"></i>
+                        <span class="caption-subject bold uppercase">Venta Relacionada </span>
+                    </div>
+                    <div class="tools">
+                        <a href="javascript;" class="expand" data-original-title="" title=""></a>
+                    </div>
+                </div>
+                <asp:GridView runat="server" ID="GvVentaRelacionadas" AutoGenerateColumns="False" DataKeyNames="CveVenta,Folio"
+                    CssClass="table table-striped table-advance table-hover Widthall  mysmallbtn" GridLines="None" ShowHeader="False">
+                    <Columns>
+                        <asp:HyperLinkField DataTextField="Folio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
+                    </Columns>
+                </asp:GridView>
+            </div>
+        </div>
     </div>
 
 
@@ -2558,8 +2577,8 @@
                             <div class="col-md-6 v-center">
                                 <%--<asp:DropDownList ID="DdlProveedorCot" runat="server" Width="100%" CssClass="select2me" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>--%>
                                 <ADS:Dropdownlost runat="server" ID="DdlProveedorCot" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
-                                                    
-<%--                                <asp:RequiredFieldValidator ID="RFVProveedorExcel" runat="server" ControlToValidate="DdlProveedorCot" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor selecionarlo." ValidationGroup="GrpCargarExcel"></asp:RequiredFieldValidator>
+
+                                <%--                                <asp:RequiredFieldValidator ID="RFVProveedorExcel" runat="server" ControlToValidate="DdlProveedorCot" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor selecionarlo." ValidationGroup="GrpCargarExcel"></asp:RequiredFieldValidator>
                                 <ajax:ValidatorCalloutExtender ID="VCProveedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVProveedorExcel" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                             </div>
                         </div>
@@ -2589,7 +2608,7 @@
                         </div>
                         <div class="col-md-10" style="text-align: right">
                             <asp:UpdatePanel runat="server">
-                                <ContentTemplate>                                   
+                                <ContentTemplate>
                                     <asp:Button ID="BtnCargaExcelCot" runat="server" OnClick="BtnCargaExcelCot_Click" CssClass="btn btn-success" Text="Aceptar" ValidationGroup="GrpCargarExcel"></asp:Button>
                                     <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
                                 </ContentTemplate>
@@ -2613,11 +2632,11 @@
                     <div class="modal-body">
                         <asp:UpdatePanel ID="UpCambiarMonedaBody" UpdateMode="Conditional" runat="server">
                             <ContentTemplate>
-                                <div class="row" style="width:100%">
-                                    <label class="col-md-1" style="width:100%">Desea Cambiar el Tipo de Moneda:</label>
+                                <div class="row" style="width: 100%">
+                                    <label class="col-md-1" style="width: 100%">Desea Cambiar el Tipo de Moneda:</label>
                                 </div>
                                 <br />
-                                <div class="row" runat="server" id="DivTCRow" style="width:100%">
+                                <div class="row" runat="server" id="DivTCRow" style="width: 100%">
                                     <label class="col-md-3">Tipo de Cambio:</label>
                                     <div class="col-md-3">
                                         <asp:TextBox ID="TxtTCCambioMoneda" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 7e6042a87..5e3c087b2 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -518,6 +518,8 @@ Partial Class OC
                 End If
 
                 CargaDatos(CveOrdenCompra)
+                'CARGA VENTA RELACIONADA
+                CargaVentaRelacionada()
             Else
                 EsNuevo = True
                 InicializarValores()
@@ -7911,4 +7913,23 @@ Partial Class OC
         '    Alert("Moneda actualizada con exito")
         'End If
     End Sub
+
+    Private Sub CargaVentaRelacionada()
+        Dim GridViewPSAux As GridView = GvD
+        Dim CveOCDetalle As New StringBuilder()
+        For Each vd As GridViewRow In GridViewPSAux.Rows
+            Dim CveVentaDetalle As String = vd.DataKey("CveOrdenCompraDetalle")
+            CveOCDetalle.AppendFormat("{0},", CveVentaDetalle)
+        Next
+        Dim ObjVentas As New ClsOC()
+        If ObjVentas.GetVentasRelacionadas(CveOCDetalle.ToString) Then
+            Dim V As DataTable = ObjVentas.DtResultados
+            If V.Rows.Count > 0 Then
+                DivVentaRelacionada.Visible = True
+                GvVentaRelacionadas.DataSource = V
+                GvVentaRelacionadas.DataBind()
+            End If
+        End If
+        ObjVentas.Dispose()
+    End Sub
 End Class
diff --git a/TareasProgramadas/Tareas119.ashx b/TareasProgramadas/Tareas119.ashx
new file mode 100644
index 000000000..5151052c0
--- /dev/null
+++ b/TareasProgramadas/Tareas119.ashx
@@ -0,0 +1,189 @@
+<%@ WebHandler Language="C#" Class="TareasJam" %>
+
+using System;
+using System.Web;
+using Extensiones;
+using System.Net;
+using System.IO;
+using System.Web.Services;
+using System.Web.Services.Protocols;
+using GemBox.Spreadsheet;
+using System.Data;
+
+public class TareasJam : IHttpHandler
+{
+
+    public void ProcessRequest(HttpContext context)
+    {
+        context.Response.ContentType = "text/plain";
+        //context.Response.Write("Hello World");
+        bool retorno = false;
+        string Metodo = context.Request["Metodo"] ==null?"": context.Request["Metodo"];
+        int CveEmpresa =context.Request["CveEmpresa"] ==null?0: context.Request["CveEmpresa"].ToEntero();
+        switch (Metodo)
+        {
+            case "EjecutaThalamus":
+                retorno =EjecutaThalamus(CveEmpresa);
+                break;
+            default:
+                break;
+        }
+        if (retorno)
+        {
+            context.Response.Write("True");
+
+        }else
+        {
+            context.Response.Write("False");
+
+        }
+        context.Response.End();
+        //ModExtensiones.GuardaLogAD(string.Format("{3} CveEmpresa={0} cveTareaProgramada={1} CveTareaProgramadaHistorial={2}", CveEmpresa, cveTareaProgramada, CveTareaProgramadaHistorial, Metodo), "Tareas Programadas");
+    }
+        private bool EjecutaThalamus(int CveEmpresa)
+        {
+
+
+            string RutaArchivoVentas = $@"C:\Temp\Ventas{DateTime.Now.ToString("yyyyMMdd")}.xlsx";
+            var DTVentas = 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 (int x = 0; x <= 50; x++)
+            {
+                DataRow dr = DTVentas.NewRow();
+                dr[0] = $"systemId {x}";
+                dr[1] = $"Branch {x}";
+                dr[2] = $"{x}";
+                dr[3] = $"{ DateTime.Now.ToString("yyyy-MM-dd")}";
+                dr[4] = $"{x}";
+                dr[5] = $"{x}.00";
+                dr[6] = $"{x}";
+                DTVentas.Rows.Add(dr);
+            }
+
+            SpreadsheetInfo.SetLicense(Extensiones.ModExtensiones.SerialGemBoxSpreadsheet());
+            var workbook = new ExcelFile();
+            var worksheet = workbook.Worksheets.Add("Ventas");
+            worksheet.InsertDataTable(DTVentas, new InsertDataTableOptions()
+            {
+                ColumnHeaders = true,
+                StartRow = 0
+            });
+            workbook.Save(RutaArchivoVentas);
+            string FTPServer = "ftp://127.0.0.1/";
+            string TFPUsr = "Toor";
+            string FTPPass = "agj-3500";
+            var FInfo = new FileInfo(RutaArchivoVentas);
+            bool Carga = CargarArchivos(FInfo.FullName, FTPServer, TFPUsr, FTPPass);
+            if (Carga)
+            {
+                Carga = VerificarArchivo(FInfo.Name, FInfo.Length, FTPServer, TFPUsr, FTPPass);
+            }
+
+            return Carga;
+
+        }
+
+
+        private bool CargarArchivos(string RutaArchivo, string FTPServer, string FTPUsr, string FTPPass)
+{
+    bool Respuesta;
+    var FInfo = new FileInfo(RutaArchivo);
+    if (FInfo.Exists)
+    {
+        FtpWebRequest request = (FtpWebRequest)WebRequest.Create($"{FTPServer}/{FInfo.Name}");
+        request.Method = WebRequestMethods.Ftp.UploadFile;
+        int tamanio = 1024;
+        var buffer = new byte[tamanio + 1];
+        int byteRead = 0;
+        bool Conected = false;
+        request.Credentials = new NetworkCredential(FTPUsr, FTPPass);
+        try
+        {
+            request.GetResponse();
+            Conected = true;
+        }
+        catch (Exception ex)
+        {
+        }
+
+        if (Conected)
+        {
+            Stream ftpStream;
+            FileStream f;
+            ftpStream = request.GetRequestStream();
+            f = File.OpenRead(FInfo.FullName);
+            try
+            {
+                do
+                {
+                    byteRead = f.Read(buffer, 0, tamanio);
+                    ftpStream.Write(buffer, 0, byteRead);
+                }
+                while (byteRead != 0);
+                Respuesta = true;
+            }
+            // validar si existe archivo si coincide en tamaño
+            catch (Exception ex)
+            {
+                Respuesta = false;
+            }
+
+            if (f is object)
+            {
+                f.Close();
+            }
+
+            if (ftpStream is object)
+            {
+                ftpStream.Close();
+            }
+        }
+        else
+        {
+            Respuesta = false;
+            // no se conecto al ftp probablemente credenciales erroneas
+        }
+    }
+    else
+    {
+        Respuesta = false;
+        // El archivo no existe en el disco local
+    }
+
+    return Respuesta;
+}
+
+
+    private bool VerificarArchivo(string Archivo, long Tamanio, string FTPServer, string FTPUsr, string FTPPass)
+    {
+        bool Respuesta = false;
+        FtpWebRequest reqSize = (FtpWebRequest)FtpWebRequest.Create(new Uri(FTPServer + Archivo));
+        reqSize.Credentials = new NetworkCredential(FTPUsr, FTPPass);
+        reqSize.Method = WebRequestMethods.Ftp.GetFileSize;
+        reqSize.UseBinary = true;
+        FtpWebResponse loginresponse = (FtpWebResponse)reqSize.GetResponse();
+        FtpWebResponse respSize = (FtpWebResponse)reqSize.GetResponse();
+        respSize = (FtpWebResponse)reqSize.GetResponse();
+        long size = respSize.ContentLength;
+        respSize.Close();
+        if (Tamanio == size)
+        {
+            Respuesta = true;
+        }
+
+        return Respuesta;
+    }
+
+
+    public bool IsReusable
+    {
+        get { return false; }
+    }
+
+}
\ No newline at end of file
diff --git a/TareasProgramadas/Tareas72.ashx b/TareasProgramadas/Tareas72.ashx
new file mode 100644
index 000000000..1edc5d88a
--- /dev/null
+++ b/TareasProgramadas/Tareas72.ashx
@@ -0,0 +1,134 @@
+<%@ WebHandler Language="C#" Class="Tareas72" %>
+
+using System;
+using System.Web;
+using System.Data;
+using Newtonsoft.Json;
+using Newtonsoft.Json.Linq;
+using Extensiones;
+using System.IO;
+using Microsoft.Reporting.WebForms;
+using System.Net.Http;
+using System.Net.Http.Headers;
+using System.Threading.Tasks;
+using System.Text;
+public class Tareas72 : IHttpHandler
+{
+
+    public void ProcessRequest(HttpContext context)
+    {
+        context.Response.ContentType = "text/plain";
+        context.Response.Write("Hello World");
+
+        bool retorno = false;
+        string Metodo = context.Request["Metodo"] == null ? "" : context.Request["Metodo"];
+        switch (Metodo)
+        {
+            case "ActualizarProcesoPaqueterias":
+                retorno = ActualizarProcesoPaqueterias();
+                break;
+        }
+
+        context.Response.Write(retorno);
+        context.Response.End();
+    }
+
+    private bool ActualizarProcesoPaqueterias()
+    {
+        bool retorno = true;
+        ClsGenerales ObjGenerales = new ClsGenerales();
+        ClsClientes ObjClientes = new ClsClientes();
+        ClsVentas ObjVentas = new ClsVentas();
+        ClsVtaVendedores ObjVendedores = new ClsVtaVendedores();
+        ClsSisMail Correo = new ClsSisMail();
+
+        ClsSisEmpresas ObjEmpresa = new ClsSisEmpresas();
+        Empresa Empresa = new Empresa();
+        if (ObjEmpresa.GetEmpresas(72, "-1", "-1", "-1", "-1"))
+        {
+            Empresa = ObjEmpresa.Empresa;
+        }
+        try
+        {
+            if (ObjGenerales.GetPaqueteriasGuias(-1, -1, 7, 1, -1, 72, "-1", "01/01/1990", "01/01/2100"))
+            {
+                DataRowCollection GuiasPendientes = ObjGenerales.DtResultados.Rows;
+                foreach (DataRow Guia in GuiasPendientes)
+                {
+                    int CvePaqueteriaGuia = Guia["CvePaqueteriaGuia"].ToString().ToEntero();
+                    string GuiaConsultar = Guia["Guia"].ToString();
+
+                    //CONSULTAMOS CADA GUIA EN LA SIGUIENTE API
+                    string uriConsultaGuia = string.Format("https://cc.paquetexpress.com.mx/ptxws/rest/api/v2/guia/historico/ultimoevento/{0}/@1@2@3@4@5", GuiaConsultar);
+                    HttpClient Client = new HttpClient();
+                    HttpResponseMessage ResponseMessage = Client.GetAsync(uriConsultaGuia).Result;
+                    string JsonString = ResponseMessage.Content.ReadAsStringAsync().Result;
+                    string JsonStringFormat = JsonString.Replace("Resultado(", "{\"Resultado\":").Replace(")", "}");
+                    DataSet dataSet = JsonConvert.DeserializeObject<DataSet>(JsonStringFormat);
+                    DataTable dataTable = dataSet.Tables["Resultado"];
+                    if (dataTable.Rows[0]["eventoId"].ToString() == "Hdc")
+                    {
+                        int EstatusEntregado = 3;
+
+                        //MANDAMOS A ACTUALIZAR CON ESTATUS DE ENTREGADO
+                        if (ObjGenerales.UpdatePaqueteriasGuias(CvePaqueteriaGuia, -1, -1, -1, EstatusEntregado, "-1", "", "", -1, -1, "-1", "-1", ""))
+                        {
+                            #region 'MANDAR CORREOS'
+                            int CveCliente = Guia["CveCliente"].ToString().ToEntero();
+                            int CveVenta = Guia["CveAgrupador"].ToString().ToEntero();
+                            StringBuilder correos = new StringBuilder("");
+
+                            if (ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1))
+                            {
+                                if (ObjClientes.DtResultados.Rows.Count > 0)
+                                {
+                                    DataRow DatosCliente = ObjClientes.DtResultados.Rows[0];
+                                    if (DatosCliente["CorreoEntregaCompras"].ToString().Length > 0) correos.Append(string.Format("{0};", DatosCliente["CorreoEntregaCompras"].ToString()));
+                                    if (DatosCliente["CorreoEntregaAlmacen"].ToString().Length > 0) correos.Append(string.Format("{0};", DatosCliente["CorreoEntregaAlmacen"].ToString()));
+                                }
+                            }
+
+                            if (ObjVentas.GetVenta(CveVenta, 72))
+                            {
+                                if (ObjVentas.DtResultados.Rows.Count > 0)
+                                {
+                                    int CveVendedor = ObjVentas.DtResultados.Rows[0]["CveVendedor"].ToEntero();
+                                    if (ObjVendedores.GetVendedores(72))
+                                    {
+                                        DataRow DatosVendedor = ObjVendedores.DtResultados.FiltroPrimero(string.Format("CveVendedor = {0}", CveVendedor));
+                                        if (DatosVendedor["Correo"].ToString().Length > 0) correos.Append(string.Format("{0};", DatosVendedor["Correo"].ToString()));
+                                        if (DatosVendedor["CorreoAdicionalNotificaciones"].ToString().Length > 0) correos.Append(string.Format("{0};", DatosVendedor["CorreoAdicionalNotificaciones"].ToString()));
+                                    }
+                                }
+                            }
+                            string CorreosString = correos.ToString();
+                            if (CorreosString.Length > 0)
+                            {
+                                Correo.SendMail(Empresa, correos.ToString(), "Actualización de paqueterias entregadas", "");
+                            }
+                            #endregion
+                        }
+                    }
+                }
+            }
+        }
+        catch (Exception e)
+        {
+            ModExtensiones.GuardaLogAD(string.Format("{3} CveEmpresa={0} cveTareaProgramada={1} CveTareaProgramadaHistorial={2}", 72, "", "", e.Message), "Tareas Programadas");
+            retorno = false;
+        }
+
+        ObjGenerales.Dispose();
+        ObjClientes.Dispose();
+        ObjVentas.Dispose();
+        ObjVendedores.Dispose();
+        ObjEmpresa.Dispose();
+        return false;
+    }
+
+    public bool IsReusable
+    {
+        get { return false; }
+    }
+
+}
\ No newline at end of file
diff --git a/Ventas/AuxiliarCliente.aspx.vb b/Ventas/AuxiliarCliente.aspx.vb
index 1b76d465a..f942475e2 100644
--- a/Ventas/AuxiliarCliente.aspx.vb
+++ b/Ventas/AuxiliarCliente.aspx.vb
@@ -121,7 +121,7 @@ Partial Class Ventas_AuxiliarCliente
                 '    Next
                 'End If
 
-                worksheet.Rows.InsertEmpty(0, 6)
+                worksheet.Rows.InsertEmpty(0, 7)
 
                 Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))
                 Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Usuario.CveEmpresa)
@@ -149,12 +149,20 @@ Partial Class Ventas_AuxiliarCliente
                 RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
                 RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
 
+                Dim FiltroCliente = worksheet.Cells.GetSubrangeAbsolute(5, celdasConTexto.FirstColumnIndex, 5, celdasConTexto.LastColumnIndex)
+                FiltroCliente.Merged = True
+                FiltroCliente.Value = String.Format("Cliente: {0}   Fecha Inicio: {1}   Fecha Fin: {2}  Opción: {3}", DdlClientes.SelectedText, txtFechaI.Text, txtFechaF.Text, DdlOpcion.SelectedItem.Text)
+                FiltroCliente.Style.Font.Size = 12 * 20
+                FiltroCliente.Style.Font.Name = "Calibri Light"
+                FiltroCliente.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
+                FiltroCliente.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
                 For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
-                    worksheet.Rows(6).Cells(i).Style.Font.Size = 12 * 20
-                    worksheet.Rows(6).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-                    worksheet.Rows(6).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-                    worksheet.Rows(6).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
-                    worksheet.Rows(6).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
+                    worksheet.Rows(7).Cells(i).Style.Font.Size = 12 * 20
+                    worksheet.Rows(7).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
+                    worksheet.Rows(7).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+                    worksheet.Rows(7).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+                    worksheet.Rows(7).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
                     'If i > 0 Then
                     '    Try
                     '        worksheet.Columns(i).AutoFit(1)
@@ -164,13 +172,15 @@ Partial Class Ventas_AuxiliarCliente
                 Next
 
 
-                Dim IndexEndTable As Integer = Gv.Rows.Count + 8
+                Dim IndexEndTable As Integer = Gv.Rows.Count + 9
 
-                worksheet.Rows(IndexEndTable).Cells(2).Value = "Usuario Imprimió"
-                worksheet.Rows(IndexEndTable + 1).Cells(2).Value = Usuario.Nombre
+                worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió:"
+                worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre
 
-                worksheet.Rows(IndexEndTable).Cells(6).Value = "Fecha Impresión"
-                worksheet.Rows(IndexEndTable + 1).Cells(6).Value = DateTime.Now.ToString("dd/MM/yyyy")
+                worksheet.Rows(IndexEndTable).Cells(4).Value = "Fecha Impresión: "
+                worksheet.Rows(IndexEndTable + 1).Cells(4).Value = DateTime.Now.ToString()
+
+                worksheet.Rows(IndexEndTable).Cells(8).Value = "Impreso en SIG"
             End If
 
         End Using
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 427b7f4f4..927c6b1ad 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -3837,7 +3837,7 @@ Partial Class PV
         TmpDT.Columns.Add("NoIdentificacion", GetType(String))
         TmpDT.Columns.Add("CveTipoPS", GetType(Integer))
         TmpDT.Columns.Add("CveTipoInvPS", GetType(Integer))
-        TmpDT.Columns.Add("SerieLote", GetType(String))
+        TmpDT.Columns.Add("Serie", GetType(String))
         TmpDT.Columns.Add("CuentaPredial", GetType(String))
         TmpDT.Columns.Add("Obs", GetType(String))
         TmpDT.Columns.Add("TiempoEntrega", GetType(String))
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 280423c98..1e6d4ba18 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -3294,6 +3294,19 @@
                                 <td>
                                     <asp:TextBox ID="TxtCorreoNotificaciones" runat="server" Width="100%" CssClass="form-control"></asp:TextBox></td>
                             </tr>
+                            <tr align="left" id="trOCRelacionadasLabel" runat="server" visible="false">
+                                <td id="Td3" runat="server">Ordenes de Compra Relacionadas:&nbsp;</td>
+                            </tr>
+                            <tr align="left" id="trOCRelacionadas" runat="server" visible="false">
+                                <td>
+                                    <asp:GridView runat="server" ID="GvOCRelacionadas" AutoGenerateColumns="False" DataKeyNames="CveOrdenCompra,Folio" 
+                                        CssClass="table table-striped table-advance table-hover Widthall  mysmallbtn" GridLines="None" ShowHeader="False">
+                                        <Columns>
+                                            <asp:HyperLinkField DataTextField="Folio" DataNavigateUrlFields="CveOrdenCompra" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" />
+                                        </Columns>
+                                    </asp:GridView>
+                                </td>
+                            </tr>
                             <tr align="left" id="trPaqueteriOpcionesLabel" runat="server" visible="false">
                                 <td id="Td2" runat="server">Tipo de Entrega:&nbsp;</td>
                             </tr>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index ae5e7372b..53404b0dc 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2106,6 +2106,8 @@ Partial Class Ventas
                         DivDevAlm.Visible = True
                     End If
 
+                    'CARGA GV DE OC RELACIONADAS
+                    CargarOCRelacionadas()
                 End If
             Else
                 If Request("CveOS") IsNot Nothing AndAlso IsNumeric(Request("CveOS")) AndAlso Request("CveOS").ToEntero() > 0 Then
@@ -2306,9 +2308,9 @@ Partial Class Ventas
             ViewState("CveRemision") = IfNull(Request("CveRemision").ToEntero(), 0)
             ViewState("CveCotizacion") = IfNull(Request("CveCotizacion").ToEntero(), 0)
 
-            If ViewState("CveCotizacion").ToString().ToEntero() > 0 Then
-                EsCreaApartirDe = True
-            End If
+            'If ViewState("CveCotizacion").ToString().ToEntero() > 0 Then
+            '    EsCreaApartirDe = True
+            'End If
 
             If ViewState("CveRemision").ToString().ToEntero() > 0 Or ViewState("CveCotizacion").ToString().ToEntero() > 0 Then
                 'ViewState("CveRemision") = Request("CveRemision")
@@ -2346,6 +2348,20 @@ Partial Class Ventas
 
                 'CargaDetalle de Almacen
                 InventarioMov()
+
+                If ViewState("CveCotizacion").ToString().ToEntero() > 0 Then
+
+                    CargaCotizaciones()
+
+                    If DtCotizaciones IsNot Nothing Then
+                        For Each Row As DataRow In DtCotizaciones.Select($"CveVenta={ViewState("CveCotizacion").ToString().ToEntero()}")
+                            Row("Aplicado") = True
+                        Next
+                    End If
+
+                    CargarCotizacionesAFacturar()
+                End If
+
             End If
 
             If Not ExFolioFactura Then SetPermisos()
@@ -16239,6 +16255,11 @@ Partial Class Ventas
                                         If Not OcurrioError Then
                                             OcurrioError = Not GeneroMovimientoAlmacen
                                         End If
+
+                                        If OcurrioError Then
+                                            Exit For
+                                        End If
+
                                     End If
 
                                 End If
@@ -16250,6 +16271,10 @@ Partial Class Ventas
                                     Exit For
                                 End If
                             End If
+
+                            If OcurrioError Then
+                                Exit For
+                            End If
                         Next
 
 
@@ -23598,6 +23623,15 @@ Partial Class Ventas
 
         'MARCA LAS SELECCIONADAS
         VerificaCotizaciones(DtCotizaciones)
+
+        CargarCotizacionesAFacturar()
+
+        RegistraScript("$('#DivCotizaciones').modal('hide');")
+
+    End Sub
+
+    Private Sub CargarCotizacionesAFacturar()
+
         Dim DTSeleccionadas = DtCotizaciones.FiltraParametros("Aplicado = True")
 
         If DTSeleccionadas.Rows.Count = 0 Then
@@ -23684,9 +23718,6 @@ Partial Class Ventas
         UpFacturar.Update()
         UpPS.Update()
         UpParametros.Update()
-
-        RegistraScript("$('#DivCotizaciones').modal('hide');")
-
     End Sub
     Private Sub VerificaCotizaciones(ByRef dt As DataTable)
         If ChkCotProductos.Checked Then
@@ -25699,4 +25730,24 @@ Partial Class Ventas
         MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Entrega en mostrador", "Pendiente", CorreosCC)
         MailCls = Nothing
     End Sub
+
+    Private Sub CargarOCRelacionadas()
+        Dim GridViewPSAux As GridView = GvPS
+        Dim CveVentasDetalle As New StringBuilder()
+        For Each vd As GridViewRow In GridViewPSAux.Rows
+            Dim CveVentaDetalle As String = vd.DataKey("CveVentaDetalle")
+            CveVentasDetalle.AppendFormat("{0},", CveVentaDetalle)
+        Next
+        Dim ObjVentas As New ClsVentas()
+        If ObjVentas.GetOCRelacionadas(CveVentasDetalle.ToString) Then
+            Dim OC As DataTable = ObjVentas.DtResultados
+            If OC.Rows.Count > 0 Then
+                trOCRelacionadasLabel.Visible = True
+                trOCRelacionadas.Visible = True
+                GvOCRelacionadas.DataSource = OC
+                GvOCRelacionadas.DataBind()
+            End If
+        End If
+        ObjVentas.Dispose()
+    End Sub
 End Class
\ No newline at end of file
diff --git a/vwd.webinfo b/vwd.webinfo
index baffb8c51..7b35128de 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -68,8 +68,6 @@
     
   
     
-  
-