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

Acumuladores/EntradasUsadosResumenRep.aspx

@@ -14,7 +14,7 @@
                 <asp:LinkButton runat="server" ID="BtnDescargaSabana" OnClick="BtnDescargaSabana_Click" data-toggle="tooltip" data-placement="left" title="Descargar Sábana de Venta" Text="<i class='fa fa-download'></i> Descargar Sábana de Venta"></asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton runat="server" ID="BtnImprimir" OnClick="BtnImprimir_Click" data-toggle="tooltip" data-placement="left" title="PDF" Text="<i class='fa fa-file-pdf-o'></i> PDF"></asp:LinkButton>
+                <asp:LinkButton runat="server" ID="BtnImprimir" OnClick="BtnImprimir_Click" data-toggle="tooltip" data-placement="left" title="PDF" Text="<i class='fa fa-file-pdf-o'></i> PDF" Visible="false"></asp:LinkButton>
             </li>
         </ContentTemplate>
         <Triggers>
@@ -81,7 +81,9 @@
                 <ContentTemplate>
                     <asp:GridView ID="GvAcum" Width="100%" runat="server" GridLines="None" CssClass="table table-striped table-advance table-hover ScrollAD "
                         ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False"
-                        ShowFooter="False" DataKeyNames="CvePSCargo,CodigoPS,Inicial,E_Almacen,E_Pub,E_Traspaso,E_Compra,E_Otros,S_Almacen,S_Traspaso,S_Otros,Exist_Actual">
+                        ShowFooter="False" DataKeyNames="CvePSCargo,CodigoPS,Inicial,E_Almacen,E_Pub,E_Traspaso,E_Compra,E_Otros,S_Almacen,S_Traspaso,S_Otros,Exist_Actual"
+                        OnRowDataBound="GvAcum_RowDataBound"
+                        >
                         <Columns>
                             <asp:BoundField DataField="CodigoPS" HeaderText="Grupo" ReadOnly="true" ></asp:BoundField>
                             <asp:BoundField DataField="Inicial" HeaderText="Inicial" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>

Acumuladores/EntradasUsadosResumenRep.aspx.vb

@@ -53,14 +53,25 @@ Partial Class Acumuladores_RepEntradasUsados
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
         Dim ObjAcum As New ClsAcumuladores
 
+        BtnImprimir.Visible = False
+
         If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, DdlAlmacenes.SelectedValue.ToEntero, txtFechaI.Text, txtFechaF.Text) Then
             GvAcum.DataSource = ObjAcum.DtResultados
             DatosEntradasUsados = ObjAcum.DtResultados
 
+            If DatosEntradasUsados IsNot Nothing AndAlso DatosEntradasUsados.Rows.Count > 0 Then
+                BtnImprimir.Visible = True
+            End If
+
         End If
+
         ObjAcum.Dispose()
+
         GvAcum.DataBind()
 
+        UpAcciones.Update()
+        UpDatos.Update()
+
     End Sub
 
     Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs)
@@ -163,4 +174,20 @@ Partial Class Acumuladores_RepEntradasUsados
 
 
     End Sub
+
+    Protected Sub GvAcum_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DataKey("CvePSCargo").ToEntero <= 0 Then
+
+                e.Row.CssClass = "Totales"
+
+            End If
+
+
+        End If
+
+    End Sub
+
 End Class

Agropecuaria/CierreCultivo.aspx

@@ -50,10 +50,7 @@
                                 <div class="col-md-1 truncate"><asp:Label runat="server" ID="LblSubProyecto"></asp:Label></div>
                                 <div class="col-md-2">
                                     <asp:DropDownList ID="DdlSubProyectoCierreCultivo" runat="server" Width="100%" CssClass="form-control select2me"  DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>
-                                </div>
+                                </div>                                      
-
-
-                                       
 
                             </div>
 
@@ -75,7 +72,8 @@
                 <div class="col-md-6">
                     <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
                         DataKeyNames="CveClasificacion"
-                        EmptyDataText="No se Encontraron datos" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
+                        EmptyDataText="No se Encontraron datos" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None"
+                        OnRowDataBound="GvDatos_RowDataBound" >
                         <Columns>
                             <asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" />
                             <asp:BoundField HeaderText="Importe" DataField="Importe" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:n2}" />
@@ -102,21 +100,30 @@
                     </div>
                     <div class="modal-body">
 
-                       
+                         <div class="form-group form-md-line-input input-iconright" >
 
-                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtModalConcepto" CssClass="form-control" MaxLength="100" runat="server"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RfvTxtModalConcepto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtModalConcepto"
+                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GpoModalCerrarCultivo"></asp:RequiredFieldValidator>
+                            <label for="<%= TxtModalConcepto.ClientID.ToString() %>">Concepto:</label>
+                            <i></i>
 
-                            <asp:TextBox ID="TxtmodalFechaCierreCultivo" CssClass="form-control" MaxLength="50" runat="server"></asp:TextBox>
+                        </div>
+
+
+                        <div class="form-group form-md-line-input input-iconright" style="width:150px!important">
+
+                            <asp:TextBox ID="TxtmodalFechaCierreCultivo" CssClass="form-control" MaxLength="50" runat="server" Width="110px"></asp:TextBox>
                             <span class="input-group-btn " style="position: absolute; right: 41px; top: -5px;">
                                 <asp:LinkButton ID="LnkTxtmodalFechaCierreCultivo" class="btn default" Style="margin-top: 15px; margin-left: 6px" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                             </span>
                             <ajax:CalendarExtender runat="server" ID="CETxtmodalFechaCierreCultivo" TargetControlID="TxtmodalFechaCierreCultivo" PopupButtonID="LnkTxtmodalFechaCierreCultivo" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                            
+
-                            <asp:CompareValidator ID="CvTxtmodalFechaCierreCultivo" runat="server" ControlToValidate="TxtmodalFechaCierreCultivo" Display="None" 
+                            <asp:CompareValidator ID="CvTxtmodalFechaCierreCultivo" runat="server" ControlToValidate="TxtmodalFechaCierreCultivo" Display="None"
-                                ErrorMessage="El campo <b>''Fecha de Cierre''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." 
+                                ErrorMessage="El campo <b>''Fecha de Cierre''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)."
                                 Operator="DataTypeCheck" Type="Date" ValidationGroup="GpoModalCerrarCultivo"></asp:CompareValidator>
 
-                            <asp:RequiredFieldValidator ID="RfvTxtmodalFechaCierreCultivo" runat="server" CssClass="help-block errorimput"  ControlToValidate="TxtmodalFechaCierreCultivo" 
+                            <asp:RequiredFieldValidator ID="RfvTxtmodalFechaCierreCultivo" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtmodalFechaCierreCultivo" 
                                 ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Cierre''</b> es necesario, por favor ingréselo." ValidationGroup="GpoModalCerrarCultivo"></asp:RequiredFieldValidator>
 
                             <ajax:ValidatorCalloutExtender ID="CvcTxtmodalFechaCierreCultivo" runat="server" HighlightCssClass="vco" TargetControlID="CvTxtmodalFechaCierreCultivo" Width="100px"></ajax:ValidatorCalloutExtender>
@@ -127,9 +134,11 @@
 
                         </div>
 
+                       
+
                     </div>
                     <div class="modal-footer">
-                        <asp:Button ID="BtnModalCerrarCultivo" runat="server" Text="Cerrar Cultivo" CssClass="btn btn-primary" ValidationGroup="GpoModalCerrarCultivo" />
+                        <asp:Button ID="BtnModalCerrarCultivo" runat="server" Text="Cerrar Cultivo" OnClick="BtnModalCerrarCultivo_Click" CssClass="btn btn-primary" ValidationGroup="GpoModalCerrarCultivo" />
                         <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
                     </div>
                 </div>

Agropecuaria/CierreCultivo.aspx.vb

@@ -19,6 +19,20 @@ Partial Class Agrupecuaria_CierreCultivo
     End Property
 
 
+    Private Property DT_Datos_Cierre_Cuadros As DataTable
+        Get
+
+            If ViewState("DT_Datos_Cierre_Cuadros") Is Nothing Then
+                ViewState("DT_Datos_Cierre_Cuadros") = New DataTable
+            End If
+
+            Return DirectCast(ViewState("DT_Datos_Cierre_Cuadros"), DataTable)
+
+        End Get
+        Set(ByVal value As DataTable)
+            ViewState("DT_Datos_Cierre_Cuadros") = value
+        End Set
+    End Property
 
 
     Private Sub Agrupecuaria_CierreCultivo_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -55,20 +69,40 @@ Partial Class Agrupecuaria_CierreCultivo
             Exit Sub
         End If
 
+
+
+        If Not DdlSubProyectoCierreCultivo.SelectedValue.ToEntero > 0 Then
+            Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+
+        DT_Datos_Cierre = Nothing
+        DT_Datos_Cierre_Cuadros = Nothing
+
         Dim ObjGral As New ClsGenerales
 
