Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

2020-06-16 16:24:09 -07:00
parent ce15f1dd07 7c15cc05ce
commit 1050358510
20 changed files with 555 additions and 102 deletions
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -2849,6 +2849,72 @@ Public Class ClsGenerales
        Return Retorno
    End Function

+    Public Function GetMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("Gral_MotivoRechazoPaqueteriaGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddMotivoRechazoPaqueteria(Descripcion As String, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("Gral_MotivoRechazoPaqueteriaAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("Gral_MotivoRechazoPaqueteriaDelete")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria As Integer, Optional Descripcion As String = "-1") As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("Gral_MotivoRechazoPaqueteriaUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al modificar el motivos de rechazo de entrega", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
 #End Region

 #Region "P A Q U E T E R I A S    G U I A S    D E T A L L E S"
--- a/App_Code/ClsOC.vb
+++ b/App_Code/ClsOC.vb
@@ -2532,7 +2532,23 @@ Public Class ClsOC
    End Function
 #End Region

+    Public Function GetVentasRelacionadas(CveOCDetalle As String) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_OC_VentaRelacionada")

+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveOCDetalles", SqlDbType.NVarChar).Value = CveOCDetalle
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener la venta relacionada", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function

 #Region " IDisposable Support "
    ' IDisposable
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3668,6 +3668,7 @@ Public Class ClsPaginas
            PaginaDict.Add("/Sistemas/CatPlataformas.aspx".ToUpper(), -1)
            PaginaDict.Add("/Sistemas/PopUpAddUsuario.aspx".ToUpper(), -1)
            PaginaDict.Add("/General/JAMComparativos.aspx".ToUpper(), 643)
+            PaginaDict.Add("/General/CatMotivoRechazoGuias.aspx".ToUpper(), 729)

            '-------------------------------------------Q U I T A R----------------------------------
 #Region "Q U I T A R"
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -4462,6 +4462,21 @@ Public Class ClsVentas
        End Try
        Return retorno
    End Function
+
+    Public Function GetOCRelacionadas(CveVentasDetalles As String) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Vta_OrdenCompraRelacionada", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVentasDetalles", SqlDbType.NVarChar).Value = CveVentasDetalles
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener la orden de compra relacionada", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
 #Region "Conciliación emitidas SAT"

    Public Function ConciliacionemitidasSATGet(cveEmpresa As Int32) As Boolean
--- a/App_Code/DtDatos.xsd
+++ b/App_Code/DtDatos.xsd
@@ -12,7 +12,7 @@
  <xs:element name="DtDatos" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:Generator_DataSetName="DtDatos" msprop:Generator_UserDSName="DtDatos">
    <xs:complexType>
      <xs:choice minOccurs="0" maxOccurs="unbounded">
-        <xs:element name="DataTable1" msprop:Generator_TableClassName="DataTable1DataTable" msprop:Generator_TableVarName="tableDataTable1" msprop:Generator_RowChangedName="DataTable1RowChanged" msprop:Generator_TablePropName="DataTable1" msprop:Generator_RowDeletingName="DataTable1RowDeleting" msprop:Generator_RowChangingName="DataTable1RowChanging" msprop:Generator_RowEvHandlerName="DataTable1RowChangeEventHandler" msprop:Generator_RowDeletedName="DataTable1RowDeleted" msprop:Generator_RowClassName="DataTable1Row" msprop:Generator_UserTableName="DataTable1" msprop:Generator_RowEvArgName="DataTable1RowChangeEvent">
+        <xs:element name="DataTable1" msprop:Generator_TableClassName="DataTable1DataTable" msprop:Generator_TableVarName="tableDataTable1" msprop:Generator_TablePropName="DataTable1" msprop:Generator_RowDeletingName="DataTable1RowDeleting" msprop:Generator_RowChangingName="DataTable1RowChanging" msprop:Generator_RowEvHandlerName="DataTable1RowChangeEventHandler" msprop:Generator_RowDeletedName="DataTable1RowDeleted" msprop:Generator_UserTableName="DataTable1" msprop:Generator_RowChangedName="DataTable1RowChanged" msprop:Generator_RowEvArgName="DataTable1RowChangeEvent" msprop:Generator_RowClassName="DataTable1Row">
          <xs:complexType>
            <xs:sequence>
              <xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -28,7 +28,7 @@
            </xs:sequence>
          </xs:complexType>
        </xs:element>
-        <xs:element name="VentaUtilidadDetalle" msprop:Generator_TableClassName="VentaUtilidadDetalleDataTable" msprop:Generator_TableVarName="tableVentaUtilidadDetalle" msprop:Generator_TablePropName="VentaUtilidadDetalle" msprop:Generator_RowDeletingName="VentaUtilidadDetalleRowDeleting" msprop:Generator_RowChangingName="VentaUtilidadDetalleRowChanging" msprop:Generator_RowEvHandlerName="VentaUtilidadDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="VentaUtilidadDetalleRowDeleted" msprop:Generator_UserTableName="VentaUtilidadDetalle" msprop:Generator_RowChangedName="VentaUtilidadDetalleRowChanged" msprop:Generator_RowEvArgName="VentaUtilidadDetalleRowChangeEvent" msprop:Generator_RowClassName="VentaUtilidadDetalleRow">
+        <xs:element name="VentaUtilidadDetalle" msprop:Generator_TableClassName="VentaUtilidadDetalleDataTable" msprop:Generator_TableVarName="tableVentaUtilidadDetalle" msprop:Generator_RowChangedName="VentaUtilidadDetalleRowChanged" msprop:Generator_TablePropName="VentaUtilidadDetalle" msprop:Generator_RowDeletingName="VentaUtilidadDetalleRowDeleting" msprop:Generator_RowChangingName="VentaUtilidadDetalleRowChanging" msprop:Generator_RowEvHandlerName="VentaUtilidadDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="VentaUtilidadDetalleRowDeleted" msprop:Generator_RowClassName="VentaUtilidadDetalleRow" msprop:Generator_UserTableName="VentaUtilidadDetalle" msprop:Generator_RowEvArgName="VentaUtilidadDetalleRowChangeEvent">
          <xs:complexType>
            <xs:sequence>
              <xs:element name="CantVta" msprop:Generator_ColumnVarNameInTable="columnCantVta" msprop:Generator_ColumnPropNameInRow="CantVta" msprop:Generator_ColumnPropNameInTable="CantVtaColumn" msprop:Generator_UserColumnName="CantVta" type="xs:decimal" minOccurs="0" />
@@ -46,7 +46,7 @@
            </xs:sequence>
          </xs:complexType>
        </xs:element>
