AF/AF.aspx

@@ -54,7 +54,9 @@
                         <ajax:TabContainer ID="Tab" runat="server" Width="100%">
                             <ajax:TabPanel ID="TabAlta" runat="server" HeaderText="Información General">
                                 <ContentTemplate>
-
+                                        <asp:UpdatePanel ID="UPG" runat="server" UpdateMode="Conditional">
+                                                        <ContentTemplate>
+                                                       
                                     <div class="row">
                                         <div class="col-md-6">
                                             <div class="portlet light xspadding  bordered ">
@@ -201,7 +203,7 @@
 
                                                             <div class="col-md-3">
                                                                 <div class="form-group form-md-line-input">
-                                                                    <asp:TextBox CssClass="form-control input-sm" ID="TxtValorCompra" runat="server" MaxLength="13"></asp:TextBox>
+                                                                    <asp:TextBox CssClass="form-control input-sm" ID="TxtValorCompra" runat="server" Style="text-align:right;" MaxLength="13"></asp:TextBox>
                                                                     <label></label>
                                                                     <ajax:FilteredTextBoxExtender ID="FTEValorCompra" runat="server" TargetControlID="TxtValorCompra" FilterType="Custom, Numbers" ValidChars="." BehaviorID="_content_FTEValorCompra" />
                                                                     <asp:RequiredFieldValidator ID="RFVValorCompra" runat="server" ControlToValidate="TxtValorCompra" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Valor de Compra''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -211,7 +213,15 @@
                                                                     <i></i>
                                                                 </div>
                                                             </div>
-                                                            <div class="col-md-3" style="padding-top: 10px;" runat="server" id="DivCompra" visible="False">
+                                                            <div class="col-md-3"  runat="server" id="DivValorCompraMN" visible="False">
+                                                                 <div class="form-group form-md-line-input"> 
+                                                                     <div>
+                                                                         <div class="col-md-3"> MN</div>
+                                                                         <div class="col-md-9"><asp:TextBox ReadOnly="true" CssClass="form-control input-sm" Style="text-align:right;" ID="TxtValorCompraMN" runat="server" MaxLength="13"></asp:TextBox></div>
+                                                                     </div>
+                                                                </div>
+                                                            </div>
+                                                            <div class="col-md-2" style="padding-top: 10px;" runat="server" id="DivCompra" visible="False">
                                                                 <asp:HyperLink ID="HLCompra" Target="_blank" Text="Ver Compra" runat="server" />
                                                             </div>
                                                         </div>
@@ -311,17 +321,23 @@
                                                             </div>
                                                         </div>
 
-
-                                                        <div id="divCuentas" runat="server" visible="false">
+                                                    
+                                                                <div id="divCuentas" runat="server" visible="false">
+                                                                    <asp:Button ID="BtnVincularCuenta" runat="server" CssClass="btn btn-primary btn-sm" Text="+ Cuenta" Visible="false" />
+                                                                            <asp:GridView ID="GvCta" runat="server" DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="  width: 100%;" GridLines="None">
+                                                                                <Columns>
+                                                                                    <asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
+                                                                                    <asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
+                                                                                    <asp:TemplateField ItemStyle-Width="49px">
+                                                                                        <ItemTemplate>
+                                                                                            <asp:LinkButton ID="ImgE" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="ActualizaContaCuenta" CssClass="btn btn-circle btn-xs green" Text="<i class='fa fa-pencil'></i>" />
+                                                                                        </ItemTemplate>
+                                                                                    </asp:TemplateField>
+                                                                                </Columns>
+                                                                            </asp:GridView>
                                                          
-                                                                    <asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="  width: 100%;" GridLines="None">
-                                                                        <Columns>
-                                                                            <asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
-                                                                            <asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
-                                                                        </Columns>
-                                                                    </asp:GridView>
-                                                         
-                                                        </div>
+                                                                </div>
+                                                        
                                                         <div class="row" runat="server" id="trCuentaContable" visible="False">
                                                             <div class="col-md-4 ">
                                                                 <label class="  control-label">Cuenta Contable:</label>
@@ -628,6 +644,44 @@
                                         </div>
                                     </div>
 
+                                       <div id="ModalContaCuenta" class="modal ADS fade" role="dialog">
+                                        <div class="modal-dialog">
+                                            <!-- Modal content-->
+                                            <div class="modal-content">
+                                                <div class="modal-header ">
+                                                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                                                    <h4 class="modal-title">Cuenta</h4>
+                                                </div>
+
+                                                <div class="modal-body">
+                                                    <asp:UpdatePanel ID="UpdatePanel2" UpdateMode="Conditional" runat="server">
+                                                        <ContentTemplate>
+                                                            <div>
+                                                                 <asp:HiddenField ID="HdnCveCuentaAsignacion" runat="server" />
+                                                                 <asp:DropDownList ID="DdlContaCuenta" CssClass="form-control  input-sm input-small select2me" runat="server" AppendDataBoundItems="True" Width="80%" DataTextField="CtaCodigo" DataValueField="CveCuenta">
+                                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                    </asp:DropDownList>
+                                                                    <asp:Button ID="Button2" runat="server" CssClass="btn btn-primary btn-sm" Text="+" Visible="False" />
+
+                                                            </div>
+                                                        </ContentTemplate>
+                                                    </asp:UpdatePanel>
+                                                </div>
+                                                <div class="modal-footer">
+                                                    <asp:UpdatePanel runat="server">
+                                                        <ContentTemplate>
+                                                            <asp:Button ID="BtnCuentaAsociar" Text="Vincular Cuenta" runat="server" ClientIDMode="Static" OnClick="BtnCuentaAsociar_Click" CssClass="btn btn-primary" />
+                                                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+
+                                                        </ContentTemplate>
+                                                    </asp:UpdatePanel>
+                                                </div>
+                                            </div>
+                                        </div>
+                                    </div>
+
+                                     </ContentTemplate>
+                                                        </asp:UpdatePanel>
                                 </ContentTemplate>
                             </ajax:TabPanel>
 
@@ -1011,6 +1065,7 @@
 
                                         </div>
                                     </div>
+                                   
 
                                 </ContentTemplate>
                             </ajax:TabPanel>
@@ -1409,7 +1464,7 @@
                                             </div>
                                         </div>
                                     </div>
-
+                                  
 
                                     <asp:UpdatePanel ID="upGaleria" UpdateMode="Conditional" runat="server">
                                         <ContentTemplate>

AF/AF.aspx.vb

@@ -932,8 +932,8 @@ Partial Class AF_AF
                 TxtCodigo.Text = ObjActivoFijo.Codigo
                 TxtValorCompra.Text = ObjActivoFijo.ValorCompra.ToString.FormatoNumero
                 TxtFechaCompra.Text = ObjActivoFijo.FechaCompra.ToShortDateString
-
-
+                TxtValorCompraMN.Text = ObjActivoFijo.ValorCompraMN.ToString.FormatoNumero
+                If ObjActivoFijo.ValorCompra <> ObjActivoFijo.ValorCompraMN Then DivValorCompraMN.visible = True
 
                 TxtFechaBaja.Text = If(ObjActivoFijo.FechaBaja = New Date(1900, 1, 1), "", ObjActivoFijo.FechaBaja.ToString("dd/MM/yyyy"))
 
@@ -3152,13 +3152,15 @@ Partial Class AF_AF
     Private Sub CargaCuentasConceptos()
         Dim ObjConta As New ClsContabilidad
         If ObjConta.GetCuentasConceptos(10, UsuarioActual.CveEmpresa, CveAF:=CveActivoFijo) Then
+            BtnVincularCuenta.Visible = ObjConta.DtResultados.Rows.Count = 0
             GvCta.DataSource = ObjConta.DtResultados
             divCuentas.Visible = True
         End If
         ObjConta.Dispose()
         GvCta.DataBind()
 
-    End Sub
+    End Sub
+
     Private Sub ActivarRegistroCuentaAF()
         If DdlCtaContable.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(221).ToEntero > 0 Then
             BtnCtaContable.Visible = True
@@ -4878,15 +4880,10 @@ Partial Class AF_AF
 
                 DT_PlgaEfermedad.AcceptChanges()
 
-
-
             End If
             ErrorProceso = False
         End If
 
-
-
-
         If Not ErrorProceso Then
             RegistraScript("$('#DVModalPlagaEnfermedad').modal('hide');")
             Alert("Plaga Enfermedad guardada Correctamente.")
@@ -4895,9 +4892,51 @@ Partial Class AF_AF
 
     End Sub
 
+    Private Sub BtnVincularCuenta_Click(sender As Object, e As EventArgs) Handles BtnVincularCuenta.Click
+        RegistraScript("$('#ModalContaCuenta').modal('show');")
+        DdlContaCuenta.DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1)
+        DdlContaCuenta.DataBind()
+    End Sub
+
 #End Region
 
+    Protected Sub BtnCuentaAsociar_Click(sender As Object, e As EventArgs)
+        Dim ObjConta As New ClsContabilidad
+        ObjConta.IniciaTransacSQL()
+        Dim ErrorString As String = ""
+        If HdnCveCuentaAsignacion.Value.ToEntero <= 0 Then
+            If Not ObjConta.AddCuentasAsignaciones(49, UsuarioActual.CveEmpresa, DdlContaCuenta.SelectedValue.ToEntero, CveActivoFijo:=CveActivoFijo) Then
+                ErrorString = "Error al agregar"
+            End If
+        ElseIf HdnCveCuentaAsignacion.Value.ToEntero > 0 Then
+            If Not ObjConta.UpdateCuentasAsignaciones(HdnCveCuentaAsignacion.Value.ToEntero, 49, DdlContaCuenta.SelectedValue.ToEntero, CveActivoFijo:=CveActivoFijo) Then
+                ErrorString = "Error al actualizar"
+            End If
+        End If
+        If ErrorString.Length > 0 Then
+            ObjConta.RollBack()
+            Alert(ErrorString)
+        Else
+            ObjConta.Commit()
+            CargaCuentasConceptos()
+            UPG.Update()
+            RegistraScript("$('#ModalContaCuenta').modal('hide');")
+            Alert("Agregado correctamente")
+        End If
+        ObjConta.Dispose()
+    End Sub
+    Protected Sub ActualizaContaCuenta(sender As Object, e As EventArgs)
 
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
+        Dim CveConceptoContable As Integer = GvRow.DataKey("CveConceptoContable").ToString.ToEntero
+        HdnCveCuentaAsignacion.Value = GvRow.DataKey("CveCuentaAsignacion").ToString
 
+        DdlContaCuenta.DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1)
+        DdlContaCuenta.DataBind()
+        DdlContaCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToString
+
+        RegistraScript("$('#ModalContaCuenta').modal('show');")
+
+    End Sub
 End Class

AF/CatAF.aspx

@@ -207,26 +207,25 @@
                             <asp:HyperLink ID="Hpl" runat="server" Text='<%# Eval("Codigo") %>' NavigateUrl='<%# Eval("CveActivoFijo", "/AF/AF.aspx?CveActivoFijo={0}")%>'></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Descripción">
-                        <ItemStyle Width="140px" />
+                    <asp:TemplateField HeaderText="Descripción">                      
                         <ItemTemplate>
                             <asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Descripcion")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Tipo Act. Fijo">
-                        <ItemStyle Width="90px" />
+                        <ItemStyle Width="125px" />
                         <ItemTemplate>
                             <asp:Literal ID="LtlTipoActivoFijo" runat="server" Text='<%# Eval("TipoActivoFijo")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Sub Tipo Act. Fijo">
-                        <ItemStyle Width="110px" />
+                        <ItemStyle Width="125px" />
                         <ItemTemplate>
                             <asp:Literal ID="LtlSubTIpoActivoFijo" runat="server" Text='<%# Eval("SubTIpoActivoFijo")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Responsable">
-                        <ItemStyle Width="105px" />
+                        <ItemStyle Width="125px" />
                         <ItemTemplate>
                             <asp:Literal ID="LtlResponsable" runat="server" Text='<%# Eval("Responsable")%>'></asp:Literal>
                         </ItemTemplate>
@@ -244,7 +243,7 @@
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="SubProyecto">
-                        <ItemStyle Width="90px" />
+                        <ItemStyle Width="110px" />
                         <ItemTemplate>
                             <asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Literal>
                         </ItemTemplate>
@@ -260,14 +259,7 @@
                         <ItemTemplate>
                             <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
                         </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Usuario">
-                        <ItemStyle Width="80px" />
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario")%>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
+                    </asp:TemplateField> 
                 </Columns>
             </asp:GridView>
         </ContentTemplate>

App_Code/ClsAF.vb

@@ -44,6 +44,7 @@ Public Class ClsAF
     Public Property Descripcion As String
     Public Property CveCompra As Integer
     Public Property ValorCompra As Double
+    Public Property ValorCompraMN As Double
     Public Property FechaCompra As Date
     Public Property FechaBaja As Date
     Public Property CuentaInicial As Integer
@@ -573,7 +574,7 @@ Public Class ClsAF
         Return Retorno
     End Function
 
-    Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, FechaCompra As Date, Optional Opcion As Integer = 1) As Boolean
+    Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, ValorCompraMN As Double, FechaCompra As Date, Optional Opcion As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_AF_ActivosFijosCompraUpdate")
@@ -582,7 +583,8 @@ Public Class ClsAF
             .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
             .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle
             .Add("@TipoAF", SqlDbType.Int).Value = TipoAF
-            .Add("@ValorCompra", SqlDbType.Float).Value = ValorCompra
+            .Add("@ValorCompra", SqlDbType.Money).Value = ValorCompra
+            .Add("@ValorCompraMN", SqlDbType.Money).Value = ValorCompraMN
             .Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra
             .Add("@Opcion", SqlDbType.Int).Value = Opcion  ' Opcion 1 es la actualiacion normal , opcion 2 Desvicula   los AF en base a la CveComrpaDetalle(en tabla  AF_ActivosFijos pone el campo CveComrpaDetalle en null en base a CveComrpaDetalle )
         End With

App_Code/ClsBancos.vb

@@ -1944,7 +1944,7 @@ Public Class ClsBancos
 
         Return Retorno
     End Function
-    Public Function GetIngresoEgresosDelDia(Fecha As Date, Tipo As String, CveEmpresa As Integer) As Boolean
+    Public Function GetIngresoEgresosDelDia(Fecha As Date, Tipo As String, Opcion As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_IngresoEgresosDiariosGet")
 
@@ -1952,7 +1952,7 @@ Public Class ClsBancos
             .Add("@Fecha", SqlDbType.Date).Value = Fecha
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Tipo", SqlDbType.VarChar).Value = Tipo 'Ing Ingresp Egs Egreso
-            '.Add("@Opcion", SqlDbType.VarChar).Value = Opcion ' 1 Bancos 2 caja chica
+            .Add("@Opcion", SqlDbType.VarChar).Value = Opcion
         End With
 
         Try

App_Code/ClsFinanzas.vb

@@ -363,6 +363,30 @@ Public Class ClsFinanzas
         Return Retorno
     End Function
 
+    Public Function GetEstadoFlujoEfectivoRep(CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer, Fechas As String, Opcion As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Finan_RF_EstadoFlujoEfectivoRepGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Tipo", SqlDbType.Int).Value = Tipo
+            .Add("@Periodo", SqlDbType.Int).Value = Periodo
+            .Add("@Fechas", SqlDbType.VarChar).Value = Fechas
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al consultar el Reporte de Estado de Flujo de Efectivo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
 #Region "RazonesFinancierasCuentas"
     Public Function AddRazonesFinancierasCuentas(CveRazonFinancieraConcepto As Integer, CveCuenta As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean
         Dim Retorno As Boolean = False

App_Code/ClsPaginas.vb

@@ -6702,11 +6702,17 @@ Public Class ClsPaginas
         Dim ImgCBB As String
         Dim RutaFormato As String = String.Format("{0}Formatos\Nomina.rdlc", RutaEmpresa)
         Dim RutaFormatoDefault As String = String.Format("Empresas\Grales\Formatos\Nomina.rdlc")
+        Dim CFDIVersion As String = ""
+        Dim UsoCFDI As String = ""
+
+
+
         'SI ESTA TIMBRADA - CON XML
         If System.IO.File.Exists(PathXML) Then
             Dim XmlDoc As New System.Xml.XmlDocument
             'XmlDoc.Load(Ruta & "XML\\Nomina\NOM A-3845.xml")
             XmlDoc.Load(PathXML)
+
             If ValorNodoXML(XmlDoc.DocumentElement, "version").Contiene("3.3", "4.0") Then
                 FechaEmision = XmlDoc.DocumentElement.Attributes("Fecha").InnerText.ToDate
                 NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("NoCertificado").InnerText
@@ -6733,6 +6739,27 @@ Public Class ClsPaginas
                 Next
             End If
 
+
+
+            Try
+                CFDIVersion = ValorNodoXML(XmlDoc.DocumentElement, "version")
+
+
+                Dim nsManager As New XmlNamespaceManager(XmlDoc.NameTable)
+                nsManager.AddNamespace("cfdi", If(CFDIVersion = "4.0", "http://www.sat.gob.mx/cfd/4", "http://www.sat.gob.mx/cfd/3"))
+
+                Dim receptorNode As XmlNode = XmlDoc.SelectSingleNode("/cfdi:comprobante/cfdi:emisor/cfdi:receptor", nsManager)
+
+                If receptorNode IsNot Nothing Then
+                    UsoCFDI = ValorNodoXML(receptorNode, "usocfdi")
+                    UsoCFDI = GlobalDTSATUsosCFDI(-1, "-1").FiltroPrimeroValor("UsoCFDIDescripcion", $" UsoCFDI = '{UsoCFDI}' ")
+                End If
+
+
+            Catch ex As Exception
+
+            End Try
+
             'SIN TIMBRAR - SIN XML
         Else
             FolioFiscal = "Sin Timbrar"
@@ -6860,6 +6887,9 @@ Public Class ClsPaginas
             RptParametro.Add(New ReportParameter("CadenaOriginal", CadenaOriginalCFD))
             RptParametro.Add(New ReportParameter("QR", ImgCBB.ToString))
 
+            RptParametro.Add(New ReportParameter("CFDIVersion", CFDIVersion))
+            RptParametro.Add(New ReportParameter("UsoCFDI", UsoCFDI))
+
             Dim LSRds As New List(Of ReportDataSource)
 
             Dim rds2 = New ReportDataSource()

App_Code/Modelos.vb

@@ -3908,7 +3908,8 @@ Namespace Modelos
                         Dim CvePS = RowGarantia("CvePS").ToString().ToEntero()
                         Dim CveTamaño As Integer = RowGarantia("CveTamaño").ToString().ToEntero()
                         Dim CveUM As Integer = RowGarantia("CveUnidadMedida").ToString().ToEntero()
-                        Dim PU As Decimal = RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble()
+                        Dim PU As Decimal = 0 ' el valor de garántía debe de ser cero, tema contable
+                        ' Dim PU As Decimal = RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble()
                         Dim Serie As String = RowGarantia("Comprobante").ToString
 
                         If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=IIf(RowGarantia("MismoCvePS").ToString = "1", RowGarantia("CveVentaDetalle"), -1).ToString.ToEntero) Then

App_Code/Timbrado.vb

@@ -10,6 +10,7 @@ Imports System.Xml
 Imports System.Xml.Serialization
 Imports Extensiones
 Imports Newtonsoft.Json.Linq
+Imports Profact.TimbraCFDI33.Complementos
 Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte20
 
 
@@ -222,6 +223,11 @@ Public Class Timbrado
             ValidaFactura = False
         End If
 
+        'TEMPORAL. PARCHE PARA CANCELAR DOCUMENTOS EMITIDOS CON EL PAC 5
+        If CvePACCancelacion = 5 Then
+            CvePACCancelacion = 4
+        End If
+
         If Not (Empresa.Funcionalidad(529) = "1") Then
             If ValidaFactura Then
                 Dim Vigencia = VerificarVigenciaSAT(FolioFiscal, RFCEmisor, RFCReceptor, Total.ToString(), True)
@@ -551,8 +557,8 @@ Public Class Timbrado
                 resp = conector.ObtieneCFDI(RFCEmisor, FolioFiscal)
                 MsgCancelacion.AppendFormat("-3.3")
 
-                'VERIFICA SI SE CANCELO O FUE CANCELADO PREVIAMENTE
-                If resultadoCancelacion.Exitoso OrElse resultadoCancelacion.NumeroError = "202" Then
+                'VERIFICA SI SE CANCELO O FUE CANCELADO PREVIAMENTE (CODIGO DE ERROR "330279")
+                If resultadoCancelacion.Exitoso OrElse resultadoCancelacion.NumeroError.Contiene("202", "330279") Then
                     MsgCancelacion.AppendFormat("-3.4")
                     CancelacionMensaje = resultadoCancelacion.Descripcion
                     Dim xmlDoc As New System.Xml.XmlDocument()
@@ -1254,13 +1260,13 @@ Public Class Timbrado
             Case 4
 
                 Dim Ret As String = TimbrarFacturaGoCFDIv40(Ventas, UsuarioActual, CvePACEspecial)
-                    If Ret <> "" Then MensajeErrorCFDI = Ret
+                If Ret <> "" Then MensajeErrorCFDI = Ret
                 Retorno = If(Ret = "", True, False)
 
             Case 5
 
                 Dim Ret As String = TimbrarFacturaPADEv40(Ventas, UsuarioActual, CvePACEspecial)
-                    If Ret <> "" Then MensajeErrorCFDI = Ret
+                If Ret <> "" Then MensajeErrorCFDI = Ret
                 Retorno = If(Ret = "", True, False)
 
 
@@ -1323,7 +1329,7 @@ Public Class Timbrado
             AmbienteProductivo = False
             Clave = "12345678a"
             EmisorRFC = "EKU9003173C9"
-            UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE"
+            EmisorNombre = "ESCUELA KEMPER URGATE"
             ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key"
             ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer"
             UsuarioActual.Empresa.CodigoRegimenFiscal = "601"
@@ -1400,11 +1406,9 @@ Public Class Timbrado
         If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E", "N") Then comprobante.CondicionesDePago = ObjCFDITimbre.Comprobante.CondicionesdePago
 
         comprobante.SubTotal = ObjCFDITimbre.Comprobante.SubTotal.RoundSQL(NumDecimalesImporte)
-        If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E", "N") Then
-            If ObjCFDITimbre.Comprobante.Descuentos > 0 Then
-                comprobante.DescuentoSpecified = True
-                comprobante.Descuento = ObjCFDITimbre.Comprobante.Descuentos.RoundSQL(NumDecimalesImporte)
-            End If
+        If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E", "N") AndAlso ObjCFDITimbre.Comprobante.Descuentos > 0 Then
+            comprobante.DescuentoSpecified = True
+            comprobante.Descuento = ObjCFDITimbre.Comprobante.Descuentos.RoundSQL(NumDecimalesImporte)
         End If
         comprobante.Moneda = ObjCFDITimbre.Comprobante.Moneda
         comprobante.TipoCambio = ObjCFDITimbre.Comprobante.TipoCambio.ToDecimal
@@ -1463,21 +1467,19 @@ Public Class Timbrado
             Dim k As Integer = 0
             For Each concep As CFDIConceptos In ObjCFDITimbre.Conceptos
                 comprobante.Conceptos(i) = New Profact.TimbraCFDI40.ComprobanteConcepto()
-                comprobante.Conceptos(i).Cantidad = concep.Cantidad
+                comprobante.Conceptos(i).Cantidad = concep.Cantidad.RoundSQL(6)
 
                 If concep.Unidad <> "" Then comprobante.Conceptos(i).Unidad = concep.Unidad
                 comprobante.Conceptos(i).ClaveUnidad = concep.ClaveUnidad
                 comprobante.Conceptos(i).Descripcion = concep.Descripcion
-                comprobante.Conceptos(i).ValorUnitario = concep.ValorUnitario.RoundSQL(6)
-                comprobante.Conceptos(i).Importe = concep.Importe.RoundSQL(NumDecimalesImporte)
+                comprobante.Conceptos(i).ValorUnitario = Decimal.Parse(concep.ValorUnitario.ToString("0.00####"))  ' formateo forzoso, ej,2543.1
+                comprobante.Conceptos(i).Importe = Decimal.Parse(concep.Importe.RoundSQL(NumDecimalesImporte).ToString("0.00")) ' formateo forzoso, ej,2543.1
                 comprobante.Conceptos(i).ClaveProdServ = concep.ClaveProdServ
                 comprobante.Conceptos(i).ObjetoImp = concep.ObjetoImpuesto
 
-                If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then
-                    If concep.Descuento > 0 Then
-                        comprobante.Conceptos(i).Descuento = concep.Descuento
-                        comprobante.Conceptos(i).DescuentoSpecified = True
-                    End If
+                If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E", "N") AndAlso concep.Descuento > 0 Then
+                    comprobante.Conceptos(i).Descuento = concep.Descuento
+                    comprobante.Conceptos(i).DescuentoSpecified = True
                 End If
 
                 If concep.Noidentificacion <> "" Then comprobante.Conceptos(i).NoIdentificacion = concep.Noidentificacion
@@ -1962,7 +1964,7 @@ Public Class Timbrado
                 Dim xmlComp As String = Profact.TimbraCFDI.XMLUtilerias.SerializaObjeto(ComPag, GetType(Profact.TimbraCFDI40.Complementos.Pagos20.Pagos), nsComp)
                 Dim docComp As New XmlDocument()
                 docComp.LoadXml(xmlComp)
-                'comprobante.PagosSpecified = True
+                comprobante.Pagos20Specified = True
                 LXmlComplementos.Add(docComp.DocumentElement)
                 TieneComplemento = True
             End If
@@ -1981,7 +1983,8 @@ Public Class Timbrado
             ComCartaPorte.TranspInternac = CType([Enum].Parse(GetType(ProfactCartaPorte.CartaPorteTranspInternac), Carta.TranspInternac), ProfactCartaPorte.CartaPorteTranspInternac)
             ComCartaPorte.EntradaSalidaMercSpecified = False
             ComCartaPorte.ViaEntradaSalidaSpecified = False
-            ComCartaPorte.TotalDistRecSpecified = False
+            ComCartaPorte.TotalDistRecSpecified = True
+            ComCartaPorte.TotalDistRec = Carta.TotalDistanciaRecorrida
 
             'UBICACIONES
             If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
@@ -2003,10 +2006,11 @@ Public Class Timbrado
                     'ComCartaPorte.Ubicaciones(i).NavegacionTrafico = ubica.NavegacionTrafico
                     ComCartaPorte.Ubicaciones(i).FechaHoraSalidaLlegada = ubica.FechaHoraSalidaLlegada.ToDate
                     ComCartaPorte.Ubicaciones(i).DistanciaRecorrida = ubica.DistanciaRecorrida
+                    ComCartaPorte.Ubicaciones(i).DistanciaRecorridaSpecified = ubica.DistanciaRecorrida > 0
 
                     ComCartaPorte.Ubicaciones(i).Domicilio = New ProfactCartaPorte.CartaPorteUbicacionDomicilio With {.Calle = ubica.Domicilio.Calle,
                                                                                                                         .Colonia = ubica.Domicilio.Colonia,
-                                                                                                                        .Localidad = ubica.Domicilio.Localidad,
+                                                                                                                        .Localidad = If(ubica.Domicilio.Localidad <> "", ubica.Domicilio.Localidad, Nothing),
                                                                                                                         .Municipio = ubica.Domicilio.Municipio,
                                                                                                                         .Estado = ubica.Domicilio.Estado,
                                                                                                                         .CodigoPostal = ubica.Domicilio.CP,
@@ -2027,7 +2031,7 @@ Public Class Timbrado
                 ComCartaPorte.Mercancias.PesoNetoTotal = Carta.Mercancias.PesoNetoTotal.ToDecimal
                 ComCartaPorte.Mercancias.NumTotalMercancias = Carta.Mercancias.NumTotalMercancias
                 ComCartaPorte.Mercancias.CargoPorTasacion = Carta.Mercancias.CargoporTasacion.ToDecimal
-                ' ComCartaPorte.Mercancias.UnidadPeso = Carta.Mercancias.UnidadPeso
+                ComCartaPorte.Mercancias.UnidadPeso = ProfactCartaPorte.c_ClaveUnidadPeso.KGM
 
                 If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
                     Dim i As Integer = 0
@@ -2042,9 +2046,12 @@ Public Class Timbrado
                         ComCartaPorte.Mercancias.Mercancia(i).Descripcion = concep.Descripción
                         ComCartaPorte.Mercancias.Mercancia(i).Cantidad = concep.Cantidad
                         ComCartaPorte.Mercancias.Mercancia(i).Unidad = concep.Unidad
+                        ComCartaPorte.Mercancias.Mercancia(i).ClaveUnidad = concep.ClaveUnidad
                         If concep.Dimensiones <> "" Then ComCartaPorte.Mercancias.Mercancia(i).Dimensiones = concep.Dimensiones
                         If concep.ClaveMaterialPeligroso <> "" Then
+                            ComCartaPorte.Mercancias.Mercancia(i).MaterialPeligroso = ProfactCartaPorte.CartaPorteMercanciasMercanciaMaterialPeligroso.Sí
                             ComCartaPorte.Mercancias.Mercancia(i).MaterialPeligrosoSpecified = True
+                            ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligroso = concep.ClaveMaterialPeligroso
                             ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = True
                             'si lleva material pelgroso, debe llevar embalaje
                             ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = True
@@ -2130,18 +2137,23 @@ Public Class Timbrado
                         ComCartaPorte.FiguraTransporte(i).RFCFigura = concep.RFCFigura
                         ComCartaPorte.FiguraTransporte(i).NumLicencia = concep.NumLicencia
                         ComCartaPorte.FiguraTransporte(i).NombreFigura = concep.NombreFigura
+                        ComCartaPorte.FiguraTransporte(i).TipoFigura = concep.TipoFigura
                         If concep.NumRegidTribFigura <> "" Then ComCartaPorte.FiguraTransporte(i).NumRegIdTribFigura = concep.NumRegidTribFigura
                         'OComCartaPorte.FiguraTransporte.Operadores(i)(0) = concep.ResidenciaFiscalOperador 'falta
 
-                        ComCartaPorte.FiguraTransporte(i).Domicilio = New ProfactCartaPorte.CartaPorteTiposFiguraDomicilio()
-                        ComCartaPorte.FiguraTransporte(i).Domicilio.Calle = concep.Domicilio.Calle
-                        ComCartaPorte.FiguraTransporte(i).Domicilio.CodigoPostal = concep.Domicilio.CP
-                        ComCartaPorte.FiguraTransporte(i).Domicilio.Colonia = concep.Domicilio.Colonia
-                        ComCartaPorte.FiguraTransporte(i).Domicilio.Estado = concep.Domicilio.Estado
-                        If concep.Domicilio.Localidad <> "" Then ComCartaPorte.FiguraTransporte(i).Domicilio.Localidad = concep.Domicilio.Localidad
-                        ComCartaPorte.FiguraTransporte(i).Domicilio.Municipio = concep.Domicilio.Municipio
-                        If concep.Domicilio.NumeroExterior <> "" Then ComCartaPorte.FiguraTransporte(i).Domicilio.NumeroExterior = concep.Domicilio.NumeroExterior
-                        ComCartaPorte.FiguraTransporte(i).Domicilio.Pais = ProfactCartaPorte.c_Pais.MEX
+                        If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador
+                            ComCartaPorte.FiguraTransporte(i).Domicilio = New ProfactCartaPorte.CartaPorteTiposFiguraDomicilio()
+                            ComCartaPorte.FiguraTransporte(i).Domicilio.Calle = concep.Domicilio.Calle
+                            If concep.Domicilio.NumeroInterior <> "" Then ComCartaPorte.FiguraTransporte(i).Domicilio.NumeroInterior = concep.Domicilio.NumeroInterior
+                            ComCartaPorte.FiguraTransporte(i).Domicilio.CodigoPostal = concep.Domicilio.CP
+                            If concep.Domicilio.Colonia <> "" Then ComCartaPorte.FiguraTransporte(i).Domicilio.Colonia = concep.Domicilio.Colonia
+                            ComCartaPorte.FiguraTransporte(i).Domicilio.Estado = concep.Domicilio.Estado
+                            If concep.Domicilio.Localidad <> "" Then ComCartaPorte.FiguraTransporte(i).Domicilio.Localidad = concep.Domicilio.Localidad
+                            ComCartaPorte.FiguraTransporte(i).Domicilio.Municipio = concep.Domicilio.Municipio
+                            If concep.Domicilio.NumeroExterior <> "" Then ComCartaPorte.FiguraTransporte(i).Domicilio.NumeroExterior = concep.Domicilio.NumeroExterior
+                            ComCartaPorte.FiguraTransporte(i).Domicilio.Pais = ProfactCartaPorte.c_Pais.MEX
+
+                        End If
 
                         i += 1
                     Next
@@ -2150,11 +2162,11 @@ Public Class Timbrado
             End If
 
             Dim nsComp As New System.Xml.Serialization.XmlSerializerNamespaces()
-            nsComp.Add("CartaPorte", "http://www.sat.gob.mx/CartaPorte")
+            nsComp.Add("cartaporte20", "http://www.sat.gob.mx/CartaPorte20")
             Dim xmlComp As String = Profact.TimbraCFDI.XMLUtilerias.SerializaObjeto(ComCartaPorte, GetType(ProfactCartaPorte.CartaPorte), nsComp)
             Dim docComp As New XmlDocument()
             docComp.LoadXml(xmlComp)
-            'comprobante.CartaPorteSpecified = True
+            comprobante.CartaPorte20Specified = True
             LXmlComplementos.Add(docComp.DocumentElement)
             TieneComplemento = True
 
@@ -2318,6 +2330,7 @@ Public Class Timbrado
             Dim xmlNom As String = Profact.TimbraCFDI.XMLUtilerias.SerializaObjeto(Nom, GetType(Profact.TimbraCFDI33.Complementos.Nomina12.Nomina), nsNom)
             Dim docNom As New XmlDocument()
             docNom.LoadXml(xmlNom)
+            comprobante.Nomina12Specified = True
             LXmlComplementos.Add(docNom.DocumentElement)
             TieneComplemento = True
 
@@ -2327,8 +2340,6 @@ Public Class Timbrado
 
 #End Region
 
-
-
         If TieneComplemento Then
             comprobante.Complemento = New Profact.TimbraCFDI40.ComprobanteComplemento
             comprobante.Complemento.Any = LXmlComplementos.ToArray()
@@ -2340,12 +2351,7 @@ Public Class Timbrado
         sw.Start()
 
 #Region "Genera XML"
-        '            Try
-        '                cfdi.GenerarXMLBase64(llaveBase64, Clave)
-        '                cfdi.EscribirXML(cfdi.Xml, RutaArchivo, NombreArchivoXML)
-        '            Catch ex As Exception
 
-        '            End Try
         '//Timbramos el CFDI por medio del conector y guardamos resultado
         Dim resultadoTimbre As Profact.TimbraCFDI.ResultadoTimbre = Nothing
 
@@ -2356,6 +2362,15 @@ Public Class Timbrado
         swmili = sw.ElapsedMilliseconds
         sw.Start()
 
+        Dim xmlPrevio As String
+        Using sww As New System.IO.StringWriter()
+            Dim xs As XmlSerializer
+            xs = New System.Xml.Serialization.XmlSerializer(GetType(Profact.TimbraCFDI40.Comprobante))
+            xs.Serialize(sww, comprobante)
+            xmlPrevio = sww.ToString()
+        End Using
+
+
 #Region "Timbra"
         resultadoTimbre = cfdi.TimbraCFDI(comprobante)
 #End Region
@@ -2418,13 +2433,22 @@ Public Class Timbrado
                 End If
 
                 If ObjCFDITimbre.Comprobante.TipoComprobante = "T" Then
-                    Dim ObjInv As New ClsInventarios()
-                    If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then
+                    Dim objGrales As New ClsGenerales
+                    If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC, "4.0") Then
                         Retorno = ""
                     Else
                         Retorno = "Error"
                     End If
-                    ObjInv.Dispose()
+                    objGrales.Dispose()
+
+                    Using ObjInv As New ClsInventarios()
+                        If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then
+                            Retorno = ""
+                        Else
+                            Retorno = "Error"
+                        End If
+                    End Using
+
                 End If
 
                 'Pendiente. Ruta guardar archivos
@@ -2437,8 +2461,6 @@ Public Class Timbrado
             Else
                 Retorno = "No se pudo timbrar ante el SAT. UUID no generado."
             End If
-
-
         Else
 
             If Not String.IsNullOrEmpty(resultadoTimbre.Detalle) Then
@@ -2447,13 +2469,18 @@ Public Class Timbrado
 
                     If Resultados.Count > 0 Then
                         If resultadoTimbre.Descripcion.Contains("RFC del receptor no existe") Then
-                            Retorno = $"El RFC { Resultados(0)("Value").ToString() } no existe en las bases de datos publicadas por el SAT, corrobore este dato con su cliente"
-                            MensajeErrorCFDI = $"El RFC { Resultados(0)("Value").ToString() } no existe en las bases de datos publicadas por el SAT, corrobore este dato con su cliente"
+                            Retorno = $"El RFC { Resultados(0)("Value") } no existe en las bases de datos publicadas por el SAT, corrobore este dato con su cliente"
+                            MensajeErrorCFDI = $"El RFC { Resultados(0)("Value")} no existe en las bases de datos publicadas por el SAT, corrobore este dato con su cliente"
                         Else
                             Dim sbMsg As New StringBuilder
+                            Dim sbMsgLog As New StringBuilder
+                            sbMsgLog.Append(xmlPrevio)
+                            sbMsgLog.Append("------------")
                             For Each msg In Resultados
                                 sbMsg.AppendFormat("{0}.<br/>", msg("Value"))
+                                sbMsgLog.AppendFormat("{0}-{1}<br/>", msg("Key"), msg("Value"))
                             Next
+                            sbMsgLog.ToString.GuardaLog()
                             Retorno = sbMsg.ToString()
                             MensajeErrorCFDI = Retorno
                         End If

Bancos/Creditos.aspx.vb

@@ -1,6 +1,7 @@
 Option Strict On
 Option Explicit On
 
+Imports System.Activities.Expressions
 Imports System.Data
 Imports System.Windows.Forms.VisualStyles.VisualStyleElement
 Imports Extensiones
@@ -361,7 +362,7 @@ Partial Class Bancos_Creditos
     End Sub
     Private Sub CargaCreditoComplejo()
         Dim ObjCreditos As New ClsBancos
-        Dim ObjPrepoliza As New ClsContabilidad
+        'Dim ObjPrepoliza As New ClsContabilidad
 
         If ObjCreditos.GetCreditos(CveCredito, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
             If ObjCreditos.DtResultados.Rows.Count > 0 Then
@@ -424,9 +425,9 @@ Partial Class Bancos_Creditos
                     HLSaldoPrePoliza.NavigateUrl = $"/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={ObjCreditos.CvePrePoliza}"
                     LbSaldo.Text = $"Saldo <b>Acreedor</b> "
 
-                    If ObjPrepoliza.GetPrePolizasDetalle(ObjCreditos.CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjPrepoliza.DtResultados.Rows.Count > 0 Then
-                        LbSaldoAcreedor.Text = ObjPrepoliza.DtResultados.FiltroPrimeroValor("Importe", "CveConceptoContable = 42").FormatoNumero
-                        LbSaldoDocxPagar.Text = ObjPrepoliza.DtResultados.FiltroPrimeroValor("Importe", "CveConceptoContable = 50").FormatoNumero
+                    If ObjCreditos.GetBancosIEMovimientos(dr("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjCreditos.DtResultados.Rows.Count > 0 Then
+                        LbSaldoAcreedor.Text = ObjCreditos.DtResultados.FiltroPrimeroValor("Importe", "CveConceptoContable = 42").FormatoNumero
+                        LbSaldoDocxPagar.Text = ObjCreditos.DtResultados.FiltroPrimeroValor("Importe", "CveConceptoContable = 50").FormatoNumero
                     End If
 
                 Else
@@ -471,12 +472,12 @@ Partial Class Bancos_Creditos
                 End If
 
                 'CARGA ANTICIPOS
-                If dr("CveIE").ToString.ToEntero > 0 AndAlso ObjPrepoliza.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=dr("CveIE").ToString.ToEntero) Then
-                    If ObjPrepoliza.DtResultados.Rows.Count > 0 Then
-                        TxtVehiculoAnticipo.Text = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 53").Rows(0)("Importe").ToString.FormatoNumero
-                        TxtComisionAnticipo.Text = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 54").Rows(0)("Importe").ToString.FormatoNumero
-                        TxtSeguroAnticipo.Text = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 55").Rows(0)("Importe").ToString.FormatoNumero
-                        Dim dtt As DataTable = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 58")
+                If dr("CveIE").ToString.ToEntero > 0 AndAlso ObjCreditos.GetBancosIEMovimientos(dr("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
+                    If ObjCreditos.DtResultados.Rows.Count > 0 Then
+                        TxtVehiculoAnticipo.Text = ObjCreditos.DtResultados.FiltraParametros("CveConceptoContable = 53").Rows(0)("Importe").ToString.FormatoNumero
+                        TxtComisionAnticipo.Text = ObjCreditos.DtResultados.FiltraParametros("CveConceptoContable = 54").Rows(0)("Importe").ToString.FormatoNumero
+                        TxtSeguroAnticipo.Text = ObjCreditos.DtResultados.FiltraParametros("CveConceptoContable = 55").Rows(0)("Importe").ToString.FormatoNumero
+                        Dim dtt As DataTable = ObjCreditos.DtResultados.FiltraParametros("CveConceptoContable = 58")
                         If dtt.Rows.Count > 0 Then
                             TxtFondoGarantia.Text = dtt.Rows(0)("Importe").ToString.FormatoNumero
                         End If
@@ -516,7 +517,6 @@ Partial Class Bancos_Creditos
         End If
 
         ObjCreditos.Dispose()
-        ObjPrepoliza.Dispose()
     End Sub
 #End Region
 
@@ -1577,21 +1577,21 @@ Partial Class Bancos_Creditos
 
 
         Dim importeMovimiento = 0.0D
-            Dim ConceptoContable = 0
-            Dim TipoMovimiento = False
-            Dim IdCtaContable = 0
-            Dim Concepto = ""
-            Dim Referencia = $"Crédito: {TxtReferencia.Text}"
-            Dim FechaMovimiento = Now.ToDate
-            Dim MsgError As String = ""
+        Dim ConceptoContable = 0
+        Dim TipoMovimiento = False
+        Dim IdCtaContable = 0
+        Dim Concepto = ""
+        Dim Referencia = $"Crédito: {TxtReferencia.Text}"
+        Dim FechaMovimiento = Now.ToDate
+        Dim MsgError As String = ""
 
-            CvePrePoliza = ObjContabilidad.AddPrePolizas("Creditos/RegistrodeRegistro", 69, TxtCSTotalCredito.Text.ToDouble, TxtCSTotalCredito.Text.ToDouble, DdlCSTipoMoneda.SelectedValue.ToEntero, FechaMovimiento, $"Crédito: {TxtReferencia.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-            Dim ImporteDocXPagar = TxtTotalCredito.Text.ToDecimal
-            Dim CveProveedor = -1
+        CvePrePoliza = ObjContabilidad.AddPrePolizas("Creditos/RegistrodeRegistro", 69, TxtCSTotalCredito.Text.ToDouble, TxtCSTotalCredito.Text.ToDouble, DdlCSTipoMoneda.SelectedValue.ToEntero, FechaMovimiento, $"Crédito: {TxtReferencia.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim ImporteDocXPagar = TxtTotalCredito.Text.ToDecimal
+        Dim CveProveedor = -1
         Dim CveCreditoPrePoliza = -1
 
         If CvePrePoliza > 0 Then
-            importeMovimiento = TxtVehiculoValor.Text.ToDecimal - TxtVehiculoAnticipo.Text.todecimal  'importe financiado
+            importeMovimiento = TxtVehiculoValor.Text.ToDecimal - TxtVehiculoAnticipo.Text.ToDecimal  'importe financiado
             Concepto = $"Crédito: {TxtReferencia.Text}"
             Dim Pago As New CompraPago
             Pago.Fecha = Now

Bancos/FluctuacionCambiaria.aspx.vb

@@ -810,7 +810,7 @@ Partial Class Bancos_FluctuacionCambiaria
             IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
 
             'movimiento de complementaria
-            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), 202, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero) Then
+            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), 307, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero) Then
                 ErrorRegistrar = True
                 Exit For
             End If
@@ -831,7 +831,7 @@ Partial Class Bancos_FluctuacionCambiaria
         If Not ErrorRegistrar Then
             Conta.Commit()
             BtnGeneraAcreedores.Visible = False
-            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
+            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
         Else
             Conta.RollBack()
             Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
@@ -888,7 +888,7 @@ Partial Class Bancos_FluctuacionCambiaria
             IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
 
             'movimiento de complementaria
-            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), 202, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), 347, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
                 ErrorRegistrar = True
                 Exit For
             End If
@@ -909,7 +909,7 @@ Partial Class Bancos_FluctuacionCambiaria
         If Not ErrorRegistrar Then
             Conta.Commit()
             BtnGeneraAcreedoresAnt.Visible = False
-            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
+            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
         Else
             Conta.RollBack()
             Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
@@ -1136,7 +1136,7 @@ Partial Class Bancos_FluctuacionCambiaria
                 End If
 
                 'movimiento de complementaria
-                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovto, Math.Abs(Total), ConceptoFluctuacion, 202, ConceptoFluctuacion & gvr.DataKey("RazonSocial"), Now, IdCtaComplementaria, 0, TipoCambio:=TC, ImporteMX:=Math.Abs(Total), ImporteME:=Math.Abs(Total), CveCuenta:=CveCuentaComplementaria) Then
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovto, Math.Abs(Total), ConceptoFluctuacion, 345, ConceptoFluctuacion & gvr.DataKey("RazonSocial"), Now, IdCtaComplementaria, 0, TipoCambio:=TC, ImporteMX:=Math.Abs(Total), ImporteME:=Math.Abs(Total), CveCuenta:=CveCuentaComplementaria) Then
                     ErrorRegistrar = True
                     Exit For
                 End If

Bancos/FlujoDiario.aspx

@@ -41,6 +41,14 @@
                                     <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
                                 </div>
                             </div>
+                            <div class="col-md-1 truncate" style="max-width: 100px">Opción:</div>
+                            <div class="col-md-1" style="min-width: 120px">
+                                 <asp:DropDownlist   ID="DdlOpcion" runat="server" CssClass="form-control input-sm" >
+                                        <asp:ListItem Text="Todos" Value="0"></asp:ListItem>
+                                        <asp:ListItem Text="Conciliados" Value="1" Selected="True"></asp:ListItem>
+                                    </asp:DropDownlist>
+                                     
+                            </div>
                         </div>
                     </div>
                 </div>

Bancos/FlujoDiario.aspx.vb

@@ -64,28 +64,26 @@ Partial Class Bancos_FlujoDiario
             params.Add(New ReportParameter("LogoPath", ""))
         End If
 
-           
-        
-
+        Dim OpcionSaldo As Integer = DdlOpcion.SelectedValue.ToEntero
         'SE LLENA TmpDTSaldosIniciales
         Dim Ban As New ClsBancos
 
-        If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text.ToDate.AddDays(-1).ToShortDateString, 0, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text.ToDate.AddDays(-1).ToShortDateString, OpcionSaldo, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             TmpDTSaldosIniciales = Ban.DtResultados
         End If
 
         'Se Llena TmpDTIngresosDelDia
-        If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", UsuarioActual.CveEmpresa) Then
-            TmpDTIngresosDelDia = Ban.DtResultados'.FiltraParametros("CveTipoTransaccion <> 8")
+        If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", OpcionSaldo, UsuarioActual.CveEmpresa) Then
+            TmpDTIngresosDelDia = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 8")
         End If
 
         'Se Llena TmpDTGastosDelDia
-        If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", UsuarioActual.CveEmpresa) Then
-            TmpDTGastosDelDia = Ban.DtResultados'.FiltraParametros("CveTipoTransaccion <> 2")
+        If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", OpcionSaldo, UsuarioActual.CveEmpresa) Then
+            TmpDTGastosDelDia = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 2")
         End If
 
         'Se Llena TmpDTSaldosActuales
-        If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text, 0, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text, OpcionSaldo, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             TmpDTSaldosActuales = Ban.DtResultados
         End If
 

Bancos/PopIECompras.aspx.vb

@@ -1472,7 +1472,7 @@ Partial Class Bancos_PopIECompras
                         tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
                     End If
 
-                    If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then
+                    If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago.RoundSQL, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then
                         MsgError = "No se pudo insertar la póliza"
                     End If
 

Bancos/RepEgresosSinComprobante.aspx

@@ -145,6 +145,22 @@
         <ContentTemplate>
 
             <div class="row" id="DVSaldar" runat="server" visible="false">
+                <div class="col-md-1 truncate">
+                                Fecha:
+                           
+                            </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="TxtFechaSaldar" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgCalendarioSaldar" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaSaldar" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaSaldar" PopupButtonID="ImgCalendarioSaldar" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtFechaSaldar" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="TxtFechaSaldar" Display="None" ErrorMessage="El campo <b>''Fecha''</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>
+                            </div>
                 <div class="col-lg-1">
                     Concepto:
                 </div>
@@ -185,7 +201,7 @@
                 <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
 
-                        <asp:GridView ID="GvESC" runat="server" DataKeyNames="CveIE, Saldo, TipoCambio, CveMoneda, CveConceptoContable, CveProveedor, CvePersonal,CveSubProyecto,Folio, CveTipoProveedor" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros de Egresos sin Comprobar de Proveedores" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
+                        <asp:GridView ID="GvESC" runat="server" DataKeyNames="CveIE, Saldo, TipoCambio, FechaDocumento, CveMoneda, CveConceptoContable, CveProveedor, CvePersonal,CveSubProyecto,Folio, CveTipoProveedor" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros de Egresos sin Comprobar de Proveedores" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
                             <Columns>
                                 <asp:TemplateField ItemStyle-Width="5%">
                                     <ItemTemplate>

Bancos/RepEgresosSinComprobante.aspx.vb

@@ -94,21 +94,9 @@ Partial Class Bancos_RepEgresosSinComprobante
                 e.Row.FCHyperLink("Hpl").NavigateUrl = ""
                 e.Row.FCHyperLink("Hpl").Font.Bold = True
                 e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
-            End If
-
-
-            If e.Row.RowIndex = 1 Then
-                e.Row.Cells(1).Width = Unit.Pixel(520)
-                e.Row.Cells(2).Width = Unit.Pixel(50)
-                e.Row.Cells(3).Width = Unit.Pixel(100)
-                e.Row.Cells(4).Width = Unit.Pixel(150)
-                e.Row.Cells(6).Width = Unit.Pixel(100)
-            End If
-
-            'Sustituido 3-5 lineas mas abajo 
-            'If e.Row.DBCampo("FechaDocumento") = "" Then e.Row.BackColor = Drawing.Color.LightGray
-
-            'CUANDO ES SUBTITULO
+            End If
+
+            'CUANDO ES SUBTITULO
             If e.Row.DBCampo("CveIE") = "" Then
 
                 If e.Row.DBCampo("CveMoneda") = "" Then
@@ -118,7 +106,6 @@ Partial Class Bancos_RepEgresosSinComprobante
                     e.Row.FCLiteral("LtMoneda").Visible = True
                     e.Row.FCHyperLink("Hpl").Visible = False
                 End If
-
             End If
 
             'LINK A IE
@@ -126,9 +113,8 @@ Partial Class Bancos_RepEgresosSinComprobante
                 e.Row.FCHyperLink("HLFolio").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
             End If
 
-            If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(1).ForeColor = Drawing.Color.Red
-            ' e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&FechaI={1}&FechaF={2}&CveUsuarioProgramo={3}&CveMoneda={4}&Serie={5}", e.Row.DBCampo("CveProveedor"), If(txtFechaI.Text <> "", txtFechaI.Text, "-1"), If(txtFechaF.Text <> "", txtFechaF.Text, "-1"), DdlUsuarioProgramo.SelectedValue, e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("Serie"))
-
+            If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(1).ForeColor = Drawing.Color.Red
+
         End If
     End Sub
 
@@ -181,7 +167,8 @@ Partial Class Bancos_RepEgresosSinComprobante
             End If
         Next
 
-        TxtConcepto.Text = "Saldo de Egresos por comprobar"
+        TxtConcepto.Text = "Saldado de Egresos por comprobar"
+        TxtFechaSaldar.Text = Now.ToShortDateString
         DVSaldar.Visible = True
         UpSaldar.Update()
 
@@ -200,7 +187,6 @@ Partial Class Bancos_RepEgresosSinComprobante
     Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
 
 
-
         Dim Contador As Integer = 0
         For Each gr As GridViewRow In GvESC.Rows
             If gr.FCCheckBox("Chk").Checked Then
@@ -213,7 +199,6 @@ Partial Class Bancos_RepEgresosSinComprobante
             Exit Sub
         End If
 
-
         Dim ObjConta As New ClsContabilidad
         Dim ObjProveedor As New ClsCompProveedores(ObjConta.IniciaTransacSQL())
 
@@ -223,9 +208,9 @@ Partial Class Bancos_RepEgresosSinComprobante
         Dim MsgError As String = ""
         Try
 
-
             If Contador > 0 Then
-                CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, 0, 0, 1, Now,
+                Dim tFecha As Date = TxtFechaSaldar.Text.ToDate
+                CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, 0, 0, 1, tFecha,
                                                           TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                 Dim ImporteSaldoGral As Decimal = 0
                 Dim TipoMovtoConcepto As Boolean = True
@@ -243,9 +228,22 @@ Partial Class Bancos_RepEgresosSinComprobante
                         End If
                         If gr.DataKey("CveMoneda").ToEntero > 1 Then
 
-                            Dim ImporteMN As Decimal = (ImporteSaldo * gr.DataKey("TipoCambio").ToDecimal - ImporteSaldo).RoundSQL
+                            Dim TCValuacion As Decimal = gr.DataKey("TipoCambio").ToDecimal
+                            If UsuarioActual.Empresa.Funcionalidad(703) = "1" Then
+                                Dim tFechaUltimaFluctuacion As Date
+                                Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
+                                If UltimaFluctuacion IsNot Nothing Then
+                                    If UltimaFluctuacion.FechaFluctuacion < tFecha Then
+                                        tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
+                                        TCValuacion = UltimaFluctuacion.TCFluctuacion
+                                    End If
+                                    If gr.DataKey("FechaDocumento").ToDate < tFechaUltimaFluctuacion Then TCValuacion = TCValuacion
+                                End If
+                            End If
+
+                            Dim ImporteMN As Decimal = (ImporteSaldo * TCValuacion - ImporteSaldo).RoundSQL
                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, ImporteMN, ImporteMN, ConPrepAplicacion.CveConceptoComplementario, gr.DataKey("Folio"), TxtConcepto.Text, -1,
-                                                              CveIE:=gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
+                                                              CveIE:=gr.DataKey("CveIE").ToEntero, TipoCambio:=TCValuacion, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
                                                               ImporteME:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, Contabilizable:=EsContabilizable) Then
                                 MsgError = "Ocurrio un error al saldar el movimiento"
                                 Exit For

