From b76acf49a5e4eb9f7888abea2c7aede67d37a9ef Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 4 Mar 2024 19:17:59 -0700
Subject: [PATCH] Ferretera. Sincronizar marcas

---
 App_Code/ClsProductosServicios.vb |  7 +++--
 General/CatMarcas.aspx.vb         | 49 +++++++++++++++++++++----------
 2 files changed, 39 insertions(+), 17 deletions(-)

diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index 5fcda2cf9..fa3deb688 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -1545,7 +1545,7 @@ Public Class ClsProductosServicios
 
 
 
-    Public Function AddMarcas(Marca As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function AddMarcas(Marca As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer, Optional ActualizarFranquicias As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Gral_MarcasAdd")
@@ -1555,6 +1555,7 @@ Public Class ClsProductosServicios
             .Add("@Estatus", SqlDbType.Bit).Value = Estatus
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@ActualizarFranquicias", SqlDbType.Bit).Value = ActualizarFranquicias
         End With
 
         Try
@@ -1597,7 +1598,7 @@ Public Class ClsProductosServicios
 
 
 
-    Public Function UpdateMarca(Marca As String, CveMarca As Integer, Estatus As Boolean) As Boolean
+    Public Function UpdateMarca(Marca As String, CveMarca As Integer, Estatus As Boolean, CveEmpresa As Integer, Optional ActualizarFranquicias As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Gral_MarcasUpdate")
@@ -1605,6 +1606,8 @@ Public Class ClsProductosServicios
             .Add("@Marca", SqlDbType.VarChar).Value = Marca
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@ActualizarFranquicias", SqlDbType.Bit).Value = ActualizarFranquicias
         End With
 
         Try
diff --git a/General/CatMarcas.aspx.vb b/General/CatMarcas.aspx.vb
index ec1df2c15..4537b919b 100644
--- a/General/CatMarcas.aspx.vb
+++ b/General/CatMarcas.aspx.vb
@@ -62,23 +62,42 @@ Partial Class General_CatMarcas
         DivEstatus.Visible = False
        UpModal.Update()
         RegistraScript("$('#DModalMarca').modal()")
    End Sub
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
-        Dim ObjPS As New ClsProductosServicios
-        If Modalidad = "A" Then
-            If ObjPS.AddMarcas(TxtMarca.Text, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-                RegistraScript("$('#DModalMarca').modal('hide')")
-                Alert("La Marca se agregó correctamente.", TipoMensaje.MsgInformacion)
-                CargaDatos()
-                GlobalDTGralMarcas(UsuarioActual.CveEmpresa) = Nothing
-            End If
-        ElseIf Modalidad = "U" Then
-            If ObjPS.UpdateMarca(TxtMarca.Text, CveMarca, ChkEstatus.Checked) Then
-                RegistraScript("$('#DModalMarca').modal('hide')")
-                Alert("La Marca se actualizo correctamente.", TipoMensaje.MsgInformacion)
-                CargaDatos()
-                GlobalDTGralMarcas(UsuarioActual.CveEmpresa) = Nothing
-            End If
+        Dim ActualizarFranquicias As Boolean = False
+
+        If UsuarioActual.Empresa.Funcionalidad(563) <> "" AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+            ActualizarFranquicias = True
         End If
+
+        Dim ObjPS As New ClsProductosServicios
+        ObjPS.IniciaTransacSQL()
+
+        Dim TieneError As Boolean = False
+        Try
+            If Modalidad = "A" Then
+                If Not ObjPS.AddMarcas(TxtMarca.Text, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ActualizarFranquicias:=ActualizarFranquicias) Then
+                    TieneError = True
+                End If
+            ElseIf Modalidad = "U" Then
+                If Not ObjPS.UpdateMarca(TxtMarca.Text, CveMarca, ChkEstatus.Checked, UsuarioActual.CveEmpresa, ActualizarFranquicias:=ActualizarFranquicias) Then
+                    TieneError = True
+                End If
+            End If
+        Catch ex As Exception
+            TieneError = True
+        End Try
+
+        If TieneError Then
+            ObjPS.RollBack()
+        Else
+            ObjPS.Commit()
+        End If
+
         ObjPS.Dispose()
+
+        GlobalDTGralMarcas(UsuarioActual.CveEmpresa) = Nothing
+        CargaDatos()
+
+        RegistraScript("$('#DModalMarca').modal('hide')")
     End Sub
 
 #End Region