-        <xs:element name="RepClientesCxC" msprop:Generator_TableClassName="RepClientesCxCDataTable" msprop:Generator_TableVarName="tableRepClientesCxC" msprop:Generator_TablePropName="RepClientesCxC" msprop:Generator_RowDeletingName="RepClientesCxCRowDeleting" msprop:Generator_RowChangingName="RepClientesCxCRowChanging" msprop:Generator_RowEvHandlerName="RepClientesCxCRowChangeEventHandler" msprop:Generator_RowDeletedName="RepClientesCxCRowDeleted" msprop:Generator_UserTableName="RepClientesCxC" msprop:Generator_RowChangedName="RepClientesCxCRowChanged" msprop:Generator_RowEvArgName="RepClientesCxCRowChangeEvent" msprop:Generator_RowClassName="RepClientesCxCRow">
+        <xs:element name="RepClientesCxC" msprop:Generator_TableClassName="RepClientesCxCDataTable" msprop:Generator_TableVarName="tableRepClientesCxC" msprop:Generator_RowChangedName="RepClientesCxCRowChanged" msprop:Generator_TablePropName="RepClientesCxC" msprop:Generator_RowDeletingName="RepClientesCxCRowDeleting" msprop:Generator_RowChangingName="RepClientesCxCRowChanging" msprop:Generator_RowEvHandlerName="RepClientesCxCRowChangeEventHandler" msprop:Generator_RowDeletedName="RepClientesCxCRowDeleted" msprop:Generator_RowClassName="RepClientesCxCRow" msprop:Generator_UserTableName="RepClientesCxC" msprop:Generator_RowEvArgName="RepClientesCxCRowChangeEvent">
          <xs:complexType>
            <xs:sequence>
              <xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -64,7 +64,7 @@
            </xs:sequence>
          </xs:complexType>
        </xs:element>
-        <xs:element name="LibroMayor" msprop:Generator_TableClassName="LibroMayorDataTable" msprop:Generator_TableVarName="tableLibroMayor" msprop:Generator_RowChangedName="LibroMayorRowChanged" msprop:Generator_TablePropName="LibroMayor" msprop:Generator_RowDeletingName="LibroMayorRowDeleting" msprop:Generator_RowChangingName="LibroMayorRowChanging" msprop:Generator_RowEvHandlerName="LibroMayorRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroMayorRowDeleted" msprop:Generator_RowClassName="LibroMayorRow" msprop:Generator_UserTableName="LibroMayor" msprop:Generator_RowEvArgName="LibroMayorRowChangeEvent">
+        <xs:element name="LibroMayor" msprop:Generator_TableClassName="LibroMayorDataTable" msprop:Generator_TableVarName="tableLibroMayor" msprop:Generator_TablePropName="LibroMayor" msprop:Generator_RowDeletingName="LibroMayorRowDeleting" msprop:Generator_RowChangingName="LibroMayorRowChanging" msprop:Generator_RowEvHandlerName="LibroMayorRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroMayorRowDeleted" msprop:Generator_UserTableName="LibroMayor" msprop:Generator_RowChangedName="LibroMayorRowChanged" msprop:Generator_RowEvArgName="LibroMayorRowChangeEvent" msprop:Generator_RowClassName="LibroMayorRow">
          <xs:complexType>
            <xs:sequence>
              <xs:element name="Fecha" msprop:Generator_ColumnVarNameInTable="columnFecha" msprop:Generator_ColumnPropNameInRow="Fecha" msprop:Generator_ColumnPropNameInTable="FechaColumn" msprop:Generator_UserColumnName="Fecha" type="xs:dateTime" minOccurs="0" />
@@ -87,7 +87,7 @@
            </xs:sequence>
          </xs:complexType>
        </xs:element>
-        <xs:element name="LibroDiario" msprop:Generator_TableClassName="LibroDiarioDataTable" msprop:Generator_TableVarName="tableLibroDiario" msprop:Generator_RowChangedName="LibroDiarioRowChanged" msprop:Generator_TablePropName="LibroDiario" msprop:Generator_RowDeletingName="LibroDiarioRowDeleting" msprop:Generator_RowChangingName="LibroDiarioRowChanging" msprop:Generator_RowEvHandlerName="LibroDiarioRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroDiarioRowDeleted" msprop:Generator_RowClassName="LibroDiarioRow" msprop:Generator_UserTableName="LibroDiario" msprop:Generator_RowEvArgName="LibroDiarioRowChangeEvent">
+        <xs:element name="LibroDiario" msprop:Generator_TableClassName="LibroDiarioDataTable" msprop:Generator_TableVarName="tableLibroDiario" msprop:Generator_TablePropName="LibroDiario" msprop:Generator_RowDeletingName="LibroDiarioRowDeleting" msprop:Generator_RowChangingName="LibroDiarioRowChanging" msprop:Generator_RowEvHandlerName="LibroDiarioRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroDiarioRowDeleted" msprop:Generator_UserTableName="LibroDiario" msprop:Generator_RowChangedName="LibroDiarioRowChanged" msprop:Generator_RowEvArgName="LibroDiarioRowChangeEvent" msprop:Generator_RowClassName="LibroDiarioRow">
          <xs:complexType>
            <xs:sequence>
              <xs:element name="Fecha" msprop:Generator_ColumnVarNameInTable="columnFecha" msprop:Generator_ColumnPropNameInRow="Fecha" msprop:Generator_ColumnPropNameInTable="FechaColumn" msprop:Generator_UserColumnName="Fecha" type="xs:dateTime" minOccurs="0" />
@@ -111,7 +111,7 @@
            </xs:sequence>
          </xs:complexType>
        </xs:element>
-        <xs:element name="RepBalanzaComprobacion" msprop:Generator_TableClassName="RepBalanzaComprobacionDataTable" msprop:Generator_TableVarName="tableRepBalanzaComprobacion" msprop:Generator_TablePropName="RepBalanzaComprobacion" msprop:Generator_RowDeletingName="RepBalanzaComprobacionRowDeleting" msprop:Generator_RowChangingName="RepBalanzaComprobacionRowChanging" msprop:Generator_RowEvHandlerName="RepBalanzaComprobacionRowChangeEventHandler" msprop:Generator_RowDeletedName="RepBalanzaComprobacionRowDeleted" msprop:Generator_UserTableName="RepBalanzaComprobacion" msprop:Generator_RowChangedName="RepBalanzaComprobacionRowChanged" msprop:Generator_RowEvArgName="RepBalanzaComprobacionRowChangeEvent" msprop:Generator_RowClassName="RepBalanzaComprobacionRow">
+        <xs:element name="RepBalanzaComprobacion" msprop:Generator_TableClassName="RepBalanzaComprobacionDataTable" msprop:Generator_TableVarName="tableRepBalanzaComprobacion" msprop:Generator_RowChangedName="RepBalanzaComprobacionRowChanged" msprop:Generator_TablePropName="RepBalanzaComprobacion" msprop:Generator_RowDeletingName="RepBalanzaComprobacionRowDeleting" msprop:Generator_RowChangingName="RepBalanzaComprobacionRowChanging" msprop:Generator_RowEvHandlerName="RepBalanzaComprobacionRowChangeEventHandler" msprop:Generator_RowDeletedName="RepBalanzaComprobacionRowDeleted" msprop:Generator_RowClassName="RepBalanzaComprobacionRow" msprop:Generator_UserTableName="RepBalanzaComprobacion" msprop:Generator_RowEvArgName="RepBalanzaComprobacionRowChangeEvent">
          <xs:complexType>
            <xs:sequence>
              <xs:element name="Id" msprop:Generator_ColumnVarNameInTable="columnId" msprop:Generator_ColumnPropNameInRow="Id" msprop:Generator_ColumnPropNameInTable="IdColumn" msprop:Generator_UserColumnName="Id" type="xs:string" minOccurs="0" />
@@ -137,7 +137,7 @@
            </xs:sequence>
          </xs:complexType>
        </xs:element>