Compras/CatTipoGasto.aspx

@@ -23,7 +23,7 @@
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveTipoGasto,TipoGasto,Estatus,FechaIng" EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveTipoGasto,TipoGasto,Estatus,FechaIng" EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover input-sm" Style="margin-top: -10px; width: 100%" GridLines="None">
                 <Columns>
                     <asp:BoundField HeaderText="Tipo Gasto" DataField="TipoGasto" />
                     <asp:BoundField HeaderText="Estatus" DataField="Estatus" ItemStyle-Width="15%" />

Compras/Compras.aspx.vb

@@ -5280,7 +5280,9 @@ Partial Class Compras_Compras
 
                                         'AGREGA AF COMPRA - Cuando es Compra se guarda CveCompraDetalle en AF
                                         If Row("TipoAF").ToString.ToEntero = 2 Then
-                                            If Not ObjAF.UpdateActivosFijosCompra(Row("CveActivoFijo").ToString.ToEntero, ObjCompras.CveCompraDetalle, Row("TipoAF").ToString.ToEntero, Row("Total").ToString.ToDouble, TxtFecha.Text.Trim.ToDate) Then
+                                            Dim Valor As Decimal = Row("Total").ToString.ToDecimal
+                                            Dim ValorMN As Decimal = (Valor * TxtTC.Text.ToDecimal).RoundSQL
+                                            If Not ObjAF.UpdateActivosFijosCompra(Row("CveActivoFijo").ToString.ToEntero, ObjCompras.CveCompraDetalle, Row("TipoAF").ToString.ToEntero, Valor, ValorMN, TxtFecha.Text.Trim.ToDate) Then
                                                 ErrorDetalles = True
                                                 Exit For
                                             End If
@@ -6987,7 +6989,7 @@ Partial Class Compras_Compras
                                                                 Dim ConPreP As ConceptosTipoSaldo = ClsPaginas.ObtenerCveConceptoPrePoliza(15, DdlMoneda.SelectedValue.ToEntero, False, CveTipoConcepto)
                                                                 'Dim CveCon As Integer = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, False)
 
-                                                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConPreP.CveConcepto, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza) Then
+                                                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConPreP.CveConcepto, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
                                                                     IdCtaContable = CtaProveedorComplementaria
                                                                     'CveCon = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, True)
 
@@ -8717,7 +8719,9 @@ Partial Class Compras_Compras
 
                         For Each drowAF As DataRow In TmpDT.Rows
                             If drowAF("DesvicularAF").ToString <> "" AndAlso Boolean.Parse(drowAF("DesvicularAF").ToString) Then
-                                If Not ObjAF.UpdateActivosFijosCompra(-1, drowAF("CveCompraDetalle").ToString.ToEntero, -1, 0, Now, Opcion:=2) Then
+                                Dim Valor As Decimal = drowAF("Total").ToString.ToDecimal
+                                Dim ValorMN As Decimal = (Valor * TxtTC.Text.ToDecimal).RoundSQL
+                                If Not ObjAF.UpdateActivosFijosCompra(-1, drowAF("CveCompraDetalle").ToString.ToEntero, -1, Valor, ValorMN, TxtFecha.Text.ToDate, Opcion:=2) Then
                                     Retorno = False
                                 End If
                             End If
@@ -9087,7 +9091,9 @@ Partial Class Compras_Compras
                                 If Retorno Then
                                     'AGREGA AF COMPRA - Cuando es Compra se guarda CveCompraDetalle en AF
                                     If Row("TipoAF").ToString.ToEntero = 2 Then
-                                        If Not ObjAF.UpdateActivosFijosCompra(Row("CveActivoFijo").ToString.ToEntero, Row("CveCompraDetalle").ToString.ToEntero, Row("TipoAF").ToString.ToEntero, Row("Total").ToString.ToDouble, TxtFecha.Text.Trim.ToDate) Then
+                                        Dim Valor As Decimal = Row("Total").ToString.ToDecimal
+                                        Dim ValorMN As Decimal = (Valor * TxtTC.Text.ToDecimal).RoundSQL
+                                        If Not ObjAF.UpdateActivosFijosCompra(Row("CveActivoFijo").ToString.ToEntero, Row("CveCompraDetalle").ToString.ToEntero, Row("TipoAF").ToString.ToEntero, Valor, ValorMN, TxtFecha.Text.Trim.ToDate) Then
                                             Retorno = False
                                             Exit For
                                         End If

Compras/PopUpVerFactura.aspx.vb

@@ -5782,17 +5782,16 @@ Partial Class PopUpVerFactura
             Dim EstadoCancelacion = drv("EstadoCancelacion").ToString()
             Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime
 
-            Dim MotivoCancelacion As String = "" ' drv("MotivoCancelacion").ToString()
-            Dim FolioSustitucion As String = "" ' drv("FolioFiscalPadre").ToString()
+            Dim MotivoCancelacion As String = ""
+            Dim FolioSustitucion As String = ""
 
-            Dim DirectorioArchivo As String = String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacion.mrt", ModExtensiones.DirectorioBaseEmpresas)
+            Dim DirectorioArchivo As String = "Empresas/Grales/Formatos/AcuseCancelacion.mrt"
 
             Dim RFCEmisor = UsuarioActual.Empresa.RFC
 
             Dim Titulo As String = "Acuse de cancelación de CFDI"
             Dim EstadoCFDI As String = "Cancelado"
 
-
             'SI NO TIENE EL SELLO BUSCA OBTNERLO DE NUEVO
             If String.IsNullOrEmpty(SelloCancelacion) Then
                 Dim ObjCancelacion As New Timbrado
@@ -5807,7 +5806,7 @@ Partial Class PopUpVerFactura
 
             If CveEstatusFactura = 20 Then
 
-                DirectorioArchivo = String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacionSolicitud.mrt", ModExtensiones.DirectorioBaseEmpresas)
+                DirectorioArchivo = "Empresas/Grales/Formatos/AcuseCancelacionSolicitud.mrt"
 
                 Titulo = "Acuse de solicitud de cancelación de CFDI"
                 EstadoCFDI = "Vigente"
@@ -5851,8 +5850,6 @@ Partial Class PopUpVerFactura
                 End If
             End If
 
-            Dim Archivo As New System.IO.FileInfo(DirectorioArchivo)
-
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("Titulo", Titulo))
             params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
@@ -5864,16 +5861,13 @@ Partial Class PopUpVerFactura
             params.Add(New ReportParameter("MsgError", ""))
             params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString("dd/MM/yyyy HH:mm:ss")))
 
-            'ImprimirPDF(Archivo.FullName, DtDetalle, params, "AcuseCancelacion" & CveVenta)
-
-            Dim DtAcuse As DataTable = Nothing
+            Dim DtAcuse = New DataTable("DtAcuse")
+            DtAcuse.Columns.Add(New DataColumn("FolioFiscal", GetType(String)))
+            DtAcuse.Columns.Add(New DataColumn("Estatus", GetType(String)))
+            DtAcuse.Columns.Add(New DataColumn("MotivoCancelacion", GetType(String)))
+            DtAcuse.Columns.Add(New DataColumn("FolioSustitucion", GetType(String)))
 
             If CveEstatusFactura = 20 Then
-                DtAcuse = New DataTable("DtAcuse")
-                DtAcuse.Columns.Add(New DataColumn("FolioFiscal", GetType(String)))
-                DtAcuse.Columns.Add(New DataColumn("Estatus", GetType(String)))
-                DtAcuse.Columns.Add(New DataColumn("MotivoCancelacion", GetType(String)))
-                DtAcuse.Columns.Add(New DataColumn("FolioSustitucion", GetType(String)))
 
                 Dim RowCFDI = DtAcuse.NewRow()
 
@@ -5886,7 +5880,7 @@ Partial Class PopUpVerFactura
             End If
 
 
-            ImprimirPDFStimulsoft(Archivo.FullName, DtAcuse, params, "AcuseCancelacion" & CveVenta)
+            ImprimirPDFStimulsoft(DirectorioArchivo, DtAcuse, params, "AcuseCancelacion" & CveVenta)
 
         End If
 

Compras/Proveedores.aspx.vb

@@ -8,6 +8,7 @@ Imports System.Xml
 Imports Microsoft.Reporting.WebForms
 Imports System.IO
 Imports System.Globalization
+Imports System.Data.SqlClient
 'Imports VBIDE
 
 Partial Class Compras_Proveedores
@@ -1571,11 +1572,15 @@ Partial Class Compras_Proveedores
         Dim ErrorContactos As Boolean = False
         Dim ErrorSucursales As Boolean = False
         Dim ErrorCuentasContables As Boolean = False
+        Dim ErrorCuentasContablesSIG As Boolean = False
 
 
         Dim codigo As String = "-1"
         Dim MsgCuentaContable As String = ""
         Dim IdCuentaContable As Integer = -1
+        Dim IdCuentaAltaCompaq As Integer = -1
+        Dim CodigoCuentaAltaCompaq As String = ""
+        Dim NombreCuentaCuentaAltaCompaq As String = ""
 
         Dim IdProveedor As Integer = -1
 
@@ -1634,6 +1639,7 @@ Partial Class Compras_Proveedores
 
         'End If
 
+        Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
 
         If CveProveedor = -1 Then
 
@@ -1644,7 +1650,7 @@ Partial Class Compras_Proveedores
                 ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
                 ObjContaAC.IniciaTransacSQL()
 
-                Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
+
                 If DdlCveTipoProveedor.SelectedValue = "2" Then 'cuando es acreedor
                     ClaveFuncionalidad = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
                 End If
@@ -1654,6 +1660,7 @@ Partial Class Compras_Proveedores
                     IdCuentaContable = UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero
                 Else
                     IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(ClaveFuncionalidad, TxtRazonSocial.Text.Trim, "D", 2)
+                    IdCuentaAltaCompaq = IdCuentaContable
                 End If
 
 
@@ -1667,46 +1674,12 @@ Partial Class Compras_Proveedores
                     If dt.Rows.Count = 1 Then
                         Dim row As DataRow = dt.Rows(0)
                         CtaCodigo = CStr(row("CtaCodigo"))
+                        CodigoCuentaAltaCompaq = CStr(row("Codigo"))
+                        NombreCuentaCuentaAltaCompaq = TxtRazonSocial.Text.Trim
                         DdlCtaContProveedores.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : DdlCtaContProveedores.SelectedValueExist(IdCuentaContable.ToString)
                     End If
 
-                    'If UsuarioActual.Empresa.Funcionalidad(522).ToString = "1" Then
-                    '    If UsuarioActual.Empresa.UsaContabilidad Then
 
-                    '        Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa)
-                    '        If Not errorContPaq Then
-                    '            If ObjContPaqi.GetProveedor(TxtRFC.Text.Trim) Then
-                    '                If ObjContPaqi.DtResultados.Rows.Count > 0 Then
-                    '                    IdProveedor = ObjContPaqi.DtResultados.Rows(0)("Id").ToString.ToEntero
-                    '                    errorContPaq = False
-                    '                Else
-                    '                    IdProveedor = ObjContPaqi.AddProveedor(IdCuentaContable, TxtRFC.Text.Trim, TxtNombreComercial.Text.Trim, "", CodigoPersona)
-                    '                    If IdProveedor > 0 Then
-                    '                        errorContPaq = False
-                    '                    Else
-                    '                        errorContPaq = True
-                    '                    End If
-                    '                End If
-                    '            Else
-                    '                errorContPaq = True
-                    '            End If
-
-                    '        End If
-
-
-                    '        If Not errorContPaq Then
-                    '            ObjContPaqi.Commit()
-                    '            ObjContPaqi.Dispose()
-                    '        Else
-                    '            ObjContPaqi.RollBack()
-                    '            ObjContPaqi.Dispose()
-                    '            Exit Sub
-                    '        End If
-                    '    End If
-                    'Else
-
-                    '    IdProveedor = ObjContaAC.AddProveedor(IdCuentaContable, TxtRFC.Text.Trim, TxtRazonSocial.Text.Trim, "")
-                    'End If
 
                     IdProveedor = ObjContaAC.AddProveedor(IdCuentaContable, TxtRFC.Text.Trim, TxtRazonSocial.Text.Trim, "")
 
@@ -1802,7 +1775,23 @@ Partial Class Compras_Proveedores
                     Next
                 End If
 
-                If ErrorBancos Or ErrorContactos Or ErrorSucursales Or ErrorCuentasContables Then ''se deben validar las 3 juntas????????
+                If IdCuentaAltaCompaq > 0 Then
+
+                    Dim CveConceptoContable As Integer
+                    If DdlCveTipoProveedor.SelectedValue.ToEntero.Contiene(1, 3) Then
+                        CveConceptoContable = 5
+                    Else
+                        CveConceptoContable = 305
+                    End If
+
+                    If Not AltaCuentaContabilidadSIG(CodigoCuentaAltaCompaq, NombreCuentaCuentaAltaCompaq, IdCuentaAltaCompaq, CveConceptoContable, ObjProveedores.IniciaTransacSQL, IdCompaqPadre:=ClaveFuncionalidad, CveProveedorCuenta:=NuevoCveProveedor) Then
+                        ErrorCuentasContablesSIG = True
+                    End If
+
+                End If
+
+
+                If ErrorBancos Or ErrorContactos Or ErrorSucursales Or ErrorCuentasContables Or ErrorCuentasContablesSIG Then ''se deben validar las 3 juntas????????
                     ObjProveedores.RollBack()
                     If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
                     If ErrorBancos Then
@@ -1816,7 +1805,10 @@ Partial Class Compras_Proveedores
                         End If
                         If ErrorCuentasContables Then
                             Alert("Ocurrió un error al asignar las cuentas contables", TipoMensaje.MsgError)
+                        ElseIf ErrorCuentasContablesSIG Then
+                            Alert("Ocurrió un error al asignar las cuentas contables SIG", TipoMensaje.MsgError)
                         End If
+
                     End If
                 Else
                     ObjProveedores.Commit()
@@ -2073,6 +2065,78 @@ Partial Class Compras_Proveedores
         CargaEventoBitacora()
 
     End Sub
+
+
+
+    Private Function AltaCuentaContabilidadSIG(CodigoCuentaAltaCompaq As String, NombreCuentaCuentaAltaCompaq As String, IdCuentaAltaCompaq As Integer, CveConceptoContable As Integer, Optional Transaccion As SqlTransaction = Nothing, Optional IdCompaqPadre As Integer = -1, Optional CveProveedorCuenta As Integer = -1) As Boolean
+
+        If Not UsuarioActual.CveEmpresa.Contiene(7, 11, 145, 122) Then
+            Return True
+        End If
+
+        If Not IdCompaqPadre > 0 Then
+            Alert("Erroa al agregar la cuenta SIG, IdCompaq sin definir.", TipoMensaje.MsgError)
+            Return False
+        End If
+
+        Dim Respuesta As Boolean = False
+        Dim DisposeClases As Boolean = False
+        Dim Tipo As String = "B"
+
+        If CveConceptoContable.Contiene(5, 305) Then
+            Tipo = "D"
+        ElseIf CveConceptoContable.Contiene(10) Then
+            Tipo = "A"
+        End If
+
+        Dim ObjContabilidad As ClsContabilidad
+
+        If Transaccion Is Nothing Then
+            ObjContabilidad = New ClsContabilidad
+            DisposeClases = True
+        Else
+            ObjContabilidad = New ClsContabilidad(Transaccion)
+            DisposeClases = False
+        End If
+
+        If UsuarioActual.CveEmpresa.Contiene(7, 11, 145, 122) Then
+            If ObjContabilidad.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+
+                Dim CvePadre As Integer = ObjContabilidad.DtResultados.FiltroPrimeroValor("CveCuenta", $"IdCompaq={IdCompaqPadre}").ToEntero
+
+                If CvePadre > 0 Then
+
+                    Dim CvecuentaNueva As Integer = ObjContabilidad.AddCuenta(CvePadre, CodigoCuentaAltaCompaq, NombreCuentaCuentaAltaCompaq, Tipo, 2, 1, CveProveedor:=CveProveedor, IdCompaq:=IdCuentaAltaCompaq)
+
+                    If CvecuentaNueva > 0 Then
+                        If ObjContabilidad.AddCuentasAsignaciones(CveConceptoContable, UsuarioActual.CveEmpresa, CvecuentaNueva, CveProveedor:=CveProveedorCuenta, PorcentajeIVA:=0) Then
+                            Respuesta = True
+                        End If
+                    End If
+
+                End If
+            End If
+        Else
+            Respuesta = True
+        End If
+
+        If DisposeClases Then
+            ObjContabilidad.Dispose()
+
+            If Not Respuesta Then
+                Alert("Se presento un error al agregar y asignar la cuenta (Conta SIG).", TipoMensaje.MsgAdvertencia)
+            End If
+
+        End If
+
+
+
+
+        Return Respuesta
+    End Function
+
+
+
 #End Region
 
 #Region "U S U A R I O S"
@@ -4113,7 +4177,7 @@ Partial Class Compras_Proveedores
             Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
 
             '' 17/03/2017 FUNCIONALIDADES 249,250,251
-            '' Proveedores
+            ''  
             Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
             If DdlCveTipoProveedor.SelectedValue = "2" Then ClaveFuncionalidad = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
             If DdlCtaContProveedores.SelectedValue.ToEntero <= 0 And ClaveFuncionalidad > 0 Then
@@ -4282,15 +4346,19 @@ Partial Class Compras_Proveedores
     End Sub
 
     Private Sub AgregarCuentaContable(btn As Button, ddl As DropDownList)
+
         If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad = True Then
             Dim IdCuentaContable As Integer = -1
             Dim CtaCodigo As String = ""
             Dim TieneError = False
             Dim IdCtaContableProveedores As Integer = -1, IdCtaContableAcreedores As Integer = -1, IdCtaContableDocsXPagar As Integer = -1, IdCtaContableAnticipos As Integer = -1, IdCtaContableDeudor As Integer = -1
             Dim CtaCodigoProveedores As String = "-1", CtaCodigoAcreedores As String = "-1", CtaCodigoDocsXPagar As String = "-1", CtaCodigoAnticipos As String = "-1", CtaCodigoDeudor As String = "-1"
+            Dim CveConceptoContable As Integer = -1
+            Dim Codigo As String = ""
 
             Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
             Dim ObjProveedores As New ClsCompProveedores()
+
             ObjContaAC.IniciaTransacSQL()
             ObjProveedores.IniciaTransacSQL()
 
@@ -4302,15 +4370,26 @@ Partial Class Compras_Proveedores
             Select Case btn.CommandArgument.ToString
                 Case "Proveedores"
                     CuentaPadre = If(DdlCveTipoProveedor.SelectedValue = "2", UsuarioActual.Empresa.Funcionalidad(202).ToEntero, UsuarioActual.Empresa.Funcionalidad(201).ToEntero)
+
+                    If DdlCveTipoProveedor.SelectedValue.ToEntero.Contiene(1, 3) Then
+                        CveConceptoContable = 5
+                    Else
+                        CveConceptoContable = 305
+                    End If
+
                 Case "Acreedores"
                     CuentaPadre = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
+                    CveConceptoContable = 305
                 Case "DocsXPagar"
                     CuentaPadre = UsuarioActual.Empresa.Funcionalidad(203).ToEntero
+                    CveConceptoContable = 50
                 Case "Anticipos"
                     CuentaPadre = UsuarioActual.Empresa.Funcionalidad(204).ToEntero
                     TipoCuenta = "A"
+                    CveConceptoContable = 10
                 Case "Deudores"
                     CuentaPadre = UsuarioActual.Empresa.Funcionalidad(205).ToEntero
+                    CveConceptoContable = 10
 
             End Select
 
@@ -4327,6 +4406,7 @@ Partial Class Compras_Proveedores
 
                     Dim row As DataRow = dt.Rows(0)
                     CtaCodigo = CStr(row("CtaCodigo"))
+                    Codigo = CStr(row("Codigo"))
 
                     Select Case btn.CommandArgument.ToString
                         Case "Proveedores"
@@ -4359,6 +4439,12 @@ Partial Class Compras_Proveedores
                 TieneError = True
             End If
 
+
+            If Not AltaCuentaContabilidadSIG(Codigo, NombreCuenta, IdCuentaContable, CveConceptoContable, ObjProveedores.IniciaTransacSQL, IdCompaqPadre:=CuentaPadre, CveProveedorCuenta:=CveProveedor) Then
+                TieneError = True
+            End If
+
+
             If Not TieneError Then
                 Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
                 ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString)

Compras/eFacturas.aspx

@@ -203,7 +203,45 @@
                 </asp:UpdatePanel>
                 <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
-                        <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"
+
+                         <div class="row" runat="server" id="DVRegistroFacturas">
+                            <div class="col-md-12">
+
+                                 <asp:UpdatePanel ID="UPPClasificacion" runat="server" UpdateMode="Conditional" RenderMode="Inline">
+                                            <ContentTemplate>
+
+                                                <div class="row">
+                                                    <div class="col-md-6">
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:HiddenField runat="server" ID="HdnTipoPS" Value="-1" />
+                                                            <asp:DropDownList ID="DdlClasificacion" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%">
+                                                                <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
+                                                            </asp:DropDownList>
+                                                            <label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación:</label>
+                                                        </div>
+                                                    </div>
+
+                                                    <div class="col-md-6">
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClass="form-control input-sm DdlPS" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
+
+                                                            <label for="<%= DdlPS.ClientID.ToString()%>">
+                                                                Productos / Servicio:<label>
+                                                        </div>
+                                                    </div>
+
+                                                </div>
+
+                                                <br />
+                                            </ContentTemplate>
+                                        </asp:UpdatePanel>
+
+                            </div>
+                        </div>
+
+                        <div class="row">
+                            <div class="col-md-12">
+                                <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>
 
@@ -316,6 +354,12 @@
                             </Columns>
                             <HeaderStyle CssClass="Titulos" />
                         </asp:GridView>
+                            </div>
+                        </div>
+
+
+                        
+
                     </ContentTemplate>
                 </asp:UpdatePanel>
 

Contabilidad/CatCuentas.aspx.vb

@@ -28,7 +28,7 @@ Partial Class Contabilidad_CatCuentas
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
-            If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+            If Not UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso EsProduccion Then
                 Response.Redirect("/Contabilidad2/CatCuentas.aspx")
                 Exit Sub
             End If

Contabilidad/RegPrePolizaS.aspx.vb

@@ -570,9 +570,8 @@ Partial Class ContabilidadC_RegPrePolizaS
             If CveConceptoContable.Contiene(1, 2, 12, 91, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
             If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 341, 342, 343, 344, 304, 272, 259) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
             If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
-            If CveConceptoContable.Contiene(30, 204, 66, 92, 202) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
+            If CveConceptoContable.Contiene(30, 204, 66, 92, 202, 10, 21, 48, 56, 338, 339, 340, 345, 346, 347) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
 
-            'e.Row.FCHyperLink("HlReferencia").NavigateUrl = CveConceptoContable
             If e.Row.DBCampo("Modificado") Then
                 e.Row.FCCheckBox("chkModificado").Checked = True
             End If

Contabilidad2/CatCuentas.aspx.vb

@@ -261,7 +261,7 @@ Partial Class Contabilidad2_CatCuentas
             Tnombre.Text = dr("Nombre").ToString()
             DTcuenta.SelectedValue = dr("Tipo").ToString()
             DcuentaMayor.SelectedValue = dr("CtaMayor").ToString
-            DdlMoneda.SelectedValue = dr("CveMoneda").ToString
+            DdlMoneda.SelectedValue = If(dr("CveMoneda").ToString = "", "1", dr("CveMoneda").ToString)
             Using objconta As New ClsContabilidad
                 objconta.GetConta_CuentasDataContabilidad(IDSelected, UsuarioActual.CveEmpresa)
                 If objconta.DtResultados.Rows.Count > 0 Then
@@ -362,36 +362,36 @@ Partial Class Contabilidad2_CatCuentas
                                  CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto,
                                  CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen, Codigo:=TxtCuenta.Text.Replace("-", ""), CvePadre:=DdlCuentaContable.SelectedValue.ToEntero) Then
 
-                If UsuarioActual.Empresa.TipoContabilidad = 2 Then
-                    Dim ObjContaEmpresa As New ClsContPAQi(UsuarioActual.Empresa)
-                    If Not ObjContaEmpresa.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
-                                                        DdlMoneda.SelectedValue.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
-                        ObjContaEmpresa.Dispose()
-                        ObjConta.Dispose()
-                        Exit Sub
-                    End If
-                End If
+                'If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                '    Dim ObjContaEmpresa As New ClsContPAQi(UsuarioActual.Empresa)
+                '    If Not ObjContaEmpresa.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
+                '                                        DdlMoneda.SelectedValue.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
+                '        ObjContaEmpresa.Dispose()
+                '        ObjConta.Dispose()
+                '        Exit Sub
+                '    End If
+                'End If
 
-                Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")
+                'Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")
 
-                If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                'If UsuarioActual.Empresa.TipoContabilidad = 2 Then
 
-                    Using ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
+                '    Using ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
 
-                        If ObjConta2.GetCuentas(-1, "-1", -1) Then
-                            Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero
-                            Dim IdAgrupador As Integer
+                '        If ObjConta2.GetCuentas(-1, "-1", -1) Then
+                '            Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero
+                '            Dim IdAgrupador As Integer
 
-                            If ObjConta2.GetAgrupadoresSAT() Then
-                                IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
-                            End If
-                            If Id > 0 Then
-                                If ObjConta2.UpdateCuenta(Id, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, IdAgrupador, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
-                                End If
-                            End If
-                        End If
-                    End Using
-                End If
+                '            If ObjConta2.GetAgrupadoresSAT() Then
+                '                IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
+                '            End If
+                '            If Id > 0 Then
+                '                If ObjConta2.UpdateCuenta(Id, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, IdAgrupador, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
+                '                End If
+                '            End If
+                '        End If
+                '    End Using
+                'End If
 
                 Dim customerRow As Data.DataRow
                 customerRow = DtDatos.Select(String.Format("CveCuenta = {0}", IDSelected))(0)
@@ -408,7 +408,7 @@ Partial Class Contabilidad2_CatCuentas
                 LimpiarCampos()
                 'RegistraScript("$get('BtnCambiaAgrupadorSAT').click();")
                 updatos.Update()
-
+                GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa) = Nothing
                 Alert("La cuenta se guardo correctamente")
 
             End If
@@ -596,7 +596,7 @@ Partial Class Contabilidad2_CatCuentas
 
         If Not TieneError Then
             ObjConta.Commit()
-
+            GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa) = Nothing
             CargaDatos()
             LimpiarCampos()
             updatos.Update()
@@ -669,6 +669,7 @@ Partial Class Contabilidad2_CatCuentas
                 ObjConta2.Dispose()
 
             End If
+            GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa) = Nothing
 
         Else
             Alert("La Cuenta no pudo ser eliminada", TipoMensaje.MsgError)

Contabilidad2/RepAnexoCatalogo.aspx.vb

@@ -182,10 +182,9 @@ Partial Class AC2_RepAnexoCatalogo
         Dim strGlobal As String = ""
 
         If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
-            Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
-            If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
-            'DTCuentas = ObjTipoCuenta.DtResultados '.FiltraParametros("Afectable = 1")
-            DdlCuentas.DataSource = ObjTipoCuenta.DtResultados
+
+            DdlCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo NOT IN ('_ACTIVO', '_PASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
+            ' DdlCuentas.DataSource = ObjTipoCuenta.DtResultados
         End If
         ObjTipoCuenta.Dispose()
 

Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx

@@ -93,12 +93,7 @@
                                 <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="GrpConsulta"></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>
-                            <label class="col-md-1" style="display: none;">Tipo de Cuentas:</label>
-                            <div class="col-md-2" style="display: none;">
-                                <asp:DropDownList ID="DdlTipoCuentas" CssClass="form-control input-sm" runat="server" DataTextField="Nombre" DataValueField="CveCuenta" TabIndex="4" AutoPostBack="true" ClientIDMode="Static">
-                                </asp:DropDownList>
-                            </div>                            
+                            </div>                                                        
                         </div>
                     </div>
                 </div>
@@ -137,8 +132,8 @@
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
                             </asp:DropDownList>
-                        </div>                        
-                    </div>
+                        </div>
+                        
                 </div>
             </div>
         </ContentTemplate>

Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb

@@ -44,22 +44,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
             ViewState("FechaFin") = value
         End Set
     End Property
-    'Private Property CveSubProyecto As String
-    '    Get
-    '        CveSubProyecto = ViewState("CveSubProyecto").ToString
-    '    End Get
-    '    Set(value As String)
-    '        ViewState("CveSubProyecto") = value
-    '    End Set
-    'End Property
-    Private Property IdCuenta As Integer
-        Get
-            IdCuenta = ViewState("IdCuenta").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("IdCuenta") = value
-        End Set
-    End Property
+
     Private Property TotalPadre As Boolean
         Get
             TotalPadre = CBool(ViewState("TotalPadre"))
@@ -113,17 +98,11 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
             If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
                 If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
 
-                    IdCuenta = Request("CveCuenta").ToEntero
-                    'HdnCveCuenta.Value = IdCuenta.ToString
-
                     FechaFin = Request("FF").ToDate
                     txtFechaF.Text = FechaFin.ToShortDateString
 
-                    DdlCuentas.SelectedValueExist(IdCuenta)
-                    If DdlCuentas.SelectedValue.ToEntero <> -1 Then
-                        'RegistraScript("Enable();")
-                        DdlTipoCuentas.SelectedValueExist(-2)
-                    End If
+                    DdlCuentas.SelectedValueExist(Request("CveCuenta").ToEntero)
+
 
                     If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
                         FechaInicio = Request("FI").ToDate
@@ -176,12 +155,11 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
     End Sub
 
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
-        If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso DdlCuentas.SelectedValue.ToEntero = -1 Then
+        If DdlCuentas.SelectedValue.ToEntero = -1 Then
             Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
         Else
             FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", Date.Now, txtFechaI.Text.ToDate)
             FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Date.Now, txtFechaF.Text.ToDate)
-            IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero = -2, DdlCuentas.SelectedValue.ToEntero, DdlTipoCuentas.SelectedValue.ToEntero)
 
             CargaDatos()
         End If
@@ -203,25 +181,14 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
         Return Str.ToString
     End Function
     Private Sub CargaTipoCuentas()
-        ' Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim ObjTipoCuenta As New ClsContabilidad '(UsuarioActual.Empresa)
-        Dim strGlobal As String = ""
 
-        If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa, 1, -1) Then
-            Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
-            If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
-            DTCuentas = ObjTipoCuenta.DtResultados
-            DdlTipoCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo IN ('_ACTIVO', '_BPASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
-        End If
-        DdlTipoCuentas.DataBind()
-        'If strGlobal.Length > 0 Then DdlTipoCuentas.Items.Insert(0, New ListItem("Todas", strGlobal))
-        DdlTipoCuentas.Items.Insert(0, New ListItem("Todas las Cuentas", "1"))
-        DdlTipoCuentas.Items.Add(New ListItem("Algun específico", "-2"))
-        DdlTipoCuentas.SelectedIndex = 1
+        Dim ObjTipoCuenta As New ClsContabilidad
         DdlCuentas.Enabled = True
 
         If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
-            DdlCuentas.DataSource = ObjTipoCuenta.DtResultados
+            DTCuentas = ObjTipoCuenta.DtResultados
+            DdlCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo NOT IN ('_ACTIVO', '_PASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
+
         End If
         ObjTipoCuenta.Dispose()
         DdlCuentas.DataBind()
@@ -234,7 +201,6 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
         CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
     End Sub
     Private Sub CargaDatos()
-        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
 
         Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero
         Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
@@ -243,14 +209,13 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
             Alert("No ha seleccionado cuenta, Favor de especificar una", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
-        IdCuenta = DdlCuentas.SelectedValue.ToEntero
+
         Cuenta = DdlCuentas.SelectedItem.ToString
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, -1, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, DdlOpcionCuentas.SelectedValue.ToEntero) Then
+        If ObjConta.GetMovimientosAuxiliaresCatalogo(DdlCuentas.SelectedValue.ToEntero, FechaInicio, FechaFin, -1, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, DdlOpcionCuentas.SelectedValue.ToEntero) Then
             DtDatos = ObjConta.DtResultados
             DtTotales = DtDatos.Clone
 
-            'InsertaTotales()
             CargaGrid()
         Else
             DtDatos = Nothing
@@ -414,17 +379,12 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
 #End Region
 
     Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click
-        If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso DdlCuentas.SelectedValue.ToEntero = -1 Then
+        If DdlCuentas.SelectedValue.ToEntero = -1 Then
             Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
         Else
             FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", Date.Now, txtFechaI.Text.ToDate)
             FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Date.Now, txtFechaF.Text.ToDate)
-            IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero = -2, DdlCuentas.SelectedValue.ToEntero, DdlTipoCuentas.SelectedValue.ToEntero)
 
-            'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-
-            'If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin) Then
-            'DtDatos = ObjConta.DtResultados
             DtDatos = DtDatos
             ImprimirReporte()
         End If
@@ -488,21 +448,9 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
         ImprimirPDF("Empresas/Grales/Formatos/RepMovimientosAuxiliaresCatalogo.rdlc", DtDatos, params, "MovimientosAuxiliares", Formato)
 
     End Sub
-    Protected Sub DdlTipoCuentas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoCuentas.SelectedIndexChanged
-        If DdlTipoCuentas.SelectedValue.ToEntero = -2 Then
-            DdlCuentas.Enabled = True
-        Else
-            DdlCuentas.Enabled = False
-            DdlCuentas.SelectedValueExist(-1)
-        End If
-    End Sub
-
-
     Public Overrides Sub VerifyRenderingInServerForm(control As Control)
 
     End Sub
 
 
-
-
 End Class

Empresas/119/Formatos/Nomina.rdlc

@@ -2858,7 +2858,15 @@ Lugar de expedición: 83220 Hermosillo</Value>
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Versión del comprobante: 4.0</Value>
+                                  <Value>Versión del comprobante: </Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                                <TextRun>
+                                  <Value>=Parameters!CFDIVersion.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
                                     <FontSize>9pt</FontSize>
@@ -2929,7 +2937,15 @@ Lugar de expedición: 83220 Hermosillo</Value>
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Usos del CFDI "CN01" Nómina</Value>
+                                  <Value>Usos del CFDI: </Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                                <TextRun>
+                                  <Value>=Parameters!UsoCFDI.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
                                     <FontSize>9pt</FontSize>
@@ -4704,7 +4720,6 @@ Lugar de expedición: 83220 Hermosillo</Value>
                           </Style>
                         </Textbox>
                         <ColSpan>2</ColSpan>
-                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
@@ -5629,6 +5644,18 @@ Lugar de expedición: 83220 Hermosillo</Value>
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="UsoCFDI">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="logo">

Empresas/153/Formatos/Nomina.rdlc

@@ -2852,7 +2852,15 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Versión del comprobante: 3.3</Value>
+                                  <Value>Versión del comprobante: </Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                                <TextRun>
+                                  <Value>=Parameters!CFDIVersion.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
                                     <FontSize>9pt</FontSize>
@@ -2923,7 +2931,15 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Usos del CFDI "P01"(Por definir)</Value>
+                                  <Value>Usos del CFDI: </Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                                <TextRun>
+                                  <Value>=Parameters!UsoCFDI.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
                                     <FontSize>9pt</FontSize>
@@ -5874,6 +5890,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="UsoCFDI">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="logo">

Empresas/154/Formatos/Nomina.rdlc

@@ -2795,6 +2795,7 @@
                           </Style>
                         </Textbox>
                         <ColSpan>2</ColSpan>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
@@ -2852,7 +2853,15 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Versión del comprobante: 3.3</Value>
+                                  <Value>Versión del comprobante: </Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                                <TextRun>
+                                  <Value>=Parameters!CFDIVersion.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
                                     <FontSize>9pt</FontSize>
@@ -2923,7 +2932,15 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Usos del CFDI "P01"(Por definir)</Value>
+                                  <Value>Usos del CFDI: </Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                                <TextRun>
+                                  <Value>=Parameters!UsoCFDI.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
                                     <FontSize>9pt</FontSize>
@@ -5874,6 +5891,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="UsoCFDI">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="logo">

Empresas/158/Formatos/Nomina.rdlc

@@ -656,7 +656,7 @@
               </TablixMembers>
             </TablixRowHierarchy>
             <DataSetName>DsOC</DataSetName>
-            <Top>7.70215cm</Top>
+            <Top>7.96673cm</Top>
             <Left>0.15979cm</Left>
             <Height>2.05138cm</Height>
             <Width>10.0953cm</Width>
@@ -1234,7 +1234,7 @@
               </TablixMembers>
             </TablixRowHierarchy>
             <DataSetName>DataSet1</DataSetName>
-            <Top>7.70435cm</Top>
+            <Top>7.96893cm</Top>
             <Left>10.2551cm</Left>
             <Height>2.05606cm</Height>
             <Width>9.79494cm</Width>
@@ -1333,7 +1333,7 @@ Lugar de expedición: 83220 Hermosillo</Value>
             <rd:DefaultName>Textbox2</rd:DefaultName>
             <Top>0.12976cm</Top>
             <Left>4.80311cm</Left>
-            <Height>2.24428cm</Height>
+            <Height>2.1513cm</Height>
             <Width>8.10317cm</Width>
             <ZIndex>2</ZIndex>
             <Style>
@@ -1964,9 +1964,9 @@ Lugar de expedición: 83220 Hermosillo</Value>
               </TablixMembers>
             </TablixRowHierarchy>
             <DataSetName>DsOC</DataSetName>
-            <Top>9.86624cm</Top>
+            <Top>10.13082cm</Top>
             <Left>0.15979cm</Left>
-            <Height>1.71208cm</Height>
+            <Height>1.71209cm</Height>
             <Width>19.89025cm</Width>
             <ZIndex>3</ZIndex>
             <Style>
@@ -1979,7 +1979,7 @@ Lugar de expedición: 83220 Hermosillo</Value>
             <Source>Embedded</Source>
             <Value>Logo</Value>
             <Sizing>FitProportional</Sizing>
-            <Top>0.12976cm</Top>
+            <Top>0.03816cm</Top>
             <Left>0.29576cm</Left>
             <Height>2.1513cm</Height>
             <Width>3.93798cm</Width>
@@ -2525,7 +2525,7 @@ Lugar de expedición: 83220 Hermosillo</Value>
               </TablixMembers>
             </TablixRowHierarchy>
             <DataSetName>DsOC</DataSetName>
