Merge branch 'master' of http://192.168.10.111:8383/SIG

Compras/Compras.aspx.vb

@@ -15330,23 +15330,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
+            If CveFactura > 0 Then
-                For Each Dr2 As DataRow In TmpDT.Rows
+                For Each Gvr As GridViewRow In GvOC1.Rows
-                    If Gvr.DataKey("NumeroParte") = Dr2("NoIdentificacion").ToString() OrElse Gvr.DataKey("CvePS") = Dr2("CvePS").ToString() Then
+                    Dim Change As Boolean = False
-                        ' que la cantidad de la Fact no exceda a la de la OC
+                    For Each Dr2 As DataRow In TmpDT.Rows
-                        If Dr2("Cantidad").ToString.ToDecimal > Gvr.DataKey("CantidadF").ToDecimal Then
+                        If Gvr.DataKey("NumeroParte") = Dr2("NoIdentificacion").ToString() OrElse Gvr.DataKey("CvePS") = Dr2("CvePS").ToString() Then
-                            Gvr.FCTextBox("TxtCantidad").Text = Gvr.DataKey("CantidadF").ToDecimal.ToString("#,###.####")
+                            ' que la cantidad de la Fact no exceda a la de la OC
-                        Else
+                            If Dr2("Cantidad").ToString.ToDecimal > Gvr.DataKey("CantidadF").ToDecimal Then
-                            Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
+                                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
+            End If
-                    Gvr.FCTextBox("TxtCantidad").Text = ""
+
-                End If
-            Next
             '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

Compras/eFacturas.aspx

@@ -233,7 +233,7 @@
 
     <asp:UpdatePanel runat="server">
         <ContentTemplate>
-            <asp:LinkButton runat="server" ID="LnkRegistroRNC" class="btn btn-primary" OnClick="LnkRegistroRNC_Click"><i class="fa fa-search"></i>&nbsp; Prueba</asp:LinkButton>
+            <asp:LinkButton Visible="false" runat="server" ID="LnkRegistroRNC" class="btn btn-primary" OnClick="LnkRegistroRNC_Click"><i class="fa fa-search"></i>&nbsp; Prueba</asp:LinkButton>
         </ContentTemplate>
     </asp:UpdatePanel>
 

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>