Ferretera. Sincronizar marcas

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

General/CatMarcas.aspx.vb

@@ -62,23 +62,42 @@ Partial Class General_CatMarcas
         Dim ObjPS As New ClsProductosServicios
         Dim CveMarca = gvRow.DataKey("CveMarca").ToEntero
         If ObjPS.RemoveMarca(CveMarca) Then
-            Alert("Se borró correctamente de la base de Datos.", TipoMensaje.MsgInformacion)
-        Else
-            Alert("La marca esta siendo utilizada por un Producto", TipoMensaje.MsgError)
-        End If
-        ObjPS.Dispose()
-        CargaDatos()
-    End Sub
-
-    Protected Sub LnkAgregarMarca_Click(sender As Object, e As EventArgs)
-        LimpiaModal()
-        Modalidad = "A"
-        BtnGuardar.Text = "Agregar"
-        DivEstatus.Visible = False
-        UpModal.Update()
-        RegistraScript("$('#DModalMarca').modal()")
+            Alert("Se borró correctamente de la base de Datos.", TipoMensaje.MsgInformacion)
+        Else
+            Alert("La marca esta siendo utilizada por un Producto", TipoMensaje.MsgError)
+        End If
         ObjPS.Dispose()
+        CargaDatos()
+    End Sub
+
+    Protected Sub LnkAgregarMarca_Click(sender As Object, e As EventArgs)
+        LimpiaModal()
+        Modalidad = "A"
+        BtnGuardar.Text = "Agregar"
+        DivEstatus.Visible = False
+        UpModal.Update()
+        RegistraScript("$('#DModalMarca').modal()")
+    End Sub
+    Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
+        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