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

--option explicit

Browse Source
This commit is contained in:
rrene
2023-09-27 08:16:09 -07:00
parent bea74e20ce
commit f69a509412
1 changed files with 62 additions and 104 deletions
Download Patch File Download Diff File Expand all files Collapse all files

166
Ventas/Clientes.aspx.vb
View File

@@ -3748,7 +3748,7 @@ Partial Class Clientes
'Private Function AgregarCuentaContable(btn As Button, ddl As DropDownList, ByRef CodigoCuentaAltaCompaq As String, ByRef NombreCuentaCuentaAltaCompaq As String, ByRef IdCuentaAltaCompaq As Integer) As Boolean
' Dim IdCuentaContable As Integer = -1
' Dim CtaCodigo As String = ""
' Dim TieneError = False
' Dim TieneError as boolean= False
' Dim ProcesoCorrecto As Boolean
' Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
@@ -4226,9 +4226,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)
@@ -4296,11 +4296,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)
@@ -4370,11 +4370,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()
@@ -4526,23 +4526,20 @@ Partial Class Clientes
End Sub
Private Sub BtnAgregarDireccion_Click(sender As Object, e As EventArgs) Handles BtnAgregarDireccion.Click
Dim ObjClientes As New ClsClientes
Dim TieneError = False
Dim Estatus = If(ChkEstatus.Checked, 1, 0)
Dim TieneError As Boolean = False
Dim Estatus As Integer = If(ChkEstatus.Checked, 1, 0)
If CveDireccionEnvio < 0 Then
CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.Trim(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectoClienteSucursal.SelectedValue.ToEntero, COM_NumRegIdTrib:=TxtCom_NumRegIdTrib.Text.Trim())
CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectoClienteSucursal.SelectedValue.ToEntero, COM_NumRegIdTrib:=TxtCom_NumRegIdTrib.Text.Trim())
If CveDireccionEnvio < 0 Then
TieneError = True
End If
Else
If Not ObjClientes.DireccionEnvioUpdate(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.Trim(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveDireccionEnvio, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectoClienteSucursal.SelectedValue.ToEntero, COM_NumRegIdTrib:=TxtCom_NumRegIdTrib.Text.Trim()) Then
TieneError = True
End If
End If
If TieneError Then
@@ -4581,7 +4578,7 @@ Partial Class Clientes
End Sub
Private Sub GvDireccionesEnvio_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDireccionesEnvio.RowDeleting
Dim ObjClientes As New ClsClientes
Dim TieneError = False
Dim TieneError As Boolean = False
Dim CveDireccionEnvio As Integer = GvDireccionesEnvio.Rows(e.RowIndex).DataKey("CveDireccionEnvio").ToEntero()
@@ -4597,12 +4594,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"))
@@ -4633,7 +4630,7 @@ Partial Class Clientes
UpImportarSaldos.Update()
End Sub
Protected Sub BtnGuardarTransferencias_Click(sender As Object, e As EventArgs)
Dim EsValida = False
Dim EsValida As Boolean = False
For Each Gvr As GridViewRow In GvImportarSaldos.Rows
If Gvr.FCCheckBox("Chk").Checked AndAlso Gvr.FCTextBox("TxtImporte").Text.ToDouble > 0 Then
@@ -4648,7 +4645,7 @@ Partial Class Clientes
Dim ObjConta As New ClsContabilidad
ObjConta.IniciaTransacSQL()
Dim TieneError = False
Dim TieneError As Boolean = False
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Clientes/ImportarSaldos", 53, TxtCantidad.Text.Trim.ToDouble, TxtCantidad.Text.Trim.ToDouble, 1, TxtFechaImportarSaldos.Text.ToDate(), "Traspaso de saldos de anticipos", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -4706,9 +4703,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)
@@ -4726,7 +4723,7 @@ Partial Class Clientes
End Sub
Private Sub BtnGuardarCuenta_Click(sender As Object, e As EventArgs) Handles BtnGuardarCuenta.Click
Dim objCuentasEquipos As New ClsGenerales()
Dim TieneError = False
Dim TieneError As Boolean = False
objCuentasEquipos.IniciaTransacSQL()
If HdnModalidad.Value = "I" Then
@@ -4844,7 +4841,7 @@ Partial Class Clientes
End Sub
Protected Sub GvCuentasEquipos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvCuentasEquipos.RowDeleting
Dim Objeto As New ClsGenerales
Dim TieneError = False
Dim TieneError As Boolean = False
If Objeto.RemoveCuentaEquipo(GvCuentasEquipos.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then
Alert("La cuenta Equipo se eliminó correctamente.", TipoMensaje.MsgInformacion)
Else
@@ -4922,7 +4919,7 @@ Partial Class Clientes
rfvDdlCarcateristicaOpcion1.Enabled = False
RdlCarcateristicaOpcion.Visible = False
Dim rfvRdlCarcateristicaOpcion = e.Row.FCRequiredFieldValidator("rfvRdlCarcateristicaOpcion")
Dim rfvRdlCarcateristicaOpcion As RequiredFieldValidator = e.Row.FCRequiredFieldValidator("rfvRdlCarcateristicaOpcion")
rfvRdlCarcateristicaOpcion.Enabled = False
Dim CalendarioCaractersiticas As AjaxControlToolkit.CalendarExtender = e.Row.FCCalendarExtender("CalendarioCaractersiticas")
@@ -5056,7 +5053,7 @@ Partial Class Clientes
rfvDdlCarcateristicaOpcion2.Enabled = False
RdlCarcateristicaOpcion2.Visible = False
Dim rfvRdlCarcateristicaOpcion = e.Row.FCRequiredFieldValidator("rfvRdlCarcateristicaOpcion2")
Dim rfvRdlCarcateristicaOpcion As RequiredFieldValidator = e.Row.FCRequiredFieldValidator("rfvRdlCarcateristicaOpcion2")
rfvRdlCarcateristicaOpcion.Enabled = False
Dim cvFechaF As CompareValidator = e.Row.FCCompareValidator("cvFechaF2")
@@ -5132,7 +5129,7 @@ Partial Class Clientes
End If
End Sub
Private Function GuardaCaracteristicas(Modalidad As String, CveCuentaEquipo As Integer, ByRef ObjCarac As ClsGenerales) As Boolean
Dim Retorno = False
Dim Retorno As Boolean = False
If Modalidad.ToString() = "I" Then
For Each gvr As GridViewRow In GvAddCuentaCaracteristica.Rows
@@ -5525,7 +5522,7 @@ Partial Class Clientes
Dim Cuerpo As String = TxtBody2.Text
Dim Asunto As String = ""
Dim TipoComprobante = ""
Dim TipoComprobante As String = ""
If HdnTipoDocto2.Value.ToString() = "Ing" Then TipoComprobante = "Factura"
If HdnTipoDocto2.Value.ToString() = "Egs" Then TipoComprobante = "Nota de Crédito"
@@ -5745,8 +5742,8 @@ Partial Class Clientes
Private Sub EnviaCorreoGPS(Liga As String, LigaActivar As String)
Try
Dim Para = TxtEmail.Text.Trim
Dim Asunto = "ACTIVACIÓN DEL PORTAL GPS"
Dim Para As String = TxtEmail.Text.Trim
Dim Asunto As String = "ACTIVACIÓN DEL PORTAL GPS"
Dim SBBody As New StringBuilder
'Linia de estilos
SBBody.Append("<style> .mailbody{ background-color:#EEF1F5; padding:15px; font-family :'Open Sans', sans-serif; } .mailcontent{ background-color:#fff; font-size: 14px; color: #333; padding:0px 15px ; } .mailtitle{padding:8px;color:#32C5D2; font-size: 18px;font-weight: 700!important;border-bottom:2px solid #EEF1F5;text-transform: uppercase;}.marco{border: 1px solid #869ab3;border-top: 0;background-color: #67809F; margin: 10px 15px 25px 15px;color: #fff;}.marco-title{padding: 10px 10px;text-transform: uppercase;font-weight: 700!important;}.marco-body{color:#333;background-color:#fff;}.nota{background: #E5E5E5;padding:15px;color:#333;} .logo { font-size:12px; font-style:italic; text-align:right; } .col1{width:180px;font-weight: 700!important;display:inline-block;} .col2{min-width:260px;display:inline-block;} </style>")
@@ -6253,7 +6250,7 @@ Partial Class Clientes
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")
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
'OBTENEMOS LOS DATOS
@@ -6294,7 +6291,7 @@ Partial Class Clientes
Protected Function ImprimirReporteHistorial() As Byte()
Dim retorno As Byte() = Nothing
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim ObjClientes As New ClsClientes()
'OBTENEMOS LOS DATOS
@@ -6403,7 +6400,7 @@ Partial Class Clientes
CargaMonedas()
End Sub
Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
Dim EsBancomer = False
Dim EsBancomer As Boolean = False
If TxtNombreBanco.Text.ToUpper.Contains("BBVA") Or TxtNombreBanco.Text.ToUpper.Contains("BANCOMER") Or (TxtCLABE.Text.Length = 18 AndAlso TxtCLABE.Text.Substring(0, 3) = "012") Then
EsBancomer = True
@@ -6515,7 +6512,7 @@ Partial Class Clientes
Else
Dim index = CveCuentaBancaria
Dim index As Integer = CveCuentaBancaria
Dim Row As DataRow = TempDTCuentasBancos.Rows(index)
Row("BancoNombre") = NombreBanco
Row("Sucursal") = NumeroSucursal
@@ -6555,7 +6552,7 @@ Partial Class Clientes
If e.Row.RowType = DataControlRowType.DataRow Then
If CveCliente < 0 Then
For index = 1 To TempDTCuentasBancos.Rows.Count
For index As Integer = 1 To TempDTCuentasBancos.Rows.Count
TempDTCuentasBancos.Rows(index - 1)("CveCuentaDeposito") = index
Next
TempDTCuentasBancos.AcceptChanges()
@@ -6585,7 +6582,7 @@ Partial Class Clientes
Alert("No se pudo borrar la Cuenta Bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError)
End If
Else
Dim index = GvRow.RowIndex
Dim index As Integer = GvRow.RowIndex
TempDTCuentasBancos.Rows.RemoveAt(index)
Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
End If
@@ -6615,16 +6612,12 @@ Partial Class Clientes
UpCuentasBancos.Update()
End Sub
Private Sub CargaMonedas()
DdlMoneda.DataSource = GlobalDTMonedas
DdlMoneda.DataBind()
DdlMoneda.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
Private Sub LnkCuentasBancarias_Click(sender As Object, e As EventArgs) Handles LnkCuentasBancarias.Click
Modalidad = "A"
TxtNombreBanco.Text = ""
@@ -6694,12 +6687,12 @@ Partial Class Clientes
Dim ObjVentas As New ClsVentas
Dim Vta As Modelos.Factura = Nothing
Dim TmpDTImpuestos = New DataTable
Dim TmpDTImpuestos As New DataTable
TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String))
TmpDTImpuestos.Columns.Add("Importe", GetType(Double))
TmpDTImpuestos.Columns.Add("Orden", GetType(Integer))
Dim TmpDTImpuestosIVAIEPS = New DataTable
Dim TmpDTImpuestosIVAIEPS As New DataTable
TmpDTImpuestosIVAIEPS.Columns.Add("Impuesto", GetType(String))
TmpDTImpuestosIVAIEPS.Columns.Add("tasa", GetType(String))
TmpDTImpuestosIVAIEPS.Columns.Add("Importe", GetType(Double))
@@ -6814,7 +6807,7 @@ Partial Class Clientes
Dim dtImpuesto As DataTable = ObjVentas.DtResultados
If dtImpuesto.Rows.Count > 0 Then
For Each Row As DataRow In dtImpuesto.Rows
Dim Orden = 80
Dim Orden As Integer = 80
If Row("Importe").ToString().ToDouble <> 0 Then
DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString()
DR("Importe") = Row("Importe").ToString().ToDouble
@@ -7317,24 +7310,21 @@ Partial Class Clientes
'Dim DDLEstatus As DropDownList = DirectCast(GvRow.FindControl("DDLEstatus"), DropDownList)
Dim chkCompleto As CheckBox = DirectCast(GvRow.FindControl("chkEstatus"), CheckBox)
Dim UrlArchivo = UsuarioActual.Empresa.Ruta & "\DocElectronica\Clientes\" & CveCliente & "/" & _Adjunto
Dim UrlArchivo As String = UsuarioActual.Empresa.Ruta & "\DocElectronica\Clientes\" & CveCliente & "/" & _Adjunto
If File.Exists(UrlArchivo) Then
Try
File.Delete(UrlArchivo)
Catch ex As Exception
End Try
End If
Dim ObjEdoc As New ClsEdocumentacion
If Not _CveDocumentacionElectronica = -1 Then
If ObjEdoc.DocumentacionElectronicaUpdate(_CveDocumentacionElectronica, _CveDocumentacion, -1, CveCliente, -1, 0, "", "", UsuarioActual.CveUsuario, _fechaLimite) Then
Alert("Documento Eliminado Correctamente.", TipoMensaje.MsgInformacion)
End If
End If
CargaDocumentacionCliente()
@@ -7349,7 +7339,6 @@ Partial Class Clientes
If GvRow.DataKey("Documentacion") = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140 Then
stringDescargaDocumento = UsuarioActual.Empresa.Ruta & "Formatos\Pagaré.docx"
linkDescargaPagare = stringDescargaDocumento
TxtDireccionAval.Text = ""
@@ -7364,10 +7353,9 @@ Partial Class Clientes
linkDescargaPagare = stringDescargaDocumento
Dim File = New FileInfo(linkDescargaPagare)
Dim File As New FileInfo(linkDescargaPagare)
If File.Exists Then
Response.Clear()
Response.AddHeader("Content-Disposition", "attachment; filename=" + File.Name)
Response.AddHeader("Content-Length", File.Length.ToString())
@@ -7375,13 +7363,8 @@ Partial Class Clientes
Response.Flush()
Response.TransmitFile(File.FullName)
Response.End()
End If
End If
End Sub
Protected Sub ImprimirPagare(sender As Object, e As EventArgs) Handles BtnAgregarPagare.Click
@@ -7507,15 +7490,10 @@ Partial Class Clientes
Dim existeAdjunto As Boolean = False
Dim TxtFechaVigencia As TextBox = e.Row.FCTextBox("TxtFechaVigencia")
Dim imgCalendario As LinkButton = e.Row.FCLinkButton("imgCalendario")
' FechaVigencia
Dim imgCalendario As LinkButton = e.Row.FCLinkButton("imgCalendario")
' FechaVigencia
Dim DiasLimite As Integer = e.Row.DataKey("DiasLimite").ToString().ToEntero()
Dim AplicaDiasLimite As Boolean = If(e.Row.DataKey("AplicaDiasLimite").ToString() = "1", True, False)
Dim AplicaFechaVencimiento As Boolean = If(e.Row.DataKey("AplicaFechaVencimiento").ToString() = "1", True, False)
@@ -7556,8 +7534,8 @@ Partial Class Clientes
If Adjunto.Trim.Length > 0 Or (Documentacion = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140) Then
Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "\DocElectronica\Clientes\" & CveCliente & "/" & Adjunto
Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "\DocElectronica\Clientes\" & CveCliente & "/" & Adjunto
Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "\DocElectronica\Clientes\" & CveCliente & "/" & Adjunto
Dim linkDescargaArchivo As String = UsuarioActual.Empresa.Ruta & "\DocElectronica\Clientes\" & CveCliente & "/" & Adjunto
If File.Exists(linkDescargaArchivo) Or (Documentacion = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140) Then
LnkDownLoadDoc.Visible = True
@@ -7592,12 +7570,8 @@ Partial Class Clientes
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim Adjunto As String = GvRow.DataKey("Adjunto")
Dim stringDescargaDocumento As String = ""
Dim asdasd = GvRow.DataKey("Documentacion")
Dim Adjunto As String = GvRow.DataKey("Adjunto")
If GvRow.DataKey("Documentacion").ToUpper = "Pagaré".ToUpper AndAlso UsuarioActual.CveEmpresa = 140 Then
@@ -7612,28 +7586,19 @@ Partial Class Clientes
Else
Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero()
Dim DocumentacionFormato As String = CveDocumentacion & "_" & GvRow.DataKey("DocumentacionFormato")
DescarFormato(DocumentacionFormato)
End If
End If
End Sub
Public Sub DescarFormato(documento As String)
Dim PathRoot As String = Server.MapPath("/")
Dim PathSource As String
Dim pathDesti As String
Dim fname As String = ""
Dim fname As String = ""
PathSource = UsuarioActual.Empresa.Ruta & "Formatos\" & documento
pathDesti = PathRoot & "Temp\" & CveCliente & documento
@@ -7662,14 +7627,10 @@ Partial Class Clientes
Catch ex As Exception
End Try
End If
Dim FileD = New FileInfo(pathDesti)
Dim FileD As New FileInfo(pathDesti)
If FileD.Exists Then
Response.Clear()
@@ -7827,10 +7788,7 @@ Partial Class Clientes
Next
Else
Respuesta = True
End If
End If
UpModalCXCClienteDocumento.Update()
Return Respuesta
@@ -8397,7 +8355,7 @@ Partial Class Clientes
Return
End If
Dim TieneError As Boolean = False
Dim ObjGPS = New ClsGPS()
Dim ObjGPS As New ClsGPS()
Dim ObjEventos As New ClsOIEventos(ObjGPS.IniciaTransacSQL())
If ObjGPS.UpdateClienteDispositivo(CveDispositivo, CveCliente) Then
@@ -8427,7 +8385,7 @@ Partial Class Clientes
#Region "CRM"
Protected Sub CargaDatosCRM()
Dim ObjCRM = New ClsCRM()
Dim ObjCRM As New ClsCRM()
If ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa, CveEmpresaCRM) And ObjCRM.DtResultados.Rows.Count > 0 Then
TxtNombre.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Empresa").ToString()
@@ -8447,7 +8405,7 @@ Partial Class Clientes
End Sub
Protected Sub VerificaVinculacion()
Dim ObjCRM = New ClsCRM()
Dim ObjCRM As New ClsCRM()
If ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa, -1) And ObjCRM.DtResultados.Rows.Count > 0 Then
If ObjCRM.DtResultados.FiltraParametros(String.Format("CveCliente = {0}", CveCliente)).Rows.Count > 0 Then
@@ -8461,8 +8419,8 @@ Partial Class Clientes
Protected Function VincularEmpresaCRM() As Boolean
Dim Ok As Boolean = False
Dim ObjCRM = New ClsCRM()
Dim ObjBitacora = New ClsOIEventos(ObjCRM.IniciaTransacSQL())
Dim ObjCRM As New ClsCRM()
Dim ObjBitacora As New ClsOIEventos(ObjCRM.IniciaTransacSQL())
If (CveCliente > 0) Then
Dim CveEmpresaCRMVincular As Integer = If(CveEmpresaCRM > 0, CveEmpresaCRM, If(CveEmpresaCRMUnificar > 0, CveEmpresaCRMUnificar, -1))
@@ -8490,7 +8448,7 @@ Partial Class Clientes
End Function
Protected Sub CargaModalEmpresasCRM()
Dim ObjCRM = New ClsCRM()
Dim ObjCRM As New ClsCRM()
If (ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa) And ObjCRM.DtResultados.Rows.Count > 0) Then
DtEmpresasCRM = ObjCRM.DtResultados.FiltraParametros(String.Format("CveCliente IS NULL"))
@@ -9084,8 +9042,8 @@ Partial Class Clientes
If ObjFactura.CveCliente > 0 Then
If TmpDT.Rows.Count > 0 Then
Dim Retorno = ObjFactura.EmitirFactura(False)
For Each Mensaje In Retorno.Mensajes
Dim Retorno As Modelos.Factura.MMensajeFactura = ObjFactura.EmitirFactura(False)
For Each Mensaje As String In Retorno.Mensajes
Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion))
Next
End If
@@ -9870,7 +9828,7 @@ Partial Class Clientes
New JProperty("TipoDocto", "-1")
)
Dim Url = New Uri(String.Format("{0}api/cliente/GetHistorialVentas?CveCliente={1}&SelectTop={2}&CveClienteSucursal={3}&TipoDocto={4}", "https://localhost:5001/", CveCliente, SelectTop, CveClienteSucursal, "-1"))
Dim Url As New Uri(String.Format("{0}api/cliente/GetHistorialVentas?CveCliente={1}&SelectTop={2}&CveClienteSucursal={3}&TipoDocto={4}", "https://localhost:5001/", CveCliente, SelectTop, CveClienteSucursal, "-1"))
Dim response = cliente.GetAsync(Url).Result