-        <xs:element name="CatPS" msprop:Generator_TableClassName="CatPSDataTable" msprop:Generator_TableVarName="tableCatPS" msprop:Generator_RowChangedName="CatPSRowChanged" msprop:Generator_TablePropName="CatPS" msprop:Generator_RowDeletingName="CatPSRowDeleting" msprop:Generator_RowChangingName="CatPSRowChanging" msprop:Generator_RowEvHandlerName="CatPSRowChangeEventHandler" msprop:Generator_RowDeletedName="CatPSRowDeleted" msprop:Generator_RowClassName="CatPSRow" msprop:Generator_UserTableName="CatPS" msprop:Generator_RowEvArgName="CatPSRowChangeEvent">
+        <xs:element name="CatPS" msprop:Generator_TableClassName="CatPSDataTable" msprop:Generator_TableVarName="tableCatPS" msprop:Generator_TablePropName="CatPS" msprop:Generator_RowDeletingName="CatPSRowDeleting" msprop:Generator_RowChangingName="CatPSRowChanging" msprop:Generator_RowEvHandlerName="CatPSRowChangeEventHandler" msprop:Generator_RowDeletedName="CatPSRowDeleted" msprop:Generator_UserTableName="CatPS" msprop:Generator_RowChangedName="CatPSRowChanged" msprop:Generator_RowEvArgName="CatPSRowChangeEvent" msprop:Generator_RowClassName="CatPSRow">
          <xs:complexType>
            <xs:sequence>
              <xs:element name="Clasificacion" msprop:Generator_ColumnVarNameInTable="columnClasificacion" msprop:Generator_ColumnPropNameInRow="Clasificacion" msprop:Generator_ColumnPropNameInTable="ClasificacionColumn" msprop:Generator_UserColumnName="Clasificacion" type="xs:string" minOccurs="0" />
@@ -153,7 +153,7 @@
            </xs:sequence>
          </xs:complexType>
        </xs:element>
-        <xs:element name="RepProveedorCxP" msprop:Generator_TableClassName="RepProveedorCxPDataTable" msprop:Generator_TableVarName="tableRepProveedorCxP" msprop:Generator_TablePropName="RepProveedorCxP" msprop:Generator_RowDeletingName="RepProveedorCxPRowDeleting" msprop:Generator_RowChangingName="RepProveedorCxPRowChanging" msprop:Generator_RowEvHandlerName="RepProveedorCxPRowChangeEventHandler" msprop:Generator_RowDeletedName="RepProveedorCxPRowDeleted" msprop:Generator_UserTableName="RepProveedorCxP" msprop:Generator_RowChangedName="RepProveedorCxPRowChanged" msprop:Generator_RowEvArgName="RepProveedorCxPRowChangeEvent" msprop:Generator_RowClassName="RepProveedorCxPRow">
+        <xs:element name="RepProveedorCxP" msprop:Generator_TableClassName="RepProveedorCxPDataTable" msprop:Generator_TableVarName="tableRepProveedorCxP" msprop:Generator_RowChangedName="RepProveedorCxPRowChanged" msprop:Generator_TablePropName="RepProveedorCxP" msprop:Generator_RowDeletingName="RepProveedorCxPRowDeleting" msprop:Generator_RowChangingName="RepProveedorCxPRowChanging" msprop:Generator_RowEvHandlerName="RepProveedorCxPRowChangeEventHandler" msprop:Generator_RowDeletedName="RepProveedorCxPRowDeleted" msprop:Generator_RowClassName="RepProveedorCxPRow" msprop:Generator_UserTableName="RepProveedorCxP" msprop:Generator_RowEvArgName="RepProveedorCxPRowChangeEvent">
          <xs:complexType>
            <xs:sequence>
              <xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -170,7 +170,7 @@
            </xs:sequence>
          </xs:complexType>
        </xs:element>
-        <xs:element name="ResumenNC" msprop:Generator_TableClassName="ResumenNCDataTable" msprop:Generator_TableVarName="tableResumenNC" msprop:Generator_TablePropName="ResumenNC" msprop:Generator_RowDeletingName="ResumenNCRowDeleting" msprop:Generator_RowChangingName="ResumenNCRowChanging" msprop:Generator_RowEvHandlerName="ResumenNCRowChangeEventHandler" msprop:Generator_RowDeletedName="ResumenNCRowDeleted" msprop:Generator_UserTableName="ResumenNC" msprop:Generator_RowChangedName="ResumenNCRowChanged" msprop:Generator_RowEvArgName="ResumenNCRowChangeEvent" msprop:Generator_RowClassName="ResumenNCRow">
+        <xs:element name="ResumenNC" msprop:Generator_TableClassName="ResumenNCDataTable" msprop:Generator_TableVarName="tableResumenNC" msprop:Generator_RowChangedName="ResumenNCRowChanged" msprop:Generator_TablePropName="ResumenNC" msprop:Generator_RowDeletingName="ResumenNCRowDeleting" msprop:Generator_RowChangingName="ResumenNCRowChanging" msprop:Generator_RowEvHandlerName="ResumenNCRowChangeEventHandler" msprop:Generator_RowDeletedName="ResumenNCRowDeleted" msprop:Generator_RowClassName="ResumenNCRow" msprop:Generator_UserTableName="ResumenNC" msprop:Generator_RowEvArgName="ResumenNCRowChangeEvent">
          <xs:complexType>
            <xs:sequence>
              <xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -179,7 +179,7 @@
            </xs:sequence>
          </xs:complexType>
        </xs:element>
-        <xs:element name="ProgramarRecursos" msprop:Generator_TableClassName="ProgramarRecursosDataTable" msprop:Generator_TableVarName="tableProgramarRecursos" msprop:Generator_TablePropName="ProgramarRecursos" msprop:Generator_RowDeletingName="ProgramarRecursosRowDeleting" msprop:Generator_RowChangingName="ProgramarRecursosRowChanging" msprop:Generator_RowEvHandlerName="ProgramarRecursosRowChangeEventHandler" msprop:Generator_RowDeletedName="ProgramarRecursosRowDeleted" msprop:Generator_UserTableName="ProgramarRecursos" msprop:Generator_RowChangedName="ProgramarRecursosRowChanged" msprop:Generator_RowEvArgName="ProgramarRecursosRowChangeEvent" msprop:Generator_RowClassName="ProgramarRecursosRow">
+        <xs:element name="ProgramarRecursos" msprop:Generator_TableClassName="ProgramarRecursosDataTable" msprop:Generator_TableVarName="tableProgramarRecursos" msprop:Generator_RowChangedName="ProgramarRecursosRowChanged" msprop:Generator_TablePropName="ProgramarRecursos" msprop:Generator_RowDeletingName="ProgramarRecursosRowDeleting" msprop:Generator_RowChangingName="ProgramarRecursosRowChanging" msprop:Generator_RowEvHandlerName="ProgramarRecursosRowChangeEventHandler" msprop:Generator_RowDeletedName="ProgramarRecursosRowDeleted" msprop:Generator_RowClassName="ProgramarRecursosRow" msprop:Generator_UserTableName="ProgramarRecursos" msprop:Generator_RowEvArgName="ProgramarRecursosRowChangeEvent">
          <xs:complexType>
            <xs:sequence>
              <xs:element name="CveCompra" msprop:Generator_ColumnVarNameInTable="columnCveCompra" msprop:Generator_ColumnPropNameInRow="CveCompra" msprop:Generator_ColumnPropNameInTable="CveCompraColumn" msprop:Generator_UserColumnName="CveCompra" type="xs:short" minOccurs="0" />
@@ -215,7 +215,7 @@
            </xs:sequence>
          </xs:complexType>
        </xs:element>
-        <xs:element name="RepIVA" msprop:Generator_TableClassName="RepIVADataTable" msprop:Generator_TableVarName="tableRepIVA" msprop:Generator_TablePropName="RepIVA" msprop:Generator_RowDeletingName="RepIVARowDeleting" msprop:Generator_RowChangingName="RepIVARowChanging" msprop:Generator_RowEvHandlerName="RepIVARowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVARowDeleted" msprop:Generator_UserTableName="RepIVA" msprop:Generator_RowChangedName="RepIVARowChanged" msprop:Generator_RowEvArgName="RepIVARowChangeEvent" msprop:Generator_RowClassName="RepIVARow">
+        <xs:element name="RepIVA" msprop:Generator_TableClassName="RepIVADataTable" msprop:Generator_TableVarName="tableRepIVA" msprop:Generator_RowChangedName="RepIVARowChanged" msprop:Generator_TablePropName="RepIVA" msprop:Generator_RowDeletingName="RepIVARowDeleting" msprop:Generator_RowChangingName="RepIVARowChanging" msprop:Generator_RowEvHandlerName="RepIVARowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVARowDeleted" msprop:Generator_RowClassName="RepIVARow" msprop:Generator_UserTableName="RepIVA" msprop:Generator_RowEvArgName="RepIVARowChangeEvent">
          <xs:complexType>
            <xs:sequence>
              <xs:element name="TipoDocto" msprop:Generator_ColumnVarNameInTable="columnTipoDocto" msprop:Generator_ColumnPropNameInRow="TipoDocto" msprop:Generator_ColumnPropNameInTable="TipoDoctoColumn" msprop:Generator_UserColumnName="TipoDocto" type="xs:string" minOccurs="0" />
@@ -237,7 +237,7 @@
            </xs:sequence>
          </xs:complexType>
        </xs:element>
-        <xs:element name="RepIVAAcreditable" msprop:Generator_TableClassName="RepIVAAcreditableDataTable" msprop:Generator_TableVarName="tableRepIVAAcreditable" msprop:Generator_TablePropName="RepIVAAcreditable" msprop:Generator_RowDeletingName="RepIVAAcreditableRowDeleting" msprop:Generator_RowChangingName="RepIVAAcreditableRowChanging" msprop:Generator_RowEvHandlerName="RepIVAAcreditableRowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVAAcreditableRowDeleted" msprop:Generator_UserTableName="RepIVAAcreditable" msprop:Generator_RowChangedName="RepIVAAcreditableRowChanged" msprop:Generator_RowEvArgName="RepIVAAcreditableRowChangeEvent" msprop:Generator_RowClassName="RepIVAAcreditableRow">
+        <xs:element name="RepIVAAcreditable" msprop:Generator_TableClassName="RepIVAAcreditableDataTable" msprop:Generator_TableVarName="tableRepIVAAcreditable" msprop:Generator_RowChangedName="RepIVAAcreditableRowChanged" msprop:Generator_TablePropName="RepIVAAcreditable" msprop:Generator_RowDeletingName="RepIVAAcreditableRowDeleting" msprop:Generator_RowChangingName="RepIVAAcreditableRowChanging" msprop:Generator_RowEvHandlerName="RepIVAAcreditableRowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVAAcreditableRowDeleted" msprop:Generator_RowClassName="RepIVAAcreditableRow" msprop:Generator_UserTableName="RepIVAAcreditable" msprop:Generator_RowEvArgName="RepIVAAcreditableRowChangeEvent">
          <xs:complexType>
            <xs:sequence>
              <xs:element name="TipoDocto" msprop:Generator_ColumnVarNameInTable="columnTipoDocto" msprop:Generator_ColumnPropNameInRow="TipoDocto" msprop:Generator_ColumnPropNameInTable="TipoDoctoColumn" msprop:Generator_UserColumnName="TipoDocto" type="xs:string" minOccurs="0" />
@@ -259,10 +259,15 @@
              <xs:element name="NumCuenta" msprop:Generator_ColumnVarNameInTable="columnNumCuenta" msprop:Generator_ColumnPropNameInRow="NumCuenta" msprop:Generator_ColumnPropNameInTable="NumCuentaColumn" msprop:Generator_UserColumnName="NumCuenta" type="xs:string" minOccurs="0" />
              <xs:element name="CveMoneda" msprop:Generator_ColumnVarNameInTable="columnCveMoneda" msprop:Generator_ColumnPropNameInRow="CveMoneda" msprop:Generator_ColumnPropNameInTable="CveMonedaColumn" msprop:Generator_UserColumnName="CveMoneda" type="xs:short" minOccurs="0" />
              <xs:element name="CveCompra" msprop:Generator_ColumnVarNameInTable="columnCveCompra" msprop:Generator_ColumnPropNameInRow="CveCompra" msprop:Generator_ColumnPropNameInTable="CveCompraColumn" msprop:Generator_UserColumnName="CveCompra" type="xs:short" minOccurs="0" />
+              <xs:element name="Direccion" msprop:Generator_ColumnVarNameInTable="columnDireccion" msprop:Generator_ColumnPropNameInRow="Direccion" msprop:Generator_ColumnPropNameInTable="DireccionColumn" msprop:Generator_UserColumnName="Direccion" type="xs:string" minOccurs="0" />
+              <xs:element name="CP" msprop:Generator_ColumnVarNameInTable="columnCP" msprop:Generator_ColumnPropNameInRow="CP" msprop:Generator_ColumnPropNameInTable="CPColumn" msprop:Generator_UserColumnName="CP" type="xs:string" minOccurs="0" />
+              <xs:element name="Telefono" msprop:Generator_ColumnVarNameInTable="columnTelefono" msprop:Generator_ColumnPropNameInRow="Telefono" msprop:Generator_ColumnPropNameInTable="TelefonoColumn" msprop:Generator_UserColumnName="Telefono" type="xs:string" minOccurs="0" />
+              <xs:element name="ContactoNombre" msprop:Generator_ColumnVarNameInTable="columnContactoNombre" msprop:Generator_ColumnPropNameInRow="ContactoNombre" msprop:Generator_ColumnPropNameInTable="ContactoNombreColumn" msprop:Generator_UserColumnName="ContactoNombre" type="xs:string" minOccurs="0" />
+              <xs:element name="ContactoCelular" msprop:Generator_ColumnVarNameInTable="columnContactoCelular" msprop:Generator_ColumnPropNameInRow="ContactoCelular" msprop:Generator_ColumnPropNameInTable="ContactoCelularColumn" msprop:Generator_UserColumnName="ContactoCelular" type="xs:string" minOccurs="0" />
            </xs:sequence>
          </xs:complexType>
        </xs:element>
