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 '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 IdCuentaContable As Integer = -1
' Dim CtaCodigo As String = "" ' Dim CtaCodigo As String = ""
' Dim TieneError = False ' Dim TieneError as boolean= False
' Dim ProcesoCorrecto As Boolean ' Dim ProcesoCorrecto As Boolean
' Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa) ' Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
@@ -4226,9 +4226,9 @@ Partial Class Clientes
End Using End Using
End If End If
End Sub End Sub
#End Region #End Region
#Region "E N V I O C O R R E O" #Region "E N V I O C O R R E O"
Private Sub EnviaCorreo(Liga As String, LigaActivar As String) Private Sub EnviaCorreo(Liga As String, LigaActivar As String)
@@ -4296,11 +4296,11 @@ Partial Class Clientes
a.GuardaLog() a.GuardaLog()
Dim Mail As New ClsSisMail() Dim Mail As New ClsSisMail()
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body) Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
End Sub End Sub
#End Region #End Region
#Region " COTIZACIONES " #Region " COTIZACIONES "
Protected Sub BtnVerMasCot_Click(sender As Object, e As EventArgs) Protected Sub BtnVerMasCot_Click(sender As Object, e As EventArgs)
If BtnVerMasCot.Text = "Ver Más" Then If BtnVerMasCot.Text = "Ver Más" Then
CargaCotizaciones(-1) CargaCotizaciones(-1)
@@ -4370,11 +4370,11 @@ Partial Class Clientes
HLFacturar.HRef = $"/Ventas/Ventas.aspx?CveCotizacion={e.Row.DBCampo("CveVenta")}" HLFacturar.HRef = $"/Ventas/Ventas.aspx?CveCotizacion={e.Row.DBCampo("CveVenta")}"
End If End If
End If End If
End Sub End Sub
#End Region #End Region
#Region "D I R E C C I O N E N V I O " #Region "D I R E C C I O N E N V I O "
Private Sub CargaCombosDirecionesClientesSAT() Private Sub CargaCombosDirecionesClientesSAT()
CargaDirClientePais() CargaDirClientePais()
CargaDirClienteEstado() CargaDirClienteEstado()
@@ -4526,23 +4526,20 @@ Partial Class Clientes
End Sub End Sub
Private Sub BtnAgregarDireccion_Click(sender As Object, e As EventArgs) Handles BtnAgregarDireccion.Click Private Sub BtnAgregarDireccion_Click(sender As Object, e As EventArgs) Handles BtnAgregarDireccion.Click
Dim ObjClientes As New ClsClientes Dim ObjClientes As New ClsClientes
Dim TieneError = False Dim TieneError As Boolean = False
Dim Estatus = If(ChkEstatus.Checked, 1, 0) Dim Estatus As Integer = If(ChkEstatus.Checked, 1, 0)
If CveDireccionEnvio < 0 Then 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("_", ""), 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 If CveDireccionEnvio < 0 Then
TieneError = True TieneError = True
End If End If
Else 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("_", ""), 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 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 TieneError = True
End If End If
End If End If
If TieneError Then If TieneError Then
@@ -4581,7 +4578,7 @@ Partial Class Clientes
End Sub End Sub
Private Sub GvDireccionesEnvio_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDireccionesEnvio.RowDeleting Private Sub GvDireccionesEnvio_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDireccionesEnvio.RowDeleting
Dim ObjClientes As New ClsClientes Dim ObjClientes As New ClsClientes
Dim TieneError = False Dim TieneError As Boolean = False
Dim CveDireccionEnvio As Integer = GvDireccionesEnvio.Rows(e.RowIndex).DataKey("CveDireccionEnvio").ToEntero() Dim CveDireccionEnvio As Integer = GvDireccionesEnvio.Rows(e.RowIndex).DataKey("CveDireccionEnvio").ToEntero()
@@ -4597,12 +4594,12 @@ Partial Class Clientes
End If End If
CargaDireccionesEnvio() CargaDireccionesEnvio()
End Sub End Sub
#End Region #End Region
#Region " IMPORTAR SALDOS " #Region " IMPORTAR SALDOS "
Private Sub HLImportarSaldos_Click(sender As Object, e As EventArgs) Handles HLImportarSaldos.Click Private Sub HLImportarSaldos_Click(sender As Object, e As EventArgs) Handles HLImportarSaldos.Click
CargaClientesImportarSaldos() CargaClientesImportarSaldos()
RegistraScript(String.Format("$('#{0}').modal();", "DivImportarSaldos")) RegistraScript(String.Format("$('#{0}').modal();", "DivImportarSaldos"))
@@ -4633,7 +4630,7 @@ Partial Class Clientes
UpImportarSaldos.Update() UpImportarSaldos.Update()
End Sub End Sub
Protected Sub BtnGuardarTransferencias_Click(sender As Object, e As EventArgs) 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 For Each Gvr As GridViewRow In GvImportarSaldos.Rows
If Gvr.FCCheckBox("Chk").Checked AndAlso Gvr.FCTextBox("TxtImporte").Text.ToDouble > 0 Then 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 Dim ObjConta As New ClsContabilidad
ObjConta.IniciaTransacSQL() 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) 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.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"))) 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 If
End Sub End Sub
#End Region #End Region
#Region "Cuentas/Equipos" #Region "Cuentas/Equipos"
Public Sub BtnAgregarCtaEquipo_Click(sender As Object, e As EventArgs) Public Sub BtnAgregarCtaEquipo_Click(sender As Object, e As EventArgs)
@@ -4726,7 +4723,7 @@ Partial Class Clientes
End Sub End Sub
Private Sub BtnGuardarCuenta_Click(sender As Object, e As EventArgs) Handles BtnGuardarCuenta.Click Private Sub BtnGuardarCuenta_Click(sender As Object, e As EventArgs) Handles BtnGuardarCuenta.Click
Dim objCuentasEquipos As New ClsGenerales() Dim objCuentasEquipos As New ClsGenerales()
Dim TieneError = False Dim TieneError As Boolean = False
objCuentasEquipos.IniciaTransacSQL() objCuentasEquipos.IniciaTransacSQL()
If HdnModalidad.Value = "I" Then If HdnModalidad.Value = "I" Then
@@ -4844,7 +4841,7 @@ Partial Class Clientes
End Sub End Sub
Protected Sub GvCuentasEquipos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvCuentasEquipos.RowDeleting Protected Sub GvCuentasEquipos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvCuentasEquipos.RowDeleting
Dim Objeto As New ClsGenerales Dim Objeto As New ClsGenerales
Dim TieneError = False Dim TieneError As Boolean = False
If Objeto.RemoveCuentaEquipo(GvCuentasEquipos.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then If Objeto.RemoveCuentaEquipo(GvCuentasEquipos.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then
Alert("La cuenta Equipo se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("La cuenta Equipo se eliminó correctamente.", TipoMensaje.MsgInformacion)
Else Else
@@ -4922,7 +4919,7 @@ Partial Class Clientes
rfvDdlCarcateristicaOpcion1.Enabled = False rfvDdlCarcateristicaOpcion1.Enabled = False
RdlCarcateristicaOpcion.Visible = False RdlCarcateristicaOpcion.Visible = False
Dim rfvRdlCarcateristicaOpcion = e.Row.FCRequiredFieldValidator("rfvRdlCarcateristicaOpcion") Dim rfvRdlCarcateristicaOpcion As RequiredFieldValidator = e.Row.FCRequiredFieldValidator("rfvRdlCarcateristicaOpcion")
rfvRdlCarcateristicaOpcion.Enabled = False rfvRdlCarcateristicaOpcion.Enabled = False
Dim CalendarioCaractersiticas As AjaxControlToolkit.CalendarExtender = e.Row.FCCalendarExtender("CalendarioCaractersiticas") Dim CalendarioCaractersiticas As AjaxControlToolkit.CalendarExtender = e.Row.FCCalendarExtender("CalendarioCaractersiticas")
@@ -5056,7 +5053,7 @@ Partial Class Clientes
rfvDdlCarcateristicaOpcion2.Enabled = False rfvDdlCarcateristicaOpcion2.Enabled = False
RdlCarcateristicaOpcion2.Visible = False RdlCarcateristicaOpcion2.Visible = False
Dim rfvRdlCarcateristicaOpcion = e.Row.FCRequiredFieldValidator("rfvRdlCarcateristicaOpcion2") Dim rfvRdlCarcateristicaOpcion As RequiredFieldValidator = e.Row.FCRequiredFieldValidator("rfvRdlCarcateristicaOpcion2")
rfvRdlCarcateristicaOpcion.Enabled = False rfvRdlCarcateristicaOpcion.Enabled = False
Dim cvFechaF As CompareValidator = e.Row.FCCompareValidator("cvFechaF2") Dim cvFechaF As CompareValidator = e.Row.FCCompareValidator("cvFechaF2")
@@ -5132,7 +5129,7 @@ Partial Class Clientes
End If End If
End Sub End Sub
Private Function GuardaCaracteristicas(Modalidad As String, CveCuentaEquipo As Integer, ByRef ObjCarac As ClsGenerales) As Boolean 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 If Modalidad.ToString() = "I" Then
For Each gvr As GridViewRow In GvAddCuentaCaracteristica.Rows For Each gvr As GridViewRow In GvAddCuentaCaracteristica.Rows
@@ -5525,7 +5522,7 @@ Partial Class Clientes
Dim Cuerpo As String = TxtBody2.Text Dim Cuerpo As String = TxtBody2.Text
Dim Asunto As String = "" Dim Asunto As String = ""
Dim TipoComprobante = "" Dim TipoComprobante As String = ""
If HdnTipoDocto2.Value.ToString() = "Ing" Then TipoComprobante = "Factura" If HdnTipoDocto2.Value.ToString() = "Ing" Then TipoComprobante = "Factura"
If HdnTipoDocto2.Value.ToString() = "Egs" Then TipoComprobante = "Nota de Crédito" 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) Private Sub EnviaCorreoGPS(Liga As String, LigaActivar As String)
Try Try
Dim Para = TxtEmail.Text.Trim Dim Para As String = TxtEmail.Text.Trim
Dim Asunto = "ACTIVACIÓN DEL PORTAL GPS" Dim Asunto As String = "ACTIVACIÓN DEL PORTAL GPS"
Dim SBBody As New StringBuilder Dim SBBody As New StringBuilder
'Linia de estilos '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>") 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) Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs)
Dim retorno As Byte() = Nothing Dim retorno As Byte() = Nothing
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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 'OBTENEMOS LOS DATOS
@@ -6294,7 +6291,7 @@ Partial Class Clientes
Protected Function ImprimirReporteHistorial() As Byte() Protected Function ImprimirReporteHistorial() As Byte()
Dim retorno As Byte() = Nothing Dim retorno As Byte() = Nothing
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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() Dim ObjClientes As New ClsClientes()
'OBTENEMOS LOS DATOS 'OBTENEMOS LOS DATOS
@@ -6403,7 +6400,7 @@ Partial Class Clientes
CargaMonedas() CargaMonedas()
End Sub End Sub
Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs) 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 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 EsBancomer = True
@@ -6515,7 +6512,7 @@ Partial Class Clientes
Else Else
Dim index = CveCuentaBancaria Dim index As Integer = CveCuentaBancaria
Dim Row As DataRow = TempDTCuentasBancos.Rows(index) Dim Row As DataRow = TempDTCuentasBancos.Rows(index)
Row("BancoNombre") = NombreBanco Row("BancoNombre") = NombreBanco
Row("Sucursal") = NumeroSucursal Row("Sucursal") = NumeroSucursal
@@ -6555,7 +6552,7 @@ Partial Class Clientes
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If CveCliente < 0 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 TempDTCuentasBancos.Rows(index - 1)("CveCuentaDeposito") = index
Next Next
TempDTCuentasBancos.AcceptChanges() TempDTCuentasBancos.AcceptChanges()
@@ -6585,7 +6582,7 @@ Partial Class Clientes
Alert("No se pudo borrar la Cuenta Bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError) Alert("No se pudo borrar la Cuenta Bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError)
End If End If
Else Else
Dim index = GvRow.RowIndex Dim index As Integer = GvRow.RowIndex
TempDTCuentasBancos.Rows.RemoveAt(index) TempDTCuentasBancos.Rows.RemoveAt(index)
Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion) Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
End If End If
@@ -6615,16 +6612,12 @@ Partial Class Clientes
UpCuentasBancos.Update() UpCuentasBancos.Update()
End Sub End Sub
Private Sub CargaMonedas() Private Sub CargaMonedas()
DdlMoneda.DataSource = GlobalDTMonedas DdlMoneda.DataSource = GlobalDTMonedas
DdlMoneda.DataBind() DdlMoneda.DataBind()
DdlMoneda.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlMoneda.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
Private Sub LnkCuentasBancarias_Click(sender As Object, e As EventArgs) Handles LnkCuentasBancarias.Click Private Sub LnkCuentasBancarias_Click(sender As Object, e As EventArgs) Handles LnkCuentasBancarias.Click
Modalidad = "A" Modalidad = "A"
TxtNombreBanco.Text = "" TxtNombreBanco.Text = ""
@@ -6694,12 +6687,12 @@ Partial Class Clientes
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
Dim Vta As Modelos.Factura = Nothing Dim Vta As Modelos.Factura = Nothing
Dim TmpDTImpuestos = New DataTable Dim TmpDTImpuestos As New DataTable
TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String)) TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String))
TmpDTImpuestos.Columns.Add("Importe", GetType(Double)) TmpDTImpuestos.Columns.Add("Importe", GetType(Double))
TmpDTImpuestos.Columns.Add("Orden", GetType(Integer)) TmpDTImpuestos.Columns.Add("Orden", GetType(Integer))
Dim TmpDTImpuestosIVAIEPS = New DataTable Dim TmpDTImpuestosIVAIEPS As New DataTable
TmpDTImpuestosIVAIEPS.Columns.Add("Impuesto", GetType(String)) TmpDTImpuestosIVAIEPS.Columns.Add("Impuesto", GetType(String))
TmpDTImpuestosIVAIEPS.Columns.Add("tasa", GetType(String)) TmpDTImpuestosIVAIEPS.Columns.Add("tasa", GetType(String))
TmpDTImpuestosIVAIEPS.Columns.Add("Importe", GetType(Double)) TmpDTImpuestosIVAIEPS.Columns.Add("Importe", GetType(Double))
@@ -6814,7 +6807,7 @@ Partial Class Clientes
Dim dtImpuesto As DataTable = ObjVentas.DtResultados Dim dtImpuesto As DataTable = ObjVentas.DtResultados
If dtImpuesto.Rows.Count > 0 Then If dtImpuesto.Rows.Count > 0 Then
For Each Row As DataRow In dtImpuesto.Rows For Each Row As DataRow In dtImpuesto.Rows
Dim Orden = 80 Dim Orden As Integer = 80
If Row("Importe").ToString().ToDouble <> 0 Then If Row("Importe").ToString().ToDouble <> 0 Then
DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString() DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString()
DR("Importe") = Row("Importe").ToString().ToDouble DR("Importe") = Row("Importe").ToString().ToDouble
@@ -7317,24 +7310,21 @@ Partial Class Clientes
'Dim DDLEstatus As DropDownList = DirectCast(GvRow.FindControl("DDLEstatus"), DropDownList) 'Dim DDLEstatus As DropDownList = DirectCast(GvRow.FindControl("DDLEstatus"), DropDownList)
Dim chkCompleto As CheckBox = DirectCast(GvRow.FindControl("chkEstatus"), CheckBox) 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 If File.Exists(UrlArchivo) Then
Try Try
File.Delete(UrlArchivo) File.Delete(UrlArchivo)
Catch ex As Exception Catch ex As Exception
End Try End Try
End If End If
Dim ObjEdoc As New ClsEdocumentacion Dim ObjEdoc As New ClsEdocumentacion
If Not _CveDocumentacionElectronica = -1 Then If Not _CveDocumentacionElectronica = -1 Then
If ObjEdoc.DocumentacionElectronicaUpdate(_CveDocumentacionElectronica, _CveDocumentacion, -1, CveCliente, -1, 0, "", "", UsuarioActual.CveUsuario, _fechaLimite) Then If ObjEdoc.DocumentacionElectronicaUpdate(_CveDocumentacionElectronica, _CveDocumentacion, -1, CveCliente, -1, 0, "", "", UsuarioActual.CveUsuario, _fechaLimite) Then
Alert("Documento Eliminado Correctamente.", TipoMensaje.MsgInformacion) Alert("Documento Eliminado Correctamente.", TipoMensaje.MsgInformacion)
End If End If
End If End If
CargaDocumentacionCliente() CargaDocumentacionCliente()
@@ -7349,7 +7339,6 @@ Partial Class Clientes
If GvRow.DataKey("Documentacion") = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140 Then If GvRow.DataKey("Documentacion") = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140 Then
stringDescargaDocumento = UsuarioActual.Empresa.Ruta & "Formatos\Pagaré.docx" stringDescargaDocumento = UsuarioActual.Empresa.Ruta & "Formatos\Pagaré.docx"
linkDescargaPagare = stringDescargaDocumento linkDescargaPagare = stringDescargaDocumento
TxtDireccionAval.Text = "" TxtDireccionAval.Text = ""
@@ -7364,10 +7353,9 @@ Partial Class Clientes
linkDescargaPagare = stringDescargaDocumento linkDescargaPagare = stringDescargaDocumento
Dim File = New FileInfo(linkDescargaPagare) Dim File As New FileInfo(linkDescargaPagare)
If File.Exists Then If File.Exists Then
Response.Clear() Response.Clear()
Response.AddHeader("Content-Disposition", "attachment; filename=" + File.Name) Response.AddHeader("Content-Disposition", "attachment; filename=" + File.Name)
Response.AddHeader("Content-Length", File.Length.ToString()) Response.AddHeader("Content-Length", File.Length.ToString())
@@ -7375,13 +7363,8 @@ Partial Class Clientes
Response.Flush() Response.Flush()
Response.TransmitFile(File.FullName) Response.TransmitFile(File.FullName)
Response.End() Response.End()
End If End If
End If End If
End Sub End Sub
Protected Sub ImprimirPagare(sender As Object, e As EventArgs) Handles BtnAgregarPagare.Click 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 existeAdjunto As Boolean = False
Dim TxtFechaVigencia As TextBox = e.Row.FCTextBox("TxtFechaVigencia") Dim TxtFechaVigencia As TextBox = e.Row.FCTextBox("TxtFechaVigencia")
Dim imgCalendario As LinkButton = e.Row.FCLinkButton("imgCalendario") Dim imgCalendario As LinkButton = e.Row.FCLinkButton("imgCalendario")
' FechaVigencia
' FechaVigencia
Dim DiasLimite As Integer = e.Row.DataKey("DiasLimite").ToString().ToEntero() Dim DiasLimite As Integer = e.Row.DataKey("DiasLimite").ToString().ToEntero()
Dim AplicaDiasLimite As Boolean = If(e.Row.DataKey("AplicaDiasLimite").ToString() = "1", True, False) 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) 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 If Adjunto.Trim.Length > 0 Or (Documentacion = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140) Then
Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "\DocElectronica\Clientes\" & CveCliente & "/" & Adjunto Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "\DocElectronica\Clientes\" & CveCliente & "/" & Adjunto
Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "\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 If File.Exists(linkDescargaArchivo) Or (Documentacion = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140) Then
LnkDownLoadDoc.Visible = True LnkDownLoadDoc.Visible = True
@@ -7592,12 +7570,8 @@ Partial Class Clientes
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim Adjunto As String = GvRow.DataKey("Adjunto") Dim Adjunto As String = GvRow.DataKey("Adjunto")
Dim stringDescargaDocumento As String = ""
Dim asdasd = GvRow.DataKey("Documentacion")
If GvRow.DataKey("Documentacion").ToUpper = "Pagaré".ToUpper AndAlso UsuarioActual.CveEmpresa = 140 Then If GvRow.DataKey("Documentacion").ToUpper = "Pagaré".ToUpper AndAlso UsuarioActual.CveEmpresa = 140 Then
@@ -7612,28 +7586,19 @@ Partial Class Clientes
Else Else
Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero() Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero()
Dim DocumentacionFormato As String = CveDocumentacion & "_" & GvRow.DataKey("DocumentacionFormato") Dim DocumentacionFormato As String = CveDocumentacion & "_" & GvRow.DataKey("DocumentacionFormato")
DescarFormato(DocumentacionFormato) DescarFormato(DocumentacionFormato)
End If End If
End Sub End Sub
Public Sub DescarFormato(documento As String) Public Sub DescarFormato(documento As String)
Dim PathRoot As String = Server.MapPath("/") Dim PathRoot As String = Server.MapPath("/")
Dim PathSource As String Dim PathSource As String
Dim pathDesti As String Dim pathDesti As String
Dim fname As String = "" Dim fname As String = ""
PathSource = UsuarioActual.Empresa.Ruta & "Formatos\" & documento PathSource = UsuarioActual.Empresa.Ruta & "Formatos\" & documento
pathDesti = PathRoot & "Temp\" & CveCliente & documento pathDesti = PathRoot & "Temp\" & CveCliente & documento
@@ -7662,14 +7627,10 @@ Partial Class Clientes
Catch ex As Exception Catch ex As Exception
End Try End Try
End If End If
Dim FileD = New FileInfo(pathDesti) Dim FileD As New FileInfo(pathDesti)
If FileD.Exists Then If FileD.Exists Then
Response.Clear() Response.Clear()
@@ -7827,10 +7788,7 @@ Partial Class Clientes
Next Next
Else Else
Respuesta = True Respuesta = True
End If End If
UpModalCXCClienteDocumento.Update() UpModalCXCClienteDocumento.Update()
Return Respuesta Return Respuesta
@@ -8397,7 +8355,7 @@ Partial Class Clientes
Return Return
End If End If
Dim TieneError As Boolean = False Dim TieneError As Boolean = False
Dim ObjGPS = New ClsGPS() Dim ObjGPS As New ClsGPS()
Dim ObjEventos As New ClsOIEventos(ObjGPS.IniciaTransacSQL()) Dim ObjEventos As New ClsOIEventos(ObjGPS.IniciaTransacSQL())
If ObjGPS.UpdateClienteDispositivo(CveDispositivo, CveCliente) Then If ObjGPS.UpdateClienteDispositivo(CveDispositivo, CveCliente) Then
@@ -8427,7 +8385,7 @@ Partial Class Clientes
#Region "CRM" #Region "CRM"
Protected Sub CargaDatosCRM() 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 If ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa, CveEmpresaCRM) And ObjCRM.DtResultados.Rows.Count > 0 Then
TxtNombre.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Empresa").ToString() TxtNombre.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Empresa").ToString()
@@ -8447,7 +8405,7 @@ Partial Class Clientes
End Sub End Sub
Protected Sub VerificaVinculacion() 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.GetEmpresasCRM(UsuarioActual.CveEmpresa, -1) And ObjCRM.DtResultados.Rows.Count > 0 Then
If ObjCRM.DtResultados.FiltraParametros(String.Format("CveCliente = {0}", CveCliente)).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 Protected Function VincularEmpresaCRM() As Boolean
Dim Ok As Boolean = False Dim Ok As Boolean = False
Dim ObjCRM = New ClsCRM() Dim ObjCRM As New ClsCRM()
Dim ObjBitacora = New ClsOIEventos(ObjCRM.IniciaTransacSQL()) Dim ObjBitacora As New ClsOIEventos(ObjCRM.IniciaTransacSQL())
If (CveCliente > 0) Then If (CveCliente > 0) Then
Dim CveEmpresaCRMVincular As Integer = If(CveEmpresaCRM > 0, CveEmpresaCRM, If(CveEmpresaCRMUnificar > 0, CveEmpresaCRMUnificar, -1)) Dim CveEmpresaCRMVincular As Integer = If(CveEmpresaCRM > 0, CveEmpresaCRM, If(CveEmpresaCRMUnificar > 0, CveEmpresaCRMUnificar, -1))
@@ -8490,7 +8448,7 @@ Partial Class Clientes
End Function End Function
Protected Sub CargaModalEmpresasCRM() Protected Sub CargaModalEmpresasCRM()
Dim ObjCRM = New ClsCRM() Dim ObjCRM As New ClsCRM()
If (ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa) And ObjCRM.DtResultados.Rows.Count > 0) Then If (ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa) And ObjCRM.DtResultados.Rows.Count > 0) Then
DtEmpresasCRM = ObjCRM.DtResultados.FiltraParametros(String.Format("CveCliente IS NULL")) DtEmpresasCRM = ObjCRM.DtResultados.FiltraParametros(String.Format("CveCliente IS NULL"))
@@ -9084,8 +9042,8 @@ Partial Class Clientes
If ObjFactura.CveCliente > 0 Then If ObjFactura.CveCliente > 0 Then
If TmpDT.Rows.Count > 0 Then If TmpDT.Rows.Count > 0 Then
Dim Retorno = ObjFactura.EmitirFactura(False) Dim Retorno As Modelos.Factura.MMensajeFactura = ObjFactura.EmitirFactura(False)
For Each Mensaje In Retorno.Mensajes For Each Mensaje As String In Retorno.Mensajes
Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion)) Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion))
Next Next
End If End If
@@ -9870,7 +9828,7 @@ Partial Class Clientes
New JProperty("TipoDocto", "-1") 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 Dim response = cliente.GetAsync(Url).Result