124 lines
5.3 KiB
VB.net
124 lines
5.3 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
Imports System.Data.SqlClient
|
|
Imports Extensiones
|
|
Imports Extensiones.ModExtensiones
|
|
|
|
Partial Class ListadoContratos
|
|
Inherits ClsPaginas
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
txtFechaI.Text = DateTime.Now.AddMonths(-1).ToString("MM/dd/yyyy").Replace(" ", "T")
|
|
txtFechaF.Text = DateTime.Now.AddDays(7).ToString("MM/dd/yyyy").Replace(" ", "T")
|
|
|
|
If Not IsPostBack Then
|
|
InicializaCombos()
|
|
CargaDatos()
|
|
End If
|
|
End Sub
|
|
Private Sub InicializaCombos()
|
|
'Lista Tipo AF
|
|
DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
|
|
DdlTipoAF.DataBind()
|
|
DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
|
|
End Sub
|
|
Private Sub CargaDatos()
|
|
Dim ObjContratos As New ClsContratos
|
|
|
|
If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, TipoContrato:=2) Then
|
|
GvContratos.DataSource = ObjContratos.DtResultados
|
|
GvContratos.DataBind()
|
|
End If
|
|
|
|
If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then
|
|
DdlEstatusConsulta.DataSource = ObjContratos.DtResultados
|
|
DdlEstatusConsulta.DataBind()
|
|
DdlEstatusConsulta.Items.Insert(0, New ListItem("-", ""))
|
|
End If
|
|
|
|
|
|
Dim ObjFolio As New ClsGralFolios
|
|
If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=10) Then
|
|
If ObjFolio.DtResultados.FiltraParametros($"CveSubProyecto = 10").Rows.Count > 0 Then
|
|
LbFolio.Text = $"{GlobalDTSubProyectos(-1, 10).FiltroPrimeroValor("Serie")}-{ObjFolio.DtResultados.FiltroPrimeroValor("FActual", $"CveSubProyecto = {10}")}"
|
|
End If
|
|
End If
|
|
UpTitulos.Update()
|
|
|
|
End Sub
|
|
Protected Sub MostrarModal()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "ModalAgregar"))
|
|
End Sub
|
|
Private Sub LBAgregarContrato_Click(sender As Object, e As EventArgs) Handles LBAgregarContrato.Click
|
|
MostrarModal()
|
|
End Sub
|
|
Protected Sub AddContrato(sender As Object, e As EventArgs)
|
|
|
|
If DdlClientes.SelectedValue = "" Then
|
|
Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim ObjContratos As New ClsContratos
|
|
ObjContratos.IniciaTransacSQL()
|
|
|
|
If ObjContratos.AddContratos("", TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=2, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text) > 0 Then
|
|
ObjContratos.Commit()
|
|
Alert("Agregado Correctamente.")
|
|
End If
|
|
|
|
TxtDescripcion.Text = ""
|
|
TxtFechaSalida.Text = ""
|
|
TxtFechaRegreso.Text = ""
|
|
TxtObservaciones.Text = ""
|
|
TxtUbicacion.Text = ""
|
|
DdlClientes.SelectedText = ""
|
|
DdlTipoAF.SelectedValue = ""
|
|
TxtDolares.Text = ""
|
|
TxtPesos.Text = ""
|
|
TxtAnticipo.Text = ""
|
|
TxtCantidadPasajeros.Text = ""
|
|
|
|
ObjContratos.Dispose()
|
|
UpModal.Update()
|
|
CargaDatos()
|
|
|
|
End Sub
|
|
|
|
Protected Sub LBExcel_Click(sender As Object, e As EventArgs) Handles LBExcel.Click
|
|
GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString)
|
|
End Sub
|
|
|
|
Protected Sub Consultar(sender As Object, e As EventArgs)
|
|
Dim fechaInicial As String = txtFechaI.Text
|
|
Dim fechaFinal As String = txtFechaF.Text
|
|
|
|
Dim cliente As String = If(DdlClientesConsulta.SelectedValue = "", "", $"C.CveCliente = {DdlClientesConsulta.SelectedValue} AND")
|
|
Dim estatus As String = ""
|
|
Dim nombreEstatus As String = ""
|
|
Dim innerEstatus As String = ""
|
|
If (DdlEstatusConsulta.SelectedValue <> "") Then
|
|
estatus = $"C.CveContratosEstatus = {DdlEstatusConsulta.SelectedValue} AND"
|
|
nombreEstatus = ", CE.ContratoEstatus As ContratoEstatus1"
|
|
innerEstatus = "INNER JOIN Con_ContratosEstatus CE with(nolock) ON CE.CveContratoEstatus = C.CveContratosEstatus
|
|
"
|
|
End If
|
|
Dim intervalo As String = If(DdlEstatusConsulta.SelectedValue = "" And DdlClientesConsulta.SelectedValue = "", $"FechaInicial BETWEEN '{fechaInicial}' AND '{fechaFinal}'", $"FechaInicial BETWEEN '{fechaInicial}' AND '{fechaFinal}'")
|
|
|
|
|
|
Dim query As String = $"SELECT *, ISNULL(Cli.NombreComercial,'') AS NombreComercial {nombreEstatus} FROM Con_Contratos C LEFT JOIN Clientes Cli with(nolock) ON Cli.CveCliente = C.CveCliente {innerEstatus} WHERE {cliente} {estatus} {intervalo}"
|
|
|
|
Using connection As New SqlConnection(ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
|
|
Using command As New SqlCommand(query, connection)
|
|
connection.Open()
|
|
Dim reader As SqlDataReader = command.ExecuteReader()
|
|
GvContratos.DataSource = reader
|
|
GvContratos.DataBind()
|
|
End Using
|
|
End Using
|
|
|
|
UpTitulos.Update()
|
|
End Sub
|
|
|
|
End Class
|