-        If ObjGral.GetCierreCultivos(DdlTemporada.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        'se valida que se ejecute la consulta, que el resultado tenga dos tablas y que  las dos tablas tengan por lo menos 1 registro
-            GvDatos.DataSource = ObjGral.DtResultados
+        If ObjGral.GetCierreCultivos(DdlTemporada.SelectedValue.ToEntero, DdlSubProyectoCierreCultivo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjGral.DSResultados.Tables.Count = 2 AndAlso
-            DT_Datos_Cierre = ObjGral.DtResultados
+            ObjGral.DSResultados.Tables(0).Rows.Count > 0 AndAlso ObjGral.DSResultados.Tables(1).Rows.Count > 0 Then
+
+            DT_Datos_Cierre = ObjGral.DSResultados.Tables(0).FiltraParametros("", "Gpo")
+            DT_Datos_Cierre_Cuadros = ObjGral.DSResultados.Tables(1)
+
+
+            GvDatos.DataSource = DT_Datos_Cierre
+
         Else
             GvDatos.DataSource = Nothing
             DT_Datos_Cierre = Nothing
+            DT_Datos_Cierre_Cuadros = Nothing
         End If
 
         OcultarmostrarControles(DT_Datos_Cierre)
 
         ObjGral.Dispose()
         GvDatos.DataBind()
+
         UpDatos.Update()
 
 
@@ -81,10 +115,12 @@ Partial Class Agrupecuaria_CierreCultivo
 
     Protected Sub LnkAccionesCerrarCultivo_Click(sender As Object, e As EventArgs)
 
-
+        TxtModalConcepto.Text = ""
+        TxtmodalFechaCierreCultivo.Text = ""
+        UpModalCerrarCultivo.Update()
 
         RegistraScript("$('#DivModalCerrarCultivo').modal('show');")
-        UpModalCerrarCultivo.Update()
+
 
 
     End Sub
@@ -108,17 +144,79 @@ Partial Class Agrupecuaria_CierreCultivo
         Dim ObjConta As New ClsContabilidad()
         ObjConta.IniciaTransacSQL()
         Dim CvePrePoliza As Integer = -1
+        Dim FolioPoliza As Integer = -1
         Dim ErrorProceso As Boolean = False
 
         Dim CveSubProyecto As Integer = DdlSubProyectoCierreCultivo.SelectedValue.ToEntero
 
 
-        Dim ImporteCierre As Decimal = DT_Datos_Cierre.SUMD("Importe")
+        Dim ImporteCierre As Decimal = DT_Datos_Cierre.SUMD("Importe", "CveClasificacion > 0")
+        Dim CveClasificacionTotalitaria As Integer = DT_Datos_Cierre.Rows(0)("CveClasificacion").ToString.ToEntero ' se usa la primera clasificacion 
 
-        CvePrePoliza = ObjConta.AddPrePolizas("CierreCultivo/Cerrar", 1, ImporteCierre, ImporteCierre, 1, TxtmodalFechaCierreCultivo.Text.ToDate, $"Cierre Temporada {DdlTemporada.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
+
+        Dim ConceptoTotales As String = $"{DdlTemporada.SelectedItem.Text}-{DdlSubProyectoCierreCultivo.SelectedItem.Text}"
+
+        CvePrePoliza = ObjConta.AddPrePolizas("CierreCultivo/Cerrar", 53, ImporteCierre, ImporteCierre, 1, TxtmodalFechaCierreCultivo.Text.ToDate, TxtModalConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
+        'FolioPoliza = ObjConta.FolioPoliza
 
         If CvePrePoliza > 0 Then
 
+            Dim Orden As Integer = 1
+
+            For Each dRow As DataRow In DT_Datos_Cierre.Rows
+
+                Dim ImporteMovimiento As Decimal = dRow("Importe").ToString.ToDecimal
+                Dim CveClasificacion As Integer = dRow("CveClasificacion").ToString.ToEntero
+                Dim Clasificacion As String = dRow("Clasificacion").ToString
+                Dim TipoMovimiento As Boolean = True
+
+                Dim CveConceptoClasificaiones As Integer = 336
+                Dim CveConceptoNominas As Integer = 336
+
+                Dim CveConceptoTotal As Integer = 69
+
+
+                If CveClasificacion > 0 Then
+
+
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, ImporteMovimiento, Clasificacion, CveConceptoClasificaiones, Clasificacion, TxtmodalFechaCierreCultivo.Text.ToDate, -1, -1, -1, -1, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, TipoCambio:=1, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacion) Then
+                        ErrorProceso = True
+                        Exit For
+                    End If
+
+                Else
+
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 0, ImporteCierre, ConceptoTotales, 69, ConceptoTotales, TxtmodalFechaCierreCultivo.Text.ToDate, -1, -1, -1, -1, -1, ImporteMX:=ImporteCierre, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, TipoCambio:=1, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacionTotalitaria) Then
+                        ErrorProceso = True
+                        Exit For
+                    End If
+
+                End If
+
+                Orden = Orden + 1
+            Next
+
+
+            If Not ErrorProceso Then
+
+                Dim ObjGral As New ClsGenerales(ObjConta.IniciaTransacSQL)
+
+
+                For Each dRow As DataRow In DT_Datos_Cierre_Cuadros.Rows
+                    If Not ObjGral.UpdateCierreCultivos(dRow("CveCultivoCuadro").ToString.ToEntero, CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                        ErrorProceso = True
+                        Exit For
+                    End If
+                Next
+
+
+
+            End If
+
+
+
+            'ObjConta.UpdatePrePolizasOrdenamiento(CvePrePoliza, UsuarioActual.CveEmpresa)
+
         Else
             ErrorProceso = True
         End If
@@ -128,8 +226,9 @@ Partial Class Agrupecuaria_CierreCultivo
             ObjConta.RollBack()
         Else
             ObjConta.Commit()
-
+            Alert($"Cultivo Cerrado correctamente  <b><a target='_blank' href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={CvePrePoliza}'>Ver Pre Póliza</a><b>")
             RegistraScript("$('#DivModalCerrarCultivo').modal('hide');")
+            CargaDatos()
         End If
 
         ObjConta.Dispose()
@@ -137,4 +236,23 @@ Partial Class Agrupecuaria_CierreCultivo
     End Sub
 
 
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+
+            If e.Row.DataKey("CveClasificacion").ToEntero <= 0 Then
+
+                e.Row.Font.Bold = True
+
+            End If
+
+        End If
+
+    End Sub
+
+    Protected Sub BtnModalCerrarCultivo_Click(sender As Object, e As EventArgs)
+        CierraCultivo()
+    End Sub
 End Class

App_Code/ClsCompras.vb

@@ -3182,6 +3182,24 @@ Public Class ClsCompras
         Return Retorno
     End Function
 
+
+    Public Function UpdateFechaCompra(CveCompra As Integer, Fecha As Date, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Comp_ComprasFechaUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@Fecha", SqlDbType.Date).Value = Fecha
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la fecha de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
     Public Function GetRepEvaluacionesProveedores(CveEmpresa As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, Evaluado As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_RepEvaluacionesProveedoresGet")
@@ -3338,7 +3356,6 @@ Public Class ClsCompras
     End Function
 
 
-
 End Class
 
 

App_Code/ClsContabilidad.vb

@@ -228,6 +228,8 @@ Public Class ClsContabilidad
                 OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             ElseIf ex.Message.Contains("CK_Conta_PrePolizas_Concepto") Then
                 OnError("Ocurrio un error al registrar la póliza, el concepto o descripción no puede ir vacio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex.Message.Contains("UK_CveEmpresa_CveTipoPoliza_AnioMes_FolioPoliza") Then
+                Alert("No se puede registrar la póliza, póliza duplicada, ya existe una póliza con los datos especificados.", TipoMensaje.MsgAdvertencia)
             Else
                 OnError("Ocurrió un error al Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             End If
@@ -289,7 +291,7 @@ Public Class ClsContabilidad
 
     Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1,
                                             Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1,
-                                            Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1) As Boolean
+                                            Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -314,6 +316,8 @@ Public Class ClsContabilidad
             .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto
             .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+            .Add("@CveIE", SqlDbType.Int).Value = CveIE
+
         End With
 
         Try
@@ -1647,6 +1651,8 @@ Public Class ClsContabilidad
 
             If ex.Message.Contains("50015;") Then
                 OnError("No se puede actualizar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex.Message.Contains("UK_CveEmpresa_CveTipoPoliza_AnioMes_FolioPoliza") Then
+                Alert("No se puede actualizar la póliza, póliza duplicada, ya existe una póliza con los datos especificados.", TipoMensaje.MsgAdvertencia)
             Else
                 OnError("Ocurrió un error al actualizar prepoliza del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             End If
@@ -5812,26 +5818,6 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetAlmacenContable(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer) As Boolean
-        Dim Retorno = False
-
-        DataAdapter("PA_Conta_AlmacenRepGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@FechaInicio", SqlDbType.DateTime).Value = FechaInicio
-            .Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al obtener el almacén contable", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
 
     Public Function GetCuentasAsignaciones(CveEmpresa As Integer) As Boolean
         Dim Retorno = False

App_Code/ClsGenerales.vb

@@ -15,6 +15,7 @@ Public Class ClsGenerales
     Private SqlCommand As SqlCommand
     Private SqlTransacc As SqlTransaction
     Private Data As DataTable
+    Private DSet As New DataSet
     Private disposedValue As Boolean = False
     'REGISTRAR CONEXIONES ABIERTAS
     Private CveConexion As Integer = 0
@@ -50,6 +51,12 @@ Public Class ClsGenerales
         End Get
     End Property
 
+    Public ReadOnly Property DSResultados() As DataSet
+        Get
+            DSResultados = DSet
+        End Get
+    End Property
+
     Public Property FolioInsertado As Integer
 
     Public Property SerieInsertada As String
@@ -3623,18 +3630,40 @@ Public Class ClsGenerales
     End Function
 
 
-    Public Function GetCierreCultivos(CveTemporada As Integer, CveEmpresa As Integer) As Boolean
+    Public Function UpdateCierreCultivos(CveCultivoCuadro As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-        DataAdapter("PA_Agro_CierreCultivosGet")
+        DataAdapter("PA_Agro_CierreCultivosUpdate")
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTemporada", SqlDbType.Int).Value = CveTemporada
+            .Add("@CveCultivoCuadro", SqlDbType.Int).Value = CveCultivoCuadro
+            .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
+        Catch ex As Exception
+            OnError($"Ocurrió un error al actualizar  la pre póliza del cuadro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+
+    End Function
+
+    Public Function GetCierreCultivos(CveTemporada As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Agro_CierreCultivosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTemporada", SqlDbType.Int).Value = CveTemporada
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(DSet)
+            Retorno = True
         Catch ex As Exception
             OnError($"Ocurrió un error al obtener los datos de cultivo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
@@ -3644,7 +3673,6 @@ Public Class ClsGenerales
     End Function
 
 
-
 #End Region
 
 
@@ -4031,7 +4059,7 @@ Public Class ClsGenerales
 
         Dim Retorno As Boolean = False
 
-        DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet")
+        DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet2")
 
         With SqlAdapter.SelectCommand.Parameters
 

App_Code/ClsInventarios.vb

@@ -5908,6 +5908,164 @@ Public Class ClsInventarios
     End Function
 #End Region
 
+
+
+#Region "VIGENCIA COMPUESTOS"
+
+
+    Public Function AddCompuestosVigencia(CveCompuesto As Integer, CveProveedor As Integer, RegistroRSCO As String, FechaVigencia As Date, VigenciaIndeterminada As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_CompuestosVigenciaAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@RegistroRSCO", SqlDbType.VarChar).Value = RegistroRSCO
+            .Add("@FechaVigencia", SqlDbType.Date).Value = FechaVigencia
+            .Add("@VigenciaIndeterminada", SqlDbType.Bit).Value = VigenciaIndeterminada
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("IX_Inv_CveCompuestoCveProveedorFechaVigneciaCveEmpresa") Then
+                Alert($"Ya existe un RSCO con los datos especificados (proveedor, compuesto, Fecha de vigencia).", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("UNIX_Inv_RegistroRSCO") Then
+                Alert($"El RSCO {RegistroRSCO} ya se encuentra registrado.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar la vigencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar la vigencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateCompuestosVigencia(CveCompuestoVigencia As Integer, CveCompuesto As Integer, CveProveedor As Integer, RegistroRSCO As String, FechaVigencia As Date, VigenciaIndeterminada As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_CompuestosVigenciaUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCompuestoVigencia", SqlDbType.Int).Value = CveCompuestoVigencia
+            .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@RegistroRSCO", SqlDbType.VarChar).Value = RegistroRSCO
+            .Add("@FechaVigencia", SqlDbType.Date).Value = FechaVigencia
+            .Add("@VigenciaIndeterminada", SqlDbType.Bit).Value = VigenciaIndeterminada
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("IX_Inv_CveCompuestoCveProveedorFechaVigneciaCveEmpresa") Then
+                Alert($"Ya existe un RSCO con los datos especificados (proveedor, compuesto, Fecha de vigencia).", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("UNIX_Inv_RegistroRSCO") Then
+                Alert($"El RSCO {RegistroRSCO} ya se encuentra registrado.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al actualizar la vigencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el RSCO.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function RemoveCompuestosVigencia(CveCompuestoVigencia As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_CompuestosVigenciaRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCompuestoVigencia", SqlDbType.Int).Value = CveCompuestoVigencia
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al eliminar el RSCO.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar  el RSCO.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function GetCompuestosVigencia(CveCompuesto As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, VigenciaIndeterminada As Boolean, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_CompuestosVigenciaGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@VigenciaIndeterminada", SqlDbType.Int).Value = VigenciaIndeterminada
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al obtener los RSCO", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los RSCO.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function RepCompuestosVigencia(CveCompuesto As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, VigenciaIndeterminada As Boolean, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_CompuestosVigenciaRep")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@VigenciaIndeterminada", SqlDbType.Int).Value = VigenciaIndeterminada
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al obtener los RSCO", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los RSCO.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+#End Region
+
 #Region " IDisposable Support "
     ' IDisposable
     Protected Overridable Sub Dispose(ByVal disposing As Boolean)

App_Code/ClsPaginas.vb

@@ -4857,7 +4857,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Contabilidad2/RepSituacionFinanciera.aspx".ToUpper(), 586)
             PaginaDict.Add("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx".ToUpper(), 587)
 
-            PaginaDict.Add("/Contabilidad2/RepAlmacenConta.aspx".ToUpper(), 539)
+
 
             PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoMensual.aspx".ToUpper(), 589)
             PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoAnual.aspx".ToUpper(), 593)
@@ -5603,6 +5603,8 @@ Public Class ClsPaginas
             PaginaDict.Add("/Contabilidad/OCDetalleAlmacen.aspx".ToUpper(), -1)
 
             PaginaDict.Add("/Agropecuaria/CierreCultivo.aspx".ToUpper(), 1326)
+            PaginaDict.Add("/Inventarios/RegRSCO.aspx".ToUpper(), 1327)
+            PaginaDict.Add("/Inventarios/RepRSCO.aspx".ToUpper(), 1328)
 
 
             PaginaDict.Add("/testApi.aspx".ToUpper(), -1)
@@ -8901,32 +8903,39 @@ Public Class ClsPaginas
         DTConceptosPagoRelacionado.Columns.Add("TipoCambioDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("ObjetoImpDR", GetType(String))
 
+        DTConceptosPagoRelacionado.Columns.Add("Tra001BaseDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Tra001ImpuestoDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Tra001TipoFactorDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Tra001TasaOCuotaDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Tra001ImporteDR", GetType(Decimal))
 
+
+        DTConceptosPagoRelacionado.Columns.Add("Tra002BaseDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Tra002ImpuestoDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Tra002TipoFactorDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Tra002TasaOCuotaDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Tra002ImporteDR", GetType(Decimal))
 
+        DTConceptosPagoRelacionado.Columns.Add("Tra003BaseDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Tra003ImpuestoDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Tra003TipoFactorDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Tra003TasaOCuotaDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Tra003ImporteDR", GetType(Decimal))
 
 
+        DTConceptosPagoRelacionado.Columns.Add("Ret001BaseDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Ret001ImpuestoDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Ret001TipoFactorDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Ret001TasaOCuotaDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Ret001ImporteDR", GetType(Decimal))
 
+        DTConceptosPagoRelacionado.Columns.Add("Ret002BaseDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Ret002ImpuestoDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Ret002TipoFactorDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Ret002TasaOCuotaDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Ret002ImporteDR", GetType(Decimal))
 
+        DTConceptosPagoRelacionado.Columns.Add("Ret003BaseDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Ret003ImpuestoDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Ret003TipoFactorDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("Ret003TasaOCuotaDR", GetType(String))
@@ -8934,14 +8943,6 @@ Public Class ClsPaginas
 
 
 
-        '001 ISR
-        '002 IVA
-        '003 IEPS
-        'Impuetos
-        'Retenciones
-
-
-
         Dim ObjBancos As New ClsBancos
         If ObjBancos.GetComplementoPagos(CveComplementoPago, CveIE, CveVenta, UsuarioActual.CveEmpresa) Then
             Serie = ObjBancos.DtResultados.FiltroPrimeroValor("Serie")
@@ -9114,12 +9115,15 @@ Public Class ClsPaginas
                             Dim NodosTraslados = Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:TrasladosDR/{PagoVersion}:TrasladoDR", namespaces)
                             For Each NodoTraslados As XmlNode In NodosTraslados
 
+                                Dim BaseDR As String = ValorXML(NodoTraslados, "BaseDR")
                                 Dim ImpuestoDR As String = ValorXML(NodoTraslados, "ImpuestoDR")  ' ImpuestoDR
                                 Dim TipoFactor As String = ValorXML(NodoTraslados, "TipoFactorDR")
                                 Dim TasaOCuotaDR As String = ValorXML(NodoTraslados, "TasaOCuotaDR")
                                 Dim ImporteDR As Decimal = ValorXML(NodoTraslados, "ImporteDR").ToDecimal
 
                                 If ImpuestoDR = "001" Then
+
+                                    DrRelacionado("Tra001BaseDR") = BaseDR
                                     DrRelacionado("Tra001ImpuestoDR") = ImpuestoDR
                                     DrRelacionado("Tra001TipoFactorDR") = TipoFactor
                                     DrRelacionado("Tra001TasaOCuotaDR") = TasaOCuotaDR
@@ -9127,6 +9131,7 @@ Public Class ClsPaginas
                                 End If
 
                                 If ImpuestoDR = "002" Then
+                                    DrRelacionado("Tra002BaseDR") = BaseDR
                                     DrRelacionado("Tra002ImpuestoDR") = ImpuestoDR
                                     DrRelacionado("Tra002TipoFactorDR") = TipoFactor
                                     DrRelacionado("Tra002TasaOCuotaDR") = TasaOCuotaDR
@@ -9134,6 +9139,7 @@ Public Class ClsPaginas
                                 End If
 
                                 If ImpuestoDR = "003" Then
+                                    DrRelacionado("Tra003BaseDR") = BaseDR
                                     DrRelacionado("Tra003ImpuestoDR") = ImpuestoDR
                                     DrRelacionado("Tra003TipoFactorDR") = TipoFactor
                                     DrRelacionado("Tra003TasaOCuotaDR") = TasaOCuotaDR
@@ -9143,12 +9149,14 @@ Public Class ClsPaginas
 
                             For Each NodoRetenciiones As XmlNode In Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:RetencionesDR/{PagoVersion}:RetencionDR", namespaces)
 
+                                Dim BaseDR As String = ValorXML(NodoRetenciiones, "BaseDR")
                                 Dim ImpuestoDR As String = ValorXML(NodoRetenciiones, "ImpuestoDR")  ' ImpuestoDR
                                 Dim TipoFactor As String = ValorXML(NodoRetenciiones, "TipoFactorDR")
                                 Dim TasaOCuotaDR As String = ValorXML(NodoRetenciiones, "TasaOCuotaDR")
                                 Dim ImporteDR As Decimal = ValorXML(NodoRetenciiones, "ImporteDR").ToDecimal
 
                                 If ImpuestoDR = "001" Then
+                                    DrRelacionado("Ret001BaseDR") = BaseDR
                                     DrRelacionado("Ret001ImpuestoDR") = ImpuestoDR
                                     DrRelacionado("Ret001TipoFactorDR") = TipoFactor
                                     DrRelacionado("Ret001TasaOCuotaDR") = TasaOCuotaDR
@@ -9156,6 +9164,7 @@ Public Class ClsPaginas
                                 End If
 
                                 If ImpuestoDR = "002" Then
+                                    DrRelacionado("Ret002BaseDR") = BaseDR
                                     DrRelacionado("Ret002ImpuestoDR") = ImpuestoDR
                                     DrRelacionado("Ret002TipoFactorDR") = TipoFactor
                                     DrRelacionado("Ret002TasaOCuotaDR") = TasaOCuotaDR
@@ -9163,6 +9172,7 @@ Public Class ClsPaginas
                                 End If
 
                                 If ImpuestoDR = "003" Then
+                                    DrRelacionado("Ret003BaseDR") = BaseDR
                                     DrRelacionado("Ret003ImpuestoDR") = ImpuestoDR
                                     DrRelacionado("Ret003TipoFactorDR") = TipoFactor
                                     DrRelacionado("Ret003TasaOCuotaDR") = TasaOCuotaDR

App_Code/ClsSisEmpresas.vb

@@ -630,6 +630,7 @@ Public Class ClsSisEmpresas
 
         Return Retorno
     End Function
+
     Public Function UpdateEmpresa(Empresa As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Ciudad As String, Estado As String,
                                   RFC As String, CP As Integer, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String,
                                   ArchivoCer As String, ArchivoPfx As String, Banner As String, Estatus As Boolean, FacturaProduccion As Boolean, MostrarRetIVA As Boolean, MostrarRetISR As Boolean, Regimen As String, EstatusFacturacion As Boolean,
@@ -768,6 +769,37 @@ Public Class ClsSisEmpresas
 
         Return Retorno
     End Function
+
+
+    Public Function UpdateEmpresasCertificados(ArchivoKey As String, ArchivoCer As String, ArchivoPfx As String, CveEmpresa As Integer) As Boolean
+
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Sis_EmpresasCertificadosUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@ArchivoKey", SqlDbType.VarChar).Value = ArchivoKey
+            .Add("@ArchivoCer", SqlDbType.VarChar).Value = ArchivoCer
+            .Add("@ArchivoPfx", SqlDbType.VarChar).Value = ArchivoPfx
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            Alert("Ocurrió un error al actualizar los archivos de certificados", TipoMensaje.MsgAdvertencia)
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar los archivos de certificados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
+
     Public Function UpdateEmpresaXWizard(Empresa As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Ciudad As String, Estado As String,
                                   RFC As String, CP As Integer, Telefono As String, Contacto As String, Mail As String, Regimen As String, SendMail As String, SendMailPassword As String, SendMailServer As String, SendMailPuerto As Integer, SendMailSSL As Boolean,
                                   Buzon_Mail As String, Buzon_Server As String, Buzon_Puerto As Integer, Buzon_SSL As Boolean, Buzon_USR As String, Buzon_PWD As String, CveEmpresa As Integer,

App_Code/Modelos.vb

@@ -4329,7 +4329,7 @@ Namespace Modelos
                     Dim TipoMovto68 As Boolean = True
                     Dim TipoMovto69 As Boolean = False
 
-                    If CveConcepto.Contiene(18) Then
+                    If CveConcepto.Contiene(18, 9) Then
                         TipoMovto68 = False
                         TipoMovto69 = True
                     End If

Ashx/E119.ashx

@@ -100,7 +100,7 @@ Public Class E119 : Implements IHttpHandler
         Try
             Dim Metodo = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString())
             'OBTENER EXISTENCIAS
-            If Metodo = "ConsultaBASF_POG" Then
+            If Metodo = "BASF_POG40" Then
                 context.Response.ContentType = "application/json"
                 Dim Auth = ValidarSolicitud(context)
 

Bancos/IE.aspx

@@ -1416,13 +1416,13 @@
 
                                 <asp:BoundField HeaderText="Fecha C" DataField="FechaCancelacion" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
 
-                                <asp:TemplateField HeaderText="Regenerar" Visible="false" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
+                             <%--   <asp:TemplateField HeaderText="Regenerar" Visible="false" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
                                     <ItemTemplate>
                                         <asp:LinkButton ID="imgRegenerar" OnClick="imgRegenerar_Click" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Regenerar"
                                             data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea regenerar?" data-btn-ok-label="si"
                                             CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-reply-all'></i>" />
                                     </ItemTemplate>
-                                </asp:TemplateField>
+                                </asp:TemplateField>--%>
 
                                 <asp:TemplateField HeaderText="Motivo" Visible="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%">
                                     <ItemTemplate>

Bancos/IE.aspx.vb

@@ -5735,9 +5735,7 @@ Partial Class Bancos_IE
 
         Dim ObjBancos As New ClsBancos
 
-        If UsuarioActual.CveRol = 1 Then
+
-            GvComplementoPagos.Columns(7).Visible = True
-        End If
 
         DVGenerarComplementoModal.Visible = False
 
@@ -5752,7 +5750,7 @@ Partial Class Bancos_IE
                 GvComplementoPagos.DataSource = Nothing
             End If
 
-            GvComplementoPagos.Columns(8).Visible = False
+            GvComplementoPagos.Columns(7).Visible = False
         Else
             If CveIE > 0 Then
                 If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then
@@ -5775,7 +5773,7 @@ Partial Class Bancos_IE
                 End If
             End If
 
-            GvComplementoPagos.Columns(8).Visible = True
+            GvComplementoPagos.Columns(7).Visible = True
         End If
 
         ObjBancos.Dispose()
@@ -5829,7 +5827,6 @@ Partial Class Bancos_IE
                 GvComplementoPagos.Columns(6).Visible = False
                 GvComplementoPagos.Columns(7).Visible = False
                 GvComplementoPagos.Columns(8).Visible = False
-                GvComplementoPagos.Columns(9).Visible = False
 
             End If
 
@@ -5846,41 +5843,6 @@ Partial Class Bancos_IE
     End Sub
 
 
-    Protected Sub imgRegenerar_Click(sender As Object, e As EventArgs)
-        Dim gvr As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow)
-        Dim FolioFiscalPadre As String = gvr.DataKey("FolioFiscal")
-
-        If FolioFiscalPadre <> "" Then
-            Dim Str As New StringBuilder
-            Dim ObjBanco As New ClsBancos
-            ObjBanco.IniciaTransacSQL()
-
-            If ObjBanco.GeneraTimbrePago(CveIE, -1, UsuarioActual, -1, FolioFiscalPadre, EsRegeneracion:=True) Then
-                ObjBanco.Commit()
-                Str.AppendFormat("Folio: <b>{0}</b> &nbsp;", ObjBanco.ComplementoSerieFolio)
-                Str.AppendFormat("<a class="" texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">XML &nbsp;<i class="" fa fa-file""></i></i></a>&nbsp;&nbsp;", Encripta(String.Format("OP=Pag&EXT=xml&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%"))))
-                Str.AppendFormat("<a class="" texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">PDF &nbsp;<i class="" fa fa-ad-pdf""></i></i></i></a>&nbsp;", Encripta(String.Format("OP=Pag&EXT=pdf&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%"))))
-                'Str.Append($"<a style='color:#337ab7' target='_blank' href='./IE.aspx?CveID={gvr.DataKey("CveIE")}'>{gvr.DataKey("Folio")}</a> &nbsp; {gvr.DataKey("NombreCliente")}<br>")
-                PDFReciboDePagos(-1, gvr.DataKey("CveIE").ToEntero, ObjBanco.CveComplementoPago, False, True)
-                Alert(Str.ToString, TipoMensaje.MsgInformacion)
-                CargaComplementosPago()
-            Else
-                Str.AppendFormat("No se genero complemento del Folio {0} por el siguiente motivo: {1}", gvr.DataKey("Folio"), ObjBanco.Mensaje)
-                Alert(Str.ToString, TipoMensaje.MsgError)
-                ObjBanco.RollBack()
-            End If
-
-            ObjBanco.Dispose()
-        Else
-            Alert("El complemento no tiene Folio Fiscal", TipoMensaje.MsgError)
-        End If
-
-    End Sub
-
-
-
-
-
     Private Function VerificaComplementos(Validos As Boolean) As Boolean
         Dim ObjBancos As New ClsBancos
         Dim Retorno As Boolean = False

Compras/Compras.aspx

@@ -288,32 +288,50 @@
                                 </div>
                             </div>
                             <div class="row">
-                                <div class="form-group whitoutcol" style="width: 280px;">
+                              
-                                    <span class="whitoutcol linewhitsize comprasdfleft" style="width: 85px; margin-top: 10px;">Fecha Factura:</span>
+                                    
-                                    <div class="whitoutcol whitoutcol comprasdfleftvar">
+                                    
-                                        <div class="input-group input-sm  input-small date date-picker" data-date-format="dd/mm/yyyy">
+                                    <table>
+                                        <tr>
+                                            <td align="Center" style="width: 100px">Fecha Factura:</td>
+                                            <td align="left" style="width: 100px">
+                                                
 
-                                            <asp:UpdatePanel runat="server">
+                                                    <div class="input-group input-sm  input-small date date-picker" data-date-format="dd/mm/yyyy">
-                                                <ContentTemplate>
-                                                    <asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpGuardar" Width="100px" ClientIDMode="Static"></asp:TextBox>
-                                                    <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                                    <ajax:CalendarExtender runat="server" ID="CEFecha" TargetControlID="TxtFecha" PopupButtonID="ImgFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                                    <asp:RequiredFieldValidator ID="RFVFecha" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                    <asp:CompareValidator ID="CVFecha" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                                    <ajax:ValidatorCalloutExtender ID="VCOFecha1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
-                                                    <ajax:ValidatorCalloutExtender ID="VCOFecha2" runat="server" HighlightCssClass="vco" TargetControlID="CVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
-                                                </ContentTemplate>
-                                            </asp:UpdatePanel>
-                                            <asp:HiddenField ID="HdnEjercicioAC" runat="server" Value="-1" />
-                                            <asp:Button Text="" ID="BtnCambiaFechaTC" OnClick="BtnCambiaFechaTC_Click" ClientIDMode="Static" Style="display: none;" runat="server" />
-                                            <asp:Button Text="" ID="BtnCambiaFecha" OnClick="BtnCambiaFecha_Click" ClientIDMode="Static" Style="display: none;" runat="server" />
 
-                                            <span class="input-group-btn ">
+                                                        <asp:UpdatePanel runat="server">
-                                                <asp:LinkButton runat="server" ID="ImgFecha" class="btn default"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
+                                                            <ContentTemplate>
-                                            </span>
+                                                                <asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpGuardar" Width="100px" ClientIDMode="Static"></asp:TextBox>
-                                        </div>
+                                                                <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                    </div>
+                                                                <ajax:CalendarExtender runat="server" ID="CEFecha" TargetControlID="TxtFecha" PopupButtonID="ImgFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                </div>
+                                                                <asp:RequiredFieldValidator ID="RFVFecha" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                                <asp:CompareValidator ID="CVFecha" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                                <ajax:ValidatorCalloutExtender ID="VCOFecha1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                                <ajax:ValidatorCalloutExtender ID="VCOFecha2" runat="server" HighlightCssClass="vco" TargetControlID="CVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                            </ContentTemplate>
+                                                        </asp:UpdatePanel>
+                                                        <asp:HiddenField ID="HdnEjercicioAC" runat="server" Value="-1" />
+                                                        <asp:Button Text="" ID="BtnCambiaFechaTC" OnClick="BtnCambiaFechaTC_Click" ClientIDMode="Static" Style="display: none;" runat="server" />
+                                                        <asp:Button Text="" ID="BtnCambiaFecha" OnClick="BtnCambiaFecha_Click" ClientIDMode="Static" Style="display: none;" runat="server" />
+
+                                                        <span class="input-group-btn ">
+                                                            <asp:LinkButton runat="server" ID="ImgFecha" class="btn default"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
+                                                        </span>
+                                                    </div>
+                                                 
+                                            </td>
+                                            <td align="left">
+                                                <asp:LinkButton runat="server" Visible="false" ID="LnkActualziarFechadecompra" OnClick="LnkActualziarFechadecompra_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea actualizar la fecha de la compra?"
+                                                    data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" ToolTip="Actualizar Fecha de compra" />
+                                            </td>
+                                        </tr>
+                                    </table>
+                                    
+                                    
+
+                                    
+
+                               
                                 <div class="form-group whitoutcol" style="width: 280px;">
                                     <span class="whitoutcol linewhitsize comprasdfleft">Descripción: </span>
                                     <div class="whitoutcol whitoutcol comprasdfleftvar">
@@ -2804,7 +2822,7 @@
                             </div>
                         </div>
                         <div class="row">
-                            <div class="col-md-6">
+                            <div class="col-md-6" runat="server" id="DVModalAnticipoFechaEjecucion" visible="false">
                                 <label class="col-md-6"><b>Fecha:  </b></label>
                                 <div class="col-md-6">
                                     <div class="input-group input-sm  input-small date date-picker" data-date-format="dd/mm/yyyy">

Compras/Compras.aspx.vb

@@ -1426,6 +1426,7 @@ Partial Class Compras_Compras
                 DivEsNoDeducible.Visible = True
                 DivActualizarVincular.Visible = True
 
+                DVModalAnticipoFechaEjecucion.Visible = True
 
 
             Else
@@ -1881,6 +1882,8 @@ Partial Class Compras_Compras
                     ImgFecha.Enabled = UsuarioActual.TienePermisoProceso(216)
                     CEFecha.Enabled = UsuarioActual.TienePermisoProceso(216)
 
+
+
                     TxtSubTotal.Enabled = False
                     TxtDescuento.Enabled = False
                     TxtSubTotal2.Enabled = False
@@ -2883,6 +2886,16 @@ Partial Class Compras_Compras
                 ImgFecha.Enabled = False
                 CEFecha.Enabled = False
 
+
+                If UsuarioActual.TienePermisoProceso(342) Then
+                    TxtFecha.Enabled = True
+                    ImgFecha.Enabled = True
+                    CEFecha.Enabled = True
+                    LnkActualziarFechadecompra.Visible = True
+                End If
+
+
+
                 DdlProveedor.Enabled = False
                 DdlProveedorSucursal.Enabled = False
                 DdlEstatus.Enabled = False
@@ -9305,14 +9318,16 @@ Partial Class Compras_Compras
                                                                 End If
                                                             End If
 
-                                                            If tipoCambio > 1 Then Concepto += $" TC{tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}"
+
-                                                            'Agregamos el Opuesto del 22 -> 15
+
-                                                            If ImporteMovimiento <> 0 Then
+                                                            'If tipoCambio > 1 Then Concepto += $" TC{tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}"
-                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContableContra, Concepto + If(tipoCambio > 1, $" TC {tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}", ""), Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=-1, CveCreditoDetalle:=-1, ImporteMX:=ImporteMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), Contabilizable:=True, TipoCambio:=tipoCambio, CveSubProyecto:=CveSubProyectoAnticipo) Then
+                                                            ''Agregamos el Opuesto del 22 -> 15
-                                                                    ErrorMovtosCxP = 1
+                                                            'If ImporteMovimiento <> 0 Then
-                                                                    Exit For
+                                                            '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContableContra, Concepto + If(tipoCambio > 1, $" TC {tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}", ""), Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=-1, CveCreditoDetalle:=-1, ImporteMX:=ImporteMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), Contabilizable:=True, TipoCambio:=tipoCambio, CveSubProyecto:=CveSubProyectoAnticipo) Then
-                                                                End If
+                                                            '        ErrorMovtosCxP = 1
-                                                            End If
+                                                            '        Exit For
+                                                            '    End If
+                                                            'End If
 
                                                         End If
                                                     End If
@@ -9403,15 +9418,7 @@ Partial Class Compras_Compras
                                                             End If
 
 
-                                                            If tipoCambio > 1 Then Concepto += $" TC{tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}"
 
-                                                            'Agregamos el Opuesto del 23 -> 16
-                                                            If ImporteMovimiento <> 0 Then
-                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContableContra, Concepto + If(tipoCambio > 1, $" TC {tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}", ""), Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=-1, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=-1, CveCreditoDetalle:=-1, ImporteMX:=ImporteMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), Contabilizable:=True, CveSubProyecto:=CveSubProyectoAnticipo) Then
-                                                                    ErrorMovtosCxP = 1
-                                                                    Exit For
-                                                                End If
-                                                            End If
 
                                                         End If
                                                     End If
@@ -21121,6 +21128,21 @@ Partial Class Compras_Compras
     Private Sub ChkAliasFlexible_CheckedChanged(sender As Object, e As EventArgs) Handles ChkAliasFlexible.CheckedChanged
         TxtPSAlias.Enabled = ChkAliasFlexible.Checked
     End Sub
+
+    Protected Sub LnkActualziarFechadecompra_Click(sender As Object, e As EventArgs)
+
+
+        Dim ObjCompra As New ClsCompras
+
+
+        If ObjCompra.UpdateFechaCompra(CveCompra, TxtFecha.Text.ToDate, UsuarioActual.CveEmpresa) Then
+            Alert("Fecha Actualizada Correctamente")
+        End If
+
+
+        ObjCompra.Dispose()
+
+    End Sub
 End Class
 
 Public Class MMensajeDevolucion

Compras/RepPagado.aspx

@@ -61,8 +61,7 @@
                             </div>
                             <div class="col-md-1">Proveedor:</div>
                             <div class="col-md-2 ">
-                                <asp:DropDownList ID="DdlProveedor" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control  input-small input-sm select2me" Width="100%">
+                                 <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>   
-                                </asp:DropDownList>
                             </div>
                             <div class="col-md-1">Fecha Inicial:</div>
                             <div class="col-md-1">

Compras/RepPagado.aspx.cs

@@ -42,9 +42,10 @@ public partial class Compras_RepPagado : ClsPaginas
         DdlMoneda.DataBind();
 
         //Carga Proveedor
-        DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
+        DdlProveedores.setEsWebService(true);
-        DdlProveedor.Items.Insert(0, new ListItem("Todos", "-1"));
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores");
-        DdlProveedor.DataBind();
+        DdlProveedores.SelectedText = "Todos";
+        DdlProveedores.SelectedValue = "-1";
 
         //Carga Usuarios
         DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
@@ -163,7 +164,7 @@ public partial class Compras_RepPagado : ClsPaginas
     private void CargaDatos()
     {
         ClsCompras ObjComp = new ClsCompras();
-        if (ObjComp.GetRepPagado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedor.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(),
+        if (ObjComp.GetRepPagado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedores.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(),
             DdlSubProyecto.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero(),
             DdlResponsable.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, DdlBanco.SelectedValue.ToEntero(), DdlCuentaBancaria.SelectedValue.ToEntero(),
             DdlMoneda.SelectedValue.ToEntero(),TxtFechaICompra.Text.ToDate(),TxtFechaFCompra.Text.ToDate(),CveTipoProveedor: DdlTipoProveedor.SelectedValue.ToEntero(), 
@@ -229,8 +230,8 @@ public partial class Compras_RepPagado : ClsPaginas
             StrFiltro.AppendFormat("&emsp;<b>SubProyecto</b>: {0}", DdlSubProyecto.SelectedItem.Text);
         if (DdlGrupo.SelectedValue != "-1")
             StrFiltro.AppendFormat("&emsp;<b>Grupo</b>: {0}", DdlGrupo.SelectedItem.Text);
-        if (DdlProveedor.SelectedValue != "-1")
+        if (DdlProveedores.SelectedValue != "-1")
-            StrFiltro.AppendFormat("&emsp;<b>Proveedor</b>: {0}", DdlProveedor.SelectedItem.Text);
+            StrFiltro.AppendFormat("&emsp;<b>Proveedor</b>: {0}", DdlProveedores.txtText.Value);
         if (DdlUsuario.SelectedValue != "-1")
             StrFiltro.AppendFormat("&emsp;<b>Registro</b>: {0}", DdlUsuario.SelectedItem.Text);
         if (DdlResponsable.SelectedValue != "-1")
@@ -251,12 +252,14 @@ public partial class Compras_RepPagado : ClsPaginas
         }
 
         System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+        
         string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
         List<ReportParameter> para = new List<ReportParameter>();
         para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
         para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
         para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()));
         para.Add(new ReportParameter("Filtros", StrFiltro.ToString()));
+
         if (Imagen.Exists)
         {
             para.Add(new ReportParameter("LogoPath", logouri));
@@ -265,6 +268,7 @@ public partial class Compras_RepPagado : ClsPaginas
         {
             para.Add(new ReportParameter("LogoPath", ""));
         }
+
         ImprimirPDF(RutaPDF,DtPagado, para, "RepPagado" + DateTime.Now.ToString("yyyyMMddhhmmss"), Opcion);
     }
 

Compras/RepPagadoDetalle.aspx

@@ -47,9 +47,8 @@
                                 </asp:DropDownList>
                             </div>
                             <div class="col-md-1">Proveedor:</div>
-                            <div class="col-md-2 ">
+                            <div class="col-md-2 "> 
-                                <asp:DropDownList ID="DdlProveedor" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control  input-small input-sm select2me" Width="100%">
+                                <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>   
-                                </asp:DropDownList>
                             </div>
                             <div class="col-md-1">Fecha Inicial:</div>
                             <div class="col-md-1">

Compras/RepPagadoDetalle.aspx.cs

@@ -47,9 +47,10 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
         DdlMoneda.DataBind();
 
         //Carga Proveedor
-        DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
+        DdlProveedores.setEsWebService(true);
-        DdlProveedor.Items.Insert(0, new ListItem("Todos", "-1"));
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores");
-        DdlProveedor.DataBind();
+        DdlProveedores.SelectedText = "Todos";
+        DdlProveedores.SelectedValue = "-1";
 
         //Carga Usuarios
         DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
@@ -87,7 +88,24 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
         DdlGrupo.SelectedValueExist(Request["Grupo"] == null ? "-1" : Request["Grupo"].ToString());
         DdlProyecto.SelectedValueExist(Request["CveProyecto"] == null ? "-1" : Request["CveProyecto"].ToString());
         DdlSubProyecto.SelectedValueExist(Request["CveSubProyecto"] == null ? "-1" : Request["CveSubProyecto"].ToString());
-        DdlProveedor.SelectedValueExist(Request["CveProveedor"] == null ? "-1" : Request["CveProveedor"].ToString());
+        
+        
+        if (Request["CveProveedor"] != null  && Request["CveProveedor"].ToString().ToEntero() > 0)
+        {
+
+            DataRow DrowProveedor;
+            int CveProveedor = Request["CveProveedor"].ToString().ToEntero();
+
+            DrowProveedor = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor).Rows[0];
+
+
+            DdlProveedores.txtText.Value = DrowProveedor["RazonSocial"].ToString();
+            DdlProveedores.txtValue.Value = CveProveedor.ToString();
+        }
+
+
+        
+
         DdlUsuario.SelectedValueExist(Request["CveUsuario"] == null ? "-1" : Request["CveUsuario"].ToString());
         DdlResponsable.SelectedValueExist(Request["CveResponsable"] == null ? "-1" : Request["CveResponsable"].ToString());
         DdlBanco.SelectedValueExist(Request["CveBanco"] == null ? "-1" : Request["CveBanco"].ToString());
@@ -204,7 +222,7 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
     private void CargaDatos()
     {
         ClsCompras ObjComp = new ClsCompras();
-        if (ObjComp.GetRepPagadoDetalle(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedor.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(),
+        if (ObjComp.GetRepPagadoDetalle(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedores.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(),
             DdlSubProyecto.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero(),
             DdlResponsable.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, DdlBanco.SelectedValue.ToEntero(), DdlCuentaBancaria.SelectedValue.ToEntero(),
             DdlMoneda.SelectedValue.ToEntero(),ChkMesSeleccionado.Checked,GPO, TxtFechaICompra.Text.ToDate(), TxtFechaFCompra.Text.ToDate(), Tipo, CveTipoProveedor: DdlTipoProveedor.SelectedValue.ToEntero(), 
@@ -260,8 +278,8 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
             StrFiltro.AppendFormat("&emsp;<b>SubProyecto</b>: {0}", DdlSubProyecto.SelectedItem.Text);
         if (DdlGrupo.SelectedValue != "-1")
             StrFiltro.AppendFormat("&emsp;<b>Grupo</b>: {0}", DdlGrupo.SelectedItem.Text);
-        if (DdlProveedor.SelectedValue != "-1")
+        if (DdlProveedores.SelectedValue != "-1")
-            StrFiltro.AppendFormat("&emsp;<b>Proveedor</b>: {0}", DdlProveedor.SelectedItem.Text);
+            StrFiltro.AppendFormat("&emsp;<b>Proveedor</b>: {0}", DdlProveedores.txtText.Value);
         if (DdlUsuario.SelectedValue != "-1")
             StrFiltro.AppendFormat("&emsp;<b>Registro</b>: {0}", DdlUsuario.SelectedItem.Text);
         if (DdlResponsable.SelectedValue != "-1")

Compras/RepPagadoPeriodo.aspx

@@ -64,8 +64,10 @@
                             </div>
                             <div class="col-md-1">Proveedor:</div>
                             <div class="col-md-2 ">
-                                <asp:DropDownList ID="DdlProveedor" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control  input-small input-sm select2me" Width="100%">
+                              <%--  <asp:DropDownList ID="DdlProveedor" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control  input-small input-sm select2me" Width="100%">
-                                </asp:DropDownList>
+                                </asp:DropDownList>--%>
+
+                                <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>   
                             </div>
                             <div class="col-md-1">Fecha Inicial:</div>
                             <div class="col-md-1">

Compras/RepPagadoPeriodo.aspx.cs

@@ -50,9 +50,10 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
         DdlMoneda.DataBind();
 
         //Carga Proveedor
-        DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
+        DdlProveedores.setEsWebService(true);
-        DdlProveedor.Items.Insert(0, new ListItem("Todos", "-1"));
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores");
-        DdlProveedor.DataBind();
+        DdlProveedores.SelectedText = "Todos";
+        DdlProveedores.SelectedValue = "-1";
 
         //Carga Usuarios
         DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
@@ -278,8 +279,8 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
             StrFiltro.AppendFormat("&emsp;<b>SubProyecto</b>: {0}", DdlSubProyecto.SelectedItem.Text);
         if (DdlGrupo.SelectedValue != "-1")
             StrFiltro.AppendFormat("&emsp;<b>Grupo</b>: {0}", DdlGrupo.SelectedItem.Text);
-        if (DdlProveedor.SelectedValue != "-1")
+        if (DdlProveedores.SelectedValue != "-1")
-            StrFiltro.AppendFormat("&emsp;<b>Proveedor</b>: {0}", DdlProveedor.SelectedItem.Text);
+            StrFiltro.AppendFormat("&emsp;<b>Proveedor</b>: {0}", DdlProveedores.txtText.Value);
         if (DdlUsuario.SelectedValue != "-1")
             StrFiltro.AppendFormat("&emsp;<b>Registro</b>: {0}", DdlUsuario.SelectedItem.Text);
         if (DdlResponsable.SelectedValue != "-1")
@@ -332,7 +333,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
     {
         if (RblTipoCambio.SelectedValue.ToEntero() == 3 && TxtEspecifico.Text != "") { TCEspecifico = TxtEspecifico.Text.ToDouble(); } else { TCEspecifico = -1; }
         ClsCompras ObjCompras = new ClsCompras();
-        if(ObjCompras.GetRepPagadoPeriodo(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedor.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(),
+        if(ObjCompras.GetRepPagadoPeriodo(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedores.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(),
             DdlSubProyecto.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero(),
             DdlResponsable.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, DdlBanco.SelectedValue.ToEntero(), DdlCuentaBancaria.SelectedValue.ToEntero(),
             DdlMoneda.SelectedValue.ToEntero(), TxtFechaICompra.Text.ToDate(), TxtFechaFCompra.Text.ToDate(), TipoCambio, TCEspecifico)){

Compras/eFacturas.aspx

@@ -69,9 +69,16 @@
             <li>
                 <asp:LinkButton ID="LnkBitacotaFacturas" runat="server" OnClick="LnkBitacotaFacturas_Click"><i class="fa fa-book"    ></i> Bitácora Facturas</asp:LinkButton>
             </li>
-              <li>
+            <li>
                 <asp:LinkButton ID="LnkVinculacionMasivaComplementos" runat="server" OnClick="LnkVinculacionMasivaComplementos_Click" Visible ="false" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea realizar la vinculación masiva de complementos?" data-btn-ok-label="si"><i class="fa fa-tasks" ></i> Vinculación Masiva Complementos</asp:LinkButton>
             </li>
+
+            <li>                 
+                <asp:LinkButton ID="LnkPersonalizar" runat="server" OnClick="LnkPersonalizar_Click"  ><i class="fa fa-pencil"></i>  Personalizar</asp:LinkButton>
+            </li>
+
+
+            
         </ContentTemplate>
         <Triggers>
             <asp:PostBackTrigger  ControlID="LnkPdf"/>
@@ -196,6 +203,7 @@
                         <asp:GridView ID="GvD" runat="server" Width="100%" AutoGenerateColumns="False" DataKeyNames="CveFactura,CveCompra,CveProveedor,SerieFolio,NombreProveedor,UUID,RFCDe,RFCPara,TipoFactura,FueValidado,TipoComprobante,Version,RFCde,XML,PDF,BloquePorComplemento,Total"
                             EmptyDataText="No se encontraron Registros con el filtro actual" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None">
                             <Columns>
+
                                 <asp:TemplateField HeaderText="Tipo">
                                     <ItemTemplate>
                                         <asp:Label ID="LtTipoComprobante" runat="server" Text='<%# Eval("TipoComprobante") %>'></asp:Label>
@@ -260,6 +268,14 @@
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Center" />
                                 </asp:TemplateField>
+
+                                <%--Folio Fiscal 11--%>                               
+                                 <asp:TemplateField HeaderText="Folio Fiscal" Visible="false">
+                                    <ItemTemplate>
+                                        <asp:Literal ID="LtlFolioFiscal" runat="server" Text='<%# Eval("UUID") %>'></asp:Literal>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
                                 <asp:TemplateField HeaderText="Agregar">
                                     <ItemTemplate>
                                         <%--<asp:Image ID="ImgAgregar" runat="server" Style="cursor: pointer;" Visible='<%# Eval("CveProveedor").ToString <> "" %>' ToolTip="Agregar Factura" ImageUrl="/Imagenes/Nota.gif" Height="18px" />--%>
@@ -372,6 +388,13 @@
                                         </ItemTemplate>
                                         <ItemStyle HorizontalAlign="Center" />
                                     </asp:TemplateField>
+
+                                    <%--  Folio Fiscal 9 --%>
+                                   <asp:TemplateField HeaderText="Folio Fiscal" Visible="false">
+                                        <ItemTemplate>
+                                            <asp:Literal ID="LtlFolioFiscal" runat="server" Text='<%# Eval("UUID") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
                                     <asp:TemplateField HeaderText="Agregar">
                                         <ItemTemplate>
                                             <asp:HyperLink ID="HplAgregarP" runat="server" CssClass="btn btn-circle btn-sm green" Visible='<%# Eval("CveProveedor").ToString <> "" %>' data-toggle="tooltip" title="Agregar Factura" Target="_blank" rel="opener"><i class="fa fa-plus"></i></asp:HyperLink>
@@ -485,6 +508,12 @@
                                             <asp:LinkButton ID="ImgValidarCFDi" runat="server" CssClass="btn btn-xs btn-success" Text="Validar" Visible="false" CommandName="ValidarCFDi" CommandArgument='<%# Eval("CveFactura") %>' />
                                         </ItemTemplate>
                                         <ItemStyle HorizontalAlign="Center" />
+                                    </asp:TemplateField>
+                                      <%--  Folio Fiscal 9 --%>
+                                    <asp:TemplateField HeaderText="Folio Fiscal" Visible="false">
+                                        <ItemTemplate>
+                                            <asp:Literal ID="LtlFolioFiscal" runat="server" Text='<%# Eval("UUID") %>'></asp:Literal>
+                                        </ItemTemplate>
                                     </asp:TemplateField>
                                     <asp:TemplateField HeaderText="Agregar">
                                         <ItemTemplate>
@@ -898,6 +927,36 @@
     </div>
 
 
+    <div id="DvmodalPersonalizar" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalPersonalizar" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" id="H3" runat="server">
+                            <asp:Literal runat="server" ID="LtlModalPErsonalizarTitulo">Personalizar</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+
+                        <div class="row">
+
+                            <div class="col-md-4">
+                                <asp:CheckBox runat="server" ID="ChkModalPersonalzarFolioFiscal" Text="Folio Fiscal" TextAlign="Right" />
+                            </div>
+
+                        </div>
+
+                    </div>
+                    <div class="modal-footer">
+                        <asp:LinkButton ID="LnkModalPersonalizar" runat="server" CssClass="btn btn-primary"   OnClick="LnkModalPersonalizar_Click">Personalizar</asp:LinkButton>
+                        <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
 
 
         <div id="DvModalVincularTrasaldo" class="modal ADS fade" role="dialog">
@@ -1142,6 +1201,12 @@
             </contenttemplate>
         </asp:UpdatePanel>
     </div>
+
+
+
+   
+
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">

Compras/eFacturas.aspx.vb

@@ -710,6 +710,22 @@ Partial Class Compras_eFacturas
     End Property
 
 
+
+
+    Property DTTraslados As DataTable
+        Get
+            If ViewState("DTTraslados") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DTTraslados"), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            ViewState("DTTraslados") = value
+        End Set
+    End Property
+
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -750,8 +766,8 @@ Partial Class Compras_eFacturas
             'If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(10).Visible = False
             'If UsuarioActual.Empresa.Funcionalidad(156) = "1" Then GvD.Columns(5).Visible = True
 
-            If UsuarioActual.TienePermisoProceso(81) Then GvD.Columns(12).Visible = True : GvD.Columns(13).Visible = True
+            If UsuarioActual.TienePermisoProceso(81) Then GvD.Columns(13).Visible = True : GvD.Columns(14).Visible = True
-            If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(11).Visible = False
+            If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(12).Visible = False
             If UsuarioActual.Empresa.Funcionalidad(156) = "1" Then GvD.Columns(6).Visible = True
 
 
@@ -773,6 +789,9 @@ Partial Class Compras_eFacturas
     End Sub
 
     Private Sub CargaDatos()
+
+        DTTraslados = New DataTable
+
         Dim Folio, RFC, Proveedor As String
         Folio = If(TxtFolio.Text.Trim.Length > 0, String.Format("%{0}%", TxtFolio.Text.Trim.ToUpper), "-1")
         RFC = "-1" 'If(TxtRFC.Text.Trim.Length > 0, TxtRFC.Text.Trim, "-1")
@@ -792,7 +811,7 @@ Partial Class Compras_eFacturas
         End If
 
         Dim DtPagos As DataTable = Nothing
-        Dim DTTrasaldos As DataTable = Nothing
+        'Dim DTTrasaldos As DataTable = Nothing
 
         Dim ObjDatos As New ClsCompras
         If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa) Then
@@ -813,10 +832,9 @@ Partial Class Compras_eFacturas
             If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa, Opcion:=2) Then
 
                 If ObjDatos.DtResultados.Rows.Count > 0 Then
-
+                    DTTraslados = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'")
-                    DTTrasaldos = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'")
-
                 End If
+
             End If
         End If
         LblTotalTraslados.Text = String.Format("{0} Traslados", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'").Rows.Count.ToString("N0"))
@@ -825,11 +843,10 @@ Partial Class Compras_eFacturas
             GvPagos.DataSource = DtPagos
         End If
 
-        If DTTrasaldos IsNot Nothing AndAlso DTTrasaldos.Rows.Count > 0 Then
+        If DTTraslados IsNot Nothing AndAlso DTTraslados.Rows.Count > 0 Then
-            GvTraslados.DataSource = DTTrasaldos
+            GvTraslados.DataSource = DTTraslados
         End If
 
-
         ObjDatos.Dispose()
 
         GvD.DataBind()
@@ -1427,7 +1444,7 @@ Partial Class Compras_eFacturas
         If dt IsNot Nothing 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)
+
 
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -1435,13 +1452,22 @@ Partial Class Compras_eFacturas
             params.Add(New ReportParameter("FechaFin", FechaF))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file//:{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
 
-            ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", dt, params, $"FacturasBuzon_{Now.ToString("yyyyMMyyddmmss")}", Tipo)
+
+            If Tab.ActiveTabIndex = 2 Then
+
+                ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", DTTraslados, params, $"FacturasBuzon_{Now.ToString("yyyyMMyyddmmss")}", Tipo)
+            Else
+                ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", dt, params, $"FacturasBuzon_{Now.ToString("yyyyMMyyddmmss")}", Tipo)
+            End If
+
+
         End If
 
     End Sub
@@ -4540,4 +4566,27 @@ Partial Class Compras_eFacturas
 
 #End Region
 
+
+    Protected Sub LnkModalPersonalizar_Click(sender As Object, e As EventArgs)
+
+        GvD.Columns(11).Visible = ChkModalPersonalzarFolioFiscal.Checked
+        GvPagos.Columns(9).Visible = ChkModalPersonalzarFolioFiscal.Checked
+        GvTraslados.Columns(9).Visible = ChkModalPersonalzarFolioFiscal.Checked
+
+
+        UpDatos.Update()
+        UpPagos.Update()
+        UpTraslados.Update()
+
+        RegistraScript("$('#DvmodalPersonalizar').modal('hide');")
+    End Sub
+
+
+
+
+    Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs)
+
+        RegistraScript("$('#DvmodalPersonalizar').modal('show');")
+
+    End Sub
 End Class

Contabilidad/RegPrePolizaS.aspx

@@ -477,7 +477,7 @@
                     <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
 
                         <asp:GridView ID="GvPrePoliza" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn GvPrePoliza" GridLines="None"
-                            DataKeyNames="CvePrePolizaDetalle,IdMov, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,Cargo,Abono" Width="100%" >
+                            DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,Cargo,Abono,CveIE" Width="100%" >
                             <Columns>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Movimiento</HeaderTemplate>

Contabilidad/RegPrePolizaS.aspx.vb

@@ -1156,22 +1156,61 @@ Partial Class ContabilidadC_RegPrePolizaS
             OcurrioError = True
         End If
 
+        Dim CveIEAgregado As Integer = -1
         For Each row As GridViewRow In GvPrePoliza.Rows
             If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
                 If row.FCCheckBox("chkModificado").Checked Then
                     contador = contador + 1
+
+
+
+
+
+                    Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal)
+
+                    If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
+                        Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL)
+                        CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, row.DataKey("ContadoNumeroFolio"),
+                                                   row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "",
+                                                   False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                        If CveIEAgregado < 0 Then
+                            'MsgError = "No se pudo registrar movimiento bancario"
+                            OcurrioError = True
+                            Exit For
+                        End If
+                    End If
+
+
+
+
                     If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero,
-                                                                   row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
+                                                                       row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
-                                                                   row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
+                                                                       row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
-                                                                   CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
+                                                                       CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
-                                                                   CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
+                                                                       CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
-                                                                   CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                                                       CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then
                         OcurrioError = True
                         Exit For
                     End If
                 End If
-            Else
+                Else
                 contador = contador + 1
+
+
+                Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal)
+
+                If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
+                    Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL)
+                    CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, row.DataKey("ContadoNumeroFolio"),
+                                                   row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "",
+                                                   False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    If CveIEAgregado < 0 Then
+                        'MsgError = "No se pudo registrar movimiento bancario"
+                        OcurrioError = True
+                        Exit For
+                    End If
+                End If
+
                 If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
                                                             row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), row.DataKey("Referencia").ToString,
                                                             row.DataKey("CveConceptoContable").ToEntero, row.FCLiteral("TxtConcepto").Text, Now,
@@ -1180,7 +1219,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                                                             ImporteMX:=If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
                                                             row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveProveedor:=row.DataKey("CveProveedor").ToEntero,
                                                             CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
-                                                            CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, PorcentajeImpuesto:=row.DataKey("PorcentajeImpuesto").ToDecimal) Then
+                                                            CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, PorcentajeImpuesto:=row.DataKey("PorcentajeImpuesto").ToDecimal, CveIE:=CveIEAgregado) Then
                     OcurrioError = True
                     Exit For
                 End If
@@ -1252,6 +1291,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlConceptosContablesE.SelectedValueExist(CveConceptoContable)
         DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e)
 
+
         TxtTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDecimal.ToString("###,###,###.00")
 
         TxtME.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ImporteME").ToDecimal.FormatoNumero
@@ -1313,6 +1353,12 @@ Partial Class ContabilidadC_RegPrePolizaS
         End If
 
 
+        If DdlConceptosContablesE.SelectedValue.ToEntero = 30 AndAlso CvePrePoliza > 0 Then
+            DdlConceptosContablesE.Enabled = False
+        Else
+            DdlConceptosContablesE.Enabled = True
+        End If
+
         UpModalConcepto.Update()
 
     End Sub

Contabilidad2/RepAlmacenConta.aspx

@@ -1,76 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAlmacenConta.aspx.vb" Inherits="Contabilidad2_RepAlmacenConta" %>
-
-<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="E" Runat="Server">
-     Reporte Almacen Contable
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
-   
-</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
-</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
-     <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-            <div class="portlet solid  grey-cascade portlet-filter">
-                <div class="portlet-title portlet-filterT smalltitle">
-                    <div class="tools">
-                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
-                        <a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
-                        <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
-                    </div>
-                    <div class="titlefiltros  caption">
-                        <div class="row">
-                            <div class="col-md-1 truncate" style="text-align: right!important">Fecha Inicio:</div>
-                            <div class="col-md-2 ">
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
-                                    <asp:TextBox Style="width: 80px !important;" ID="TxtFechaI" runat="server" CssClass="form-control" MaxLength="10"></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="ImgFechaI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                </div>
-                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFechaI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                            </div>
-
-                            <div class="col-md-1 truncate" style="text-align: right!important">Fecha Fin:</div>
-                            <div class="col-md-2 ">
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
-                                    <asp:TextBox Style="width: 80px !important;" ID="TxtFechaF" runat="server" CssClass="form-control" MaxLength="10"></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="ImgFechaF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                </div>
-                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                            </div>
-                             
-                        </div>
-                    </div>
-                </div>
-            </div>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-
-    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-            <asp:GridView ID="GVAlmacen" runat="server" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
-                <Columns>
-                     <asp:BoundField HeaderText="Almacen"  DataField="Almacen" />
-                     <asp:BoundField HeaderText="Saldo Inicial" ItemStyle-HorizontalAlign="Right" DataField="SaldoInicial" DataFormatString="{0:N2}"/>
-                     <asp:BoundField HeaderText="Cargos" ItemStyle-HorizontalAlign="Right" DataField="Cargos" DataFormatString="{0:N2}"/>
-                     <asp:BoundField HeaderText="Abonos" ItemStyle-HorizontalAlign="Right" DataField="Abonos" DataFormatString="{0:N2}"/>
-                     <asp:BoundField HeaderText="Saldo Final" ItemStyle-HorizontalAlign="Right" DataField="SaldoFinal" DataFormatString="{0:N2}"/>
-                </Columns>
-            </asp:GridView>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-</asp:Content>
-<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
-</asp:Content>
-

Contabilidad2/RepAlmacenConta.aspx.vb

@@ -1,34 +0,0 @@
-Imports Extensiones
-
-Partial Class Contabilidad2_RepAlmacenConta
-    Inherits ClsPaginas
-
-    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If Not IsPostBack Then
-
-        End If
-    End Sub
-
-    Private Sub CargaDatos()
-        Dim objInv As New ClsContabilidad
-
-        Dim FechaI, FechaF As Date
-        FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim().ToDate, MinFecha)
-        FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim().ToDate, MaxFecha)
-
-
-        If objInv.GetAlmacenContable(FechaI, FechaF, UsuarioActual.CveEmpresa) Then
-            GVAlmacen.DataSource = objInv.DtResultados
-
-        End If
-        objInv.Dispose()
-        GVAlmacen.DataBind()
-    End Sub
-
-    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
-        CargaDatos()
-        UpDatos.Update()
-    End Sub
-
-
-End Class

Empresas/119/Formatos/ReciboDePago.rdlc

@@ -702,7 +702,7 @@
               </TablixCells>
             </TablixRow>
             <TablixRow>
-              <Height>0.39427cm</Height>
+              <Height>0.43188cm</Height>
               <TablixCells>
                 <TablixCell>
                   <CellContents>
@@ -798,6 +798,7 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <rd:Selected>true</rd:Selected>
                   </CellContents>
                 </TablixCell>
                 <TablixCell>
@@ -901,7 +902,6 @@
                         <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
                       </Style>
                     </Textbox>
-                    <rd:Selected>true</rd:Selected>
                   </CellContents>
                 </TablixCell>
                 <TablixCell>
@@ -938,7 +938,6 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <rd:Selected>true</rd:Selected>
                   </CellContents>
                 </TablixCell>
               </TablixCells>
@@ -970,13 +969,13 @@
                       <rd:DefaultName>Textbox108</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 
+			   Fields!Tra001BaseDR.Value &gt; 0 
-	OR Fields!Tra002ImporteDR.Value &gt; 0 
+			OR Fields!Tra002BaseDR.Value &gt; 0 
-	OR Fields!Tra003ImporteDR.Value &gt; 0 
+			OR Fields!Tra003BaseDR.Value &gt; 0 
-	OR Fields!Ret001ImporteDR.Value &gt; 0 
+			OR Fields!Ret001BaseDR.Value &gt; 0 
-	OR Fields!Ret002ImporteDR.Value &gt; 0 
+			OR Fields!Ret002BaseDR.Value &gt; 0 
-	OR Fields!Ret003ImporteDR.Value &gt; 0 
+			OR Fields!Ret003BaseDR.Value &gt; 0 
-	,False,True)</Hidden>
+		,False,true)</Hidden>
                       </Visibility>
                       <Style>
                         <Border>
@@ -1011,13 +1010,13 @@
                       <rd:DefaultName>Textbox109</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 
+			   Fields!Tra001BaseDR.Value &gt; 0 
-	OR Fields!Tra002ImporteDR.Value &gt; 0 
+			OR Fields!Tra002BaseDR.Value &gt; 0 
-	OR Fields!Tra003ImporteDR.Value &gt; 0 
+			OR Fields!Tra003BaseDR.Value &gt; 0 
-	OR Fields!Ret001ImporteDR.Value &gt; 0 
+			OR Fields!Ret001BaseDR.Value &gt; 0 
-	OR Fields!Ret002ImporteDR.Value &gt; 0 
+			OR Fields!Ret002BaseDR.Value &gt; 0 
-	OR Fields!Ret003ImporteDR.Value &gt; 0 
+			OR Fields!Ret003BaseDR.Value &gt; 0 
-	,False,True)</Hidden>
+		,False,true)</Hidden>
                       </Visibility>
                       <Style>
                         <Border>
@@ -1052,13 +1051,13 @@
                       <rd:DefaultName>Textbox110</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 
+			   Fields!Tra001BaseDR.Value &gt; 0 
-	OR Fields!Tra002ImporteDR.Value &gt; 0 
+			OR Fields!Tra002BaseDR.Value &gt; 0 
-	OR Fields!Tra003ImporteDR.Value &gt; 0 
+			OR Fields!Tra003BaseDR.Value &gt; 0 
-	OR Fields!Ret001ImporteDR.Value &gt; 0 
+			OR Fields!Ret001BaseDR.Value &gt; 0 
-	OR Fields!Ret002ImporteDR.Value &gt; 0 
+			OR Fields!Ret002BaseDR.Value &gt; 0 
-	OR Fields!Ret003ImporteDR.Value &gt; 0 
+			OR Fields!Ret003BaseDR.Value &gt; 0 
-	,False,True)</Hidden>
+		,False,true)</Hidden>
                       </Visibility>
                       <Style>
                         <Border>
@@ -1093,13 +1092,13 @@
                       <rd:DefaultName>Textbox111</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 
+			   Fields!Tra001BaseDR.Value &gt; 0 
-	OR Fields!Tra002ImporteDR.Value &gt; 0 
+			OR Fields!Tra002BaseDR.Value &gt; 0 
-	OR Fields!Tra003ImporteDR.Value &gt; 0 
+			OR Fields!Tra003BaseDR.Value &gt; 0 
-	OR Fields!Ret001ImporteDR.Value &gt; 0 
+			OR Fields!Ret001BaseDR.Value &gt; 0 
-	OR Fields!Ret002ImporteDR.Value &gt; 0 
+			OR Fields!Ret002BaseDR.Value &gt; 0 
-	OR Fields!Ret003ImporteDR.Value &gt; 0 
+			OR Fields!Ret003BaseDR.Value &gt; 0 
-	,False,True)</Hidden>
+		,False,true)</Hidden>
                       </Visibility>
                       <Style>
                         <Border>
@@ -1134,13 +1133,13 @@
                       <rd:DefaultName>Textbox112</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 
+			   Fields!Tra001BaseDR.Value &gt; 0 
-	OR Fields!Tra002ImporteDR.Value &gt; 0 
+			OR Fields!Tra002BaseDR.Value &gt; 0 
-	OR Fields!Tra003ImporteDR.Value &gt; 0 
+			OR Fields!Tra003BaseDR.Value &gt; 0 
-	OR Fields!Ret001ImporteDR.Value &gt; 0 
+			OR Fields!Ret001BaseDR.Value &gt; 0 
-	OR Fields!Ret002ImporteDR.Value &gt; 0 
+			OR Fields!Ret002BaseDR.Value &gt; 0 
-	OR Fields!Ret003ImporteDR.Value &gt; 0 
+			OR Fields!Ret003BaseDR.Value &gt; 0 
-	,False,True)</Hidden>
+		,False,true)</Hidden>
                       </Visibility>
                       <Style>
                         <Border>
