--Validaciones posteriores al guardar venta

Ventas/Ventas.aspx.vb

@@ -10638,6 +10638,8 @@ Partial Class Ventas
         If ObjFactura.CveCliente > 0 Or CveEmpresaCRM > 0 Then
             If TmpDT.Rows.Count > 0 Then
 
+                BtnEmitirImprimir.Enabled = False
+
                 Dim ObjVentas As New ClsVentas()
                 Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL())
                 Dim ObjInventario As New ClsInventarios(ObjVentas.IniciaTransacSQL())
@@ -11088,9 +11090,15 @@ Partial Class Ventas
 
                         BtnEmitirImprimir.Visible = False
 
+                        Try
+                            'MENSAJE PRINCIPAL
+                            MensajeAlert.AppendFormat(String.Format("<br/>La {0}: <b>{1}</b>  se generó correctamente.<br/><br/>", ObjFactura.TipoDocumento, ObjFactura.SerieFolio))
+
                             ObjFactura.DtDetalle = TmpDT 'actualiza por cambios de pedimentos.
                             ObjFactura.Timbre = PreParaTimbre(ObjFactura)
 
+                            'Throw New Exception("Prueba error")
+
                             'LIMPIA LOS ANTICIPOS RELACIONADOS QUE YA SE APLICARON
                             If ListaAnticiposAplicados IsNot Nothing Then
                                 ListaAnticiposAplicados.Clear()
@@ -11279,10 +11287,6 @@ Partial Class Ventas
                             End Try
 
 
-                        'MENSAJE PRINCIPAL
-                        MensajeAlert.AppendFormat(String.Format("<br/>La {0}: <b>{1}</b>  se generó correctamente.<br/><br/>", ObjFactura.TipoDocumento, ObjFactura.SerieFolio))
-
-
                             ' DESCARGA XML - SI SE TIMBRA MANDA CORREO CON FACTURA
                             If SeTimbro Then
                                 If Not UsuarioActual.TienePermisoProceso(380) Then
@@ -11548,9 +11552,20 @@ Partial Class Ventas
                                 OnError("Ocurrió un error al limpiar los datos", ex)
                             End Try
 
+                        Catch ex As Exception
+                            Dim Liga = "document.location.href=""/Ventas/Ventas.aspx?CveVenta=-1"";"
+
+                            Alert(MensajeAlert.ToString() + "<br/> Ocurrió un error posterior a la generación de la venta", TipoMensaje.MsgError, Liga, TextoConfirmacion:="Aceptar", ShowCloseButton:=False)
+
+                            BtnEmitirImprimir.Visible = False
+                            GuardaLog(ex.ToString())
+                        End Try
+
                     Else
                         ObjVentas.RollBack()
 
+                        BtnEmitirImprimir.Enabled = True
+
                         For Each ErrorItem As String In ErrorList
                             Alert(ErrorItem, TipoMensaje.MsgAdvertencia)
                         Next
@@ -11574,9 +11589,12 @@ Partial Class Ventas
                     TmpDT = TmpDTError.Copy
                     CalculaTotalesVenta(RecalcularTotalOriginal:=False)
 
+                    UpFacturar.Update()
                 Else
                     ObjVentas.RollBack()
 
+                    BtnEmitirImprimir.Enabled = True
+
                     For Each ErrorItem As String In ErrorList
                         Alert(ErrorItem, TipoMensaje.MsgAdvertencia)
                     Next
@@ -11599,6 +11617,8 @@ Partial Class Ventas
                     CalculaTotalesVenta(RecalcularTotalOriginal:=False)
 
                     GuardaLog("2.0- Ocurrió un error al procesar los datos. Por favor rectifique y vuelta a intentar. SeGuardoPrePoliza: " + If(SeGuardoPrePoliza, "Si", "No") + " TipoDocto: " + ObjFactura.TipoDocto)
+
+                    UpFacturar.Update()
                 End If
                 ObjFactura = Nothing
                 ListaNotasCreditoGeneradas = Nothing