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>

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>

App_Code/ClsBancos.vb

@@ -1404,7 +1404,7 @@ Public Class ClsBancos
                                  NotificarA As String, EsAbonoEnCuenta As Boolean, AplicaImpuestos As Boolean, IDPoliza As Integer, CvePrePoliza As Integer, Comprobante As String, CveUsuario As Integer, CveEmpresa As Integer,
                                  Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1,
                                  Optional Referencia As String = "-1", Optional CveIESustitucion As Integer = -1, Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False,
-                                    Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "") As Integer
+                                    Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "") As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_Banc_IEAdd")
@@ -1439,6 +1439,7 @@ Public Class ClsBancos
             .Add("@CveProveedorIntermediario", SqlDbType.Int).Value = CveProveedorIntermediario
             .Add("@FueConciliado", SqlDbType.Bit).Value = FueConciliado
             .Add("@MesesSinIntereses", SqlDbType.Int).Value = MesesSinIntereses
+            .Add("@ConceptoCIE", SqlDbType.VarChar).Value = ConceptoCIE
 
             .Add("@CveIE", SqlDbType.Int).Direction = ParameterDirection.Output
             .Add("@FolioRegistro", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output
@@ -1452,6 +1453,7 @@ Public Class ClsBancos
 
         Catch Ex1 As SqlException
             If Ex1.Message.Contains("Número: 2627;") Or Ex1.Message.Contains("Número: 2601;") Then
+                Me.OnError("Ocurrió un error al Guardar el Movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
                 Alert("Ya existe un movimiento bancario con el mismo Folio: <b>" & Folio & "</b>.", TipoMensaje.MsgAdvertencia)
             Else
                 Me.OnError("Ocurrió un error al Guardar el Movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
@@ -3122,6 +3124,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

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,13 +317,16 @@ 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
         DataAdapter("PA_Gral_PaqueteriasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -453,11 +456,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 +537,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 +553,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 +568,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 +583,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 +598,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 +690,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 +789,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 +885,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 +979,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 +1061,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 +1219,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 +1340,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
@@ -1363,20 +1366,22 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-    ' IDisposable
-
+    ' IDisposable
+
 #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) As Boolean
+    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
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
             .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva
-            .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito
+            .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try
@@ -1389,8 +1394,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")
@@ -1417,6 +1423,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
 
@@ -1435,6 +1442,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
 
@@ -1461,7 +1469,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")
@@ -1487,6 +1496,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
 
@@ -1506,7 +1516,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
 
@@ -1514,21 +1524,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
@@ -1638,11 +1644,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")
@@ -1723,12 +1729,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")
@@ -1982,9 +1988,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
@@ -2085,9 +2091,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
@@ -2174,9 +2180,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
@@ -2349,11 +2355,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,
@@ -2447,9 +2453,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
@@ -2505,10 +2511,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
@@ -2650,10 +2656,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")
@@ -2816,11 +2822,12 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function GetEntregasPorRealizar(CveEmpresa As Integer) As Boolean
+    Public Function GetEntregasPorRealizar(CveEmpresa As Integer, Optional CveAsignacionEntrega As Long = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_EntregasPorRealizarGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -2832,18 +2839,20 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer) As Boolean
+    Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveAsignacionEntrega As Long = -1, Optional CveMotivoRechazoPaqueteria As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_AsignarEntregasPorRealizar")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
             .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CvePersonal
+            .Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega
+            .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
         End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al obtener entregas por realizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            OnError("Ocurrió un error al asignar entregas por realizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
 
         Return Retorno
@@ -3003,11 +3012,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
@@ -3083,11 +3092,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
@@ -3103,9 +3112,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
 
@@ -3186,21 +3195,48 @@ Public Class ClsGenerales
 
 
         Return retorno
-    End Function
-
+    End Function
+
 #End Region
+
+
+
+
+#Region ""
+
+
+    Public Function GetJAMCorveta(Opcion As Integer) As Boolean
 
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_JAM_Corteva")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+
+        End With
+        Try
 
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError($"Ocurrió un error al obtener los datos de Corveta op {Opcion}.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+
+    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
@@ -3260,7 +3296,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
 

App_Code/ClsInventarios.vb

@@ -2421,7 +2421,8 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function AddInventarioFisicoDetalle(CveInventarioFisico As Integer, CvePS As Integer, CveUM As Integer, Cantidad As Double, Serie As String, CveUsuario As Integer) As Boolean
+    Public Function AddInventarioFisicoDetalle(CveInventarioFisico As Integer, CvePS As Integer, CveUM As Integer, Cantidad As Double, Serie As String, CveUsuario As Integer,
+                                               Optional CveSeccionAlmacen As Integer = -1, Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_InventarioFisicoDetalleAdd")
@@ -2433,6 +2434,9 @@ Public Class ClsInventarios
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@Serie", SqlDbType.VarChar).Value = Serie
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
+            .Add("@Lote", SqlDbType.NVarChar).Value = Lote
+            .Add("@FechaCaducidad", SqlDbType.Date).Value = FechaCaducidad
             .Add("@Estatus", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
 

App_Code/ClsOC.vb

@@ -2532,12 +2532,12 @@ Public Class ClsOC
     End Function
 #End Region
 
-    Public Function GetVentasRelacionadas(CveOCDetalle As String) As Boolean
+    Public Function GetVentasRelacionadas(CveOrdenCompra As Integer) As Boolean
         Dim Retorno As Boolean = False
-        DataAdapter("PA_OC_VentaRelacionada")
+        DataAdapter("PA_OC_VentasRelacionadas")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveOCDetalles", SqlDbType.NVarChar).Value = CveOCDetalle
+            .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra
         End With
 
         Try

App_Code/ClsPaginas.vb

@@ -442,6 +442,34 @@ Public Class ClsPaginas
             Application("GlobalDTProveedoresCuentas") = value
         End Set
     End Property
+
+    Property GlobalDTCuentasDepositosClientes(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional Estatus As Boolean = True) As DataTable
+        Get
+            Dim AppNombre As String = String.Format("GlobalDTCuentasDepositosClientes-{0}", CveEmpresa)
+            'sino existe, recarga los datos
+            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+                Dim P As New ClsGenerales
+                If P.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CveCliente:=-2) Then Application(AppNombre) = P.DtResultados
+                P.Dispose()
+            End If
+
+            Dim Str As New StringBuilder
+            Str.AppendFormat("CveEmpresa = {0}", CveEmpresa)
+            If CveCliente <> -1 Then Str.AppendFormat(" AND CveCliente = {0}", CveCliente)
+            If Estatus = True Then Str.AppendFormat(" AND Estatus = 1 ")
+
+            Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
+
+            GlobalDTCuentasDepositosClientes = Dv.ToTable
+            Dv.Dispose()
+
+
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTCuentasDepositosClientes-{0}", CveEmpresa)
+            Application(AppNombre) = value
+        End Set
+    End Property
     Property GlobalDTProveedorClasificacion(CveEmpresa As Integer) As DataTable
         Get
             Dim AppNombre As String = String.Format("GlobalDTProveedorClasificacion-{0}", CveEmpresa)
@@ -3323,12 +3351,26 @@ Public Class ClsPaginas
             Application("GlobalDTClasificacionPorcentaje") = value
         End Set
     End Property
-    Property GlobalDTPaqueterias() As DataTable
+    Property GlobalDTPaqueterias(CveEmpresa As Integer, Optional TipoPaquteria As Integer = -1) As DataTable
         Get
-            GlobalDTPaqueterias = DirectCast(Application("GlobalDTPaqueterias"), DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTPaqueterias-{0}", CveEmpresa)
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjGenerales As New ClsGenerales
+                If ObjGenerales.GetGralPaqueterias(CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados Else Application(AppNombre) = Nothing
+                ObjGenerales.Dispose()
+            End If
+
+            Dim Str As StringBuilder = New StringBuilder()
+            If TipoPaquteria <> -1 Then Str.AppendFormat("TipoPaqueteria = {0}", TipoPaquteria)
+
+            Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            GlobalDTPaqueterias = Dv.ToTable
+            Dv.Dispose()
+            Str.Clear()
         End Get
         Set(value As DataTable)
-            Application("GlobalDTPaqueterias") = value
+            Dim AppNombre As String = String.Format("GlobalDTPaqueterias-{0}", CveEmpresa)
+            Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTAcumTiposDefecto() As DataTable
@@ -7231,7 +7273,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))
@@ -7254,7 +7296,7 @@ Public Class ClsPaginas
 
                 If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
                     Dim ObjCuentasBancos As New ClsGenerales()
-                    If ObjCuentasBancos.GetCuentasDepositos(ObjOC.CveProveedor) Then
+                    If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=ObjOC.CveProveedor) Then
                         Dim CuentasActivas As DataTable = ObjCuentasBancos.DtResultados.FiltraParametros("EstatusTexto = 'Activo'")
                         Dim CuentasStr As New StringBuilder("")
                         For Each CuentasBancarios As DataRow In CuentasActivas.Rows

App_Code/ClsSisMail.vb

@@ -1,7 +1,22 @@
 Imports System.IO
 Imports Extensiones
 
-Public Class ClsSisMail
+Public Class ClsSisMail
+
+    Public Shared Function IsMailShared(ByVal Mail As String) As Boolean
+        Dim Resultado As Boolean = False
+        'cambio para que acepte multiples correos, separados por ;
+        Dim RegularExpression As String = "(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))+" '   "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}" & "\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\" & ".)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
+        Dim RegExp As New Regex(RegularExpression)
+
+        If RegExp.IsMatch(Mail) Then
+            Resultado = True
+        Else
+            Resultado = False
+        End If
+
+        Return Resultado
+    End Function
 
     Private Function IsMail(ByVal Mail As String) As Boolean
         Dim Resultado As Boolean = False

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_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: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: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_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: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: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_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: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: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_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: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: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_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: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: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_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: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: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_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: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: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_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: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: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_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: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: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_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: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: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_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: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: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" />
@@ -234,10 +234,11 @@
               <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="CveVenta" msprop:Generator_ColumnVarNameInTable="columnCveVenta" msprop:Generator_ColumnPropNameInRow="CveVenta" msprop:Generator_ColumnPropNameInTable="CveVentaColumn" msprop:Generator_UserColumnName="CveVenta" type="xs:short" minOccurs="0" />
               <xs:element name="PorcentajeIVA" msprop:Generator_ColumnVarNameInTable="columnPorcentajeIVA" msprop:Generator_ColumnPropNameInRow="PorcentajeIVA" msprop:Generator_ColumnPropNameInTable="PorcentajeIVAColumn" msprop:Generator_UserColumnName="PorcentajeIVA" type="xs:string" minOccurs="0" />
+              <xs:element name="RetIVAServicios" msprop:Generator_ColumnVarNameInTable="columnRetIVAServicios" msprop:Generator_ColumnPropNameInRow="RetIVAServicios" msprop:Generator_ColumnPropNameInTable="RetIVAServiciosColumn" msprop:Generator_UserColumnName="RetIVAServicios" type="xs:double" minOccurs="0" />
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <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: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: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" />
@@ -264,17 +265,16 @@
               <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:element name="PorcentajeIVA" msprop:Generator_ColumnVarNameInTable="columnPorcentajeIVA" msprop:Generator_ColumnPropNameInRow="PorcentajeIVA" msprop:Generator_ColumnPropNameInTable="PorcentajeIVAColumn" msprop:Generator_UserColumnName="PorcentajeIVA" type="xs:double" minOccurs="0" />
-              <xs:element name="SubTotal16" msprop:Generator_ColumnVarNameInTable="columnSubTotal16" msprop:Generator_ColumnPropNameInRow="SubTotal16" msprop:Generator_ColumnPropNameInTable="SubTotal16Column" msprop:Generator_UserColumnName="SubTotal16" type="xs:double" minOccurs="0" />
-              <xs:element name="SubTotal18" msprop:Generator_ColumnVarNameInTable="columnSubTotal18" msprop:Generator_ColumnPropNameInRow="SubTotal18" msprop:Generator_ColumnPropNameInTable="SubTotal18Column" msprop:Generator_UserColumnName="SubTotal18" type="xs:double" minOccurs="0" />
-              <xs:element name="valorActosImp0" msprop:Generator_ColumnVarNameInTable="columnvalorActosImp0" msprop:Generator_ColumnPropNameInRow="valorActosImp0" msprop:Generator_ColumnPropNameInTable="valorActosImp0Column" msprop:Generator_UserColumnName="valorActosImp0" type="xs:double" minOccurs="0" />
+              <xs:element name="RetIVAServicios" msprop:Generator_ColumnVarNameInTable="columnRetIVAServicios" msprop:Generator_ColumnPropNameInRow="RetIVAServicios" msprop:Generator_ColumnPropNameInTable="RetIVAServiciosColumn" msprop:Generator_UserColumnName="RetIVAServicios" type="xs:double" minOccurs="0" />
               <xs:element name="RFC" msprop:Generator_ColumnVarNameInTable="columnRFC" msprop:Generator_ColumnPropNameInRow="RFC" msprop:Generator_ColumnPropNameInTable="RFCColumn" msprop:Generator_UserColumnName="RFC" type="xs:string" minOccurs="0" />
               <xs:element name="valorActos1516" msprop:Generator_ColumnVarNameInTable="columnvalorActos1516" msprop:Generator_ColumnPropNameInRow="valorActos1516" msprop:Generator_ColumnPropNameInTable="valorActos1516Column" msprop:Generator_UserColumnName="valorActos1516" type="xs:double" minOccurs="0" />
-              <xs:element name="valorActosImp8" msprop:Generator_ColumnVarNameInTable="columnvalorActosImp8" msprop:Generator_ColumnPropNameInRow="valorActosImp8" msprop:Generator_ColumnPropNameInTable="valorActosImp8Column" msprop:Generator_UserColumnName="valorActosImp8" type="xs:string" minOccurs="0" />
+              <xs:element name="valorActosImp8" msprop:Generator_ColumnVarNameInTable="columnvalorActosImp8" msprop:Generator_ColumnPropNameInRow="valorActosImp8" msprop:Generator_ColumnPropNameInTable="valorActosImp8Column" msprop:Generator_UserColumnName="valorActosImp8" type="xs:double" minOccurs="0" />
+              <xs:element name="valorActosImp0" msprop:Generator_ColumnVarNameInTable="columnvalorActosImp0" msprop:Generator_ColumnPropNameInRow="valorActosImp0" msprop:Generator_ColumnPropNameInTable="valorActosImp0Column" msprop:Generator_UserColumnName="valorActosImp0" type="xs:double" minOccurs="0" />
+              <xs:element name="PorcentajeIVA" msprop:Generator_ColumnVarNameInTable="columnPorcentajeIVA" msprop:Generator_ColumnPropNameInRow="PorcentajeIVA" msprop:Generator_ColumnPropNameInTable="PorcentajeIVAColumn" msprop:Generator_UserColumnName="PorcentajeIVA" type="xs:double" minOccurs="0" />
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <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: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: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" />

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="136" 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="7" 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" />
@@ -13,11 +13,11 @@
     <Shape ID="DesignTable:LibroDiario" ZOrder="9" X="1227" Y="199" Height="352" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="348" />
     <Shape ID="DesignTable:RepBalanzaComprobacion" ZOrder="8" X="4" Y="17" Height="144" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
     <Shape ID="DesignTable:CatPS" ZOrder="7" X="280" Y="289" Height="219" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="215" />
-    <Shape ID="DesignTable:RepProveedorCxP" ZOrder="6" X="14" Y="179" Height="238" Width="170" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="234" />
+    <Shape ID="DesignTable:RepProveedorCxP" ZOrder="6" X="63" Y="251" Height="238" Width="170" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="234" />
     <Shape ID="DesignTable:ResumenNC" ZOrder="5" X="697" Y="496" Height="86" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="82" />
     <Shape ID="DesignTable:ProgramarRecursos" ZOrder="4" X="484" Y="563" Height="257" Width="206" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
     <Shape ID="DesignTable:RepIVA" ZOrder="3" X="315" Y="564" Height="257" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
-    <Shape ID="DesignTable:RepIVAAcreditable" ZOrder="2" X="89" Y="432" Height="391" Width="175" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="387" />
+    <Shape ID="DesignTable:RepIVAAcreditable" ZOrder="2" X="91" Y="567" Height="257" Width="175" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
     <Shape ID="DesignTable:DtVentaDetalle" ZOrder="1" X="280" Y="34" Height="219" Width="154" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="215" />
   </Shapes>
   <Connectors />

App_Code/Modelos.vb

@@ -2866,6 +2866,14 @@ Namespace Modelos
                                         'Se agrega movimiento separado por la cuenta de ventas (ER)
                                         For Each Row2 As DataRow In DT.Rows
                                             importeMovimiento = ((TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal) * ValorMultiplicador)
+
+                                            If ObjFactura.TipoDocto = "Egs" Then
+                                                importeMovimiento += (TmpDTDetalle.SUM("ImporteIVA", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
+                                                importeMovimiento += (TmpDTDetalle.SUM("ImporteIEPS", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
+                                                importeMovimiento -= (TmpDTDetalle.SUM("ImporteRetIVA", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
+                                                importeMovimiento -= (TmpDTDetalle.SUM("ImporteRetISR", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
+                                            End If
+
                                             importeMX = importeMovimiento * tipoCambio * Multiplicador
                                             FechaMovimiento = ObjFactura.FechaPago
                                             Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}"
@@ -2954,6 +2962,13 @@ Namespace Modelos
                                     CveSubProyectoContabilizar = CveSubProyectoVenta
                                     If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
 
+                                    If ObjFactura.TipoDocto = "Dev" Then
+                                        TipoMovimiento = True
+                                        ConceptoContable = 62
+                                        importeMovimiento = importeMovimiento * -1
+                                        importeMX = importeMX * -1
+                                    End If
+
                                     'Contabilidad ContPAQ
                                     If ObjFactura.Cliente.IdCtaContRetIVA > 0 Then
                                         IdCtaContable = ObjFactura.Cliente.IdCtaContRetIVA
@@ -2985,6 +3000,13 @@ Namespace Modelos
                                     CveSubProyectoContabilizar = CveSubProyectoVenta
                                     If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
 
+                                    If ObjFactura.TipoDocto = "Dev" Then
+                                        TipoMovimiento = True
+                                        ConceptoContable = 314
+                                        importeMovimiento = importeMovimiento * -1
+                                        importeMX = importeMX * -1
+                                    End If
+
                                     'OBTENER CUENTAS
                                     If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
                                         If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -3003,6 +3025,13 @@ Namespace Modelos
                                     CveSubProyectoContabilizar = CveSubProyectoVenta
                                     If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
 
+                                    If ObjFactura.TipoDocto = "Dev" Then
+                                        TipoMovimiento = True
+                                        ConceptoContable = 63
+                                        importeMovimiento = importeMovimiento * -1
+                                        importeMX = importeMX * -1
+                                    End If
+
                                     'Contabilidad ContPAQ
                                     If ObjFactura.Cliente.IdCtaContRetISR > 0 Then
                                         IdCtaContable = ObjFactura.Cliente.IdCtaContRetISR
@@ -3031,12 +3060,58 @@ Namespace Modelos
                                     importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2)
                                     FechaMovimiento = ObjFactura.FechaPago
                                     PorcentajeImpuesto = TmpDTDetalle.MAX("PorcentajeIVA").ToDecimal
-                                    IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
-                                    CveCuenta = UsuarioActual.Empresa.CveCuentaIVAxTrasladar
+
+                                    If ObjFactura.TipoDocto = "Dev" Then
+                                        TipoMovimiento = True
+                                        ConceptoContable = 61
+                                        importeMovimiento = importeMovimiento * -1
+                                        importeMX = importeMX * -1
+
+                                        IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
+                                        CveCuenta = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado)
+                                    Else
+                                        IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
+                                        CveCuenta = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar)
+                                    End If
+
                                     CveSubProyectoContabilizar = CveSubProyectoVenta
                                     If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                                 End If
 
+                                If ObjFactura.TipoDocto = "Egs" Then
+
+                                    importeMovimiento = ObjFactura.IVA * ValorMultiplicador
+                                    importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2)
+                                    FechaMovimiento = ObjFactura.FechaPago
+                                    PorcentajeImpuesto = TmpDTDetalle.MAX("PorcentajeIVA").ToDecimal
+
+                                    If importeMovimiento <> 0 Then
+                                        'IVA X TRASLADAR
+                                        IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
+                                        CveCuentaIVAxTrasladar = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar)
+                                        Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString())
+
+                                        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVAxTrasladar, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                            ErrorPrepoliza = True
+                                            Exit For
+                                        End If
+
+                                        'IVA PAGADO
+                                        IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
+                                        CveCuentaIVATrasladado = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado)
+                                        Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString())
+
+                                        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVATrasladado, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                            ErrorPrepoliza = True
+                                            Exit For
+                                        End If
+                                    End If
+
+
+                                    importeMovimiento = 0
+                                    importeMX = 0
+                                End If
+
 
                             Case 38 'IEPS por Trasladar
                                 If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
@@ -3044,13 +3119,51 @@ Namespace Modelos
                                     importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2)
                                     FechaMovimiento = ObjFactura.Fecha
                                     CveSubProyectoContabilizar = CveSubProyectoVenta
-                                    If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
-                                    If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
-                                        If ObjConta.DtResultados.Rows.Count > 0 Then
-                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero
-                                            CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladarSIG").ToString.ToEntero
+
+                                    If ObjFactura.TipoDocto = "Dev" Then
+                                        TipoMovimiento = True
+                                        ConceptoContable = 39
+                                        importeMovimiento = importeMovimiento * -1
+                                        importeMX = importeMX * -1
+
+                                        If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
+                                            If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSTrasladado").ToString().ToEntero()
+                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSTrasladadoSIG").ToString().ToEntero()
+                                            End If
+                                        End If
+                                    Else
+                                        If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
+                                            If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString().ToEntero()
+                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladarSIG").ToString().ToEntero()
+                                            End If
                                         End If
                                     End If
+
+                                    If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+
+                                    If importeMovimiento <> 0 AndAlso ObjFactura.TipoDocto = "Egs" Then
+                                        'IEPS X TRASLADAR
+                                        Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString())
+                                        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                            ErrorPrepoliza = True
+                                            Exit For
+                                        End If
+
+                                        'IEPS PAGADO
+                                        Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString())
+                                        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                            ErrorPrepoliza = True
+                                            Exit For
+                                        End If
+
+                                        importeMovimiento = 0
+                                        importeMX = 0
+                                    End If
+
+                                    If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+
                                 End If
 
 
@@ -4120,6 +4233,15 @@ Namespace Modelos
                 Return Retorno
             End If
 
+            'VALIDACION DE PEDIDOS: SI ESTA ENTEGADO NO SE PUEDA CANCELAR
+            If UsuarioActual.CveEmpresa = 72 AndAlso ObjFactura.TipoDocto = "Ped" AndAlso TieneAlmacen AndAlso ObjFactura.SaldoAlmacen <> 0 Then
+                Retorno.Mensaje = "El pedido no se puede cancelar debido ha que ya fue entregado."
+                Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
+
+                Return Retorno
+            End If
+
+
             Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion)
 
             Dim CancelacionFecha As Date

Bancos/IE.aspx

@@ -385,12 +385,21 @@
                                         </div>
                                     </div>
                                     <div class="row" id="TrReferenciaCIE" runat="server" visible="False">
+                                        
                                         <label class="col-md-2 control-label">Referencia:</label>
-                                        <div class="col-md-10">
-                                            <asp:TextBox ID="TxtReferenciaCIE" Text="" runat="server" CssClass="form-control input-sm" Width="400px" />
+                                        <div class="col-md-4">
+                                            <asp:TextBox ID="TxtReferenciaCIE" Text="" runat="server" CssClass="form-control input-sm" Width="200px" MaxLength="20" />
                                             <asp:RequiredFieldValidator ID="RFVReferenciaCIE" runat="server" ControlToValidate="TxtReferenciaCIE" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                             <ajax:ValidatorCalloutExtender ID="VCEReferenciaCIE" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>
                                         </div>
+
+                                    <label class="col-md-2 control-label">Concepto:</label>
+                                    <div class="col-md-4">
+                                        <asp:TextBox ID="TxtConceptoCIE" Text="" runat="server" CssClass="form-control input-sm" Width="200px" MaxLength="30" />
+                                        <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="TxtReferenciaCIE" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>--%>
+                                    </div>
+
                                     </div>
                                 </ContentTemplate>
                             </asp:UpdatePanel>

Bancos/IE.aspx.vb

@@ -436,6 +436,14 @@ Partial Class Bancos_IE
         End Set
 
     End Property
+    Private Property CveCorte As Integer
+        Get
+            Return IfNull(ViewState("CveCorte"), -1, ViewState("CveCorte").ToString().ToString()).ToString().ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveCorte") = value
+        End Set
+    End Property
 
 
 #Region "CANCELACIÓN COMPLEMENTO MODAL V2"
@@ -496,6 +504,39 @@ Partial Class Bancos_IE
 #End Region
 
 
+#Region " R E F E R E N C I A C O N C E P T O  O R I G I N A L E S"
+
+
+    Private Property OriReferenciaCIE As String
+        Get
+            If ViewState("OriReferenciaCIE") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("OriReferenciaCIE").ToString
+            End If
+
+
+        End Get
+        Set(value As String)
+            ViewState("OriReferenciaCIE") = value
+        End Set
+    End Property
+
+    Private Property OriConceptoCIE As String
+        Get
+            If ViewState("OriConceptoCIE") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("OriConceptoCIE").ToString
+            End If
+
+        End Get
+        Set(value As String)
+            ViewState("OriConceptoCIE") = value
+        End Set
+    End Property
+
+#End Region
 
 
 #End Region
@@ -573,6 +614,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
 
@@ -1146,6 +1188,16 @@ Partial Class Bancos_IE
         GvRH.DataBind()
         UpGvRH.Update()
     End Sub
+    Private Sub CargaCorteCaja()
+        'Checar si hay un Turno Abierto
+        Dim ObjPVenta As New ClsPuntoVenta
+        If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
+            If ObjPVenta.DtResultados.Rows.Count > 0 Then
+                CveCorte = ObjPVenta.CveCorte
+            End If
+        End If
+        ObjPVenta.Dispose()
+    End Sub
 
 #Region "   CARGA PROVEEDOR   "
     Protected Sub DdlProveedores_selectedindexchange(sender As Object, e As EventArgs)
@@ -1425,6 +1477,11 @@ Partial Class Bancos_IE
                     DivCheques.Visible = False
                 End If
 
+            End If
+
+            'PAGAR NC CON C.CH DEBE DESCONTAR EN EL CORTE 
+            If UsuarioActual.TienePermisoProceso(160) AndAlso Opcion IsNot Nothing AndAlso Opcion = "DevDinV" AndAlso dr("CveTipoCuenta").ToString.ToEntero = 1 Then
+                CargaCorteCaja()
             End If
 
             If dr("UsaTarjeta").ToString = "True" Then
@@ -2470,10 +2527,29 @@ Partial Class Bancos_IE
 
 
                 CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero,
-                                           TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1))
+                                           TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                           CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1),
+                                           ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte)
 
                 If CveIE > 0 Then
 
