From f69a509412b1f946dc8fcace637898916a107929 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Sep 2023 08:16:09 -0700 Subject: [PATCH] --option explicit --- Ventas/Clientes.aspx.vb | 166 +++++++++++++++------------------------- 1 file changed, 62 insertions(+), 104 deletions(-) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 651f59192..8da6672c9 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -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("") @@ -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