RepEstadoResultadosHorizontal Correcion 172, Compras Excedido pago al cambiar PS, Transferencias Validar Prepoliza, RepIva 119 RPT correcion

Bancos/Transferencias.aspx.vb

@@ -404,6 +404,21 @@ Partial Class Bancos_Transferencias
                             End If
                         End If
 
+
+                        If MsgError = "" Then
+                            If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+                                If ObjMov.ValorPolizaDescuadre > 0 Then
+                                    MsgError = ObjMov.MensajePolizaDescuadre
+                                    GuardaLogAD($"Bancos/Transferencias | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                                End If
+                            Else
+                                MsgError = "No se pudo validar la prepoliza de cuadre."
+                            End If
+                        End If
+
+
+
+
                         If MsgError = "" Then
 
                             'Conta ContPAQ
@@ -449,16 +464,7 @@ Partial Class Bancos_Transferencias
 
 
 
-        If MsgError = "" Then
-            If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
-                If ObjMov.ValorPolizaDescuadre > 0 Then
-                    MsgError = ObjMov.MensajePolizaDescuadre
-                    GuardaLogAD($"Bancos/Transferencias | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                End If
-            Else
-                MsgError = "No se pudo validar la prepoliza de cuadre."
-            End If
-        End If
+
 
 
         If MsgError = "" Then

Compras/Compras.aspx.vb

@@ -16597,7 +16597,7 @@ Partial Class Compras_Compras
         'HACEMOS CALCULOS
         SubTotalIVA = TmpDT.SUM("IVA")
         SubTotalIEPSIVA = TmpDT.SUM("IEPSPSIVA")
-        SubTotal = TmpDT.SUM("Total") + TmpDT.SUM("Descuento")
+        SubTotal = (TmpDT.SUM("Total") + TmpDT.SUM("Descuento")).RoundSQL(6)
         RetIVA = TmpDT.SUM("RetIVA")
         RetISR = TmpDT.SUM("RetISR")
         IEPSPS = TmpDT.SUM("IEPSPS")

Contabilidad2/RepEstadoResultadosHorizontal.aspx

@@ -65,24 +65,25 @@
                 <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
                         <asp:Button ID="BtnConsultar" Text="Consultar" CssClass="btn btn-primary" runat="server" OnClick="BtnConsultar_Click" />
+                        <a href="javascript:;" class="expand"></a>
                     </div>
                     <div class="titlefiltros  caption ">
-                        <div class="row">
-                            <ul class="list-inline text-size-12">
+                        <div class="row">                            
+                            <div class="col-md-12">
 
-                                <label class="col-md-1"   runat="server" id="LiEjercicioLbl">Ejercicio Inicio: </label>
+                                <label class="col-md-1" runat="server" id="LiEjercicioLbl">Ejercicio Inicio: </label>
                                 <div class="col-md-1 " runat="server" id="LiEjercicioDdl">
                                     <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio_SelectedIndexChanged">
                                     </asp:DropDownList>
                                 </div>
 
-                                <label class="col-md-1"   runat="server" id="LiEjercicioLbl2" visible="false">Ejercicio Fin: </label>
+                                <label class="col-md-1" runat="server" id="LiEjercicioLbl2" visible="false">Ejercicio Fin: </label>
                                 <div class="col-md-1" runat="server" id="LiEjercicioDdl2" visible="false">
                                     <asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio2_SelectedIndexChanged">
                                     </asp:DropDownList>
                                 </div>
 
-                                <label class="col-md-1"  runat="server" id="LiPeriodoLbl" >Periodo: </label>
+                                <label class="col-md-1" runat="server" id="LiPeriodoLbl">Periodo: </label>
                                 <div class="col-md-1 " runat="server" id="LiPeriodoDdl">
                                     <asp:DropDownList ID="DdlPeriodo" runat="server" Width="100%" CssClass="select2me">
                                         <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
@@ -101,39 +102,53 @@
                                 </div>
 
 
-                                <label class="col-md-1"  runat="server" id="LiSubProyectoLbl">
-                                    <asp:Label runat="server" ID="LblSubProyecto"></asp:Label>
+                                <label class="col-md-1" runat="server" id="LiSubProyectoLbl">
+                                    <asp:Label runat="server" ID="LblSubProyecto"></asp:Label>:
                                 </label>
                                 <div class="col-md-2 " runat="server" id="LiSubProyectoDdl">
-                                    <asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"  Width="100%" >
+                                    <asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="100%">
                                     </asp:DropDownList>
                                 </div>
 
-                                <label class="col-md-1" style="width: 80px;" runat="server" id="LiDivisorLbl">Divisor: </label>
-                                <div class="col-md-1 " runat="server" id="LiDivisorDdl">
-                                    <asp:DropDownList ID="DdlDivisor" runat="server" Width="100%" CssClass="form-control input-sm select2me"  >
-                                        <asp:ListItem Text="1" Value="1"></asp:ListItem>
-                                        <asp:ListItem Text="1,000" Value="1000"></asp:ListItem>
-                                        <asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem>
-                                    </asp:DropDownList>
-                                </div>
+                            </div>
 
-                                <label class="col-md-1"  runat="server" id="LblTri">
-                                    Trimestre<br>
-                                    Cuatrimestre:
-                                </label>
-                                <div class="col-md-1 " runat="server" id="DVTri">
-                                    <asp:DropDownList ID="DdlTri" runat="server" CssClass="select2me" Width="100%" AutoPostBack="true">
-                                        <asp:ListItem Value="0">NO</asp:ListItem>
-                                        <asp:ListItem Value="1">Trimestre</asp:ListItem>
-                                        <asp:ListItem Value="2">Cuatrimestre</asp:ListItem>
-                                    </asp:DropDownList>
-                                </div>
-
-                            </ul>
+                             
                         </div>
                     </div>
                 </div>
+                 <div class="portlet-body" style="display: none">
+                     <div class="row">
+                         <div class="col-md-12">
+
+                             <label class="col-md-1"   runat="server" id="LiDivisorLbl">Divisor: </label>
+                             <div class="col-md-1 " runat="server" id="LiDivisorDdl">
+                                 <asp:DropDownList ID="DdlDivisor" runat="server" Width="100%" CssClass="form-control input-sm select2me">
+                                     <asp:ListItem Text="1" Value="1"></asp:ListItem>
+                                     <asp:ListItem Text="1,000" Value="1000"></asp:ListItem>
+                                     <asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem>
+                                 </asp:DropDownList>
+                             </div>
+
+                             <label class="col-md-1 truncate" runat="server" id="LblTri">
+                                 Trimestre
+                                    Cuatrimestre:
+                             </label>
+
+                             <div class="col-md-1 " runat="server" id="DVTri">
+                                 <asp:DropDownList ID="DdlTri" runat="server" CssClass="select2me" Width="100%" AutoPostBack="true">
+                                     <asp:ListItem Value="0">NO</asp:ListItem>
+                                     <asp:ListItem Value="1">Trimestre</asp:ListItem>
+                                     <asp:ListItem Value="2">Cuatrimestre</asp:ListItem>
+                                 </asp:DropDownList>
+                             </div>
+
+                         </div>
+
+                     </div>
+
+            
+                </div>
+               
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -1958,6 +1958,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         DtGastosSubProyectoH = DtDatosSubProyectoH.FiltraParametros("Tipo ='G' ")
         DTTotalesSubProyectoH = DtDatosSubProyectoH.Clone()
 
+
+
         Dim Row As DataRow = DtIngresosSubProyectoH.NewRow
 
         Dim TotalActual = 0.0, TotalAnterior = 0.0
@@ -1988,81 +1990,80 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         Next
         listaCampos.Clear()
 
-        If DtIngresosSubProyectoH.Rows.Count > 0 Then
+        Dim DTProcesaColumnas As DataTable = If(DtIngresosSubProyectoH.Rows.Count > 0, DtIngresosSubProyectoH, DtGastosSubProyectoH)
 
-            For Each dColumn As DataColumn In DtIngresosSubProyectoH.Columns
+        For Each dColumn As DataColumn In DTProcesaColumnas.Columns
+
+            If IndexData >= 13 Then
+
+                If IndexSubProyecto <= IndexSubProyectoMax Then
+
+                    If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then
+
+                        CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
+                        GvIngresosSubProyectoH.Columns(IndexGv).Visible = True
+
+                        CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
+                        GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
+
+                        CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
+                        GvGastosSubProyectoH.Columns(IndexGv).Visible = True
+
+                        If IndexSubProyecto <= IndexSubProyectoMax Then
+
+                            Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
+
+                            If dColumn.ColumnName = "SinSubProyecto" Then
+                                TxtSub = "Sin SubProyecto"
+                            End If
 
 
+                            CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
+                            CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
+                            CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
 
+                            CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
+                            CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
+                            CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
 
+                            If (dColumn.ColumnName.ToString.ToEntero > 0 Or dColumn.ColumnName = "SinSubProyecto") Then
+                                CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
+                                GvIngresosSubProyectoH.Columns(IndexGv + 1).Visible = True
+                                CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
+                                GvTotalesSubProyectoH.Columns(IndexGv + 1).Visible = True
+                                CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
+                                GvGastosSubProyectoH.Columns(IndexGv + 1).Visible = True
+                            End If
 
-                If IndexData >= 13 Then
-
-                    If IndexSubProyecto <= IndexSubProyectoMax Then
-
-                        If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then
-
-                            CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
-                            GvIngresosSubProyectoH.Columns(IndexGv).Visible = True
-
-                            CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
-                            GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
-
-                            CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
-                            GvGastosSubProyectoH.Columns(IndexGv).Visible = True
-
-                            If IndexSubProyecto <= IndexSubProyectoMax Then
-
-                                Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
-
-                                If dColumn.ColumnName = "SinSubProyecto" Then
-                                    TxtSub = "Sin SubProyecto"
-                                End If
-
-
-                                CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
-                                    CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
-                                    CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
-
-                                    CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
-                                    CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
-                                    CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
-
-                                    If (dColumn.ColumnName.ToString.ToEntero > 0 Or dColumn.ColumnName = "SinSubProyecto") Then
-                                        CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
-                                        GvIngresosSubProyectoH.Columns(IndexGv + 1).Visible = True
-                                        CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
-                                        GvTotalesSubProyectoH.Columns(IndexGv + 1).Visible = True
-                                        CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
-                                        GvGastosSubProyectoH.Columns(IndexGv + 1).Visible = True
-                                    End If
-
-                                End If
-                                listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()})
                         End If