-            <Top>17.07534cm</Top>
+            <Top>17.23409cm</Top>
             <Left>0.15979cm</Left>
             <Height>1.12062cm</Height>
             <Width>19.89024cm</Width>
@@ -2541,7 +2541,7 @@ Lugar de expedición: 83220 Hermosillo</Value>
             <Value>=First(Fields!ImagenByte.Value, "dsImagenes")</Value>
             <MIMEType>image/png</MIMEType>
             <Sizing>FitProportional</Sizing>
-            <Top>4.64173in</Top>
+            <Top>4.70423in</Top>
             <Left>0.068in</Left>
             <Height>1.30194in</Height>
             <Width>1.48366in</Width>
@@ -2858,7 +2858,15 @@ Lugar de expedición: 83220 Hermosillo</Value>
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Versión del comprobante: 3.3</Value>
+                                  <Value>Versión del comprobante: </Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                                <TextRun>
+                                  <Value>=Parameters!CFDIVersion.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
                                     <FontSize>9pt</FontSize>
@@ -2929,7 +2937,15 @@ Lugar de expedición: 83220 Hermosillo</Value>
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Usos del CFDI "P01"(Por definir)</Value>
+                                  <Value>Usos del CFDI: </Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                                <TextRun>
+                                  <Value>=Parameters!UsoCFDI.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
                                     <FontSize>9pt</FontSize>
@@ -2979,7 +2995,7 @@ Lugar de expedición: 83220 Hermosillo</Value>
               </TablixMembers>
             </TablixRowHierarchy>
             <DataSetName>dsImagenes</DataSetName>
-            <Top>11.78999cm</Top>
+            <Top>11.94874cm</Top>
             <Left>4.13053cm</Left>
             <Height>5.21479cm</Height>
             <Width>15.94535cm</Width>
@@ -3743,6 +3759,236 @@ Lugar de expedición: 83220 Hermosillo</Value>
                     </TablixCell>
                   </TablixCells>
                 </TablixRow>
+                <TablixRow>
+                  <Height>0.41479cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox5">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Centro de costos</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>7pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox5</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox7">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!SubProyecto.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox7</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox16">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>7pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox16</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox19">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox19</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox21">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox21</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox22">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>7pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox22</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox23">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox23</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>
                 <TablixRow>
                   <Height>0.49417cm</Height>
                   <TablixCells>
@@ -5279,13 +5525,14 @@ Lugar de expedición: 83220 Hermosillo</Value>
                 <TablixMember />
                 <TablixMember />
                 <TablixMember />
+                <TablixMember />
               </TablixMembers>
             </TablixRowHierarchy>
             <DataSetName>DsOC</DataSetName>
-            <Top>2.51578cm</Top>
+            <Top>2.33057cm</Top>
             <Left>0.15979cm</Left>
-            <Height>5.0304cm</Height>
-            <Width>19.84967cm</Width>
+            <Height>5.44519cm</Height>
+            <Width>19.84968cm</Width>
             <ZIndex>9</ZIndex>
             <Style>
               <Border>
@@ -5294,7 +5541,7 @@ Lugar de expedición: 83220 Hermosillo</Value>
             </Style>
           </Tablix>
         </ReportItems>
-        <Height>18.41425cm</Height>
+        <Height>18.46717cm</Height>
         <Style />
       </Body>
       <Width>20.51495cm</Width>
@@ -5628,6 +5875,24 @@ Lugar de expedición: 83220 Hermosillo</Value>
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="SubProyecto">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="UsoCFDI">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="logo">

Empresas/Grales/Formatos/ReciboDePagoGOPDF.rdlc

@@ -3308,7 +3308,13 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value>=First(Fields!Nombre.Value, "Emisor")</Value>
+                      <Value>Visor CFDI </Value>
+                      <Style>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value>=First(Fields!Nombre.Value, "Receptor")</Value>
                       <Style>
                         <FontWeight>Bold</FontWeight>
                       </Style>
@@ -3478,9 +3484,9 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value>Serie/Folio</Value>
+                      <Value>Serie/Folio:</Value>
                       <Style>
-                        <FontSize>8pt</FontSize>
+                        <FontSize>9pt</FontSize>
                         <FontWeight>Bold</FontWeight>
                         <Color>Brown</Color>
                       </Style>
@@ -3492,7 +3498,7 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
               <rd:DefaultName>Textbox31</rd:DefaultName>
               <Left>0.00031cm</Left>
               <Height>0.47652cm</Height>
-              <Width>1.72389cm</Width>
+              <Width>1.90028cm</Width>
               <ZIndex>7</ZIndex>
               <Style>
                 <Border>
@@ -3513,7 +3519,7 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
                     <TextRun>
                       <Value>=First(Fields!Serie.Value, "Comprobante") + " - " + First(Fields!Folio.Value, "Comprobante")</Value>
                       <Style>
-                        <FontSize>8pt</FontSize>
+                        <FontSize>9pt</FontSize>
                       </Style>
                     </TextRun>
                   </TextRuns>
@@ -3521,9 +3527,9 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox32</rd:DefaultName>
-              <Left>1.75948cm</Left>
+              <Left>1.90059cm</Left>
               <Height>0.47652cm</Height>
-              <Width>3.00812cm</Width>
+              <Width>2.86701cm</Width>
               <ZIndex>8</ZIndex>
               <Style>
                 <Border>
@@ -3908,7 +3914,7 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
               <KeepTogether>true</KeepTogether>
               <Top>4.21537cm</Top>
               <Left>0.00007cm</Left>
-              <Height>2.41961cm</Height>
+              <Height>2.41962cm</Height>
               <Width>19.59023cm</Width>
               <ZIndex>9</ZIndex>
               <Style>

Finanzas/RepEstadoFlujoEfectivo.aspx

@@ -41,8 +41,8 @@
                             <div class="col-md-12">
 
 
-                                <label class="col-md-1" runat="server" id="LblVista">Vista: </label>
-                                <div class="col-md-1 " runat="server" >
+                                <label class="col-md-1" runat="server" id="LblVista" visible="false">Vista: </label>
+                                <div class="col-md-1 " runat="server" visible="false" >
                                     <asp:DropDownList ID="DdlVista" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlVista_SelectedIndexChanged">
                                         <asp:ListItem Value="1" Selected="True">Ejercicio</asp:ListItem>
                                         <asp:ListItem Value="2">Mensual</asp:ListItem>
@@ -100,477 +100,155 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
-
-    <asp:UpdatePanel runat="server" ID="UpGeneral" UpdateMode="Always">
-        <ContentTemplate>
-
-            <ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%"  >
-
-                <ajax:TabPanel ID="TabBalanceGeneral" runat="server" HeaderText="Balance General" >
-                    <ContentTemplate>
-                         <asp:UpdatePanel runat="server" ID="UpBalanceGeneral" UpdateMode="Conditional">
-                             <ContentTemplate>
-
-
-
-                                 <asp:GridView ID="GvBalanceGeneral" runat="server" AutoGenerateColumns="false" DataKeyNames="Codigo,Tipo" OnRowDataBound="GvBalanceGeneral_RowDataBound" Width="60%"
-                                    EmptyDataText="No se encontraron registros" 
-                                    CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true"                                     
-                                    Style="text-align: center;" GridLines="None">
-                                    <Columns>
-                                        <asp:TemplateField ItemStyle-HorizontalAlign="Left" ControlStyle-Width="40px">
-                                            <HeaderTemplate>Codigo</HeaderTemplate>
-                                            <ItemTemplate>
-                                                <asp:Label CssClass="truncate" ID="LblCodigo" runat="server" Text='<%# Eval("Codigo") %>'></asp:Label>
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-
-                                         <asp:TemplateField ItemStyle-HorizontalAlign="Left" ControlStyle-Width="300px">
-                                            <HeaderTemplate>Cuenta</HeaderTemplate>
-                                            <ItemTemplate>
-                                                <asp:Label CssClass="truncate" ID="LblNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Label>
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-
-                                    </Columns>
-                                    <RowStyle CssClass="Texto" />
-                                    <AlternatingRowStyle CssClass="TextoAlterno" />
-                                    <HeaderStyle CssClass="Titulos" />
-                                </asp:GridView>
-
-
-
-
-                             </ContentTemplate>
-                        </asp:UpdatePanel>
-                    </ContentTemplate>
-                </ajax:TabPanel>
-
-
-                <ajax:TabPanel ID="TabEstadoResultados" runat="server" HeaderText="Estado Resultados">
-                    <ContentTemplate>
-                        <asp:UpdatePanel runat="server" ID="UpEstadoResultados" UpdateMode="Conditional">
-                            <ContentTemplate>
-
-                                <asp:GridView ID="GVEstadoRsultados" runat="server" AutoGenerateColumns="false" DataKeyNames="Codigo,Tipo" OnRowDataBound="GVEstadoRsultados_RowDataBound" Width="60%"
-                                    EmptyDataText="No se encontraron registros" 
-                                    CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true"                                     
-                                    Style="text-align: center;" GridLines="None">
-                                    <Columns>
-                                        <asp:TemplateField ItemStyle-HorizontalAlign="Left" ControlStyle-Width="40px">
-                                            <HeaderTemplate>Codigo</HeaderTemplate>
-                                            <ItemTemplate>
-                                                <asp:Label CssClass="truncate" ID="LblCodigo" runat="server" Text='<%# Eval("Codigo") %>'></asp:Label>
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-
-                                         <asp:TemplateField ItemStyle-HorizontalAlign="Left" ControlStyle-Width="300px">
-                                            <HeaderTemplate>Cuenta</HeaderTemplate>
-                                            <ItemTemplate>
-                                                <asp:Label CssClass="truncate" ID="LblNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Label>
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-
-                                    </Columns>
-                                    <RowStyle CssClass="Texto" />
-                                    <AlternatingRowStyle CssClass="TextoAlterno" />
-                                    <HeaderStyle CssClass="Titulos" />
-                                </asp:GridView>
-
-                            </ContentTemplate>
-                        </asp:UpdatePanel>
-                    </ContentTemplate>
-                </ajax:TabPanel>
-
-                <ajax:TabPanel ID="TabRatios" runat="server" HeaderText="Ratios" >
-                    <ContentTemplate>
-                        <asp:UpdatePanel runat="server" ID="UpRatios" UpdateMode="Conditional">
-                            <ContentTemplate>
-
-                                   <asp:GridView ID="GVRatios" runat="server" AutoGenerateColumns="false" DataKeyNames="Ratio,Tipo,EsPorcentaje,Formula" OnRowDataBound="GVRatios_RowDataBound" Width="60%"
-                                    EmptyDataText="No se encontraron registros" 
-                                    CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" 
-                                    Style="text-align: center;" GridLines="None">
-                                    <Columns>
-                                      <%--  <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderStyle-Width="40px">
-                                            <HeaderTemplate>Codigo</HeaderTemplate>
-                                            <ItemTemplate>
-                                                <asp:Label CssClass="truncate" ID="LblCodigo" runat="server" Text='<%# Eval("Codigo") %>'></asp:Label>
-                                            </ItemTemplate>
-                                        </asp:TemplateField>--%>
-
-                                         <asp:TemplateField ItemStyle-HorizontalAlign="Left" ControlStyle-Width="300px">
-                                            <HeaderTemplate>Ratio</HeaderTemplate>
-                                            <ItemTemplate>
-                                                <asp:Label CssClass="truncate" ID="LblRatio" runat="server" Text='<%# Eval("Ratio") %>'></asp:Label>
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                                         
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="75px" />
-
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                                         
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                                         
-                                                         
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                                         
-                                                         
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                                         
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                                         
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                                         
-                                                         
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-                                        <asp:BoundField   ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
-
-
-                                    </Columns>
-                                    <RowStyle CssClass="Texto" />
-                                    <AlternatingRowStyle CssClass="TextoAlterno" />
-                                    <HeaderStyle CssClass="Titulos" />
-                                </asp:GridView>
-
-
-
-                            </ContentTemplate>
-                        </asp:UpdatePanel>
-                    </ContentTemplate>
-                </ajax:TabPanel>
-
-
-
-            </ajax:TabContainer>
-
-        </ContentTemplate>
-    </asp:UpdatePanel>
-
+ 
+    <div class="row">
+        <div class="col-md-12">
+            <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
+                <ContentTemplate>
+
+                    <asp:GridView ID="GVDatos" runat="server" AutoGenerateColumns="false" DataKeyNames="Nombre,Tipo,EsPorcentaje,Formula" OnRowDataBound="GVDatos_RowDataBound" Width="60%"
+                        EmptyDataText="No se encontraron registros"
+                        CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true"
+                        Style="text-align: center;" GridLines="None">
+                        <Columns>
+                            <asp:TemplateField ItemStyle-HorizontalAlign="Left" ControlStyle-Width="300px">
+                                <HeaderTemplate></HeaderTemplate>
+                                <ItemTemplate>
+                                    <asp:Label CssClass="truncate" ID="LblNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Label>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
+
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+
+                        </Columns>
+                        <RowStyle CssClass="Texto" />
+                        <AlternatingRowStyle CssClass="TextoAlterno" />
+                        <HeaderStyle CssClass="Titulos" />
+                    </asp:GridView>
+
+
+
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
+                        
+
+                
 
 
 

Finanzas/RepEstadoFlujoEfectivo.aspx.vb

@@ -2,12 +2,9 @@
 Option Strict On
 
 Imports System.Data
-Imports System.Drawing
-Imports System.IO
 Imports System.Windows.Forms
 Imports Extensiones
 Imports GemBox.Spreadsheet
-Imports Microsoft.Reporting.WebForms
 
 Partial Class Finanzas_RepEstadoFlujoEfectivo
     Inherits ClsPaginas
@@ -16,17 +13,17 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
 
 
 
-    Property DTRatios As DataTable
+    Property DTDatos As DataTable
         Get
-            If ViewState("DTRatios") Is Nothing Then
-                ViewState("DTRatios") = New DataTable
+            If ViewState("DTDatos") Is Nothing Then
+                ViewState("DTDatos") = New DataTable
             End If
 
-            Return DirectCast(ViewState("DTRatios"), DataTable)
+            Return DirectCast(ViewState("DTDatos"), DataTable)
 
         End Get
         Set(value As DataTable)
-            ViewState("DTRatios") = value
+            ViewState("DTDatos") = value
         End Set
     End Property
 
@@ -50,23 +47,15 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
-            TAB.ActiveTabIndex = 0
-
             CargaDTEjercicios()
             DdlVista_SelectedIndexChanged(Nothing, Nothing)
-
             CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto)
-
             DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual)
             ValidaEjercicios()
 
         End If
     End Sub
 
-
-
-
-
     Protected Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs)
         ValidaEjercicios()
     End Sub
@@ -103,233 +92,27 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
 
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
 
-        LnkExportar.Visible = False
-
-        If TAB.ActiveTabIndex = 0 Then
-            CargaDatosBalanceGeneral()
-        End If
 
 
-        If TAB.ActiveTabIndex = 1 Then
-            CargaDatosEstadoResultados()
-        End If
+        CargaDatos()
 
 
-        If TAB.ActiveTabIndex = 2 Then
-            CargaDatosRatios()
-        End If
-
     End Sub
 
 
 
-#Region "ESTADO BALANCE GENERAL"
-
-
-
-    Private Sub CargaDatosBalanceGeneral()
-
-        LnkExportar.Visible = False
-        GvBalanceGeneralOcultarColumnas(GvBalanceGeneral, 1)
-
-
-
-
-        Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
-
-
-        Dim objFinanzas As New ClsFinanzas
-        Dim dtTemp As New DataTable
-
-        Dim FechasConsultar As String = GetFechasConsultar()
-
-
-        ' Alert(FechasConsultar)
-
-        If objFinanzas.GetRazonesFinancierasBalanceGeneralRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) Then
-            dtTemp = objFinanzas.DtResultados
-
-            GvBalanceGeneralMostrarColumnas(dtTemp, GvBalanceGeneral)
-            GvBalanceGeneral.DataSource = dtTemp
-
-            If dtTemp.Rows.Count > 0 Then
-                '  LnkExportar.Visible = True
-            End If
-
-        Else
-            GvBalanceGeneral.DataSource = Nothing
-        End If
-
-        objFinanzas.Dispose()
-        GvBalanceGeneral.DataBind()
-
-        UpBalanceGeneral.Update()
-
-    End Sub
-
-
-
-    Private Sub GvBalanceGeneralOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2)
-
-        For index = 2 To Gv.Columns.Count - 1
-            CType(Gv.Columns(index), BoundField).DataField = Nothing
-            Gv.Columns(index).Visible = False
-        Next
-        UpBalanceGeneral.Update()
-    End Sub
-
-    Private Sub GvBalanceGeneralMostrarColumnas(dt As DataTable, ByRef Gv As GridView)
-        Dim index = 1
-
-
-        For index = 1 To dt.Columns.Count - 5
-            CType(Gv.Columns(index + 4), BoundField).DataField = dt.Columns(index + 4).ColumnName
-            Gv.Columns(index + 4).Visible = True
-
-            CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
-
-        Next
-    End Sub
-
-    Protected Sub GvBalanceGeneral_RowDataBound(sender As Object, e As GridViewRowEventArgs)
-
-        If e.Row.RowType = DataControlRowType.DataRow Then
-
-            If e.Row.DataKey("Tipo").ToEntero = 1 Then
-                e.Row.Font.Bold = True
-                e.Row.Cells(0).Text = ""
-            End If
-
-            If e.Row.DataKey("Tipo").ToEntero = 3 Then
-                e.Row.FCLabel("LblNombre").Text = $" {e.Row.FCLabel("LblNombre").Text}"
-                e.Row.Attributes.Add("style", "border-top: 1px solid #000;")
-                e.Row.Cells(0).Text = ""
-            End If
-
-            If e.Row.DataKey("Tipo").ToEntero = 4 Then
-                e.Row.Attributes.Add("style", "border-top: solid;border-bottom: solid")
-                e.Row.Cells(0).Text = ""
-            End If
-
-
-        End If
-
-    End Sub
-
-#End Region
-
-
-
-
-#Region "ESTADO RESULTADOS"
-
-
-
-    Private Sub CargaDatosEstadoResultados()
-
-
-
-        LnkExportar.Visible = False
-        GVEstadoRsultadosOcultarColumnas(GVEstadoRsultados, 1)
-
-
-
-
-
-        Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
-
-
-        Dim objFinanzas As New ClsFinanzas
-        Dim dtTemp As New DataTable
-
-        Dim FechasConsultar As String = GetFechasConsultar()
-
-        If objFinanzas.GetRazonesFinancierasEstadoResultadosRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) Then
-            dtTemp = objFinanzas.DtResultados
-
-            GVEstadoRsultadosMostrarColumnas(dtTemp, GVEstadoRsultados)
-            GVEstadoRsultados.DataSource = dtTemp
-
-            If dtTemp.Rows.Count > 0 Then
-                '  LnkExportar.Visible = True
-            End If
-
-        Else
-            GVEstadoRsultados.DataSource = Nothing
-        End If
-
-        objFinanzas.Dispose()
-        GVEstadoRsultados.DataBind()
-
-        UpEstadoResultados.Update()
-
-    End Sub
-
-    Private Sub GVEstadoRsultadosOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2)
-
-        For index = 2 To Gv.Columns.Count - 1
-            CType(Gv.Columns(index), BoundField).DataField = Nothing
-            Gv.Columns(index).Visible = False
-        Next
-        UpEstadoResultados.Update()
-    End Sub
-
-    Private Sub GVEstadoRsultadosMostrarColumnas(dt As DataTable, ByRef Gv As GridView)
-        Dim index = 1
-
-
-        For index = 1 To dt.Columns.Count - 5
-            CType(Gv.Columns(index + 4), BoundField).DataField = dt.Columns(index + 4).ColumnName
-            Gv.Columns(index + 4).Visible = True
-            Dim tmpDate As Date
-            CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
-            'If (Date.TryParse(dt.Columns(index + 4).ColumnName, tmpDate)) Then
-            '    CType(Gv.Columns(index + 4), BoundField).HeaderText = tmpDate.ToString("dd-MMM").Replace(".", "")
-            'Else
-            '    CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
-            'End If
-        Next
-    End Sub
-
-    Protected Sub GVEstadoRsultados_RowDataBound(sender As Object, e As GridViewRowEventArgs)
-
-        If e.Row.RowType = DataControlRowType.DataRow Then
-
-            If e.Row.DataKey("Tipo").ToEntero = 1 Then
-                e.Row.Font.Bold = True
-                e.Row.Cells(0).Text = ""
-            End If
-
-            If e.Row.DataKey("Tipo").ToEntero = 3 Then
-                e.Row.FCLabel("LblNombre").Text = $" {e.Row.FCLabel("LblNombre").Text}"
-                e.Row.Cells(0).Text = ""
-            End If
-
-            If e.Row.DataKey("Tipo").ToEntero = 4 Then
-                e.Row.Attributes.Add("style", "border-top: solid;border-bottom: solid")
-                e.Row.Cells(0).Text = ""
-            End If
-
-
-        End If
-
-    End Sub
-
-#End Region
-
-
 #Region "RATIOS"
 
 
 
-    Private Sub CargaDatosRatios()
+    Private Sub CargaDatos()
+        ' LnkExportar.Visible = False
 
 
+        DTDatos = New DataTable
 
-        DTRatios = New DataTable
 
-        LnkExportar.Visible = False
-        GVRatiosOcultarColumnas(GVRatios, 1)
+        GVDatosOcultarColumnas(GVDatos, 1)
 
 
 
@@ -342,34 +125,33 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
 
         Dim objFinanzas As New ClsFinanzas
 
-        If objFinanzas.GetRazonesFinancierasRatiosRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) Then
-            DTRatios = objFinanzas.DtResultados
+        If objFinanzas.GetEstadoFlujoEfectivoRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) Then
+            DTDatos = objFinanzas.DtResultados
 
-            GVRatiosMostrarColumnas(DTRatios, GVRatios)
-            GVRatios.DataSource = DTRatios
+            GVRatiosMostrarColumnas(DTDatos, GVDatos)
+            GVDatos.DataSource = DTDatos
 
-            If DTRatios.Rows.Count > 0 Then
-                '  LnkExportar.Visible = True
+            If DTDatos.Rows.Count > 0 Then
+                ' LnkExportar.Visible = True
             End If
 
         Else
-            GVRatios.DataSource = Nothing
+            GVDatos.DataSource = Nothing
         End If
 
         objFinanzas.Dispose()
-        GVRatios.DataBind()
+        GVDatos.DataBind()
 
-        UpBalanceGeneral.Update()
 
     End Sub
 
-    Private Sub GVRatiosOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2)
+    Private Sub GVDatosOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2)
 
         For index = 1 To Gv.Columns.Count - 1
             CType(Gv.Columns(index), BoundField).DataField = Nothing
             Gv.Columns(index).Visible = False
         Next
-        UpEstadoResultados.Update()
+        UpDatos.Update()
     End Sub
 
     Private Sub GVRatiosMostrarColumnas(dt As DataTable, ByRef Gv As GridView)
@@ -386,15 +168,11 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
 
     End Sub
 
-    Protected Sub GVRatios_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+    Protected Sub GVDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            For x = 1 To DTRatios.Columns.Count
-
-                If e.Row.DataKey("Ratio") = "INCREMENTO DE VENTAS" Then
-                    Dim asddas = ""
-                End If
+            For x = 1 To DTDatos.Columns.Count
 
                 If e.Row.Cells(x).Text.ToDecimal < 0 Then
                     e.Row.Cells(x).ForeColor = Drawing.Color.Red