@@ -1175,13 +1174,13 @@
                       <rd:DefaultName>Textbox113</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 
+			   Fields!Tra001BaseDR.Value &gt; 0 
-	OR Fields!Tra002ImporteDR.Value &gt; 0 
+			OR Fields!Tra002BaseDR.Value &gt; 0 
-	OR Fields!Tra003ImporteDR.Value &gt; 0 
+			OR Fields!Tra003BaseDR.Value &gt; 0 
-	OR Fields!Ret001ImporteDR.Value &gt; 0 
+			OR Fields!Ret001BaseDR.Value &gt; 0 
-	OR Fields!Ret002ImporteDR.Value &gt; 0 
+			OR Fields!Ret002BaseDR.Value &gt; 0 
-	OR Fields!Ret003ImporteDR.Value &gt; 0 
+			OR Fields!Ret003BaseDR.Value &gt; 0 
-	,False,True)</Hidden>
+		,False,true)</Hidden>
                       </Visibility>
                       <Style>
                         <Border>
@@ -1216,13 +1215,13 @@
                       <rd:DefaultName>Textbox114</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 
+			   Fields!Tra001BaseDR.Value &gt; 0 
-	OR Fields!Tra002ImporteDR.Value &gt; 0 
+			OR Fields!Tra002BaseDR.Value &gt; 0 
-	OR Fields!Tra003ImporteDR.Value &gt; 0 
+			OR Fields!Tra003BaseDR.Value &gt; 0 
-	OR Fields!Ret001ImporteDR.Value &gt; 0 
+			OR Fields!Ret001BaseDR.Value &gt; 0 
-	OR Fields!Ret002ImporteDR.Value &gt; 0 
+			OR Fields!Ret002BaseDR.Value &gt; 0 
-	OR Fields!Ret003ImporteDR.Value &gt; 0 
+			OR Fields!Ret003BaseDR.Value &gt; 0 
-	,False,True)</Hidden>
+		,False,true)</Hidden>
                       </Visibility>
                       <Style>
                         <Border>
