AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-02-13 03:20:53 -07:00
parent cbc3d7a2e3
commit 2e76b947c9
5 changed files with 248 additions and 170 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
App_Code/ClsClientes.vb
View File

@@ -890,6 +890,32 @@ Public Class ClsClientes
' Return Retorno ' Return Retorno
'End Function '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 Public Function UpdateClientePersonaFisica(CveCliente As Integer, ApellidoPaterno As String, ApellidoMaterno As String, Nombres As String) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False

6
App_Code/ClsVentas.vb
View File

@@ -2052,7 +2052,7 @@ Public Class ClsVentas
Return Retorno Return Retorno
End Function 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 Dim Retorno As Integer = -1
DataAdapter("PA_Vta_PrecioListaAdd") DataAdapter("PA_Vta_PrecioListaAdd")
@@ -2064,6 +2064,7 @@ Public Class ClsVentas
.Add("@Porcentaje", SqlDbType.SmallMoney).Value = Porcentaje .Add("@Porcentaje", SqlDbType.SmallMoney).Value = Porcentaje
.Add("@Predeterminada", SqlDbType.Bit).Value = Predeterminada .Add("@Predeterminada", SqlDbType.Bit).Value = Predeterminada
.Add("@CvePrecioListaClonar", SqlDbType.Int).Value = CvePrecioListaClonar .Add("@CvePrecioListaClonar", SqlDbType.Int).Value = CvePrecioListaClonar
.Add("@UpdateFranquicia", SqlDbType.Bit).Value = UpdateFranquicia
.Add("@CvePrecioLista", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@CvePrecioLista", SqlDbType.Int).Direction = ParameterDirection.Output
End With End With
@@ -2084,7 +2085,7 @@ Public Class ClsVentas
End Function End Function
Public Function UpdatePrecioLista(PrecioLista As String, Estatus As Boolean, CveUsuario As Integer, Porcentaje As Double, 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 Dim Retorno As Boolean = False
DataAdapter("PA_Vta_PrecioListaUpdate") DataAdapter("PA_Vta_PrecioListaUpdate")
@@ -2096,6 +2097,7 @@ Public Class ClsVentas
.Add("@Porcentaje", SqlDbType.SmallMoney).Value = Porcentaje .Add("@Porcentaje", SqlDbType.SmallMoney).Value = Porcentaje
.Add("@Predeterminada", SqlDbType.Bit).Value = Predeterminada .Add("@Predeterminada", SqlDbType.Bit).Value = Predeterminada
.Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
.Add("@UpdateFranquicia", SqlDbType.Bit).Value = UpdateFranquicia
End With End With
Try Try

357
Ventas/CatPreciosLista.aspx.vb
View File

@@ -65,25 +65,44 @@ Partial Class Ventas_CatPreciosLista
End Sub End Sub
Protected Sub BtnAgregarCatalogo_Click(sender As Object, e As EventArgs) Handles BtnAgregarCatalogo.Click Protected Sub BtnAgregarCatalogo_Click(sender As Object, e As EventArgs) Handles BtnAgregarCatalogo.Click
Dim ObjVta As New ClsVentas Dim ActualizarFranquicias As Boolean = False
If EsEditar = 0 Then If UsuarioActual.Empresa.Funcionalidad(563) <> "" AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
If ObjVta.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, ChkPredeterminada.Checked, 0) > 0 Then ActualizarFranquicias = True
Alert("El Precio de Lista se agregó correctamente", TipoMensaje.MsgInformacion) End If
Else
Alert("Ocurrió un error al agregar el Precio de Lista", TipoMensaje.MsgError) Dim ObjVta As New ClsVentas
End If ObjVta.IniciaTransacSQL()
ElseIf EsEditar = 1 Then Dim TieneError As Boolean = False
If ObjVta.UpdatePrecioLista(TxtPrecioLista.Text, chkEstatus.Checked, UsuarioActual.CveUsuario, 0, ChkPredeterminada.Checked, CvePrecioLista) Then Try
Alert("El Precio de Lista se editó correctamente", TipoMensaje.MsgInformacion) If EsEditar = 0 Then
Else If ObjVta.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, ChkPredeterminada.Checked, 0, UpdateFranquicia:=ActualizarFranquicias) > 0 Then
Alert("Ocurrió un error al editar al Precio de Lista", TipoMensaje.MsgError) Alert("El Precio de Lista se agregó correctamente", TipoMensaje.MsgInformacion)
End If Else
EsEditar = 0 Alert("Ocurrió un error al agregar el Precio de Lista", TipoMensaje.MsgError)
dvEstatus.Visible = False TieneError = True
BtnAgregarCatalogo.Text = "Agregar" End If
ElseIf EsEditar = 1 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
Catch ex As Exception
TieneError = True
GuardaLog(ex.ToString())
End Try
If TieneError Then
ObjVta.RollBack()
Else
ObjVta.Commit()
End If End If
GlobalDTPrecioListas(UsuarioActual.CveEmpresa) = Nothing
RegistraScript("$('#divAgregar').modal('hide')") RegistraScript("$('#divAgregar').modal('hide')")
ObjVta.Dispose() ObjVta.Dispose()
@@ -94,6 +113,7 @@ Partial Class Ventas_CatPreciosLista
UpDatos.Update() UpDatos.Update()
UpBodyCo.Update() UpBodyCo.Update()
RecargaGlobal()
End Sub End Sub
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting 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() ObjPrecioLista.Dispose()
CargaDatos() CargaDatos()
UpDatos.Update() UpDatos.Update()
RecargaGlobal()
End Sub End Sub
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
@@ -131,155 +153,158 @@ Partial Class Ventas_CatPreciosLista
dvEstatus.Visible = False dvEstatus.Visible = False
UpBodyCo.Update() UpBodyCo.Update()
UpFooter.Update() UpFooter.Update()
End Sub End Sub
Private Sub RecargaGlobal()
GlobalDTPrecioListas(UsuarioActual.CveEmpresa) = Nothing
End Sub
#Region "VIEJO" #Region "VIEJO"
' Public Property PuedeEliminar As Boolean ' Public Property PuedeEliminar As Boolean
' Get ' Get
' Return CBool(ViewState("PuedeEditar")) ' Return CBool(ViewState("PuedeEditar"))
' End Get ' End Get
' Set(value As Boolean) ' Set(value As Boolean)
' ViewState("PuedeEditar") = value ' ViewState("PuedeEditar") = value
' End Set ' End Set
' End Property ' End Property
' Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load ' Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
' If Not Page.IsPostBack Then ' If Not Page.IsPostBack Then
' CargaDatos() ' CargaDatos()
' 'Permiso Registro ' 'Permiso Registro
' If UsuarioActual.TienePermisoProceso(132) Then LbAgregar.Enabled = True Else LbAgregar.Enabled = False ' If UsuarioActual.TienePermisoProceso(132) Then LbAgregar.Enabled = True Else LbAgregar.Enabled = False
' 'Permiso Eliminar ' 'Permiso Eliminar
' If UsuarioActual.TienePermisoProceso(134) Then GvDatos.Columns(5).Visible = True Else GvDatos.Columns(6).Visible = False ' If UsuarioActual.TienePermisoProceso(134) Then GvDatos.Columns(5).Visible = True Else GvDatos.Columns(6).Visible = False
' End If ' End If
' End Sub ' End Sub
' Private Sub CargaDatos() ' Private Sub CargaDatos()
' Dim ObjListas As New ClsVentas ' Dim ObjListas As New ClsVentas
' If ObjListas.GetPrecioListas(CveEmpresa:=UsuarioActual.CveEmpresa) Then ' If ObjListas.GetPrecioListas(CveEmpresa:=UsuarioActual.CveEmpresa) Then
' GvDatos.DataSource = ObjListas.DtResultados ' GvDatos.DataSource = ObjListas.DtResultados
' GvDatos.DataBind() ' GvDatos.DataBind()
' Else ' Else
' Me.GvDatos.DataSource = Nothing ' Me.GvDatos.DataSource = Nothing
' End If ' End If
' If ObjListas.GetPrecioListas(-1) Then ' If ObjListas.GetPrecioListas(-1) Then
' GlobalDTPrecioListas(-1) = ObjListas.DtResultados ' GlobalDTPrecioListas(-1) = ObjListas.DtResultados
' End If ' End If
' ObjListas.Dispose() ' ObjListas.Dispose()
' OrdenaDatos() ' OrdenaDatos()
' End Sub ' End Sub
' Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click ' Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
' Dim ObjListas As New ClsVentas ' Dim ObjListas As New ClsVentas
' If HdnModalidad.Value = "I" Then ' If HdnModalidad.Value = "I" Then
' If ObjListas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text.Trim, TxtPorcentaje.Text.Trim.ToDouble) Then ' If ObjListas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text.Trim, TxtPorcentaje.Text.Trim.ToDouble) Then
' TxtPrecioLista.Text = "" ' TxtPrecioLista.Text = ""
' TxtPorcentaje.Text = "" ' TxtPorcentaje.Text = ""
' Alert("La nueva Lista se guardó correctamente.", TipoMensaje.MsgInformacion) ' Alert("La nueva Lista se guardó correctamente.", TipoMensaje.MsgInformacion)
' UpTitulos.Update() ' UpTitulos.Update()
' CargaDatos() ' CargaDatos()
' UpDatos.Update() ' UpDatos.Update()
' OcultaDiv() ' OcultaDiv()
' End If ' End If
' ObjListas.Dispose() ' ObjListas.Dispose()
' Else ' Else
' If HdnID.Value.ToEntero <> -1 Then ' If HdnID.Value.ToEntero <> -1 Then
' If ObjListas.UpdatePrecioLista(TxtPrecioLista.Text.Trim, True, UsuarioActual.CveUsuario, TxtPorcentaje.Text.Trim.ToDouble, HdnID.Value.ToEntero) Then ' If ObjListas.UpdatePrecioLista(TxtPrecioLista.Text.Trim, True, UsuarioActual.CveUsuario, TxtPorcentaje.Text.Trim.ToDouble, HdnID.Value.ToEntero) Then
' TxtPrecioLista.Text = "" ' TxtPrecioLista.Text = ""
' TxtPorcentaje.Text = "" ' TxtPorcentaje.Text = ""
' Alert("La lista se actualizó correctamente.", TipoMensaje.MsgInformacion) ' Alert("La lista se actualizó correctamente.", TipoMensaje.MsgInformacion)
' UpTitulos.Update() ' UpTitulos.Update()
' CargaDatos() ' CargaDatos()
' UpDatos.Update() ' UpDatos.Update()
' OcultaDiv() ' OcultaDiv()
' End If ' End If
' End If ' End If
' End If ' End If
' End Sub ' End Sub
'#Region "G V D A T O S" '#Region "G V D A T O S"
' Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound ' Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
' If e.Row.RowType = DataControlRowType.DataRow Then ' If e.Row.RowType = DataControlRowType.DataRow Then
' Dim URL As String = String.Format("javascript:CleanObjects();SetValue('HdnModalidad', 'U');SetValue('HdnID', '{0}'); SetObjects('{1}','{2}');ShowDivRegistro();return false;", e.Row.DBCampo("CvePrecioLista").ToEntero, e.Row.DBCampo("PrecioLista"), e.Row.DBCampo("Porcentaje")) ' Dim URL As String = String.Format("javascript:CleanObjects();SetValue('HdnModalidad', 'U');SetValue('HdnID', '{0}'); SetObjects('{1}','{2}');ShowDivRegistro();return false;", e.Row.DBCampo("CvePrecioLista").ToEntero, e.Row.DBCampo("PrecioLista"), e.Row.DBCampo("Porcentaje"))
' 'GeneroLigas ' 'GeneroLigas
' Dim Liga As String = String.Format("<a class=""LinkBlanco"" href=""{0}"">", URL) ' Dim Liga As String = String.Format("<a class=""LinkBlanco"" href=""{0}"">", URL)
' e.Row.VerticalAlign = VerticalAlign.Middle ' e.Row.VerticalAlign = VerticalAlign.Middle
' e.Row.FCLinkButton("ImgE").OnClientClick = URL ' e.Row.FCLinkButton("ImgE").OnClientClick = URL
' End If ' End If
' End Sub ' End Sub
' Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting ' Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
' Dim ObjListas As New ClsVentas ' Dim ObjListas As New ClsVentas
' If ObjListas.RemovePrecioLista(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then ' If ObjListas.RemovePrecioLista(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
' GvDatos.EditIndex = -1 ' GvDatos.EditIndex = -1
' ViewState("DTPrecioListas") = ObjListas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) ' ViewState("DTPrecioListas") = ObjListas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
' Alert("La Lista se eliminó correctamente.", TipoMensaje.MsgInformacion) ' Alert("La Lista se eliminó correctamente.", TipoMensaje.MsgInformacion)
' End If ' End If
' If ObjListas.GetPrecioListas(-1) Then ' If ObjListas.GetPrecioListas(-1) Then
' GlobalDTPrecioListas(-1) = ObjListas.DtResultados ' GlobalDTPrecioListas(-1) = ObjListas.DtResultados
' End If ' End If
' ObjListas.Dispose() ' ObjListas.Dispose()
' CargaDatos() ' CargaDatos()
' UpDatos.Update() ' UpDatos.Update()
' End Sub ' End Sub
' Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating ' Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
' Dim ObjListas As New ClsVentas ' Dim ObjListas As New ClsVentas
' Dim PrecioLista As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtPrecioLista"), TextBox).Text.Trim ' Dim PrecioLista As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtPrecioLista"), TextBox).Text.Trim
' Dim Porcentaje As Double = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtPorcentaje"), TextBox).Text.Trim.ToDouble ' Dim Porcentaje As Double = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtPorcentaje"), TextBox).Text.Trim.ToDouble
' Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked ' Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
' Dim CvePrecioLista As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero ' Dim CvePrecioLista As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
' If ObjListas.UpdatePrecioLista(PrecioLista, Estatus, UsuarioActual.CveUsuario, Porcentaje, CvePrecioLista) Then ' If ObjListas.UpdatePrecioLista(PrecioLista, Estatus, UsuarioActual.CveUsuario, Porcentaje, CvePrecioLista) Then
' GvDatos.EditIndex = -1 ' GvDatos.EditIndex = -1
' ViewState("DTPrecioListas") = ObjListas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) ' ViewState("DTPrecioListas") = ObjListas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
' Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) ' Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
' End If ' End If
' If ObjListas.GetPrecioListas(-1) Then ' If ObjListas.GetPrecioListas(-1) Then
' GlobalDTPrecioListas(-1) = ObjListas.DtResultados ' GlobalDTPrecioListas(-1) = ObjListas.DtResultados
' End If ' End If
' ObjListas.Dispose() ' ObjListas.Dispose()
' OrdenaDatos() ' OrdenaDatos()
' End Sub ' End Sub
'#End Region '#End Region
'#Region " O R D E N A M I E N T O JAVASCRIPT" '#Region " O R D E N A M I E N T O JAVASCRIPT"
' Private Sub OrdenaDatos() ' Private Sub OrdenaDatos()
' If (GvDatos.Rows.Count > 0) Then ' If (GvDatos.Rows.Count > 0) Then
' GvDatos.UseAccessibleHeader = True ' GvDatos.UseAccessibleHeader = True
' GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader ' GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
' RegistraScript("OrdenarGV();") ' RegistraScript("OrdenarGV();")
' End If ' End If
' End Sub ' End Sub
'#End Region '#End Region
' Private Sub OcultaDiv() ' Private Sub OcultaDiv()
' ScriptManager.RegisterStartupScript(Me, Me.GetType, "Llave", "HideDivRegistro();", True) ' ScriptManager.RegisterStartupScript(Me, Me.GetType, "Llave", "HideDivRegistro();", True)
' End Sub ' End Sub
#End Region #End Region
End Class End Class

27
Ventas/Clientes.aspx.vb
View File

@@ -781,7 +781,7 @@ Partial Class Clientes
'JM 05-02-19: CRM 'JM 05-02-19: CRM
'If UsuarioActual.Empresa.UsaCRM Then '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() VerificaVinculacion()
UpAccionesCRM.Update() UpAccionesCRM.Update()
End If End If
@@ -2618,6 +2618,10 @@ Partial Class Clientes
Next Next
End If 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 Else
ErrorProceso = True ErrorProceso = True
End If End If
@@ -2671,6 +2675,10 @@ Partial Class Clientes
If Not ErrorProceso AndAlso Not GuardarDocumentosClientes(objDoc, Me.CveCliente) Then If Not ErrorProceso AndAlso Not GuardarDocumentosClientes(objDoc, Me.CveCliente) Then
ErrorProceso = True ErrorProceso = True
End If 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 Else
ErrorProceso = True ErrorProceso = True
End If End If
@@ -2773,6 +2781,23 @@ Partial Class Clientes
End Sub 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 #End Region

2
Ventas/ProductosServicios.aspx.vb
View File

@@ -3194,7 +3194,7 @@ Partial Class ProductosyServicios
Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS", String.Format(" Codigo = '{0}'", TxtCodigo.Text.Trim.ToUpper)).ToEntero() 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, 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, (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, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,
CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked, 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, VentaMinima:=TxtVentaMinima.Text.ToDecimal, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100), PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal,