1044 lines
38 KiB
VB.net
1044 lines
38 KiB
VB.net
|
|
Option Explicit On
|
|
Option Strict On
|
|
|
|
|
|
Imports System.Data
|
|
Imports Extensiones
|
|
Imports Microsoft.Reporting.WebForms
|
|
Imports GemBox.Spreadsheet
|
|
Imports System.IO
|
|
|
|
Partial Class RepCxCDetalle
|
|
Inherits ClsPaginas
|
|
|
|
'pRivate ReadOnly Property ColumnasVisibles As
|
|
|
|
#Region "PROPIEDADES"
|
|
Public Property Anio() As Integer
|
|
Get
|
|
Return ViewState("Anio").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("Anio") = value
|
|
End Set
|
|
End Property
|
|
Public Property Mes() As Integer
|
|
Get
|
|
Return ViewState("Mes").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("Mes") = value
|
|
End Set
|
|
End Property
|
|
Public Property AnioMes() As String
|
|
Get
|
|
Return ViewState("AnioMes").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("AnioMes") = value
|
|
End Set
|
|
End Property
|
|
Public Property Fecha() As String
|
|
Get
|
|
Return ViewState("Fecha").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("Fecha") = value
|
|
End Set
|
|
End Property
|
|
Public Property FechaVI() As String
|
|
Get
|
|
Return ViewState("FechaVInicio").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("FechaVInicio") = value
|
|
End Set
|
|
End Property
|
|
Public Property FechaVF() As String
|
|
Get
|
|
Return ViewState("FechaVFin").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("FechaVFin") = value
|
|
End Set
|
|
End Property
|
|
Public Property FechaI() As String
|
|
Get
|
|
Return ViewState("FechaInicio").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("FechaInicio") = value
|
|
End Set
|
|
End Property
|
|
Public Property FechaF() As String
|
|
Get
|
|
Return ViewState("FechaFin").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("FechaFin") = value
|
|
End Set
|
|
End Property
|
|
Public Property FechaCorte() As String
|
|
Get
|
|
Return ViewState("FechaCorte").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("FechaCorte") = value
|
|
End Set
|
|
End Property
|
|
Public Property Iva() As String
|
|
Get
|
|
Return ViewState("IVA").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("IVA") = value
|
|
End Set
|
|
End Property
|
|
Public Property Agrupador() As Integer
|
|
Get
|
|
Return ViewState("Agrupador").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("Agrupador") = value
|
|
End Set
|
|
End Property
|
|
Public Property Opcion() As String
|
|
Get
|
|
Return ViewState("Opcion").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("Opcion") = value
|
|
End Set
|
|
End Property
|
|
Public Property TipoDocto() As String
|
|
Get
|
|
Return ViewState("TipoDocto").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("TipoDocto") = value
|
|
End Set
|
|
End Property
|
|
Public Property TipoCambio() As Integer
|
|
Get
|
|
Return ViewState("TipoCambio").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("TipoCambio") = value
|
|
End Set
|
|
End Property
|
|
Public Property TCEspecifico() As Double
|
|
Get
|
|
Return ViewState("TCEspecifico").ToString.ToDouble
|
|
End Get
|
|
Set(value As Double)
|
|
ViewState("TCEspecifico") = value
|
|
End Set
|
|
End Property
|
|
Public Property SePersonalizo() As Integer
|
|
Get
|
|
Return ViewState("SePersonalizo").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("SePersonalizo") = value
|
|
End Set
|
|
End Property
|
|
Private Property CveClienteSucursal As Integer
|
|
Get
|
|
If ViewState("CveClienteSucursal") Is Nothing Then
|
|
Return -1
|
|
Else
|
|
Return DirectCast(ViewState("CveClienteSucursal"), Integer)
|
|
End If
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveClienteSucursal") = value
|
|
End Set
|
|
End Property
|
|
Private Property CveCobranzaEstatus As Integer
|
|
Get
|
|
If ViewState("CveCobranzaEstatus") Is Nothing Then
|
|
Return -1
|
|
Else
|
|
Return DirectCast(ViewState("CveCobranzaEstatus"), Integer)
|
|
End If
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveCobranzaEstatus") = value
|
|
End Set
|
|
End Property
|
|
Private Property LimiteCredito As Decimal
|
|
Get
|
|
If ViewState("LimiteCredito") Is Nothing Then
|
|
Return -1
|
|
Else
|
|
Return DirectCast(ViewState("LimiteCredito"), Decimal)
|
|
End If
|
|
End Get
|
|
Set(value As Decimal)
|
|
ViewState("LimiteCredito") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property TipoCliente As Integer
|
|
Get
|
|
If ViewState("TipoCliente") Is Nothing Then
|
|
Return -1
|
|
Else
|
|
Return DirectCast(ViewState("TipoCliente"), Integer)
|
|
End If
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("TipoCliente") = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Private Property CveMoneda As Integer
|
|
Get
|
|
If ViewState("CveMoneda") Is Nothing Then
|
|
Return -1
|
|
Else
|
|
Return DirectCast(ViewState("CveMoneda"), Integer)
|
|
End If
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveMoneda") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property EstatusCliente As Integer
|
|
Get
|
|
If ViewState("EstatusCliente") Is Nothing Then
|
|
Return -1
|
|
Else
|
|
Return DirectCast(ViewState("EstatusCliente"), Integer)
|
|
End If
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("EstatusCliente") = value
|
|
End Set
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
ViewState("Opcion") = IfNull(Request("Op"), "-1")
|
|
CargaCombos()
|
|
If Request("Op") IsNot Nothing Then
|
|
CargaDatos()
|
|
End If
|
|
|
|
If UsuarioActual.CveEmpresa = 7 Then
|
|
ChkCuentaContableReferencia.Visible = True
|
|
End If
|
|
CargaAsignarCobranza()
|
|
TxtFechaCobranza.Text = Now.ToShortDateString
|
|
End If
|
|
|
|
End Sub
|
|
|
|
#Region "CARGAS"
|
|
Private Sub CargaCombos()
|
|
Dim CveCliente, CveVendedor, CveUsuario, CveSubProyecto,
|
|
CveEstatus, CveResponsable, CveAgrupador, CveClienteClasificacion As Integer
|
|
|
|
'CargaClientes
|
|
'CargaClientes
|
|
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
|
|
DdlClientesWS.setEsWebService(True)
|
|
Else
|
|
DdlClientesWS.setEsWebService(False)
|
|
CargaClientes()
|
|
End If
|
|
'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
|
|
'DdlClientes.DataBind()
|
|
|
|
'CargaSubProyectos
|
|
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
|
DdlSubProyecto.DataBind()
|
|
|
|
'CargaUsuarios
|
|
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
|
DdlUsuario.DataBind()
|
|
|
|
'CargaResponsable
|
|
DdlResponsable.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
|
|
DdlResponsable.DataBind()
|
|
|
|
'Tipo Docto
|
|
DdlTipoDocto.Items.Add(New ListItem("Ing X Comp", "IxC"))
|
|
|
|
'Carga Cobranza Estatus
|
|
DdlCobranzaEstatusFiltro.DataSource = GlobalDTCobranzaEstatus(UsuarioActual.CveEmpresa)
|
|
DdlCobranzaEstatusFiltro.DataBind()
|
|
DdlCobranzaEstatusFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
|
|
'Carga Clasificacion Cliente
|
|
DdlClienteClasificacion.DataSource = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa)
|
|
DdlClienteClasificacion.DataBind()
|
|
DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
|
|
'Cargamos las fechas
|
|
Anio = If(Request("Anio") IsNot Nothing, Request("Anio").ToString, "-1").ToString.ToEntero
|
|
Mes = If(Request("Mes") IsNot Nothing, Request("Mes").ToString, "-1").ToString.ToEntero
|
|
AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString
|
|
Fecha = If(Request("Fecha") IsNot Nothing, Request("Fecha").ToString, "-1").ToString
|
|
FechaI = If(Request("FechaI") IsNot Nothing, Request("FechaI").ToString, "-1").ToString
|
|
FechaF = If(Request("FechaF") IsNot Nothing, Request("FechaF").ToString, "-1").ToString
|
|
FechaVI = If(Request("FechaVI") IsNot Nothing, Request("FechaVI").ToString, "-1").ToString
|
|
FechaVF = If(Request("FechaVF") IsNot Nothing, Request("FechaVF").ToString, "-1").ToString
|
|
FechaCorte = IfNull(Request("FechaCorte"), Now.ToDate.ToString).ToString
|
|
CveCobranzaEstatus = If(Request("CveCobranzaEstatus") IsNot Nothing, Request("CveCobranzaEstatus").ToString, "-1").ToString.ToEntero
|
|
CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing, Request("CveClienteClasificacion").ToString, "-1").ToString.ToEntero
|
|
LimiteCredito = If(Request("LimiteCredito") IsNot Nothing, Request("LimiteCredito").ToString, "-1").ToString.ToDecimal
|
|
TipoCliente = If(Request("TipoCliente") IsNot Nothing, Request("TipoCliente").ToString, "-1").ToString.ToEntero
|
|
CveMoneda = If(Request("CveMoneda") IsNot Nothing, Request("CveMoneda").ToString, "-1").ToString.ToEntero
|
|
EstatusCliente = If(Request("EstatusCliente") IsNot Nothing, Request("EstatusCliente").ToString, "-1").ToString.ToEntero
|
|
|
|
DdlTipoCliente.SelectedValueExist(TipoCliente)
|
|
DdlEstatusCliente.SelectedValueExist(EstatusCliente)
|
|
|
|
If FechaF <> "-1" Then
|
|
txtFechaF.Text = FechaF
|
|
End If
|
|
If FechaI <> "-1" Then
|
|
txtFechaI.Text = FechaI
|
|
End If
|
|
If FechaVF <> "-1" Then
|
|
txtFechaVF.Text = FechaVF
|
|
End If
|
|
If FechaVI <> "-1" Then
|
|
txtFechaVI.Text = FechaVI
|
|
End If
|
|
If Fecha <> "-1" Then
|
|
txtFechaI.Text = Fecha
|
|
txtFechaF.Text = Fecha
|
|
End If
|
|
|
|
txtCorteA.Text = $"31/12/{Now.Year}"
|
|
|
|
txtFechaI.Text = If(Anio <> -1, String.Format("01/01/{0}", Anio), txtFechaI.Text)
|
|
txtFechaI.Text = If(Mes <> -1, txtFechaI.Text, txtFechaI.Text)
|
|
txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 2).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text)
|
|
If Request("FechaCorte") <> "-1" AndAlso IsDate(Request("FechaCorte")) Then txtCorteA.Text = Request("FechaCorte")
|
|
|
|
If Anio <> -1 Then
|
|
txtFechaF.Text = String.Format("31/12/{0}", Anio)
|
|
ElseIf Mes <> -1 Then
|
|
'txtFechaF.Text = txtFechaI.Text.ToDate.LastDayOfMonth.ToShortDateString
|
|
ElseIf AnioMes <> "-1" Then
|
|
txtFechaF.Text = txtFechaI.Text.ToDate.LastDayOfMonth.ToShortDateString
|
|
End If
|
|
|
|
|
|
TipoCambio = IfNull(Request("TipoCambio"), -1).ToString.ToEntero
|
|
TCEspecifico = IfNull(Request("TCEspecifico"), -1).ToString.ToDouble
|
|
TipoDocto = IfNull(Request("TipoDocto"), "-1").ToString
|
|
CveClienteSucursal = IfNull(Request("CveClienteSucursal"), "-1").ToString.ToEntero
|
|
CveSubProyecto = IfNull(Request("CveSubProyecto"), "-1").ToString.ToEntero
|
|
CveVendedor = IfNull(Request("Vendedor"), "-1").ToString.ToEntero
|
|
CveCliente = IfNull(Request("CveCliente"), "-1").ToString.ToEntero
|
|
CveUsuario = IfNull(Request("CveUsuario"), "-1").ToString.ToEntero
|
|
CveEstatus = IfNull(Request("CveEstatusFactura"), "-1").ToString.ToEntero
|
|
CveResponsable = IfNull(Request("CveUsuarioResponsable"), "-1").ToString.ToEntero
|
|
CveAgrupador = IfNull(Request("GPO"), "-1").ToString.ToEntero
|
|
Iva = IfNull(Request("IVA"), "-1").ToString
|
|
|
|
DdlSubProyecto.SelectedValueExist(CveSubProyecto)
|
|
|
|
DdlClienteClasificacion.SelectedValueExist(CveClienteClasificacion)
|
|
CargaClientes()
|
|
If CveCliente > 0 Then
|
|
DdlClientesWS.SelectedValue = CveCliente.ToString
|
|
DdlClientesWS.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("NombreComercial", $"CveCliente = {CveCliente}")
|
|
End If
|
|
'DdlClientes.SelectedValueExist(CveCliente)
|
|
DdlUsuario.SelectedValueExist(CveUsuario)
|
|
DdlResponsable.SelectedValueExist(CveResponsable)
|
|
DdlGrupo.SelectedValueExist(CveAgrupador)
|
|
|
|
'Carga Vendedor
|
|
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,4)")
|
|
DdlVendedor.DataBind()
|
|
DdlVendedor.SelectedValueExist(CveVendedor)
|
|
If UsuarioActual.CveVendedor > 0 AndAlso Not UsuarioActual.TienePermisoProceso(263) Then
|
|
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
|
|
DdlVendedor.Attributes.Add("disabled", "disabled")
|
|
DdlVendedor.Enabled = False
|
|
End If
|
|
|
|
|
|
'Nuevos
|
|
DdlTipoDocto.SelectedValuesIfExistM(TipoDocto)
|
|
RblTipoCambio.SelectedValue = CType(TipoCambio, String)
|
|
|
|
'13/04/2018 - Carga filtro estatus cobranza
|
|
DdlCobranzaEstatusFiltro.SelectedValueExist(CveCobranzaEstatus.ToString)
|
|
|
|
If RblTipoCambio.SelectedValue.ToEntero = 3 Then
|
|
If TCEspecifico <> -1 Then
|
|
LiEspecifico.Visible = True
|
|
TxtEspecifico.Text = TCEspecifico.ToString
|
|
Else
|
|
Dim TipoCambio As Double
|
|
LiEspecifico.Visible = True
|
|
TipoCambio = GlobalTipoCambio(Now)
|
|
TxtEspecifico.Text = TipoCambio.ToString
|
|
End If
|
|
End If
|
|
|
|
|
|
If CveClienteSucursal > 0 Then
|
|
DdlClientesWS.Attributes.Add("style", "!important width: 60%;")
|
|
DdlClienteSucursal.Visible = True
|
|
DivClientes.Attributes.Remove("class")
|
|
DivClientes.Attributes.Add("class", "col-md-4")
|
|
|
|
Dim ObjCliente As New ClsClientes
|
|
If ObjCliente.GetSucursales(CveCliente) Then
|
|
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
|
DdlClienteSucursal.DataSource = ObjCliente.DtResultados
|
|
End If
|
|
End If
|
|
ObjCliente.Dispose()
|
|
DdlClienteSucursal.DataBind()
|
|
DdlClienteSucursal.Items.Insert(0, New ListItem("Todas", "-1"))
|
|
DdlClienteSucursal.SelectedValueExist(CveClienteSucursal)
|
|
Else
|
|
DdlClientesWS.Attributes.Add("style", "!important width: 100%;")
|
|
End If
|
|
|
|
|
|
End Sub
|
|
Private Function CargaDatos() As DataTable
|
|
Dim dt As DataTable = Nothing
|
|
Dim ObjMovtos As New ClsMovimientos()
|
|
Dim FechaI, FechaF, FechaVI, FechaVF As String
|
|
|
|
If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then
|
|
TCEspecifico = TxtEspecifico.Text.ToDouble
|
|
Else
|
|
TCEspecifico = -1
|
|
End If
|
|
|
|
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
|
|
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
|
|
FechaVI = If(IsDate(txtFechaVI.Text.Trim()), txtFechaVI.Text.Trim(), "-1")
|
|
FechaVF = If(IsDate(txtFechaVF.Text.Trim()), txtFechaVF.Text.Trim(), "-1")
|
|
'FechaI, FechaF, -1, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero
|
|
Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1)
|
|
If ObjMovtos.GetCxCDetalle(FechaI, FechaF, CveCliente, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero,
|
|
Anio, Mes, AnioMes, Fecha, CveClienteSucursal, Opcion, -1,
|
|
Iva.ToString, DdlGrupo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlResponsable.SelectedValue.ToEntero,
|
|
RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM), FechaVI, FechaVF,
|
|
FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=DdlCobranzaEstatusFiltro.SelectedValue.ToEntero,
|
|
CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero,
|
|
CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero) Then
|
|
|
|
GvDatos.DataSource = ObjMovtos.DtResultados
|
|
dt = ObjMovtos.DtResultados
|
|
Else
|
|
GvDatos.DataSource = Nothing
|
|
End If
|
|
|
|
ObjMovtos.Dispose()
|
|
GvDatos.DataBind()
|
|
UPDatos.Update()
|
|
|
|
Return dt
|
|
|
|
End Function
|
|
|
|
Private Sub ConfiguraEmpresa()
|
|
'Dim ObjEmpresa As New ClsEmpresas()
|
|
'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False
|
|
If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False
|
|
'End If
|
|
'ObjEmpresa.Dispose()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "CONSULTAR"
|
|
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
|
|
CargaDatos()
|
|
ConfiguraEmpresa()
|
|
UPDatos.Update()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "GRIDVIEW"
|
|
|
|
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If e.Row.RowIndex = 0 Then
|
|
e.Row.Cells(1).Width = Unit.Pixel(70)
|
|
e.Row.Cells(2).Width = Unit.Pixel(75)
|
|
End If
|
|
e.Row.FCHyperLink("HlFolio").Text = e.Row.DBCampo("SerieFolio")
|
|
|
|
If e.Row.DBCampo("CveVenta").ToEntero() > 0 Then
|
|
If e.Row.DBCampo("TipoDocto") = "IxC" Then
|
|
e.Row.FCHyperLink("HlFolio").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveVenta"))
|
|
Else
|
|
e.Row.FCHyperLink("HlFolio").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DBCampo("CveVenta"))
|
|
End If
|
|
End If
|
|
|
|
If e.Row.DBCampo("SubProyecto") = "" And e.Row.DBCampo("CveMoneda") = "1" Then
|
|
e.Row.Cells(11).Text = "Total Pesos"
|
|
e.Row.CssClass = "Totales"
|
|
e.Row.FCCheckBox("ChkCobranza").Visible = False
|
|
e.Row.Cells(39).Text = ""
|
|
e.Row.Cells(21).Text = ""
|
|
e.Row.Cells(28).Text = ""
|
|
ElseIf e.Row.DBCampo("SubProyecto") = "" And e.Row.DBCampo("CveMoneda") = "2" Then
|
|
e.Row.Cells(12).Text = "Total Dólares"
|
|
e.Row.CssClass = "Totales"
|
|
e.Row.FCCheckBox("ChkCobranza").Visible = False
|
|
e.Row.Cells(39).Text = ""
|
|
e.Row.Cells(21).Text = ""
|
|
e.Row.Cells(28).Text = ""
|
|
ElseIf e.Row.DBCampo("CveVenta") = "" Then
|
|
e.Row.CssClass = "SubTotales"
|
|
e.Row.FCCheckBox("ChkCobranza").Visible = False
|
|
e.Row.Cells(39).Text = ""
|
|
e.Row.Cells(21).Text = ""
|
|
e.Row.Cells(28).Text = ""
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "PERSONALIZAR COLUMNAS"
|
|
|
|
Protected Sub BtnPersonalizar_Click(sender As Object, e As EventArgs) Handles BtnPersonalizar.Click
|
|
|
|
If ChkFecha.Checked Then
|
|
GvDatos.Columns(1).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(1).Visible = False
|
|
End If
|
|
|
|
If ChkFolio.Checked Then
|
|
GvDatos.Columns(2).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(2).Visible = False
|
|
End If
|
|
|
|
If ChkTotal.Checked Then
|
|
GvDatos.Columns(9).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(9).Visible = False
|
|
End If
|
|
|
|
If ChkSubTotal.Checked Then
|
|
GvDatos.Columns(3).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(3).Visible = False
|
|
End If
|
|
|
|
If ChkIVA.Checked Then
|
|
GvDatos.Columns(6).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(6).Visible = False
|
|
End If
|
|
|
|
If ChkDescuento.Checked Then
|
|
GvDatos.Columns(4).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(4).Visible = False
|
|
End If
|
|
|
|
If ChkAmortizacion.Checked Then
|
|
GvDatos.Columns(5).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(5).Visible = False
|
|
End If
|
|
|
|
If ChkRetIVA.Checked Then
|
|
GvDatos.Columns(7).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(7).Visible = False
|
|
End If
|
|
|
|
If ChkRetISR.Checked Then
|
|
GvDatos.Columns(9).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(9).Visible = False
|
|
End If
|
|
|
|
If ChkMoneda.Checked Then
|
|
GvDatos.Columns(10).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(10).Visible = False
|
|
End If
|
|
|
|
If ChkSucursal.Checked Then
|
|
GvDatos.Columns(11).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(11).Visible = False
|
|
End If
|
|
|
|
If ChkCodigo.Checked Then
|
|
GvDatos.Columns(15).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(15).Visible = False
|
|
End If
|
|
|
|
If ChkCliente.Checked Then
|
|
GvDatos.Columns(16).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(16).Visible = False
|
|
End If
|
|
|
|
If ChkSucursalCliente.Checked Then
|
|
GvDatos.Columns(17).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(17).Visible = False
|
|
End If
|
|
|
|
If ChkVendedor.Checked Then
|
|
GvDatos.Columns(18).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(18).Visible = False
|
|
End If
|
|
|
|
If ChlMotivoDescuento.Checked Then
|
|
GvDatos.Columns(19).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(19).Visible = False
|
|
End If
|
|
|
|
If ChkEstatusFactura.Checked Then
|
|
GvDatos.Columns(20).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(20).Visible = False
|
|
End If
|
|
|
|
If ChkSeTimbro.Checked Then
|
|
GvDatos.Columns(21).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(21).Visible = False
|
|
End If
|
|
|
|
If ChkCuentaContableReferencia.Checked Then
|
|
GvDatos.Columns(22).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(22).Visible = False
|
|
End If
|
|
|
|
|
|
If ChkCuentaContable.Checked Then
|
|
GvDatos.Columns(23).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(23).Visible = False
|
|
End If
|
|
|
|
If ChkUsuario.Checked Then
|
|
GvDatos.Columns(24).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(24).Visible = False
|
|
End If
|
|
|
|
If ChkMotivoCancelacion.Checked Then
|
|
GvDatos.Columns(25).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(25).Visible = False
|
|
End If
|
|
|
|
If ChkObservaciones.Checked Then
|
|
GvDatos.Columns(26).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(26).Visible = False
|
|
End If
|
|
|
|
If ChkSucursalEjecucion.Checked Then
|
|
GvDatos.Columns(27).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(27).Visible = False
|
|
End If
|
|
|
|
If ChkTelefono.Checked Then
|
|
GvDatos.Columns(28).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(28).Visible = False
|
|
End If
|
|
|
|
If ChkMail.Checked Then
|
|
GvDatos.Columns(29).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(29).Visible = False
|
|
End If
|
|
|
|
If ChkLimiteCredito.Checked Then
|
|
GvDatos.Columns(30).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(30).Visible = False
|
|
End If
|
|
|
|
If ChkSucursalCobranza.Checked Then
|
|
GvDatos.Columns(31).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(31).Visible = False
|
|
End If
|
|
|
|
If ChkEstatusCobranza.Checked Then
|
|
GvDatos.Columns(33).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(33).Visible = False
|
|
End If
|
|
|
|
If ChkTurnoCobranza.Checked Then
|
|
GvDatos.Columns(34).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(34).Visible = False
|
|
End If
|
|
|
|
If ChkObsCobranza.Checked Then
|
|
GvDatos.Columns(35).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(35).Visible = False
|
|
End If
|
|
|
|
|
|
If ChkFechaCobranza.Checked Then
|
|
GvDatos.Columns(36).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(36).Visible = False
|
|
End If
|
|
|
|
If ChkHorario.Checked Then
|
|
GvDatos.Columns(37).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(37).Visible = False
|
|
End If
|
|
|
|
If ChkDiasPago.Checked Then
|
|
GvDatos.Columns(38).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(38).Visible = False
|
|
End If
|
|
|
|
If ChkSeEnvioMail.Checked Then
|
|
GvDatos.Columns(39).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(39).Visible = False
|
|
End If
|
|
|
|
If ChkEstatusCliente.Checked Then
|
|
GvDatos.Columns(40).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(40).Visible = False
|
|
End If
|
|
|
|
If ChkIEPS.Checked Then
|
|
GvDatos.Columns(41).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(41).Visible = False
|
|
End If
|
|
|
|
If ChkDiasTranscurridos.Checked Then
|
|
GvDatos.Columns(42).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(42).Visible = False
|
|
End If
|
|
|
|
If ChkTC.Checked Then
|
|
GvDatos.Columns(43).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(43).Visible = False
|
|
End If
|
|
|
|
If ChkFechaEjecucion.Checked Then
|
|
GvDatos.Columns(44).Visible = True
|
|
SePersonalizo = 1
|
|
Else
|
|
GvDatos.Columns(44).Visible = False
|
|
End If
|
|
|
|
|
|
If SePersonalizo = 1 Then
|
|
ImgExcelPersonalizado.Visible = True
|
|
Else
|
|
ImgExcelPersonalizado.Visible = False
|
|
End If
|
|
|
|
|
|
CargaDatos()
|
|
RegistraScript("$('#DivPersonalizar').modal('hide');")
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "IMPRESIONES"
|
|
Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click
|
|
GenerarImpresion("EXCEL")
|
|
End Sub
|
|
Private Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click
|
|
SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet())
|
|
|
|
Dim ef As ExcelFile = New ExcelFile
|
|
Dim ws As ExcelWorksheet = ef.Worksheets.Add("DataTable to Sheet")
|
|
Dim dt As DataTable = New DataTable
|
|
Dim response As HttpResponse = Me.Response
|
|
|
|
'Recorrer columnas
|
|
For index = 0 To GvDatos.Columns.Count - 1
|
|
If GvDatos.Columns(index).Visible Then
|
|
dt.Columns.Add(GvDatos.Columns(index).HeaderText)
|
|
End If
|
|
Next
|
|
|
|
'Recorrer filas
|
|
For Each fila As GridViewRow In GvDatos.Rows
|
|
Dim dr As DataRow = dt.NewRow()
|
|
|
|
For index = 0 To GvDatos.Columns.Count - 1
|
|
If GvDatos.Columns(index).Visible Then
|
|
If TypeOf GvDatos.Columns(index) Is TemplateField Then
|
|
If GvDatos.Columns(index).HeaderText = "Folio" Then
|
|
dr(GvDatos.Columns(index).HeaderText) = fila.FCHyperLink("HlFolio").Text.Replace(" ", "")
|
|
End If
|
|
ElseIf TypeOf GvDatos.Columns(index) Is HyperLinkField Then
|
|
dr(GvDatos.Columns(index).HeaderText) = DirectCast(fila.Cells(index).Controls(0), HyperLink).Text.Replace(" ", "")
|
|
Else
|
|
dr(GvDatos.Columns(index).HeaderText) = fila.Cells(index).Text.Replace(" ", "")
|
|
End If
|
|
End If
|
|
Next
|
|
dt.Rows.Add(dr)
|
|
Next
|
|
|
|
' Insert DataTable into an Excel worksheet.
|
|
ws.InsertDataTable(dt,
|
|
New InsertDataTableOptions() With
|
|
{
|
|
.ColumnHeaders = True,
|
|
.StartRow = 1
|
|
})
|
|
|
|
ef.Save(response, "RepCxC.xlsx")
|
|
End Sub
|
|
|
|
Private Sub GenerarImpresion(Optional TipoImpresion As String = "PDF")
|
|
'Dim ObjMovtos As New ClsMovimientos()
|
|
Dim FechaI As String = txtFechaI.Text
|
|
Dim FechaF As String = txtFechaF.Text
|
|
If txtFechaI.Text = "" Then FechaI = "-1"
|
|
If txtFechaF.Text = "" Then FechaF = "-1"
|
|
|
|
If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then
|
|
TCEspecifico = TxtEspecifico.Text.ToDouble
|
|
Else
|
|
TCEspecifico = -1
|
|
End If
|
|
|
|
Dim Cliente = If(DdlClientesWS.SelectedValue = "-1", "", $" <b>Cliente:</b> {DdlClientesWS.SelectedText}")
|
|
Dim Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $" <b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}")
|
|
Dim Grupo = $" <b>Agrupado Por:</b> {DdlGrupo.SelectedItem.Text}" 'If(DdlGrupo.SelectedValue = "3", "", $" <b>Agrupado Por:</b> {DdlGrupo.SelectedItem.Text}")
|
|
Dim TipoDocto = If(DdlTipoDocto.GetSelectedText = "", "", $" <b>Documentos:</b> {DdlTipoDocto.GetSelectedText}")
|
|
Dim Vendedor = If(DdlVendedor.SelectedValue = "-1", "", $" <b>Vendedor:</b> {DdlVendedor.SelectedItem.Text}")
|
|
Dim FechaIn As String = If(txtFechaI.Text = "", "", $" <b>Fecha Inicio Docto:</b> {txtFechaI.Text}")
|
|
Dim FechaFn As String = If(txtFechaF.Text = "", "", $" <b>Fecha Fin Docto:</b> {txtFechaF.Text}")
|
|
Dim FVI As String = If(txtFechaVI.Text = "", "", $" <b>Fecha Venc. Inic.:</b> {txtFechaVI.Text}")
|
|
Dim FVF As String = If(txtFechaVF.Text = "", "", $" <b>Fecha Venc. Final:</b> {txtFechaVF.Text}")
|
|
Dim Registro = If(DdlUsuario.SelectedValue = "-1", "", $" <b>Registró:</b> {DdlUsuario.SelectedItem.Text}")
|
|
Dim Responsable = If(DdlResponsable.SelectedValue = "-1", "", $" <b>Responsable:</b> {DdlResponsable.SelectedItem.Text}")
|
|
Dim EstatusCob = If(DdlCobranzaEstatusFiltro.SelectedValue = "-1", "", $" <b>Estatus Cobranza:</b> {DdlCobranzaEstatusFiltro.SelectedItem.Text}")
|
|
Dim CorteA As String = If(txtCorteA.Text = "31/12/2019", "", $" <b>Corte A:</b> {txtCorteA.Text}")
|
|
Dim ClasificacionCli = If(DdlClienteClasificacion.SelectedValue = "-1", "", $" <b>Clasificación Cliente:</b> {DdlClienteClasificacion.SelectedItem.Text}")
|
|
|
|
Dim TituloReporte As String = "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE CON DETALLE"
|
|
'If UsuarioActual.CveEmpresa = 72 Then
|
|
' TituloReporte = "Antigüedad de Saldos de Clientes"
|
|
'End If
|
|
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("FechaInicio", FechaI))
|
|
params.Add(New ReportParameter("FechaFin", FechaF))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
|
params.Add(New ReportParameter("AgrupadoPor", $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{EstatusCob}{FVI}{FVF}{ClasificacionCli}{CorteA}"))
|
|
params.Add(New ReportParameter("TituloReporte", TituloReporte))
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepCxCDetalle.rdlc", UsuarioActual.Empresa.Ruta))
|
|
If Archivo.Exists Then
|
|
ImprimirPDF(String.Format("{0}Formatos/RepCxCDetalle.rdlc", UsuarioActual.Empresa.Ruta), CargaDatos, params, "ReporteCxCDetalle", TipoImpresion)
|
|
Else
|
|
ImprimirPDF("Empresas/Grales/Formatos/RepCxCDetalle.rdlc", CargaDatos, params, "ReporteCxCDetalle", TipoImpresion)
|
|
End If
|
|
|
|
|
|
|
|
End Sub
|
|
Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
|
|
GenerarImpresion("PDF")
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "TIPO DE CAMBIO"
|
|
|
|
Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged
|
|
If RblTipoCambio.SelectedValue.ToEntero = 3 Then
|
|
Dim TipoCambio As Double
|
|
LiEspecifico.Visible = True
|
|
TipoCambio = GlobalTipoCambio(Now)
|
|
TxtEspecifico.Text = TipoCambio.ToString
|
|
Else
|
|
LiEspecifico.Visible = False
|
|
End If
|
|
UpBodyTipoCambio.Update()
|
|
End Sub
|
|
Private Sub BtnTipoCambio_Click(sender As Object, e As EventArgs) Handles BtnTipoCambio.Click
|
|
CargaDatos()
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivTipoCambio"))
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "C O B R A N Z A "
|
|
Private Sub CargaAsignarCobranza()
|
|
Dim ObjVentas As New ClsVentas
|
|
|
|
DdlUsuarioCobranza.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
|
|
DdlUsuarioCobranza.DataBind()
|
|
DdlUsuarioCobranza.Items.Insert(0, New ListItem("Sin Cobrador", "-1"))
|
|
|
|
DdlCobranzaEstatus.DataSource = GlobalDTCobranzaEstatus(UsuarioActual.CveEmpresa)
|
|
DdlCobranzaEstatus.DataBind()
|
|
DdlCobranzaEstatus.Items.Insert(0, New ListItem("Sin Estatus", "-1"))
|
|
|
|
If ObjVentas.GetCobranzaTurnoEstatus(-1, UsuarioActual.CveEmpresa) Then
|
|
DdlTurnoCobranza.DataSource = ObjVentas.DtResultados
|
|
DdlTurnoCobranza.DataBind()
|
|
DdlTurnoCobranza.Items.Insert(0, New ListItem("Sin Turno", "-1"))
|
|
End If
|
|
|
|
ObjVentas.Dispose()
|
|
|
|
End Sub
|
|
Private Sub LkbHabilitarCobranza_Click(sender As Object, e As EventArgs) Handles LkbHabilitarCobranza.Click
|
|
GvDatos.Columns(32).Visible = True ' chk aplica
|
|
GvDatos.Columns(33).Visible = True : ChkEstatusCobranza.Checked = True
|
|
GvDatos.Columns(35).Visible = True : ChkObsCobranza.Checked = True
|
|
GvDatos.Columns(36).Visible = True : ChkFechaCobranza.Checked = True
|
|
GvDatos.Columns(37).Visible = True : ChkHorario.Checked = True
|
|
|
|
DivCobranza.Visible = True
|
|
CargaDatos()
|
|
UPPersonalizar.Update()
|
|
UpCobranza.Update()
|
|
End Sub
|
|
Private Sub BtnAsignaCobranza_Click(sender As Object, e As EventArgs) Handles BtnAsignaCobranza.Click
|
|
Dim time As DateTime
|
|
Dim TieneError = False
|
|
|
|
Dim ObjVentas As New ClsVentas
|
|
ObjVentas.IniciaTransacSQL()
|
|
Try
|
|
For Each row As GridViewRow In GvDatos.Rows
|
|
Dim TipoDocto As String = row.DataKey("TipoDocto")
|
|
If row.FCCheckBox("ChkCobranza").Checked AndAlso TipoDocto <> "IxC" Then
|
|
time = DateTime.Parse(String.Format("{0} {1}:{2} {3}", TxtFechaCobranza.Text, TimeSelector.Hour, TimeSelector.Minute, TimeSelector.AmPm))
|
|
If Not ObjVentas.UpdateAsignaVentaCobranza(row.DataKey("CveVenta").ToEntero, DdlCobranzaEstatus.SelectedValue.ToEntero, DdlUsuarioCobranza.SelectedValue.ToEntero, DdlTurnoCobranza.SelectedValue.ToEntero, TxtObservacionCobranza.Text.Trim, time) Then
|
|
TieneError = True
|
|
End If
|
|
End If
|
|
|
|
Next
|
|
Catch ex As Exception
|
|
OnError("Ocurrió un error al actualizar", ex)
|
|
TieneError = True
|
|
End Try
|
|
|
|
If Not TieneError Then
|
|
ObjVentas.Commit()
|
|
Alert("Se asigno exitosamente datos de cobranza a la venta", TipoMensaje.MsgInformacion)
|
|
|
|
Else
|
|
ObjVentas.RollBack()
|
|
Alert("Hubo un error al asignar datos de cobranza", TipoMensaje.MsgInformacion)
|
|
End If
|
|
|
|
ObjVentas.Dispose()
|
|
CargaDatos()
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "SELECTED INDEX CHANGE"
|
|
|
|
Protected Sub DdlClienteClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
CargaClientes()
|
|
|
|
End Sub
|
|
|
|
Private Sub CargaClientes()
|
|
If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
|
|
DdlClientesWS.ddl.Items.Clear()
|
|
DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1")
|
|
DdlClientesWS.DataBind()
|
|
DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
End If
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
End Class
|