+
+
+                    If DdlCuentaDeposito.SelectedValue.ToEntero > 0 And DdlTipoTransaccion.SelectedValue = "17" Then
+
+                        If TxtReferenciaCIE.Text <> OriReferenciaCIE Or TxtConceptoCIE.Text <> OriConceptoCIE Then
+
+                            Dim ObjGrales As New ClsGenerales(ObjIE.IniciaTransacSQL)
+
+                            If Not ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(DdlCuentaDeposito.SelectedValue.ToEntero, -1, -1, "-1", TxtReferenciaCIE.Text.Trim, TxtConceptoCIE.Text.Trim) Then
+
+                                MsgError = "Error al actualziar Cuanta  Referencia y Concepto Deposito."
+                            End If
+
+                        End If
+
+                    End If
+
                     If DdlTipoTransaccion.SelectedValue = "1" AndAlso UsuarioActual.CveEmpresa <> 119 Then FolioFijo = ObjIE.Folio.ToEntero 'cheque
                     CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa))
 
@@ -4642,7 +4718,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'")
 
@@ -4652,8 +4728,8 @@ Partial Class Bancos_IE
                 Else
                     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
+                DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
+            ElseIf DdlTipoTransaccion.SelectedValue = "17" And CveIE <= -1 Then
 
 
                 If Dep.DtResultados.Rows.Count > 0 Then
@@ -4669,7 +4745,7 @@ Partial Class Bancos_IE
                     BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
 
                 End If
-
+                DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
 
                 UpGuardar.Update()
 
@@ -4685,7 +4761,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)
@@ -4742,24 +4818,66 @@ Partial Class Bancos_IE
         If CveProveedor > 0 Then
             Dim ObjCuentasBancos As New ClsGenerales
 
-            If ObjCuentasBancos.GetCuentasDepositos() Then
+            If ObjCuentasBancos.GetCuentasDepositos(CveEmpresa:=UsuarioActual.CveEmpresa) Then
                 GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
             End If
             ObjCuentasBancos.Dispose()
         End If
     End Sub
     Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)
+
         Dim Dep As New ClsGenerales
-        If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then
-            If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then
-                TrReferenciaCIE.Visible = True
-                TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString
+
+        If DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then
+
+            If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then
+
+
+                If Dep.DtResultados.Rows.Count > 0 Then
+
+                    If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then
+                        TrReferenciaCIE.Visible = True
+
+                        TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString
+                        TxtConceptoCIE.Text = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString
+
+                        OriReferenciaCIE = Dep.DtResultados.Rows(0)("Referencia").ToString
+                        OriConceptoCIE = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString
+
+
+                    Else
+                        TrReferenciaCIE.Visible = False
+                    End If
+
+
+
+                    If Boolean.Parse(Dep.DtResultados.Rows(0)("EstatusPagoElectronicoGrupos").ToString) AndAlso Dep.DtResultados.Rows(0)("CveSATBanco").ToString.ToEntero <= 0 Then
+                        Alert("Es necesario establecer el banco de la cuenta deposito", TipoMensaje.MsgAdvertencia)
+                        BtnGuardar.Enabled = False
+                    Else
+                        BtnGuardar.Enabled = True
+                    End If
+
+                Else
+                    TrReferenciaCIE.Visible = False
+                End If
+
             Else
                 TrReferenciaCIE.Visible = False
             End If
+
+
+        Else
+            TrReferenciaCIE.Visible = False
         End If
+
+
+
         Dep.Dispose()
         UpCuentaDeposito.Update()
+        UpGuardar.Update()
+
+
     End Sub
 #End Region
 

Bancos/MovimientosBancarios.aspx.vb

@@ -151,7 +151,7 @@ Partial Class Bancos_MovimientosBancarios
             If GvProveedores.Rows(i).FCCheckBox("CheckAgregar").Checked = True Then
                 DTProveedorActual = DTProveedores.FiltraParametros(String.Format("CveProveedor = {0}", GvProveedores.Rows(i).DataKey("CveProveedor")))
 
-                If ObjCuentasBancos.GetCuentasDepositos(21109) Then
+                If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=21109) Then
                     DTProveedorBancos = ObjCuentasBancos.DtResultados
                     RowBanco = DTProveedorBancos.Rows(0)
                 Else
@@ -319,7 +319,7 @@ Partial Class Bancos_MovimientosBancarios
 
         DTProveedorActual = DTProveedores.FiltraParametros(String.Format("CveProveedor = 21114"))
 
-        If ObjCuentasBancos.GetCuentasDepositos(21114) Then
+        If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=21114) Then
             DTProveedorBancos = ObjCuentasBancos.DtResultados
             RowBanco = DTProveedorBancos.Rows(0)
         Else

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
 

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>

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,54 +1190,67 @@ 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
 
 
         For Each drow As DataRow In DTPendientesTemp.Rows
-
+            EsCIE = False
 
             MENSAJEError.Clear()
 
             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))
@@ -1131,7 +1355,7 @@ Partial Class Bancos_PagoElectronicoGrupos
                     RegistrosPago.Append(drow("CveBanco").ToString.Trim)
                 Else
                     ErrorLayout = True
-                    MENSAJEError.AppendLine("Error tamaño clave banco")
+                    MENSAJEError.AppendLine("Es necesario establecer el banco de la cuenta deposito.")
                 End If
 
                 'Motivo de pago
@@ -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
@@ -2783,10 +2996,6 @@ Partial Class Bancos_PagoElectronicoGrupos
         If Comprobante <> "-1" And Not ErrorProceso Then
 
             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)
                 End If
@@ -2797,22 +3006,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 +3248,6 @@ Partial Class Bancos_PagoElectronicoGrupos
     End Sub
 
 
-
-
-
-
-
-
     Protected Sub LnkDescarga_Click(sender As Object, e As EventArgs)
 
         Dim FileName As String = NombreArchivo
@@ -3058,8 +3271,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 +3280,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 +3299,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,56 +3330,63 @@ 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))
+        Try
+            Dim Mail As New ClsSisMail()
+            Para = If(Para IsNot Nothing, Para, "")
+            Asunto = If(Asunto IsNot Nothing, Asunto, "")
+            Body = If(Body IsNot Nothing, Body, "")
 
-        Dim Mail As New ClsSisMail()
-        Para = If(Para IsNot Nothing, Para, "")
-        Asunto = If(Asunto IsNot Nothing, Asunto, "")
-        Body = If(Body IsNot Nothing, Body, "")
+            Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
+            If Comprobante IsNot Nothing AndAlso Comprobante <> "" Then
+                ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Comprobante})
+            End If
 
-        Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
-        If Comprobante IsNot Nothing AndAlso Comprobante <> "" Then
-            ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Comprobante})
-        End If
+            If File IsNot Nothing Then
+                ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoCuentaCxP.pdf"})
+            End If
 
-        If File IsNot Nothing Then
-            ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoCuentaCxP.pdf"})
-        End If
+            Dim separador As Char() = {";"c, ","c}
+            Dim strArray As String() = Para.Split(separador)
+
+            Para = ""
+
+            For Each sCorreo As String In strArray
+                If ClsSisMail.IsMailShared(sCorreo) And sCorreo.Trim.Length > 0 Then
+                    Para = $"{Para}{sCorreo};"
+                End If
+            Next
+
+            Para = Para.Substring(0, Para.Length - 1)
+
+            If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos, Displayname:=$"SIG Notificaciones: Pago de {UsuarioActual.Empresa.Empresa}") Then
+                Dim objIE As New ClsBancos
+                objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE)
+                objIE.Dispose()
+            End If
+        Catch ex As Exception
+            OnError("Ocurrio un error al enviar el correo", ex)
+        End Try
 
-        If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos) Then
-            Dim objIE As New ClsBancos
-            objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE)
-            objIE.Dispose()
-        End If
     End Sub
 
 
+
+
+
     Private Function GeneraCorreo(CveIE As Integer) As String
 
         Dim strBody As New StringBuilder
@@ -3242,17 +3467,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 +3599,6 @@ Partial Class Bancos_PagoElectronicoGrupos
     End Function
 
 
+
+
 End Class

Bancos/PopIECompras.aspx

@@ -156,19 +156,36 @@
                                                             <asp:Label ID="LblCuentaDeposito" runat="server" Text="Cuenta Depósito"></asp:Label>:
                                                         </div>
                                                         <div class="col-xs-8">
-                                                            <asp:DropDownList ID="DdlCuentaDeposito" AutoPostBack="true" runat="server" DataTextField="CuentaDeposito" DataValueField="CveCuentaDeposito" CssClass="form-control input-sm select2me" Width="100%" AppendDataBoundItems="True"></asp:DropDownList>
+                                                            <asp:DropDownList ID="DdlCuentaDeposito" AutoPostBack="true" runat="server" DataTextField="CuentaDeposito" DataValueField="CveCuentaDeposito" CssClass="form-control input-sm select2me" Width="100%" AppendDataBoundItems="True" OnSelectedIndexChanged="DdlCuentaDeposito_SelectedIndexChanged" ></asp:DropDownList>
                                                             <asp:RequiredFieldValidator ID="RFVCuentaDeposito" runat="server" ControlToValidate="DdlCuentaDeposito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta de Depósito''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                             <ajax:ValidatorCalloutExtender ID="VCECuentaDeposito" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuentaDeposito" Width="300px"></ajax:ValidatorCalloutExtender>
                                                         </div>
                                                     </div>
 
                                                     <div class="row" id="TrReferenciaCIE" runat="server" visible="false">
-                                                        <label class="col-xs-4 control-label">Referencia:</label>
-                                                        <div class="col-xs-8">
-                                                            <asp:TextBox ID="TxtReferenciaCIE" Text="" runat="server" Width="100%" />
+                                                        <div class="row">
+                                                            <label class="col-xs-2 control-label">Referencia:</label>
+                                                        <div class="col-xs-4">
+                                                            <asp:TextBox ID="TxtReferenciaCIE" Text="" runat="server"  CssClass="form-control input-sm" Width="200px" MaxLength="20" />
                                                             <asp:RequiredFieldValidator ID="RFVReferenciaCIE" runat="server" ControlToValidate="TxtReferenciaCIE" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                            <ajax:ValidatorCalloutExtender ID="VCEReferenciaCIE" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                            <ajax:ValidatorCalloutExtender ID="VCEReferenciaCIE" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="200px"></ajax:ValidatorCalloutExtender>
+                                                        </div>
                                                         </div>
+                                                        
+                                                        
+
+                                                        <div class="row">
+                                                            <label class="col-xs-2 control-label">Concepto:</label>
+                                                        <div class="col-xs-4">
+                                                            <asp:TextBox ID="TxtConceptoCIE" Text="" runat="server" CssClass="form-control input-sm" Width="200px" MaxLength="30" />
+                                                            <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="TxtReferenciaCIE" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>--%>
+                                                        </div>
+                                                        </div>
+                                                        
+
+
+
                                                     </div>
                                                 </ContentTemplate>
                                             </asp:UpdatePanel>

Bancos/PopIECompras.aspx.vb

@@ -377,7 +377,11 @@ Partial Class Bancos_PopIECompras
 
     Private Property CveCuentaCliente As Integer
         Get
-            Return ViewState("CveCuentaCliente").ToString.ToEntero
+            If ViewState("CveCuentaCliente") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveCuentaCliente").ToString.ToEntero
+            End If
         End Get
         Set(value As Integer)
             ViewState("CveCuentaCliente") = value
@@ -402,10 +406,39 @@ Partial Class Bancos_PopIECompras
         Get
             Return ViewState("CveCuentaMonedaExtranjeraCliente").ToString.ToEntero
         End Get
-    End Property
-
+    End Property
+
+    Private Property OriReferenciaCIE As String
+        Get
+            If ViewState("OriReferenciaCIE") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("OriReferenciaCIE").ToString
+            End If
+
+
+        End Get
+        Set(value As String)
+            ViewState("OriReferenciaCIE") = value
+        End Set
+    End Property
+
+    Private Property OriConceptoCIE As String
+        Get
+            If ViewState("OriConceptoCIE") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("OriConceptoCIE").ToString
+            End If
+
+        End Get
+        Set(value As String)
+            ViewState("OriConceptoCIE") = value
+        End Set
+    End Property
+
 #End Region
-
+
     Private Sub Bancos_PopIECompras_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
@@ -926,7 +959,7 @@ Partial Class Bancos_PopIECompras
 
     Private Sub CargaCuentasDepositos()
         DdlCuentaDeposito.Items.Clear()
-        If DdlTipoTransaccion.SelectedValue.Contiene("2", "9") Then ' transferencias y layout
+        If DdlTipoTransaccion.SelectedValue.Contiene("2", "9", "17") Then ' transferencias y layout
             trCuentaDeposito.Visible = False
 
 
@@ -944,7 +977,7 @@ Partial Class Bancos_PopIECompras
                         BtnGuardar.Enabled = False
                         Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
                     End If
-
+                    DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                 ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
 
 
@@ -960,9 +993,9 @@ Partial Class Bancos_PopIECompras
                     End If
 
 
-                    UpGuardar.Update()
-
-
+                    UpGuardar.Update()
+
+                    DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                 Else
                     DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'")
                     If Dep.DtResultados.Rows.Count > 0 Then
@@ -992,9 +1025,11 @@ Partial Class Bancos_PopIECompras
         Else
             trCuentaDeposito.Visible = False
             DdlCuentaDeposito.Items.Clear()
+            'TrReferenciaCIE.Visible = False
         End If
         'RecargaGlobalCuentasBancarias()
-        UpCuentaDeposito.Update()
+        UpCuentaDeposito.Update()
+
     End Sub
 #End Region
 
@@ -1452,7 +1487,7 @@ Partial Class Bancos_PopIECompras
 
                             Select Case RBLContado.SelectedValue
                                 Case "1" ' Banco
