--Al crear/actualizar ps, precios, clientes a la otra empresa FUNC 563

2024-02-13 03:20:53 -07:00
parent cbc3d7a2e3
commit 2e76b947c9
5 changed files with 248 additions and 170 deletions
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -890,6 +890,32 @@ Public Class ClsClientes
    '    Return Retorno
    'End Function

+    Public Function UpdateClienteFranquicia(CveCliente As Integer, CveEmpresaActual As Integer, CveEmpresaFranquicia As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Vta_ClientesFranquiciaUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveEmpresaActual", SqlDbType.Int).Value = CveEmpresaActual
+            .Add("@CveEmpresaFranquicia", SqlDbType.Int).Value = CveEmpresaFranquicia
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("El Cliente no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al intentar Actualizar los datos del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
    Public Function UpdateClientePersonaFisica(CveCliente As Integer, ApellidoPaterno As String, ApellidoMaterno As String, Nombres As String) As Boolean
        Dim Retorno As Boolean = False

--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -2052,7 +2052,7 @@ Public Class ClsVentas
        Return Retorno
    End Function

-    Public Function AddPrecioLista(CveUsuario As Integer, CveEmpresa As Integer, PrecioLista As String, Predeterminada As Boolean, Porcentaje As Double, Optional CvePrecioListaClonar As Integer = -1) As Integer
+    Public Function AddPrecioLista(CveUsuario As Integer, CveEmpresa As Integer, PrecioLista As String, Predeterminada As Boolean, Porcentaje As Double, Optional CvePrecioListaClonar As Integer = -1, Optional UpdateFranquicia As Boolean = False) As Integer
        Dim Retorno As Integer = -1

        DataAdapter("PA_Vta_PrecioListaAdd")
@@ -2064,6 +2064,7 @@ Public Class ClsVentas
            .Add("@Porcentaje", SqlDbType.SmallMoney).Value = Porcentaje
            .Add("@Predeterminada", SqlDbType.Bit).Value = Predeterminada
            .Add("@CvePrecioListaClonar", SqlDbType.Int).Value = CvePrecioListaClonar
+            .Add("@UpdateFranquicia", SqlDbType.Bit).Value = UpdateFranquicia
            .Add("@CvePrecioLista", SqlDbType.Int).Direction = ParameterDirection.Output
        End With

@@ -2084,7 +2085,7 @@ Public Class ClsVentas
    End Function

    Public Function UpdatePrecioLista(PrecioLista As String, Estatus As Boolean, CveUsuario As Integer, Porcentaje As Double,
-                                      Predeterminada As Boolean, CvePrecioLista As Integer) As Boolean
+                                      Predeterminada As Boolean, CvePrecioLista As Integer, Optional UpdateFranquicia As Boolean = False) As Boolean
        Dim Retorno As Boolean = False

        DataAdapter("PA_Vta_PrecioListaUpdate")
@@ -2096,6 +2097,7 @@ Public Class ClsVentas
            .Add("@Porcentaje", SqlDbType.SmallMoney).Value = Porcentaje
            .Add("@Predeterminada", SqlDbType.Bit).Value = Predeterminada
            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
+            .Add("@UpdateFranquicia", SqlDbType.Bit).Value = UpdateFranquicia
        End With

        Try
--- a/Ventas/CatPreciosLista.aspx.vb
+++ b/Ventas/CatPreciosLista.aspx.vb
@@ -65,25 +65,44 @@ Partial Class Ventas_CatPreciosLista
    End Sub

    Protected Sub BtnAgregarCatalogo_Click(sender As Object, e As EventArgs) Handles BtnAgregarCatalogo.Click
-        Dim ObjVta As New ClsVentas
+        Dim ActualizarFranquicias As Boolean = False

+        If UsuarioActual.Empresa.Funcionalidad(563) <> "" AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+            ActualizarFranquicias = True
+        End If
+
+        Dim ObjVta As New ClsVentas
+        ObjVta.IniciaTransacSQL()
+        Dim TieneError As Boolean = False
+        Try
            If EsEditar = 0 Then
-            If ObjVta.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, ChkPredeterminada.Checked, 0) > 0 Then
+                If ObjVta.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, ChkPredeterminada.Checked, 0, UpdateFranquicia:=ActualizarFranquicias) > 0 Then
                    Alert("El Precio de Lista se agregó correctamente", TipoMensaje.MsgInformacion)
                Else
                    Alert("Ocurrió un error al agregar el Precio de Lista", TipoMensaje.MsgError)
+                    TieneError = True
                End If
            ElseIf EsEditar = 1 Then