@@ -1257,13 +1256,13 @@
                       <rd:DefaultName>Textbox115</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 
+			   Fields!Tra001BaseDR.Value &gt; 0 
-	OR Fields!Tra002ImporteDR.Value &gt; 0 
+			OR Fields!Tra002BaseDR.Value &gt; 0 
-	OR Fields!Tra003ImporteDR.Value &gt; 0 
+			OR Fields!Tra003BaseDR.Value &gt; 0 
-	OR Fields!Ret001ImporteDR.Value &gt; 0 
+			OR Fields!Ret001BaseDR.Value &gt; 0 
-	OR Fields!Ret002ImporteDR.Value &gt; 0 
+			OR Fields!Ret002BaseDR.Value &gt; 0 
-	OR Fields!Ret003ImporteDR.Value &gt; 0 
+			OR Fields!Ret003BaseDR.Value &gt; 0 
-	,False,True)</Hidden>
+		,False,true)</Hidden>
                       </Visibility>
                       <Style>
                         <Border>
@@ -1296,13 +1295,13 @@
                       <rd:DefaultName>Textbox116</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 
+			   Fields!Tra001BaseDR.Value &gt; 0 
-	OR Fields!Tra002ImporteDR.Value &gt; 0 
+			OR Fields!Tra002BaseDR.Value &gt; 0 
-	OR Fields!Tra003ImporteDR.Value &gt; 0 
+			OR Fields!Tra003BaseDR.Value &gt; 0 
-	OR Fields!Ret001ImporteDR.Value &gt; 0 
+			OR Fields!Ret001BaseDR.Value &gt; 0 
-	OR Fields!Ret002ImporteDR.Value &gt; 0 
+			OR Fields!Ret002BaseDR.Value &gt; 0 
-	OR Fields!Ret003ImporteDR.Value &gt; 0 
+			OR Fields!Ret003BaseDR.Value &gt; 0 
-	,False,True)</Hidden>
+		,False,true)</Hidden>
                       </Visibility>
                       <Style>
                         <Border>
@@ -1335,13 +1334,13 @@
                       <rd:DefaultName>Textbox117</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 
+			   Fields!Tra001BaseDR.Value &gt; 0 
-	OR Fields!Tra002ImporteDR.Value &gt; 0 
+			OR Fields!Tra002BaseDR.Value &gt; 0 
-	OR Fields!Tra003ImporteDR.Value &gt; 0 
+			OR Fields!Tra003BaseDR.Value &gt; 0 
-	OR Fields!Ret001ImporteDR.Value &gt; 0 
+			OR Fields!Ret001BaseDR.Value &gt; 0 
-	OR Fields!Ret002ImporteDR.Value &gt; 0 
+			OR Fields!Ret002BaseDR.Value &gt; 0 
-	OR Fields!Ret003ImporteDR.Value &gt; 0 
+			OR Fields!Ret003BaseDR.Value &gt; 0 
-	,False,True)</Hidden>
+		,False,true)</Hidden>
                       </Visibility>
                       <Style>
                         <Border>
@@ -1381,7 +1380,7 @@
                       <rd:DefaultName>Textbox61</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 	
+	   Fields!Tra001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -1416,7 +1415,7 @@
                       <rd:DefaultName>Textbox204</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 	
+	   Fields!Tra001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -1453,7 +1452,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 	
+	   Fields!Tra001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -1490,7 +1489,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 	
+	   Fields!Tra001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -1527,7 +1526,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 	
+	   Fields!Tra001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -1551,7 +1550,7 @@
                               <Style>
                                 <FontFamily>Myriad Pro</FontFamily>
                                 <FontSize>7pt</FontSize>
-                                <Format>'$'#,0.00;-'$'#,0.00;'-'</Format>
+                                <Format>'$'#,0.00</Format>
                                 <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
                               </Style>
                             </TextRun>
@@ -1564,7 +1563,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 	
+	   Fields!Tra001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -1599,7 +1598,7 @@
                       <rd:DefaultName>Textbox4</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 	
+	   Fields!Tra001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -1634,7 +1633,7 @@
                       <rd:DefaultName>Textbox13</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 	
+	   Fields!Tra001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -1667,7 +1666,7 @@
                       <rd:DefaultName>Textbox17</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 	
+	   Fields!Tra001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -1700,7 +1699,7 @@
                       <rd:DefaultName>Textbox18</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	   Fields!Tra001ImporteDR.Value &gt; 0 	
+	   Fields!Tra001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -1740,7 +1739,7 @@
                       <rd:DefaultName>Textbox61</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	  
-	 Fields!Tra002ImporteDR.Value &gt; 0 	
+	 Fields!Tra002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -1775,7 +1774,7 @@
                       <rd:DefaultName>Textbox204</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	  
-	 Fields!Tra002ImporteDR.Value &gt; 0 	
+	 Fields!Tra002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -1812,7 +1811,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	  
-	 Fields!Tra002ImporteDR.Value &gt; 0 	
+	 Fields!Tra002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -1849,7 +1848,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	  
-	 Fields!Tra002ImporteDR.Value &gt; 0 	
+	 Fields!Tra002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -1886,7 +1885,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	  
-	 Fields!Tra002ImporteDR.Value &gt; 0 	
+	 Fields!Tra002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -1910,7 +1909,7 @@
                               <Style>
                                 <FontFamily>Myriad Pro</FontFamily>
                                 <FontSize>7pt</FontSize>
-                                <Format>'$'#,0.00;-'$'#,0.00;'-'</Format>
+                                <Format>'$'#,0.00</Format>
                                 <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
                               </Style>
                             </TextRun>
@@ -1923,7 +1922,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	  
-	 Fields!Tra002ImporteDR.Value &gt; 0 	
+	 Fields!Tra002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -1958,7 +1957,7 @@
                       <rd:DefaultName>Textbox67</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	  
-	 Fields!Tra002ImporteDR.Value &gt; 0 	
+	 Fields!Tra002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -1993,7 +1992,7 @@
                       <rd:DefaultName>Textbox68</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	  
-	 Fields!Tra002ImporteDR.Value &gt; 0 	
+	 Fields!Tra002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2026,7 +2025,7 @@
                       <rd:DefaultName>Textbox69</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	  
-	 Fields!Tra002ImporteDR.Value &gt; 0 	
+	 Fields!Tra002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2059,7 +2058,7 @@
                       <rd:DefaultName>Textbox70</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	  
-	 Fields!Tra002ImporteDR.Value &gt; 0 	
+	 Fields!Tra002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2099,7 +2098,7 @@
                       <rd:DefaultName>Textbox61</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	Fields!Tra003ImporteDR.Value &gt; 0 	
+	Fields!Tra003BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2134,7 +2133,7 @@
                       <rd:DefaultName>Textbox204</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	Fields!Tra003ImporteDR.Value &gt; 0 	
+	Fields!Tra003BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2171,7 +2170,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	Fields!Tra003ImporteDR.Value &gt; 0 	
+	Fields!Tra003BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2208,7 +2207,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	Fields!Tra003ImporteDR.Value &gt; 0 	
+	Fields!Tra003BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2245,7 +2244,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	Fields!Tra003ImporteDR.Value &gt; 0 	
+	Fields!Tra003BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2269,7 +2268,7 @@
                               <Style>
                                 <FontFamily>Myriad Pro</FontFamily>
                                 <FontSize>7pt</FontSize>
-                                <Format>'$'#,0.00;-'$'#,0.00;'-'</Format>
+                                <Format>'$'#,0.00</Format>
                                 <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
                               </Style>
                             </TextRun>
@@ -2282,7 +2281,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	Fields!Tra003ImporteDR.Value &gt; 0 	
+	Fields!Tra003BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2317,7 +2316,7 @@
                       <rd:DefaultName>Textbox51</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	Fields!Tra003ImporteDR.Value &gt; 0 	
+	Fields!Tra003BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2352,7 +2351,7 @@
                       <rd:DefaultName>Textbox55</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	Fields!Tra003ImporteDR.Value &gt; 0 	
+	Fields!Tra003BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2385,7 +2384,7 @@
                       <rd:DefaultName>Textbox56</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	Fields!Tra003ImporteDR.Value &gt; 0 	
+	Fields!Tra003BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2418,7 +2417,7 @@
                       <rd:DefaultName>Textbox58</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 
-	Fields!Tra003ImporteDR.Value &gt; 0 	
+	Fields!Tra003BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2458,7 +2457,7 @@
                       <rd:DefaultName>Textbox61</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	   
-	Fields!Ret001ImporteDR.Value &gt; 0 	
+	Fields!Ret001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2493,7 +2492,7 @@
                       <rd:DefaultName>Textbox207</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	   
-	Fields!Ret001ImporteDR.Value &gt; 0 	
+	Fields!Ret001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2530,7 +2529,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	   
-	Fields!Ret001ImporteDR.Value &gt; 0 	
+	Fields!Ret001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2567,7 +2566,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	   
-	Fields!Ret001ImporteDR.Value &gt; 0 	
+	Fields!Ret001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2604,7 +2603,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	   
-	Fields!Ret001ImporteDR.Value &gt; 0 	
+	Fields!Ret001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2628,7 +2627,7 @@
                               <Style>
                                 <FontFamily>Myriad Pro</FontFamily>
                                 <FontSize>7pt</FontSize>
-                                <Format>'$'#,0.00;-'$'#,0.00;'-'</Format>
+                                <Format>'$'#,0.00</Format>
                                 <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
                               </Style>
                             </TextRun>
@@ -2641,7 +2640,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	   
-	Fields!Ret001ImporteDR.Value &gt; 0 	
+	Fields!Ret001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2676,7 +2675,7 @@
                       <rd:DefaultName>Textbox75</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	   
-	Fields!Ret001ImporteDR.Value &gt; 0 	
+	Fields!Ret001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2711,7 +2710,7 @@
                       <rd:DefaultName>Textbox76</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	   
-	Fields!Ret001ImporteDR.Value &gt; 0 	
+	Fields!Ret001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2744,7 +2743,7 @@
                       <rd:DefaultName>Textbox77</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	   