-                                    CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"))
+                                    CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"))
                                     If CveIE > 0 Then
                                         CveConcepto = 17
                                     Else
@@ -2371,6 +2406,7 @@ Partial Class Bancos_PopIECompras
                                             End If
 
                                         Case 19 'Iva Acreditable
+
                                             If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
                                                 'funcionalidad que toma el 100% del pago para acreditamiento de iva
                                                 Dim TotalImporte As Decimal
@@ -3408,7 +3444,54 @@ Partial Class Bancos_PopIECompras
         End If
 
 
-    End Sub
+    End Sub
 #End Region
-
+
+
+
+    Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        Dim Dep As New ClsGenerales
+
+        If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then
+
+            If Dep.DtResultados.Rows.Count > 0 Then
+
+                If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then
+
+                    TrReferenciaCIE.Visible = True
+
+                    TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString
+                    TxtConceptoCIE.Text = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString
+
+                    OriReferenciaCIE = Dep.DtResultados.Rows(0)("Referencia").ToString
+                    OriConceptoCIE = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString
+
+                Else
+                    TrReferenciaCIE.Visible = False
+                End If
+
+
+                If Boolean.Parse(Dep.DtResultados.Rows(0)("EstatusPagoElectronicoGrupos").ToString) = True AndAlso Dep.DtResultados.Rows(0)("CveSATBanco").ToString.ToEntero <= 0 Then
+
+                    Alert("Es necesario establecer el banco de la cuenta deposito", TipoMensaje.MsgAdvertencia)
+                    BtnGuardar.Enabled = False
+
+                Else
+                    BtnGuardar.Enabled = True
+                End If
+
+            Else
+                TrReferenciaCIE.Visible = False
+            End If
+
+        Else
+            TrReferenciaCIE.Visible = False
+        End If
+
+        Dep.Dispose()
+        UpCuentaDeposito.Update()
+        UpGuardar.Update()
+    End Sub
+
 End Class

Bancos/ProveedoresAbonar.aspx

@@ -191,11 +191,17 @@
                                 </div>
                                 <div class="row" id="TrReferenciaCIE" runat="server" visible="False">
                                     <label class="col-md-2 control-label">Referencia:</label>
-                                    <div class="col-md-10">
-                                        <asp:TextBox ID="TxtReferenciaCIE" Text="" runat="server" CssClass="form-control input-sm" Width="400px" />
+                                    <div class="col-md-4">
+                                        <asp:TextBox ID="TxtReferenciaCIE" Text="" runat="server" CssClass="form-control input-sm" MaxLength="20" Width="200px" />
                                         <asp:RequiredFieldValidator ID="RFVReferenciaCIE" runat="server" ControlToValidate="TxtReferenciaCIE" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                         <ajax:ValidatorCalloutExtender ID="VCEReferenciaCIE" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>
                                     </div>
+                                    <label class="col-md-2 control-label">Concepto:</label>
+                                    <div class="col-md-4">
+                                        <asp:TextBox ID="TxtConceptoCIE" Text="" runat="server" CssClass="form-control input-sm" Width="200px" MaxLength="30" />
+                                        <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtReferenciaCIE" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>--%>
+                                    </div>
                                 </div>
                             </ContentTemplate>
                         </asp:UpdatePanel>

Bancos/ProveedoresAbonar.aspx.vb

@@ -283,6 +283,7 @@ Partial Class Bancos_ProveedoresAbonar
             ViewState("CodigoProgramacion") = value
         End Set
     End Property
+
     Private Property DtDatos As DataTable
         Get
             Return DirectCast(ViewState("DtDatos"), DataTable)
@@ -293,6 +294,37 @@ Partial Class Bancos_ProveedoresAbonar
     End Property
 
 
+    Private Property OriReferenciaCIE As String
+        Get
+            If ViewState("OriReferenciaCIE") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("OriReferenciaCIE").ToString
+            End If
+
+
+        End Get
+        Set(value As String)
+            ViewState("OriReferenciaCIE") = value
+        End Set
+    End Property
+
+    Private Property OriConceptoCIE As String
+        Get
+            If ViewState("OriConceptoCIE") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("OriConceptoCIE").ToString
+            End If
+
+        End Get
+        Set(value As String)
+            ViewState("OriConceptoCIE") = value
+        End Set
+    End Property
+
+
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -835,12 +867,29 @@ Partial Class Bancos_ProveedoresAbonar
                     End If
                 End If
 
-                Dim CveIE As Integer = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1))
+                Dim CveIE As Integer = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), ConceptoCIE:=TxtConceptoCIE.Text)
 
                 If CveIE > 0 Then
 
+
                     ComprobanteIE = $"{CveIE}.{Comprobante}"
 
+
+                    If DdlCuentaDeposito.SelectedValue.ToEntero > 0 And DdlTipoTransaccion.SelectedValue = "17" Then
+
+                        If TxtReferenciaCIE.Text <> OriReferenciaCIE Or TxtConceptoCIE.Text <> OriConceptoCIE Then
+
+                            Dim ObjGrales As New ClsGenerales(ObjIE.IniciaTransacSQL)
+
+                            If Not ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(DdlCuentaDeposito.SelectedValue.ToEntero, -1, -1, "-1", TxtReferenciaCIE.Text.Trim, TxtConceptoCIE.Text.Trim) Then
+
+                                MsgError = "Error al actualziar Cuanta  Referencia y Concepto Deposito."
+                            End If
+
+                        End If
+
+                    End If
+
                     'guardo el archivo  
                     If filemove <> "" Then
                         filemove.FilesMove(CveIE.ToString, String.Format("Empresas\{0}\IE", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta))
@@ -1804,7 +1853,7 @@ Partial Class Bancos_ProveedoresAbonar
                                                         'CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
                                                         'Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompraValuacion)
                                                         'TipoCambioGeneral = TCImpuestos
-                                                        ''' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra
+                                                        '''' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra
                                                         'If TipoCambioPago < tipoCambioCompra AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
                                                         '    ImporteMovimiento = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * TipoCambioPago) - (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * tipoCambioCompra) 'Añadimos la diferencia de ganancia en la venta
                                                         '    ImporteMovimiento -= (IVA * TCImpuestos) - (IVA * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el IVA
@@ -2508,6 +2557,7 @@ Partial Class Bancos_ProveedoresAbonar
 
                     If Dep.DtResultados.Rows.Count > 0 Then
                         DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'")
+                        DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                     End If
 
                     If Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then
@@ -2522,7 +2572,10 @@ Partial Class Bancos_ProveedoresAbonar
 
 
                     If Dep.DtResultados.Rows.Count > 0 Then
+
                         DdlCuentaDeposito.DataSource = Dep.DtResultados
+                        DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
+
                         trCuentaDeposito.Visible = True
                         BtnIEGuardar.ToolTip = ""
                     Else
@@ -2546,9 +2599,9 @@ Partial Class Bancos_ProveedoresAbonar
                 DdlCuentaDeposito.DataBind()
 
 
-                If DdlCuentaDeposito.Items.Count > 1 Then
-                    DdlCuentaDeposito.SelectedIndex = 1
-                End If
+                'If DdlCuentaDeposito.Items.Count > 1 Then
+                '    DdlCuentaDeposito.SelectedIndex = 1
+                'End If
 
 
             Else
@@ -2607,18 +2660,50 @@ Partial Class Bancos_ProveedoresAbonar
         'cuando es transferencia bancaria, debe de solicitar a que cuenta se va a depositar
         CargaCuentasDepositos()
     End Sub
+
     Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)
+
         Dim Dep As New ClsGenerales
+
         If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then
-            If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then
-                TrReferenciaCIE.Visible = True
-                TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString
+
+            If Dep.DtResultados.Rows.Count > 0 Then
+
+                If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then
+
+                    TrReferenciaCIE.Visible = True
+
+                    TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString
+                    TxtConceptoCIE.Text = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString
+
+                    OriReferenciaCIE = Dep.DtResultados.Rows(0)("Referencia").ToString
+                    OriConceptoCIE = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString
+
+                Else
+                    TrReferenciaCIE.Visible = False
+                End If
+
+
+                If Boolean.Parse(Dep.DtResultados.Rows(0)("EstatusPagoElectronicoGrupos").ToString) = True AndAlso Dep.DtResultados.Rows(0)("CveSATBanco").ToString.ToEntero <= 0 Then
+
+                    Alert("Es necesario establecer el banco de la cuenta deposito", TipoMensaje.MsgAdvertencia)
+                    BtnIEGuardar.Enabled = False
+
+                Else
+                    BtnIEGuardar.Enabled = True
+                End If
+
             Else
                 TrReferenciaCIE.Visible = False
             End If
+
+        Else
+            TrReferenciaCIE.Visible = False
         End If
+
         Dep.Dispose()
         UpCuentaDeposito.Update()
+        UpGuardar.Update()
     End Sub
 #End Region
 

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

Compras/PopUpVerFactura.aspx.vb

@@ -472,6 +472,13 @@ Partial Class PopUpVerFactura
             End If
         End If
 
+        'IMPRIME ENTREGAS POR REALIZAR
+        If UrlParametros("OP").ToString = "ENTREGAS" Then
+            If UrlParametros("CVEASIGNACIONENTREGA") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then
+                ImprimeEntregasPorRealizar(UrlParametros("CVEASIGNACIONENTREGA").ToString.ToLong, UrlParametros("USUARIOENTREGA").ToString)
+            End If
+        End If
+
     End Sub
 
     Private Function Parametros(Cadena As String) As Hashtable
@@ -502,9 +509,11 @@ Partial Class PopUpVerFactura
         End If
         If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, UsuarioActual.CveEmpresa) Then
             DtCortesVentas = ObjPuntoVenta.DtResultados
-            If ObjPuntoVenta.DtResultados.Rows.Count > 0 Then
-                Fecha = ObjPuntoVenta.DtResultados.Rows(0)("FechaInicial").ToString
-                Nombre = ObjPuntoVenta.DtResultados.Rows(0)("Nombre").ToString
+            If DtCortesVentas.Rows.Count > 0 Then
+                Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0")
+
+                Fecha = RowInfo("FechaInicial").ToString
+                Nombre = RowInfo("Nombre").ToString
             End If
         End If
         ObjVenta.Dispose()
@@ -2673,9 +2682,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
 
@@ -3975,7 +3985,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
                     params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
                     params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
-                    params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString))
+                    params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
                     params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
                     params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
 
@@ -4159,7 +4169,29 @@ Partial Class PopUpVerFactura
         Else
             RegistraScript("alert('No hay un formato de factura predefinido,favor de comunicar a soporte tecnico')")
         End If
-    End Sub
+    End Sub
 #End Region
-
+
+#Region "OP = ENTREGAS - Entregas por realizar"
+    Public Sub ImprimeEntregasPorRealizar(CveAsignacionEntrega As Long, pUsuarioEntregar As String)
+        Dim Correcto As Boolean = False
+        Dim DtPaqueteriasGuias As DataTable = Nothing
+        Dim ObjGeneral As New ClsGenerales
+        If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveAsignacionEntrega) Then
+            DtPaqueteriasGuias = ObjGeneral.DtResultados
+            Correcto = True
+        End If
+        ObjGeneral.Dispose()
+        If Correcto Then
+            Dim RepParams As New List(Of ReportParameter)
+            RepParams.Add(New ReportParameter("Fecha", DateTime.Today.ToString()))
+            RepParams.Add(New ReportParameter("AsignadoA", pUsuarioEntregar))
+            RepParams.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+
+            ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios")
+        End If
+
+    End Sub
+#End Region
+
 End Class

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>

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")

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

Contabilidad/CatPeriodosBloqueo.aspx.vb

@@ -122,7 +122,7 @@ Partial Class Contabilidad_CatPeriodosBloqueo
 
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarPeriodosBloqueo"), "jsHideModalPeriodosBloqueo")
                 UpGral.Update()
-
+                Ejercicio = -1
                 Alert("Bloqueo Agregado Correctamente", TipoMensaje.MsgInformacion)
             Else
                 Alert("Ocurrió un error al guardar el Periodo de Bloqueo", TipoMensaje.MsgError)
@@ -138,15 +138,14 @@ Partial Class Contabilidad_CatPeriodosBloqueo
 
                 UpGral.Update()
                 Alert("Bloqueo Actualizado Correctamente", TipoMensaje.MsgInformacion)
+                Ejercicio = -1
+                Actualizar = False
             Else
                 Dim mensajeAlerta As String = AplicarBloqueso.Replace(";", Environment.NewLine)
                 Alert(String.Format("No se puede bloquear el periodo por: <br/>{0} ", mensajeAlerta), TipoMensaje.MsgError)
             End If
         End If
 
-        Ejercicio = -1
-        Actualizar = False
-
         ObjConta.Dispose()
 
     End Sub

Contabilidad/RepIVA.aspx

@@ -123,6 +123,7 @@
                     <asp:BoundField HeaderText="%IVA" DataField="PorcentajeIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="IEPS" DataField="IEPS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="RetIVA" DataField="RetIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="RetIVA Serv" DataField="RetIVAServicios" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="RetISR" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />  
                     <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />                  
  
@@ -196,6 +197,7 @@
                     <asp:BoundField HeaderText="RetIVA <br/> Fletes P.F" HtmlEncode="False" DataField="RetIVAFletePF" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="RetIVA <br/> Fletes P.M." HtmlEncode="False" DataField="RetIVAFletePM" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="RetIVA <br/> Arrenda." HtmlEncode="False" DataField="RetIVAArrend" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="RetIVA <br/> Serv." HtmlEncode="False" DataField="RetIVAServicios" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                    
                     <asp:BoundField HeaderText="RetISR <br/> Honorario" HtmlEncode="False" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="RetISR <br/> Arrendamiento" HtmlEncode="False" DataField="RetISRArrend" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />

General/PopUpPaqueteriasGuias.aspx

@@ -30,7 +30,7 @@
         <ContentTemplate>
             <table class="Widthall">
                 <tr>
-                    <td class="Titulos"><%--Guías Vinculadas--%> Entrega Local</td>
+                    <td class="Titulos"><%--Guías Vinculadas--%> Entrega Externa</td>
                 </tr>
                 <tr>
                     <td>
@@ -114,10 +114,11 @@
                     <td>
                         <asp:DropDownList ID="DdlEstatus" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px">
                             <%-- <asp:ListItem Selected="False" Text="Seleccione" Value="-1"></asp:ListItem>--%>
-                            <asp:ListItem Selected="True" Text="En Proceso" Value="1"></asp:ListItem>
-                            <asp:ListItem Selected="False" Text="Confirmado por Proveedor" Value="2"></asp:ListItem>
+                            <asp:ListItem Selected="True" Text="Pendiente" Value="1"></asp:ListItem>
+                            <asp:ListItem Selected="False" Text="En Proceso" Value="2"></asp:ListItem>
                             <asp:ListItem Selected="False" Text="Entregado" Value="3"></asp:ListItem>
-                            <asp:ListItem Selected="False" Text="Confirmado por Cliente" Value="4"></asp:ListItem>
+                            <asp:ListItem Selected="False" Text="Reasignar Nueva Entrega" Value="4"></asp:ListItem>
+                            <asp:ListItem Selected="False" Text="Directo a Clientes" Value="5"></asp:ListItem>
                         </asp:DropDownList>
                         <%-- <asp:RequiredFieldValidator ID="RFVDdlEstatus" runat="server" ControlToValidate="DdlEstatus" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estatus''</b> es necesario." InitialValue="-1" ValidationGroup="GrpCrearGuia"></asp:RequiredFieldValidator>
                         <ajax:ValidatorCalloutExtender ID="VCEDdlEstatus" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlEstatus" Width="250px"></ajax:ValidatorCalloutExtender>--%>
@@ -200,8 +201,8 @@
 
                 </tr>
 
-                <tr runat="server" id="TrTipo" align="left" visible ="false">
-                    <td class="text-right" align="left" valign="top" style="width: 140px; padding-top: 4px;"><b>Tipo:</b></td>
+                <tr runat="server" id="TrTipo" align="left" visible="false">
+                    <td class="text-right" align="left" valign="top" style="width: 140px; padding-top: 4px;"><b>Documento:</b></td>
                     <td align="left" valign="top" style="width: 200px;">
                         <asp:DropDownList ID="DdlPaqueteriaGuiaTipo" runat="server" AppendDataBoundItems="true" DataTextField="PaqueteriaGuiaTipo" DataValueField="CvePaqueteriaGuiaTipo" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px"></asp:DropDownList>
                     </td>

General/PopUpPaqueteriasGuias.aspx.cs

@@ -7,6 +7,7 @@ using System.Web.UI.WebControls;
 using Extensiones;
 using System.Data;
 using System.Text;
+using Microsoft.Reporting.WebForms;
 
 public partial class General_PopUpPaqueteriasGuias : ClsPaginas
 {
@@ -255,7 +256,7 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
     protected void CargaPaqueterias()
     {
         DdlPaqueterias.Items.Clear();
-        DdlPaqueterias.DataSource = GlobalDTPaqueterias;
+        DdlPaqueterias.DataSource = get_GlobalDTPaqueterias(UsuarioActual.CveEmpresa);
         DdlPaqueterias.DataBind();
         DdlPaqueterias.Items.Insert(0, new ListItem("Seleccione ", "-1"));
         UPGuiasPorVincular.Update();
@@ -729,6 +730,76 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
         }
     }
 
+    private string DocumentoEntregaInterna()
+    {
+        ClsVentas ObjVentas = new ClsVentas();
+        if (ObjVentas.GetVenta(this.CveVenta, UsuarioActual.CveEmpresa))
+        {
+            string ClienteNombre = ObjVentas.DtResultados.Rows[0]["ClienteNombre"].ToString();
+            string FolioVenta = ObjVentas.DtResultados.Rows[0]["SerieFolio"].ToString();
+            string Pedido = ObjVentas.DtResultados.Rows[0]["PedidoContrato"].ToString();
+            string OrdenCompra = ObjVentas.DtResultados.Rows[0]["OrdenCompra"].ToString();
+            string Guia = TxtGuia.Text;
+            string Rastreo = TxtRastreo.Text;
+            string Paqueteria = DdlPaqueterias.SelectedItem.Text;
+            string TipoDocto = ObjVentas.DtResultados.Rows[0]["TipoDocto"].ToString();
+            DataTable DtDetalle = new DataTable();
+            if (ObjVentas.GetVentaDetalle(CveVenta))
+            {
+                DtDetalle = ObjVentas.DtResultados;
+            }
+
+            string DetalleTable = "";
+            foreach (DataRow dRow in DtDetalle.Rows)
+            {
+                string detalle = string.Format("<tr><td style='width:25%'>{0}</td><td style='width:25%'>{1}</td><td style='width:50%'>{2}</td></tr>", dRow["Codigo"], dRow["Cantidad"], dRow["PS"]);
+                DetalleTable += detalle;
+            }
+
+            StringBuilder strBody = new StringBuilder();
+            strBody.Append("<html>");
+            strBody.Append("  <body>");
+            strBody.Append("<div>");
+            strBody.Append($"<img src='{Request.Url.Scheme}://{Request.Url.Host}:{ Request.Url.Port}/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
+            strBody.Append("</div>");
+            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
+            strBody.Append($"      Apreciable {ClienteNombre}, su pedido ya se encuentra en camino con el número de guía {Guia} y rastreo {Rastreo} de {Paqueteria}. Le confirmamos los productos que recibirá conforme a la {TipoDocto}:");
+            strBody.Append("    </p>");
+            strBody.Append($"    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
+            strBody.Append("  <div style='width:100%;text-align:center'>");
+            strBody.Append("    <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
+            strBody.Append(DetalleTable);
+            strBody.Append("    </table>");
+            strBody.Append("  </div>");
+            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
+            strBody.Append("      Solicitamos su apoyo en la verificación del pedido que está próximo a recibir y en caso de presentarse alguno de los siguientes inconvenientes favor de rechazar el paquete y comunicarse de inmediato con su Ejecutivo Comercial:");
+            strBody.Append("    </p>");
+            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
+            strBody.Append("      •        Empaque violado.<br/>");
+            strBody.Append("•        Daño físico en la caja.<br/>");
+            strBody.Append("•        Producto incompleto o distinto al solicitado.<br/>");
+            strBody.Append("•        Alguna otra situación que se considere que compromete la integridad de la mercancía.");
+            strBody.Append("");
+            strBody.Append("    </p>");
+            strBody.Append("    <br/>");
+            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
+            strBody.Append("      Gracias por realizar pedido <br/>");
+            strBody.Append("      Compuproveedores");
+            strBody.Append("    </p>");
+            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%;text-align:center'>");
+            strBody.Append("      Sigue disfrutando de nuestros productos y servicios<br/>");
+            strBody.Append("      <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>");
+            strBody.Append("");
+            strBody.Append("    </p>");
+            strBody.Append("  </body>");
+            strBody.Append("</html>");
+
+            return strBody.ToString();
+        }
+        ObjVentas.Dispose();
+        return "";
+    }
+
     private string getCorreoString()
     {
         ClsVentas ObjVentas = new ClsVentas();
@@ -739,7 +810,13 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
             DataRow Vendedor = get_GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("CveVendedor = {0}",CveVendedor));
             DataRow Cliente = get_GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("CveCliente = {0}",CveCliente));
 
-            string CorreosConcat = "{0};{1};{2};{3};{4}";
+            string CobranzaCorreo = Cliente["CobranzaCorreo"].ToString();
+            string CorreoEntregaAlmacen = Cliente["CorreoEntregaAlmacen"].ToString();
+            string CorreoEntregaCompras = Cliente["CorreoEntregaCompras"].ToString();
+            string CorreoVendedor = Vendedor["Correo"].ToString();
+            string CorreoAdicionalNotificacionesVendedor = Vendedor["CorreoAdicionalNotificaciones"].ToString();
+
+            string CorreosConcat = String.Format("{0};{1};{2};{3};{4}", CobranzaCorreo, CorreoEntregaAlmacen, CorreoEntregaCompras, CorreoVendedor, CorreoAdicionalNotificacionesVendedor);
             return CorreosConcat;
         }
         ObjVentas.Dispose();
@@ -750,8 +827,11 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
     {
         Correos.GuardaLog();
 
+        string body = DocumentoEntregaInterna();
+
         ClsSisMail MailCls = new ClsSisMail();
-        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Correos, "Se enviara la compra a su dirección", "Pendiente", Correos);
+        
+        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Correos, "Se enviara la compra a su dirección", body, Correos);
         MailCls = null;
     }
     #endregion