@@ -414,19 +192,30 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
                 e.Row.Attributes.Add("style", "border-top: solid;border-bottom: solid")
             End If
 
-            If e.Row.DataKey("Tipo").ToEntero <> 1 AndAlso DTRatios.Columns.Count > 0 Then
+            'If e.Row.DataKey("Tipo").ToEntero <> 1 AndAlso DTDatos.Columns.Count > 0 Then
+            If DTDatos.Columns.Count > 0 Then
 
                 Dim EsPorcentaje = If(e.Row.DataKey("EsPorcentaje").ToEntero = 1, True, False)
+                Dim LenNombre As Integer = e.Row.DataKey("Nombre").ToString.Trim.Length
+
+                If LenNombre > 0 Then
+                    For x = 1 To DTDatos.Columns.Count - 1
+
+                        If e.Row.Cells(x).Text.ToDecimal <> 0 Then
+                            If EsPorcentaje Then
+                                e.Row.Cells(x).Text = $"{(e.Row.Cells(x).Text.ToDecimal * 100.0).ToString("###,####,###.00")}%"
+                            Else
+                                e.Row.Cells(x).Text = $"{e.Row.Cells(x).Text.ToDecimal.ToString("###,###,###.00")}"
+                            End If
+                        End If
+
+                    Next
+                End If
+
 
-                For x = 1 To DTRatios.Columns.Count - 2
-                    If EsPorcentaje Then
-                        e.Row.Cells(x).Text = $"{(e.Row.Cells(x).Text.ToDecimal * 100.0).ToString("###,####,###.00")}%"
-                    Else
-                        e.Row.Cells(x).Text = $"{e.Row.Cells(x).Text.ToDecimal.ToString("###,###,###.00")}"
-                    End If
-                Next
 
             End If
+
             If e.Row.DataKey("Formula").Trim().Length > 0 Then
 
                 'data-html="true" data-toggle="tooltip" data-placement="left" title="Agregar<br/>Familiares"
@@ -438,11 +227,6 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
 
 
 
-
-
-
-
-
         End If
 
     End Sub
@@ -466,29 +250,10 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
         SbFiltros.Append($"Año Inicio: {DdlEjercicio.SelectedItem.Text} Año Fin: {DdlEjercicio2.SelectedItem.Text} ")
         SbFiltros.Append($"SubProyecto: {SubProyecto}")
 
-        Dim Titulo As String = ""
-        Dim NombreReporte As String = ""
+        Dim Titulo As String = "ESTADO FLUJO DE EFECTIVO"
+        Dim NombreReporte As String = "ESTADO FLUJO DE EFECTIVO"
 
-        If TAB.ActiveTabIndex = 0 Then
-            Titulo = "Balance General"
-            NombreReporte = "BalanceGenral"
-        End If
-
-        If TAB.ActiveTabIndex = 1 Then
-            Titulo = "Estado de Resultados"
-            NombreReporte = "Estado de Resultados"
-        End If
-
-        If TAB.ActiveTabIndex = 2 Then
-
-            Titulo = "Ratios"
-            NombreReporte = "Ratios"
-
-
-        End If
-
-
-        GVRatios.ExportToExcelGembox(NombreReporte, UsuarioActual, $"Reporte {Titulo}", "", DatosFiltros:=SbFiltros.ToString())
+        GVDatos.ExportToExcelGembox(NombreReporte, UsuarioActual, $"Reporte {Titulo}", "", DatosFiltros:=SbFiltros.ToString())
 
     End Sub
 
@@ -634,6 +399,11 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
     End Function
 
 
+    'Public Overrides Sub VerifyRenderingInServerForm(control As Control)
+
+    'End Sub
+
+
 End Class
 
 

Finanzas/RepRazonesFinancieras2.aspx

@@ -412,7 +412,7 @@
                     </ContentTemplate>
                 </ajax:TabPanel>
 
-                <ajax:TabPanel ID="TabRatios" runat="server" HeaderText="Ratios" >
+                <ajax:TabPanel ID="TabRatios" runat="server" HeaderText="Razones F." >
                     <ContentTemplate>
                         <asp:UpdatePanel runat="server" ID="UpRatios" UpdateMode="Conditional">
                             <ContentTemplate>

Inventarios/EntregaAlmacen.aspx

@@ -638,12 +638,12 @@
                                     <td width="80px">Serie:</td>
                                     <td>
                                         <asp:TextBox runat="server" ID="TxtSerie" ClientIDMode="Static" Width="200px" />
-                                        <asp:RequiredFieldValidator ID="RFVSerie" runat="server" ControlToValidate="TxtSerie" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregaSerie"></asp:RequiredFieldValidator>
+                                        <%-- <asp:RequiredFieldValidator ID="RFVSerie" runat="server" ControlToValidate="TxtSerie" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregaSerie"></asp:RequiredFieldValidator>
                                         <ajax:ValidatorCalloutExtender ID="VCESerie" runat="server" HighlightCssClass="vco" TargetControlID="RFVSerie" Width="300px"></ajax:ValidatorCalloutExtender>
 
-                                          <asp:CustomValidator id="ReVTxtSerie" runat="server" ControlToValidate="TxtSerie"    Display="None"  ClientValidationFunction="TamanioSerie"
+                                         <asp:CustomValidator id="ReVTxtSerie" runat="server" ControlToValidate="TxtSerie"    Display="None"  ClientValidationFunction="TamanioSerie"
                                             ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> debe tener  un minimo de 6 caracteres." ValidationGroup="GrpAgregaSerie" />
-                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="ReVTxtSerie" Width="300px"></ajax:ValidatorCalloutExtender>
+                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="ReVTxtSerie" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                     </td>
                                     <td width="80px" runat="server" id="TdCaducidad1">Fecha Caducidad:</td>
                                     <td runat="server" id="TdCaducidad2">

Inventarios/EntregaAlmacen.aspx.vb

@@ -1142,11 +1142,11 @@ Partial Class Inventarios_EntregaAlmacen
 
 
         If CveMetodoInventario = 6 Then
-            RegistraScript("$('#DivLote').modal('show')")
+            RegistraScript("$('#DivLote').modal({backdrop: 'static', keyboard: false});")
             CargaLote()
             UpLoteBatch.Update()
         Else
-            RegistraScript("$('#DivSerie').modal('show')")
+            RegistraScript("$('#DivSerie').modal({backdrop: 'static', keyboard: false});")
             CargaSerie()
             UpSerie.Update()
         End If
@@ -1173,7 +1173,7 @@ Partial Class Inventarios_EntregaAlmacen
     End Sub
     Private Sub CargaSerie(Optional CerrarCompletado As Boolean = False, Optional CargaMasivo As Boolean = False)
 
-        If Not CargaMasivo Then RegistraScript("$('#DivSerie').modal('show')", "show")
+        If Not CargaMasivo Then RegistraScript("$('#DivSerie').modal({backdrop: 'static', keyboard: false})", "show")
 
         Dim AplicaCaducidad = False
         Dim dttt As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie)
@@ -1270,8 +1270,7 @@ Partial Class Inventarios_EntregaAlmacen
             Dim Series As String = Nothing
 
             Series = TxtSerie.Text.Trim
-            Series = Series.Remove(0, 1)
-            Series = Series.Remove(Series.Length - 1, 1)
+            Series = Series.Replace("*", "")
             ArraySeries = Series.Trim.Split(","c)
 
             For i As Integer = 0 To ArraySeries.Length - 1
@@ -1285,7 +1284,12 @@ Partial Class Inventarios_EntregaAlmacen
     Private Sub AgregaSerie(Serie As String, Tipo As Integer, Optional CargaMasivo As Boolean = False)
 
         If Serie.Trim = "" Then
-            Alert("El campo Serie es obligatorio. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+            Alert("El campo 'Serie' es obligatorio. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If Serie.Trim.Length < 6 Then
+            Alert("El campo 'Serie' debe tener minimo 6 caracteres. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
@@ -1303,26 +1307,26 @@ Partial Class Inventarios_EntregaAlmacen
 
 
         'Valida Existencia
-        'If TipoMovimiento = 1 Then
-        '    Dim ObjInventarios As New ClsInventarios
-        '    Dim Existencia = ObjInventarios.GetExistenciasPS(CvePSSerie, CveUMSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Serie, CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=If(TipoEntrega = 2, 1, -1))
-        '    If Existencia < 1 Then
-        '        Alert($"No hay existencia suficiente del producto <b>""{PSSerie}""</b> con la Serie definida <b>""{Serie}""</b>. Por favor rectifique y vuelva a intentar", TipoMensaje.MsgAdvertencia, If(Tipo = 2, "window.setTimeout(Focus,200);", ""))
-        '        RegistraScript("playsonidito('142608__autistic-lucario__error.wav')", "Error2")
-        '        ObjInventarios.Dispose()
-        '        Exit Sub
-        '    End If
-        '    ObjInventarios.Dispose()
-        'Else
-        '    If DtExistencias IsNot Nothing Then
-        '        Dim Existencia = DtExistencias.SUM("Cantidad", $"CvePS = {CvePSSerie} AND CveUM = {CveUMSerie} AND Serie = '{Serie}'")
-        '        If Existencia < 1 Then
-        '            Alert($"No hay existencia suficiente del producto <b>""{PSSerie}""</b> con la Serie definida <b>""{Serie}""</b>. Por favor rectifique y vuelva a intentar", TipoMensaje.MsgAdvertencia, If(Tipo = 2, "window.setTimeout(Focus,200);", ""))
-        '            RegistraScript("playsonidito('142608__autistic-lucario__error.wav')", "Error3")
-        '            Exit Sub
-        '        End If
-        '    End If
-        'End If
+        If TipoMovimiento = 1 Then
+            Dim ObjInventarios As New ClsInventarios
+            Dim Existencia = ObjInventarios.GetExistenciasPS(CvePSSerie, CveUMSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Serie, CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=If(TipoEntrega = 2, 1, -1))
+            If Existencia < 1 Then
+                Alert($"No hay existencia suficiente del producto <b>""{PSSerie}""</b> con la Serie definida <b>""{Serie}""</b>. Por favor rectifique y vuelva a intentar", TipoMensaje.MsgAdvertencia, If(Tipo = 2, "window.setTimeout(Focus,200);", ""))
+                RegistraScript("playsonidito('142608__autistic-lucario__error.wav')", "Error2")
+                ObjInventarios.Dispose()
+                Exit Sub
+            End If
+            ObjInventarios.Dispose()
+        Else
+            If DtExistencias IsNot Nothing Then
+                Dim Existencia = DtExistencias.SUM("Cantidad", $"CvePS = {CvePSSerie} AND CveUM = {CveUMSerie} AND Serie = '{Serie}'")
+                If Existencia < 1 Then
+                    Alert($"No hay existencia suficiente del producto <b>""{PSSerie}""</b> con la Serie definida <b>""{Serie}""</b>. Por favor rectifique y vuelva a intentar", TipoMensaje.MsgAdvertencia, If(Tipo = 2, "window.setTimeout(Focus,200);", ""))
+                    RegistraScript("playsonidito('142608__autistic-lucario__error.wav')", "Error3")
+                    Exit Sub
+                End If
+            End If
+        End If
 
 
         Dim Row = DtDatosDetalle.NewRow
@@ -1433,7 +1437,7 @@ Partial Class Inventarios_EntregaAlmacen
     End Sub
     Private Sub CargaLote(Optional CerrarCompletado As Boolean = False)
 
-        RegistraScript("$('#DivLote').modal('show')")
+        RegistraScript("$('#DivLote').modal({backdrop: 'static', keyboard: false})")
         GvLote.Columns(2).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
         GvLote.DataSource = DtDatosDetalleLote.FiltraParametros(String.Format("ConsecId = {0}", CveConsecSerie), "Consec DESC")
         GvLote.DataBind()
@@ -2413,7 +2417,7 @@ Partial Class Inventarios_EntregaAlmacen
                         Dim CvePS = RowGarantia("CvePS").ToString().ToEntero()
                         Dim CveTamaño As Integer = RowGarantia("CveTamaño").ToString().ToEntero()
                         Dim CveUM As Integer = RowGarantia("CveUnidadMedida").ToString().ToEntero()
-                        Dim PU As Decimal = RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble()
+                        Dim PU As Decimal = 0 'valor cero, por tema contable 'RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble()
                         Dim Serie As String = RowGarantia("Comprobante").ToString
 
                         If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=IIf(RowGarantia("MismoCvePS").ToString = "1", RowGarantia("CveVentaDetalle"), -1).ToString.ToEntero) Then
@@ -2432,12 +2436,12 @@ Partial Class Inventarios_EntregaAlmacen
                     Dim CvePrePolizaTraspaso As Integer = ObjConta.AddPrePolizas("EA/Gar", 53, 0, 0, 1, TxtFecha.Text.ToDate, "Entrada Garantía", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                     If CvePrePolizaTraspaso > 0 Then
 
-
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, False, TotalGarantia, TxtObservaciones.Text, 68, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then
+                        Dim TotalGarantiaValor As Decimal = 0 ' el valor en almacen es cero, por tema contable
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, False, TotalGarantiaValor, TxtObservaciones.Text, 68, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then
                             ErrorMovInv = True
                         End If
 
-                        If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, True, TotalGarantia, TxtObservaciones.Text, 331, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then
+                        If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, True, TotalGarantiaValor, TxtObservaciones.Text, 331, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then
                             ErrorMovInv = True
                         End If
                     Else
@@ -3353,6 +3357,11 @@ Partial Class Inventarios_EntregaAlmacen
                 Dim CveSeccionAlmacen As Integer = -1
 
                 For Each Dr As DataRow In DtDatos.Rows
+
+                    If ErrorMovInv Then
+                        Exit For
+                    End If
+
                     FechaCaducidad = If(CBool(Dr("AplicaCaducidad")) AndAlso Dr("FechaCaducidad").ToString() <> "", Dr("FechaCaducidad").ToString().ToDate, MinFecha)
                     Lote = If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1")
                     CveSeccionAlmacen = If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)
@@ -3363,7 +3372,7 @@ Partial Class Inventarios_EntregaAlmacen
                         For Each Dr1 As DataRow In DtDetalle.Rows
                             If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, 1, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Serie:=Dr1("Serie").ToString(), Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
                                 ErrorMovInv = True
-                                TextoError = "Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar."
+                                TextoError = $"Ocurrió un error al procesar los conceptos con serie '{Dr1("Serie").ToString()}'. Por favor vuelva a intentar."
                                 Exit For
                             End If
                         Next
@@ -3990,7 +3999,7 @@ Partial Class Inventarios_EntregaAlmacen
 
         UpVerSugerencias.Update()
 
-        RegistraScript("$('#ModalVerSugerencias').modal()")
+        RegistraScript("$('#ModalVerSugerencias').modal({backdrop: 'static', keyboard: false});")
     End Sub
     Protected Sub BtnAplicarSugerencias_Click(sender As Object, e As EventArgs)
 
@@ -4171,7 +4180,7 @@ Partial Class Inventarios_EntregaAlmacen
         HdnCveVenta.Value = CveVentaSurtir.ToString
         CargaModalCombosDirecciones(CveCliente, CveDireccionEnvio)
 
-        RegistraScript("$('#DivEditarEntrega').modal('show');")
+        RegistraScript("$('#DivEditarEntrega').modal({backdrop: 'static', keyboard: false});")
 
     End Sub
 

OC/OC.aspx

@@ -291,7 +291,7 @@
                                             <div class="row">
                                                 <label class="col-md-2">Proveedor:</label>
                                                 <div class="col-md-9">
-                                                    <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />                                                                                                        
+                                                    <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" Onselectedindexchange="DdlProveedores_selectedindexchange" />                                                                                                        
                                                 </div>
                                                 <div class="col-md-1" style="padding-left: 0px;">
                                                     <asp:LinkButton runat="server" Visible="false" ID="ImgCambiaProv"  data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea actualizar proveedor?" 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 Proveedor" />
@@ -768,6 +768,10 @@
                                                 <th scope="col">P.U.</th>
                                                 <th scope="col" id="THDescuento" visible="false" runat="server">Desc.</th>
                                                 <th scope="col">IVA</th>
+
+                                                <th scope="col" runat="server" id="ThRetIVA" visible="false" style="width:70px" >Ret. IVA</th>
+                                                <th scope="col" runat="server" id="ThRetISR" visible="false" style="width:70px">Ret. ISR</th>
+
                                                 <th scope="col">Total</th>
                                                 <th scope="col">Comandos</th>
                                                 <th scope="col">
@@ -872,6 +876,14 @@
                                                  <td style="text-align: right; padding-right: 7px;">
                                                  <%--    IVA--%>
                                                 </td>
+
+                                                <td style="text-align: right; padding-right: 7px; width:70px" runat="server" id="TdRetIVA" visible="false" >
+                                                    
+                                                </td>
+                                                <td style="text-align: right; padding-right: 7px; width:70px" runat="server" id="TdRetISR" visible="false">
+                                                    
+                                                </td>
+
                                                 <td style="text-align: right; padding-right: 7px;">
                                                     <asp:TextBox runat="server" ID="Total" ClientIDMode="Static" CssClass="alineanum" Width="55px" Height="24px" Enabled="false"></asp:TextBox>
                                                 </td>
@@ -927,7 +939,9 @@
                                                         <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                                         <asp:ListItem Text="*** Actualizar listado de Productos o Servicios ***" Value="-2"></asp:ListItem>
                                                     </asp:DropDownList>
-                                                    <asp:RequiredFieldValidator ID="RFVPSEdit" runat="server" ControlToValidate="DdlPS" InitialValue="-1" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto o Servicio''</b> es necesario, por favor seleccione uno." ValidationGroup="grpEditar"></asp:RequiredFieldValidator>
+                                                    <asp:RequiredFieldValidator ID="RFVPSEdit" runat="server" ControlToValidate="DdlPS" InitialValue="-1"  Display="None"
+                                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto o Servicio''</b> es necesario, por favor seleccione uno." 
+                                                        ValidationGroup="grpEditar"></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCOPSEdit" runat="server" HighlightCssClass="vco" TargetControlID="RFVPSEdit" Width="300px"></ajax:ValidatorCalloutExtender>
                                                 </EditItemTemplate>
                                             </asp:TemplateField>
@@ -936,7 +950,8 @@
                                                 <EditItemTemplate>
                                                     <%--DataTextField--%>
                                                     <asp:DropDownList ID="CboUnidadMedidaEdit" runat="server" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida" Style="width: 100%; max-width: 150px;"></asp:DropDownList>
-                                                    <asp:RequiredFieldValidator ID="RFVUnidadMedidaEdit" runat="server" InitialValue="-1" ControlToValidate="CboUnidadMedidaEdit" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad de Medida''</b> es necesario, por favor ingréselo." ValidationGroup="grpEditar"></asp:RequiredFieldValidator>
+                                                    <asp:RequiredFieldValidator ID="RFVUnidadMedidaEdit" runat="server" InitialValue="-1" ControlToValidate="CboUnidadMedidaEdit"  Display="None"
+                                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad de Medida''</b> es necesario, por favor ingréselo." ValidationGroup="grpEditar"></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCEUnidadMedidaEdit" runat="server" HighlightCssClass="vco" TargetControlID="RFVUnidadMedidaEdit" Width="300px"></ajax:ValidatorCalloutExtender>
                                                 </EditItemTemplate>
                                                 <ItemTemplate>
@@ -973,7 +988,8 @@
                                                         <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
                                                     </asp:DropDownList>
 
-                                                    <asp:RequiredFieldValidator ValidationGroup="grpEditar" ID="RFVSubProyecto" runat="server" InitialValue="-1" ControlToValidate="DdlSubProyectoEdit" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+                                                    <asp:RequiredFieldValidator ValidationGroup="grpEditar" ID="RFVSubProyecto" runat="server" InitialValue="-1" ControlToValidate="DdlSubProyectoEdit" Display="None"
+                                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCORFVSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
 
                                                   
@@ -1028,21 +1044,37 @@
 
                                             <%-- 8 --%>
                                             <asp:TemplateField>
-                                                <ItemTemplate>
-                                                    <%--<asp:Literal ID="LtlIva" runat="server" Text='<%#  If(Not IsDBNull(Eval("IVA")), If(Eval("IVA").ToString <> "0", String.Concat(Eval("IVA", "{0:#,##0.00####}"), "<br>", Eval("IVAPorcentaje", "{0:0.### %}")), ""), "")  %>'></asp:Literal>--%>
+                                                <ItemTemplate>                                                    
                                                     <asp:Literal ID="LtlIva" runat="server" Text='<%#  If(Not IsDBNull(Eval("IVA")), If(Eval("IVA").ToString <> "0", String.Concat(Eval("IVA", "{0:#,##0.00####}"), "<br>", If(Not IsDBNull(Eval("IVAPorcentaje")) AndAlso Decimal.Parse(Eval("IVAPorcentaje").ToString) > 0.10001, "16.00 %", Eval("IVAPorcentaje", "{0:0.### %}"))), ""), "")  %>'></asp:Literal>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Right" />
                                             </asp:TemplateField>
-                                        
+
                                             <%-- 9 --%>
-                                            <asp:TemplateField>
-                                                <ItemTemplate>
-                                                    <asp:Literal ID="LtlTotal" runat="server" Text='<%# If(Not IsDBNull(Eval("Importe")) AndAlso CDbl(Eval("Importe").ToString) <> -1, Eval("Total", "{0:#,##0.00####}"), "") %>'></asp:Literal>
+                                            <asp:TemplateField HeaderStyle-Width="70px">
+                                                <ItemTemplate>                                                    
+                                                    <asp:Literal ID="LtlRetIVA" runat="server" Text='<%#  If(Not IsDBNull(Eval("RetIVA")), If(Eval("RetIVA").ToString <> "0", String.Concat(Eval("RetIVA", "{0:#,##0.00}"), "<br>", If(Not IsDBNull(Eval("RetIVAPorcentaje")) AndAlso Decimal.Parse(Eval("RetIVAPorcentaje").ToString) > 0.10001, "16.00 %", Eval("RetIVAPorcentaje", "{0:0.## %}"))), ""), "")  %>'></asp:Literal>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Right" />
                                             </asp:TemplateField>
                                             <%-- 10 --%>
+                                            <asp:TemplateField HeaderStyle-Width="70px">
+                                                <ItemTemplate>                                                    
+                                                    <asp:Literal ID="LtlRetISR" runat="server" Text='<%#  If(Not IsDBNull(Eval("RetISR")), If(Eval("RetISR").ToString <> "0", String.Concat(Eval("RetISR", "{0:#,##0.00}"), "<br>", If(Not IsDBNull(Eval("RetISRPorcentaje")) AndAlso Decimal.Parse(Eval("RetISRPorcentaje").ToString) > 0.10001, "16.00 %", Eval("RetISRPorcentaje", "{0:0.## %}"))), ""), "")  %>'></asp:Literal>
+                                                </ItemTemplate>
+                                                <ItemStyle HorizontalAlign="Right" />
+                                            </asp:TemplateField>
+
+
+                                        
+                                            <%-- 11 --%>
+                                            <asp:TemplateField>
+                                                <ItemTemplate>
+                                                    <asp:Literal ID="LtlTotal" runat="server" Text='<%# If(Not IsDBNull(Eval("Importe")) AndAlso CDbl(Eval("Importe").ToString) <> -1, Eval("Total", "{0:#,##0.00}"), "") %>'></asp:Literal>
+                                                </ItemTemplate>
+                                                <ItemStyle HorizontalAlign="Right" />
+                                            </asp:TemplateField>
+                                            <%-- 12 --%>
                                             <asp:TemplateField>
 
 
@@ -1064,27 +1096,27 @@
                                                    
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 11 --%>
+                                            <%-- 13 --%>
                                             <asp:TemplateField Visible="false">
                                                 <ItemTemplate>                                                    
                                                     <asp:Literal ID="LtlLiga" runat="server"></asp:Literal>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 12  --%>
+                                            <%-- 14  --%>
                                             <asp:TemplateField Visible="false">
                                                 <ItemTemplate>
                                                     <asp:Literal ID="LtlCompra" runat="server" Visible='<%# Eval("CveCompra").ToString <> "" %>'></asp:Literal>
                                                     <asp:LinkButton OnClick="LnkCompra_Click" ID="LnkCompra" Visible="false" runat="server">   Ver</asp:LinkButton>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 13 --%>
+                                            <%-- 15 --%>
                                             <asp:TemplateField HeaderText="Clasificación" Visible="False" ShowHeader="true">
                                                 <ItemTemplate>
                                                     <asp:DropDownList runat="server" ID="DdlAC5" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="CodigoClasificacion" DataValueField="CveClasificacion" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
 
-                                            <%-- 14 --%>
+                                            <%-- 16 --%>
                                             <asp:TemplateField HeaderText="Programa Operativo" Visible="False" ShowHeader="true">
                                                 <ItemTemplate>
                                                     <asp:HiddenField runat="server" ID="HdnCvePresupuestoEgreso" Value="-1" />
@@ -1096,19 +1128,19 @@
                                                 </ItemTemplate>
                                             </asp:TemplateField>
 
-                                            <%-- 15 --%>
+                                            <%-- 17 --%>
                                             <asp:TemplateField HeaderText="Unidad Administrativa" Visible="False" ShowHeader="true">
                                                 <ItemTemplate>
                                                     <asp:DropDownList runat="server" ID="DdlAC2" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="UnidadAdministrativa" DataValueField="CveUnidadAdministrativa" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 16 --%>
+                                            <%-- 18 --%>
                                             <asp:TemplateField HeaderText="Fuente Financiamiento" Visible="False" ShowHeader="true">
                                                 <ItemTemplate>
                                                     <asp:DropDownList runat="server" ID="DdlAC3" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="FuenteFinanciamiento" DataValueField="CveFuenteFinanciamiento" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 17 --%>
+                                            <%-- 19 --%>
                                             <asp:TemplateField HeaderText="Tipo Gasto" Visible="False" ShowHeader="true">
                                                 <ItemTemplate>
                                                     <asp:DropDownList runat="server" ID="DdlAC4" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="100px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
@@ -1211,7 +1243,9 @@
                                                             <tr runat="server" id="TrRetIVA" class="text-right" visible="false">
                                                                 <td><b>Ret IVA:</b></td>
                                                                 <td>
-                                                                    <asp:TextBox ID="TxtRetIVA" ClientIDMode="Static" onkeyup="FormatoMoneda(this);SumaTotal();" Width="100px" onblur="AplicaRetIVAGeneral();" Font-Size="10.5" BackColor="#f7f7f7" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" />
+                                                                     
+                                                                    <asp:TextBox ID="TxtRetIVA" ClientIDMode="Static" Width="100px"  Enabled="false"   
+                                                                        Font-Size="10.5" BackColor="#eeeeee" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" />
                                                                     <asp:Button Text="" Style="display: none" ClientIDMode="Static" ID="BtnLimpiarRetIVA" OnClick="BtnLimpiarRetIVA_Click" runat="server" />
                                                                     <asp:Button Text="" Style="display: none" ClientIDMode="Static" ID="BtnAplicarRetIVA" OnClick="BtnAplicarRetIVA_Click" runat="server" />
                                                                     <asp:HiddenField ClientIDMode="Static" Value="0" runat="server" ID="HdnRetIVA" />
@@ -1220,7 +1254,8 @@
                                                             <tr runat="server" id="TrRetISR" class="text-right" visible="false">
                                                                 <td><b>Ret ISR:</b></td>
                                                                 <td>
-                                                                    <asp:TextBox ID="TxtRetISR" ClientIDMode="Static" onkeyup="FormatoMoneda(this);SumaTotal();" Width="100px" onblur="AplicaRetISRGeneral();" Font-Size="10.5" BackColor="#f7f7f7" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" />
+                                                                    <asp:TextBox ID="TxtRetISR" ClientIDMode="Static"   Width="100px"   Enabled="false"   
+                                                                        Font-Size="10.5" BackColor="#eeeeee" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" />
                                                                     <asp:Button Text="" Style="display: none" ClientIDMode="Static" ID="BtnAplicarRetISR" OnClick="BtnAplicarRetISR_Click" runat="server" />
                                                                     <asp:HiddenField ClientIDMode="Static" Value="0" runat="server" ID="HdnRetISR" />
                                                                 </td>

OC/OC.aspx.vb

@@ -635,7 +635,7 @@ Partial Class OC_OC
                 End If
 
                 CargaDatos(CveOrdenCompra)
-
+                ConfiguraRetencionesProveedor()
             Else
                 LIContratos.Visible = True
                 EsNuevo = True
@@ -880,7 +880,7 @@ Partial Class OC_OC
                 If (UsuarioActual.TienePermisoProceso(203)) AndAlso Dr("TipoTermino").ToString.ToEntero = 3 AndAlso Dr("Tipo").ToString = "OC" Then
                     CargaClasificaciones()
                     If Not UsuarioActual.TienePermisoProceso(131) Then DesHabilitar()
-                    GvD.Columns(10).Visible = True
+                    GvD.Columns(12).Visible = True
                     LbAgregar.Enabled = True
                     txtPrecioUnitario.Enabled = True
                     DdlProyecto.Enabled = True
@@ -1642,7 +1642,7 @@ Partial Class OC_OC
                             SubProyectosNoAutorizados.Add(Row("SubProyecto").ToString)
                             CboE.BackColor = Drawing.Color.Silver
                             CboE.Enabled = False
-                            GvD.Columns(10).Visible = False 'No permitir la edicion
+                            GvD.Columns(12).Visible = False 'No permitir la edicion
                             'GvD.Columns(9).Visible = True
                             ChkCotizacion.Enabled = False
                             TxtDescrip.Enabled = False
@@ -1678,7 +1678,7 @@ Partial Class OC_OC
             'EDICION
             'CUANDO EL LA REGISRO Y TIENE ACCESO A ESE ESTATUS
             If objOC.CveUsuario = UsuarioActual.CveUsuario AndAlso (DtEstatusUsuarios.FiltraParametros(String.Format(" CveEstatus = {0}", CveEstatus)).Rows.Count >= 1 Or CveEstatus = 0) Then
-                GvD.Columns(10).Visible = True 'No permitir la edicion
+                GvD.Columns(12).Visible = True 'No permitir la edicion
                 If ChkCotizacion.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
                     ChkCotizacion.Enabled = False
                 Else
@@ -1767,7 +1767,7 @@ Partial Class OC_OC
 
             If EditarOC Then
                 CboE.Enabled = True
-                GvD.Columns(10).Visible = True 'Permitir la edicion               
+                GvD.Columns(12).Visible = True 'Permitir la edicion               
                 ChkCotizacion.Enabled = True
                 TxtDescrip.Enabled = True
                 TxtJustificacion.Enabled = True
@@ -2321,9 +2321,9 @@ Partial Class OC_OC
             If IEPSPSIVA > 0 Then TotalGravado = Total * (1 + IEPSPSIVA) 'grava para iva, el importe del IEPS
             dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDecimal * TotalGravado, 2)
             dr("RetIVAPorcentaje") = RetIVA