-
-                    Else
-                        If IndexGv < GvIngresosSubProyectoH.Columns.Count Then
-                            GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
-                            GvTotalesSubProyectoH.Columns(IndexGv).Visible = False
-                        Else
-                            Exit For
-                        End If
-
+                        listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()})
                     End If
 
-                    IndexGv = IndexGv + 2
-                    IndexSubProyecto = IndexSubProyecto + 1
-                    IndexMax = IndexMax + 1
+                Else
+                    If IndexGv < GvIngresosSubProyectoH.Columns.Count Then
+                        GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
+                        GvTotalesSubProyectoH.Columns(IndexGv).Visible = False
+                    Else
+                        Exit For
+                    End If
 
                 End If
-                IndexData = IndexData + 1
 
-                If dColumn.ColumnName = "SinSubProyecto" Then
-                    Exit For
-                End If
+                IndexGv = IndexGv + 2
+                IndexSubProyecto = IndexSubProyecto + 1
+                IndexMax = IndexMax + 1
 
-            Next
+            End If
+            IndexData = IndexData + 1
+
+            If dColumn.ColumnName = "SinSubProyecto" Then
+                Exit For
+            End If
+
+        Next
+
+
+        If DtIngresosSubProyectoH.Rows.Count > 0 Then
 
 
             For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("Not CtaMayor In (3,4)").Rows