-        <xs:element name="DtVentaDetalle" msprop:Generator_TableClassName="DtVentaDetalleDataTable" msprop:Generator_TableVarName="tableDtVentaDetalle" msprop:Generator_RowChangedName="DtVentaDetalleRowChanged" msprop:Generator_TablePropName="DtVentaDetalle" msprop:Generator_RowDeletingName="DtVentaDetalleRowDeleting" msprop:Generator_RowChangingName="DtVentaDetalleRowChanging" msprop:Generator_RowEvHandlerName="DtVentaDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="DtVentaDetalleRowDeleted" msprop:Generator_RowClassName="DtVentaDetalleRow" msprop:Generator_UserTableName="DtVentaDetalle" msprop:Generator_RowEvArgName="DtVentaDetalleRowChangeEvent">
+        <xs:element name="DtVentaDetalle" msprop:Generator_TableClassName="DtVentaDetalleDataTable" msprop:Generator_TableVarName="tableDtVentaDetalle" msprop:Generator_TablePropName="DtVentaDetalle" msprop:Generator_RowDeletingName="DtVentaDetalleRowDeleting" msprop:Generator_RowChangingName="DtVentaDetalleRowChanging" msprop:Generator_RowEvHandlerName="DtVentaDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="DtVentaDetalleRowDeleted" msprop:Generator_UserTableName="DtVentaDetalle" msprop:Generator_RowChangedName="DtVentaDetalleRowChanged" msprop:Generator_RowEvArgName="DtVentaDetalleRowChangeEvent" msprop:Generator_RowClassName="DtVentaDetalleRow">
          <xs:complexType>
            <xs:sequence>
              <xs:element name="Cantidad" msprop:Generator_ColumnVarNameInTable="columnCantidad" msprop:Generator_ColumnPropNameInRow="Cantidad" msprop:Generator_ColumnPropNameInTable="CantidadColumn" msprop:Generator_UserColumnName="Cantidad" type="xs:string" minOccurs="0" />
--- a/App_Code/DtDatos.xss
+++ b/App_Code/DtDatos.xss
@@ -4,7 +4,7 @@
     Changes to this file may cause incorrect behavior and will be lost if
     the code is regenerated.
 </autogenerated>-->
-<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-10" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="128" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
  <Shapes>
    <Shape ID="DesignTable:DataTable1" ZOrder="13" X="511" Y="201" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
    <Shape ID="DesignTable:VentaUtilidadDetalle" ZOrder="12" X="679" Y="199" Height="257" Width="187" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -4642,7 +4642,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 = Nothing Then

                DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'")

@@ -4653,7 +4653,7 @@ Partial Class Bancos_IE
                    Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
                End If

-            ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
+            ElseIf DdlTipoTransaccion.SelectedValue = "17" And CveIE = Nothing Then


                If Dep.DtResultados.Rows.Count > 0 Then
@@ -4685,7 +4685,7 @@ Partial Class Bancos_IE

        Else

-            If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
+            If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") And CveIE = Nothing Then

                BtnGuardar.Enabled = False
                Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia)
--- a/Bancos/PagoElectronico.aspx.vb
+++ b/Bancos/PagoElectronico.aspx.vb
@@ -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

--- a/Bancos/PagoElectronicoGrupos.aspx.vb
+++ b/Bancos/PagoElectronicoGrupos.aspx.vb
@@ -216,6 +216,62 @@ 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
+                Return Crate_DTFoliosPrefijos()
+            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 +300,18 @@ Partial Class Bancos_PagoElectronicoGrupos
    End Sub


+    Private Function Crate_DTFoliosPrefijos() As DataTable
+
+        Dim DTFolios As New DataTable
+        DTFolios.Columns.Add("CveIE", GetType(Integer))
+        DTFolios.Columns.Add("Folio", GetType(String))
+        DTFolios.AcceptChanges()
+
+        Return DTFolios
+
+    End Function
+
+
 #Region " C A R G A - D A T O S  "
    Private Sub CargaCuentas()
        DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("UsaLayoutGrupos = 1")
@@ -2491,7 +2559,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
@@ -2626,44 +2694,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



@@ -2770,9 +2800,24 @@ Partial Class Bancos_PagoElectronicoGrupos

        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
+
+            Dim nRow As DataRow = DTFoliosPrefijos.NewRow
+
+            nRow("CveIE") = RowGV.DataKey("CveIE").ToEntero
+            nRow("Folio") = RowGV.FCTextBox("TxtFolio").Text.Trim
+
+            DTFoliosPrefijos.Rows.Add(nRow)
+
+        Next
+        DTFoliosPrefijos.AcceptChanges()
+
        If NuevoFolio <> "-1" Or Comprobante <> "-1" And Not ErrorProceso Then
            If Not ObjBanco.UpdateBancos_IEFolio(CveIE, NuevoFolio, Comprobante) Then
                ErrorProceso = True
@@ -2797,11 +2842,9 @@ Partial Class Bancos_PagoElectronicoGrupos
                ErrorProceso = True
                Alert("Error al guardar comprobante.", TipoMensaje.MsgError)
            End Try
-
        End If


-
        If ErrorProceso Then
            ObjBanco.RollBack()
        Else
@@ -2811,8 +2854,13 @@ Partial Class Bancos_PagoElectronicoGrupos

            CargaEnviados()

-        End If
+            For Each RowGV As GridViewRow In GvEnviadas.Rows
+                RowGV.FCTextBox("TxtFolio").Text = DTFoliosPrefijos.FiltroPrimeroValor("Folio", $"CveIE = {RowGV.DataKey("CveIE").ToEntero}")
+            Next

+            UpEnviados.Update()
+
+        End If

        ObjBanco.Dispose()

--- a/Contabilidad/RepIVA.aspx
+++ b/Contabilidad/RepIVA.aspx
@@ -37,6 +37,9 @@
            <asp:PostBackTrigger ControlID="LnkAccionesDIOT" />
        </Triggers>
    </asp:UpdatePanel>
+    <li>
+        <asp:LinkButton ID="LnkExcel2"  OnClick="LnkExcel2_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Generales del proveedor</asp:LinkButton>
+    </li>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
--- a/Contabilidad/RepIVA.aspx.cs
+++ b/Contabilidad/RepIVA.aspx.cs
@@ -43,7 +43,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
        if (!IsPostBack)
        {
            InicializaValores();
-            
+
        }
    }

@@ -53,8 +53,8 @@ public partial class Contabilidad_RepIVA : ClsPaginas
        TCEspecifico = -1;
        txtFechaI.Text = $"01/{DateTime.Now.Month}/{DateTime.Now.Year}";
        txtFechaF.Text = DateTime.Now.ToShortDateString();
-         
-        LnkAccionesDIOT.Visible = true;      
+
+        LnkAccionesDIOT.Visible = true;

    }

@@ -84,17 +84,17 @@ public partial class Contabilidad_RepIVA : ClsPaginas
        {
            GvA.DataSource = ObjCont.DtResultados;
            DtIVAAcreditable = ObjCont.DtResultados;
-            if (DtIVAAcreditable.FiltraParametros("IVA < 0 OR IEPS < 0 ").Rows.Count > 0) 
+            if (DtIVAAcreditable.FiltraParametros("IVA < 0 OR IEPS < 0 ").Rows.Count > 0)
            {
                LblMsgAcreditable.Text = "La información presenta importes en negativo, estos no se incluirán en el archivo generado para DIOT";
-             }
-                
+            }
+

            if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 3, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
            {
                GvIVA2.DataSource = ObjCont.DtResultados;
            }
-          
+

        }
        ObjCont.Dispose();
@@ -130,19 +130,19 @@ public partial class Contabilidad_RepIVA : ClsPaginas
            {
                e.Row.CssClass = "Totales";
            }