-            dr("RetIVA") = Math.Round(RetIVA * Total, 2)
+            dr("RetIVA") = (RetIVA * Total).RoundSQL(6)
             dr("RetISRPorcentaje") = RetISR
-            dr("RetISR") = Math.Round(RetISR * Total, 2)
+            dr("RetISR") = (RetISR * Total).RoundSQL(6)
             dr("CveClasificacion") = CveClasificacion
             dr("UM") = UM
             dr("Clasificacion") = Clasificacion
@@ -3785,11 +3785,11 @@ Partial Class OC_OC
                 'If DtEstatusUsuarios.FiltraParametros(String.Format("CveSubProyecto = {0}", e.Row.DBCampo("CveSubProyecto"))).Rows.Count = 0 Then e.Row.FCImageButton("ImgEdit").Visible = False : e.Row.FCImageButton("ImgDelete").Visible = False
 
                 If TipoOC = "OC" AndAlso Not IsDBNull(e.Row.DBCampo("CveOrdenCompraPadre")) AndAlso IsNumeric(e.Row.DBCampo("CveOrdenCompraPadre")) Then
-                    GvD.Columns(11).Visible = True
+                    GvD.Columns(13).Visible = True
                     lblTipoPadreHijo.Visible = True
                     e.Row.FCLiteral("LtlLiga").Text = String.Format("<a class='Texto'  href='/OC/OC.aspx?OC={0}'>{1}</a>", e.Row.DBCampo("CveOrdenCompraPadre"), e.Row.DBCampo("FolioOrdenCompraPadre"))
                 ElseIf TipoOC = "REQ" AndAlso Not IsDBNull(e.Row.DBCampo("CveOrdenCompraHija")) AndAlso IsNumeric(e.Row.DBCampo("CveOrdenCompraHija")) Then
-                    GvD.Columns(11).Visible = True
+                    GvD.Columns(13).Visible = True
                     lblTipoPadreHijo.Visible = True
                     e.Row.FCLiteral("LtlLiga").Text = String.Format("<a class='Texto' href='/OC/OC.aspx?OC={0}'>{1}</a>", e.Row.DBCampo("CveOrdenCompraHija"), e.Row.DBCampo("FolioOrdenCompraHija"))
                 End If
@@ -3803,7 +3803,7 @@ Partial Class OC_OC
                     If ObjOC.DtResultados.Rows.Count = 1 Then
                         e.Row.FCLiteral("LtlCompra").Text = String.Format("<a class='Texto' target='_blank' href='../Compras/Compras.aspx?CveCompra={0}'>{1}</a>", ObjOC.DtResultados.FiltroPrimeroValor("CveCompra"), e.Row.DBCampo("FolioCompra"))
                         LblCompra.Visible = True
-                        GvD.Columns(12).Visible = True
+                        GvD.Columns(14).Visible = True
                     ElseIf ObjOC.DtResultados.Rows.Count > 1 Then
                         LblCompra.Visible = True
                         e.Row.FCLiteral("LtlCompra").Visible = False
@@ -3812,7 +3812,7 @@ Partial Class OC_OC
                         'e.Row.FCLinkButton("LnkCompra").CausesValidation = False
                         'e.Row.FCLinkButton("LnkCompra").OnClientClick = "return true;"  'return true;
                         e.Row.FCLinkButton("LnkCompra").CommandArgument = e.Row.DBCampo("CveOrdenCompraDetalle")
-                        GvD.Columns(12).Visible = True
+                        GvD.Columns(14).Visible = True
                     Else
                         e.Row.FCLiteral("LtlCompra").Text = ""
                         LblCompra.Visible = True
@@ -4183,9 +4183,9 @@ Partial Class OC_OC
         If IEPSPSIVA > 0 Then TotalGravado = Total * (1 + IEPSPSIVA) 'grava para iva, el importe del IEPS
         dr(0)("IVA") = Math.Round(dr(0)("IVAPorcentaje").ToString.ToDecimal * TotalGravado, 2)
 
-        dr(0)("RetIVA") = RetIVA * Total
+        dr(0)("RetIVA") = (RetIVA * Total).RoundSQL(6)
         dr(0)("RetIVAPorcentaje") = RetIVA
-        dr(0)("RetISR") = RetISR * Total
+        dr(0)("RetISR") = (RetISR * Total).RoundSQL(6)
         dr(0)("RetISRPorcentaje") = RetISR
 
 
@@ -4242,8 +4242,8 @@ Partial Class OC_OC
         DdlProveedorSucursal.Enabled = False
         DdlProveedorContacto.Enabled = False
 
-        GvD.Columns(10).Visible = False
-        GvD.Columns(11).Visible = True
+        GvD.Columns(12).Visible = False
+        GvD.Columns(13).Visible = True
 
         If Not (BtnCancelarPrevio.Enabled And (CveEstatus <> CveEstatusFinalError OrElse CveEstatus <> CveEstatusFinalOK OrElse UsuarioActual.TienePermisoProceso(148).ToEntero > 0)) Then
             BtnCancelarPrevio.Enabled = False
@@ -4407,11 +4407,11 @@ Partial Class OC_OC
         'Seccion Grid
         If VerificaPresupuesto Then
             GvD.Width = 1750
-            GvD.Columns(13).Visible = True
-            GvD.Columns(14).Visible = True
             GvD.Columns(15).Visible = True
             GvD.Columns(16).Visible = True
             GvD.Columns(17).Visible = True
+            GvD.Columns(18).Visible = True
+            GvD.Columns(19).Visible = True
 
             'Panel General
             UpPresupuestosAC.Visible = True
@@ -4438,11 +4438,11 @@ Partial Class OC_OC
 
         Else
             'GvD.Width = Width.ToEntero
-            GvD.Columns(13).Visible = False
-            GvD.Columns(14).Visible = False
             GvD.Columns(15).Visible = False
             GvD.Columns(16).Visible = False
             GvD.Columns(17).Visible = False
+            GvD.Columns(18).Visible = False
+            GvD.Columns(19).Visible = False
 
             UpPresupuestosAC.Visible = False
         End If
@@ -6793,11 +6793,11 @@ Partial Class OC_OC
         CboE_SelectedIndexChanged(CboE, EventArgs.Empty)
 
 
-        GvD.Columns(10).Visible = True 'Permitir la edicion    
+        GvD.Columns(12).Visible = True 'Permitir la edicion    
         lblTipoPadreHijo.Visible = False
-        GvD.Columns(11).Visible = False
+        GvD.Columns(13).Visible = False
         LblCompra.Visible = False
-        GvD.Columns(12).Visible = False
+        GvD.Columns(14).Visible = False
 
         ChkCotizacion.Visible = True
         ChkCotizacion.Enabled = True
@@ -6926,7 +6926,7 @@ Partial Class OC_OC
         ScriptManager.RegisterStartupScript(Me, GetType(Page), "anioactual", script, True)
         VerificaPresupuesto = False
         RVSubProyecto.Enabled = If(RequiereSubProyecto = True, True, False)
-        GvD.Columns(11).Visible = False
+        GvD.Columns(13).Visible = False
         CargaComboCFDI()
         CargaMonedas()
         'CargaClasificaciones()
@@ -8859,4 +8859,67 @@ Partial Class OC_OC
         End If
 
     End Sub
+
+    Protected Sub DdlProveedores_selectedindexchange(sender As Object, e As EventArgs)
+        ConfiguraRetencionesProveedor()
+    End Sub
+
+    Private Sub ConfiguraRetencionesProveedor()
+        '9 y 10
+
+        ThRetIVA.Visible = False
+        ThRetISR.Visible = False
+
+        TdRetIVA.Visible = False
+        TdRetISR.Visible = False
+
+        GvD.Columns(9).Visible = False
+        GvD.Columns(10).Visible = False
+
+
+        Dim MostrarColRetIVA As Boolean = False
+        Dim MostrarColRetISR As Boolean = False
+
+        Dim CveProvedorSelecionado As Integer = DdlProveedores.SelectedValue.ToEntero
+
+        If CveProvedorSelecionado > 0 Then
+
+            Dim ObjProveedor As New ClsCompProveedores()
+
+            If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProvedorSelecionado, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+
+
+                If ObjProveedor.CveRegimenFiscal = 23 Then
+
+                    If ObjProveedor.RetIVA > 0 Then
+                        MostrarColRetIVA = True
+                    End If
+
+                    If ObjProveedor.RetISR > 0 Then
+                        MostrarColRetISR = True
+                    End If
+
+                End If
+
+
+            End If
+
+            ObjProveedor.Dispose()
+
+        End If
+
+
+        ThRetIVA.Visible = MostrarColRetIVA
+        ThRetISR.Visible = MostrarColRetISR
+
+        TdRetIVA.Visible = MostrarColRetIVA
+        TdRetISR.Visible = MostrarColRetISR
+
+        GvD.Columns(9).Visible = MostrarColRetIVA
+        GvD.Columns(10).Visible = MostrarColRetISR
+
+        UPPDetalle.Update()
+
+    End Sub
+
 End Class

OI/GraficaGantt.aspx

@@ -1,216 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="GraficaGantt.aspx.vb" Inherits="OI_GraficaGantt" %>
-
-<asp:Content ID="ContentCP" ContentPlaceHolderID="CP" Runat="Server">
-    <link href="../Metronic/GraficaGantt/dhtmlxgantt.css" rel="stylesheet" />
-    <style>
-        .scalasgants input:checked + label{
-                border-bottom: 2px solid #45B6AF;
-        }
-        .scalasgants input{
-            display:none;
-        }
-        .scalasgants label{
-            padding:5px;
-            padding-bottom:10px;
-        }
-        .scalasgants label:hover {
-            background-color: rgba(0,0,0,0.03);
-                border-bottom: 2px solid #89FFF3;
-        }
-    </style>
-</asp:Content>
-<asp:Content ID="ContentCss" ContentPlaceHolderID="Css" Runat="Server">
-</asp:Content>
-<asp:Content ID="ContentE" ContentPlaceHolderID="E" Runat="Server">
-</asp:Content>
-<asp:Content ID="ContentHB" ContentPlaceHolderID="HB" Runat="Server">
-</asp:Content>
-<asp:Content ID="ContentH" ContentPlaceHolderID="H" Runat="Server">
-</asp:Content>
-<asp:Content ID="ContentC" ContentPlaceHolderID="C" Runat="Server">
-    <%--<asp:UpdatePanel ID="UPfiltros" runat="server"><ContentTemplate>--%>
-            <div class="portlet solid  grey-cascade portlet-filter">
-                <div class="portlet-title portlet-filterT smalltitle">
-                    <div class="tools">
-                        <asp:Button ID="BtnConsultar" Text="Consultar" runat="server" CssClass="btn btn-default" />
-                    </div>
-                    <div class="titlefiltros  caption ">
-                        <div class="row">
-                            <label class="col-md-1" style="width: 70px;">De:</label>
-                            <div class="col-md-2">
-                                <asp:DropDownList ID="DdlUsuario" CssClass="form-control input-sm" runat="server" DataTextField="Nombre" DataValueField="CveUsuario">
-                                </asp:DropDownList>
-                            </div>
-                            <%--<label class="col-md-1" style="width: 70px;">Para:</label>
-                            <div class="col-md-2">
-                                <asp:DropDownList ID="DDlPara" CssClass="form-control input-sm" runat="server" DataTextField="Nombre" DataValueField="CveUsuario">
-                                </asp:DropDownList>
-                            </div>--%>
-                              <div class="col-md-2" >
-                                <div class="row">
-                                    <label class="col-md-3 truncate">Revisión:</label>
-                                    <div class="col-md-9">
-                                        <asp:DropDownList ID="DdlRevision" CssClass="form-control input-sm" runat="server" DataTextField="Revision" DataValueField="CveRevision">
-                                        </asp:DropDownList>
-                                    </div>
-                                </div>
-                            </div>
-                            <div class="col-md-2"  >
-                                <div class="row">
-                                    <label class="col-md-5 truncate">Primer Nivel:</label>
-                                    <div class="col-md-7">
-                                        <asp:DropDownList ID="DdlPrimerNivel" AutoPostBack="true" CssClass="form-control input-sm" runat="server" DataTextField="Asunto" DataValueField="CveEvento">
-                                        </asp:DropDownList>
-                                    </div>
-                                </div>
-                            </div>
-
-                            <div class="col-md-2" >
-                                <div class="row">
-                                    <label class="col-md-3 truncate">Segundo Nivel:</label>
-                                    <div class="col-md-9">
-                                        <asp:DropDownList ID="DdlSegundoNivel" CssClass="form-control input-sm" runat="server" DataTextField="Asunto" DataValueField="CveEvento">
-                                        </asp:DropDownList>
-                                    </div>
-                                </div>
-                            </div>
-                            <div class="col-md-2" runat="server" id="TdSubTotales" visible="false">
-                                <div class="row">
-                                    <label class="col-md-3 truncate">SubTotales:</label>
-                                    <div class="col-md-9">
-                                        <asp:DropDownList ID="DdlSubtotales" CssClass="form-control input-sm" runat="server">
-                                            <asp:ListItem Text="Sin Subtotales" Value="1"></asp:ListItem>
-                                            <asp:ListItem Text="Trimestral" Value="2"></asp:ListItem>
-                                            <asp:ListItem Text="Cuatrimestral" Value="3"></asp:ListItem>
-                                        </asp:DropDownList>
-                                    </div>
-                                </div>
-                            </div>
-
-                        </div>
-                    </div>
-                </div>
-            </div> 
-    <%--</ContentTemplate></asp:UpdatePanel>--%>
-    <br />
-        <asp:HiddenField ID="Asunto" runat="server" />
-        <asp:HiddenField ID="FechaInicio" runat="server" />
-        <asp:HiddenField ID="Duracion" runat="server" />
-        <asp:HiddenField ID="EventoPadre" runat="server" />
-        <asp:Button ID="NewUser" runat="server" CssClass="hidden" Text="Button" />
-
-        <div class="portlet light calendar ">
-            <div class="portlet-title ">
-                <div class="caption">
-                    <i class="icon-calendar font-green-sharp"></i>
-                    <span class="caption-subject font-green-sharp bold uppercase">TaReaS</span>
-                </div>
-                <div class="actions scalasgants">
-                    <input type="radio" id="scaleD" name="scale" value="1" /><label for="scaleD">Día</label>
-                    <input type="radio" id="scaleS" name="scale" value="2" /><label for="scaleS">Semana</label>
-                    <input type="radio" id="scaleM" name="scale" value="3" checked="checked" /><label for="scaleM">Mes</label>
-                    <input type="radio" id="scaleA" name="scale" value="4" /><label for="scaleA">Año</label>
-                </div>
-            </div>
-            <div class="portlet-body">
-                <div id="gantt_here" style='width: 100%; height: 600px;'></div>
-            </div>
-        </div> 
-</asp:Content>
-<asp:Content ID="ContentJS" ContentPlaceHolderID="JS" Runat="Server">
-    <script src="../Metronic/GraficaGantt/dhtmlxgantt.js"></script>
-    
-<script type="text/javascript"> 
-	function setScaleConfig(value){
-		switch (value) {
-			case "1":
-				gantt.config.scale_unit = "day";
-				gantt.config.step = 1;
-				gantt.config.date_scale = "%d %M";
-				gantt.config.subscales = [];
-				gantt.config.scale_height = 27;
-				gantt.templates.date_scale = null;
-				break;
-			case "2":
-				var weekScaleTemplate = function(date){
-					var dateToStr = gantt.date.date_to_str("%d %M");
-					var endDate = gantt.date.add(gantt.date.add(date, 1, "week"), -1, "day");
-					return dateToStr(date) + " - " + dateToStr(endDate);
-				};
-
-				gantt.config.scale_unit = "week";
-				gantt.config.step = 1;
-				gantt.templates.date_scale = weekScaleTemplate;
-				gantt.config.subscales = [
-					{unit:"day", step:1, date:"%D" }
-				];
-				gantt.config.scale_height = 50;
-				break;
-			case "3":
-				gantt.config.scale_unit = "month";
-				gantt.config.date_scale = "%F, %Y";
-				gantt.config.subscales = [
-					{unit:"day", step:1, date:"%j, %D" }
-				];
-				gantt.config.scale_height = 50;
-				gantt.templates.date_scale = null;
-				break;
-			case "4":
-				gantt.config.scale_unit = "year";
-				gantt.config.step = 1;
-				gantt.config.date_scale = "%Y";
-				gantt.config.min_column_width = 50;
-
-				gantt.config.scale_height = 90;
-				gantt.templates.date_scale = null;
-
-				
-				gantt.config.subscales = [
-					{unit:"month", step:1, date:"%M" }
-				];
-				break;
-		}
-	}
-	var datagant =<%= DTTogant()%>;
-	
-	function convertDate(inputFormat) {
-	    function pad(s) { return (s < 10) ? '0' + s : s; }
-	    var d = new Date(inputFormat);
-	    return [pad(d.getDate()), pad(d.getMonth() + 1), d.getFullYear()].join('/');
-	}
-
-	Sys.Application.add_load(function (s, e) {
-	    setScaleConfig('3');
-	   // gantt.config.sort = true;
-	    gantt.init("gantt_here");
-	    gantt.parse(datagant);
-	    gantt.attachEvent("onLightbox", function (task_id){
-	        AbrirVentana('/OI/EventoDetalle.aspx?Masterimpoup=true&CveTipoEvento=3&CveEventoPadre='+task_id,900,630,'Proyecto');
-	        gantt.hideLightbox();
-	    });
-	    
-	    var func = function (e) {
-	        e = e || window.event;
-	        var el = e.target || e.srcElement;
-	        var value = el.value;
-	        setScaleConfig(value);
-	        gantt.render();
-	    };
-
-	    var els = document.getElementsByName("scale");
-	    for (var i = 0; i < els.length; i++) {
-	        els[i].onclick = func;
-	    }
-	    gantt.attachEvent("onAfterTaskAdd", function (id, item) {
-	        // console.log(item.text + " itemstart:" + convertDate(item.start_date) + " " + item.start_date + " duration:" + item.duration + " pogresss:" + item.progress + " Parent:" + item.parent);
-	        $('#<%= Asunto.ClientID%>').val(item.text);
-	        $('#<%= FechaInicio.ClientID%>').val(convertDate(item.start_date));
-	        $('#<%= EventoPadre.ClientID%>').val(item.parent);
-	        $('#<%= Duracion.ClientID%>').val(item.duration);
-	        $('#<%= NewUser.ClientID%>').click();
-	    });
-	});
-</script> 
-
-</asp:Content>
-