General/RepPaqueteriasGuias.aspx

@@ -10,7 +10,7 @@
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-    Reporte de Paqueterías Guías
+    Reporte de Envíos
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
@@ -174,7 +174,7 @@
                         </div>
                         <div runat="server" id="DivEstatusEntrega" visible="false">
                             <div class="col-md-2">
-                                <label>Entregas Directas</label>&nbsp;&nbsp;&nbsp;<asp:CheckBox ID="ChkLote" data-size="small" runat="server"/>
+                                <label>Entregas Directas</label>&nbsp;&nbsp;&nbsp;<asp:CheckBox ID="ChkLote" data-size="small" runat="server" />
                             </div>
                         </div>
                     </div>
@@ -195,7 +195,7 @@
                 EmptyDataRowStyle-HorizontalAlign="Center" OnRowDataBound="GVDatos_RowDataBound">
                 <Columns>
                     <asp:BoundField DataField="SubProyecto" HeaderText="Sucursal" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField DataField="PaqueteriaGuiaTipo" HeaderText="Guía Tipo" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="PaqueteriaGuiaTipo" HeaderText="Documento" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
                     <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="4%">
                         <ItemTemplate>
                             <asp:HyperLink runat="server" ID="HLFolio" Text='<%# Eval("Folio")%>' ToolTip='<%# "Ir a " + Eval("TipoAgrupador")%>' Target="_blank" />
@@ -217,7 +217,7 @@
                             <asp:LinkButton ID="imgEditar" runat="server" OnClick="imgEditar_Click" AlternateText="Editar" ToolTip="Actualizar" CommandArgument='<%# Eval("CvePaqueteriaGuia")%>' CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
                             <asp:HyperLink ID="BtnLiga" runat="server" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-external-link' aria-hidden='true'></i>" ToolTip="Ir a Paquetería" Target="_blank"></asp:HyperLink>
                             <asp:LinkButton ID="SubirArchivo" runat="server" OnClick="SubirArchivo_Click" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Subir Documento' class='fa fa-upload' title='Subir Documento' ></i>" />
-                            <asp:LinkButton ID="LnkReasignar" runat="server" OnClick="Reasignar_Click" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i title='Reasignar' class='fa fa-user' title='Reasignar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"/>
+                            <asp:LinkButton ID="LnkReasignar" runat="server" OnClick="Reasignar_Click" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i title='Reasignar' class='fa fa-user' title='Reasignar' ></i>" />
                         </ItemTemplate>
                     </asp:TemplateField>
 
@@ -463,6 +463,45 @@
             </div>
         </div>
     </div>
+
+    <div id="ModalMotivoReasignacion" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <div class="modal-content">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">
+                        <asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <asp:Literal ID="Literal1" runat="server">Motivo de Rechazo de Guía </asp:Literal>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </h4>
+                </div>
+
+                <div class="modal-body">
+                    <asp:UpdatePanel runat="server" ID="UpdatePanel2" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <div class="row">
+                                <div class="col-md-12">
+                                    <asp:DropDownList ID="DdlMotivoRechazoGuia" runat="server" Width="100%" DataTextField="Descripcion" DataValueField="CveMotivoRechazoPaqueteria" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me">
+                                    </asp:DropDownList>
+                                </div>
+                            </div>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+                <div class="modal-footer">
+                    <asp:UpdatePanel runat="server" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <asp:Button ID="BtnReasignar" runat="server" ClientIDMode="Static" Text="Reasignar" CssClass="btn btn-primary" OnClick="BtnReasignar_Click" />
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+
+            </div>
+        </div>
+    </div>
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 

General/RepPaqueteriasGuias.aspx.cs

@@ -150,6 +150,31 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
             ViewState["DTMovimientos"] = value;
         }
     }
+
+    private int CvePaqueteriaGuiaReasignar
+    {
+        get
+        {
+            return ViewState["CvePaqueteriaGuiaReasignar"].ToString().ToEntero();
+        }
+
+        set
+        {
+            ViewState["CvePaqueteriaGuiaReasignar"] = value;
+        }
+    }
+
+    private String Folio
+    {
+        get
+        {
+            return ViewState["Folio"].ToString();
+        }
+        set
+        {
+            ViewState["Folio"] = value;
+        }
+    }
     #endregion
 
 
@@ -163,6 +188,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
             CargaPaqueteriasGuiasTipo();
             InicializaFechas();
             CargaUsuarios();
+            CargaMotivosRechazo();
             UPFiltros.Update();
 
             if (!UsuarioActual.TienePermisoProceso(219))
@@ -194,18 +220,27 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
 
     protected void CargaPaqueterias()
     {
-        DdlPaqueterias.DataSource = GlobalDTPaqueterias;
-        DdlPaqueterias.DataBind();
-        DdlPaqueterias.Items.Insert(0, new ListItem("Todos ", "-1"));
+        if (UsuarioActual.CveRol == 1339)
+        {
+            DdlPaqueterias.DataSource = get_GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0);
+            DdlPaqueterias.DataBind();
+        }
+        else
+        {
+            DdlPaqueterias.DataSource = get_GlobalDTPaqueterias(UsuarioActual.CveEmpresa);
+            DdlPaqueterias.DataBind();
+            DdlPaqueterias.Items.Insert(0, new ListItem("Todos ", "-1"));
+        }
+       
 
-        DdlPaqueteriaEditar.DataSource = GlobalDTPaqueterias;
+        DdlPaqueteriaEditar.DataSource = get_GlobalDTPaqueterias(UsuarioActual.CveEmpresa);
         DdlPaqueteriaEditar.DataBind();
         DdlPaqueteriaEditar.Items.Insert(0, new ListItem("Seleccione ", "-1"));
     }
 
     protected void CargaPaqueteriasGuiasTipo()
     {
-        DdlTipo.DataSource = get_GlobalDTPaqueteriaGuiaTipos(UsuarioActual.CveEmpresa);
+        DdlTipo.DataSource = get_GlobalDTPaqueteriaGuiaTipos(UsuarioActual.CveEmpresa).FiltraParametros("Consultable = 'True'");
         DdlTipo.DataBind();
         DdlTipo.Items.Insert(0, new ListItem("Todos ", "-1"));
 
@@ -216,12 +251,19 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
 
     protected void CargaEstatus()
     {
-        DdlEstatus.Items.Insert(0, new ListItem("Todos ", "-1"));
-        DdlEstatus.Items.Insert(1, new ListItem("En Proceso ", "1"));
-        DdlEstatus.Items.Insert(2, new ListItem("Confirmado por Proveedor ", "2"));
-        DdlEstatus.Items.Insert(3, new ListItem("Entregado ", "3"));
-        DdlEstatus.Items.Insert(4, new ListItem("Confirmado por Cliente", "4"));
-        DdlEstatus.SelectedValue = "1";
+        if (UsuarioActual.CveRol == 1339)
+        {
+            DdlEstatus.Items.Insert(0, new ListItem("En Proceso ", "2"));
+        }else
+        {
+            DdlEstatus.Items.Insert(0, new ListItem("Todos ", "-1"));
+            DdlEstatus.Items.Insert(1, new ListItem("Pendiente ", "1"));
+            DdlEstatus.Items.Insert(2, new ListItem("En Proceso ", "2"));
+            DdlEstatus.Items.Insert(3, new ListItem("Entregado ", "3"));
+            DdlEstatus.Items.Insert(4, new ListItem("Reasignar Nueva Entrega ", "4"));
+            DdlEstatus.Items.Insert(5, new ListItem("Directo a Clientes ", "5"));
+            DdlEstatus.SelectedValue = "-1";
+        }
 
         DdlEstatusEditar.Items.Insert(0, new ListItem("Seleccione ", "-1"));
         DdlEstatusEditar.Items.Insert(1, new ListItem("En Proceso ", "1"));
@@ -238,9 +280,28 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
 
     private void CargaUsuarios()
     {
-        DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa:UsuarioActual.CveEmpresa);
-        DdlUsuarios.DataBind();
-        DdlUsuarios.Items.Insert(0, new ListItem("Todos ", "-1"));
+        if (UsuarioActual.CveRol == 1339)
+        {
+            DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa:UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveRol = {0}",UsuarioActual.CveRol));
+            DdlUsuarios.DataBind();
+        }
+        else
+        {
+            DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
+            DdlUsuarios.DataBind();
+            DdlUsuarios.Items.Insert(0, new ListItem("Todos ", "-1"));
+        }
+    }
+
+    private void CargaMotivosRechazo()
+    {
+        ClsGenerales ObjGeneral = new ClsGenerales();
+        if (ObjGeneral.GetMotivoRechazoPaqueteria(-1, UsuarioActual.CveEmpresa))
+        {
+            DdlMotivoRechazoGuia.DataSource = ObjGeneral.DtResultados;
+            DdlMotivoRechazoGuia.DataBind();
+        }
+        ObjGeneral.Dispose();
     }
 
     protected void InicializaFechas()
@@ -864,6 +925,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
 
                 Cuerpo.AppendLine("<br><br>Dudas y aclaraciones con su coordinador empresarial.");
 
+                string body = DocumentoEntregaInterna(this.CveVenta);
                 //Adjunta Archivo al Correo
                 ClsSisMail.ArchivoMail ArchivoAdjunto = new ClsSisMail.ArchivoMail();
 
@@ -874,16 +936,17 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
                     ArchivoAdjunto.ArchivoBinario = File.ReadAllBytes(RutaArchivoAdjunto);
                     ArchivoAdjunto.Ruta = RutaArchivoAdjunto;
                     ArchivoAdjunto.NombreArchivo = new FileInfo(RutaArchivoAdjunto).Name;
+
                     ListaAdjuntos.Add(ArchivoAdjunto);
                 }
 
                 if ((ListaAdjuntos.Count > 0))
                 {
-                    MensajeEnviado = Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString(), Archivos: ListaAdjuntos);
+                    MensajeEnviado = Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, body.ToString(), Archivos: ListaAdjuntos);
                 }
                 else
                 {
-                    MensajeEnviado = Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString());
+                    MensajeEnviado = Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, body.ToString());
                 }
 
                 break;
@@ -910,6 +973,15 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
                     MensajeEnviado = true;
                 }
 
+                break;
+            case 3:
+                //Tipo 3 Guia reasignada
+                Cuerpo.AppendLine(String.Format("Motivo:{0}. Tu envío fue reprogramado para el siguiente día hábil.", DdlMotivoRechazoGuia.SelectedItem.Text));
+                CargaDatosCorreo(this.CveVenta);
+                if (Correo.SendMail(UsuarioActual.Empresa, this.Destinatario, Asunto, Cuerpo.ToString()))
+                {
+                    MensajeEnviado = true;
+                }
                 break;
         }
         return MensajeEnviado;
@@ -947,11 +1019,11 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
                         Destinatario = DbRowVenta["Mail"].ToString();
                     }
 
-                    // Destinatario = "sig.buzon02@gmail.com"; // CORREO PRUEBA
-                    //if (UsuarioActual.Empresa.Funcionalidad(280) == "1" && CveCliente > 0 && CveVendedor > 0)
-                    //{
-                    //    Destinatario = getCorreoNotificacion(CveCliente,CveVendedor);
-                    //}
+                    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))
                     {
@@ -982,17 +1054,85 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
 
     protected void Reasignar_Click(object sender, EventArgs e)
     {
+        this.RegistraScript("$('#ModalMotivoReasignacion').modal('show')", "hidemodal3");
         GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
-        int CvePaqueteriaGuia = GvRow.DataKey("CvePaqueteriaGuia").ToEntero();
-
+        CvePaqueteriaGuiaReasignar = GvRow.DataKey("CvePaqueteriaGuia").ToEntero();
+        CveVenta = GvRow.DataKey("CveAgrupador").ToString().ToEntero();
+        Folio = GvRow.DataKey("Folio").ToString();
+    }
+    
+    protected void BtnReasignar_Click(object sender, EventArgs e)
+    {
         ClsGenerales ObjGeneral = new ClsGenerales();
-        if (ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriaGuia, -1))
+        if (ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriaGuiaReasignar, -1, CveMotivoRechazoPaqueteria:DdlMotivoRechazoGuia.SelectedValue.ToEntero()))
         {
             Alert("La guía está lista para volver a ser asignada, disponible en el reporte <a style='color:#23527c' href='/Inventarios/EntregasPorRealizar.aspx'>Entregas Por Realizar</a>");
         }
         ObjGeneral.Dispose();
         CargaDatos();
         UPDatos.Update();
+        CvePaqueteriaGuiaReasignar = -1;
+        EnviarCorreoNotificacionEntrega(3, Folio, "","","","","",-1,null);
+        this.RegistraScript("$('#ModalMotivoReasignacion').modal('hide')", "hidemodal3");
+    }
+
+    private string DocumentoEntregaInterna(int CveVenta)
+    {
+        ClsVentas ObjVentas = new ClsVentas();
+
+        if (ObjVentas.GetVenta(CveVenta,UsuarioActual.CveEmpresa))
+        {
+            DataRow row = ObjVentas.DtResultados.Rows[0];
+            string ClienteNombre = row["ClienteNombre"].ToString();
+            string FolioVenta = row["SerieFolio"].ToString();
+            string Pedido = row["PedidoContrato"].ToString();
+            string OrdenCompra = row["OrdenCompra"].ToString();
+            string tipoDocto = row["TipoDocto"].ToString();
+            DataTable DtDetalle = new DataTable();
+            if (ObjVentas.GetVentaDetalle(CveVenta))
+            {
+                DtDetalle = ObjVentas.DtResultados;
+            }
+            string DetalleTable = "";
+            foreach (DataRow dRow in DtDetalle.Rows)
+            {
+                string detalle = string.Format("<tr><td style='width:25%'>{0}</td><td style='width:25%'>{1}</td><td style='width:50%'>{2}</td></tr>", dRow["Codigo"], dRow["Cantidad"], dRow["PS"]);
+                DetalleTable += detalle;
+            }
+
+            StringBuilder strBody = new StringBuilder();
+            strBody.Append("<html>");
+            strBody.Append("  <body>");
+            strBody.Append("<div>");
+            strBody.Append($"<img src='{Request.Url.Scheme}://{Request.Url.Host}:{ Request.Url.Port}/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
+            strBody.Append("</div>");
+            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
+            strBody.Append($"      Apreciable {ClienteNombre}, su pedido correspondiente a la {tipoDocto}:");
+            strBody.Append("    </p>");
+            strBody.Append($"    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
+            strBody.Append("  <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>Su Pedido:</p>");
+            strBody.Append("  <div style='width:100%;text-align:center'>");
+            strBody.Append("    <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
+            strBody.Append(DetalleTable);
+            strBody.Append("    </table>");
+            strBody.Append("  </div>");
+            strBody.Append("    <br/>");
+            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
+            strBody.Append("      Agradecemos su preferencia. <br/>");
+            strBody.Append("      Compuproveedores");
+            strBody.Append("    </p>");
+            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%;text-align:center'>");
+            strBody.Append("      Sigue disfrutando de nuestros productos y servicios<br/>");
+            strBody.Append("      <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>");
+            strBody.Append("");
+            strBody.Append("    </p>");
+            strBody.Append("  </body>");
+            strBody.Append("</html>");
+
+            return strBody.ToString();
+        }
+        ObjVentas.Dispose();
+        return "";
     }
 
 }

General/SaldosIniciales.aspx.vb

@@ -18,7 +18,9 @@ Partial Class General_SaldosIniciales
     Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
         If TxtExcel.getfiles().Archivos.Count > 0 Then
             Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
-            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
+
+            Dim Directorio As String = Server.MapPath("~") & file.patch
+
             Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
             CargarArchivo(Directorio, file.filename, Tipo)
         Else

Global.asax

@@ -222,8 +222,8 @@
         If ObjGenerales.GetCategorias(-1, 2) Then Application("GlobalDTFamilias") = ObjGenerales.DtResultados Else Application("GlobalDTFamilias") = Nothing
         If ObjGenerales.GetCategorias(-1, 3) Then Application("GlobalDTCategoriasPresupuestos") = ObjGenerales.DtResultados Else Application("GlobalDTCategoriasPresupuestos") = Nothing
         If ObjGenerales.GetCategorias(-1, 4) Then Application("GlobalDTCategorias2") = ObjGenerales.DtResultados Else Application("GlobalDTCategorias2") = Nothing
-        If ObjGenerales.GetColectivas(-1, "-1", "-1", "-1", -1) Then Application("GlobalDTObjGralColectivas") = ObjGenerales.DtResultados Else Application("GlobalDTObjGralColectivas") = Nothing
-        If ObjGenerales.GetGralPaqueterias Then Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueterias") = Nothing
+        If ObjGenerales.GetColectivas(-1, "-1", "-1", "-1", -1) Then Application("GlobalDTObjGralColectivas") = ObjGenerales.DtResultados Else Application("GlobalDTObjGralColectivas") = Nothing
+        'If ObjGenerales.GetGralPaqueterias Then Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueterias") = Nothing
         If ObjGenerales.GetGralPaqueteriasGuiasTipo Then Application("GlobalDTPaqueteriaGuiaTipos") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueteriaGuiaTipos") = Nothing
         If ObjGenerales.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
 

Inventarios/Consignaciones.aspx

@@ -431,7 +431,7 @@
                             </tr>
                         </table>
 
-                        <asp:GridView ID="GvDatos" DataKeyNames="No,CveUM,CvePS,PU,CveMovimientoDetalle,CveAlmacen" runat="server" ShowHeader="false" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Movimientos" CssClass="tabla_correcto grides Widthall ScrollAD" data-height="400" data-freezerows="-1" GridLines="None">
+                        <asp:GridView ID="GvDatos" DataKeyNames="No,CveUM,CvePS,PU,CveMovimientoDetalle,CveAlmacen,SeccionAlmacen,Serie,Lote,FechaCaducidad,CveSeccionAlmacen" runat="server" ShowHeader="false" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Movimientos" CssClass="tabla_correcto grides Widthall ScrollAD" data-height="400" data-freezerows="-1" GridLines="None">
                             <Columns>
                                 <asp:BoundField ItemStyle-Width="150px" DataField="Almacen" />
                                 <asp:TemplateField HeaderText="Cantidad Devolucion" Visible="false">

Inventarios/Consignaciones.aspx.vb

@@ -100,6 +100,7 @@ Partial Class Inventarios_Consignaciones
         dt.Columns.Add("EstatusExistencia")
         dt.Columns.Add("CveMovimientoDetalle")
 
+        dt.Columns.Add("CveSeccionAlmacen", Type.GetType("System.Int32"))
         dt.Columns.Add("SeccionAlmacen")
         dt.Columns.Add("Serie", Type.GetType("System.String"))
         dt.Columns.Add("Lote", Type.GetType("System.String"))
@@ -158,6 +159,9 @@ Partial Class Inventarios_Consignaciones
         Else
             DdlProducto.Visible = False
         End If
+
+        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
+        DdlSeccionAlmacen.DataBind()
     End Sub
 #End Region
 
@@ -590,6 +594,7 @@ Partial Class Inventarios_Consignaciones
                 Dim PSCodigo = ""
 
                 Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero
+                Dim SeccionAlmacen As String = DdlSeccionAlmacen.SelectedItem.Text
                 Dim Serie As String = If(TxtSerie.Text = "", "-1", TxtSerie.Text)
                 Dim Lote As String = If(TxtLote.Text = "", "-1", TxtLote.Text)
                 Dim Caducidad As String = If(TxtCaducidad.Text = "", "-1", TxtCaducidad.Text)
@@ -617,6 +622,7 @@ Partial Class Inventarios_Consignaciones
                     registro.Item("PU") = TxtPU.Text.ToDouble
                     registro.Item("PUExtranjero") = TxtPU.Text.ToDouble
                     registro.Item("CveSeccionAlmacen") = CveSeccionAlmacen
+                    registro.Item("SeccionAlmacen") = SeccionAlmacen
                     registro.Item("Serie") = Serie
                     registro.Item("Lote") = Lote
                     registro.Item("FechaCaducidad") = Caducidad
@@ -711,7 +717,7 @@ Partial Class Inventarios_Consignaciones
                     'AGREGAMOS MOVTOS DETALLE
                     If CveMovimiento > 0 Then
                         For Each Dr As DataRow In DtMovimientos.Rows
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, PUTC:=If(DdlMoneda.SelectedValue.ToEntero <> 1, Dr("PUExtranjero").ToString.ToDecimal, -1)) Then
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=TxtSerie.Text, Lote:=TxtLote.Text, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, PUTC:=If(DdlMoneda.SelectedValue.ToEntero <> 1, Dr("PUExtranjero").ToString.ToDecimal, -1)) Then
                                 ErrorMovInv = True
                                 TextoError = "Ocurrió un error al guardar los movimientos"
                                 Exit For