-            if  (e.Row.DBCampo("PorcentajeIVA").ToDecimal() > 0  )
-               {
-                Decimal SubTotal = (e.Row.DBCampo("SubTotal16").ToDecimal() > 0? e.Row.DBCampo("SubTotal16").ToDecimal() : (e.Row.DBCampo("SubTotal8").ToDecimal() > 0? e.Row.DBCampo("SubTotal8").ToDecimal() : (Decimal)0.0) );
+            if (e.Row.DBCampo("PorcentajeIVA").ToDecimal() > 0)
+            {
+                Decimal SubTotal = (e.Row.DBCampo("SubTotal16").ToDecimal() > 0 ? e.Row.DBCampo("SubTotal16").ToDecimal() : (e.Row.DBCampo("SubTotal8").ToDecimal() > 0 ? e.Row.DBCampo("SubTotal8").ToDecimal() : (Decimal)0.0));

                Decimal dif = Math.Round(SubTotal * e.Row.DBCampo("PorcentajeIVA").ToDecimal(), 2) - Math.Round(e.Row.DBCampo("IVA").ToDecimal(), 2);
                if (dif > 1)
                {
                    e.Row.ForeColor = System.Drawing.Color.Red;
-                    e.Row.Cells[0].Text  = e.Row.Cells[0].Text + "Err";
+                    e.Row.Cells[0].Text = e.Row.Cells[0].Text + "Err";

-                    e.Row.ToolTip = "Dif:" + dif.ToString() + "- Sub:" + e.Row.DBCampo("SubTotal")+ " - IVA:"+ e.Row.DBCampo("IVA");
+                    e.Row.ToolTip = "Dif:" + dif.ToString() + "- Sub:" + e.Row.DBCampo("SubTotal") + " - IVA:" + e.Row.DBCampo("IVA");
                }
-            } 
+            }
        }
    }

@@ -155,6 +155,10 @@ public partial class Contabilidad_RepIVA : ClsPaginas
    {
        Imprimir("EXCEL");
    }
+    protected void LnkExcel2_Click(object sender, EventArgs e)
+    {
+        Imprimir("EXCEL2");
+    }

    public void Imprimir(String Opcion)
    {
@@ -192,11 +196,12 @@ public partial class Contabilidad_RepIVA : ClsPaginas
            }

            DataTable Dt = TT.ActiveTabIndex == 0 ? DtIVATrasladado.Copy() : DtIVAAcreditable.Copy();
-            string Formato = TT.ActiveTabIndex == 0 ? "RepIVA.rpt" : "RepIVAAcreditable.rpt";
+            string Formato = TT.ActiveTabIndex == 0 ? "RepIVA.rpt" : (Opcion == "EXCEL2" ? "RepIVAAcreditable2.rpt" : "RepIVAAcreditable.rpt");
+            Opcion = (Opcion == "EXCEL2" ? "EXCEL" : Opcion);
            para.Add(new CrystalParametro("Excel", Formato));
            string Ruta = (ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\Grales\Formatos\{Formato}");
-                Ruta.GuardaLogAD(); 
-            ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt,para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
+            Ruta.GuardaLogAD();
+            ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
        }
        else
        {
@@ -248,17 +253,17 @@ public partial class Contabilidad_RepIVA : ClsPaginas

            foreach (DataRow Drow in Objconta.DtResultados.FiltraParametros("CveCompra is null and CveProveedor > 0 and SubTotal >= 1  ").Rows) // and(IVA > 1 OR IEPS > 0)
            {
-                SBDIOT.AppendLine(                    
-                    Drow["TipoTercero"].ToString() + "|" + 
-                    Drow["TipoOperacion"].ToString() + "|" + 
-                    Drow["RFC"].ToString() +"|"+  
-                    Drow["NumeroIDFiscal"].ToString() + "|" + 
-                    Drow["NombreExtranjero"].ToString() +"|"+ 
-                    Drow["PaisResidencia"].ToString() + "|" + 
-                    Drow["Nacionalidad"].ToString() +"|"+
-                    LV(Drow["valorActos1516"].ToString())  + "|"+
+                SBDIOT.AppendLine(
+                    Drow["TipoTercero"].ToString() + "|" +
+                    Drow["TipoOperacion"].ToString() + "|" +
+                    Drow["RFC"].ToString() + "|" +
+                    Drow["NumeroIDFiscal"].ToString() + "|" +
+                    Drow["NombreExtranjero"].ToString() + "|" +
+                    Drow["PaisResidencia"].ToString() + "|" +
+                    Drow["Nacionalidad"].ToString() + "|" +
+                    LV(Drow["valorActos1516"].ToString()) + "|" +
                    LV(Drow["valorActos15"].ToString()) + "|" +
-                    LV(Drow["ValorIvaNo1516"].ToString()) +"|"+
+                    LV(Drow["ValorIvaNo1516"].ToString()) + "|" +

                    LV(Drow["valorActos1011"].ToString()) + "|" +
                    LV(Drow["valorActos10"].ToString()) + "|" +
@@ -270,11 +275,11 @@ public partial class Contabilidad_RepIVA : ClsPaginas
                    LV(Drow["ValorIvaNoImp16"].ToString()) + "|" +

                    LV(Drow["valorActosImp10"].ToString()) + "|" +
-                    LV(Drow["ValorIvaNoImp10"].ToString()) + "|" +                  
+                    LV(Drow["ValorIvaNoImp10"].ToString()) + "|" +

-                    LV(Drow["IvaExentoImpo"].ToString()) + "|"+
+                    LV(Drow["IvaExentoImpo"].ToString()) + "|" +
                    LV(Drow["IVACero"].ToString()) + "|" +
-                    LV(Drow["IvaExento"].ToString()) + "|"+
+                    LV(Drow["IvaExento"].ToString()) + "|" +
                    LV(Drow["IvaRetenido"].ToString()) + "|" +
                    LV(Drow["IvaDevoluciones"].ToString()) + "|");
            }
@@ -286,7 +291,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
        //TextWriter tw = new StreamWriter(ms, System.Text.Encoding.UTF8); 

        //tw.Write(SBDIOT.ToString());
-        
+
        //tw.Flush();

        //byte[] bytes = ms.ToArray();
@@ -310,7 +315,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
        Response.End();
    }

-    protected string LV(string Valor )
+    protected string LV(string Valor)
    {
        return (Valor.ToDecimal() > 0) ? Valor.ToDecimal().ToString().FormatoNumero(0).Replace(",", string.Empty) : "";
    }
--- a/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt
+++ b/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt
--- a/General/CatMotivoRechazoGuias.aspx
+++ b/General/CatMotivoRechazoGuias.aspx
@@ -0,0 +1,74 @@
+<%@ Page Title="General - Catálogo de motivo de rechazo de guías" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatMotivoRechazoGuias.aspx.cs" Inherits="General_CatMotivoRechazoGuias" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Catálogo de Motivos de Rechazo de Paquetes
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAgregar">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton runat="server" ID="BtnAgregarMotivoD" OnClick="BtnAgregarMotivoD_Click" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Motivo"></asp:LinkButton>
+            </li>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMotivoRechazoPaqueteria,Descripcion,Estado" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;width:100%" GridLines="None">
+                <Columns>
+                    <asp:BoundField HeaderText ="Descripción" DataField="Descripcion"/>
+                    <asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="LnkEditar" runat="server" OnClick="LnkEditar_Click" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
+                            <asp:LinkButton ID="LnkEliminar" runat="server" OnClick="LnkEliminar_Click" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"/>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                </Columns>
+                <RowStyle CssClass="Texto" />
+                <AlternatingRowStyle CssClass="TextoAlterno" />
+            </asp:GridView>
+
+             <div id="DivAgregarTiposD" class="modal ADS fade" role="dialog">
+                <div class="modal-dialog" style="width: 450px;">
+                    <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <div class="modal-header ">
+                                <button type="button" class="close" data-dismiss="modal">×</button>
+                                <h4 class="modal-title">
+                                    <asp:Literal ID="LtlTituloModalTiposD" runat="server">Motivos de Rechazo</asp:Literal></h4>
+                            </div>
+                            <div class="modal-body">
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="DescripcionTxt" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtTiposD" runat="server" ControlToValidate="DescripcionTxt" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
+                                    <label for="MotivoTxt">Descripción:</label>
+                                    <i></i>
+                                </div>
+                                <br />
+                            </div>
+                            <br />
+                            <div class="modal-footer">
+                                <asp:Button ID="BtnAgregarTiposDModal" OnClick="BtnAgregarTiposDModal_Click" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposD" />
+                                <button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                            </div>
+
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
--- a/General/CatMotivoRechazoGuias.aspx.cs
+++ b/General/CatMotivoRechazoGuias.aspx.cs
@@ -0,0 +1,96 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+using Extensiones;
+using System.Data;
+
+public partial class General_CatMotivoRechazoGuias : ClsPaginas
+{
+    private int CveMotivoRechazoPaqueteria
+    {
+        get
+        {
+            return ViewState["CveMotivoRechazoPaqueteria"].ToString().ToEntero();
+        }
+
+        set
+        {
+            ViewState["CveMotivoRechazoPaqueteria"] = value;
+        }
+    }
+
+    protected void Page_Load(object sender, EventArgs e)
+    {
+        if (!IsPostBack)
+        {
+            CargaDatos();
+            UpDatos.Update();
+        }
+    }
+
+    private void CargaDatos()
+    {
+        ClsGenerales ObjGeneral = new ClsGenerales();
+        if (ObjGeneral.GetMotivoRechazoPaqueteria(-1,UsuarioActual.CveEmpresa))
+        {
+            GvDatos.DataSource = ObjGeneral.DtResultados;
+            GvDatos.DataBind();
+        }
+        ObjGeneral.Dispose();
+    }
+
+    protected void BtnAgregarMotivoD_Click(object sender, EventArgs e)
+    {
+        BtnAgregarTiposDModal.Text = "Agregar";
+        UpModalTiposD.Update();
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
+    }
+
+    protected void LnkEditar_Click(object sender, EventArgs e)
+    {
+        BtnAgregarTiposDModal.Text = "Actualizar";
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        CveMotivoRechazoPaqueteria = GvRow.DataKey("CveMotivoRechazoPaqueteria").ToEntero();
+        DescripcionTxt.Text = GvRow.DataKey("Descripcion");
+        UpModalTiposD.Update();
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
+    }
+
+    protected void BtnAgregarTiposDModal_Click(object sender, EventArgs e)
+    {
+        ClsGenerales ObjGeneral = new ClsGenerales();
+        if (BtnAgregarTiposDModal.Text == "Agregar")
+        {
+            if (ObjGeneral.AddMotivoRechazoPaqueteria(DescripcionTxt.Text,UsuarioActual.CveEmpresa))
+            {
+                Alert("Motivo Agregado Correctamente");
+            }
+        }else
+        {
+            if (ObjGeneral.UpdateMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteria, DescripcionTxt.Text))
+            {
+                Alert("Motivo Actualizado Correctamente");
+            }
+        }
+        ObjGeneral.Dispose();
+        CargaDatos();
+        UpDatos.Update();
+    }
+
+    protected void LnkEliminar_Click(object sender, EventArgs e)
+    {
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        int CveMotivoRechazoPaqueteriaAux = GvRow.DataKey("CveMotivoRechazoPaqueteria").ToEntero();
+        ClsGenerales ObjGeneral = new ClsGenerales();
+        if (ObjGeneral.RemoveMotivoRechazoPaqueteria(CveMotivoRechazoPaqueteriaAux))
+        {
+            Alert("Motivo Eliminado con Correctamente");
+        }
+        ObjGeneral.Dispose();
+        CargaDatos();
+        UpDatos.Update();
+    }
+}
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -591,7 +591,7 @@
                                    Cliente:                               
                                </div>
                                <div class="col-md-2">
