127 lines
5.1 KiB
VB.net
127 lines
5.1 KiB
VB.net
Imports Extensiones
|
|
Imports System.Data
|
|
Partial Class AF_CatCargasCombustible
|
|
Inherits ClsPaginas
|
|
|
|
Private Sub AF_CatCargasCombustible_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then
|
|
|
|
CargaDatos()
|
|
CargaProveedor()
|
|
CargaCombustible()
|
|
CargaAF()
|
|
End If
|
|
End Sub
|
|
|
|
#Region "C A R G A S "
|
|
Private Sub CargaDatos()
|
|
Dim ObjAF As New ClsAF()
|
|
|
|
Dim AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString
|
|
Dim CveProveedor = If(Request("CveProveedor") IsNot Nothing AndAlso Request("CveProveedor").ToEntero() > 0, Request("CveProveedor").ToEntero(), -1).ToString
|
|
Dim CveSubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1).ToString
|
|
Dim CveTipoAF = If(Request("CveTipoAF") IsNot Nothing AndAlso Request("CveTipoAF").ToEntero() > 0, Request("CveTipoAF").ToEntero(), -1).ToString
|
|
Dim CveAF = If(Request("CveAF") IsNot Nothing AndAlso Request("CveAF").ToEntero() > 0, Request("CveAF").ToEntero(), -1).ToString
|
|
Dim FechaI = If(Request("FechaI") IsNot Nothing, Request("FechaI").ToString, "-1").ToString
|
|
Dim FechaF = If(Request("FechaF") IsNot Nothing, Request("FechaF").ToString, "-1").ToString
|
|
|
|
|
|
Dim sMes As String
|
|
Dim sDias As String = ""
|
|
Dim dias As Integer = 0
|
|
Dim sAnio As String = If(AnioMes <> "-1", AnioMes.Substring(0, 4), "")
|
|
|
|
If AnioMes.Trim.Length = 7 Then
|
|
sMes = AnioMes.Substring(5, 2).ToEntero.ToString("00")
|
|
Else
|
|
sMes = If(AnioMes <> "-1", AnioMes.Substring(5, 1).ToEntero.ToString("00"), "")
|
|
End If
|
|
|
|
If AnioMes <> "-1" Then
|
|
FechaI = String.Format("01/{0}/{1}", sMes, sAnio)
|
|
FechaF = FechaI.ToDate.LastDayOfMonth
|
|
End If
|
|
|
|
If ObjAF.GetCargasCombustible(CveAF, CveProveedor, CveTipoAF, CveSubProyecto, FechaI, FechaF, UsuarioActual.CveEmpresa, CveCargaCombustible:=-1) Then
|
|
GvCargaCombustible.DataSource = ObjAF.DtResultados
|
|
GvCargaCombustible.DataBind()
|
|
End If
|
|
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Private Sub CargaProveedor()
|
|
DdlProveedor.Items.Clear()
|
|
DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
|
DdlProveedor.DataBind()
|
|
|
|
UpAddCargaCombustible.Update()
|
|
End Sub
|
|
Private Sub CargaCombustible()
|
|
Dim ObjAF As New ClsAF()
|
|
DdlCombustible.Items.Clear()
|
|
|
|
If ObjAF.GetCombustibles(-1, 1, UsuarioActual.CveEmpresa) Then
|
|
DdlCombustible.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
DdlCombustible.DataSource = ObjAF.DtResultados
|
|
DdlCombustible.DataBind()
|
|
End If
|
|
|
|
ObjAF.Dispose()
|
|
UpAddCargaCombustible.Update()
|
|
End Sub
|
|
Private Sub CargaAF()
|
|
Dim ObjAF As New ClsAF()
|
|
DdlActivoFijo.Items.Clear()
|
|
|
|
If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, "-1", -1) Then
|
|
DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
DdlActivoFijo.DataSource = ObjAF.DtResultados
|
|
DdlActivoFijo.DataBind()
|
|
End If
|
|
|
|
ObjAF.Dispose()
|
|
UpAddCargaCombustible.Update()
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "A G R E G A R "
|
|
Private Sub LnkCargaCombustible_Click(sender As Object, e As EventArgs) Handles LnkCargaCombustible.Click
|
|
HdnModalidad.Value = "A"
|
|
UpDatos.Update()
|
|
BtnAgregarCarga.Text = "Agregar"
|
|
myModalLabel.InnerText = "Agregar Operador"
|
|
TxtFecha.Text = ""
|
|
TxtFolio.Text = ""
|
|
TxtCantidad.Text = ""
|
|
TxtCosto.Text = ""
|
|
TxtOdometro.Text = ""
|
|
|
|
DdlActivoFijo.SelectedIndex = 0
|
|
DdlCombustible.SelectedIndex = 0
|
|
DdlProveedor.SelectedIndex = 0
|
|
UpAddCargaCombustible.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCargaCombustible"))
|
|
End Sub
|
|
Private Sub BtnAgregarCarga_Click(sender As Object, e As EventArgs) Handles BtnAgregarCarga.Click
|
|
Dim ObjAF As New ClsAF
|
|
Dim FechaCarga As DateTime
|
|
|
|
FechaCarga = DateTime.Parse(String.Format("{0} {1}:{2} {3}", TxtFecha.Text, TimeSelector.Hour, TimeSelector.Minute, TimeSelector.AmPm))
|
|
|
|
If ObjAF.AddCargaCombustible(DdlCombustible.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, TxtFolio.Text.Trim, FechaCarga, CkhTanque.Checked, TxtCantidad.Text.ToDouble, TxtCosto.Text.ToDouble,
|
|
TxtOdometro.Text.ToDouble, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
|
Alert("Se registró la carga correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
|
|
CargaDatos()
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCargaCombustible"))
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
End Class
|