diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 61eb5ee6e..e80b85935 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -15334,23 +15334,27 @@ Partial Class Compras_Compras
 
         'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO
         If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
-            For Each Gvr As GridViewRow In GvOC1.Rows
-                Dim Change As Boolean = False
-                For Each Dr2 As DataRow In TmpDT.Rows
-                    If Gvr.DataKey("NumeroParte") = Dr2("NoIdentificacion").ToString() OrElse Gvr.DataKey("CvePS") = Dr2("CvePS").ToString() Then
-                        ' que la cantidad de la Fact no exceda a la de la OC
-                        If Dr2("Cantidad").ToString.ToDecimal > Gvr.DataKey("CantidadF").ToDecimal Then
-                            Gvr.FCTextBox("TxtCantidad").Text = Gvr.DataKey("CantidadF").ToDecimal.ToString("#,###.####")
-                        Else
-                            Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
+
+            If CveFactura > 0 Then
+                For Each Gvr As GridViewRow In GvOC1.Rows
+                    Dim Change As Boolean = False
+                    For Each Dr2 As DataRow In TmpDT.Rows
+                        If Gvr.DataKey("NumeroParte") = Dr2("NoIdentificacion").ToString() OrElse Gvr.DataKey("CvePS") = Dr2("CvePS").ToString() Then
+                            ' que la cantidad de la Fact no exceda a la de la OC
+                            If Dr2("Cantidad").ToString.ToDecimal > Gvr.DataKey("CantidadF").ToDecimal Then
+                                Gvr.FCTextBox("TxtCantidad").Text = Gvr.DataKey("CantidadF").ToDecimal.ToString("#,###.####")
+                            Else
+                                Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
+                            End If
+                            Change = True
                         End If
-                        Change = True
+                    Next
+                    If Not Change Then
+                        Gvr.FCTextBox("TxtCantidad").Text = ""
                     End If
                 Next
-                If Not Change Then
-                    Gvr.FCTextBox("TxtCantidad").Text = ""
-                End If
-            Next
+            End If
+
             'detectar los ps que no están en la OC, códigos que no están en la OC
             'mostrar los ps que no están en la oc
             Dim strMsg As New StringBuilder
diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
index d0e580d43..ef50cb052 100644
--- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
+++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
@@ -4256,7 +4256,7 @@
                   <Paragraph>
                     <TextRuns>
                       <TextRun>
-                        <Value>="3. Página " &amp; code.PageNumber &amp; " de " &amp; code.TotalPages</Value>
+                        <Value>="3. Página " &amp; Code.PageNumber &amp; " de " &amp; Code.TotalPages</Value>
                         <Style>
                           <FontFamily>Myriad Pro</FontFamily>
                           <FontSize>8pt</FontSize>
@@ -5298,7 +5298,7 @@
                     <DataSetName>DataSet3</DataSetName>
                     <Top>0.06703cm</Top>
                     <Height>1cm</Height>
-                    <Width>17.83459cm</Width>
+                    <Width>17.8346cm</Width>
                     <Style>
                       <Border>
                         <Style>None</Style>
@@ -5310,7 +5310,7 @@
                 <Top>11.49939cm</Top>
                 <Left>1.33863cm</Left>
                 <Height>1.06703cm</Height>
-                <Width>17.83459cm</Width>
+                <Width>17.8346cm</Width>
                 <ZIndex>21</ZIndex>
                 <Style>
                   <Border>
@@ -6988,11 +6988,11 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
     </ReportParameter>
   </ReportParameters>
   <Code>Function PageNumber() As String      
-    Return Me.Report.Globals!PageNumber      
+    Return Me.Report.Globals!OverallPageNumber       
 End Function
 
 Function TotalPages() As String     
-    Return Me.Report.Globals!TotalPages      
+    Return Me.Report.Globals!OverallTotalPages      
 End Function   </Code>
   <Language>es-MX</Language>
   <ConsumeContainerWhitespace>true</ConsumeContainerWhitespace>