-	Fields!Ret001ImporteDR.Value &gt; 0 	
+	Fields!Ret001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2777,7 +2776,7 @@
                       <rd:DefaultName>Textbox78</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF( 	   
-	Fields!Ret001ImporteDR.Value &gt; 0 	
+	Fields!Ret001BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2791,7 +2790,7 @@
               </TablixCells>
             </TablixRow>
             <TablixRow>
-              <Height>0.07938cm</Height>
+              <Height>0.07939cm</Height>
               <TablixCells>
                 <TablixCell>
                   <CellContents>
@@ -2817,7 +2816,7 @@
                       <rd:DefaultName>Textbox61</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret002ImporteDR.Value &gt; 0 	
+	Fields!Ret002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2852,7 +2851,7 @@
                       <rd:DefaultName>Textbox207</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret002ImporteDR.Value &gt; 0 	
+	Fields!Ret002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2889,7 +2888,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret002ImporteDR.Value &gt; 0 	
+	Fields!Ret002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2926,7 +2925,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret002ImporteDR.Value &gt; 0 	
+	Fields!Ret002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2963,7 +2962,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret002ImporteDR.Value &gt; 0 	
+	Fields!Ret002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -2987,7 +2986,7 @@
                               <Style>
                                 <FontFamily>Myriad Pro</FontFamily>
                                 <FontSize>7pt</FontSize>
-                                <Format>'$'#,0.00;-'$'#,0.00;'-'</Format>
+                                <Format>'$'#,0.00</Format>
                                 <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
                               </Style>
                             </TextRun>
@@ -3000,7 +2999,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret002ImporteDR.Value &gt; 0 	
+	Fields!Ret002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -3035,7 +3034,7 @@
                       <rd:DefaultName>Textbox85</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret002ImporteDR.Value &gt; 0 	
+	Fields!Ret002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -3070,7 +3069,7 @@
                       <rd:DefaultName>Textbox86</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret002ImporteDR.Value &gt; 0 	
+	Fields!Ret002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -3103,7 +3102,7 @@
                       <rd:DefaultName>Textbox87</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret002ImporteDR.Value &gt; 0 	
+	Fields!Ret002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -3136,7 +3135,7 @@
                       <rd:DefaultName>Textbox88</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret002ImporteDR.Value &gt; 0 	
+	Fields!Ret002BaseDR.Value &gt; 0 	
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -3176,7 +3175,7 @@
                       <rd:DefaultName>Textbox59</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret003ImporteDR.Value &gt; 0 
+	Fields!Ret003BaseDR.Value &gt; 0 
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -3211,7 +3210,7 @@
                       <rd:DefaultName>Textbox207</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret003ImporteDR.Value &gt; 0 
+	Fields!Ret003BaseDR.Value &gt; 0 
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -3248,7 +3247,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret003ImporteDR.Value &gt; 0 
+	Fields!Ret003BaseDR.Value &gt; 0 
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -3285,7 +3284,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret003ImporteDR.Value &gt; 0 
+	Fields!Ret003BaseDR.Value &gt; 0 
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -3322,7 +3321,7 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret003ImporteDR.Value &gt; 0 
+	Fields!Ret003BaseDR.Value &gt; 0 
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -3346,7 +3345,7 @@
                               <Style>
                                 <FontFamily>Myriad Pro</FontFamily>
                                 <FontSize>7pt</FontSize>
-                                <Format>'$'#,0.00;-'$'#,0.00;'-'</Format>
+                                <Format>'$'#,0.00</Format>
                                 <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
                               </Style>
                             </TextRun>
@@ -3359,13 +3358,14 @@
                       <rd:DefaultName>ImpPagado</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret003ImporteDR.Value &gt; 0 
+	Fields!Ret003BaseDR.Value &gt; 0 
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
                         <Border>
                           <Style>None</Style>
                         </Border>
+                        <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
                       </Style>
                     </Textbox>
                   </CellContents>
@@ -3394,7 +3394,7 @@
                       <rd:DefaultName>Textbox95</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret003ImporteDR.Value &gt; 0 
+	Fields!Ret003BaseDR.Value &gt; 0 
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -3429,7 +3429,7 @@
                       <rd:DefaultName>Textbox96</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret003ImporteDR.Value &gt; 0 
+	Fields!Ret003BaseDR.Value &gt; 0 
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -3462,7 +3462,7 @@
                       <rd:DefaultName>Textbox97</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret003ImporteDR.Value &gt; 0 
+	Fields!Ret003BaseDR.Value &gt; 0 
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -3495,7 +3495,7 @@
                       <rd:DefaultName>Textbox98</rd:DefaultName>
                       <Visibility>
                         <Hidden>= IIF(	  
-	Fields!Ret003ImporteDR.Value &gt; 0 
+	Fields!Ret003BaseDR.Value &gt; 0 
 	,False,True)</Hidden>
                       </Visibility>
                       <Style>
@@ -3546,7 +3546,7 @@
         </TablixRowHierarchy>
         <DataSetName>DataSet2</DataSetName>
         <Top>4.62704cm</Top>
-        <Height>1.51927cm</Height>
+        <Height>1.55689cm</Height>
         <Width>20.53139cm</Width>
         <ZIndex>1</ZIndex>
         <Style>
@@ -4747,7 +4747,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>12.34604cm</Top>
+        <Top>12.02854cm</Top>
         <Height>0.11466cm</Height>
         <Width>20.5314cm</Width>
         <ZIndex>8</ZIndex>
@@ -4763,7 +4763,7 @@
         </Style>
       </Textbox>
     </ReportItems>
-    <Height>12.4607cm</Height>
+    <Height>12.1432cm</Height>
     <Style />
   </Body>
   <Width>20.53564cm</Width>
@@ -5375,6 +5375,30 @@
           <DataField>Ret003ImporteDR</DataField>
           <rd:TypeName>System.Float</rd:TypeName>
         </Field>
+        <Field Name="Tra001BaseDR">
+          <DataField>Tra001BaseDR</DataField>
+          <rd:TypeName>System.Float</rd:TypeName>
+        </Field>
+        <Field Name="Tra002BaseDR">
+          <DataField>Tra002BaseDR</DataField>
+          <rd:TypeName>System.Float</rd:TypeName>
+        </Field>
+        <Field Name="Tra003BaseDR">
+          <DataField>Tra003BaseDR</DataField>
+          <rd:TypeName>System.Float</rd:TypeName>
+        </Field>
+        <Field Name="Ret001BaseDR">
+          <DataField>Ret001BaseDR</DataField>
+          <rd:TypeName>System.Float</rd:TypeName>
+        </Field>
+        <Field Name="Ret002BaseDR">
+          <DataField>Ret002BaseDR</DataField>
+          <rd:TypeName>System.Float</rd:TypeName>
+        </Field>
+        <Field Name="Ret003BaseDR">
+          <DataField>Ret003BaseDR</DataField>
+          <rd:TypeName>System.Float</rd:TypeName>
+        </Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DataSet</rd:DataSetName>

Empresas/140/Formatos/RepEntradasUsados.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DataSet">
@@ -17,6 +17,10 @@
         <CommandText>/* Local Query */</CommandText>
       </Query>
       <Fields>
+        <Field Name="CvePSCargo">
+          <DataField>CvePSCargo</DataField>
+          <rd:TypeName>System.Int</rd:TypeName>
+        </Field>
         <Field Name="CodigoPS">
           <DataField>CodigoPS</DataField>
           <rd:TypeName>System.String</rd:TypeName>
@@ -485,7 +489,7 @@
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.58521cm</Height>
+                  <Height>0.32063cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -499,6 +503,7 @@
                                   <Value>=Fields!CodigoPS.Value</Value>
                                   <Style>
                                     <FontSize>7pt</FontSize>
+                                    <FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -510,9 +515,10 @@
                           <rd:DefaultName>CodigoPS</rd:DefaultName>
                           <Style>
                             <Border>
-                              <Color>White</Color>
+                              <Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
                               <Style>Solid</Style>
                             </Border>
+                            <BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
                             <PaddingLeft>2pt</PaddingLeft>
                             <PaddingRight>2pt</PaddingRight>
                             <PaddingTop>2pt</PaddingTop>
@@ -533,6 +539,7 @@
                                   <Value>0</Value>
                                   <Style>
                                     <FontSize>7pt</FontSize>
+                                    <FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -544,9 +551,10 @@
                           <rd:DefaultName>TipoAgrupador</rd:DefaultName>
                           <Style>
                             <Border>
-                              <Color>White</Color>
+                              <Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
                               <Style>Solid</Style>
                             </Border>
+                            <BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
                             <PaddingLeft>2pt</PaddingLeft>
                             <PaddingRight>2pt</PaddingRight>
                             <PaddingTop>2pt</PaddingTop>
@@ -567,6 +575,7 @@
                                   <Value>=Fields!E_Almacen.Value</Value>
                                   <Style>
                                     <FontSize>7pt</FontSize>
+                                    <FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
                                     <Format>#,0;(#,0)</Format>
                                   </Style>
                                 </TextRun>
@@ -579,9 +588,10 @@
                           <rd:DefaultName>E_Almacen</rd:DefaultName>
                           <Style>
                             <Border>
-                              <Color>White</Color>
+                              <Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
                               <Style>Solid</Style>
                             </Border>
+                            <BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
                             <PaddingLeft>2pt</PaddingLeft>
                             <PaddingRight>2pt</PaddingRight>
                             <PaddingTop>2pt</PaddingTop>
@@ -602,6 +612,7 @@
                                   <Value>0</Value>
                                   <Style>
                                     <FontSize>7pt</FontSize>
+                                    <FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
                                     <Format>d</Format>
                                   </Style>
                                 </TextRun>
@@ -614,9 +625,10 @@
                           <rd:DefaultName>Paqueteria1</rd:DefaultName>
                           <Style>
                             <Border>
-                              <Color>White</Color>
+                              <Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
                               <Style>Solid</Style>
                             </Border>
+                            <BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
                             <PaddingLeft>2pt</PaddingLeft>
                             <PaddingRight>2pt</PaddingRight>
                             <PaddingTop>2pt</PaddingTop>
@@ -637,6 +649,7 @@
                                   <Value>=Fields!E_Traspaso.Value</Value>
                                   <Style>
                                     <FontSize>7pt</FontSize>
+                                    <FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
                                     <Format>#,0;(#,0)</Format>
                                   </Style>
                                 </TextRun>
@@ -649,9 +662,10 @@
                           <rd:DefaultName>E_Traspaso</rd:DefaultName>
                           <Style>
                             <Border>
-                              <Color>White</Color>
+                              <Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
                               <Style>Solid</Style>
                             </Border>
+                            <BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
                             <PaddingLeft>2pt</PaddingLeft>
                             <PaddingRight>2pt</PaddingRight>
                             <PaddingTop>2pt</PaddingTop>
@@ -672,6 +686,7 @@
                                   <Value>=Fields!E_Compra.Value</Value>
                                   <Style>
                                     <FontSize>7pt</FontSize>
+                                    <FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
                                     <Format>#,0;(#,0)</Format>
                                   </Style>
                                 </TextRun>
@@ -684,9 +699,10 @@
                           <rd:DefaultName>E_Compra</rd:DefaultName>
                           <Style>
                             <Border>
-                              <Color>White</Color>
+                              <Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
                               <Style>Solid</Style>
                             </Border>
+                            <BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
                             <PaddingLeft>2pt</PaddingLeft>
                             <PaddingRight>2pt</PaddingRight>
                             <PaddingTop>2pt</PaddingTop>
@@ -707,6 +723,7 @@
                                   <Value>0</Value>
                                   <Style>
                                     <FontSize>7pt</FontSize>
+                                    <FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
                                     <Format>d</Format>
                                   </Style>
                                 </TextRun>
@@ -719,9 +736,10 @@
                           <rd:DefaultName>Fecha</rd:DefaultName>
                           <Style>
                             <Border>
-                              <Color>White</Color>
+                              <Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
                               <Style>Solid</Style>
                             </Border>
+                            <BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
                             <PaddingLeft>2pt</PaddingLeft>
                             <PaddingRight>2pt</PaddingRight>
                             <PaddingTop>2pt</PaddingTop>
@@ -742,6 +760,7 @@
                                   <Value>=Fields!S_Almacen.Value</Value>
                                   <Style>
                                     <FontSize>7pt</FontSize>
+                                    <FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
                                     <Format>#,0;(#,0)</Format>
                                   </Style>
                                 </TextRun>
@@ -754,9 +773,10 @@
                           <rd:DefaultName>S_Almacen</rd:DefaultName>
                           <Style>
                             <Border>
-                              <Color>White</Color>
+                              <Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
                               <Style>Solid</Style>
                             </Border>
+                            <BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
                             <PaddingLeft>2pt</PaddingLeft>
                             <PaddingRight>2pt</PaddingRight>
                             <PaddingTop>2pt</PaddingTop>
@@ -777,6 +797,7 @@
                                   <Value>=Fields!S_Traspaso.Value</Value>
                                   <Style>
                                     <FontSize>7pt</FontSize>
+                                    <FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
                                     <Format>#,0;(#,0)</Format>
                                   </Style>
                                 </TextRun>
@@ -789,9 +810,10 @@
                           <rd:DefaultName>S_Traspaso</rd:DefaultName>
                           <Style>
                             <Border>
-                              <Color>White</Color>
+                              <Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
                               <Style>Solid</Style>
                             </Border>
+                            <BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
                             <PaddingLeft>2pt</PaddingLeft>
                             <PaddingRight>2pt</PaddingRight>
                             <PaddingTop>2pt</PaddingTop>
@@ -812,6 +834,7 @@
                                   <Value>0</Value>
                                   <Style>
                                     <FontSize>7pt</FontSize>
+                                    <FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -823,9 +846,10 @@
                           <rd:DefaultName>Textbox16</rd:DefaultName>
                           <Style>
                             <Border>
-                              <Color>White</Color>
+                              <Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
                               <Style>Solid</Style>
                             </Border>
+                            <BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
                             <PaddingLeft>2pt</PaddingLeft>
                             <PaddingRight>2pt</PaddingRight>
                             <PaddingTop>2pt</PaddingTop>
@@ -846,6 +870,7 @@
                                   <Value>0</Value>
                                   <Style>
                                     <FontSize>7pt</FontSize>
+                                    <FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -857,9 +882,10 @@
                           <rd:DefaultName>Textbox42</rd:DefaultName>
                           <Style>
                             <Border>
-                              <Color>White</Color>
+                              <Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
                               <Style>Solid</Style>
                             </Border>
+                            <BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
                             <PaddingLeft>2pt</PaddingLeft>
                             <PaddingRight>2pt</PaddingRight>
                             <PaddingTop>2pt</PaddingTop>
@@ -900,7 +926,7 @@
             <DataSetName>DataSet1</DataSetName>
             <Top>0.10583cm</Top>
             <Left>0.08377cm</Left>
-            <Height>1.2148cm</Height>
+            <Height>0.95022cm</Height>
             <Width>20.80089cm</Width>
             <Style>
               <Border>
@@ -1108,12 +1134,12 @@
           </Style>
         </PageHeader>
         <PageFooter>
-          <Height>1.01804cm</Height>
+          <Height>0.6cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>
             <Line Name="Line2">
-              <Top>0.12694cm</Top>
+              <Top>0.12693cm</Top>
               <Left>0.01325cm</Left>
               <Height>0cm</Height>
               <Width>20.90669cm</Width>
@@ -1146,7 +1172,6 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>FechaConFormato</rd:DefaultName>
-              <Top>0.30333cm</Top>
               <Height>0.6cm</Height>
               <Width>8.45793cm</Width>
               <ZIndex>1</ZIndex>
@@ -1183,7 +1208,6 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>FechaConFormato</rd:DefaultName>
-              <Top>0.30333cm</Top>
               <Left>8.69316cm</Left>
               <Height>0.6cm</Height>
               <Width>8.00814cm</Width>
@@ -1221,7 +1245,6 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>PageNumber</rd:DefaultName>
-              <Top>0.30333cm</Top>
               <Left>16.84241cm</Left>
               <Height>0.6cm</Height>
               <Width>4.00442cm</Width>
@@ -1294,7 +1317,6 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
-  
   <EmbeddedImages>
     <EmbeddedImage Name="Logo">
       <MIMEType>image/png</MIMEType>

Empresas/Grales/Formatos/RepFacturas.rdlc

@@ -16,7 +16,10 @@
                         <TextRuns>
                           <TextRun>
                             <Value>Tipo</Value>
-                            <Style />
+                            <Style>
+                              <FontSize>7pt</FontSize>
+                              <FontWeight>Bold</FontWeight>
+                            </Style>
                           </TextRun>
                         </TextRuns>
                         <Style>
@@ -27,12 +30,13 @@
                     <rd:DefaultName>Textbox3</rd:DefaultName>
                     <Style>
                       <Border>
-                        <Color>DimGray</Color>
+                        <Color>Silver</Color>
                         <Style>Solid</Style>
                       </Border>
                       <RightBorder>
                         <Style>None</Style>
                       </RightBorder>
+                      <BackgroundColor>Silver</BackgroundColor>
                       <PaddingLeft>2pt</PaddingLeft>
                       <PaddingRight>2pt</PaddingRight>
                       <PaddingTop>2pt</PaddingTop>
@@ -51,7 +55,10 @@
                         <TextRuns>
                           <TextRun>
                             <Value>Folio</Value>
-                            <Style />
+                            <Style>
+                              <FontSize>7pt</FontSize>
+                              <FontWeight>Bold</FontWeight>
+                            </Style>
                           </TextRun>
                         </TextRuns>
                         <Style>
@@ -62,12 +69,13 @@
                     <rd:DefaultName>Textbox28</rd:DefaultName>
                     <Style>
                       <Border>
-                        <Color>DimGray</Color>
+                        <Color>Silver</Color>
                         <Style>Solid</Style>
                       </Border>
                       <RightBorder>
                         <Style>None</Style>
                       </RightBorder>
+                      <BackgroundColor>Silver</BackgroundColor>
                       <PaddingLeft>2pt</PaddingLeft>
                       <PaddingRight>2pt</PaddingRight>
                       <PaddingTop>2pt</PaddingTop>
@@ -82,21 +90,24 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>2.36727cm</Width>
+              <Width>1.70632cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>7.23964cm</Width>
+              <Width>6.55172cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.57894cm</Width>
+              <Width>1.87355cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.34081cm</Width>
+              <Width>1.67935cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>5.52508cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
             <TablixRow>
-              <Height>0.6cm</Height>
+              <Height>0.33542cm</Height>
               <TablixCells>
                 <TablixCell>
                   <CellContents>
@@ -109,7 +120,7 @@
                             <TextRun>
                               <Value>=Fields!FechaFactura.Value</Value>
                               <Style>
-                                <FontSize>9pt</FontSize>
+                                <FontSize>7pt</FontSize>
                                 <Format>dd/MM/yyyy</Format>
                               </Style>
                             </TextRun>
@@ -143,7 +154,7 @@
                             <TextRun>
                               <Value>=Fields!NombreProveedor.Value</Value>
                               <Style>
-                                <FontSize>9pt</FontSize>
+                                <FontSize>7pt</FontSize>
                                 <Format>#,0.00;(#,0.00)</Format>
                               </Style>
                             </TextRun>
@@ -175,7 +186,7 @@
                             <TextRun>
                               <Value>=Fields!Total.Value</Value>
                               <Style>
-                                <FontSize>9pt</FontSize>
+                                <FontSize>7pt</FontSize>
                                 <Format>#,0.00;(#,0.00)</Format>
                               </Style>
                             </TextRun>
@@ -212,7 +223,7 @@ Fields!FueValidado.Value = "2","Cancelada",
 Fields!FueValidado.Value = "3","Omitida",
 1=1,"No validado")</Value>
                               <Style>
-                                <FontSize>9pt</FontSize>
+                                <FontSize>7pt</FontSize>
                                 <Format>#,0.00;(#,0.00)</Format>
                               </Style>
                             </TextRun>
@@ -233,6 +244,37 @@ Fields!FueValidado.Value = "3","Omitida",
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="UUID">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!UUID.Value</Value>
+                              <Style>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>UUID</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
               </TablixCells>
             </TablixRow>
           </TablixRows>
@@ -241,7 +283,7 @@ Fields!FueValidado.Value = "3","Omitida",
           <TablixMembers>
             <TablixMember>
               <TablixHeader>
-                <Size>0.6cm</Size>
+                <Size>0.44125cm</Size>
                 <CellContents>
                   <Textbox Name="Textbox40">
                     <CanGrow>true</CanGrow>
@@ -251,7 +293,10 @@ Fields!FueValidado.Value = "3","Omitida",
                         <TextRuns>
                           <TextRun>
                             <Value>Fecha Fact.</Value>
-                            <Style />
+                            <Style>
+                              <FontSize>7pt</FontSize>
+                              <FontWeight>Bold</FontWeight>
+                            </Style>
                           </TextRun>
                         </TextRuns>
                         <Style>
@@ -262,9 +307,10 @@ Fields!FueValidado.Value = "3","Omitida",
                     <rd:DefaultName>Textbox40</rd:DefaultName>
                     <Style>
                       <Border>
-                        <Color>DimGray</Color>
+                        <Color>Silver</Color>
                         <Style>Solid</Style>
                       </Border>
+                      <BackgroundColor>Silver</BackgroundColor>
                       <PaddingLeft>2pt</PaddingLeft>
                       <PaddingRight>2pt</PaddingRight>
                       <PaddingTop>2pt</PaddingTop>
@@ -276,7 +322,7 @@ Fields!FueValidado.Value = "3","Omitida",
             </TablixMember>
             <TablixMember>
               <TablixHeader>
-                <Size>0.6cm</Size>
+                <Size>0.44125cm</Size>
                 <CellContents>
                   <Textbox Name="Textbox42">
                     <CanGrow>true</CanGrow>
@@ -286,7 +332,10 @@ Fields!FueValidado.Value = "3","Omitida",
                         <TextRuns>
                           <TextRun>
                             <Value>Proveedor</Value>
-                            <Style />
+                            <Style>
+                              <FontSize>7pt</FontSize>
+                              <FontWeight>Bold</FontWeight>
+                            </Style>
                           </TextRun>
                         </TextRuns>
                         <Style>
@@ -297,9 +346,10 @@ Fields!FueValidado.Value = "3","Omitida",
                     <rd:DefaultName>Textbox42</rd:DefaultName>
                     <Style>
                       <Border>
-                        <Color>DimGray</Color>
+                        <Color>Silver</Color>
                         <Style>Solid</Style>
                       </Border>
+                      <BackgroundColor>Silver</BackgroundColor>
                       <PaddingLeft>2pt</PaddingLeft>
                       <PaddingRight>2pt</PaddingRight>
                       <PaddingTop>2pt</PaddingTop>
@@ -311,7 +361,7 @@ Fields!FueValidado.Value = "3","Omitida",
             </TablixMember>
             <TablixMember>
               <TablixHeader>
-                <Size>0.6cm</Size>
+                <Size>0.44125cm</Size>
                 <CellContents>
                   <Textbox Name="Textbox44">
                     <CanGrow>true</CanGrow>
