Commit inicial Ventas Productivo

AF/CatCargasCombustible.aspx.vb

@@ -0,0 +1,126 @@
+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