@@ -2074,7 +2075,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             For IndexData = 13 To IndexTotales
                 If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número
                     Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
-                    Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+
+                    If DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") <> 0 Then
+                        Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+                    Else
+                        Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = "0"
+                    End If
                 End If
             Next
 
@@ -2091,6 +2097,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             CountDinamicoSubProyecto = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero
             DtIngresosSubProyectoH.Rows.Add(Row)
         Else
+
+
+
+            Row.Item("Nombre") = "INGRESOS "
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAcumulado") = "0.00"
+            Row.Item("CtaMayor") = -1
+            DtIngresosSubProyectoH.Rows.Add(Row)
+
             Row.Item("Nombre") = "TOTAL INGRESOS "
             Row.Item("ImporteActual") = "0.00"
             Row.Item("ImporteAcumulado") = "0.00"
@@ -2113,14 +2128,22 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             For IndexData = 13 To IndexTotales
                 If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número
                     Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)")
-                    Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
+
+                    'Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
+
+                    If DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)").ToDecimal <> 0 Then
+                        Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
+                    Else
+                        Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = "0"
+                    End If
+
                 End If
             Next
 
             Row.Item("Nombre") = "Resultado del ejercicio"
             Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)")
             Row.Item("CtaMayor") = -2
-            Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico")
+            Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico").ToString.ToEntero
 
             DTTotalesSubProyectoH.Rows.Add(Row)
 

