RepRazonesfiznacieras

App_Code/ClsFinanzas.vb

@@ -259,6 +259,35 @@ Public Class ClsFinanzas
     End Function
 
 
+
+
+    Public Function GetRazonesFinancierasBalanceGeneralRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Finan_RF_BalanceGeneralRepGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .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
+
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al consultar el Reporte Balance General.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+
+
     Public Function GetRazonesFinancierasEstadoResultadosRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Finan_RF_EstadoResultadosRepGet")

Compras/Compras.aspx.vb

@@ -7549,6 +7549,8 @@ Partial Class Compras_Compras
                                                     '5, 305, 306, 311
                                                     If importeMovimiento <> 0 Or (CveConceptoOriginal = 5 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac", "Ant")) Or (ConceptoContable.Contiene(18) AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not GuardoConcepto18) Then
                                                         'Conta ContPAQ
+
+
                                                         If IdCtaContable = 0 Then
                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
                                                             idCuentaContabilizacion = 0
@@ -8091,13 +8093,6 @@ Partial Class Compras_Compras
 
 
 
-                                    If Not ErrorPrepoliza AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
-                                        If ObjConta.ValorPolizaDescuadre > 0 Then
-                                            GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                                            ErrorPrepolizaDescuadre = True
-                                        End If
-                                    End If
-
 
                                     'ACTUALIZA CVEFACTURA
                                     If Request("CveFactura") IsNot Nothing Then

Finanzas/RepRazonesFinancieras2.aspx

@@ -50,10 +50,27 @@
                                 <div class="col-md-1" runat="server" id="LiEjercicioDdl2" visible="True">
                                     <asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio2_SelectedIndexChanged">
                                     </asp:DropDownList>
-                                </div>                                 
+                                </div>
+                                  <label class="col-md-2" style="width: 80px;"  runat="server" id="LiPeriodoLbl"  >Periodo: </label>    
+                                <div class="col-md-2 " runat="server" id="LiPeriodoDdl">
+                                    <asp:DropDownList ID="DdlPeriodo" runat="server" Width="150px" CssClass="select2me">
+                                        <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" Selected="True"></asp:ListItem>
+                                    </asp:DropDownList>
+                                </div>  
                                
-                                <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
+                                <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1" Visible="false">SubProyecto:</asp:Label>
-                                <div class="col-md-2">
+                                <div class="col-md-2" runat="server" visible="false">
                                     <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
                                     </asp:DropDownList>
                                 </div> 
@@ -77,13 +94,158 @@
     <asp:UpdatePanel runat="server" ID="UpGeneral" UpdateMode="Always">
         <ContentTemplate>
 
-            <ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%" OnActiveTabChanged="Tab_ActiveTabChanged"   >
+            <ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%"  >
 
-                <ajax:TabPanel ID="TabBalanceGeneral" runat="server" HeaderText="Balance General">
+                <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>
@@ -96,7 +258,7 @@
                             <ContentTemplate>
 
                                 <asp:GridView ID="GVEstadoRsultados" runat="server" AutoGenerateColumns="false" DataKeyNames="Codigo,Tipo" OnRowDataBound="GVEstadoRsultados_RowDataBound" Width="60%"
-                                    EmptyDataText="No se encontraron registros" ToolTip="Listado de Personal"
+                                    EmptyDataText="No se encontraron registros" 
                                     CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true"                                     
                                     Style="text-align: center;" GridLines="None">
                                     <Columns>
@@ -240,13 +402,13 @@
                     </ContentTemplate>
                 </ajax:TabPanel>
 
-                <ajax:TabPanel ID="TabRatios" runat="server" HeaderText="Ratios">
+                <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" OnRowDataBound="GVRatios_RowDataBound" Width="60%"
+                                   <asp:GridView ID="GVRatios" runat="server" AutoGenerateColumns="false" DataKeyNames="Ratio,Tipo,EsPorcentaje,Formula" OnRowDataBound="GVRatios_RowDataBound" Width="60%"
-                                    EmptyDataText="No se encontraron registros" ToolTip="Listado de Personal"
+                                    EmptyDataText="No se encontraron registros" 
                                     CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" 
                                     Style="text-align: center;" GridLines="None">
                                     <Columns>

Finanzas/RepRazonesFinancieras2.aspx.vb

@@ -35,6 +35,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
+            Tab.ActiveTabIndex = 0
 
             CargaEjercicios()
 
@@ -50,25 +51,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
 
 
 
-    Protected Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs)
-
-        If Tab.TabIndex = 0 Then 'Balance General
-
-        End If
-
-        If Tab.ActiveTabIndex = 1 Then 'Estado de Resultados
-
-        End If
-
-        If Tab.ActiveTabIndex = 2 Then 'Ratios
-
-
-        End If
-
-
-
-        UpFiltros.Update()
-    End Sub
 
 
     Protected Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -146,12 +128,102 @@ Partial Class Finanzas_RepRazonesFinancieras2
 
 
 
-#Region "ESTADO RESULTADOS"
+#Region "ESTADO BALANCE GENERAL"
+
+
 
     Private Sub CargaDatosBalanceGeneral()