Inventarios/EntregaAlmacen.aspx.vb

@@ -625,12 +625,16 @@ Partial Class Inventarios_EntregaAlmacen
                     If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then
                         FormaPaqueteria = DtDatos.Rows(0)("FormaPaqueteria").ToString.ToEntero
                         Dim FormaPaq As Integer = FormaPaqueteria
+                        RbSinEntrega.Checked = False
+                        RbEntregaInterna.Checked = False
+                        RbEntregaExterna.Checked = False
                         Select Case FormaPaq
                             Case 1
                                 RbSinEntrega.Checked = True
+                                LnkPaqueteriaDetalle.Visible = False
                             Case 2
                                 RbEntregaInterna.Checked = True
-                                LnkPaqueteriaDetalle.Visible = True
+                                'LnkPaqueteriaDetalle.Visible = True
                                 DdlEstatus.SelectedValue = "5"
                             Case 3
                                 RbEntregaExterna.Checked = True
@@ -822,11 +826,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()
@@ -2648,13 +2651,13 @@ Partial Class Inventarios_EntregaAlmacen
             End If
 
             'Paqueterias guias
-            If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
-                Dim CveEstatus As Integer = DdlEstatus.SelectedValue.ToEntero()
-                Dim Fecha As String = TxtFechaPaqInterna.Text
-                Dim FechaEstimada As String = If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
-                Dim NoCajas As Integer = TxtNoCajas.Text.ToEntero()
-                Dim Observaciones As String = TxtObservacionesPaqInterna.Text
-                Dim CvePaqueteria As Integer = GlobalDTPaqueterias().FiltroPrimeroValor("CvePaqueteria", String.Format("CveEmpresa={0} AND TipoPaqueteria = 0", UsuarioActual.CveEmpresa)).ToEntero
+            If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
+                Dim CveEstatus As Integer = 1 ' DdlEstatus.SelectedValue.ToEntero()
+                Dim Fecha As String = "-1" 'TxtFechaPaqInterna.Text
+                Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
+                Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
+                Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text
+                Dim CvePaqueteria As Integer = GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero
 
                 If CveSubProyecto > 0 Then
                     Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "", "", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
@@ -2662,7 +2665,7 @@ Partial Class Inventarios_EntregaAlmacen
                     If CvePaqueteriaGuia > 0 Then
 
                         If CveVentaSurtir > 0 OrElse CveSubProyecto > 0 Then
-                            If ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1) Then
+                            If ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimientoSalida, -1) Then
                                 ''manda correo
                                 MandaCorreoEntrega(CveVentaSurtir)
                             Else
@@ -2679,7 +2682,9 @@ Partial Class Inventarios_EntregaAlmacen
                 Else
                     Alert("Hace falta indicar un Sub Proyecto", TipoMensaje.MsgAdvertencia)
                     ErrorMovInv = True
-                End If
+                End If
+            ElseIf RbSinEntrega.Checked AndAlso Not ErrorMovInv Then
+                MandaCorreoEntrega(CveVentaSurtir)
             End If
         Catch ex As Exception
             ErrorMovInv = True
@@ -3118,13 +3123,13 @@ Partial Class Inventarios_EntregaAlmacen
         End If
 
         'Paqueterias Guias
-        If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
-            Dim CveEstatus As Integer = DdlEstatus.SelectedValue.ToEntero()
-            Dim Fecha As String = TxtFechaPaqInterna.Text
-            Dim FechaEstimada As String = If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
-            Dim NoCajas As Integer = TxtNoCajas.Text.ToEntero()
-            Dim Observaciones As String = TxtObservacionesPaqInterna.Text
-            Dim CvePaqueteria As Integer = GlobalDTPaqueterias().FiltroPrimeroValor("CvePaqueteria", String.Format("CveEmpresa={0} AND TipoPaqueteria = 0", UsuarioActual.CveEmpresa)).ToEntero
+        If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
+            Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero()
+            Dim Fecha As String = "-1" 'TxtFechaPaqInterna.Text
+            Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
+            Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
+            Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text
+            Dim CvePaqueteria As Integer = GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero
 
             Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
 
@@ -3175,51 +3180,103 @@ Partial Class Inventarios_EntregaAlmacen
 
 
     Private Sub MandaCorreoEntrega(tCveVenta As Integer)
-        Dim Correo As New ClsSisMail()
-        Dim SerieFolio As String = ""
-        Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio)
-        Dim Cuerpo As New StringBuilder()
-        Dim Destinatario As String = ""
-        Dim MensajeEnviado = False
-        Dim tCvecliente As Integer
-
-
-        Dim ObjVentas As New ClsVentas()
-
-        If (ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa)) Then
-            Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("")
-            Destinatario = String.Format("{0};{1}", dr("CorreoNotificacion"), dr("CorreoVendedorVenta"))
-
-            tCvecliente = dr("CveCliente").ToString.ToEntero
-
-            Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")
-            Destinatario += String.Format("{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
-
-            Cuerpo.AppendLine(String.Format("Estimado {0} le informamos que los productos de la factura {1}  han sido enviados a entrega. <br><br>", dr("ClienteNombre"), dr("SerieFolio")))
-            Cuerpo.AppendLine("<br><br>Dudas y aclaraciones con su coordinador empresarial.")
-
-        End If
-        ObjVentas.Dispose()
-
-
-        ' Dim ArchivoAdjunto As New ClsSisMail.ArchivoMail()
-
-        'Dim ListaAdjuntos As New List(ClsSisMail.ArchivoMail)
-
-
-        'If (File.Exists(RutaArchivoAdjunto))Then
-        '        {
-        '            ArchivoAdjunto.ArchivoBinario = File.ReadAllBytes(RutaArchivoAdjunto);
-        '            ArchivoAdjunto.Ruta = RutaArchivoAdjunto;
-        '            ArchivoAdjunto.NombreArchivo = new FileInfo(RutaArchivoAdjunto).Name;
-        '            ListaAdjuntos.Add(ArchivoAdjunto);
-        '        }
-
-
-        MensajeEnviado = Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString())
-
-
+        EnviarCorreoEntrega(tCveVenta, UsuarioActual)
     End Sub
+
+    Private Sub EnviarCorreoEntrega(tCveVenta As Integer, UsuarioActual As Usuario)
+        'Dim Correo As New ClsSisMail
+        Dim SerieFolio As String = ""
+        Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio)
+        Dim Cuerpo As New StringBuilder()
+        Dim Destinatario As String = ""
+        Dim MensajeEnviado = False
+        Dim tCvecliente As Integer
+        Dim bytes() As Byte = Nothing
+        Dim ObjVentas As New ClsVentas()
+
+        Dim strBody As New StringBuilder
+        If ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa) Then
+            Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("")
+            Destinatario = String.Format("{0};{1}", dr("CorreoNotificacion"), dr("CorreoVendedorVenta"))
+
+            tCvecliente = dr("CveCliente").ToString.ToEntero
+
+            Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")
+            Destinatario += String.Format(";{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
+
+            Dim ClienteNombre As String = dr("ClienteNombre").ToString()
+            Dim FolioVenta As String = dr("SerieFolio").ToString()
+            Dim Pedido As String = dr("PedidoContrato").ToString()
+            Dim OrdenCompra As String = dr("OrdenCompra").ToString()
+            Dim CveVenta As Integer = dr("CveVenta").ToString().ToEntero()
+            Dim TipoDocto As String = dr("TipoDocto").ToString()
+
+            Dim dtDetalle As New DataTable
+            If ObjVentas.GetVentaDetalle(CveVenta) Then
+                dtDetalle = ObjVentas.DtResultados
+            End If
+            Dim DetalleTable As String = ""
+            For Each dRow As DataRow In dtDetalle.Rows
+                Dim detalle As String = String.Format("<tr><td style='width:25%'>{0}</td><td style='width:25%'>{1}</td><td style='width:50%'>{2}</td></tr>", dRow("Codigo"), dRow("Cantidad"), dRow("PS"))
+                DetalleTable += detalle
+            Next
+
+            strBody.Append("<html>")
+            strBody.Append("  <body>")
+            strBody.Append("<div>")
+            strBody.Append($"<img src='{Request.Url.Scheme}://{Request.Url.Host}:{ Request.Url.Port}/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>")
+            strBody.Append("</div>")
+            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
+            strBody.Append($"      Apreciable {ClienteNombre}, le confirmamos los")
+            strBody.Append("      productos surtidos y entregados en mostrador conforme a la")
+            strBody.Append($"      {TipoDocto}:")
+            strBody.Append("    </p>")
+            strBody.Append($"    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>")
+            strBody.Append("  <div style='width:100%;text-align:center'>")
+            strBody.Append("    <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>")
+            strBody.Append(DetalleTable)
+            strBody.Append("    ")
+            strBody.Append("    </table>")
+            strBody.Append("  </div>")
+            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
+            strBody.Append("      Se entregaron los productos conforme a las especificaciones de su pedido y verificamos que no se presentara alguno de los siguientes inconvenientes:")
+            strBody.Append("    </p>")
+            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
+            strBody.Append("      •        Empaque violado.<br/>")
+            strBody.Append("•        Daño físico en la caja.<br/>")
+            strBody.Append("•        Producto incompleto o distinto al solicitado.<br/>")
+            strBody.Append("•        Alguna otra situación que se considere que compromete la integridad de la mercancía.<br/>")
+            strBody.Append("")
+            strBody.Append("    </p>")
+            strBody.Append("    <br/>")
+            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
+            strBody.Append($"      Aceptando a entera satisfacción a las {Today.Hour}:{Today.Minute} hrs del {Today.ToString}")
+            strBody.Append("    </p>")
+            strBody.Append("    <br/>")
+            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>")
+            strBody.Append("      Gracias por su compra <br/>")
+            strBody.Append("      Compuproveedores")
+            strBody.Append("    </p>")
+            strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%;text-align:center'>")
+            strBody.Append("      Sigue disfrutando de nuestros productos y servicios<br/>")
+            strBody.Append("      <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>")
+            strBody.Append("")
+            strBody.Append("    </p>")
+            strBody.Append("  </body>")
+            strBody.Append("</html>")
+        End If
+        ObjVentas.Dispose()
+
+        Dim MailCls As New ClsSisMail
+
+        Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
+        Dim itemMail As New ClsSisMail.ArchivoMail()
+        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = bytes, .NombreArchivo = "Entrega en mostrador"})
+
+        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Destinatario, "Enviado desde Entrega Almacen", strBody.ToString, Destinatario)
+        MailCls = Nothing
+    End Sub
+
     Private Sub Limpia()
 
         'DATOS DE LA VENTA
@@ -3253,6 +3310,8 @@ Partial Class Inventarios_EntregaAlmacen
         TimmerRefresh.Enabled = True
         UpGenerales.Update()
         CargaGvDatos()
+
+        UpDatos.Update()
     End Sub
 
 #End Region
@@ -3637,9 +3696,9 @@ Partial Class Inventarios_EntregaAlmacen
 
     Protected Sub EntregaRadioGroup_Click(sender As Object, e As EventArgs)
         If RbEntregaExterna.Checked Then
-            RegistraScript("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx',800,547,'N')")
+            RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveVenta={CveVentaSurtir}',800,547,'N')")
         ElseIf RbEntregaInterna.Checked Then
-            RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
+            'RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
             'RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuiasInternas.aspx?CveVenta={CveVentaSurtir}&CveSubProyecto={CveSubProyecto}',800,547,'N')")
             'CveVentaSurtir
         ElseIf RbSinEntrega.Checked Then
@@ -3657,9 +3716,9 @@ Partial Class Inventarios_EntregaAlmacen
     End Sub
     Protected Sub PaqueteriaDetalle_Click(sender As Object, e As EventArgs)
         If RbEntregaExterna.Checked Then
-            RegistraScript("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx',800,547,'N')")
+            RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveVenta={CveVentaSurtir}',800,547,'N')")
         ElseIf RbEntregaInterna.Checked Then
-            RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
+            'RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
         End If
     End Sub
 #End Region

Inventarios/EntregasPorRealizar.aspx

@@ -22,7 +22,7 @@
 
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <asp:UpdatePanel runat="server" ID="UpAccionesComplementos">
+    <%--<asp:UpdatePanel runat="server" ID="UpAccionesComplementos">
         <ContentTemplate>
             <li>
                 <asp:LinkButton ID="LnkImprimir" runat="server" OnClick="LnkImprimir_Click" Style="color: #686868;" Text="<i class='fa fa-pdf' style='color:#686868;'></i> Imprimir"/>
@@ -31,7 +31,7 @@
         <Triggers>
             <asp:PostBackTrigger ControlID="LnkImprimir"/>
         </Triggers>
-    </asp:UpdatePanel>
+    </asp:UpdatePanel>--%>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
@@ -70,7 +70,7 @@
                 </div>
                 <div class="portlet-body rowpadding">
                     <asp:GridView ID="GvPaqueteriasGuias" runat="server" AutoGenerateColumns="False"
-                        DataKeyNames="CvePaqueteriaGuia,Folio,FechaIng,Nombre,Contacto,Estatus,CobranzaCorreo,CorreoEntregaAlmacen,CorreoEntregaCompras,Correo,CorreoAdicionalNotificaciones"
+                        DataKeyNames="CvePaqueteriaGuia,Folio,SerieFolio,FechaIng,Nombre,Contacto,Estatus,CobranzaCorreo,CorreoEntregaAlmacen,CorreoEntregaCompras,Correo,CorreoAdicionalNotificaciones,CveVenta,PedidoContrato,OrdenCompra,NombreComercial,TipoDocto"
                         EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas"
                         CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                         data-sort="true"
@@ -89,7 +89,7 @@
                                 </ItemTemplate>
 
                             </asp:TemplateField>
-                            <asp:BoundField HeaderText="Estatus" DataField="Estatus" HeaderStyle-Width="25px" ItemStyle-HorizontalAlign="Center" />
+                            <asp:BoundField HeaderText="Estatus" DataField="Estatus" HeaderStyle-Width="150px" ItemStyle-Width="150px" ItemStyle-HorizontalAlign="Left" />
                             <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderStyle-Width="10%">
                                 <ItemTemplate>
                                     &nbsp;<asp:Literal ID="LblFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:dd/MM/yyyy}") %>'></asp:Literal>

Inventarios/EntregasPorRealizar.aspx.cs

@@ -7,21 +7,11 @@ using System.Web.UI.WebControls;
 using System.Data;
 using Extensiones;
 using Microsoft.Reporting.WebForms;
+using System.Text;
 
 public partial class Inventarios_EntregasPorRealizar : ClsPaginas
 {
-    private DataTable DtPaqueteriasGuias
-    {
-        get
-        {
-            return (ViewState["DtPaqueteriasGuias"] == null) ? null : (DataTable)ViewState["DtPaqueteriasGuias"];
-        }
-        set
-        {
-            ViewState["DtPaqueteriasGuias"] = value;
-        }
-    }
-
+   
     protected void Page_Load(object sender, EventArgs e)
     {
         if (!IsPostBack)
@@ -41,37 +31,50 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
             GridViewRowCollection Grid = GvPaqueteriasGuias.Rows;
 
             int CvePersonal = DdlUsuario.SelectedValue.ToEntero();
+            long CveAsignacionEntrega = DateTime.Now.Ticks;
+            string Usuario = DdlUsuario.SelectedValue.ToEntero() > 0 ? DdlUsuario.SelectedItem.Text : "Todos";
+
+            string LigaPopUpVerFactura = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", ModExtensiones.Encripta(String.Format("OP=ENTREGAS&CVEASIGNACIONENTREGA={0}&USUARIOENTREGA={1}", CveAsignacionEntrega, Usuario)));
             foreach (GridViewRow row in Grid)
             {
                 if (row.FCCheckBox("ChkAsigna").Checked)
                 {
                     int CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero();
 
-                    if(!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal)){
+                    if(!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal, CveAsignacionEntrega)){
                         TieneError = true;
                     }else
                     {
-                        string CobranzaCorreo = row.DataKey("CobranzaCorreo");
-                        string CorreoEntregaAlmacen = row.DataKey("CorreoEntregaAlmacen");
-                        string CorreoEntregaCompras = row.DataKey("CorreoEntregaCompras");
-                        string CorreoVendedor = row.DataKey("Correo");
-                        string CorreoAdicionalNotificacionesVendedor = row.DataKey("CorreoAdicionalNotificaciones");
+                        try
+                        {
+                            MandarNotificacionCorreo(row);
+                        }
+                        catch (Exception ex)
+                        {
+                            TieneError = true;
+                            ModExtensiones.GuardaLog(ex.Message);
+                        }
+                        //string CobranzaCorreo = row.DataKey("CobranzaCorreo");
+                        //string CorreoEntregaAlmacen = row.DataKey("CorreoEntregaAlmacen");
+                        //string CorreoEntregaCompras = row.DataKey("CorreoEntregaCompras");
+                        //string CorreoVendedor = row.DataKey("Correo");
+                        //string CorreoAdicionalNotificacionesVendedor = row.DataKey("CorreoAdicionalNotificaciones");
 
-                        string CorreosCC = string.Format("{0};{1};{2};{3}", CorreoVendedor, CorreoAdicionalNotificacionesVendedor, CobranzaCorreo, CorreoEntregaCompras);
-                        string LogCorreo = string.Format("{0} -- {1} --- {2}", "Tipo de entrega", CorreoEntregaAlmacen, CorreosCC);
-                        LogCorreo.GuardaLog();
+                        //string CorreosCC = string.Format("{0};{1};{2};{3}", CorreoVendedor, CorreoAdicionalNotificacionesVendedor, CobranzaCorreo, CorreoEntregaCompras);
+                        //string LogCorreo = string.Format("{0} -- {1} --- {2}", "Tipo de entrega", CorreoEntregaAlmacen, CorreosCC);
+                        //LogCorreo.GuardaLog();
 
-                        ClsSisMail MailCls = new ClsSisMail();
-                        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Se enviara la compra a su dirección", "Pendiente", CorreosCC);
-                        MailCls = null;
+                        //ClsSisMail MailCls = new ClsSisMail();
+                        //MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Se enviara la compra a su dirección", "Pendiente", CorreosCC);
+                        //MailCls = null;
                     }
                 }
             }
-
+            
             if (!TieneError)
             {
                 ObjGeneral.Commit();
-                Alert("Entregas asignadas correctamente");
+                Alert(String.Format("Entregas asignadas correctamente <br/><br/><a style='color:#23527c' href='{0}'>Imprimir Reporte de Entregas Asignadas</a>", LigaPopUpVerFactura));
                 CargarEntregas();
                 UpDatos.Update();
             }
@@ -93,10 +96,10 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
         if (ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa))
         {
             GvPaqueteriasGuias.DataSource = ObjGeneral.DtResultados;
-            DtPaqueteriasGuias = ObjGeneral.DtResultados;
-            GvPaqueteriasGuias.DataBind();
+                     
         }
         ObjGeneral.Dispose();