-                                    <ADS:Dropdownlost ID="Ddlcliente" Width="100%"  CssStyle="width: 100%;"  UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me"   data-metodo="getcliente" runat="server" DataTextField="NombreComercial"    DataValueField="CveCliente"  ></ADS:Dropdownlost>
+                                    <ADS:Dropdownlost ID="Ddlcliente" Width="100%" CssStyle="width: 100%;" UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"></ADS:Dropdownlost>
                                    <%--                                    <asp:RangeValidator ID="RVCliente" CssClass="form-control" runat="server" ControlToValidate="Ddlcliente" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator>
                                    <ajax:ValidatorCalloutExtender ID="VCECliente" runat="server" HighlightCssClass="vco" TargetControlID="RVCliente" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                </div>
@@ -856,7 +856,7 @@



-                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" GridLines=" none" BorderColor="Transparent" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" 
+                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" GridLines=" none" BorderColor="Transparent" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn"
                                        DataKeyNames="SubProyecto, Cantidad, Importe, Descuento, CveOrdenCompra, CveUnidadMedida, CvePresupuestoEgreso, PS,CveClasificacion, CvePS, CveSubProyecto, CveActivoFijo, CodigoAF, TipoDato, Observacion, CveOrdenCompraDetalle,CveCompra,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje" data-tableheader=".GVDHeader" ShowHeader="false" data-rows="0">
                                        <Columns>
                                            <asp:TemplateField>
@@ -1503,6 +1503,25 @@

            </div>
        </div>
+        <div class="col-md-3" runat="server" id="DivVentaRelacionada">
+            <div class="portlet light xspadding  bordered">
+                <div class="portlet-title">
+                    <div class="caption font-green">
+                        <i class="icon-pin font-green"></i>
+                        <span class="caption-subject bold uppercase">Venta Relacionada </span>
+                    </div>
+                    <div class="tools">
+                        <a href="javascript;" class="expand" data-original-title="" title=""></a>
+                    </div>
+                </div>
+                <asp:GridView runat="server" ID="GvVentaRelacionadas" AutoGenerateColumns="False" DataKeyNames="CveVenta,Folio"
+                    CssClass="table table-striped table-advance table-hover Widthall  mysmallbtn" GridLines="None" ShowHeader="False">
+                    <Columns>
+                        <asp:HyperLinkField DataTextField="Folio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
+                    </Columns>
+                </asp:GridView>
+            </div>
+        </div>
    </div>


@@ -2558,8 +2577,8 @@
                            <div class="col-md-6 v-center">
                                <%--<asp:DropDownList ID="DdlProveedorCot" runat="server" Width="100%" CssClass="select2me" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>--%>
                                <ADS:Dropdownlost runat="server" ID="DdlProveedorCot" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
-                                                    
-<%--                                <asp:RequiredFieldValidator ID="RFVProveedorExcel" runat="server" ControlToValidate="DdlProveedorCot" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor selecionarlo." ValidationGroup="GrpCargarExcel"></asp:RequiredFieldValidator>
+
+                                <%--                                <asp:RequiredFieldValidator ID="RFVProveedorExcel" runat="server" ControlToValidate="DdlProveedorCot" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor selecionarlo." ValidationGroup="GrpCargarExcel"></asp:RequiredFieldValidator>
                                <ajax:ValidatorCalloutExtender ID="VCProveedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVProveedorExcel" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                            </div>
                        </div>
