Cambio anticipos

Compras/Compras.aspx.vb

@@ -9632,7 +9632,7 @@ Partial Class Compras_Compras
                             If CompraSaldo > 0 Then CargaAnticipos(CveProveedor)
                             If CveCompra > 0 Then VisualizaEstatusCompraSaldo(DdlTipoComprobante.SelectedValue, CompraSaldo.ToDecimal, TxtTotal.Text.ToDecimal)
 
-                            UpAnticipos.Update()
+                            'UpAnticipos.Update()
                             UpPS.Update()
                             dtnc.Dispose()
                         Case 1
@@ -9664,7 +9664,8 @@ Partial Class Compras_Compras
                 End If
 
                 LblAmortizacion.Text = ImporteAnticipo.FormatoNumero
-
+                LblAplicadoCompraAnt.Text = ImporteAnticipo.FormatoNumero
+                LblSaldoFactura.Text = (TxtTotal.Text.ToDecimal - ImporteAnticipo).ToString.FormatoNumero
                 UpPS.Update()
             End If
             RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAnticipos"))
@@ -17446,6 +17447,7 @@ Partial Class Compras_Compras
 
         If Not CveCompra > 0 Then 'cuando se está registrando manualmente y se va amortizar
             LblSaldoFactura.Text = TxtTotal.Text.FormatoNumero
+            UpAnticipos.Update()
         End If