@@ -321,7 +371,10 @@ Fields!FueValidado.Value = "3","Omitida",
                         <TextRuns>
                           <TextRun>
                             <Value>Importe</Value>
-                            <Style />
+                            <Style>
+                              <FontSize>7pt</FontSize>
+                              <FontWeight>Bold</FontWeight>
+                            </Style>
                           </TextRun>
                         </TextRuns>
                         <Style>
@@ -332,9 +385,10 @@ Fields!FueValidado.Value = "3","Omitida",
                     <rd:DefaultName>Textbox44</rd:DefaultName>
                     <Style>
                       <Border>
-                        <Color>DimGray</Color>
+                        <Color>Silver</Color>
                         <Style>Solid</Style>
                       </Border>
+                      <BackgroundColor>Silver</BackgroundColor>
                       <PaddingLeft>2pt</PaddingLeft>
                       <PaddingRight>2pt</PaddingRight>
                       <PaddingTop>2pt</PaddingTop>
@@ -346,7 +400,7 @@ Fields!FueValidado.Value = "3","Omitida",
             </TablixMember>
             <TablixMember>
               <TablixHeader>
-                <Size>0.6cm</Size>
+                <Size>0.44125cm</Size>
                 <CellContents>
                   <Textbox Name="Textbox49">
                     <CanGrow>true</CanGrow>
@@ -356,7 +410,10 @@ Fields!FueValidado.Value = "3","Omitida",
                         <TextRuns>
                           <TextRun>
                             <Value>EstatusSAT</Value>
-                            <Style />
+                            <Style>
+                              <FontSize>7pt</FontSize>
+                              <FontWeight>Bold</FontWeight>
+                            </Style>
                           </TextRun>
                         </TextRuns>
                         <Style>
@@ -367,9 +424,49 @@ Fields!FueValidado.Value = "3","Omitida",
                     <rd:DefaultName>Textbox49</rd:DefaultName>
                     <Style>
                       <Border>
-                        <Color>DimGray</Color>
+                        <Color>Silver</Color>
                         <Style>Solid</Style>
                       </Border>
+                      <BackgroundColor>Silver</BackgroundColor>
+                      <PaddingLeft>2pt</PaddingLeft>
+                      <PaddingRight>2pt</PaddingRight>
+                      <PaddingTop>2pt</PaddingTop>
+                      <PaddingBottom>2pt</PaddingBottom>
+                    </Style>
+                  </Textbox>
+                </CellContents>
+              </TablixHeader>
+            </TablixMember>
+            <TablixMember>
+              <TablixHeader>
+                <Size>0.44125cm</Size>
+                <CellContents>
+                  <Textbox Name="Textbox4">
+                    <CanGrow>true</CanGrow>
+                    <KeepTogether>true</KeepTogether>
+                    <Paragraphs>
+                      <Paragraph>
+                        <TextRuns>
+                          <TextRun>
+                            <Value>Folio Fiscal</Value>
+                            <Style>
+                              <FontSize>7pt</FontSize>
+                              <FontWeight>Bold</FontWeight>
+                            </Style>
+                          </TextRun>
+                        </TextRuns>
+                        <Style>
+                          <TextAlign>Center</TextAlign>
+                        </Style>
+                      </Paragraph>
+                    </Paragraphs>
+                    <rd:DefaultName>Textbox4</rd:DefaultName>
+                    <Style>
+                      <Border>
+                        <Color>Silver</Color>
+                        <Style>Solid</Style>
+                      </Border>
+                      <BackgroundColor>Silver</BackgroundColor>
                       <PaddingLeft>2pt</PaddingLeft>
                       <PaddingRight>2pt</PaddingRight>
                       <PaddingTop>2pt</PaddingTop>
@@ -398,7 +495,7 @@ Fields!FueValidado.Value = "3","Omitida",
                 </SortExpression>
               </SortExpressions>
               <TablixHeader>
-                <Size>2.16269cm</Size>
+                <Size>1.30938cm</Size>
                 <CellContents>
                   <Textbox Name="TipoComprobante">
                     <CanGrow>true</CanGrow>
@@ -412,7 +509,7 @@ Fields!TipoComprobante.Value="E","Egreso",
 Fields!TipoComprobante.Value="P","Pago"
 )</Value>
                             <Style>
-                              <FontSize>9pt</FontSize>
+                              <FontSize>7pt</FontSize>
                             </Style>
                           </TextRun>
                         </TextRuns>
@@ -435,7 +532,7 @@ Fields!TipoComprobante.Value="P","Pago"
               <TablixMembers>
                 <TablixMember>
                   <TablixHeader>
-                    <Size>2.33715cm</Size>
+                    <Size>1.96039cm</Size>
                     <CellContents>
                       <Textbox Name="SerieFolio">
                         <CanGrow>true</CanGrow>
@@ -446,7 +543,7 @@ Fields!TipoComprobante.Value="P","Pago"
                               <TextRun>
                                 <Value>=Fields!SerieFolio.Value</Value>
                                 <Style>
-                                  <FontSize>9pt</FontSize>
+                                  <FontSize>7pt</FontSize>
                                 </Style>
                               </TextRun>
                             </TextRuns>
@@ -473,8 +570,8 @@ Fields!TipoComprobante.Value="P","Pago"
         </TablixRowHierarchy>
         <DataSetName>DataSet1</DataSetName>
         <Left>0.06614cm</Left>
-        <Height>1.2cm</Height>
+        <Height>0.77667cm</Height>
-        <Width>19.0265cm</Width>
+        <Width>20.60579cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -482,10 +579,10 @@ Fields!TipoComprobante.Value="P","Pago"
         </Style>
       </Tablix>
     </ReportItems>
-    <Height>0.47244in</Height>
+    <Height>0.35786in</Height>
     <Style />
   </Body>
-  <Width>7.52397in</Width>
+  <Width>8.13855in</Width>
   <Page>
     <PageHeader>
       <Height>2.22362cm</Height>
@@ -505,12 +602,14 @@ Fields!TipoComprobante.Value="P","Pago"
                   </Style>
                 </TextRun>
               </TextRuns>
-              <Style />
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox1</rd:DefaultName>
           <Top>0.18521cm</Top>
-          <Left>2.8349cm</Left>
+          <Left>3.4699cm</Left>
           <Height>0.6cm</Height>
           <Width>12.60299cm</Width>
           <Style>
@@ -558,7 +657,7 @@ Fields!TipoComprobante.Value="P","Pago"
           </Paragraphs>
           <rd:DefaultName>Textbox2</rd:DefaultName>
           <Top>1.10271cm</Top>
-          <Left>3.80842cm</Left>
+          <Left>4.76092cm</Left>
           <Height>0.52945cm</Height>
           <Width>9.98771cm</Width>
           <ZIndex>1</ZIndex>
@@ -643,7 +742,7 @@ Fields!TipoComprobante.Value="P","Pago"
           </Paragraphs>
           <rd:DefaultName>Textbox13</rd:DefaultName>
           <Top>0.0259cm</Top>
-          <Left>15.579cm</Left>
+          <Left>17.07478cm</Left>
           <Height>2.18834cm</Height>
           <Width>3.53188cm</Width>
           <ZIndex>2</ZIndex>
@@ -679,7 +778,7 @@ Fields!TipoComprobante.Value="P","Pago"
       </Style>
     </PageHeader>
     <PageFooter>
-      <Height>0.84667cm</Height>
+      <Height>0.76376cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
@@ -703,8 +802,7 @@ Fields!TipoComprobante.Value="P","Pago"
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox3</rd:DefaultName>
-          <Top>0.08291cm</Top>
+          <Left>18.56637cm</Left>
-          <Left>16.97887cm</Left>
           <Height>0.68085cm</Height>
           <Width>2.06587cm</Width>
           <Style>
@@ -801,7 +899,7 @@ Fields!TipoComprobante.Value="P","Pago"
           </Paragraphs>
           <rd:DefaultName>Textbox10</rd:DefaultName>
           <Top>0.08291cm</Top>
-          <Left>6.93622cm</Left>
+          <Left>7.57122cm</Left>
           <Height>0.68085cm</Height>
           <Width>2.92333cm</Width>
           <ZIndex>3</ZIndex>
@@ -834,7 +932,7 @@ Fields!TipoComprobante.Value="P","Pago"
           </Paragraphs>
           <rd:DefaultName>Textbox11</rd:DefaultName>
           <Top>0.08291cm</Top>
-          <Left>9.84544cm</Left>
+          <Left>10.48044cm</Left>
           <Height>0.68085cm</Height>
           <Width>4.32745cm</Width>
           <ZIndex>4</ZIndex>
@@ -857,8 +955,8 @@ Fields!TipoComprobante.Value="P","Pago"
     </PageFooter>
     <PageHeight>29.7cm</PageHeight>
     <PageWidth>21cm</PageWidth>
-    <LeftMargin>0.5cm</LeftMargin>
+    <LeftMargin>0cm</LeftMargin>
-    <RightMargin>0.5cm</RightMargin>
+    <RightMargin>0cm</RightMargin>
     <TopMargin>1cm</TopMargin>
     <BottomMargin>1cm</BottomMargin>
     <ColumnSpacing>0.13cm</ColumnSpacing>
@@ -905,6 +1003,10 @@ Fields!TipoComprobante.Value="P","Pago"
           <DataField>NombreProveedor</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="UUID">
+          <DataField>UUID</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DataSet</rd:DataSetName>

General/SaldosIniciales.aspx.vb

@@ -1253,6 +1253,7 @@ Partial Class General_SaldosIniciales
                     Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString.ToEntero
                     Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString, "")
                     Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Round(Row("PorcentajeIVA").ToString.ToDecimal, 4), 0)
+                    Dim PorcentajeRetIVA As Decimal = If(dt.Columns.Contains("PorcentajeRetIVA"), Round(Row("PorcentajeRetIVA").ToString.ToDecimal, 4), 0)
 
                     Dim PedidoContrato As String = If(dt.Columns.Contains("Pedido"), Row("Pedido").ToString, "")
 
@@ -1309,7 +1310,7 @@ Partial Class General_SaldosIniciales
                             End If
                             CveVenta = ObjVentas.CveVenta
 
-                            If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, Sucursal.ToEntero, 0, PorcentajeIVA:=PorcentajeIVA) Then
+                            If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, Sucursal.ToEntero, 0, PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=RetIVA) Then
                                 ErrorVentas = True
                                 Exit For
                             End If

Inventarios/RegRSCO.aspx

@@ -0,0 +1,187 @@
+<%@ Page Title="Reg RSCO" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegRSCO.aspx.vb" Inherits="Inventarios_RegRSCO" EnableEventValidation="false" %>
+
+<%@ 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">
+
+    <style>
+        #DivAgregarUnidad > div.modal-dialog > div label input {
+            padding: 0px !important;
+        }
+    </style>
+
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    Reg RSCO
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAgregar">
+        <ContentTemplate>
+            <li>                
+                <asp:LinkButton runat="server" ID="LnkAgregarRSCO" OnClick="LnkAgregarRSCO_Click" data-toggle="tooltip" data-placement="left" title="Agregar RSCO" Text="<i class='fa fa-plus'></i>Agregar RSCO"></asp:LinkButton>
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" 
+
+                DataKeyNames="CveCompuestoVigencia,CveCompuesto,CveProveedor,RegistroRSCO,FechaVigencia,VigenciaIndeterminada,CveUsuario, NombreComercial"
+                EmptyDataText="No se Encontraron Registros" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
+                <Columns>
+                    <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Compuesto" DataField="Compuesto" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Registro RSCO" DataField="RegistroRSCO" ItemStyle-HorizontalAlign="Left" />
+
+                    <asp:BoundField HeaderText="Fecha. Vigencia" ItemStyle-HorizontalAlign="Center" DataField="FechaVigencia" ItemStyle-Width="5%" DataFormatString="{0:d}" />
+                    <asp:BoundField HeaderText="Fecha Indeterminada" DataField="VigenciaIndeterminadaStr" ItemStyle-HorizontalAlign="Center" />                   
+                    
+                    
+                    <asp:BoundField HeaderText="Usuario" DataField="Usuario" />
+                    <asp:BoundField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" DataField="FechaIng" ItemStyle-Width="5%" DataFormatString="{0:d}" />
+                    
+                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Eitar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
+                            <asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Eliminar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Eliminar" data-btn-ok-label="Si" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                </Columns>
+            </asp:GridView>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+    <div id="DivAgregarRSCO" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog ">
+
+            <asp:UpdatePanel runat="server" class="modal-content rowpadding" tabindex="-1" ID="UpModalRSCO" UpdateMode="Conditional">
+                <ContentTemplate>
+
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">
+                            <asp:Literal runat="server" ID="LtlTituloModal" Text="Agregar Unidad"></asp:Literal></h4>
+                    </div>
+
+                    <div class="modal-body">
+
+                        <div class="row">
+                            <div class="col-md-12" runat="server" id="DVTiposRemolque" >
+                                <div class="form-group form-md-line-input input-iconright"  >
+                                    <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssClass="form-control" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>                                
+                                    <label for="<%= DdlProveedores.ClientID.ToString()%>" style="margin-top:-6px" >Proveedor:</label>                                    
+                                    <i></i>
+                                </div>
+
+                            </div>
+                        </div>
+                        <div class="row">
+                            <div class="col-md-12" runat="server">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlCompuesto" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataValueField="CveCompuesto" DataTextField="Compuesto" Style="padding: 0px">
+                                    </asp:DropDownList>
+                                    <label for="<%= DdlCompuesto.ClientID.ToString()%>">Compuesto:</label>
+                                    <asp:RequiredFieldValidator runat="server" ID="RfvDdlCompuesto" ControlToValidate="DdlCompuesto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Compuesto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRSCO"></asp:RequiredFieldValidator>
+                                    <i></i>
+                                </div>
+
+                            </div>
+                        </div>
+
+                        <div class="row">
+                            <div class="col-md-12">
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtRegistroRSCO" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
+                                    <label for="<%= TxtRegistroRSCO.ClientID.ToString()%>">Registro RSCO:</label>
+                                    <asp:RequiredFieldValidator runat="server" ID="RfvTxtRegistroRSCO" ControlToValidate="TxtRegistroRSCO" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Registro RSCO''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRSCO"></asp:RequiredFieldValidator>
+                                    <i></i>
+                                </div>
+
+
+                            </div>
+                        </div>
+
+ 
+                                <div class="form-group form-md-line-input input-iconright" style="width: 160px!important"  runat="server"  id="DvFechaVijencia">
+
+                                    <asp:TextBox ID="TxtFechaVigencia" CssClass="form-control" MaxLength="50" runat="server" Width="130px"></asp:TextBox>
+                                    <span class="input-group-btn " style="position: absolute; right: 41px; top: -5px;">
+                                        <asp:LinkButton ID="LnkTxtFechaVigencia" class="btn default" Style="margin-top: 15px; margin-left: 6px" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:CalendarExtender runat="server" ID="CETxtFechaVigencia" TargetControlID="TxtFechaVigencia" PopupButtonID="LnkTxtFechaVigencia" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                                    <asp:CompareValidator ID="CvTxtFechaVigencia" runat="server" ControlToValidate="TxtFechaVigencia" Display="None"
+                                        ErrorMessage="El campo <b>''Fecha de Cierre''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)."
+                                        Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpRSCO"></asp:CompareValidator>
+
+                                    <asp:RequiredFieldValidator ID="RfvTxtFechaVigencia" runat="server"  ControlToValidate="TxtFechaVigencia" Display="None"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Cierre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRSCO"></asp:RequiredFieldValidator>
+
+                                    <ajax:ValidatorCalloutExtender ID="CvcTxtFechaVigencia" runat="server" HighlightCssClass="vco" TargetControlID="CvTxtFechaVigencia" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="VCETxtFechaVigencia" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaVigencia" Width="300px"></ajax:ValidatorCalloutExtender>
+
+                                    <label for="<%= TxtFechaVigencia.ClientID.ToString() %>">Fecha de Vigencia:</label>
+                                    
+
+                                </div>
+
+                          
+
+
+                            <div class="row">
+                            
+                            <div class="col-md-6">
+
+                                <div class="form-group form-md-line-input input-iconright"  runat="server">
+                                        <asp:CheckBox ID="ChkFechaIndeterminada" runat="server" CssClass="form-control"  OnCheckedChanged="ChkFechaIndeterminada_CheckedChanged" AutoPostBack="true" />
+                                        <label for="<%= ChkFechaIndeterminada.ClientID.ToString()%>">Fecha Indeterminada:</label>
+                                  </div>
+                              
+                            </div>
+                        </div>
+
+
+                        
+                            <div class="row" runat="server" id="DivModalContinuarAgregando">
+                            
+                            <div class="col-md-12" style="text-align:right!important">                                                                        
+                                <asp:CheckBox ID="ChkModalContinuarAgregando" runat="server"    Text="Continuar Agregando" TextAlign="Left" />                                                                       
+                              
+                            </div>
+                        </div>
+
+
+
+                    </div>                    
+
+                    <div class="modal-footer">
+
+                        <asp:Button ID="BtnAgregarRSCO" Text="Agregar" runat="server" ClientIDMode="Static" CssClass="btn btn-primary" OnClick="BtnAgregarRSCO_Click" ValidationGroup="GrpRSCO" />
+                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+
+                    </div>
+
+                </ContentTemplate>
+            </asp:UpdatePanel>
+
+        </div>
+    </div>
+
+
+
+
+
+
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
+

Inventarios/RegRSCO.aspx.vb

@@ -0,0 +1,232 @@
+Imports Extensiones
+Partial Class Inventarios_RegRSCO
+    Inherits ClsPaginas
+
+    Private Property CveCompuestoVigencia As Integer
+        Get
+
+            If ViewState("CveCompuestoVigencia") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveCompuestoVigencia").ToString().ToEntero()
+            End If
+        End Get
+        Set(ByVal value As Integer)
+            ViewState("CveCompuestoVigencia") = value
+        End Set
+    End Property
+
+    Private Sub Inventarios_RegRSCO_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaCombos()
+
+            CargaDatos()
+        End If
+    End Sub
+
+
+
+
+
+
+    Public Sub CargaDatos()
+
+
+        Dim ObjInventarios As New ClsInventarios
+
+        If ObjInventarios.GetCompuestosVigencia(-1, -1, MinFecha, MaxFecha, 1, UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjInventarios.DtResultados
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+
+        ObjInventarios.Dispose()
+        GvDatos.DataBind()
+        UpDatos.Update()
+
+
+    End Sub
+
+    Private Sub CargaCombos()
+
+
+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Seleccione Uno"
+        DdlProveedores.SelectedValue = "-1"
+
+
+        Dim ObjPS As New ClsProductosServicios
+
+        If ObjPS.GetCompuestosActivos(UsuarioActual.CveEmpresa) Then
+            DdlCompuesto.DataSource = ObjPS.DtResultados
+        Else
+            DdlCompuesto.DataSource = Nothing
+        End If
+
+        ObjPS.Dispose()
+        DdlCompuesto.DataBind()
+        DdlCompuesto.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+
+
+
+        UpModalRSCO.Update()
+
+    End Sub
+
+    Private Sub LimpiarModalDivAgregarRSCO()
+        CveCompuestoVigencia = -1
+
+        BtnAgregarRSCO.Text = "Agregar"
+
+        DdlProveedores.txtValue.Value = "-1"
+        DdlProveedores.txtText.Value = ""
+
+        DdlCompuesto.SelectedValueExist(-1)
+
+        TxtFechaVigencia.Text = ""
+        TxtRegistroRSCO.Text = ""
+        ChkFechaIndeterminada.Checked = False
+
+        LtlTituloModal.Text = "Agregar RSCO"
+
+        DivModalContinuarAgregando.Visible = True
+        ChkModalContinuarAgregando.Checked = True
+
+        UpModalRSCO.Update()
+    End Sub
+
+    Protected Sub LnkAgregarRSCO_Click(sender As Object, e As EventArgs)
+
+        LimpiarModalDivAgregarRSCO()
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarRSCO"))
+
+    End Sub
+
+    Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
+
+        BtnAgregarRSCO.Text = "Actualizar"
+        Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
+
+        CveCompuestoVigencia = GvRow.DataKey("CveCompuestoVigencia").ToEntero()
+
+
+
+        DdlProveedores.txtValue.Value = GvRow.DataKey("CveProveedor")
+        DdlProveedores.txtText.Value = GvRow.DataKey("NombreComercial")
+
+
+        DdlCompuesto.SelectedValueExist(GvRow.DataKey("CveCompuesto"))
+        TxtFechaVigencia.Text = GvRow.DataKey("FechaVigencia").ToDate.ToString("dd/MM/yyyy")
+        TxtRegistroRSCO.Text = GvRow.DataKey("RegistroRSCO")
+        ChkFechaIndeterminada.Checked = Boolean.Parse(GvRow.DataKey("VigenciaIndeterminada"))
+
+        LtlTituloModal.Text = "Actualizar RSCO"
+
+        DivModalContinuarAgregando.Visible = False
+        ChkModalContinuarAgregando.Checked = False
+
+
+        If ChkFechaIndeterminada.Checked Then
+            DvFechaVijencia.Visible = False
+            TxtFechaVigencia.Text = "01/01/1900"
+        Else
+            DvFechaVijencia.Visible = True
+        End If
+
+
+
+
+        UpModalRSCO.Update()
+
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarRSCO"))
+    End Sub
+
+    Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
+
+        Dim ErrorAlElimiar As Boolean = False
+
+        Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
+
+        Dim CveCompuestoVigenciaEliminar = GvRow.DataKey("CveCompuestoVigencia").ToEntero()
+
+        Using ObjInventarios As New ClsInventarios
+
+            If (ObjInventarios.RemoveCompuestosVigencia(CveCompuestoVigenciaEliminar, UsuarioActual.CveEmpresa)) Then
+
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarRSCO"))
+                Alert("RSCO Eliminado Correctamente.")
+            Else
+                ErrorAlElimiar = True
+            End If
+        End Using
+
+
+        If Not ErrorAlElimiar Then
+            GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing
+            CargaDatos()
+        End If
+
+    End Sub
+
+    Protected Sub BtnAgregarRSCO_Click(sender As Object, e As EventArgs)
+
+        Dim ErrorPrceso As Boolean = False
+
+
+        If DdlProveedores.SelectedValue.ToEntero <= 0 Then
+            Alert("Debe de seleccionar un proveedor.")
+            Exit Sub
+        End If
+
+        Using ObjInventarios As New ClsInventarios
+
+            If CveCompuestoVigencia <= 0 Then
+                If ObjInventarios.AddCompuestosVigencia(DdlCompuesto.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero, TxtRegistroRSCO.Text, TxtFechaVigencia.Text.ToDate, ChkFechaIndeterminada.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                    Alert("RSCO agregado correctamente")
+                Else
+                    ErrorPrceso = True
+                End If
+            Else
+                If ObjInventarios.UpdateCompuestosVigencia(CveCompuestoVigencia, DdlCompuesto.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero, TxtRegistroRSCO.Text, TxtFechaVigencia.Text.ToDate, ChkFechaIndeterminada.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                    Alert("RSCO actualizado correctamente")
+                Else
+                    ErrorPrceso = True
+                End If
+            End If
+        End Using
+
+
+        If Not ErrorPrceso Then
+            GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing
+            CargaDatos()
+
+            If Not ChkModalContinuarAgregando.Checked Then
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarRSCO"))
+            Else
+                LimpiarModalDivAgregarRSCO()
+            End If
+
+            UpDatos.Update()
+        End If
+
+
+
+    End Sub
+
+
+
+    Protected Sub ChkFechaIndeterminada_CheckedChanged(sender As Object, e As EventArgs)
+
+        If ChkFechaIndeterminada.Checked Then
+            DvFechaVijencia.Visible = False
+            TxtFechaVigencia.Text = "01/01/1900"
+        Else
+            DvFechaVijencia.Visible = True
+            TxtFechaVigencia.Text = ""
+        End If
+
+        UpModalRSCO.Update()
+
+    End Sub
+End Class

Inventarios/RepEntregaAlmacenRuta.aspx.cs

@@ -644,11 +644,25 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
             if (e.Row.DataKey("Estatus").ToEntero() == 1)
             {
                 LnkCancelaTimbre.Visible = UsuarioActual.TienePermisoProceso(338);
-
+                if (e.Row.DataKey("Tipo").ToString() == "I")
-                if (bool.Parse(e.Row.DataKey("AplicaCP")))
                 {
-                    if (e.Row.FCHyperLink("HplPDF") != null)
+                    LnkCancelaTimbre.Visible = false;
-                        e.Row.FCHyperLink("HplPDF").NavigateUrl = "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", e.Row.DataKey("CveTimbre")));
+                }
+
+
+                    if (bool.Parse(e.Row.DataKey("AplicaCP")))
+                {
+                    
+                    if(e.Row.DataKey("Tipo").ToString() == "I")
+                    {
+                        if (e.Row.FCHyperLink("HplPDF") != null)
+                            e.Row.FCHyperLink("HplPDF").NavigateUrl = "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", -1, "PDF", e.Row.DataKey("SerieFolio"), e.Row.DataKey("TimbreTipoDocto")));
+                    }
+                    else
+                    {
+                        if (e.Row.FCHyperLink("HplPDF") != null)
+                            e.Row.FCHyperLink("HplPDF").NavigateUrl = "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", e.Row.DataKey("CveTimbre")));
+                    }
                 }
                 else
                 {
@@ -660,8 +674,16 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
 
                 if (File.Exists(ArchivoXML))
                 {
-                    if (e.Row.FCHyperLink("HplXML") != null)
+                    if (e.Row.DataKey("Tipo").ToString() == "I")
-                        e.Row.FCHyperLink("HplXML").NavigateUrl = "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", -1, "XML", e.Row.DataKey("SerieFolio"), e.Row.DataKey("TimbreTipoDocto")));
+                    {
+                        if (e.Row.FCHyperLink("HplXML") != null)                            
+                            e.Row.FCHyperLink("HplXML").NavigateUrl = "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", -1, "XML", e.Row.DataKey("SerieFolio"), e.Row.DataKey("TimbreTipoDocto")));
+                    }
+                    else
+                    {
+                        if (e.Row.FCHyperLink("HplXML") != null)
+                            e.Row.FCHyperLink("HplXML").NavigateUrl = "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", -1, "XML", e.Row.DataKey("SerieFolio"), e.Row.DataKey("TimbreTipoDocto")));
+                    }
                 }
 
             }