-            If ObjVta.UpdatePrecioLista(TxtPrecioLista.Text, chkEstatus.Checked, UsuarioActual.CveUsuario, 0, ChkPredeterminada.Checked, CvePrecioLista) Then
+                If ObjVta.UpdatePrecioLista(TxtPrecioLista.Text, chkEstatus.Checked, UsuarioActual.CveUsuario, 0, ChkPredeterminada.Checked, CvePrecioLista, UpdateFranquicia:=ActualizarFranquicias) Then
                    Alert("El Precio de Lista se editó correctamente", TipoMensaje.MsgInformacion)
                Else
                    Alert("Ocurrió un error al editar al Precio de Lista", TipoMensaje.MsgError)
+                    TieneError = True
                End If
                EsEditar = 0
                dvEstatus.Visible = False
                BtnAgregarCatalogo.Text = "Agregar"
            End If
-        GlobalDTPrecioListas(UsuarioActual.CveEmpresa) = Nothing
+        Catch ex As Exception
+            TieneError = True
+            GuardaLog(ex.ToString())
+        End Try
+
+        If TieneError Then
+            ObjVta.RollBack()
+        Else
+            ObjVta.Commit()
+        End If

        RegistraScript("$('#divAgregar').modal('hide')")
        ObjVta.Dispose()
@@ -94,6 +113,7 @@ Partial Class Ventas_CatPreciosLista
        UpDatos.Update()
        UpBodyCo.Update()

+        RecargaGlobal()
    End Sub

    Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
@@ -105,6 +125,8 @@ Partial Class Ventas_CatPreciosLista
        ObjPrecioLista.Dispose()
        CargaDatos()
        UpDatos.Update()
+
+        RecargaGlobal()
    End Sub

    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
@@ -132,6 +154,9 @@ Partial Class Ventas_CatPreciosLista
        UpBodyCo.Update()
        UpFooter.Update()
    End Sub
+    Private Sub RecargaGlobal()
+        GlobalDTPrecioListas(UsuarioActual.CveEmpresa) = Nothing
+    End Sub

 #Region "VIEJO"
    '    Public Property PuedeEliminar As Boolean
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -781,7 +781,7 @@ Partial Class Clientes

                    'JM 05-02-19: CRM
                    'If UsuarioActual.Empresa.UsaCRM Then
-                    If GlobalDTCRMTipoProceso(UsuarioActual.CveEmpresa).Rows.Count > 0 Then
+                    If GlobalDTCRMTipoProceso(UsuarioActual.CveEmpresa) IsNot Nothing AndAlso GlobalDTCRMTipoProceso(UsuarioActual.CveEmpresa).Rows.Count > 0 Then
                        VerificaVinculacion()
                        UpAccionesCRM.Update()
                    End If
@@ -2618,6 +2618,10 @@ Partial Class Clientes
                            Next
                        End If

+                        If Not ErrorProceso AndAlso UsuarioActual.Empresa.Funcionalidad(563) <> "" AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                            ErrorProceso = Not ActualizarClienteFranquicia(ObjClientes, CveClienteNuevo)
+                        End If
+
                    Else
                        ErrorProceso = True
                    End If
@@ -2671,6 +2675,10 @@ Partial Class Clientes
                        If Not ErrorProceso AndAlso Not GuardarDocumentosClientes(objDoc, Me.CveCliente) Then
                            ErrorProceso = True
                        End If
+
+                        If Not ErrorProceso AndAlso UsuarioActual.Empresa.Funcionalidad(563) <> "" AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                            ErrorProceso = Not ActualizarClienteFranquicia(ObjClientes, Me.CveCliente)
+                        End If
                    Else
                        ErrorProceso = True
                    End If
@@ -2773,6 +2781,23 @@ Partial Class Clientes

    End Sub

+
+    Private Function ActualizarClienteFranquicia(ByRef ObjClientes As ClsClientes, CveClienteRef As Integer) As Boolean
+        Dim TieneError As Boolean = False
+        Dim FranquiciasStr As String = UsuarioActual.Empresa.Funcionalidad(563)
+
+        Dim Franquicias As String() = FranquiciasStr.Split(","c)
+
+        For Each Franquicia As String In Franquicias
+            Dim CveEmpresaFranquicia As Integer = Franquicia.ToEntero
+            If Not ObjClientes.UpdateClienteFranquicia(CveClienteRef, UsuarioActual.CveEmpresa, CveEmpresaFranquicia) Then
+                TieneError = True
+                Exit For
+            End If
+        Next
+
+        Return Not TieneError
+    End Function
 #End Region


--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -3194,7 +3194,7 @@ Partial Class ProductosyServicios
                    Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS", String.Format(" Codigo  = '{0}'", TxtCodigo.Text.Trim.ToUpper)).ToEntero()
                    If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtNumeroParte.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
                                  (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, -1, True, ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv,
-                                  EsPaquete, DdlSATPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarcaFranquicia,
+                                  EsPaquete, DdlSATPS.SelectedValue.ToEntero, CveEmpresaFranquicia, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarcaFranquicia,
                                  AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,
                                  CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked,
                                  VentaMinima:=TxtVentaMinima.Text.ToDecimal, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100), PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal,