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

integración de cambios en producción que no estaban en git

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-05-10 08:57:57 -07:00
parent 293b637246
commit 39735c5478
1 changed files with 248 additions and 227 deletions
Download Patch File Download Diff File Expand all files Collapse all files

475
Ventas/Clientes.aspx.vb
View File

@@ -18,7 +18,7 @@ Partial Class Clientes
Private Opcion As Integer
<PersistenceModeAttribute(PersistenceMode.InnerProperty)>
Public ReadOnly Property RowStyle As TableItemStyle
Protected ReadOnly Property CveCliente As Integer
Private ReadOnly Property CveCliente As Integer
Get
Return ViewState("CveCliente").ToString.ToEntero
End Get
@@ -601,21 +601,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
@@ -655,8 +655,8 @@ 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
@@ -849,6 +849,7 @@ Partial Class Clientes
'PERMISOS PAGINA
If CveCliente > 0 Then
LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveCliente:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveCliente)
BtnEliminar.Visible = PermiteEliminar()
BtnGuardar.Visible = PermiteEditar()
Else
@@ -887,8 +888,8 @@ Partial Class Clientes
ChkPermiso5.Enabled = False
ChkPermiso6.Enabled = False
End Sub
End Sub
#Region " PERMISOS PAGINAS "
Private Function PermiteGuardar() As Boolean
Return UsuarioActual.TienePermisoProceso(192)
@@ -898,11 +899,11 @@ Partial Class Clientes
End Function
Private Function PermiteEliminar() As Boolean
Return UsuarioActual.TienePermisoProceso(194)
End Function
End Function
#End Region
#Region "C A R G A S"
Private Sub CreaDtPago()
DtPagos = New DataTable
@@ -1700,9 +1701,9 @@ Partial Class Clientes
Return Retorno
End Function
Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1, Optional TipoDocto As String = "-1")
Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1)
Dim ObjClientes As New ClsClientes()
If ObjClientes.GetHistorialVentas(CveCliente, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero, TipoDocto:=TipoDocto) Then
If ObjClientes.GetHistorialVentas(CveCliente, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
If ObjClientes.DtResultados.Rows.Count > 0 Then
'Carga Generales
LtlCantidad.Text = ObjClientes.DtResultados.Rows(0)("CountTotal").ToString.FormatoNumero(0)
@@ -1889,19 +1890,20 @@ Partial Class Clientes
DdlSucursalUsoCFDI.Items.Clear()
DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica)
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, TipoDocto:=RblTipo.SelectedValue)
CargaHistorial(-1)
BtnVerMasVentas.Text = "Ver Menos"
Else
CargaHistorial(21, TipoDocto:=RblTipo.SelectedValue)
CargaHistorial(21)
BtnVerMasVentas.Text = "Ver Más"
End If
RblTipo_SelectedIndexChanged(RblTipo, EventArgs.Empty)
End Sub
Protected Sub BtnVerMasAnticipos_Click(sender As Object, e As EventArgs)
@@ -1985,9 +1987,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()
@@ -2295,85 +2297,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")
@@ -2619,11 +2621,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)
@@ -2801,11 +2803,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
@@ -2878,9 +2880,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
@@ -3014,7 +3016,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
@@ -3133,9 +3135,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
@@ -3287,9 +3289,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
@@ -3321,12 +3323,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
@@ -3508,9 +3510,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
@@ -3716,11 +3718,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
@@ -4106,11 +4108,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)
@@ -4180,9 +4182,9 @@ 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 "
Public Sub Edit_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
@@ -4262,12 +4264,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"))
@@ -4373,9 +4375,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"
@@ -4963,9 +4965,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
@@ -5068,10 +5070,10 @@ Partial Class Clientes
UpMoverDispositivo.Update()
RegistraScript($"CargaModalMoverDispositivo({GvRow.DataKey("CveDispositivo")});")
End Sub
End Sub
#End Region
#Region "Sucursales"
Public Sub CreaDTSucursales()
@@ -5305,14 +5307,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
@@ -5383,11 +5385,11 @@ 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
@@ -5433,13 +5435,32 @@ 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
CargaHistorial(TipoDocto:=RblTipo.SelectedValue)
If DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue <> "-1" Then
Dim tmp As DataTable = DTHistorialVentas.FiltraParametros($"TipoDocto = '{RblTipo.SelectedValue}'")
If tmp.Rows.Count > 0 Then
Dim Totales As DataRow = tmp.NewRow
Totales("SubTotal") = tmp.SUM("SubTotal")
Totales("Total") = tmp.SUM("Total")
Totales("Descuento") = tmp.SUM("Descuento")
Totales("Amortizacion") = tmp.SUM("Amortizacion")
Totales("MAX_Total") = tmp.MAX("MAX_Total")
Totales("AVG_Total") = tmp.AVG("AVG_Total")
Totales("MIN_Total") = tmp.MIN("MIN_Total")
Totales("CountTotal") = tmp.COUNT("CountTotal")
tmp.Rows.InsertAt(Totales, 0)
End If
GVHistorial.DataSource = tmp
ElseIf DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue = "-1" Then
GVHistorial.DataSource = DTHistorialVentas
End If
GVHistorial.DataBind()
End Sub
Private Sub DdlSucursalCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSucursalCliente.SelectedIndexChanged
CargaCotizaciones(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo
@@ -5815,13 +5836,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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -5900,18 +5921,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
@@ -5946,12 +5967,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()
Dim ObjCuentasBancos As New ClsGenerales
ViewState("OrdenCuentasBancos") = ""
@@ -6122,8 +6143,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
@@ -6182,10 +6203,10 @@ Partial Class Clientes
End If
ObjCuentasBancos.Dispose()
End If
End Sub
End Sub
#End Region
Private Sub CargaPSGridCuentasBancos()
If CveCliente > 0 Then
GvBancosCuentas.DataSource = DTCuentasBancos
@@ -6243,9 +6264,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")
@@ -6505,10 +6526,10 @@ Partial Class Clientes
ObjVentas.Dispose()
Return PdfFactura(Vta)
End Function
End Function
#End Region
#Region "COMERCIO EXTERIOR"
Public Sub CargaCombosComercioExterior()
@@ -6622,12 +6643,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()
@@ -7450,12 +7471,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
@@ -7626,11 +7647,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();")
@@ -7655,9 +7676,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
@@ -7666,19 +7687,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')")
@@ -8011,13 +8032,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"))
@@ -8197,12 +8218,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()
@@ -8240,10 +8261,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()
@@ -8343,9 +8364,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"))
@@ -8549,9 +8570,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"))
@@ -8787,12 +8808,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