diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 28c2004c9..e3c7c7be9 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8071,70 +8071,61 @@ Partial Class Compras_Compras
Next
End If
-<<<<<<< HEAD
- Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)
- Else
- ObjCompras.RollBack()
- If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
- ' Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
- End If
-
-=======
If CveEvaluacionProveedor > 0 Then
Msg.Append("
El proveedor tiene evaluaciones pendientes
")
Msg.Append("¿Desea realizar una evaluación al proveedor?")
Msg.AppendFormat($"Evaluar Proveedor.")
End If
->>>>>>> Compras Plantilla Prorrateo, Cat Secciones Tipo Operación, EMD Ajustes formatos almacén
- BtnGuardar.Enabled = False
- UpFacturar.Update()
- Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)
+ BtnGuardar.Enabled = False
+ UpFacturar.Update()
+
+ Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)
Else
- ObjCompras.RollBack()
- If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
- Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
+ ObjCompras.RollBack()
+ If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
+ Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
+ End If
+
End If
+ Else
+ ObjCompras.RollBack()
+ If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
+ Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente..", TipoMensaje.MsgError)
End If
+
Else
+ Alert("Debe seleccionar un Funcionario/Empleado o Caja Chica para Reembolsos. Por favor vuelva a intentar.", TipoMensaje.MsgError)
ObjCompras.RollBack()
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
- Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente..", TipoMensaje.MsgError)
End If
-
Else
- Alert("Debe seleccionar un Funcionario/Empleado o Caja Chica para Reembolsos. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+ Alert("Ocurrió un error al agregar el movimiento bancario.
Revise sus datos de pago y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
ObjCompras.RollBack()
- If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
End If
- Else
- Alert("Ocurrió un error al agregar el movimiento bancario.
Revise sus datos de pago y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
- ObjCompras.RollBack()
End If
- End If
-
- Catch ex As Exception
- ObjCompras.RollBack()
- If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
- Alert("Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgError)
- GuardaLog($"Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico : {ex}")
- ViewState("CveCompra") = -1
- End Try
- ObjAcar.Dispose()
- ObjCompras.Dispose()
- ObjConta.Dispose()
- ObjIE.Dispose()
- ObjInventario.Dispose()
- ObjAF.Dispose()
- ObjOC.Dispose()
- ObjProveedores.Dispose()
- ObjCGame.Dispose()
- ObjProductosServicios.Dispose()
+ Catch ex As Exception
+ ObjCompras.RollBack()
+ If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
+ Alert("Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgError)
+ GuardaLog($"Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico : {ex}")
+ ViewState("CveCompra") = -1
+ End Try
+ ObjAcar.Dispose()
+ ObjCompras.Dispose()
+ ObjConta.Dispose()
+ ObjIE.Dispose()
+ ObjInventario.Dispose()
+ ObjAF.Dispose()
+ ObjOC.Dispose()
+ ObjProveedores.Dispose()
+ ObjCGame.Dispose()
+ ObjProductosServicios.Dispose()
End If
End Sub