+        GvPaqueteriasGuias.DataBind();
     }
 
     private void CargarPersonal()
@@ -107,14 +110,117 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
         DdlUsuario.Items.Insert(0, new ListItem("Seleccione", "-1"));
     }
 
-    protected void LnkImprimir_Click(object sender, EventArgs e)
-    {
-        List<ReportParameter> RepParams = new List<ReportParameter>();
-        string Usuario = DdlUsuario.SelectedValue.ToEntero() > 0 ? DdlUsuario.SelectedItem.Text : "Todos";
-        RepParams.Add(new ReportParameter("Fecha", DateTime.Today.ToString()));
-        RepParams.Add(new ReportParameter("AsignadoA", Usuario));
-        RepParams.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
+    //protected void LnkImprimir_Click(object sender, EventArgs e)
+    //{
+    //    List<ReportParameter> RepParams = new List<ReportParameter>();
+    //    string Usuario = DdlUsuario.SelectedValue.ToEntero() > 0 ? DdlUsuario.SelectedItem.Text : "Todos";
+    //    RepParams.Add(new ReportParameter("Fecha", DateTime.Today.ToString()));
+    //    RepParams.Add(new ReportParameter("AsignadoA", Usuario));
+    //    RepParams.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
 
-        ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF",RDSName:"DsInventarios");
+    //    ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF",RDSName:"DsInventarios");
+    //}
+
+    private string DocumentoEntregaInterna(GridViewRow row)
+    {
+        string ClienteNombre = row.DataKey("NombreComercial");
+        string FolioVenta = row.DataKey("SerieFolio");
+        string Pedido = row.DataKey("PedidoContrato");
+        string OrdenCompra = row.DataKey("OrdenCompra");
+        int CveVenta = row.DataKey("CveVenta").ToEntero();
+        string TipoDocto = row.DataKey("TipoDocto");
+
+        DataTable DtDetalle = new DataTable();
+        ClsVentas ObjVentas = new ClsVentas();
+        if (ObjVentas.GetVentaDetalle(CveVenta))
+        {
+            DtDetalle = ObjVentas.DtResultados;
+        }
+        ObjVentas.Dispose();
+
+        string DetalleTable = "";
+        foreach (DataRow dRow in DtDetalle.Rows)
+        {
+            string detalle = string.Format("<tr><td style='width:25%'>{0}</td><td style='width:25%'>{1}</td><td style='width:50%'>{2}</td></tr>", dRow["Codigo"], dRow["Cantidad"], dRow["PS"]);
+            DetalleTable += detalle;
+        }
+
+        StringBuilder strBody = new StringBuilder();
+
+        strBody.Append("<html>");
+        strBody.Append("  <body>");
+        strBody.Append("<div>");
+        strBody.Append($"<img src='{Request.Url.Scheme}://{Request.Url.Host}:{ Request.Url.Port}/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
+        strBody.Append("</div>");
+        strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
+        strBody.Append($"      Apreciable {ClienteNombre}, su pedido ya se encuentra en camino. Le confirmamos los productos que recibirá conforme a la ");
+        strBody.Append($"      {TipoDocto}:");
+        strBody.Append("    </p>");
+        strBody.Append($"    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
+        strBody.Append("  <div style='width:100%;text-align:center'>");
+        strBody.Append("    <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
+        strBody.Append(DetalleTable);
+        strBody.Append("    </table>");
+        strBody.Append("  </div>");
+        strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
+        strBody.Append("      Solicitamos su apoyo en la verificación del pedido que está próximo a recibir y en caso de presentarse alguno de los siguientes inconvenientes favor de rechazar el paquete y comunicarse de inmediato con su Ejecutivo Comercial:");
+        strBody.Append("    </p>");
+        strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
+        strBody.Append("      •        Empaque violado.<br/>");
+        strBody.Append("•        Daño físico en la caja.<br/>");
+        strBody.Append("•        Producto incompleto o distinto al solicitado.<br/>");
+        strBody.Append("•        Alguna otra situación que se considere que compromete la integridad de la mercancía.");
+        strBody.Append("");
+        strBody.Append("    </p>");
+        strBody.Append("    <br/>");
+        strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>");
+        strBody.Append("      Gracias por realizar su pedido <br/>");
+        strBody.Append("      Compuproveedores");
+        strBody.Append("    </p>");
+        strBody.Append("    <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%;text-align:center'>");
+        strBody.Append("      Sigue disfrutando de nuestros productos y servicios<br/>");
+        strBody.Append("      <a href='https://www.compuproveedoresti.com/'>www.compuproveedores.com</a>");
+        strBody.Append("");
+        strBody.Append("    </p>");
+        strBody.Append("  </body>");
+        strBody.Append("</html>");
+
+        //List<ReportParameter> RepParams = new List<ReportParameter>();
+        //RepParams.Add(new ReportParameter("Cliente", ClienteNombre));
+        //RepParams.Add(new ReportParameter("FolioVenta", FolioVenta));
+        //RepParams.Add(new ReportParameter("Pedido", Pedido));
+        //RepParams.Add(new ReportParameter("OrdenCompra", OrdenCompra));
+        //return StreamPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/GuiaInternaAsignada.rdlc", DtDetalle, RepParams, "Notificacion de Envio", "PDF", RDSName: "DsInventarios");
+        return strBody.ToString();
+    }
+
+    private void MandarNotificacionCorreo(GridViewRow row)
+    {
+        string CobranzaCorreo = row.DataKey("CobranzaCorreo");
+        string CorreoEntregaAlmacen = row.DataKey("CorreoEntregaAlmacen");
+        string CorreoEntregaCompras = row.DataKey("CorreoEntregaCompras");
+        string CorreoVendedor = row.DataKey("Correo");
+        string CorreoAdicionalNotificacionesVendedor = row.DataKey("CorreoAdicionalNotificaciones");
+
+        string Para = string.Format("{0};{1};{2};{3}", CorreoVendedor, CorreoAdicionalNotificacionesVendedor, CobranzaCorreo, CorreoEntregaCompras);
+        string LogCorreo = string.Format("{0} -- {1} --- {2}", "Tipo de entrega", CorreoEntregaAlmacen, Para);
+        LogCorreo.GuardaLog();
+
+        //byte[] ArchivoBinario = DocumentoEntregaInterna(row);
+        string body = DocumentoEntregaInterna(row);
+
+        ClsSisMail MailCls = new ClsSisMail();
+        //List<ClsSisMail.ArchivoMail> LSRutasMail = new List<ClsSisMail.ArchivoMail>();
+        //ClsSisMail.ArchivoMail itemMail = new ClsSisMail.ArchivoMail();
+
+        //{
+        //    var withBlock = itemMail;
+        //    itemMail.ArchivoBinario = ArchivoBinario;
+        //    itemMail.NombreArchivo = "Notificacion de Envio";
+        //}
+
+        //LSRutasMail.Add(itemMail);
+        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Para, "Entrega en camino", body, Para);
+        MailCls = null;
     }
 }

Inventarios/InventarioFisicoDetalle.aspx

@@ -229,7 +229,7 @@
                                 <div class="row" style="margin-top: 5px;">
                                     <label class="col-md-4">Código.Barras</label>
                                     <div class="col-md-8">
-                                        <asp:TextBox runat="server" ID="TxtCodigoBarras"></asp:TextBox>
+                                        <asp:TextBox runat="server" ID="TxtCodigoBarras" OnTextChanged="TxtCodigoBarras_Change" AutoPostBack="true"></asp:TextBox>
                                     </div>
                                 </div>
                                 <div class="row" style="margin-top: 5px;">
@@ -241,6 +241,24 @@
 
                                     </div>
                                 </div>
+                                <div class="row" style="margin-top: 5px;" runat="server" id="divSeccionAlmacen" visible="false">
+                                    <label class="col-md-4">Sección Almacén</label>
+                                    <div class="col-md-8">
+                                        <asp:DropDownList ID="DdlSeccionAlmacen" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataTextField="SeccionAlmacen" DataValueField="CveSeccionAlmacen" ></asp:DropDownList>
+                                    </div>
+                                </div>
+                                <div class="row" style="margin-top: 5px;" runat="server" id="divLote" visible="false">
+                                    <label class="col-md-4">Lote</label>
+                                    <div class="col-md-8">
+                                        <asp:TextBox runat="server" ID="TxtLote"></asp:TextBox>
+                                    </div>
+                                </div>
+                                <div class="row" style="margin-top: 5px;" runat="server" id="divFechaCaducidad" visible="false">
+                                    <label class="col-md-4">Fecha Caducidad</label>
+                                    <div class="col-md-8">
+                                        <asp:TextBox runat="server" ID="TxtFechaCaducidad"></asp:TextBox>
+                                    </div>
+                                </div>
                                 <div class="row" style="margin-top: 5px;">
                                     <div class="col-md-12" style="text-align: center;">
                                         <asp:Button ID="BtnGuardar" runat="server" ValidationGroup="GrpIngresar" Text="Ingresar" class="btn btn-primary" Enabled="false" />
@@ -304,7 +322,10 @@
                             <asp:BoundField HeaderText="Código Barras" DataField="CodigoBarras" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
                             <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
                             <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
+                            <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
                             <asp:BoundField HeaderText="Serie/Lote" DataField="SerieLote" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
+                            <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
+                            <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
                             <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"></asp:BoundField>
                         </Columns>
                     </asp:GridView>
@@ -325,7 +346,10 @@
                     <asp:BoundField HeaderText="Código Barras" DataField="CodigoBarras" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
                     <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
                     <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
+                    <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
                     <asp:BoundField HeaderText="Serie/Lote" DataField="SerieLote" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
+                    <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
+                    <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
                     <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"></asp:BoundField>
                     <asp:TemplateField HeaderText="Eliminar" ItemStyle-HorizontalAlign="Center">
                         <ItemTemplate>

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -89,6 +89,9 @@ Partial Class Inventarios_InventarioFisicoDetalle
     Private Sub CargaDatos(CveInventarioFisico As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1)
 
         Dim ObjInventario As New ClsInventarios
+        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
+        DdlSeccionAlmacen.DataBind()
+        DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
         If ObjInventario.GetInventarioFisico(CveInventarioFisico, CveEmpresa, -1, -1) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
             Dim CveEstatus = ObjInventario.DtResultados.FiltroPrimeroValor("CveEstatus")
             Select Case CveEstatus
@@ -181,7 +184,11 @@ Partial Class Inventarios_InventarioFisicoDetalle
 
             If ObjInventario.GetInventarioFisicoDetalle(CveInventarioFisico, CveUsuario) Then
                 If ObjInventario.DtResultados.Rows.Count > 0 Then
-                    GvIFDUltimoRegistrado.DataSource = ObjInventario.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable
+                    GvIFDUltimoRegistrado.DataSource = ObjInventario.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable
+
+                    GvIFDUltimoRegistrado.Columns(4).Visible = ObjInventario.DtResultados.Rows(0)("CveSeccionAlmacen").ToString.ToEntero > 0
+                    GvIFDUltimoRegistrado.Columns(6).Visible = ObjInventario.DtResultados.Rows(0)("Lote").ToString <> ""
+                    GvIFDUltimoRegistrado.Columns(7).Visible = ObjInventario.DtResultados.Rows(0)("FechaCaducidad").ToString.ToDate > MinFecha
                 Else
                     GvIFDUltimoRegistrado.DataSource = Nothing
                 End If
@@ -223,6 +230,9 @@ Partial Class Inventarios_InventarioFisicoDetalle
         Dim Inventario As New ClsInventarios
         If Inventario.GetInventarioFisicoDetalle(CveInventarioFisico, ddlUsuario.SelectedValue.ToString.ToEntero) Then
             If Inventario.DtResultados.Rows.Count > 0 Then
+                GvIFD.Columns(4).Visible = Inventario.DtResultados.MAX("CveSeccionAlmacen") > 0
+                GvIFD.Columns(6).Visible = Inventario.DtResultados.MAX("Lote") <> ""
+                GvIFD.Columns(7).Visible = Inventario.DtResultados.MAX("FechaCaducidad").ToDate > MinFecha
                 GvIFD.DataSource = Inventario.DtResultados '.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(500).CopyToDataTable
             Else
                 GvIFD.DataSource = Nothing
@@ -248,8 +258,12 @@ Partial Class Inventarios_InventarioFisicoDetalle
         Dim CveProducto As Integer = -1
         Dim CveUnidadMedida As Integer
         Dim Codigo As String = If(TxtCodigo.Text.Trim <> "", TxtCodigo.Text.Trim, "-1").Replace("'", "''") ' scanner cambian los guiones por apostrofes
-        Dim CodigoBarras As String = If(TxtCodigoBarras.Text.Trim <> "", TxtCodigoBarras.Text.Trim, "-1").Replace("'", "''") ' scanner cambian los guiones por apostrofes
+        Dim CodigoBarras As String = If(TxtCodigoBarras.Text.Trim <> "", TxtCodigoBarras.Text.Trim, "-1").Replace("'", "''") ' scanner cambian los guiones por apostrofes
+        Dim SeccionAlmacen As String = If(DdlSeccionAlmacen.SelectedValue.ToEntero > -1, DdlSeccionAlmacen.SelectedItem.Text, "")
+        Dim CveSeccionAlmacen As Integer = If(DdlSeccionAlmacen.SelectedValue.ToEntero > 0, DdlSeccionAlmacen.SelectedValue.ToEntero, -1)
         Dim SerieLote As String = TxtCodigoSerie.Text.Trim
+        Dim Lote As String = If(TxtLote.Text.Length > 0, TxtLote.Text, "-1")
+        Dim FechaCaducidad As String = If(TxtFechaCaducidad.Text.Length > 0, TxtFechaCaducidad.Text, MinFecha.ToString)
         Dim CveMetodoInv As Integer = -1
         Dim Cantidad = TxtCantidadProducto.Text.ToDouble
 
@@ -283,14 +297,22 @@ Partial Class Inventarios_InventarioFisicoDetalle
             Dim Consulto As Boolean = False
             Using Inventarios As New ClsInventarios
 
-                If Inventarios.AddInventarioFisicoDetalle(CveInventarioFisico, CveProducto, CveUnidadMedida, If(CveMetodoInv = 5, 1, Cantidad), SerieLote, UsuarioActual.CveUsuario) Then
+                If Inventarios.AddInventarioFisicoDetalle(CveInventarioFisico, CveProducto, CveUnidadMedida, If(CveMetodoInv = 5, 1, Cantidad), SerieLote, UsuarioActual.CveUsuario,
+                                                          CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, FechaCaducidad:=FechaCaducidad.ToDate) Then
                     If GvIFDUltimoRegistrado.Rows.Count > 0 Then
+                        GvIFDUltimoRegistrado.Columns(4).Visible = CveSeccionAlmacen > 0
+                        GvIFDUltimoRegistrado.Columns(6).Visible = Lote <> "-1"
+                        GvIFDUltimoRegistrado.Columns(7).Visible = FechaCaducidad <> "01/01/1900"
+
                         GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now
                         GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString
                         GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString
                         GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PS").ToString
-                        GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = TxtCodigoSerie.Text.Trim
-                        GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCantidadProducto.Text.Trim
+                        GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = SeccionAlmacen
+                        GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCodigoSerie.Text.Trim
+                        GvIFDUltimoRegistrado.Rows(0).Cells(6).Text = Lote
+                        GvIFDUltimoRegistrado.Rows(0).Cells(7).Text = FechaCaducidad
+                        GvIFDUltimoRegistrado.Rows(0).Cells(8).Text = TxtCantidadProducto.Text.Trim
                     Else
                         Consulto = True
                         If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario) Then
@@ -308,6 +330,9 @@ Partial Class Inventarios_InventarioFisicoDetalle
                     TxtCodigoSerie.Text = ""
                     TxtCodigo.Text = ""
                     TxtCantidadProducto.Text = "1"
+                    DdlSeccionAlmacen.SelectedValue = "-1"
+                    TxtLote.Text = ""
+                    TxtFechaCaducidad.Text = ""
                     RegistraScript("playsonidito('beep-07.wav')")
                 Else
                     TxtCodigoSerie.Text = ""
@@ -320,6 +345,9 @@ Partial Class Inventarios_InventarioFisicoDetalle
             TxtCodigoBarras.Text = ""
             TxtCodigoSerie.Text = ""
             TxtCodigo.Text = ""
+            DdlSeccionAlmacen.SelectedValue = "-1"
+            TxtLote.Text = ""
+            TxtFechaCaducidad.Text = ""
             Alert("No se encontró el producto, favor de escribirlo correctamente.", TipoMensaje.MsgError)
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
         End If
@@ -491,4 +519,17 @@ Partial Class Inventarios_InventarioFisicoDetalle
         ' UsuarioActual.CveUsuario
         '
     End Sub
+
+    Protected Sub TxtCodigoBarras_Change(sender As Object, e As EventArgs)
+        Dim Producto As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoBarras.Text}'")
+
+        Dim AplicaSeccion As Boolean = Producto("AplicaSeccion") = "1"
+        Dim AplicaCaducidad As Boolean = Producto("AplicaCaducidad") = "1"
+        Dim AplicaLote As Boolean = Producto("AplicaLote") = "1"
+
+        divSeccionAlmacen.Visible = AplicaSeccion
+        divLote.Visible = AplicaLote
+        divFechaCaducidad.Visible = AplicaCaducidad
+        UPAgregarPro.Update()
+    End Sub
 End Class

Inventarios/RepTraspasoAlmacen.aspx.vb

@@ -77,11 +77,12 @@ Partial Class RepTraspasoAlmacen
         If ObjInventarios.RepTraspasoAlmacen(FechaI.ToDate, FechaF.ToDate, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, ChkRecibido.Checked, UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = ObjInventarios.DtResultados
             DtInventarios = ObjInventarios.DtResultados
-            GvDatos.DataBind()
-            UPDatos.Update()
+
         End If
 
         ObjInventarios.Dispose()
+        GvDatos.DataBind()
+        UPDatos.Update()
     End Sub
 #End Region
 

OC/OC.aspx

@@ -1503,7 +1503,7 @@
 
             </div>
         </div>
-        <div class="col-md-3" runat="server" id="DivVentaRelacionada">
+        <div class="col-md-3" runat="server" id="DivVentaRelacionada" visible="false">
             <div class="portlet light xspadding  bordered">
                 <div class="portlet-title">
                     <div class="caption font-green">
@@ -1514,10 +1514,10 @@
                         <a href="javascript;" class="expand" data-original-title="" title=""></a>
                     </div>
                 </div>
-                <asp:GridView runat="server" ID="GvVentaRelacionadas" AutoGenerateColumns="False" DataKeyNames="CveVenta,Folio"
+                <asp:GridView runat="server" ID="GvVentaRelacionadas" AutoGenerateColumns="False" DataKeyNames="CveVenta,SerieFolio"
                     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}" />
+                        <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                     </Columns>
                 </asp:GridView>
             </div>

OC/OC.aspx.vb

@@ -518,8 +518,7 @@ Partial Class OC
                 End If
 
                 CargaDatos(CveOrdenCompra)
-                'CARGA VENTA RELACIONADA
-                CargaVentaRelacionada()
+
             Else
                 EsNuevo = True
                 InicializarValores()
@@ -1388,6 +1387,15 @@ Partial Class OC
                             LblUsuarioAsignado.Text = objOC.UsuarioAsignado
                         End If
 
+                        'CARGA VENTA RELACIONADA
+                        If objOC.GetVentasRelacionadas(pCveOrdenCompra) Then
+
+                            If objOC.DtResultados.Rows.Count > 0 Then
+                                DivVentaRelacionada.Visible = True
+                                GvVentaRelacionadas.DataSource = objOC.DtResultados
+                            End If
+                        End If
+
 
                     Case "REQ"
                         ViewState("TipoOC") = objOC.Tipo