@@ -2589,7 +2608,7 @@
                        </div>
                        <div class="col-md-10" style="text-align: right">
                            <asp:UpdatePanel runat="server">
-                                <ContentTemplate>                                   
+                                <ContentTemplate>
                                    <asp:Button ID="BtnCargaExcelCot" runat="server" OnClick="BtnCargaExcelCot_Click" CssClass="btn btn-success" Text="Aceptar" ValidationGroup="GrpCargarExcel"></asp:Button>
                                    <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
                                </ContentTemplate>
@@ -2613,11 +2632,11 @@
                    <div class="modal-body">
                        <asp:UpdatePanel ID="UpCambiarMonedaBody" UpdateMode="Conditional" runat="server">
                            <ContentTemplate>
-                                <div class="row" style="width:100%">
-                                    <label class="col-md-1" style="width:100%">Desea Cambiar el Tipo de Moneda:</label>
+                                <div class="row" style="width: 100%">
+                                    <label class="col-md-1" style="width: 100%">Desea Cambiar el Tipo de Moneda:</label>
                                </div>
                                <br />
-                                <div class="row" runat="server" id="DivTCRow" style="width:100%">
+                                <div class="row" runat="server" id="DivTCRow" style="width: 100%">
                                    <label class="col-md-3">Tipo de Cambio:</label>
                                    <div class="col-md-3">
                                        <asp:TextBox ID="TxtTCCambioMoneda" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -518,6 +518,8 @@ Partial Class OC
                End If

                CargaDatos(CveOrdenCompra)
+                'CARGA VENTA RELACIONADA
+                CargaVentaRelacionada()
            Else
                EsNuevo = True
                InicializarValores()
@@ -7911,4 +7913,23 @@ Partial Class OC
        '    Alert("Moneda actualizada con exito")
        'End If
    End Sub
+
+    Private Sub CargaVentaRelacionada()
+        Dim GridViewPSAux As GridView = GvD
+        Dim CveOCDetalle As New StringBuilder()
+        For Each vd As GridViewRow In GridViewPSAux.Rows
+            Dim CveVentaDetalle As String = vd.DataKey("CveOrdenCompraDetalle")
+            CveOCDetalle.AppendFormat("{0},", CveVentaDetalle)
+        Next
+        Dim ObjVentas As New ClsOC()
+        If ObjVentas.GetVentasRelacionadas(CveOCDetalle.ToString) Then
+            Dim V As DataTable = ObjVentas.DtResultados
+            If V.Rows.Count > 0 Then
+                DivVentaRelacionada.Visible = True
+                GvVentaRelacionadas.DataSource = V
+                GvVentaRelacionadas.DataBind()
+            End If
+        End If
+        ObjVentas.Dispose()
+    End Sub
 End Class
--- a/TareasProgramadas/Tareas119.ashx
+++ b/TareasProgramadas/Tareas119.ashx
@@ -0,0 +1,46 @@
+<%@ WebHandler Language="C#" Class="TareasJam" %>
+
+using System;
+using System.Web;
+using Extensiones;
+
+public class TareasJam : IHttpHandler
+{
+
+    public void ProcessRequest(HttpContext context)
+    {
+        context.Response.ContentType = "text/plain";
+        //context.Response.Write("Hello World");
+        bool retorno = false;
+        string Metodo = context.Request["Metodo"] ==null?"": context.Request["Metodo"];
+        int CveEmpresa =context.Request["CveEmpresa"] ==null?0: context.Request["CveEmpresa"].ToEntero();
+        switch (Metodo)
+        {
+            case "EjecutaThalamus":
+                retorno =EjecutaThalamus(CveEmpresa);
+                break;
+            default:
+                break;
+        }
+        if (retorno)
+        {
+            context.Response.Write("True");
+
+        }else
+        {
+            context.Response.Write("False");
+
+        }
+        context.Response.End();
+        //ModExtensiones.GuardaLogAD(string.Format("{3} CveEmpresa={0} cveTareaProgramada={1} CveTareaProgramadaHistorial={2}", CveEmpresa, cveTareaProgramada, CveTareaProgramadaHistorial, Metodo), "Tareas Programadas");
+    }
+    public bool EjecutaThalamus(int CveEmpresa)
+    {
+        return true;
+    }
+    public bool IsReusable
+    {
+        get { return false; }
+    }
+
+}
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -3294,6 +3294,19 @@
                                <td>
                                    <asp:TextBox ID="TxtCorreoNotificaciones" runat="server" Width="100%" CssClass="form-control"></asp:TextBox></td>
                            </tr>
+                            <tr align="left" id="trOCRelacionadasLabel" runat="server" visible="false">
+                                <td id="Td3" runat="server">Ordenes de Compra Relacionadas:&nbsp;</td>
+                            </tr>
+                            <tr align="left" id="trOCRelacionadas" runat="server" visible="false">
+                                <td>
+                                    <asp:GridView runat="server" ID="GvOCRelacionadas" AutoGenerateColumns="False" DataKeyNames="CveOrdenCompra,Folio" 
+                                        CssClass="table table-striped table-advance table-hover Widthall  mysmallbtn" GridLines="None" ShowHeader="False">
+                                        <Columns>
+                                            <asp:HyperLinkField DataTextField="Folio" DataNavigateUrlFields="CveOrdenCompra" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" />
+                                        </Columns>
+                                    </asp:GridView>
+                                </td>
+                            </tr>
                            <tr align="left" id="trPaqueteriOpcionesLabel" runat="server" visible="false">
                                <td id="Td2" runat="server">Tipo de Entrega:&nbsp;</td>
                            </tr>
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2106,6 +2106,8 @@ Partial Class Ventas
                        DivDevAlm.Visible = True
                    End If

+                    'CARGA GV DE OC RELACIONADAS
+                    CargarOCRelacionadas()
                End If
            Else
                If Request("CveOS") IsNot Nothing AndAlso IsNumeric(Request("CveOS")) AndAlso Request("CveOS").ToEntero() > 0 Then
@@ -25728,4 +25730,24 @@ Partial Class Ventas
        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Entrega en mostrador", "Pendiente", CorreosCC)
        MailCls = Nothing
    End Sub
+
+    Private Sub CargarOCRelacionadas()
+        Dim GridViewPSAux As GridView = GvPS
+        Dim CveVentasDetalle As New StringBuilder()
+        For Each vd As GridViewRow In GridViewPSAux.Rows
+            Dim CveVentaDetalle As String = vd.DataKey("CveVentaDetalle")
+            CveVentasDetalle.AppendFormat("{0},", CveVentaDetalle)
+        Next
+        Dim ObjVentas As New ClsVentas()
+        If ObjVentas.GetOCRelacionadas(CveVentasDetalle.ToString) Then
+            Dim OC As DataTable = ObjVentas.DtResultados
+            If OC.Rows.Count > 0 Then
+                trOCRelacionadasLabel.Visible = True
+                trOCRelacionadas.Visible = True
+                GvOCRelacionadas.DataSource = OC
+                GvOCRelacionadas.DataBind()
+            End If
+        End If
+        ObjVentas.Dispose()
+    End Sub
 End Class
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -68,8 +68,6 @@
    
  
    
-  
-