diff --git a/Empresas/189/Formatos/Entradas.rdlc b/Empresas/189/Formatos/Entradas.rdlc
index 8252f7b10..6b57e96b6 100644
--- a/Empresas/189/Formatos/Entradas.rdlc
+++ b/Empresas/189/Formatos/Entradas.rdlc
@@ -1581,7 +1581,7 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>=IIf(
-    Fields!Cargo.Value = 0, 
+    Sum(Fields!Cargo.Value) = 0, 
     "", 
     Format(Sum(Fields!Cargo.Value), "###,###,###.00")
 )</Value>
@@ -1618,7 +1618,7 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>=IIf(
-    Fields!Abono.Value = 0, 
+    Sum(Fields!Abono.Value) = 0, 
     "", 
     Format(Sum(Fields!Abono.Value), "###,###,###.00")
 )</Value>
@@ -1643,6 +1643,7 @@
                             </Border>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                   </TablixCells>
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index aba42539d..ccc00524e 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -3148,7 +3148,10 @@ Partial Class OC_OC
             ViewState("LigaOCs") = If(CveEstatusNuevo <> CboE.SelectedValue.ToEntero, String.Format("<a href='/OC/OC.aspx?OC={0}'>{1}</a>", CveOrdenCompra, SerieFolio), "")
 
             If CveOrdenCompra > 0 Then
-                Dim ImprimirOC As String = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Orden de Compra</a> ", Encripta(String.Format("OP=OC&CVEOC={0}", CveOrdenCompra)))
+
+                Dim ImprimirOC As String = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir {1}</a> ", Encripta(String.Format("OP=OC&CVEOC={0}", CveOrdenCompra)), If(TipoOC = "OC", "Orden de Compra", "Requisición"))
+
+
                 Dim Msg As New StringBuilder
 
                 'Cuando Estatus = "Autorizada"
@@ -3164,11 +3167,24 @@ Partial Class OC_OC
                 End If
 
                 If LigaOCs = "" Then
-                    Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente <br/> {2}", TipoLargo, SerieFolio, If(TipoOC = "OC", ImprimirOC, ""))
+                    If TipoOC.ToUpper = "REQ" Then
+                        Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente <br/> {2}", TipoLargo, SerieFolio, ImprimirOC)
+                    Else
+                        Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente <br/> {2}", TipoLargo, SerieFolio, If(TipoOC = "OC", ImprimirOC, ""))
+                    End If
+
                 Else
-                    Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente<br><br>Orden de Compra:{2} <br/> {3}", TipoLargo, SerieFolio, LigaOCs, If(TipoOC = "OC", ImprimirOC, ""))
+
+                    If TipoOC.ToUpper = "REQ" Then
+                        Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente<br><br>Orden de Compra:{2} <br/> {3}", TipoLargo, SerieFolio, LigaOCs, ImprimirOC)
+                    Else
+                        Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente<br><br>Orden de Compra:{2} <br/> {3}", TipoLargo, SerieFolio, LigaOCs, If(TipoOC = "OC", ImprimirOC, ""))
+                    End If
+
                 End If
 
+
+
                 'IMPRIME LIGA A POLIZAS
                 If IDPolizasGeneradas.Count > 0 Then
                     Msg.Append("<br/><br/> <b>Polizas generadas:</b>")