--

Transportes/RepContratos.aspx.vb

@@ -19,7 +19,6 @@ Partial Class ListadoContratos
         End Set
     End Property
 #End Region
-
 #Region "Carga Página"
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString
@@ -34,7 +33,8 @@ Partial Class ListadoContratos
         'Lista Tipo AF
         DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)")
         DdlTipoAF.DataBind()
-        DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
+        DdlTipoAF.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlTipoAF.SelectedValue = "-1"
 
         DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)")
         DdlTipoUnidad.DataBind()
@@ -74,6 +74,21 @@ Partial Class ListadoContratos
         UpTitulos.Update()
     End Sub
 #End Region
+#Region "Contrato"
+    Protected Sub OnChangePasajeros(sender As Object, e As EventArgs)
+        If TxtCantidadPasajeros.Text.ToDecimal > 19 Then
+            Dim sprintersItem As ListItem = DdlTipoAF.Items.FindByText("Sprinter")
+            If sprintersItem IsNot Nothing Then
+                DdlTipoAF.Items.Remove(sprintersItem)
+            End If
+        Else
+            Dim sprintersItem As ListItem = DdlTipoAF.Items.FindByText("Sprinter")
+            If sprintersItem Is Nothing Then
+                DdlTipoAF.Items.Add(New ListItem("Sprinter", "183"))
+            End If
+
+        End If
+    End Sub
     Protected Sub AddContrato(sender As Object, e As EventArgs)
 
         If DdlClientes.SelectedValue = "" Then
@@ -85,7 +100,7 @@ Partial Class ListadoContratos
         'Agregamos Contrato
         Dim ObjContratos As New ClsContratos
         ObjContratos.IniciaTransacSQL()
-        If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDateTime, TxtFechaRegreso.Text.ToDateTime, TxtUbicacion.Text, "", CveSubProyecto, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text) > 0 Then
+        If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDateTime, TxtFechaRegreso.Text.ToDateTime, TxtUbicacion.Text, "", CveSubProyecto, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text) > 0 Then
             ObjContratos.Commit()
             Alert("Agregado Correctamente.")
         End If
@@ -105,8 +120,7 @@ Partial Class ListadoContratos
         TxtUbicacion.Text = ""
         DdlClientes.SelectedText = ""
         DdlTipoAF.SelectedValue = ""
-        TxtDolares.Text = ""
-        TxtPesos.Text = ""
+        TxtImporte.Text = ""
         TxtAnticipo.Text = ""
         TxtCantidadPasajeros.Text = ""
         LbArchivo.Text = ""
@@ -188,10 +202,10 @@ Partial Class ListadoContratos
 
         Next
 
-        UpArchivo.Update()
         UpModal.Update()
-
         RegistraScript("$('#ModalUpload').modal('hide')", "hidemodal1")
 
     End Sub
+#End Region
+
 End Class