ClsPaginas modulos ventas detalle

Compras/Compras.aspx.vb

@@ -8505,10 +8505,12 @@ Partial Class Compras_Compras
                                         Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
                                     End If
 
-                                    Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)
                                     BtnGuardar.Enabled = False
                                     UpFacturar.Update()
 
+                                    Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)
+
+
                                 End If
 
                             Else
@@ -13208,7 +13210,7 @@ Partial Class Compras_Compras
         End If
 
         'CONTADO
-         Select Case RBLContado.SelectedValue
+        Select Case RBLContado.SelectedValue
             Case "1" ' Bancos
                 PnlContadoBancos.Visible = True
                 TxtDocumentoImporte.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
@@ -13257,7 +13259,7 @@ Partial Class Compras_Compras
     End Sub
 
     Protected Sub BtnContado_Click(sender As Object, e As EventArgs)
-         TxtRembolsoNumero.Text = TxtNumeroReembolso.Text
+        TxtRembolsoNumero.Text = TxtNumeroReembolso.Text
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal"))
     End Sub
 
@@ -14494,7 +14496,7 @@ Partial Class Compras_Compras
         Dim IEPSCompra As Decimal = TxtIEPS.Text.ToDecimal()
         Dim RetIVACompra As Decimal = TxtRetIVA.Text.ToDecimal()
         Dim RetISRCompra As Decimal = TxtRetISR.Text.ToDecimal()
-		Dim Acumulado As Decimal = 0
+        Dim Acumulado As Decimal = 0
 
         'Dim TotalCalculable As Decimal = TotalCompra - IEPSCompra + RetIVACompra + RetISRCompra
 
@@ -19258,7 +19260,7 @@ Partial Class Compras_Compras
         GuardaAnticipos(Nothing, Nothing)
     End Sub
 
-        Protected Sub BtnNCInvAlmacen_Click(sender As Object, e As EventArgs)
+    Protected Sub BtnNCInvAlmacen_Click(sender As Object, e As EventArgs)
 
         'Dim ObjCompras As New ClsCompras
         'Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL)