Ventas Actualizar Linea Adicional

Compras/Compras.aspx.vb

@@ -252,6 +252,20 @@ Partial Class Compras_Compras
             Return ViewState("CveCompra").ToString.ToEntero
         End Get
     End Property
+
+    Private Property CveCompraFactura As Integer
+        Get
+            If ViewState("CveCompraFactura") Is Nothing Then
+                ViewState("CveCompraFactura") = -1
+            End If
+            Return ViewState("CveCompraFactura").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveCompraFactura") = value
+        End Set
+    End Property
+
+
     Private ReadOnly Property CveFactura As Integer
         Get
             Return ViewState("CveFactura").ToString.ToEntero
@@ -1545,7 +1559,7 @@ Partial Class Compras_Compras
                     If UsuarioActual.Empresa.Funcionalidad(562).ToEntero > 0 Then CargaGastosServicios(UsuarioActual.Empresa.Funcionalidad(562).ToEntero)
 
                 End If
-
+                CargaGvPersonal()
             ElseIf Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then
 
                 'If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
@@ -1594,6 +1608,7 @@ Partial Class Compras_Compras
                 'End If
                 LnkAgregarGuia.Visible = False
                 UpLnkPaqueteriaGuias.Update()
+                CargaGvPersonal()
             End If
 
             If UsuarioActual.TienePermisoProceso(360) AndAlso UsuarioActual.CveEmpresa = 119 Then BtnProrateoDeducible.Visible = True
@@ -2973,6 +2988,7 @@ Partial Class Compras_Compras
                 LblRetISR.Text = If(dr("RetISR").ToString.ToDecimal > 0, TmpDT.MAX("RetISRPorcentaje").ToDecimal * 100, 0).ToString.FormatoNumero(4) '(If(SubTotal2 > 0, (RetencionISR / SubTotal2), 0) * 100).FormatoNumero(3)
                 If dr("TipoFactura").ToString <> "CFDi" Then LblTipoFact.Text = dr("TipoFactura").ToString : divTipoFactura.Visible = True
                 ViewState("CveFactura") = dr("CveFactura").ToString.ToEntero
+                CveCompraFactura = dr("CveFactura").ToString.ToEntero
                 ViewState("IdPoliza") = dr("IdPoliza").ToString.ToEntero
 
                 DdlMoneda.SelectedValue = dr("CveMoneda").ToString
@@ -17381,9 +17397,11 @@ Partial Class Compras_Compras
                 If TxtIEPS.Text.ToDouble > 0 Then TrIEPS.Visible = True
             End If
             If TxtDescuento.Text.ToDouble > 0 Then TrDescuento.Visible = True
-            'If ActualizaTotales And UsuarioActual.CveEmpresa = 72 Then
-            TxtTotal.Text = Total.ToString.FormatoNumero()
-            'End If
+
+            If ActualizaTotales And UsuarioActual.CveEmpresa = 72 Or Not CveCompraFactura > 0 Then
+                TxtTotal.Text = Total.ToString.FormatoNumero()
+            End If
+
         Else
             TxtSubTotal.Text = SubTotal.ToString.FormatoNumero()
             TxtSubTotal2.Text = SubTotal2.ToString.FormatoNumero()