From ff0b9cc5a06060c92afb7206ab80525619ac0e7c Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Sat, 10 May 2025 10:33:00 -0700
Subject: [PATCH] Compras Prorrateo Plantilla correcion

---
 Compras/Compras.aspx.vb | 75 ++++++++++++++++++-----------------------
 1 file changed, 33 insertions(+), 42 deletions(-)

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("<br/><br/>El proveedor tiene evaluaciones pendientes<br/>")
                                             Msg.Append("¿Desea realizar una evaluación al proveedor?")
                                             Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Compras/EvaluacionProveedor.aspx?CveEvaluacionProveedor={CveEvaluacionProveedor}"">Evaluar Proveedor.</a>")
                                         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.<br />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.<br />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