@@ -680,6 +702,9 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
 
             switch (e.Row.DataKey("Tipo"))
             {
+                case "I":
+                    e.Row.FCLabel("LtTipo").CssClass = "label label-sm label-success";
+                    break;
                 case "E":
                     e.Row.FCLabel("LtTipo").CssClass = "label label-sm label-success";
                     break;

Inventarios/RepRSCO.aspx

@@ -0,0 +1,154 @@
+<%@ Page Title="Rep RSCO" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepRSCO.aspx.vb" Inherits="Inventarios_RepRSCO" EnableEventValidation="false" %>
+
+<%@ 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">
+
+    <style>
+        #DivAgregarUnidad > div.modal-dialog > div label input {
+            padding: 0px !important;
+        }
+    </style>
+
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    Rep RSCO
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Conditional">
+        <ContentTemplate>
+            <li>                
+                <asp:LinkButton runat="server" ID="LnkDescargaExcel" Visible="false" OnClick="LnkDescargaExcel_Click" data-toggle="tooltip" data-placement="left" title="Excel" Text="<i class='fa fa-file-excel-o'></i>Excel"></asp:LinkButton>
+            </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LnkDescargaExcel" />
+        </Triggers>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
+
+
+
+      <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" OnClick="BtnConsultar_Click" />
+                        <a href="javascript:;" class="expand"></a>
+                    </div>
+                    <div class="titlefiltros  caption ">
+                        <div class="row">
+                            <div class="col-md-1 ">Proveedor:</div>                            
+                            <div class="col-md-2 ">                                
+                                <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>                                
+                            </div>
+                            <div class="col-md-1">Compuesto: </div>
+                            <div class="col-md-2">
+                                    <asp:DropDownList ID="DdlCompuesto" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataValueField="CveCompuesto" DataTextField="Compuesto" Style="padding: 0px">
+                                    </asp:DropDownList>
+                            </div>
+
+                            <div class="col-md-1 truncate">
+                                Fecha Inicio:                           
+                            </div>
+                            <div class="col-md-1" style="min-width: 115px">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                    <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                            <div class="col-md-1 truncate">
+                                Fecha Fin: 
+                           
+                            </div>
+                            <div class="col-md-1" style="min-width: 115px">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                    <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+
+
+                          
+
+                        </div>
+                    </div>
+                </div>
+                <div class="portlet-body" style="display: none">                
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <br />
+
+
+
+
+
+
+
+
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" 
+
+                DataKeyNames="CveCompuestoVigencia,CveCompuesto,CveProveedor,RegistroRSCO,FechaVigencia,VigenciaIndeterminada,CveUsuario"
+                EmptyDataText="No se Encontraron Registros" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
+                <Columns>
+                    <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Compuesto" DataField="Compuesto" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Registro RSCO" DataField="RegistroRSCO" ItemStyle-HorizontalAlign="Left" />
+
+                    <asp:BoundField HeaderText="Fecha. Vigencia" ItemStyle-HorizontalAlign="Center" DataField="FechaVigencia" ItemStyle-Width="5%" DataFormatString="{0:d}" />
+                    <asp:BoundField HeaderText="Fecha Indeterminada" DataField="VigenciaIndeterminadaStr" ItemStyle-HorizontalAlign="Center" />                   
+                    
+                    
+                    <asp:BoundField HeaderText="Usuario" DataField="Usuario" />
+                    <asp:BoundField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" DataField="FechaIng" ItemStyle-Width="5%" DataFormatString="{0:d}" />
+                    
+                   <%-- <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Eitar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
+                            <asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Eliminar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Eliminar" data-btn-ok-label="Si" />
+                        </ItemTemplate>
+                    </asp:TemplateField>--%>
+                </Columns>
+            </asp:GridView>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+ 
+
+
+
+
+
+
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
+

Inventarios/RepRSCO.aspx.vb

@@ -0,0 +1,150 @@
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Inventarios_RepRSCO
+    Inherits ClsPaginas
+
+    Private Property DTDatos As DataTable
+        Get
+
+            If ViewState("DTDatos") Is Nothing Then
+
+                ViewState("DTDatos") = New DataTable
+            End If
+
+            Return DirectCast(ViewState("DTDatos"), DataTable)
+
+        End Get
+        Set(ByVal value As DataTable)
+            ViewState("DTDatos") = value
+        End Set
+    End Property
+
+    Private Sub Inventarios_RepRSCO_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaCombos()
+
+        End If
+    End Sub
+
+
+    Public Sub CargaDatos()
+
+
+        Dim ObjInventarios As New ClsInventarios
+
+        LnkDescargaExcel.Visible = False
+
+        If ObjInventarios.RepCompuestosVigencia(DdlCompuesto.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, 1, UsuarioActual.CveEmpresa) Then
+
+            DTDatos = ObjInventarios.DtResultados
+            GvDatos.DataSource = DTDatos
+            If DTDatos IsNot Nothing AndAlso DTDatos.Rows.Count > 0 Then
+                LnkDescargaExcel.Visible = True
+                UpAcciones.Update()
+            End If
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+
+        ObjInventarios.Dispose()
+        GvDatos.DataBind()
+        UpDatos.Update()
+
+
+    End Sub
+
+    Private Sub CargaCombos()
+
+
+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Todos"
+        DdlProveedores.SelectedValue = "-1"
+
+
+        Dim ObjPS As New ClsProductosServicios
+
+        If ObjPS.GetCompuestosActivos(UsuarioActual.CveEmpresa) Then
+            DdlCompuesto.DataSource = ObjPS.DtResultados
+        Else
+            DdlCompuesto.DataSource = Nothing
+        End If
+
+        ObjPS.Dispose()
+        DdlCompuesto.DataBind()
+        DdlCompuesto.Items.Insert(0, New ListItem("Todos", "-1"))
+
+
+        txtFechaF.Text = Now.ToString("dd/MM/yyyy")
+        txtFechaI.Text = txtFechaF.Text.ToDate.AddMonths(-2).ToString("dd/MM/yyyy")
+
+
+
+    End Sub
+
+
+
+
+
+
+    Protected Sub LnkDescargaExcel_Click(sender As Object, e As EventArgs)
+        ImprimirReporte("EXCEL")
+    End Sub
+
+
+    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+
+        Dim ObjTareas As New ClsOIEventos
+        Dim params As New List(Of ReportParameter)
+
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+        Dim FechaI, FechaF As String
+        FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
+        FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
+
+
+        params.Add(New ReportParameter("Filtros", FiltrosUsados()))
+        'params.Add(New ReportParameter("GPO", DdlGrupo.SelectedItem.Text))
+        params.Add(New ReportParameter("Titulo", "Reporte RSCO"))
+        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        params.Add(New ReportParameter("FechaInicio", FechaI))
+        params.Add(New ReportParameter("FechaFin", FechaF))
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
+        Else
+            params.Add(New ReportParameter("LogoPath", ""))
+        End If
+
+        ImprimirPDF("Empresas\Grales\Formatos\RepRSCO.rdlc", DTDatos, params, "RepRSCO" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)
+
+    End Sub
+
+    Private Function FiltrosUsados() As String
+        Dim Filtros As String = ""
+
+        If DdlProveedores.SelectedValue.ToEntero > 0 Then
+            Filtros = $"<b>Proveedor:</b> {DdlProveedores.txtText.Value}, "
+        End If
+
+        If DdlCompuesto.SelectedValue.ToEntero > 0 Then
+            Filtros = Filtros & $"<b>Compuesto:</b> {DdlProveedores.txtText.Value}, "
+        End If
+
+
+        Filtros = Filtros & $"<b>Fecha Inicio:</b> {txtFechaI.Text}, <b>Fecha Fin:</b> {txtFechaF.Text}"
+
+        Return Filtros
+
+    End Function
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+    End Sub
+End Class

RH/CatPersonal.aspx

@@ -628,6 +628,12 @@
                                     <asp:Literal ID="LtlRiesgoPuesto" runat="server" Text='<%# Eval("RiesgoPuesto") %>'></asp:Literal>
                                 </ItemTemplate>
                             </asp:TemplateField>
+                            <asp:TemplateField ItemStyle-HorizontalAlign="Left" Visible="false">
+                                <HeaderTemplate>Registro patronal</HeaderTemplate>
+                                <ItemTemplate>
+                                    <asp:Literal ID="LtlRiesgoPuesto" runat="server" Text='<%# Eval("RegistroPatronal") %>'></asp:Literal>
+                                </ItemTemplate>
+                            </asp:TemplateField>
 
                         </Columns>
                         <RowStyle CssClass="Texto" />
@@ -728,13 +734,14 @@
                                             <asp:CheckBox ID="ChkSeInscribioSS" runat="server" Text="SeInscribioSS" />
                                         </div>
                                         <div class="col-md-3">
-                                            <asp:CheckBox ID="ChkSalarioDiarioPago" runat="server" Text="SalarioDiarioPago" />
+                                            <asp:CheckBox ID="ChkRegistroPatronal" runat="server" Text="Registro patronal" />
+                                            <asp:CheckBox ID="ChkSalarioDiarioPago" Visible="false" runat="server" Text="SalarioDiarioPago" />
                                         </div>
                                         <div class="col-md-3">
                                             <asp:CheckBox ID="ChkSalarioDiario" runat="server" Text="SalarioDiario" />
                                         </div>
                                     </div>
-                                    <div class="row">
+                                    <div class="row" runat="server" Visible="false">
                                         <div class="col-md-3">
                                             <asp:CheckBox ID="ChkSDI" runat="server" Text="SDI" />
                                         </div>

RH/CatPersonal.aspx.vb

@@ -592,7 +592,12 @@ Partial Class RH_CatPersonal
         If ChkRiesgoPuesto.Checked Then
             GvDatos.Columns(43).Visible = True
         Else
-            GvDatos.Columns(42).Visible = False
+            GvDatos.Columns(43).Visible = False
+        End If
+        If ChkRegistroPatronal.Checked Then
+            GvDatos.Columns(44).Visible = True
+        Else
+            GvDatos.Columns(44).Visible = False
         End If
 
 

Sistemas/Empresa.aspx

@@ -1761,6 +1761,12 @@
         </tr>
     </table>
     <br />
+
+
+    <asp:UpdatePanel runat="server" ID="UpModalCertificados" UpdateMode="Conditional">
+        <ContentTemplate>
+
+            
     <div id="ModalArchvivo" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
 
@@ -1768,7 +1774,7 @@
             <div class="modal-content" style="width: 700px;">
                 <div class="modal-header ">
                     <button type="button" class="close" data-dismiss="modal">&times;</button>
-                    <h4 class="modal-title">Subir Imagen</h4>
+                    <h4 class="modal-title"><asp:Label runat="server" ID="LblModalCertificadosTitulo"></asp:Label></h4>
                 </div>
 
                 <div class="modal-body" style="height: 200px;">
@@ -1787,17 +1793,33 @@
                         </ContentTemplate>
                     </asp:UpdatePanel>
                 </div>
+                <br />
                 <div class="modal-footer">
                     <asp:UpdatePanel runat="server">
                         <ContentTemplate>
-                            <asp:Button ID="BtnGuardarArchivo" runat="server" OnClick="BtnGuardarArchivo_Click" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" />
+                            
-                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                            <div class="row">
+                                <div class="col-md-12">
+                                     <asp:Button ID="BtnGuardarArchivo" runat="server" OnClick="BtnGuardarArchivo_Click" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" />
+                                    <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                                </div>
+                            </div>
+                           
+
                         </ContentTemplate>
                     </asp:UpdatePanel>
                 </div>
             </div>
         </div>
-    </div>
+    </div>
+
+
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="server">
     <script type="text/javascript">

Sistemas/Empresa.aspx.vb

@@ -107,6 +107,31 @@ Partial Class Sistemas_Empresa
         End Set
     End Property
 
+
+    Enum EnumOpActualizaArchivosCer
+        SinOpcion
+        KEY
+        CER
+        PFX
+    End Enum
+
+
+    Property OpActualizaArchivosCer As EnumOpActualizaArchivosCer
+
+        Get
+            If ViewState("OpActualizaArchivosCer") Is Nothing Then
+                ViewState("OpActualizaArchivosCer") = EnumOpActualizaArchivosCer.SinOpcion
+            End If
+
+            Return DirectCast(ViewState("OpActualizaArchivosCer"), EnumOpActualizaArchivosCer)
+
+        End Get
+        Set(value As EnumOpActualizaArchivosCer)
+            ViewState("OpActualizaArchivosCer") = value
+        End Set
+
+    End Property
+
 #End Region
 
 
@@ -1644,15 +1669,35 @@ Partial Class Sistemas_Empresa
 
             If result.Exitoso Then
                 Alert("El emisor se registró correctamente.<br>" & result.Descripcion)
+            Else
+                Alert("Ocurrió un error al registrar el emisor.<br>" & result.Descripcion & ".<br> Numero Error: " & result.NumeroError, TipoMensaje.MsgError)
+            End If
+
+        Catch ex As Exception
             OnError("Ocurrió un error al registrar el emisor", ex)
+        End Try
+
+    End Sub
+
+
 
 
 
 
+    Protected Sub LnkArchivoKey_Click(sender As Object, e As EventArgs) Handles LnkArchivoKey.Click
+        TxtCargaImg.getfiles().Archivos = Nothing
+        TxtCargaImg.Text = "[]"
+        OpActualizaArchivosCer = EnumOpActualizaArchivosCer.KEY
+        LblModalCertificadosTitulo.Text = "Archivo KEY"
         UpModalCertificados.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
     End Sub
 
+    Protected Sub LnkArchivoCer_Click(sender As Object, e As EventArgs) Handles LnkArchivoCer.Click
+        TxtCargaImg.getfiles().Archivos = Nothing
+        TxtCargaImg.Text = "[]"
+        OpActualizaArchivosCer = EnumOpActualizaArchivosCer.CER
+        LblModalCertificadosTitulo.Text = "Archivo CER"
         UpModalCertificados.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
     End Sub
@@ -1663,6 +1708,7 @@ Partial Class Sistemas_Empresa
         OpActualizaArchivosCer = EnumOpActualizaArchivosCer.PFX
         LblModalCertificadosTitulo.Text = "Archivo PFX"
         UpModalCertificados.Update()
+        RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
     End Sub
 
     Protected Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs)
@@ -1670,6 +1716,9 @@ Partial Class Sistemas_Empresa
         Dim filesgral As List(Of Archivo) = TxtCargaImg.getfiles().Archivos
         Dim filemove As String = ""
         Dim TieneError As Boolean = False
+
+        For Each fileItem As Archivo In filesgral
+
             FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
             filemove = fileItem.filename
 
@@ -1681,13 +1730,57 @@ Partial Class Sistemas_Empresa
             Dim ArchivoCertificado As String = $"{NombreArchivo}.{FileExtension}"
 
             If File.Exists(yaExistente) Then
+                File.Delete(yaExistente)
+            End If
+            Try
+                If filemove <> "" Then
+                    Dim Ruta As String = String.Format("Empresas\{0}\Certificados\", CveEmpresa)
+                    filemove.FilesMove(NombreArchivo, Ruta)
+                End If
+            Catch ex As Exception
+                TieneError = True
+            End Try
+
+
+            If CveEmpresa > 0 AndAlso Not TieneError Then
+
+                Dim ObjEmpresas As New ClsSisEmpresas
+
+
+                Dim ArchivoKey As String = "-1"
+                Dim ArchivoCer As String = "-1"
+                Dim ArchivoPfx As String = "-1"
+
+
+                If OpActualizaArchivosCer = EnumOpActualizaArchivosCer.KEY Then
+                    ArchivoKey = ArchivoCertificado
+                    TxtArchivoKey.Text = ArchivoKey
+                ElseIf OpActualizaArchivosCer = EnumOpActualizaArchivosCer.CER Then
+                    ArchivoCer = ArchivoCertificado
+                    TxtArchivoCer.Text = ArchivoCer
+                ElseIf OpActualizaArchivosCer = EnumOpActualizaArchivosCer.PFX Then
+                    ArchivoPfx = ArchivoCertificado
+                    TxtArchivoPfx.Text = ArchivoPfx
+                End If
+
+                If Not ObjEmpresas.UpdateEmpresasCertificados(ArchivoKey, ArchivoCer, ArchivoPfx, CveEmpresa) Then
                     TieneError = True
+                End If
+
+
+                ObjEmpresas.Dispose()
+
             End If
 
 
 
         Next
 
+
+
+
+
+        If Not TieneError Then
             Alert("Certificado cargado con exito")
             RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchvivo"))
         End If

Ventas/RepProductosServicios.aspx

@@ -546,7 +546,7 @@
                     "title": "Ventas"
                 }],
                 "graphs": [{
-                    "balloonText": "[[category]]: <b>[[value]]</b> [[Moneda]]",
+                    "balloonText": "[[Texto]]: <b>[[value]]</b> [[Moneda]]",
                     "colorField": "Color",
                     "fillAlphas": 1,
                     "lineAlpha": 0.1,
@@ -560,7 +560,7 @@
                     "cursorAlpha": 0,
                     "zoomable": false
                 },
-                "categoryField": "Texto",
+                "categoryField": "Categoria",
                 "categoryAxis": {
                     "gridPosition": "start",
                     "labelRotation": 90
@@ -579,7 +579,7 @@
                 "dataProvider":
                     data,
                 "valueField": "Valor",
-                "titleField": "Texto",
+                "titleField": "Categoria",
                 "outlineAlpha": 0.4,
                 "depth3D": 0,
                 "balloonText": "[[title]]<br><span style='font-size:14px'><b>[[value]]</b> ([[percents]]% [[Moneda]])</span>",

Ventas/RepProductosServicios.aspx.vb

@@ -675,6 +675,8 @@ Partial Class Ventas_RepProductosServicios
                 Dim Row As DataRow = Nothing
                 Row = Dt.NewRow()
                 Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
+
+                Row("Moneda") = Dr("Moneda").ToString
                 Select Case DdlVer.SelectedValue.ToEntero
                     Case 1
                         Row("Valor") = Dr("Total").ToString.FormatoNumero
@@ -684,9 +686,11 @@ Partial Class Ventas_RepProductosServicios
                         Row("Valor") = Dr("IVA").ToString.FormatoNumero
                     Case 4
                         Row("Valor") = Dr("Cantidad").ToString.FormatoNumero
+                        Row("Texto") = $"{Dr("GPO").ToString}"
                 End Select
+
                 Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
-                Row("Moneda") = Dr("Moneda").ToString
+
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
                 If RowColorIndex = 17 Then
@@ -695,7 +699,12 @@ Partial Class Ventas_RepProductosServicios
             End If
         Next
 
-        Dim query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
+        Dim query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString(), .Categoria = s("Texto").ToString()}
+
+        If DdlVer.SelectedValue.ToEntero = 4 Then
+            query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString() & " Cantidad", .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = "", .Categoria = s("Texto").ToString()}
+        End If
+
         Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query)
         Select Case DdlGrafica.SelectedValue.ToEntero
             Case 1

Ventas/RepProductosServiciosPeriodo.aspx

@@ -202,9 +202,11 @@
                         </div>
                         <label class="col-md-1 ">Cliente:</label>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                            <%--<asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>--%>
                         </div>
                         <label class="col-md-1 truncate">Fecha Mostrada:</label>
                         <div class="col-md-2">

Ventas/RepProductosServiciosPeriodo.aspx.cs

@@ -70,14 +70,18 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
         {
             DdlTipoComprobante.SelectedValueExist(Opcion);
             DdlGrupo.SelectedValueExist("7");
-            DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, EventArgs.Empty);
+            DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, EventArgs.Empty);
-            DdlEstatus.SelectedValue = "-1";
+            DdlEstatus.SelectedValue = "-1";
-        }
+        }
-    }
+    }
-
+
-    private void CargaCombos()
+    private void CargaCombos()
-    {
+    {
-        //CargaClientes
+        ////CargaClientes
+        //ClsClientes ObjClientes = new ClsClientes();
+        //if (ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa))
+        //{
+        //    DdlClientes.DataSource = ObjClientes.DtResultados;
         //}
         //ObjClientes.Dispose();
         //DdlClientes.DataBind();
@@ -260,10 +264,10 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
         DdlGrupo.SelectedValueExist("8");
     }
 
-
+
     #endregion
 
-    #region SELECTED INDEX CHANGE
+    #region SELECTED INDEX CHANGE
 
     protected void DdlClienteClasificacion_SelectedIndexChanged(object sender, EventArgs e)
     {

Ventas/RepRecuperacionPeriodo.aspx

@@ -114,9 +114,10 @@
                         </div>
                         <div class="col-md-1 truncate">Cliente:</div>
                         <div class="col-md-2 ">
-                            <asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" CssClass="form-control  input-small input-sm select2me" Width="100%">
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                            <%--<asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" CssClass="form-control  input-small input-sm select2me" Width="100%">
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>--%>
                         </div>
                         <div class="col-md-1 truncate">Clasificación Cli.:</div>
                         <div class="col-md-2 ">

Ventas/RepRecuperacionPeriodo.aspx.cs

@@ -76,9 +76,16 @@ public partial class Ventas_RepRecuperacionPeriodo : ClsPaginas
         DdlBanco.Items.Insert(0, new ListItem("Todos", "-1"));
         DdlBanco.DataBind();
 
+        //Carga Clasificacion Cliente
         ClsClientes ObjCliente = new ClsClientes();
         if (ObjCliente.GetClienteClasificacion(UsuarioActual.CveEmpresa))
         {
+            DdlClienteClasificacion.DataSource = ObjCliente.DtResultados;
+        }
+        ObjCliente.Dispose();
+
+        DdlClienteClasificacion.Items.Insert(0, new ListItem("Todos", "-1"));
+        DdlClienteClasificacion.DataBind();
 
 
         DdlClientes.setEsWebService(true);
@@ -92,7 +99,7 @@ public partial class Ventas_RepRecuperacionPeriodo : ClsPaginas
     }
 
     private void GenerarPDF(string Opcion)
-    {
+    {
         string FechaInicio, FechaFin, Sucursal, Grupo, Vendedor,Cliente, ClasificacionCliente,Banco,CuentaBancaria,TipoDocto,EstatusCliente,Registro,Responsable;
         if (txtFechaI.Text == "") { FechaInicio = ""; } else { FechaInicio = $"&emsp;<b>Fecha Inicio:</b> {txtFechaI.Text}"; }
         if (txtFechaF.Text == "") { FechaFin = ""; } else { FechaFin = $"&emsp;<b>Fecha Fin:</b> {txtFechaF.Text}"; }

Ventas/RepVentasPeriodo.aspx

@@ -226,9 +226,11 @@
                         </div>
                         <label class="col-md-1 ">Cliente:</label>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+
+                            <%--<asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>--%>
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
                         </div>
                         <label title="Clasificación Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Clasificacion Cli.:</label>
                         <div class="col-md-2">

Ventas/RepVentasPeriodo.aspx.vb

@@ -96,16 +96,20 @@ Partial Class RepVentasPeriodo
 
     End Sub
 
-    Private Sub CargaCombos()
+    Private Sub CargaCombos()
-        'CargaClientes
+        ''CargaClientes
-        Dim ObjClientes As New ClsClientes
+        'Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+        'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-            DdlClientes.DataSource = ObjClientes.DtResultados
+        '    DdlClientes.DataSource = ObjClientes.DtResultados
-        Else
+        'Else
-            DdlClientes.DataSource = Nothing
+        '    DdlClientes.DataSource = Nothing
-        End If
+        'End If
-        ObjClientes.Dispose()
+        'ObjClientes.Dispose()
-        DdlClientes.DataBind()
+        'DdlClientes.DataBind()
+        DdlClientes.setEsWebService(True)
+        DdlClientes.Attributes.Add("data-metodo", "getcliente")
+        DdlClientes.SelectedText = "Todos"
+        DdlClientes.SelectedValue = "-1"
 
         'CargaSucursales
 
@@ -192,8 +196,10 @@ Partial Class RepVentasPeriodo
         FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim.ToDate, MinFecha)
         FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim.ToDate, MaxFecha)
 
-        Dim ModalidadContable As Boolean = Not ChkLecturaAdmin.Checked
+        Dim ModalidadContable As Boolean = Not ChkLecturaAdmin.Checked
-
+
+
+
         If ObjVentas.GetRepVentasPeriodos(FechaI, FechaF, FechaIEjec, FechaFEjec, DdlClientes.SelectedValue.ToEntero, DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero,
                                   DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue,
                                   DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
@@ -408,11 +414,13 @@ Partial Class RepVentasPeriodo
         CargaClientes()
     End Sub
 
-    Private Sub CargaClientes()
+    Private Sub CargaClientes()
-        DdlClientes.Items.Clear()
+
+
+        DdlClientes.ddl.Items.Clear()
         DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1")
         DdlClientes.DataBind()
-        DdlClientes.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
 End Class

Ventas/Ventas.aspx.vb

@@ -9583,7 +9583,7 @@ Partial Class Ventas
                             Try
                                 'MANDA CORREO
                                 Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
-                                Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
+                                Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
                                 Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST))
                                 Hilo.Start()
                             Catch ex As Exception
@@ -15200,7 +15200,7 @@ Partial Class Ventas
             End Try
 
             If CveVenta > 0 Then
-                ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
+                ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
             End If
 
             LocalSerieFolio = ObjFactura.SerieFolio
@@ -16438,7 +16438,7 @@ Partial Class Ventas
                     Try
                         'MANDA CORREO
                         Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
-                        Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
+                        Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
                         Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST))
                         Hilo.Start()
                     Catch ex As Exception
@@ -23693,7 +23693,7 @@ Partial Class Ventas
     End Function
     Public Sub EnviarPDFCancelacion(CveVenta As Integer)
 
-        Dim FacturaRef As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa)
+        Dim FacturaRef As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, CargaDTDetalle:=False, CargaDatosRelacionados:=False)
 
         If FacturaRef IsNot Nothing Then
             Dim ObjetoPDF As Byte() = DescargarPDF(Encripta(String.Format("OP=CAN&CVEVTA={0}", CveVenta)))
@@ -26942,10 +26942,20 @@ Partial Class Ventas
 
             If CveVentaUsado > 0 Then
                 DivSMU.Visible = True
-                Dim FacUsado As New Modelos.Factura(UsuarioActual, CveVentaUsado, UsuarioActual.CveEmpresa)
+                'Dim FacUsado As New Modelos.Factura(UsuarioActual, CveVentaUsado, UsuarioActual.CveEmpresa, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
-                Dim SaldoMaximoUsados As Decimal = FacUsado.DtDetalle.SUM("Total", "EsCargo = True").ToDecimal() + FacUsado.DtDetalle.SUM("ImporteIVA", "EsCargo = True").ToDecimal()
+                Dim DtDetalleUsado As DataTable = Nothing
-                HdnSaldoMaximoUsados.Value = SaldoMaximoUsados.ToString()
+                Using ObjVentas As New ClsVentas
-                LtlSMU.Text = String.Format("{0:N2}", SaldoMaximoUsados)
+                    If ObjVentas.GetVentaDetalle(CveVentaUsado) Then
+                        DtDetalleUsado = ObjVentas.DtResultados.Copy()
+                    End If
+                End Using
+
+                If DtDetalleUsado IsNot Nothing Then
+                    Dim SaldoMaximoUsados As Decimal = DtDetalleUsado.SUM("Total", "EsCargo = True").ToDecimal() + DtDetalleUsado.SUM("ImporteIVA", "EsCargo = True").ToDecimal()
+                    HdnSaldoMaximoUsados.Value = SaldoMaximoUsados.ToString()
+                    LtlSMU.Text = String.Format("{0:N2}", SaldoMaximoUsados)
+                End If
+
             Else
                 If CargarSoloGarantias Then
                     Dim SaldoMaximo As Decimal = DtNC.SUMD("Saldo", "TipoRNC = 1 AND EsGarantia = True")
@@ -27062,17 +27072,27 @@ Partial Class Ventas
 
         If CveVentaUsado > 0 Then
             DivSMU.Visible = True
-            Dim FacUsado As New Modelos.Factura(UsuarioActual, CveVentaUsado, UsuarioActual.CveEmpresa)
+            'Dim FacUsado As New Modelos.Factura(UsuarioActual, CveVentaUsado, UsuarioActual.CveEmpresa)
-            Dim SaldoMaximoUsados As Decimal = FacUsado.DtDetalle.SUM("Total", "EsCargo = True").ToDecimal() + FacUsado.DtDetalle.SUM("ImporteIVA", "EsCargo = True").ToDecimal()
+            Dim DtDetalleUsado As DataTable = Nothing
+            Using ObjVentas As New ClsVentas
+                If ObjVentas.GetVentaDetalle(CveVentaUsado) Then
+                    DtDetalleUsado = ObjVentas.DtResultados.Copy()
+                End If
+            End Using
 
-            If SaldoMaximoUsados > 0 Then
+            If DtDetalleUsado IsNot Nothing Then
-                HdnSaldoMaximoUsados.Value = SaldoMaximoUsados.ToString()
+                Dim SaldoMaximoUsados As Decimal = DtDetalleUsado.SUM("Total", "EsCargo = True").ToDecimal() + DtDetalleUsado.SUM("ImporteIVA", "EsCargo = True").ToDecimal()
-                LtlSMU.Text = String.Format("{0:N2}", SaldoMaximoUsados)
+
-            Else
+                If SaldoMaximoUsados > 0 Then
-                HdnSaldoMaximoUsados.Value = "0"
+                    HdnSaldoMaximoUsados.Value = SaldoMaximoUsados.ToString()
-                LtlSMU.Text = "0"
+                    LtlSMU.Text = String.Format("{0:N2}", SaldoMaximoUsados)
+                Else
+                    HdnSaldoMaximoUsados.Value = "0"
+                    LtlSMU.Text = "0"
+                End If
             End If
 
+
         Else
             If CargaSoloGarantias Then
                 Dim SaldoMaximo As Decimal = TmpDTRNCDetalle.SUMD("Total", "TipoRNC = 1")
@@ -30196,59 +30216,59 @@ Partial Class Ventas
         UpParametros.Update()
     End Sub
 
-    Private Function AjustarTotalCotizacionFacturada(CveCotizacion As Integer, TotalAjustar As Decimal) As Boolean
+    'Private Function AjustarTotalCotizacionFacturada(CveCotizacion As Integer, TotalAjustar As Decimal) As Boolean
-        Dim ErrorAjuste As Boolean = False
+    '    Dim ErrorAjuste As Boolean = False
 
-        Dim ObjCotizacion As New Modelos.Factura(UsuarioActual, CveCotizacion, UsuarioActual.CveEmpresa)
+    '    Dim ObjCotizacion As New Modelos.Factura(UsuarioActual, CveCotizacion, UsuarioActual.CveEmpresa)
 
-        If ObjCotizacion.CveMoneda = 1 Then
+    '    If ObjCotizacion.CveMoneda = 1 Then
-            Dim TotalNuevoDocumento As Decimal = TotalAjustar
+    '        Dim TotalNuevoDocumento As Decimal = TotalAjustar
 
-            Dim Diferencia As Decimal = (ObjCotizacion.Total - TotalNuevoDocumento)
+    '        Dim Diferencia As Decimal = (ObjCotizacion.Total - TotalNuevoDocumento)
 
-            If Diferencia <> 0 Then
+    '        If Diferencia <> 0 Then
-                'AJUSTAR EN EL IVA
+    '            'AJUSTAR EN EL IVA
-                For Each RowNuevoDocumento As DataRow In TmpDT.Rows
+    '            For Each RowNuevoDocumento As DataRow In TmpDT.Rows
-                    Dim CveVentaDetalleCotizacion As Integer = RowNuevoDocumento("CveVentaDetalleCotizacion").ToString().ToEntero()
+    '                Dim CveVentaDetalleCotizacion As Integer = RowNuevoDocumento("CveVentaDetalleCotizacion").ToString().ToEntero()
 
-                    Dim ImporteIVANuevoDocumento As Decimal = RowNuevoDocumento("ImporteIVA").ToString().ToDecimal()
+    '                Dim ImporteIVANuevoDocumento As Decimal = RowNuevoDocumento("ImporteIVA").ToString().ToDecimal()
-                    Dim ImporteIEPSNuevoDocumento As Decimal = RowNuevoDocumento("ImporteIEPS").ToString().ToDecimal()
+    '                Dim ImporteIEPSNuevoDocumento As Decimal = RowNuevoDocumento("ImporteIEPS").ToString().ToDecimal()
 
-                    If CveVentaDetalleCotizacion > 0 Then
+    '                If CveVentaDetalleCotizacion > 0 Then
-                        'AJUSTAR IVA
+    '                    'AJUSTAR IVA
-                        If ImporteIVANuevoDocumento > 0 Then
+    '                    If ImporteIVANuevoDocumento > 0 Then
-                            Dim ImporteIVACotizacion As Decimal = ObjCotizacion.DtDetalle.FiltroPrimeroValor("ImporteIVA", $"CveVentaDetalle={CveVentaDetalleCotizacion}").ToDecimal
+    '                        Dim ImporteIVACotizacion As Decimal = ObjCotizacion.DtDetalle.FiltroPrimeroValor("ImporteIVA", $"CveVentaDetalle={CveVentaDetalleCotizacion}").ToDecimal
 
-                            If ImporteIVANuevoDocumento <> ImporteIVACotizacion Then
+    '                        If ImporteIVANuevoDocumento <> ImporteIVACotizacion Then
-                                RowNuevoDocumento("ImporteIVA") = ImporteIVACotizacion
+    '                            RowNuevoDocumento("ImporteIVA") = ImporteIVACotizacion
-                            End If
+    '                        End If
-                        End If
+    '                    End If
 
-                        'AJUSTAR IEPS
+    '                    'AJUSTAR IEPS
-                        If ImporteIEPSNuevoDocumento > 0 Then
+    '                    If ImporteIEPSNuevoDocumento > 0 Then
-                            Dim ImporteIEPSCotizacion As Decimal = ObjCotizacion.DtDetalle.FiltroPrimeroValor("ImporteIEPS", $"CveVentaDetalle={CveVentaDetalleCotizacion}").ToDecimal
+    '                        Dim ImporteIEPSCotizacion As Decimal = ObjCotizacion.DtDetalle.FiltroPrimeroValor("ImporteIEPS", $"CveVentaDetalle={CveVentaDetalleCotizacion}").ToDecimal
 
-                            If ImporteIEPSNuevoDocumento <> ImporteIEPSCotizacion Then
+    '                        If ImporteIEPSNuevoDocumento <> ImporteIEPSCotizacion Then
-                                RowNuevoDocumento("ImporteIEPS") = ImporteIEPSCotizacion
+    '                            RowNuevoDocumento("ImporteIEPS") = ImporteIEPSCotizacion
-                            End If
+    '                        End If
-                        End If
+    '                    End If
 
 
-                    End If
+    '                End If
-                Next
+    '            Next
-            End If
+    '        End If
 
-            CalculaTotalesVenta(RecalculaImpuestosLocales:=False)
+    '        CalculaTotalesVenta(RecalculaImpuestosLocales:=False)
 
-            If Math.Abs(ObjCotizacion.Total - TotalAjustar) > 0 OrElse Math.Abs(TxtTotal.Text.ToDecimal - TotalAjustar) > 0 Then
+    '        If Math.Abs(ObjCotizacion.Total - TotalAjustar) > 0 OrElse Math.Abs(TxtTotal.Text.ToDecimal - TotalAjustar) > 0 Then
-                ErrorAjuste = True
+    '            ErrorAjuste = True
-            End If
+    '        End If
 
-        End If
+    '    End If
-        ObjCotizacion.Dispose()
+    '    ObjCotizacion.Dispose()
 
-        Return Not ErrorAjuste
+    '    Return Not ErrorAjuste
-    End Function
+    'End Function
 
     Private Class MVentaDetalleCotizacion
         Public Property CveVentaDetalle As Integer
@@ -32135,7 +32155,7 @@ Partial Class Ventas
             Dim TerminarCiclo As Boolean = False
 
             For Each Dr As DataRow In TmpDTRNCDetalleSelecciondas.FiltraParametros("", DistinctColumns:={"CveVenta"}).Rows
-                Dim RemNC As New Modelos.Factura(UsuarioActual, Dr("CveVenta").ToString().ToEntero(), UsuarioActual.CveEmpresa)
+                Dim RemNC As New Modelos.Factura(UsuarioActual, Dr("CveVenta").ToString().ToEntero(), UsuarioActual.CveEmpresa, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
 
                 Dim TotalRNC As Decimal = 0
                 For Each GvRow As GridViewRow In GvRemisionesNCDetalle.Rows
@@ -32191,7 +32211,7 @@ Partial Class Ventas
             For Each GvRow As GridViewRow In GvRemisionesNC.Rows
                 If GvRow.RowType = DataControlRowType.DataRow Then
                     If GvRow.FCCheckBox("ChkAplicar").Checked Then
-                        Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa)
+                        Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
                         RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal()
                         'MARCA LA VENTA QUE FUE USADA PARA EL FILTRO
                         RemNC.Num3 = DdlVentaUsado.SelectedValue.ToEntero()
@@ -32255,7 +32275,7 @@ Partial Class Ventas
             Dim TerminarCiclo As Boolean = False
 
             For Each Dr As DataRow In TmpDTRNCDetalleSelecciondas.FiltraParametros("", DistinctColumns:={"CveVenta"}).Rows
-                Dim RemNC As New Modelos.Factura(UsuarioActual, Dr("CveVenta").ToString().ToEntero(), UsuarioActual.CveEmpresa)
+                Dim RemNC As New Modelos.Factura(UsuarioActual, Dr("CveVenta").ToString().ToEntero(), UsuarioActual.CveEmpresa, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
 
                 Dim TotalRNC As Decimal = 0
                 For Each GvRow As GridViewRow In GvRemisionesNCBonDetalle.Rows
@@ -32311,7 +32331,7 @@ Partial Class Ventas
             For Each GvRow As GridViewRow In GvRemisionesNCBon.Rows
                 If GvRow.RowType = DataControlRowType.DataRow Then
                     If GvRow.FCCheckBox("ChkAplicar").Checked Then
-                        Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa)
+                        Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
                         RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal()
                         RemNC.CveVentaRNCCargo = GvRow.DataKey("CveVentaRNCCargo").ToEntero()
                         TotalRemNCAplicado += RemNC.TotalRemNCAplicado
@@ -32436,7 +32456,7 @@ Partial Class Ventas
                     Dim TerminarCiclo As Boolean = False
 
                     For Each Dr As DataRow In TmpDTRNCDetalleSelecciondas.FiltraParametros("", DistinctColumns:={"CveVenta"}).Rows
-                        Dim RemNC As New Modelos.Factura(UsuarioActual, Dr("CveVenta").ToString().ToEntero(), UsuarioActual.CveEmpresa)
+                        Dim RemNC As New Modelos.Factura(UsuarioActual, Dr("CveVenta").ToString().ToEntero(), UsuarioActual.CveEmpresa, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
 
                         Dim TotalRNC As Decimal = 0
                         For Each GvRow As GridViewRow In GvDescNCCargosDetalle.Rows
@@ -32507,7 +32527,7 @@ Partial Class Ventas
                     For Each GvRow As GridViewRow In GvDescNCCargos.Rows
                         If GvRow.RowType = DataControlRowType.DataRow Then
                             If GvRow.FCCheckBox("ChkAplicar").Checked Then
-                                Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa)
+                                Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
                                 RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal()
                                 TotalRemNCAplicado += RemNC.TotalRemNCAplicado
 
@@ -32591,7 +32611,7 @@ Partial Class Ventas
                     Dim TerminarCiclo As Boolean = False
 
                     For Each Dr As DataRow In TmpDTRNCBonificacionDetalleSeleccionadas.FiltraParametros("", DistinctColumns:={"CveVenta"}).Rows
-                        Dim RemNC As New Modelos.Factura(UsuarioActual, Dr("CveVenta").ToString().ToEntero(), UsuarioActual.CveEmpresa)
+                        Dim RemNC As New Modelos.Factura(UsuarioActual, Dr("CveVenta").ToString().ToEntero(), UsuarioActual.CveEmpresa, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
 
                         Dim TotalRNC As Decimal = 0
                         For Each GvRow As GridViewRow In GvDescNCBonDetalle.Rows
@@ -32647,7 +32667,7 @@ Partial Class Ventas
                     For Each GvRow As GridViewRow In GvDescNCBonificaciones.Rows
                         If GvRow.RowType = DataControlRowType.DataRow Then
                             If GvRow.FCCheckBox("ChkAplicar").Checked Then
-                                Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa)
+                                Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
                                 RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal()
                                 RemNC.CveVentaRNCCargo = GvRow.DataKey("CveVentaRNCCargo").ToEntero()
                                 TotalRemNCAplicado += RemNC.TotalRemNCAplicado
@@ -32669,7 +32689,7 @@ Partial Class Ventas
                 For Each GvRow As GridViewRow In GvDescNCBonificaciones.Rows
                     If GvRow.RowType = DataControlRowType.DataRow Then
                         If GvRow.FCCheckBox("ChkAplicar").Checked Then
-                            Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa)
+                            Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
                             RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal()
                             RemNC.CveVentaRNCCargo = GvRow.DataKey("CveVentaRNCCargo").ToEntero()
                             TotalRemNCAplicado += RemNC.TotalRemNCAplicado
@@ -33915,7 +33935,7 @@ Partial Class Ventas
         For Each GvRow As GridViewRow In GvRNCDevoluciones.Rows
             If GvRow.RowType = DataControlRowType.DataRow Then
                 If GvRow.FCCheckBox("ChkAplicar").Checked Then
-                    Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa)
+                    Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa, CargaDatosCliente:=False, CargaDatosRelacionados:=False)
                     RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal()
                     TotalRemNCAplicado += RemNC.TotalRemNCAplicado