diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index d61a22728..e0a31b773 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -3866,7 +3866,7 @@ Public Class ClsContabilidad
Return Retorno
End Function
- Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, TipoCuentas As Integer, TipoReporte As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional Sat As Integer = 0) As Boolean
+ Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, TipoCuentas As Integer, TipoReporte As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional Sat As Integer = 0, Optional NivelCuenta As Integer = -1) As Boolean
Dim Retorno = False
@@ -3880,6 +3880,7 @@ Public Class ClsContabilidad
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@SAT", SqlDbType.Int).Value = Sat
+ .Add("@NivelCuenta", SqlDbType.Int).Value = NivelCuenta
End With
SqlAdapter.SelectCommand.CommandTimeout = 0
diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb
index 04e539117..cad410eeb 100644
--- a/App_Code/ClsOS.vb
+++ b/App_Code/ClsOS.vb
@@ -726,7 +726,7 @@ Public Class ClsOS
End Function
- Public Function UpdateOrdenesServiciosFinaliza(CveOS As Integer, CveOSDetalle As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean
+ Public Function UpdateOrdenesServiciosFinaliza(CveOS As Integer, CveOSDetalle As Integer, CvePS As Integer, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_OS_OrdenesServiciosFinalizaUpdate")
@@ -736,6 +736,7 @@ Public Class ClsOS
.Add("@CveOSDetalle", SqlDbType.Int).Value = CveOSDetalle
.Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@Opcion", SqlDbType.Int).Value = Opcion
End With
@@ -744,7 +745,16 @@ Public Class ClsOS
Retorno = True
Catch ex As Exception
- OnError("Ocurrió un error al guardar los cambios en La Orden de Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+
+ If Opcion = 1 Then
+ OnError("Ocurrió un error al finalizar la orden de servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ ElseIf Opcion = 2 Then
+ OnError("Ocurrió un error al cencelar la orden de servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ Else
+ OnError("Ocurrió un error al finalizar la orden de servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End If
+
+
End Try
Return Retorno
diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb
index 352595214..115bacd73 100644
--- a/App_Code/ClsSisUsuarios.vb
+++ b/App_Code/ClsSisUsuarios.vb
@@ -1316,7 +1316,7 @@ Public Class ClsSisUsuarios
Return Retorno
End Function
- Public Function GetPermisosPorUsuarioProcesos(CveUsuario As Integer, CvePadre As Integer, CveRol As Integer, CveModulo As Integer, CveProceso As Integer, Optional CveUsuarioActual As Integer = -1) As Boolean
+ Public Function GetPermisosPorUsuarioProcesos(CveUsuario As Integer, CvePadre As Integer, CveRol As Integer, CveModulo As Integer, CveProceso As Integer, Optional CveUsuarioActual As Integer = -1, Optional CveEmpresa As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Sis_PermisosPorUsuarioProcesosGet")
@@ -1327,6 +1327,7 @@ Public Class ClsSisUsuarios
.Add("@CveModulo", SqlDbType.Int).Value = CveModulo
.Add("@CveProceso", SqlDbType.Int).Value = CveProceso
.Add("@CveUsuarioActual", SqlDbType.Int).Value = CveUsuarioActual
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa 'Opcional si se envia en -1 se cargan los usuarios de la empresa de los usuarios enviados
End With
Try
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 004593a48..6e0bcca33 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4198,6 +4198,13 @@ Partial Class Compras_Compras
'------------------ INICIA VALIDACIONES ------------------
+ If Not ValidaVincuacionNotaFactura() Then
+ Alert("Se requiere que la nota este aplciada a las facturas", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+
+
If Not ValidaSeleccionAnticipo() Then
Alert("El proveedor tiene anticipos sin aplicar, favor de especiar uno.", TipoMensaje.MsgAdvertencia)
Exit Sub
@@ -8327,6 +8334,34 @@ Partial Class Compras_Compras
End If
End Sub
+ Private Function ValidaVincuacionNotaFactura() As Boolean
+
+ Dim Respuesta As Boolean = False
+
+
+ If DdlTipoComprobante.SelectedValue.Contiene("NC") Then
+ If UsuarioActual.Empresa.Funcionalidad(531).ToString.ToEntero = 1 Then
+
+ For Each GvRow As GridViewRow In GvFacturaNC.Rows
+ If GvRow.RowType = DataControlRowType.DataRow Then
+ If GvRow.FCCheckBox("ChkFacturaNC").Checked Then
+ Respuesta = True
+ Exit For
+ End If
+ End If
+ Next
+
+ Else
+ Respuesta = True
+ End If
+ Else
+ Respuesta = True
+ End If
+
+
+ Return Respuesta
+
+ End Function
Private Function AjustaCombustibles() As Boolean
@@ -16127,6 +16162,15 @@ Partial Class Compras_Compras
End If
+
+ If CveFactura > 0 Then
+ If DdlTipoComprobante.SelectedValue = "NC" Then
+ NCSeleccionFacturasRelacionadas(UUIDSList)
+ End If
+ End If
+
+
+
UPCondicionesPago.Update()
End Sub
diff --git a/Contabilidad2/RepBalanzaComprobacion.aspx b/Contabilidad2/RepBalanzaComprobacion.aspx
index 3386193c7..877a335dd 100644
--- a/Contabilidad2/RepBalanzaComprobacion.aspx
+++ b/Contabilidad2/RepBalanzaComprobacion.aspx
@@ -30,7 +30,7 @@
-
-
-
-<%-- --%>
-
-
+
+
+
+
diff --git a/OS/RepServicioDomicilio.aspx.vb b/OS/RepServicioDomicilio.aspx.vb
index 42c9ac8da..b5b44b6ad 100644
--- a/OS/RepServicioDomicilio.aspx.vb
+++ b/OS/RepServicioDomicilio.aspx.vb
@@ -255,6 +255,22 @@ Partial Class OS_RepServicioDomicilio
End Property
+ Private Property DTTecnicos As DataTable
+ Get
+ If ViewState("DTTecnicos") Is Nothing Then
+ ViewState("DTTecnicos") = New DataTable
+ End If
+
+ Return DirectCast(ViewState("DTTecnicos"), DataTable)
+ End Get
+
+ Set(ByVal value As DataTable)
+ ViewState("DTTecnicos") = value
+ End Set
+ End Property
+
+
+
Enum OSModalTipoAccion
Agregar
@@ -268,7 +284,7 @@ Partial Class OS_RepServicioDomicilio
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
-
+ CargaUsuariosTecnicos()
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoEtiqueta)
LblSubProyectoFiltro.Text = LblSubProyectoEtiqueta.Text
' LblModalSubProyectoLabel.Text = LblSubProyectoEtiqueta.Text
@@ -281,10 +297,15 @@ Partial Class OS_RepServicioDomicilio
cargaDropsModal()
CargaClientePublicoGeneral()
+
If UsuarioActual.TienePermisoProceso(348) Then
DVModalAsignacion.Visible = True
End If
+ If UsuarioActual.TienePermisoProceso(352) Then
+ LnkCancelarOrden.Visible = True
+ End If
+
'RegistraScript(" PrimeraCargaCalendario = true;")
@@ -293,6 +314,18 @@ Partial Class OS_RepServicioDomicilio
End If
End Sub
+ Private Sub CargaUsuariosTecnicos()
+
+ DTTecnicos = New DataTable
+
+ Dim ObjUsuarios As New ClsSisUsuarios
+ If ObjUsuarios.GetPermisosPorUsuarioProcesos(-1, -1, -1, -1, 351, UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) Then
+ DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0")
+ End If
+ ObjUsuarios.Dispose()
+
+ End Sub
+
#Region "CARGAS"
#End Region
@@ -323,7 +356,7 @@ Partial Class OS_RepServicioDomicilio
End Sub
Private Sub CargaTecnicos()
- DdlTecnico.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+ DdlTecnico.DataSource = DTTecnicos 'GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DdlTecnico.DataBind()
DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
@@ -352,7 +385,7 @@ Partial Class OS_RepServicioDomicilio
'ObjOS.Dispose()
- DdlTecnicoAsignar.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True'")
+ DdlTecnicoAsignar.DataSource = DTTecnicos 'GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True'")
DdlTecnicoAsignar.DataBind()
DdlTecnicoAsignar.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
@@ -716,6 +749,9 @@ Partial Class OS_RepServicioDomicilio
HLkFolio.Text = ObjOS.Folio.ToString
HLkFolio.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveOS={ObjOS.CveOS}"
+ HLKPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=OS&CVEOS={0}", ObjOS.CveOS))}"
+
+
HFCveOS.Value = ObjOS.CveOS.ToString
HFCveOsDetalle.Value = ObjOS.CveOSDetalle.ToString
TxtDescripcion.Text = ObjOS.Descripcion
@@ -743,18 +779,31 @@ Partial Class OS_RepServicioDomicilio
FechaInicioOriginal = ObjOS.FechaInicio
TxtModalFechaOS.Text = ObjOS.FechaInicio.ToString.ToDate.ToString("dd/MM/yyyy HH:mm")
DvModalSubProyecto.Visible = True
+ LblModalOStitulo.Text = "Actualizar Orden de Servicio"
'TSTimeSelector.Hour = If(ObjOS.FechaInicio.Hour > 12, ObjOS.FechaInicio.Hour - 12, ObjOS.FechaInicio.Hour)
'TSTimeSelector.Minute = ObjOS.FechaInicio.Minute
'TSTimeSelector.AmPm = If(ObjOS.FechaInicio.Hour > 12, MKB.TimePicker.TimeSelector.AmPmSpec.PM, MKB.TimePicker.TimeSelector.AmPmSpec.AM)
End If
+
+ Dim TipoEstatus As Integer = 0
+ TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio), "CveEstatusOrdenServicio ASC").ToEntero
+
+ LnkModalAsignar.Visible = If(TipoEstatus.Contiene(5), False, True)
+ LnkCancelarOrden.Visible = If(TipoEstatus.Contiene(5), False, True)
+
+ If (TipoEstatus = 5) Then
+ LblModalOStitulo.Text = "Orden Cancelada"
+ End If
+
RegistraScript("$('#DVModalOS').modal('show');")
End If
+
ObjOS.Dispose()
- LblModalOStitulo.Text = "Actualizar Orden de Servicio"
+
ElseIf False Then ' Anterior
@@ -1255,7 +1304,7 @@ Partial Class OS_RepServicioDomicilio
DdlTecnicoAsignarHorario.Items.Clear()
- DdlTecnicoAsignarHorario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True'")
+ DdlTecnicoAsignarHorario.DataSource = DTTecnicos 'GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True'")
DdlTecnicoAsignarHorario.DataBind()
DdlTecnicoAsignarHorario.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
DdlTecnicoAsignarHorario.SelectedValueExist("-1")
@@ -1393,4 +1442,89 @@ Partial Class OS_RepServicioDomicilio
End Sub
+
+ Protected Sub LnkCancelarOrden_Click(sender As Object, e As EventArgs)
+
+
+
+ RegistraScript($"$('#{TxtModalCancelarOrdenMotivo.ClientID}').focus();;$('#DVModalCancelacionOrden').modal('show');")
+
+
+ TxtModalCancelarOrdenMotivo.Focus()
+ TxtModalCancelarOrdenMotivo.Text = ""
+ UpmodalCacelaOrden.Update()
+
+
+
+ End Sub
+
+
+ 'Protected Sub BtnGuardarEventoBitacora_Click(sender As Object, e As EventArgs) Handles BtnGuardarEventoBitacora.Click
+ ' Dim ObjEventoBitacora As New ClsOIEventos
+
+ ' Dim FileExtension As String = "-1"
+ ' Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
+ ' Dim filemove As String = ""
+
+ ' For Each fileItem As Archivo In filesgral
+ ' FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+ ' filemove = fileItem.filename
+ ' Next
+
+ ' If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveOS, -1, -1, -1, -1) Then
+ ' If filemove <> "" Then
+ ' filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
+ ' End If
+
+ ' GvEB.DataSource = ObjEventoBitacora.DtResultados
+ ' TxtEventoDescripcion.Text = ""
+ ' Anexo.Text = "[]"
+ ' Alert("La bitácora/observación se guardó correctamente", TipoMensaje.MsgInformacion)
+ ' RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal")
+ ' End If
+ ' ObjEventoBitacora.Dispose()
+ ' GvEB.DataBind()
+
+ ' UPEventoBitacora.Update()
+ ' CargaEventoBitacora()
+ ' UPAddEventoBitacora.Update()
+ 'End Sub
+
+
+
+ Protected Sub LnkmodalCancelarORdenServicio_Click(sender As Object, e As EventArgs)
+
+ Dim TieneError As Boolean = True
+
+ Dim CveOS As Integer = HFCveOS.Value.ToEntero
+
+
+ Dim objOS As New ClsOS
+ Dim ObjEventoBitacora As New ClsOIEventos(objOS.IniciaTransacSQL)
+
+
+ If objOS.UpdateOrdenesServiciosFinaliza(CveOS, -1, -1, UsuarioActual.CveEmpresa, Opcion:=2) Then 'Opcion:=2 Es para cancelar
+ If ObjEventoBitacora.AddEventoBitacora($"Motivo Cancelación: {TxtModalCancelarOrdenMotivo.Text.Trim}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveOS, -1, -1, -1, -1) Then
+ TieneError = False
+ End If
+ End If
+
+ If TieneError Then
+ objOS.RollBack()
+ Else
+ objOS.Commit()
+ End If
+
+ objOS.Dispose()
+
+
+ If Not TieneError Then
+ Alert("Orden Cancelada Correctamente", TipoMensaje.MsgInformacion, "location.reload(true);")
+ RegistraScript("$('#DVModalCancelacionOrden').modal('hide');")
+ RegistraScript("$('#DVModalFinalizarOrden').modal('hide');")
+ End If
+
+
+
+ End Sub
End Class
diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb
index 3fcafaebd..3e06969e5 100644
--- a/Planeacion/CatSubProyectos.aspx.vb
+++ b/Planeacion/CatSubProyectos.aspx.vb
@@ -206,13 +206,20 @@ Partial Class CatSubProyectos
End If
End Sub
- Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
- Dim ObjSubProyectos As New ClsSubProyectos
+ Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
+
+ Dim ObjSubProyectos As New ClsSubProyectos
+
+ ObjSubProyectos.IniciaTransacSQL()
+
If ObjSubProyectos.RemoveSubProyecto(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
+ ObjSubProyectos.Commit()
GvDatos.EditIndex = -1
ViewState("DTSubProyectos") = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados
- Alert("El SubProyecto se eliminó correctamente.", TipoMensaje.MsgInformacion)
+ Alert("El SubProyecto se eliminó correctamente.", TipoMensaje.MsgInformacion)
+ Else
+ ObjSubProyectos.RollBack()
End If
ObjSubProyectos.Dispose()
diff --git a/RH/Reclutamiento.aspx.vb b/RH/Reclutamiento.aspx.vb
index 8f96ec1af..2a4efd573 100644
--- a/RH/Reclutamiento.aspx.vb
+++ b/RH/Reclutamiento.aspx.vb
@@ -804,6 +804,10 @@ Partial Class RH_Reclutamiento
If Not Page.IsPostBack Then
+
+
+
+
CrearEstructuraTablasTemporales()
DDLEstadoCivil4.DataSource = GlobalDTEstadoCivil
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index b676fa27d..da137665e 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -12,9 +12,9 @@ Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
Partial Class Clientes
- Inherits ClsPaginas
-
- 'Configuración
+ Inherits ClsPaginas
+
+ 'Configuración
#Region "P R O P I E D A D E S"
Private Const NumeroDecimales As Integer = 2
Private CveVentaDeduccion As Integer
@@ -643,21 +643,21 @@ Partial Class Clientes
Set(value As String)
ViewState("AdjuntoDocumentacion") = value
End Set
- End Property
- 'Private ReadOnly Property CvePersonal As Integer
- ' Get
- ' If ViewState("CvePersonal") Is Nothing Then
- ' Return -1
- ' Else
- ' Return ViewState("CvePersonal").ToString().Toentero()
- ' End If
- ' End Get
- 'End Property
-
+ End Property
+ 'Private ReadOnly Property CvePersonal As Integer
+ ' Get
+ ' If ViewState("CvePersonal") Is Nothing Then
+ ' Return -1
+ ' Else
+ ' Return ViewState("CvePersonal").ToString().Toentero()
+ ' End If
+ ' End Get
+ 'End Property
+
#End Region
-
-
-
+
+
+
#Region " A C U M U L A D O R E S"
Property CveVentaNota As Integer
Get
@@ -697,10 +697,10 @@ Partial Class Clientes
Set(value As String)
ViewState("SerieNotaAcumulador") = value
End Set
- End Property
-
+ End Property
+
#End Region
-
+
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
@@ -960,12 +960,12 @@ Partial Class Clientes
ChkPermiso5.Enabled = False
ChkPermiso6.Enabled = False
- End Sub
-
-
-
+ End Sub
+
+
+
#Region " PERMISOS PAGINAS "
-
+
Private Sub MostrarTxtDireccionesClienteEnvio()
If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
@@ -1002,18 +1002,18 @@ Partial Class Clientes
If Not ChkEsDistribuidor.Checked Then
BtnGuardar.Visible = PermiteEditar()
End If
- End Sub
-
-
+ End Sub
+
+
#End Region
-
-
+
+
#Region "C A R G A S"
-
-
-
-
-
+
+
+
+
+
Private Sub CreaDtPago()
DtPagos = New DataTable
DtPagos.Columns.Add("CveTipoMovimiento", GetType(String))
@@ -1207,9 +1207,9 @@ Partial Class Clientes
Select Case HdnCuenta.Value
Case "1"
- CargaDdlCuentasContables(DdlCtaContableClientes, 1)'UsuarioActual.Empresa.Funcionalidad(246).Toentero()
+ CargaDdlCuentasContables(DdlCtaContableClientes, 1)'UsuarioActual.Empresa.Funcionalidad(246).Toentero()
Case "2"
- CargaDdlCuentasContables(DdlCtaContableAnticipos, 1)' UsuarioActual.Empresa.Funcionalidad(237).Toentero()
+ CargaDdlCuentasContables(DdlCtaContableAnticipos, 1)' UsuarioActual.Empresa.Funcionalidad(237).Toentero()
Case "3"
CargaDdlCuentasContables(DdlCtaContableRetIVA, -1)
Case "4"
@@ -1217,11 +1217,11 @@ Partial Class Clientes
Case "5"
CargaDdlCuentasContables(DdlCtaContableFondoGarantia, -1)
Case "6"
- CargaDdlCuentasContables(DdlCtaContableCompClientes, 1)'UsuarioActual.Empresa.Funcionalidad(248).Toentero()
+ CargaDdlCuentasContables(DdlCtaContableCompClientes, 1)'UsuarioActual.Empresa.Funcionalidad(248).Toentero()
Case "7"
CargaDdlCuentasContables(DdlCtaContableCompAnticipos, -1)
Case "8"
- CargaDdlCuentasContables(DdlMonedaExtranjeraClientes, 1)'UsuarioActual.Empresa.Funcionalidad(247).Toentero()
+ CargaDdlCuentasContables(DdlMonedaExtranjeraClientes, 1)'UsuarioActual.Empresa.Funcionalidad(247).Toentero()
Case "9"
CargaDdlCuentasContables(DdlMonedaExtranjeraAnticipos, 1) 'UsuarioActual.Empresa.Funcionalidad(542).Toentero()
End Select
@@ -2148,11 +2148,11 @@ Partial Class Clientes
DdlSucursalUsoCFDI.Items.Clear()
DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
DdlSucursalUsoCFDI.DataBind()
- End Sub
+ End Sub
#End Region
-
+
#Region "V E R M Á S"
-
+
Protected Sub BtnVerMasVentas_Click(sender As Object, e As EventArgs)
If BtnVerMasVentas.Text = "Ver Más" Then
CargaHistorial(-1)
@@ -2182,12 +2182,12 @@ Partial Class Clientes
CargaBancos(51)
BtnVerMasBancos.Text = "Ver Más"
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "B A N C O S"
- 'CuentasxCobrar Activas (Pagos Recibidos)
+ 'CuentasxCobrar Activas (Pagos Recibidos)
Private Sub CargaBancos(Optional SelectTop As Integer = 51, Optional CveClienteSucursal As Integer = -1)
Dim ObjMovtos As New ClsMovimientos()
'CxC Activas
@@ -2257,9 +2257,9 @@ Partial Class Clientes
TxtParaMail.Text = TxtCobranzaCorreo.Text
UpSendMail.Update()
RegistraScript("$('#ModalDivMail').modal('show');")
- End Sub
+ End Sub
#End Region
-
+
#Region "B T N ´ S"
Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
Dim ObjClientes As New ClsClientes()
@@ -2600,85 +2600,85 @@ Partial Class Clientes
Dim errorContPaq As Boolean = False
Dim IdContPaqi As Integer = 0
- Dim CodigoPersona As Integer = 0
-
-
+ Dim CodigoPersona As Integer = 0
+
+
#Region "comentado"
- 'If UsuarioActual.Empresa.Funcionalidad(522).ToString() = "1" Then
-
- ' Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa)
-
- ' If ObjContPaqi.GetPersona(TxtRFC.Text) Then
-
- ' If ObjContPaqi.DtResultados.Rows.Count > 0 Then
-
- ' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("Id").ToString().Toentero()
- ' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString().Toentero()
-
- ' Dim Cont_EsProveedor As Integer = If(Boolean.Parse(ObjContPaqi.DtResultados.Rows(0)("EsProveedor").ToString()), 1, 0)
- ' Dim Cont_Nombre As String = ObjContPaqi.DtResultados(0)("Nombre").ToString()
- ' Dim Cont_RFC As String = ObjContPaqi.DtResultados(0)("RFC").ToString()
-
- ' If ObjContPaqi.UpdatePersona(IdContPaqi, Cont_Nombre, Cont_RFC, 1, Cont_EsProveedor) Then
- ' errorContPaq = False
- ' Else
- ' errorContPaq = True
- ' End If
-
- ' Else
- ' If ObjContPaqi.AddPersona(TxtNombre.Text.Trim, TxtRFC.Text.Trim, 1, 0) Then
-
- ' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiPersona").ToString().Toentero()
- ' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString().Toentero()
- ' errorContPaq = False
- ' Else
- ' errorContPaq = True
- ' End If
- ' End If
- ' End If
-
-
- ' If Not errorContPaq Then
- ' Dim IdContPaqiCliente As Integer
-
- ' If ObjContPaqi.GetCliente(-1, CodigoPersona) Then
-
- ' If ObjContPaqi.DtResultados.Rows.Count > 0 Then
-
- ' IdContPaqiCliente = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiClient").ToString().Toentero()
-
- ' If ObjContPaqi.UpdateCliente(IdContPaqiCliente, CodigoPersona, CodigoPersona, "", "") Then
- ' errorContPaq = False
- ' Else
- ' errorContPaq = True
- ' End If
- ' Else
- ' If ObjContPaqi.AddCliente(CodigoPersona, CodigoPersona, "", "") Then
- ' errorContPaq = False
- ' Else
- ' errorContPaq = True
- ' End If
- ' End If
- ' Else
- ' errorContPaq = True
- ' End If
- ' End If
-
-
- ' If Not errorContPaq Then
- ' ObjContPaqi.Commit()
- ' ObjContPaqi.Dispose()
- ' Else
- ' ObjContPaqi.RollBack()
- ' ObjContPaqi.Dispose()
- ' Alert("Se presento un error al guardar en ContPAQi", TipoMensaje.MsgError)
- ' Exit Sub
- ' End If
-
-
- 'End If
+ 'If UsuarioActual.Empresa.Funcionalidad(522).ToString() = "1" Then
+
+ ' Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa)
+
+ ' If ObjContPaqi.GetPersona(TxtRFC.Text) Then
+
+ ' If ObjContPaqi.DtResultados.Rows.Count > 0 Then
+
+ ' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("Id").ToString().Toentero()
+ ' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString().Toentero()
+
+ ' Dim Cont_EsProveedor As Integer = If(Boolean.Parse(ObjContPaqi.DtResultados.Rows(0)("EsProveedor").ToString()), 1, 0)
+ ' Dim Cont_Nombre As String = ObjContPaqi.DtResultados(0)("Nombre").ToString()
+ ' Dim Cont_RFC As String = ObjContPaqi.DtResultados(0)("RFC").ToString()
+
+ ' If ObjContPaqi.UpdatePersona(IdContPaqi, Cont_Nombre, Cont_RFC, 1, Cont_EsProveedor) Then
+ ' errorContPaq = False
+ ' Else
+ ' errorContPaq = True
+ ' End If
+
+ ' Else
+ ' If ObjContPaqi.AddPersona(TxtNombre.Text.Trim, TxtRFC.Text.Trim, 1, 0) Then
+
+ ' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiPersona").ToString().Toentero()
+ ' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString().Toentero()
+ ' errorContPaq = False
+ ' Else
+ ' errorContPaq = True
+ ' End If
+ ' End If
+ ' End If
+
+
+ ' If Not errorContPaq Then
+ ' Dim IdContPaqiCliente As Integer
+
+ ' If ObjContPaqi.GetCliente(-1, CodigoPersona) Then
+
+ ' If ObjContPaqi.DtResultados.Rows.Count > 0 Then
+
+ ' IdContPaqiCliente = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiClient").ToString().Toentero()
+
+ ' If ObjContPaqi.UpdateCliente(IdContPaqiCliente, CodigoPersona, CodigoPersona, "", "") Then
+ ' errorContPaq = False
+ ' Else
+ ' errorContPaq = True
+ ' End If
+ ' Else
+ ' If ObjContPaqi.AddCliente(CodigoPersona, CodigoPersona, "", "") Then
+ ' errorContPaq = False
+ ' Else
+ ' errorContPaq = True
+ ' End If
+ ' End If
+ ' Else
+ ' errorContPaq = True
+ ' End If
+ ' End If
+
+
+ ' If Not errorContPaq Then
+ ' ObjContPaqi.Commit()
+ ' ObjContPaqi.Dispose()
+ ' Else
+ ' ObjContPaqi.RollBack()
+ ' ObjContPaqi.Dispose()
+ ' Alert("Se presento un error al guardar en ContPAQi", TipoMensaje.MsgError)
+ ' Exit Sub
+ ' End If
+
+
+ 'End If
#End Region
-
+
Dim LT As String = If(HDLT.Value.ToDouble <> 0, HDLT.Value, "0")
Dim LG As String = If(HDLG.Value.ToDouble <> 0, HDLG.Value, "0")
@@ -2933,11 +2933,11 @@ Partial Class Clientes
ObjClientes.Dispose()
objDoc.Dispose()
RecargaGlobal()
- End Sub
-
+ End Sub
+
#End Region
-
-
+
+
#Region "G L O B L A L"
Private Sub RecargaGlobal()
'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
@@ -2951,10 +2951,10 @@ Partial Class Clientes
' Application("GlobalDTCliente") = Objclientes.DtResultados
'End If
'Objclientes.Dispose()
- End Sub
+ End Sub
#End Region
-
-
+
+
#Region "G R I D V I E W S"
Protected Sub GVHistorial_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVHistorial.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
@@ -3095,11 +3095,11 @@ Partial Class Clientes
End If
End If
- End Sub
+ End Sub
#End Region
-
+
#Region "R H"
-
+
Private Sub CargaPersonalAsignado()
Dim ObjPersonal As New ClsRH
If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, CveCliente, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
@@ -3172,9 +3172,9 @@ Partial Class Clientes
End If
End If
- End Sub
+ End Sub
#End Region
-
+
#Region "S U C U R S A L E S"
Private Sub LbAgregarSucursal_Click(sender As Object, e As EventArgs) Handles LbAgregarSucursal.Click
ChkEstatusSucursal.Checked = True
@@ -3306,7 +3306,7 @@ Partial Class Clientes
UpModalDivMapa.Update()
- End Sub
+ End Sub
#Region "G V S U C U R S A L E S"
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVSucursales.RowDataBound
@@ -3428,9 +3428,9 @@ Partial Class Clientes
Else
CargaGrid("", 0)
End If
- End Sub
+ End Sub
#End Region
-
+
#Region "G V U S U A R I O S P O R T A L"
Protected Sub GvUsuariosPortal_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvUsuariosPortal.RowCommand
If e.CommandName = "RestablecerContraseña" Then
@@ -3582,9 +3582,9 @@ Partial Class Clientes
CargaGrid("", 1)
End If
- End Sub
+ End Sub
#End Region
-
+
#Region "O R D E N A M I E N T O"
Private Sub CargaGrid(Orden As String, gvi As Integer)
If gvi = 0 Then
@@ -3616,12 +3616,12 @@ Partial Class Clientes
UPPUsuarios.Update()
End If
- End Sub
+ End Sub
#End Region
-
-
+
+
#End Region
-
+
#Region "U S U A R I O S"
Protected Sub LbSolicitudPortal_Click(sender As Object, e As EventArgs) Handles LbEnviarActivacionPortal.Click
Dim ObjUsuario As New ClsSisUsuarios
@@ -3803,9 +3803,9 @@ Partial Class Clientes
ChkPermiso5.Checked = False
ChkPermiso6.Checked = False
ChkPermiso7.Checked = False
- End Sub
+ End Sub
#End Region
-
+
#Region "E V E N T O - B I T A C O R A"
Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
@@ -4014,11 +4014,11 @@ Partial Class Clientes
BtnActivaRegistroISR.Visible = True
End If
- End Sub
+ End Sub
#End Region
-
+
#Region " I M P R I M I R P D F"
-
+
Protected Sub ChkAntIXCNC_CheckedChanged(sender As Object, e As EventArgs)
DdlTipoDocto.ClearSelection()
If ChkAntIXCNC.Checked Then
@@ -4429,9 +4429,9 @@ Partial Class Clientes
End Using
End If
- End Sub
+ End Sub
#End Region
-
+
#Region "E N V I O C O R R E O"
Private Sub EnviaCorreo(Liga As String, LigaActivar As String)
@@ -4499,11 +4499,11 @@ Partial Class Clientes
a.GuardaLog()
Dim Mail As New ClsSisMail()
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
- End Sub
+ End Sub
#End Region
-
+
#Region " COTIZACIONES "
-
+
Protected Sub BtnVerMasCot_Click(sender As Object, e As EventArgs)
If BtnVerMasCot.Text = "Ver Más" Then
CargaCotizaciones(-1)
@@ -4573,11 +4573,11 @@ Partial Class Clientes
HLFacturar.HRef = $"/Ventas/Ventas.aspx?CveCotizacion={e.Row.DBCampo("CveVenta")}"
End If
End If
- End Sub
+ End Sub
#End Region
-
+
#Region "D I R E C C I O N E N V I O "
-
+
Private Sub CargaCombosDirecionesClientesSAT()
CargaDirClientePais()
CargaDirClienteEstado()
@@ -4800,12 +4800,12 @@ Partial Class Clientes
End If
CargaDireccionesEnvio()
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region " IMPORTAR SALDOS "
-
+
Private Sub HLImportarSaldos_Click(sender As Object, e As EventArgs) Handles HLImportarSaldos.Click
CargaClientesImportarSaldos()
RegistraScript(String.Format("$('#{0}').modal();", "DivImportarSaldos"))
@@ -4909,9 +4909,9 @@ Partial Class Clientes
e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("ChkSaldo(this,{0},{1});", e.Row.FCTextBox("TxtImporte").ClientID, e.Row.DBCampo("Saldo")))
e.Row.FCTextBox("TxtImporte").Attributes.Add("onKeyUp", String.Format("CambiaSaldo({0},this,{1});", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo")))
End If
- End Sub
+ End Sub
#End Region
-
+
#Region "Cuentas/Equipos"
Public Sub BtnAgregarCtaEquipo_Click(sender As Object, e As EventArgs)
HdnModalidad.Value = "I"
@@ -5499,9 +5499,9 @@ Partial Class Clientes
End If
Return Retorno
- End Function
+ End Function
#End Region
-
+
#Region "GPS"
Protected Sub btnCargaArrayDisp_Click(sender As Object, e As EventArgs) Handles btnCargaArrayDisp.Click
If hdnArrayDispositivo.Value.Length > 0 Then
@@ -5642,10 +5642,10 @@ Partial Class Clientes
UpMoverDispositivo.Update()
RegistraScript($"CargaModalMoverDispositivo({GvRow.DataKey("CveDispositivo")});")
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "Sucursales"
Public Sub CreaDTSucursales()
@@ -5879,14 +5879,14 @@ Partial Class Clientes
End If
End If
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "G P S"
-
-
-
+
+
+
Private Sub EnviaCorreoGPS(Liga As String, LigaActivar As String)
Try
@@ -5957,16 +5957,16 @@ Partial Class Clientes
End If
ObjClientes.Dispose()
- End Sub
-
-
+ End Sub
+
+
#End Region
-
+
#Region "C O N T R A T O S"
-
-
-
-
+
+
+
+
Private Sub CargaDatosContrato()
If CveCliente <= 0 Then
Exit Sub
@@ -6011,10 +6011,10 @@ Partial Class Clientes
e.Row.CssClass = "Totales white"
End If
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "M E T O D O S "
Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged
If DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue <> "-1" Then
@@ -6424,13 +6424,13 @@ Partial Class Clientes
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "IMPRIMIR GVHistorial"
-
-
+
+
Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs)
Dim retorno As Byte() = Nothing
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
@@ -6505,18 +6505,18 @@ Partial Class Clientes
ObjClientes.Dispose()
Return retorno
- End Function
-
-
+ End Function
+
+
#End Region
-
+
#Region "C O B R A N Z A"
Public Sub Visitas_Click(sender As Object, e As EventArgs)
RegistraScript(String.Format("$('#{0}').modal();", "DivVisitas"))
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "Usuarios"
Protected Sub GvUsuarios_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvUsuarios.RowDeleting
Dim CveUsuario As Integer = GvUsuarios.Rows(e.RowIndex).DataKey("CveUsuario").ToEntero()
@@ -6551,12 +6551,12 @@ Partial Class Clientes
e.Row.Cells(5).Visible = False
End If
End If
- End Sub
+ End Sub
#End Region
-
-
+
+
#Region "C U E N T A S - B A N C A R I A S"
-
+
Private Sub CargaCuentasBancarias(Optional RecargaGlobal As Boolean = False)
If CveCliente <= 0 Then Exit Sub
@@ -6729,8 +6729,8 @@ Partial Class Clientes
TxtNumeroCuenta2.Text = ""
TxtConvenioCIE2.Text = ""
TxtReferencia2.Text = ""
- End Sub
-
+ End Sub
+
#Region "GRIDVIEW - CUENTAS BANCARIAS"
Protected Sub GvBancosCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
@@ -6786,10 +6786,10 @@ Partial Class Clientes
GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
Private Sub CargaPSGridCuentasBancos()
If CveCliente > 0 Then
GvBancosCuentas.DataSource = DTCuentasBancos
@@ -6847,9 +6847,9 @@ Partial Class Clientes
divestatus.Visible = True
UpAddBancos.Update()
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias"))
- End Sub
+ End Sub
#End Region
-
+
#Region "C L I E N T E S P A G O S R E A L I Z A D O S I M P R I M I R P D F/Excel"
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkPagosClientesBancosExcel.Click
GenerarPDF("Excel")
@@ -6871,11 +6871,11 @@ Partial Class Clientes
ImprimirPDF("Empresas\Grales\Formatos\RepClientesPagosBancos.rdlc", DTCobrosRealizados, params, "RepClientesPagosBancos_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
- End Sub
+ End Sub
#End Region
-
+
#Region "VENTAS"
-
+
Public Function imprimirFacturaVenta(CveVenta As Integer) As Byte()
Dim ObjVentas As New ClsVentas
Dim Vta As Modelos.Factura = Nothing
@@ -7106,10 +7106,10 @@ Partial Class Clientes
ObjVentas.Dispose()
Return PdfFactura(Vta)
- End Function
-
+ End Function
+
#End Region
-
+
#Region "COMERCIO EXTERIOR"
Public Sub CargaCombosComercioExterior()
@@ -7233,12 +7233,12 @@ Partial Class Clientes
End Sub
Protected Sub DdlMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaColonia()
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "D O C U M E N T A C I O N "
-
+
Private Sub CargaDocumentacionCliente()
Dim objRH As New ClsEdocumentacion()
@@ -7876,12 +7876,12 @@ Partial Class Clientes
RegistraScript("Download('" & baseUrl & "')")
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "D O C U M E N T O S V E N T A S"
-
+
Private Sub CargaDocumentosVenta(tCveCliente As Integer)
Dim objInv As New ClsEdocumentacion
@@ -8052,11 +8052,11 @@ Partial Class Clientes
objRH.Dispose()
- End Sub
-
-
+ End Sub
+
+
#End Region
-
+
#Region "PERSONA FISICA"
Protected Sub LnkPersonaFisica_Click(sender As Object, e As EventArgs)
RegistraScript("$('#DivModalPersonaFisica').modal();")
@@ -8081,9 +8081,9 @@ Partial Class Clientes
ObjCliente.Dispose()
UpDatos.Update()
- End Sub
+ End Sub
#End Region
-
+
#Region "USUARIOS PLATAFORMA CLIENTE - 6 "
Protected Sub CargaUsuariosPortalCliente()
Dim objUsuario As ClsSisUsuarios = New ClsSisUsuarios
@@ -8092,19 +8092,19 @@ Partial Class Clientes
GvUsuarios.DataBind()
End If
objUsuario.Dispose()
- End Sub
+ End Sub
#End Region
-
+
#Region " DEVOLVER DINERO ANT/NC "
Private Sub InicializaDevolverDinero()
If UsuarioActual.TienePermisoProceso(247) Then
GVAnticipos.Columns(6).Visible = True
End If
- End Sub
+ End Sub
#End Region
-
+
#Region "MODAL GRAFICA/PEDIDOS"
-
+
Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
If CargaDatatables() Then
RegistraScript("$('#DivModalGrafica').modal('show')")
@@ -8441,13 +8441,13 @@ Partial Class Clientes
RegistraScript($"CargaGraficaCompratamientoSaldoMensual({Dt5.ToJson},{Dt6.ToJson.Replace($"{Chr(34)}True{Chr(34)}", "true").Replace($"{Chr(34)}False{Chr(34)}", "false")})", "55")
UPModalProd.Update()
- End Sub
-
-
+ End Sub
+
+
#End Region
-
+
#Region "TAB - COMPORTAMIENTO DE VENTAS"
-
+
Private Sub CargaGrupo()
DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
DdlGrupo.Items.Insert(1, New ListItem("Clasificacion", "4"))
@@ -8631,12 +8631,12 @@ Partial Class Clientes
ObjVentas.Dispose()
GvComportamientoVenta.DataBind()
UpDatosComportamientoVenta.Update()
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "DISPOSITIVOS"
-
+
Protected Sub LnkMoverDispositivo_Click(sender As Object, e As EventArgs)
Dim CveDispositivo As Integer = HdnCveDispositivoMover.Value.ToEntero()
Dim CveCliente As Integer = DdlClienteDispositivo.SelectedValue.ToEntero()
@@ -8674,10 +8674,10 @@ Partial Class Clientes
CargaEventoBitacora()
NombreDispositivo = ""
RegistraScript("$('#DivMoverDispositivo').modal('hide');")
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "CRM"
Protected Sub CargaDatosCRM()
Dim ObjCRM = New ClsCRM()
@@ -8777,9 +8777,9 @@ Partial Class Clientes
Alert("Se Unificó correctamente al Cliente con la Empresa CRM.")
End If
End If
- End Sub
+ End Sub
#End Region
-
+
#Region "PORCENTAJE PRECIO DE MARCAS"
Private Sub LnkPorcentajeMarcas_Click(sender As Object, e As EventArgs) Handles LnkPorcentajeMarcas.Click
RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajeMarcas"))
@@ -9004,9 +9004,9 @@ Partial Class Clientes
ObjPS.Dispose()
- End Sub
+ End Sub
#End Region
-
+
#Region "PORCENTAJE PRECIO DE PRODUCTOS"
Private Sub LnkPorcentajePrecios_Click(sender As Object, e As EventArgs) Handles LnkPorcentajePrecios.Click
RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajePrecios"))
@@ -9242,12 +9242,12 @@ Partial Class Clientes
Protected Sub BtnCambiaPorcentaje_Click(sender As Object, e As EventArgs)
DdlProducto2IndexChange(DdlProducto2.SelectedValue.ToEntero(), DdlProducto2)
- End Sub
+ End Sub
#End Region
-
+
#Region " A C U M U L A D O R E S"
-
-
+
+
Protected Sub LnkFacturaUsadosCargos_Click(sender As Object, e As EventArgs)
'CveVentaNota = 0
@@ -9890,11 +9890,11 @@ Partial Class Clientes
' ObjFactura.Timbre = PreParaTimbre(ObjFactura)
- End Sub
-
-
+ End Sub
+
+
#End Region
-
+
#Region "C L I E N T E S G R I D S I M P R I M I R P D F/Excel"
Private Sub LnkCotizacionesPDF_Click(sender As Object, e As EventArgs) Handles LnkCotizacionesPDF.Click
ImprimeGridsProveedores("PDF", DtCotizaciones, "RepClientesCotizaciones")