@@ -1651,6 +1659,7 @@ Partial Class OC
         End If
 
         objOC.Dispose()
+        GvVentaRelacionadas.DataBind()
 
         'CARGA MOVTOS DE ALMACEN
         InicializaMovtosAlmacen()
@@ -2811,52 +2820,52 @@ Partial Class OC
                             End If
 
                             'AJUSTES EN INVENTARIO
-                            For Each DrDiferencias As DataRow In DtInvOCDiferencias.FiltraParametros("ConceptoSalida IN (0,2)", "", {"CveAlmacen", "ConceptoSalida", "CveMovimiento"}).Rows
-                                CveAlmacen = DrDiferencias("CveAlmacen").ToString.ToEntero
-                                CveMovimientoAlmacen = DrDiferencias("CveMovimiento").ToString.ToEntero
-                                ConceptoSalida = DrDiferencias("ConceptoSalida").ToString.ToEntero
+                            'For Each DrDiferencias As DataRow In DtInvOCDiferencias.FiltraParametros("ConceptoSalida IN (0,2)", "", {"CveAlmacen", "ConceptoSalida", "CveMovimiento"}).Rows
+                            '    CveAlmacen = DrDiferencias("CveAlmacen").ToString.ToEntero
+                            '    CveMovimientoAlmacen = DrDiferencias("CveMovimiento").ToString.ToEntero
+                            '    ConceptoSalida = DrDiferencias("ConceptoSalida").ToString.ToEntero
 
-                                DiferenciaInvOC = DtInvOCDiferencias.SUMD("Diferencia", $"CveAlmacen = {CveAlmacen} And CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = {ConceptoSalida}")
-                                TCInvOC = DtInvOCDiferencias.FiltroPrimeroValor("TipoCambioAjuste", $"CveAlmacen = {CveAlmacen} And CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = {ConceptoSalida}").ToDecimal
-                                IdCtaContableAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero
-                                CveCuentaAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero
+                            '    DiferenciaInvOC = DtInvOCDiferencias.SUMD("Diferencia", $"CveAlmacen = {CveAlmacen} And CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = {ConceptoSalida}")
+                            '    TCInvOC = DtInvOCDiferencias.FiltroPrimeroValor("TipoCambioAjuste", $"CveAlmacen = {CveAlmacen} And CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = {ConceptoSalida}").ToDecimal
+                            '    IdCtaContableAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero
+                            '    CveCuentaAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero
 
-                                'MODIFICACIÓN CONCEPTO 
-                                If ConceptoSalida = 0 Then
-                                    For Each DrAjuste As DataRow In DtInvOC.FiltraParametros($"CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = 0").Rows
-                                        If Not ObjInventarios.UpdateMovimientoDetalle(DrAjuste("Cantidad").ToString.ToDouble, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("CvePS").ToString.ToEntero, DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovto", $"CveOrdenCompraDetalle = {DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble, -1, DrAjuste("CveMovimientoDetalle").ToString.ToEntero, PUTC:=DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovtoDLLS", $"CveOrdenCompraDetalle = {DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble) Then
-                                            TieneError = True
-                                            Exit For
-                                        End If
-                                    Next
-                                End If
+                            '    'MODIFICACIÓN CONCEPTO 
+                            '    If ConceptoSalida = 0 Then
+                            '        For Each DrAjuste As DataRow In DtInvOC.FiltraParametros($"CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = 0").Rows
+                            '            If Not ObjInventarios.UpdateMovimientoDetalle(DrAjuste("Cantidad").ToString.ToDouble, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("CvePS").ToString.ToEntero, DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovto", $"CveOrdenCompraDetalle = {DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble, -1, DrAjuste("CveMovimientoDetalle").ToString.ToEntero, PUTC:=DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovtoDLLS", $"CveOrdenCompraDetalle = {DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble) Then
+                            '                TieneError = True
+                            '                Exit For
+                            '            End If
+                            '        Next
+                            '    End If
 
-                                'SALIDA ADMINISTRATIVA (CON SALIDA POR TRASPASO) -AJUSTE
-                                If ConceptoSalida = 2 Then
-                                    Dim CveMovimientoSalidaAjuste = ObjInventarios.AddMovimiento(CveAlmacen, 3, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, MovimientoFijo:=True, Modulo:="OC/G")
-                                    For Each DrAjuste As DataRow In DtInvOC.FiltraParametros($"CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = 2").Rows
-                                        If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoSalidaAjuste, DrAjuste("Cantidad").ToString.ToDouble, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("PU").ToString.ToDouble, -1, CveOrdenCompraDetalle:=DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero) Then
-                                            TieneError = True
-                                            Exit For
-                                        End If
-                                    Next
-                                    Dim CveMovimientoEntradaAjuste = ObjInventarios.AddMovimiento(CveAlmacen, 2, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Modulo:="OC/G")
-                                    If ObjInventarios.GetMovimientosDetalle(CveMovimientoSalidaAjuste, UsuarioActual.CveEmpresa) Then
-                                        For Each Dr As DataRow In ObjInventarios.DtResultados.Rows
-                                            If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoEntradaAjuste, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovto", $"CveOrdenCompraDetalle = {Dr("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble, Dr("CveAF").ToString.ToEntero, -1, Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
-                                                TieneError = True
-                                                Exit For
-                                            End If
-                                        Next
-                                        If TieneError Then
-                                            Exit For
-                                        End If
-                                    Else
-                                        TieneError = True
-                                        Exit For
-                                    End If
-                                End If
-                            Next
+                            '    'SALIDA ADMINISTRATIVA (CON SALIDA POR TRASPASO) -AJUSTE
+                            '    If ConceptoSalida = 2 Then
+                            '        Dim CveMovimientoSalidaAjuste = ObjInventarios.AddMovimiento(CveAlmacen, 3, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, MovimientoFijo:=True, Modulo:="OC/G")
+                            '        For Each DrAjuste As DataRow In DtInvOC.FiltraParametros($"CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = 2").Rows
+                            '            If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoSalidaAjuste, DrAjuste("Cantidad").ToString.ToDouble, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("PU").ToString.ToDouble, -1, CveOrdenCompraDetalle:=DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero) Then
+                            '                TieneError = True
+                            '                Exit For
+                            '            End If
+                            '        Next
+                            '        Dim CveMovimientoEntradaAjuste = ObjInventarios.AddMovimiento(CveAlmacen, 2, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Modulo:="OC/G")
+                            '        If ObjInventarios.GetMovimientosDetalle(CveMovimientoSalidaAjuste, UsuarioActual.CveEmpresa) Then
+                            '            For Each Dr As DataRow In ObjInventarios.DtResultados.Rows
+                            '                If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoEntradaAjuste, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovto", $"CveOrdenCompraDetalle = {Dr("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble, Dr("CveAF").ToString.ToEntero, -1, Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
+                            '                    TieneError = True
+                            '                    Exit For
+                            '                End If
+                            '            Next
+                            '            If TieneError Then
+                            '                Exit For
+                            '            End If
+                            '        Else
+                            '            TieneError = True
+                            '            Exit For
+                            '        End If
+                            '    End If
+                            'Next
 
                         End If
                     End If
@@ -2918,11 +2927,11 @@ Partial Class OC
 
             'COMMIT
             If Not TieneError Then
-                If MonedaTexto <> DdlMoneda.SelectedItem.Text Then
-                    If Not OCBitacora.AddEventoBitacora(String.Format("Se cambió el valor de moneda de '{0}' a '{1}'", MonedaTexto, DdlMoneda.SelectedItem.Text), "-1", UsuarioActual.CveUsuario, CveEmpresaActual, CveOC:=CveOrdenCompra) Then
-                        TieneError = True
-                    End If
-                End If
+                'If MonedaTexto <> DdlMoneda.SelectedItem.Text Then
+                '    If Not OCBitacora.AddEventoBitacora(String.Format("Se cambió el valor de moneda de '{0}' a '{1}'", MonedaTexto, DdlMoneda.SelectedItem.Text), "-1", UsuarioActual.CveUsuario, CveEmpresaActual, CveOC:=CveOrdenCompra) Then
+                '        TieneError = True
+                '    End If
+                'End If
                 OC.Commit()
                 If Conta IsNot Nothing Then Conta.Commit()
 
@@ -7914,22 +7923,22 @@ Partial Class OC
         '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
+    '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

OC/RepOC.aspx.vb

@@ -150,7 +150,7 @@ Partial Class RepOC
 
         If Not UsuarioActual.Empresa.Funcionalidad(105).ToString = "1" Then
             DDlPS.ddl.Items.Clear()
-            DDlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, Estatus:=1, AplicaParaVenta:=1)
+            DDlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, Estatus:=1)
             DDlPS.ddl.DataBind()
             DDlPS.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
             DDlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))

TareasProgramadas/Tareas119.ashx

@@ -2,7 +2,13 @@
 
 using System;
 using System.Web;
-using Extensiones;
+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
 {
@@ -15,7 +21,10 @@ public class TareasJam : IHttpHandler
         string Metodo = context.Request["Metodo"] ==null?"": context.Request["Metodo"];
         int CveEmpresa =context.Request["CveEmpresa"] ==null?0: context.Request["CveEmpresa"].ToEntero();
         switch (Metodo)
-        {
+        {
+            case "TestConexion":
+                retorno  = PruebaConexionFTP("ftp://us2.hostedftp.com/", "agrojam", "A12345678");
+                break;
             case "EjecutaThalamus":
                 retorno =EjecutaThalamus(CveEmpresa);
                 break;
@@ -31,16 +40,294 @@ public class TareasJam : IHttpHandler
             context.Response.Write("False");
 
         }
-        context.Response.End();
-        //ModExtensiones.GuardaLogAD(string.Format("{3} CveEmpresa={0} cveTareaProgramada={1} CveTareaProgramadaHistorial={2}", CveEmpresa, cveTareaProgramada, CveTareaProgramadaHistorial, Metodo), "Tareas Programadas");
-    }
-    public bool EjecutaThalamus(int CveEmpresa)
-    {
-        return true;
-    }
-    public bool IsReusable
-    {
-        get { return false; }
+        context.Response.End();
+
+    }
+    private bool EjecutaThalamus(int CveEmpresa)
+    {
+
+        ClsGenerales ObjGenerales = new ClsGenerales();
+
+        DataTable DTProductos = new DataTable();
+        DataTable DTVentas = new DataTable();
+        DataTable DTClientes = new DataTable();
+        DataTable DTAlmacenes = new DataTable();
+
+        bool ErrorProceso = false;
+
+        if (ObjGenerales.GetJAMCorveta(1))
+        {
+            DTProductos = ObjGenerales.DtResultados.Copy();
+        }
+        else { ErrorProceso = true; }
+
+        if (ObjGenerales.GetJAMCorveta(2))
+        {
+            DTVentas = ObjGenerales.DtResultados.Copy();
+        }
+        else { ErrorProceso = true; }
+
+        if (ObjGenerales.GetJAMCorveta(3))
+        {
+            DTClientes = ObjGenerales.DtResultados.Copy();
+        }
+        else { ErrorProceso = true; }
+
+        if (ObjGenerales.GetJAMCorveta(4))
+        {
+            DTAlmacenes = ObjGenerales.DtResultados.Copy();
+        }
+        else { ErrorProceso = true; }
+
+        ObjGenerales.Dispose();
+
+        if (!ErrorProceso)
+        {
+            string RutaProductos = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Productos{DateTime.Now.ToString("yyyyMMdd")}.xlsx";
+            string RutaVentas = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Ventas{DateTime.Now.ToString("yyyyMMdd")}.xlsx";
+            string RutaClientes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Clientes{DateTime.Now.ToString("yyyyMMdd")}.xlsx";
+            string RutaAlmacenes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Almacenes{DateTime.Now.ToString("yyyyMMdd")}.xlsx";
+
+
+            string FTPServer = "ftp://127.0.0.1/";
+            string TFPUsr = "Toor";
+            string FTPPass = "agj-3500";
+
+            SpreadsheetInfo.SetLicense(Extensiones.ModExtensiones.SerialGemBoxSpreadsheet());
+
+            var workbookProductos = new ExcelFile();
+            var worksheetProductos = workbookProductos.Worksheets.Add("Productos");
+            worksheetProductos.InsertDataTable(DTProductos, new InsertDataTableOptions()
+            {
+                ColumnHeaders = true,
+                StartRow = 0
+            });
+            workbookProductos.Save(RutaProductos);
+
+            var workbookVentas = new ExcelFile();
+            var worksheetVentas = workbookVentas.Worksheets.Add("Ventas");
+            worksheetVentas.InsertDataTable(DTVentas, new InsertDataTableOptions()
+            {
+                ColumnHeaders = true,
+                StartRow = 0
+            });
+            workbookVentas.Save(RutaVentas);
+
+
+            var workbookClientes = new ExcelFile();
+            var worksheetClientes = workbookClientes.Worksheets.Add("Clientes");
+            worksheetClientes.InsertDataTable(DTClientes, new InsertDataTableOptions()
+            {
+                ColumnHeaders = true,
+                StartRow = 0
+            });
+            workbookClientes.Save(RutaClientes);
+
+
+            var workbookAlmacenes = new ExcelFile();
+            var worksheetAlmacenes = workbookClientes.Worksheets.Add("Almacenes");
+            worksheetAlmacenes.InsertDataTable(DTAlmacenes, new InsertDataTableOptions()
+            {
+                ColumnHeaders = true,
+                StartRow = 0
+            });
+            workbookClientes.Save(RutaAlmacenes);
+
+
+            var FInfoProductos = new FileInfo(RutaProductos);
+            var FInfoVentas = new FileInfo(RutaVentas);
+            var FInfoClientes = new FileInfo(RutaClientes);
+            var FInfoAlmacenes = new FileInfo(RutaAlmacenes);
+
+
+            bool CargaProductos = false;
+            bool CargaVentas = false;
+            bool CargaClientes = false;
+            bool CargaAlmacenes = false;
+
+            CargaProductos = CargarArchivos(FInfoProductos, FTPServer, TFPUsr, FTPPass);
+            if (CargaProductos)
+            {
+                CargaProductos = VerificarArchivo(FInfoProductos, FInfoProductos.Length, FTPServer, TFPUsr, FTPPass);
+            }
+
+            if (CargaProductos)
+            {
+                CargaVentas = CargarArchivos(FInfoVentas, FTPServer, TFPUsr, FTPPass);
+                if (CargaVentas)
+                {
+                    CargaVentas = VerificarArchivo(FInfoVentas, FInfoVentas.Length, FTPServer, TFPUsr, FTPPass);
+                }
+            }
+
+            if (CargaProductos & CargaVentas)
+            {
+                CargaClientes = CargarArchivos(FInfoClientes, FTPServer, TFPUsr, FTPPass);
+                if (CargaClientes)
+                {
+                    CargaClientes = VerificarArchivo(FInfoClientes, FInfoClientes.Length, FTPServer, TFPUsr, FTPPass);
+                }
+            }
+
+
+            if (CargaProductos & CargaVentas& CargaClientes )
+            {
+                CargaAlmacenes = CargarArchivos(FInfoAlmacenes, FTPServer, TFPUsr, FTPPass);
+                if (CargaClientes)
+                {
+                    CargaAlmacenes = VerificarArchivo(FInfoAlmacenes, FInfoAlmacenes.Length, FTPServer, TFPUsr, FTPPass);
+                }
+            }
+
+
+            if (CargaProductos & CargaVentas & CargaClientes & CargaAlmacenes)
+            {
+                return true;
+            }
+            else
+            {
+                return false;
+            }
+
+        }
+        else
+        {
+            return false;
+        }
+
+    }
+
+
+
+    private bool CargarArchivos(FileInfo FInfo, 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)
+            {
+                Extensiones.ModExtensiones.GuardaLog(null,$"Error Tareas Programadas 119 Conexión a servidor FTP archivo { FInfo.Name }  {ex.Message} ");
+            }
+
+            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;
+                }
+                catch (Exception ex)
+                {
+                    Respuesta = false;
+                    Extensiones.ModExtensiones.GuardaLog(null,$"Error Tareas Programadas 119 cargando archivo { FInfo.Name }  {ex.Message} ");
+                }
+
+                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(FileInfo FInfo, long Tamanio, string FTPServer, string FTPUsr, string FTPPass)
+    {
+        bool Respuesta = false;
+
+
+        try
+        {
+            FtpWebRequest request = (FtpWebRequest)WebRequest.Create($"{FTPServer}/{FInfo.Name}");
+            request.Credentials = new NetworkCredential(FTPUsr, FTPPass);
+            request.Method = WebRequestMethods.Ftp.GetFileSize;
+            request.UseBinary = true;
+            FtpWebResponse loginresponse = (FtpWebResponse)request.GetResponse();
+            FtpWebResponse respSize = (FtpWebResponse)request.GetResponse();
+            respSize = (FtpWebResponse)request.GetResponse();
+            long size = respSize.ContentLength;
+            respSize.Close();
+            if (Tamanio == size)
+            {
+                Respuesta = true;
+            }
+
+        }catch(Exception ex)
+        {
+            Extensiones.ModExtensiones.GuardaLog(null,$"Error Tareas Programadas 119 verificando archivo { FInfo.Name }  {ex.Message} ");
+            Respuesta = false;
+        }
+
+        return Respuesta;
+    }
+
+    private bool PruebaConexionFTP( string FTPServer, string FTPUsr, string FTPPass)
+    {
+        bool Respuesta = false;
+
+        FtpWebRequest request =(FtpWebRequest)WebRequest.Create($"{FTPServer}/Test.log");
+        request.Method = WebRequestMethods.Ftp.ListDirectory;
+
+        request.Credentials = new NetworkCredential(FTPUsr, FTPPass);
+
+        try
+        {
+            request.GetResponse();
+            Respuesta = true;
+        }
+        catch (Exception ex)
+        {
+            Extensiones.ModExtensiones.GuardaLog(null, $"Error Tareas Programadas 119 error Prueba de Conexión a servidor FTP archivo {ex.Message} ");
+        }
+
+        return Respuesta;
+
+    }
+
+
+    public bool IsReusable
+    {
+        get { return false; }
     }
 
 }

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; }
+    }
+
+}

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

Ventas/Clientes.aspx.vb

@@ -5983,7 +5983,7 @@ Partial Class Clientes
 
 #Region "C U E N T A S - B A N C A R I A S"
 
-    Private Sub CargaCuentasBancarias()
+    Private Sub CargaCuentasBancarias(Optional RecargaGlobal As Boolean = False)
 
         If CveCliente <= 0 Then Exit Sub
 
@@ -6004,9 +6004,8 @@ Partial Class Clientes
         End If
 
         ObjCuentasBancos.Dispose()
-        CargaPSGridCuentasBancos()
-
-        RecargaGlobalCuentasBancarias()
+        CargaPSGridCuentasBancos()
+
         CargaMonedas()
     End Sub
     Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
@@ -6208,13 +6207,10 @@ Partial Class Clientes
         RecargaGlobalCuentasBancarias()
     End Sub
     Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
-        If CveCliente > 0 Then
-            Dim ObjCuentasBancos As New ClsGenerales
-
-            If ObjCuentasBancos.GetCuentasDepositos() Then
-                GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
-            End If
-            ObjCuentasBancos.Dispose()
+        If CveCliente > 0 Then
+
+            GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing
+
         End If
     End Sub
 

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))

Ventas/RepCancelacionesPorRespuesta.aspx.cs

@@ -34,39 +34,48 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
     private void CargaDatos()
     {
         HdnLigaRefacturar.Value = "";
+
         if (Request["CveVenta"] != null)
         {
             this.CveVenta = Request["CveVenta"].ToString().ToEntero();
         }
+
         var ObjVentas = new ClsVentas();
         if (ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", -1, -1, -2, -1, "-1", "-1", "-1", CveUsuarioConsulta: UsuarioActual.CveUsuario))
-        {
-            if (CveVenta > 0)
-            {
-                DtVentas = ObjVentas.DtResultados.FiltraParametros($"CveVenta={CveVenta}");
-            }
-            else
-            {
-                DtVentas = ObjVentas.DtResultados.Copy();
+        {
+
+            if (Request["CveVenta"] != null && Request["CveVenta"].ToString().ToEntero() > 0)
+            {
+                DtVentas = ObjVentas.DtResultados.FiltraParametros($"CveVenta={Request["CveVenta"].ToString().ToEntero()}");
+            }
+            else
+            {
+                DtVentas = ObjVentas.DtResultados.Copy();
             }
         }
+
         ObjVentas.Dispose();
         GvDatos.DataSource = DtVentas.FiltraParametros("CveEstatusFactura = 20 AND CveEstatusRefacturacion = 0");
+
         var DtRefacturar = DtVentas.FiltraParametros("CveEstatusRefacturacion IN (1,3)");
-        if (DtRefacturar.Rows.Count > 0)
+        if (DtRefacturar != null && DtRefacturar.Rows.Count > 0)
         {
             DivRefacturar.Visible = true;
             GvRefacturaciones.DataSource = DtRefacturar;
             GvRefacturaciones.DataBind();
         }
+
         GvDatos.DataBind();
         UPDatos.Update();
     }
     protected void BtnValidar_Click(object sender, EventArgs e)
     {
-        HdnLigaRefacturar.Value = "";
+        this.HdnLigaRefacturar.Value = "";
+        this.CveVenta = -1;
+
         GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
-        int CveVenta = GvRow.DataKey("CveVenta").ToEntero();
+        this.CveVenta = GvRow.DataKey("CveVenta").ToEntero();
+
         int CveCliente = GvRow.DataKey("CveCliente").ToEntero();
         string Total = GvRow.DataKey("Total");
         string SubTotal = GvRow.DataKey("SubTotal");
@@ -92,9 +101,12 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
     }
     protected void BtnValidarRefacturacion_Click(object sender, EventArgs e)
     {
-        HdnLigaRefacturar.Value = "";
+        this.HdnLigaRefacturar.Value = "";
+        this.CveVenta = -1;
+
         GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
-        int CveVenta = GvRow.DataKey("CveVenta").ToEntero();
+        this.CveVenta = GvRow.DataKey("CveVenta").ToEntero();
+
         int CveCliente = GvRow.DataKey("CveCliente").ToEntero();
         string Total = GvRow.DataKey("Total");
         string SubTotal = GvRow.DataKey("SubTotal");
@@ -134,6 +146,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
     private MRespuestaSAT VerificarVigenciaSAT(int CveVenta, int CveCliente, string Folio, string TipoDocto, string uuid, string emisor, string receptor, string total, bool EsRefacturacion = false)
     {
         HdnLigaRefacturar.Value = "";
+
         var retorno = new MRespuestaSAT()
         {
             Mensaje = "",
@@ -291,7 +304,10 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
     }
 
     protected void LnkValidar_Click(object sender, EventArgs e)
-    {
+    {
+        this.HdnLigaRefacturar.Value = "";
+        this.CveVenta = -1;
+
         if (DtVentas != null)
         {
             var sb = new StringBuilder();
@@ -328,7 +344,14 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
     }
     public void BtnEnviarMailCancelacion_Click(object sender, EventArgs e)
     {
-        ImprimeCancelacion(CveVenta);
+        if (this.CveVenta > 0)
+        {
+            ImprimeCancelacion(this.CveVenta);
+        }
+        else
+        {
+            Alert("No se encontro la factura para enviar el acuse", TipoMensaje.MsgAdvertencia);
+        }
     }
 
     public void ImprimeCancelacion(int CveVenta)

Ventas/Ventas.aspx

@@ -3288,7 +3288,7 @@
                                                 <asp:TextBox ID="TxtKilometraje" runat="server" Width="250px" CssClass="form-control input-sm"></asp:TextBox></td>
                             </tr>
                             <tr align="left" id="trCorreoNotif1" runat="server" visible="false">
-                                <td id="Td1" runat="server">Correo Notificacion:&nbsp;</td>
+                                <td id="Td1" runat="server">Correo Notificación Usuario Final: &nbsp;</td>
                             </tr>
                             <tr align="left" id="trCorreoNotif2" runat="server" visible="false">
                                 <td>
@@ -3313,12 +3313,15 @@
                             <tr align="left" id="trPaqueteriaOpciones" runat="server" visible="false">
                                 <td colspan="2">
                                     <asp:RadioButtonList runat="server" ID="RblPaqueteria">
-                                        <asp:ListItem Value="1" Text="Entrega En Mostrador" />
+                                        <asp:ListItem Value="1" Selected="True" Text="Entrega En Mostrador" />
                                         <asp:ListItem Value="2" Text="Entrega Interna" />
                                         <asp:ListItem Value="3" Text="Entrega Externa" />
                                     </asp:RadioButtonList>
                                 </td>
                             </tr>
+                            <tr align="left" id="trPaqueteriaDirectaLabel" runat="server" visible="false">
+                                <td id="Td4" runat="server">Tipo de Entrega:&nbsp;<b>Entrega Directa</b></td>
+                            </tr>
                         </table>
                     </div>
                 </ContentTemplate>

Ventas/Ventas.aspx.vb

@@ -2308,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")
@@ -2348,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()
@@ -6935,6 +6949,8 @@ Partial Class Ventas
                 Dim ObjEventos As New ClsOIEventos(ObjVentas.IniciaTransacSQL())
                 Dim ObjCGame As New ClsCGame(ObjVentas.IniciaTransacSQL())
                 Dim ObjDocCliente As New ClsEdocumentacion(ObjVentas.IniciaTransacSQL())
+                Dim ObjGeneral As New ClsGenerales(ObjVentas.IniciaTransacSQL())
+
                 Dim ObjContPaq As ClsContPAQi = Nothing
                 'Dim ObjFolios As New ClsGralFolios(ObjVentas.IniciaTransacSQL())
                 ErrorList = New List(Of String)
@@ -7019,6 +7035,14 @@ Partial Class Ventas
                             Exit For
                         End If
                     Next
+
+                    'REGISTRAR UNA ENTREGA DIRECTA
+                    If TmpDT.COUNT("EntregaDirecta", "EntregaDirecta = 1") > 0 Then
+                        If Not RegistrarPaqueteriaGuia(ObjGeneral, ObjFactura.CveVenta) Then
+                            ErrorList.Add("Ocurrió un error al registrar la guia")
+                        End If
+                    End If
+
                 End If
 
                 If Not String.IsNullOrEmpty(TipoDoctoViejo) Then
@@ -9345,6 +9369,14 @@ Partial Class Ventas
                 End If
 
                 ObjClientes.Dispose()
+
+                'REGISTRAR UNA ENTREGA DIRECTA
+                If TmpDT.COUNT("EntregaDirecta", "EntregaDirecta = 1") > 0 Then
+                    trPaqueteriaOpciones.Visible = False
+                    trPaqueteriOpcionesLabel.Visible = False
+                    trPaqueteriaDirectaLabel.Visible = True
+                End If
+
                 BtnEmitirImprimir.Text = "Facturar"
                 DdlTipoComprobante.SelectedValue = "Ing"
                 DdlTipoComprobante.Enabled = False
@@ -9352,7 +9384,7 @@ Partial Class Ventas
                 Tab.ActiveTab = TabGenerales
                 TabGenerales.Enabled = True
                 Updatetabs.Update()
-
+                UPObservaciones.Update()
 
                 'Else
                 '    If TieneContrato Then
@@ -10806,6 +10838,14 @@ Partial Class Ventas
                                     'Se agrega movimiento separado por la cuenta de ventas (ER)
                                     For Each Row2 As DataRow In DT.Rows
                                         importeMovimiento = (TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
+
+                                        If ObjFactura.TipoDocto = "Egs" Then
+                                            importeMovimiento += (TmpDTDetalle.SUM("ImporteIVA", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
+                                            importeMovimiento += (TmpDTDetalle.SUM("ImporteIEPS", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
+                                            importeMovimiento -= (TmpDTDetalle.SUM("ImporteRetIVA", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
+                                            importeMovimiento -= (TmpDTDetalle.SUM("ImporteRetISR", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
+                                        End If
+
                                         importeMX = importeMovimiento * tipoCambio * Multiplicador
                                         FechaMovimiento = ObjFactura.FechaPago
                                         Concepto = $"{ViewState("VentaFolio").ToString()} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
@@ -10905,6 +10945,13 @@ Partial Class Ventas
                                 CveSubProyectoContabilizar = CveSubProyectoVenta
                                 If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
 
+                                If ObjFactura.TipoDocto = "Dev" Then
+                                    TipoMovimiento = True
+                                    ConceptoContable = 62
+                                    importeMovimiento = importeMovimiento * -1
+                                    importeMX = importeMX * -1
+                                End If
+
                                 'CONTABILIDAD CONTPAQ
                                 If IdCtaContRetIVA > 0 Then
                                     IdCtaContable = IdCtaContRetIVA
@@ -10927,7 +10974,6 @@ Partial Class Ventas
                                     End If
                                 End If
 
-
                             End If
                         Case 313 'Ret Iva Servicios
                             If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso ObjFactura.CveTipoRetencion = 4 Then 'SI TIENE RETENCION DE IVA DE SERVICIOS
@@ -10937,6 +10983,13 @@ Partial Class Ventas
                                 CveSubProyectoContabilizar = CveSubProyectoVenta
                                 If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
 
+                                If ObjFactura.TipoDocto = "Dev" Then
+                                    TipoMovimiento = True
+                                    ConceptoContable = 314
+                                    importeMovimiento = importeMovimiento * -1
+                                    importeMX = importeMX * -1
+                                End If
+
                                 'OBTENER CUENTAS
                                 If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
                                     If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -10953,6 +11006,14 @@ Partial Class Ventas
                                 importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
                                 FechaMovimiento = ObjFactura.FechaPago
                                 CveSubProyectoContabilizar = CveSubProyectoVenta
+
+                                If ObjFactura.TipoDocto = "Dev" Then
+                                    TipoMovimiento = True
+                                    ConceptoContable = 63
+                                    importeMovimiento = importeMovimiento * -1
+                                    importeMX = importeMX * -1
+                                End If
+
                                 If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
 
                                 'Contabilidad ContPAQ
@@ -10983,26 +11044,110 @@ Partial Class Ventas
                                 importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2)
                                 FechaMovimiento = ObjFactura.FechaPago
                                 PorcentajeImpuesto = TmpDT.MAX("PorcentajeIVA").ToDecimal
-                                IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
-                                CveCuenta = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar)
+
+                                If ObjFactura.TipoDocto = "Dev" Then
+                                    TipoMovimiento = True
+                                    ConceptoContable = 61
+                                    importeMovimiento = importeMovimiento * -1
+                                    importeMX = importeMX * -1
+
+                                    IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
+                                    CveCuenta = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado)
+                                Else
+                                    IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
+                                    CveCuenta = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar)
+                                End If
+
+
                                 CveSubProyectoContabilizar = CveSubProyectoVenta
                                 If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                             End If
 
 
+                            If ObjFactura.TipoDocto = "Egs" Then
+
+                                importeMovimiento = ObjFactura.IVA * ValorMultiplicador
+                                importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2)
+                                FechaMovimiento = ObjFactura.FechaPago
+                                PorcentajeImpuesto = TmpDT.MAX("PorcentajeIVA").ToDecimal
+
+                                If importeMovimiento <> 0 Then
+                                    'IVA X TRASLADAR
+                                    IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
+                                    CveCuentaIVAxTrasladar = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar)
+                                    Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString())
+
+                                    If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVAxTrasladar, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                        ErrorPrepoliza = True
+                                        Exit For
+                                    End If
+
+                                    'IVA PAGADO
+                                    IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
+                                    CveCuentaIVATrasladado = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado)
+                                    Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString())
+
+                                    If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVATrasladado, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                        ErrorPrepoliza = True
+                                        Exit For
+                                    End If
+                                End If
+
+
+                                importeMovimiento = 0
+                                importeMX = 0
+                            End If
+
+
                         Case 38 'IEPS por Trasladar
                             If Not ObjFactura.TipoDocto.Contiene("Rem") Then
                                 importeMovimiento = ObjFactura.IEPS * ValorMultiplicador
                                 importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2)
                                 FechaMovimiento = ObjFactura.Fecha
                                 CveSubProyectoContabilizar = CveSubProyectoVenta
-                                If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
-                                If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
-                                    If ObjConta.DtResultados.Rows.Count > 0 Then
-                                        IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString().ToEntero()
-                                        CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladarSIG").ToString().ToEntero()
+
+                                If ObjFactura.TipoDocto = "Dev" Then
+                                    TipoMovimiento = True
+                                    ConceptoContable = 39
+                                    importeMovimiento = importeMovimiento * -1
+                                    importeMX = importeMX * -1
+
+                                    If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
+                                        If ObjConta.DtResultados.Rows.Count > 0 Then
+                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSTrasladado").ToString().ToEntero()
+                                            CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSTrasladadoSIG").ToString().ToEntero()
+                                        End If
+                                    End If
+                                Else
+                                    If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
+                                        If ObjConta.DtResultados.Rows.Count > 0 Then
+                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString().ToEntero()
+                                            CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladarSIG").ToString().ToEntero()
+                                        End If
                                     End If
                                 End If
+
+                                If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+
+                                If importeMovimiento <> 0 AndAlso ObjFactura.TipoDocto = "Egs" Then
+                                    'IEPS X TRASLADAR
+                                    Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString())
+                                    If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                        ErrorPrepoliza = True
+                                        Exit For
+                                    End If
+
+                                    'IEPS PAGADO
+                                    Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString())
+                                    If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                        ErrorPrepoliza = True
+                                        Exit For
+                                    End If
+
+                                    importeMovimiento = 0
+                                    importeMX = 0
+                                End If
+
                             End If
 
 
@@ -11373,11 +11518,6 @@ Partial Class Ventas
                             i = i + 1
                         Next
 
-                        'VERIFICA QUE SE REALIZO EL MOVIMIENTO DE ALMACEN
-                        If Not (ObjInventario.GetInv_Mov(factura.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0) Then
-                            OcurrioError = True
-                        End If
-
                         'REGISTRO LA PREPOLIZA DE COSTO VS ALMACEN
                         If Not OcurrioError Then
                             Dim DtCostos As DataTable = Nothing
@@ -11442,6 +11582,14 @@ Partial Class Ventas
 
                 End If
 
+                Dim DebeGenerarMovimiento As Boolean = TmpDT.COUNT("CvePS", "CveTipoPS = 2") > 0
+                'VERIFICA QUE SE REALIZO EL MOVIMIENTO DE ALMACEN
+                If DebeGenerarMovimiento AndAlso UsuarioActual.CveEmpresa = 141 AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
+                    If Not (ObjInventario.GetInv_Mov(factura.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0) Then
+                        OcurrioError = True
+                    End If
+                End If
+
             End If
 
         Catch ex As Exception
@@ -14341,6 +14489,8 @@ Partial Class Ventas
         If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then
             DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
         End If
+
+        TxtCorreoNotificaciones.Text = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltroPrimeroValor("Correo")
     End Sub
 #End Region
 
@@ -16129,6 +16279,9 @@ Partial Class Ventas
                             GuardaLog($"LOG IPP: Ventas LN: 10033. - DtRemisionesTmpDT.Rows.Count: {DtRemisionesTmpDT.Rows.Count} - ObjInventario.DtResultados.FiltraParametros('CvePS > 0').Rows.Count: {ObjInventario.DtResultados.FiltraParametros("CvePS > 0").Rows.Count} Ex:{ex.Message}")
                             DtMovimientosDetalles = New DataTable
                         End Try
+
+                        'SE FILTRAN LOS MOVIMIENTOS DE LA PARTE QUE SE FACTURA DE LA REMISION
+                        DtMovimientos = DtMovimientosDetalles.FiltraParametros("", DistinctColumns:={"CveMovimiento"})
                     Else
                         DtMovimientosDetalles = ObjInventario.DtResultados.FiltraParametros("CvePS > 0")
                     End If
@@ -16241,6 +16394,11 @@ Partial Class Ventas
                                         If Not OcurrioError Then
                                             OcurrioError = Not GeneroMovimientoAlmacen
                                         End If
+
+                                        If OcurrioError Then
+                                            Exit For
+                                        End If
+
                                     End If
 
                                 End If
@@ -16252,6 +16410,10 @@ Partial Class Ventas
                                     Exit For
                                 End If
                             End If
+
+                            If OcurrioError Then
+                                Exit For
+                            End If
                         Next
 
 
@@ -21938,6 +22100,38 @@ Partial Class Ventas
 
         ObjEventos.Dispose()
     End Sub
+
+    Private Function RegistrarPaqueteriaGuia(ByRef ObjGeneral As ClsGenerales, CveVenta As Integer) As Boolean
+        Dim ErrorMovInv As Boolean = False
+
+        Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
+
+        Dim CveEstatus As Integer = 1
+        Dim Fecha As String = Now.ToString("dd/MM/yyyy")
+        Dim FechaEstimada As String = "-1"
+        Dim NoCajas As Integer = 0
+        Dim Observaciones As String = ""
+        Dim CvePaqueteria As Integer = -1 ' GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero
+
+        If CveSubProyecto > 0 Then
+            Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "", "", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ImplicaCosto:=False)
+
+            If CvePaqueteriaGuia > 0 Then
+
+                If CveVenta > 0 OrElse CveSubProyecto > 0 Then
+                    If Not ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVenta, -1, -1, -1) Then
+                        ErrorMovInv = True
+                    End If
+                End If
+            Else
+                ErrorMovInv = True
+            End If
+        Else
+            ErrorMovInv = True
+        End If
+
+        Return Not ErrorMovInv
+    End Function
 #End Region
 
 #Region "  APLICAR NOTA DE CREDITO  "
@@ -23600,6 +23794,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
@@ -23686,9 +23889,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
@@ -25679,27 +25879,28 @@ Partial Class Ventas
     End Sub
 
     Private Sub MostrarOpcioensPaqueteria()
-        Dim mostrarOpcionesPaq As Boolean = DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ped")
+        Dim mostrarOpcionesPaq As Boolean = DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ped") And UsuarioActual.Empresa.Funcionalidad(280) = "1"
         trPaqueteriaOpciones.Visible = mostrarOpcionesPaq
         trPaqueteriOpcionesLabel.Visible = mostrarOpcionesPaq
+        trPaqueteriaDirectaLabel.Visible = False
     End Sub
 
     Private Sub NotificarPaqueteria()
-        Dim DtVendedores As DataTable = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        'Dim DtVendedores As DataTable = GlobalDTVendedores(UsuarioActual.CveEmpresa)
 
-        Dim CorreoVendedor As String = DtVendedores.FiltroPrimeroValor("Correo", String.Format("CveVendedor = {0}", DdlVendedor.SelectedValue))
-        Dim CorreoVendedorAdicional As String = DtVendedores.FiltroPrimeroValor("CorreoAdicionalNotificaciones", String.Format("CveVendedor = {0}", DdlVendedor.SelectedValue))
-        Dim CorreoCliente As String = Mail
-        Dim CorreoClienteAlmacen As String = CorreoEntregaAlmacen
-        Dim CorreoNotificacionCliente As String = MailCC
+        'Dim CorreoVendedor As String = DtVendedores.FiltroPrimeroValor("Correo", String.Format("CveVendedor = {0}", DdlVendedor.SelectedValue))
+        'Dim CorreoVendedorAdicional As String = DtVendedores.FiltroPrimeroValor("CorreoAdicionalNotificaciones", String.Format("CveVendedor = {0}", DdlVendedor.SelectedValue))
+        'Dim CorreoCliente As String = Mail
+        'Dim CorreoClienteAlmacen As String = CorreoEntregaAlmacen
+        'Dim CorreoNotificacionCliente As String = MailCC
 
-        Dim CorreosCC As String = String.Format("{0};{1};{2};{3}", CorreoVendedor, CorreoVendedorAdicional, CorreoCliente, CorreoNotificacionCliente)
-        Dim LogCorreo As String = String.Format("{0} -- {1} --- {2}", "Tipo de entrega", CorreoClienteAlmacen, CorreosCC)
-        LogCorreo.GuardaLog
+        'Dim CorreosCC As String = String.Format("{0};{1};{2};{3}", CorreoVendedor, CorreoVendedorAdicional, CorreoCliente, CorreoNotificacionCliente)
+        'Dim LogCorreo As String = String.Format("{0} -- {1} --- {2}", "Tipo de entrega", CorreoClienteAlmacen, CorreosCC)
+        'LogCorreo.GuardaLog
 
-        Dim MailCls As New ClsSisMail
-        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Entrega en mostrador", "Pendiente", CorreosCC)
-        MailCls = Nothing
+        'Dim MailCls As New ClsSisMail
+        'MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Entrega en mostrador", "Pendiente", CorreosCC)
+        'MailCls = Nothing
     End Sub
 
     Private Sub CargarOCRelacionadas()