OI/GraficaGantt.aspx.vb

@@ -1,131 +0,0 @@
-Imports Extensiones
-Imports System.Data
-
-Partial Class OI_GraficaGantt
-    Inherits ClsPaginas
-
-    Private Property DTDatos As DataTable
-        Get
-            Return CType(ViewState("DTDatos"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DTDatos") = value
-        End Set
-    End Property
-
-    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If Not IsPostBack Then
-
-            DdlSegundoNivel.DataBind()
-            DdlSegundoNivel.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlPrimerNivel.DataBind()
-            DdlPrimerNivel.Items.Insert(0, New ListItem("Todos", "-1"))
-            CargaCombos()
-            CargaEventos()
-            CargaComboP1()
-        End If
-    End Sub
-
-
-    Private Sub CargaCombos()
-        'usuarios 
-        DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
-        DdlUsuario.DataBind()
-        DdlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlUsuario.SelectedValue = -1
-        'Revision
-        Dim ObjOI As New ClsOIEventos
-
-        If ObjOI.GetRevisionesEventos(UsuarioActual.CveEmpresa) Then 
-            DdlRevision.DataSource = ObjOI.DtResultados 
-            DdlRevision.DataBind()
-        End If
-        ObjOI.Dispose()
-        DdlRevision.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlRevision.SelectedValue = -1  
-    End Sub
-
-    Protected Sub CargaEventos()
-        Dim de As Integer = DdlUsuario.SelectedValue
-        Dim cverevision As Integer = DdlRevision.SelectedValue
-        Dim objoi As New ClsOIEventos
-        If objoi.GetEventosProyecto(UsuarioActual.CveEmpresa, de, cverevision, DdlPrimerNivel.SelectedValue, DdlSegundoNivel.SelectedValue) Then
-            DTDatos = objoi.DtResultados
-        End If
-        objoi.Dispose()
-    End Sub
-    Private Sub CargaComboP1()
-        DdlPrimerNivel.Items.Clear()
-        DdlPrimerNivel.DataSource = DTDatos.FiltraParametros("CveEventoPadre = 0")
-        DdlPrimerNivel.DataBind()
-        DdlPrimerNivel.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSegundoNivel.Items.Clear() 
-        DdlSegundoNivel.DataBind()
-        DdlSegundoNivel.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub
-
-    Private Sub CargaComboP2()
-        DdlSegundoNivel.Items.Clear()
-        DdlSegundoNivel.DataSource = DTDatos.FiltraParametros(String.Format("CveEventoPadre = {0} OR {0}=-1", DdlPrimerNivel.SelectedValue))
-        DdlSegundoNivel.DataBind()
-        DdlSegundoNivel.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub
-    Protected Sub DdlPrimerNivel_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPrimerNivel.SelectedIndexChanged
-        CargaComboP2()
-    End Sub
-    Public Function DTTogant() As String
-        Dim StrDatos As New StringBuilder
-        StrDatos.Append("{""data"": [ ")
-        Dim dttemp As DataTable = GetDatos()
-        If Not (dttemp Is Nothing) Then
-            For Each item As DataRow In dttemp.Rows '28-03-2013 
-                Dim duracion = DateDiff(DateInterval.Day, item("FechaInicio").ToString().ToDate(), item("FechaFin").ToString().ToDate())
-                If item("ISFhater").ToString = "1" Then
-                    StrDatos.AppendFormat("{{""id"": {0}, ""text"": ""{1}"", ""start_date"": ""{2}"",""type"":""Project"",  ""progress"": {4},""parent"":{5}, ""open"": true,""end_date"": ""{6}"",""users"":""{7}""}},", item("CveEvento").ToString, item("Asunto").ToString, If(item("FechaInicio").ToString <> "", item("FechaInicio").ToString().Substring(0, 10), ""), duracion, item("Avance").ToString.ToEntero / 100, item("CveEventoPadre").ToString().ToEntero, If(item("FechaFin").ToString <> "", item("FechaFin").ToString().Substring(0, 10), ""), item("UsuarioDe").ToString)
-                Else
-                    StrDatos.AppendFormat("{{""id"": {0}, ""text"": ""{1}"", ""start_date"": ""{2}"", ""duration"": ""{3}"", ""progress"": {4},""parent"":{5}, ""open"": true,""end_date"": ""{6}"",""users"":""{7}""}},", item("CveEvento").ToString, item("Asunto").ToString, If(item("FechaInicio").ToString <> "", item("FechaInicio").ToString().Substring(0, 10), ""), duracion, item("Avance").ToString.ToEntero / 100, item("CveEventoPadre").ToString().ToEntero, If(item("FechaFin").ToString <> "", item("FechaFin").ToString().Substring(0, 10), ""), item("UsuarioDe").ToString)
-                End If
-
-            Next
-        End If
-
-        Return StrDatos.ToString.Substring(0, StrDatos.ToString.Length - 1) & "]}"
-    End Function
-
-    Public Function GetDatos() As DataTable
-        Dim dt As DataTable = DTDatos.Copy
-
-        'If Not (DdlPrimerNivel.SelectedValue = -1 And DdlSegundoNivel.SelectedValue = -1) Then
-        '    dt.Clear()
-        'End If
-        Return dt
-    End Function
-
-
-    Protected Sub NewUser_Click(sender As Object, e As EventArgs) Handles NewUser.Click
-        Dim FechaI As Date = FechaInicio.Value.ToDate()
-        Dim Fechaf As Date = FechaI.AddDays(Duracion.Value.ToEntero)
-        Dim objOI As New ClsOIEventos
-        If objOI.AddEventoProyecto(Asunto.Value, Asunto.Value, 1, UsuarioActual.CveUsuario, -1, FechaI, Fechaf,
-                                   EventoPadre.Value.ToEntero, -1, "", -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario,-1,
-                                   UsuarioActual.CveEmpresa) Then
-            Dim newrow As DataRow = DTDatos.NewRow()
-            newrow("CveEvento") = objOI.CveEvento
-            newrow("Asunto") = Asunto.Value
-            newrow("FechaInicio") = FechaInicio.Value
-            newrow("FechaFin") = Fechaf.ToString("dd/MM/yyyy")
-            newrow("CveEventoPadre") = EventoPadre.Value
-            DTDatos.Rows.Add(newrow)
-        Else
-            Alert("No se logro agregar la tarea", TipoMensaje.MsgInformacion)
-
-        End If
-        objOI.Dispose()
-
-    End Sub
-
-    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
-        CargaEventos()
-        ' RegistraScript(String.Format("debugger;gantt.parse('{0}');datagant='{0}';", DTTogant()))
-    End Sub
-End Class

Ventas/RepABT.aspx

@@ -1,132 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepABT.aspx.vb" Inherits="Ventas_RepABT" %>
-
-<asp:Content ID="Content1" ContentPlaceHolderID="HB" runat="Server">
-</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="H" runat="Server">
-    <img src="/Imagenes/separador02.gif" alt="" />&nbsp;    
-    <asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="20px" Height="20px" />&nbsp;
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="CP" runat="Server">
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="CSS" runat="Server">
-</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="E" runat="Server">
-    <asp:Label ID="LbTitulo" Text="Reporte ABT" runat="server"></asp:Label>
-</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="JS" runat="Server">
-</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
-
-    <%--<asp:UpdatePanel runat="server" ID="UpFiltros" 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" CssClass="btn btn-default" Text="Consultar" runat="server" />
-                <a href="javascript;" class="expand" data-original-title="" title=""></a>
-            </div>
-            <div class="titlefiltros  caption ">
-                <div class="row">
-                    <label class="col-md-1">Ejercicio:</label>
-                    <div class="col-md-2">
-                        <asp:DropDownList ID="DdlEjercicio" CssClass="form-control input-sm input-small select2me" runat="server" >
-                            <asp:ListItem Text="2014" Value="2014"></asp:ListItem>
-                            <asp:ListItem Text="2015" Value="2015"></asp:ListItem>
-                        </asp:DropDownList></div>
-                    <label class="col-md-1">Periodo:</label>
-                    <div class="col-md-2">
-                        <asp:DropDownList ID="DdlPeriodo" CssClass="form-control input-small  input-sm select2me" runat="server" >
-                            <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
-                            <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
-                            <asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
-                            <asp:ListItem Text="Abril" Value="4"></asp:ListItem>
-                            <asp:ListItem Text="Mayo" Value="5"></asp:ListItem>
-                            <asp:ListItem Text="Junio" Value="6"></asp:ListItem>
-                            <asp:ListItem Text="Julio" Value="7"></asp:ListItem>
-                            <asp:ListItem Text="Agosto" Value="8"></asp:ListItem>
-                            <asp:ListItem Text="Septiembre" Value="9"></asp:ListItem>
-                            <asp:ListItem Text="Octubre" Value="10"></asp:ListItem>
-                            <asp:ListItem Text="Noviembre" Value="11"></asp:ListItem>
-                            <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
-                        </asp:DropDownList></div>
-                </div>
-            </div>
-        </div>
-    </div> 
-      <%--  </ContentTemplate>
-    </asp:UpdatePanel>--%>
-
-    <br />
-    <br />
-
-    <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
-        <ContentTemplate>
-            <asp:GridView ID="GvRepABT" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros">
-                <Columns>
-                    <asp:TemplateField HeaderText="Reporte ABT">
-                        <HeaderTemplate>
-                            <table  CssClass="table table-smallpadding Widthall">
-                                <tr>
-                                    <td style="width: 5%">Tipo</td>
-                                    <td style="width: 5%">Folio</td>
-                                    <td style="width: 25%">Cliente</td>
-                                    <td style="width: 25%">Sucursal</td>
-                                    <td style="width: 10%">Fecha Venta</td>
-                                    <td style="width: 5%">Mesa</td>
-                                    <td style="width: 5%"># Per</td>
-                                    <td style="width: 10%">Fecha Corte</td>
-                                    <td style="width: 10%" align="right">Total</td>
-                                </tr>
-                            </table>
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <table width="995px">
-                                <tr>
-                                    <td style="width: 5%"><b><%# Eval("TipoDocto") %></b></td>
-                                    <td style="width: 5%"><b><%# Eval("SerieFolio") %></b></td>
-                                    <td style="width: 25%"><b><%# Eval("Cliente")%></b></td>
-                                    <td style="width: 25%"><b><%# Eval("Sucursal")%></b></td>
-                                    <td style="width: 10%"><b><%# Eval("FechaVenta", "{0:d}")%></td>
-                                    <td style="width: 5%"><b><%# Eval("Mesa")%></b></td>
-                                    <td style="width: 5%"><b><%# Eval("NumeroPersonas")%></b></td>
-                                    <td style="width: 10%"><b><%# Eval("FechaCorte", "{0:d}")%></b></td>
-                                    <td style="width: 10%" align="right"><b><%# Eval("TotalRemision", "{0:F2}")%></b></td>
-                                </tr>
-                                <tr>
-                                    <td colspan="4"></td>
-                                    <td colspan="5" align="right">
-                                        <asp:GridView ID="GvD"  CssClass="table table-hover table-advance table-smallpadding Widthall" BorderWidth="0" GridLines="None" runat="server" AutoGenerateColumns="false" ShowHeader="false" >
-                                            <Columns>
-                                                <asp:BoundField DataField="Cantidad" HeaderText="Folio" ItemStyle-Width="5%"/>
-                                                <asp:BoundField DataField="Concepto" HeaderText="Concepto" ItemStyle-Width="80%"/>
-                                                <asp:BoundField DataField="TotalConcepto" HeaderText="TotalConcepto" DataFormatString="{0:F2}" ItemStyle-HorizontalAlign="right" ItemStyle-Width="15%"/>
-                                            </Columns>
-                                        </asp:GridView>
-                                    </td>
-                                </tr>
-                            </table>
-                            <%--<asp:Label ID="Label1" runat="server" Text='<%# Bind("TipoDocto") %>'></asp:Label>--%>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <%--              <asp:BoundField DataField="SerieFolio" HeaderText="Folio"/>
-            <asp:BoundField DataField="Cliente" HeaderText="Cliente"/>
-            <asp:BoundField DataField="Sucursal" HeaderText="Sucursal"/>
-            <asp:BoundField DataField="FechaVenta" HeaderText="Fecha Venta" DataFormatString="{0:dd/MM/yyyy}"/>
-            <asp:BoundField DataField="Mesa" HeaderText="Mesa"/>
-            <asp:BoundField DataField="NumeroPersonas" HeaderText="Número de Personas"/>
-            <asp:BoundField DataField="Cantidad" HeaderText="Cant."/>
-            <asp:BoundField DataField="Concepto" HeaderText="Concepto"/>
-            <asp:BoundField DataField="PU" HeaderText="P. U."/>
-            <asp:BoundField DataField="Descuento" HeaderText="Desct."/>
-            <asp:BoundField DataField="TotalConcepto" HeaderText="Total Concepto"/>
-            <asp:BoundField DataField="TotalRemision" HeaderText="Total Remisión"/>
-            <asp:BoundField DataField="FechaCorte" HeaderText="Fecha Corte" DataFormatString="{0:dd/MM/yyyy}"/>--%>
-                </Columns>
-                <HeaderStyle CssClass="Titulos" />
-                <AlternatingRowStyle CssClass="TextoAlterno" />
-                <RowStyle CssClass="Texto" />
-            </asp:GridView>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-</asp:Content>
-

Ventas/RepABT.aspx.vb

@@ -1,73 +0,0 @@
-Option Explicit On
-Option Strict On
-
-Imports Extensiones
-Imports System.Data
-
-Partial Class Ventas_RepABT
-    Inherits ClsPaginas
-
-    'Private ReadOnly Property Ejercicio As Integer
-    '    Get
-    '        Return ViewState("Ejercicio")
-    '    End Get
-    'End Property
-
-    'Private ReadOnly Property Periodo As Integer
-    '    Get
-    '        Return ViewState("Periodo")
-    '    End Get
-    'End Property
-
-    Private Property DtDatos As datatable
-        Get
-            Return CType(ViewState("DtDatos"), DataTable)
-        End Get
-        Set(value As datatable)
-            ViewState("DtDatos") = value
-        End Set
-    End Property
-
-    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If Not IsPostBack Then
-            'If Request("Ejercicio") IsNot Nothing AndAlso IsNumeric(Request("Ejercicio")) Then
-            '    ViewState("Ejercicio") = Request("Ejercicio")
-            'End If
-            'If Request("Periodo") IsNot Nothing AndAlso IsNumeric(Request("Periodo")) Then
-            '    ViewState("Periodo") = Request("Periodo")
-            'End If
-            DdlEjercicio.SelectedValue = Now.Year.ToString
-            DdlPeriodo.SelectedValue = Now.Month.ToString
-            CargaDatos()
-        End If
-    End Sub
-
-    Private Sub CargaDatos()
-        Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetRepABT(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero) Then
-            GvRepABT.DataSource = ObjVentas.DtResultados.FiltraParametros("", DistinctColumns:={"CveVenta", "TipoDocto", "SerieFolio", "Cliente", "SubProyecto", "FechaVenta", "Mesa", "NumeroPersonas", "TotalRemision", "FechaCorte"})
-        Else
-            GvRepABT.DataSource = Nothing
-        End If
-        DtDatos = ObjVentas.DtResultados
-        ObjVentas.Dispose()
-        GvRepABT.DataBind()
-    End Sub
-
-    Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
-        GvRepABT.ExportToExcel("Reporte ABT")
-    End Sub
-
-    Protected Sub GvRepABT_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRepABT.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-
-            e.Row.FCGridView("GvD").DataSource = DtDatos.FiltraParametros(String.Format("CveVenta = {0}", e.Row.DBCampo("CveVenta")))
-            e.Row.FCGridView("GvD").DataBind()
-        End If
-    End Sub
-
-    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
-        CargaDatos()
-        UpDatos.Update()
-    End Sub
-End Class

Ventas/Ventas.aspx.vb

@@ -2820,24 +2820,16 @@ Partial Class Ventas
                         CargaRelacionadasPendientes()
                     End If
 
-                    'DdlSucursal.Enabled = False
                     DdlSubProyectoDatos.Enabled = False
                     BtnEmitirImprimir.Visible = False
                     BtnCrearApartirDe.Visible = True
-                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                        BtnCrearApartirDe.Visible = False
-                    End If
-                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then BtnEditar.Visible = True
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then BtnCrearApartirDe.Visible = False
 
-                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue = "Egs" AndAlso LblSeTimbro.Text = "No" Then
-                        BtnEditar.Visible = True
-                    End If
-                    'DdlEstatus.Enabled = True
+                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") AndAlso LblSeTimbro.Text = "No" Then BtnEditar.Visible = True
 
                     DivFechaAnticipoCliente.Visible = True
                     TxtFechaAnticipoCliente.Text = Now.ToShortDateString
 
-
                     ImgAddObs.Visible = True
                     CargaEventoBitacora()
 
@@ -11406,6 +11398,7 @@ Partial Class Ventas
                             dr("CveUM") = drpss("CveUnidadMedida")
                             dr("SATClaveProdServ") = "84111506"
                             dr("SATClaveUM") = "ACT"
+                            dr("CodigoObjetoImpuesto") = drpss("CodigoObjetoImpuesto")
                             dr("Consec") = ii
 
                             dr("PorcentajeIVA") = Drr("PorcentajeIVA").ToString().ToDecimal
@@ -12665,8 +12658,7 @@ Partial Class Ventas
 
         End If
 
-
-        Dim totSubTotal As Decimal = If(UsuarioActual.Empresa.CvePAC = 3, Obj.DtDetalle.SUMD("Total"), Obj.SubTotal) 'Obj.SubTotal
+        Dim totSubTotal As Decimal = Obj.SubTotal
         Dim totIVA As Decimal = Obj.IVA
         Dim totRetIVA As Decimal = Obj.RetIVA
         Dim totRetISR As Decimal = Obj.RetISR
@@ -12700,7 +12692,7 @@ Partial Class Ventas
             Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString().ToDecimal,
                                                         .Descripcion = tPS,
                                                         .ValorUnitario = drr("PU").ToString().ToDecimal,
-                                                        .Importe = If(UsuarioActual.Empresa.CvePAC = 3, drr("Total").ToString().ToDecimal.RoundSQL(2), drr("TotalImporte").ToString().ToDecimal),
+                                                        .Importe = drr("TotalImporte").ToString().ToDecimal,
                                                         .Descuento = drr("Descuento").ToString().ToDecimal.RoundSQL(2),
                                                         .Unidad = drr("UM").ToString(),
                                                         .ClaveUnidad = drr("SATClaveUM").ToString(),
@@ -12712,6 +12704,7 @@ Partial Class Ventas
             'verifica suma subtotales
             If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal.RoundSQL(2) <> concepto.Importe.RoundSQL(2) AndAlso Math.Abs(totSubTotal.RoundSQL(2) - concepto.Importe.RoundSQL(2)) <= 0.01 Then 'proceso de ajusta de decimales
                 concepto.Importe = totSubTotal
+                'concepto.ValorUnitario = totSubTotal / concepto.Cantidad
             End If
             totSubTotal = totSubTotal - concepto.Importe
 
@@ -12849,25 +12842,12 @@ Partial Class Ventas
                     Timbre.Complementos.ComercioExterior11.Destinatario.Pais = RowDireccion("ClaveSATPais").ToString()
                     Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = RowDireccion("COM_NumRegIdTrib").ToString()
 
-                    'Timbre.Complementos.ComercioExterior11.Destinatario.Nombre = "FARMIND CORPORATION"
-                    'Timbre.Complementos.ComercioExterior11.Destinatario.Calle = "Kandaizumicho Bldg"
-                    'Timbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior = "7F"
-                    'Timbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior = ""
-                    'Timbre.Complementos.ComercioExterior11.Destinatario.Colonia = ""
-                    'Timbre.Complementos.ComercioExterior11.Destinatario.Localidad = "Chiyoda-ku"
-                    'Timbre.Complementos.ComercioExterior11.Destinatario.Referencia = ""
-                    'Timbre.Complementos.ComercioExterior11.Destinatario.Municipio = "Kandaizumicho"
-                    'Timbre.Complementos.ComercioExterior11.Destinatario.CP = "101-0024"
-                    'Timbre.Complementos.ComercioExterior11.Destinatario.Estado = "Tokyo"
-                    'Timbre.Complementos.ComercioExterior11.Destinatario.Pais = "JPN"
-                    'Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = "2010401130418"
                 End If
 
             Else
                 Timbre.Complementos.ComercioExterior11.Destinatario = Nothing
             End If
 
-
             'MERCANCIAS
             For Each Gvr As GridViewRow In GvComercioExterior.Rows
                 Dim mercancia As New CFDIComercioExterior11Mercancias With {.CantidadAduana = Gvr.FCTextBox("TxtCantidad").Text.ToDecimal,
@@ -12884,15 +12864,10 @@ Partial Class Ventas
                 i += 1
             Next
 
-
         Else
             Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = False
         End If
 
-
-
-
-
         Return Timbre
     End Function