+
+        LnkExportar.Visible = False
+        GvBalanceGeneralOcultarColumnas(GvBalanceGeneral, 1)
+
+        Dim FechaI = New Date(DdlEjercicio.SelectedValue.ToEntero, 1, 1)
+        Dim FechaF = New Date(DdlEjercicio2.SelectedValue.ToEntero, 1, 1)
+
+
+        Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
+
+
+        Dim objFinanzas As New ClsFinanzas
+        Dim dtTemp As New DataTable
+
+        If objFinanzas.GetRazonesFinancierasBalanceGeneralRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.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()
 
 
@@ -170,7 +242,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
         Dim objFinanzas As New ClsFinanzas
         Dim dtTemp As New DataTable
 
-        If objFinanzas.GetRazonesFinancierasEstadoResultadosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, 12) Then
+        If objFinanzas.GetRazonesFinancierasEstadoResultadosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero) Then
             dtTemp = objFinanzas.DtResultados
 
             GVEstadoRsultadosMostrarColumnas(dtTemp, GVEstadoRsultados)
@@ -227,6 +299,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
 
             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
@@ -266,7 +339,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
         Dim objFinanzas As New ClsFinanzas
 
 
-        If objFinanzas.GetRazonesFinancierasRatiosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, 12) Then
+        If objFinanzas.GetRazonesFinancierasRatiosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero) Then
             DTRatios = objFinanzas.DtResultados
 
             GVRatiosMostrarColumnas(DTRatios, GVRatios)
@@ -297,26 +370,15 @@ Partial Class Finanzas_RepRazonesFinancieras2
     End Sub
 
     Private Sub GVRatiosMostrarColumnas(dt As DataTable, ByRef Gv As GridView)
-        Dim index = 3
+        Dim index = 4
 
 
-        For index = 3 To dt.Columns.Count - 2
+        For index = 4 To dt.Columns.Count - 2
             CType(Gv.Columns(index + 1), BoundField).DataField = dt.Columns(index + 1).ColumnName
-            'CType(Gv.Columns(index + 1), BoundField).DataFormatString = "{0:P2}"
             Gv.Columns(index + 1).Visible = True
             CType(Gv.Columns(index + 1), BoundField).HeaderText = dt.Columns(index + 1).ColumnName
         Next
 
-        'Dim Count As Integer = 1
-        'For Each GvColumn As DataGridViewColumn In GVRatios.Columns
-
-
-        '    GvColumn.Width = If(Count = 1, 300, 75)
-
-        '    Count = Count + 1
-        'Next
-
-
 
 
     End Sub
@@ -342,20 +404,23 @@ Partial Class Finanzas_RepRazonesFinancieras2
                 Dim EsPorcentaje = If(e.Row.DataKey("EsPorcentaje").ToEntero = 1, True, False)
 
                 For x = 1 To DTRatios.Columns.Count - 2
-
-                    'If e.Row.Cells(x).Text.ToDecimal = 0 Then
-                    '    e.Row.Cells(x).Text = ""
-                    'Else
                     If EsPorcentaje Then
-                        e.Row.Cells(x).Text = $"{(e.Row.Cells(x).Text.ToDecimal * 100.0).ToString("###.00")}%"
+                        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
+            If e.Row.DataKey("Formula").Trim().Length > 0 Then
+
+                'data-html="true" data-toggle="tooltip" data-placement="left" title="Agregar<br/>Familiares"
+                e.Row.Attributes.Add("data-html", "true")
+                e.Row.Attributes.Add("data-toggle", "tooltip")
+                e.Row.Attributes.Add("data-placement", "top")
+                e.Row.Attributes.Add("title", $"{e.Row.DataKey("Formula").Trim()}")
+            End If
+
 
         End If
 
@@ -365,12 +430,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
 
 
 
-
-
-
-
-
-
 #Region "DESCARGA EXCEL"
 
 
@@ -426,5 +485,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
 
 
 
+
+
 End Class
 

RH/Personal.aspx.vb

@@ -7702,6 +7702,14 @@ Partial Class RH_Personal
 
         End If
 
+        If Padre.Trim.Length = 0 Then
+            Padre = TxtNombrePadre.Text.Trim
+        End If
+
+        If Madre.Trim.Length = 0 Then
+            Madre = TxtNombreMadre.Text.Trim
+        End If
+
         Dim TimpoMovimiento As String = ""
 
         Select Case eTipoMovimientoRH
@@ -7718,7 +7726,7 @@ Partial Class RH_Personal
 
         objRH.Dispose()
         Cuerpo.AppendLine("<table border='0' style='width:100%'>")
-        Cuerpo.AppendLine($"<tr><td  style='  font-size:large;'>{  UsuarioActual.Empresa.Empresa }<br/></td><td style='width:20%'> </td><td  style='text-align: right;'>{ Now.ToShortDateString }   { Now.ToShortTimeString  } <br/></td> </tr>")
+        Cuerpo.AppendLine($"<tr><td  style='  font-size:large;'>{  If(DdlEmpresaAsignada.SelectedValue.ToEntero > 0, DdlEmpresaAsignada.SelectedItem.Text, UsuarioActual.Empresa.Empresa) }<br/></td><td style='width:20%'> </td><td  style='text-align: right;'>{ Now.ToShortDateString }   { Now.ToShortTimeString  } <br/></td> </tr>")
 
         Cuerpo.AppendLine($"<tr><td style='  font-size:large; text-align: left;' colspan='3'>Notificacion por { TimpoMovimiento } de Nomina</td></tr>")
         Cuerpo.AppendLine("</table>")