Finanzas/RepEstadoResultadosHorizontal.aspx

@@ -76,7 +76,13 @@
                                 <li>SubProyecto:              
                                     <asp:DropDownList ID="DdlSubProyecto" Width="130px" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"></asp:DropDownList>
                                 </li>
-                                <li>Divisor:              
+                              
+                            </ul>
+                        </div>
+                    </div>
+                     <div class="portlet-body" style="display: none">
+                         <ul class="list-inline" style="font-size: 12px;">
+                               <li>Divisor:              
                                     <asp:DropDownList ID="DdlDivisor" Width="100px" runat="server" CssClass="form-control input-sm select2me">
                                         <asp:ListItem Text="Unidad" Value="1"></asp:ListItem>
                                         <asp:ListItem Text="Miles" Value="1000" Selected="True"></asp:ListItem>
@@ -89,9 +95,8 @@
                                         <asp:ListItem Text="Con saldo" Value="1" Selected="True"></asp:ListItem>
                                     </asp:DropDownList>
                                 </li>
-                            </ul>
-                        </div>
-                    </div>
+                         </ul>
+                     </div>
                 </div>
             </asp:Panel>
         </ContentTemplate>

OC/OC.aspx

@@ -2424,7 +2424,12 @@
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
                                                 <asp:HyperLinkField DataTextField="FolioCompra" Target="_blank" HeaderText="Folio Compra" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataNavigateUrlFields="CveCompra" />
-                                                <asp:TemplateField HeaderText="Cantidad OC" ItemStyle-HorizontalAlign="Right">
+
+
+                                                  <asp:BoundField DataField="CantidadOC" HeaderText="Cantidad OC"   DataFormatString="{0:n2}" > <ItemStyle HorizontalAlign="Right" /></asp:BoundField>
+                                                  <asp:BoundField DataField="CantidadCompra" HeaderText="Cantidad Compra"   DataFormatString="{0:n2}" > <ItemStyle HorizontalAlign="Right" /></asp:BoundField>
+
+                                          <%--      <asp:TemplateField HeaderText="Cantidad OC" ItemStyle-HorizontalAlign="Right">
                                                     <ItemTemplate>
                                                         <asp:Literal ID="LtCantidadOC" runat="server" Text='<%# Eval("CantidadOC")%>'></asp:Literal>
                                                     </ItemTemplate>
@@ -2433,7 +2438,7 @@
                                                     <ItemTemplate>
                                                         <asp:Literal ID="LtCantidadCompra" runat="server" Text='<%# Eval("CantidadCompra")%>'></asp:Literal>
                                                     </ItemTemplate>
-                                                </asp:TemplateField>
+                                                </asp:TemplateField>--%>
                                                 <%--<asp:TemplateField HeaderText="Pendiente" ItemStyle-HorizontalAlign="Right">
                                                     <ItemTemplate>
                                                         <asp:Literal ID="LtPendiente" runat="server" Text='<%# Eval("Pendiente")%>'></asp:Literal>

RH/Personal.aspx.vb

@@ -5545,8 +5545,7 @@ Partial Class RH_Personal
 
         Dim objConstancias As New ClsConstancias
         Dim DocumenBitArray As Byte() = Nothing
-        Dim RutaDocumento As String = Server.MapPath("~")
-        'RutaDocumento = Path.Combine(RutaDocumento, "Empresas\Grales\FormatoDC3.docx")
+        Dim RutaDocumento As String = DirectorioBaseEmpresas
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim _CveCurso As Integer = GvRow.DataKey("CveCurso").ToEntero()