Ferretera. Sincronizar marcas

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