-- filtros de reportes de contratos por fechaing

Transportes/RepContratosCalendario.aspx.vb

@@ -662,7 +662,6 @@ Partial Class RepContratosCalendario
             HidCveAF.Value = GvRow.DataKey("CveAF").ToString
             HidCveAFDes.Value = DdlAF.SelectedItem.Text
         End If
-
         TxtMotivoCambioUnidad.Text = ""
         DVMotivoCambioAF.Visible = False
 
@@ -676,8 +675,6 @@ Partial Class RepContratosCalendario
             LblSaldo.Text = ""
         End If
 
-
-
         CveContrato = GvRow.DataKey("CveContrato").ToEntero
         OcultarMostrarSegundoChofer()
 
@@ -694,14 +691,12 @@ Partial Class RepContratosCalendario
 
         TxtMotivoCambioUnidad.Text = ""
         DVMotivoCambioAF.Visible = False
-
         DdlClientes.SelectedText = HidModClienteNombre.Value
         DdlClientes.SelectedValue = HidModCveCliente.Value
         DdlClientes.txtText.Value = HidModClienteNombre.Value
         DdlClientes.txtValue.Value = HidModCveCliente.Value
 
         chkSegundoChofer.Checked = If(HidNumChoferes.Value.ToEntero = 2, True, False)
-
         OcultarMostrarSegundoChofer()
 
         HypRemision.Text = HidRemisionSerieFolio.Value
@@ -713,14 +708,15 @@ Partial Class RepContratosCalendario
         End If
 
         CargaAFDdl(HidCveTipoAF.Value.ToEntero)
-
         DdlAF.SelectedValueExist(HidCveAF.Value)
+        If HidCveAF.Value.ToEntero > 0 AndAlso DdlAF.SelectedValue <> HidCveAF.Value Then
+            DdlAF.Items.Insert(0, New ListItem(GlobalDTActivoFijos(UsuarioActual.CveEmpresa, CveActivoFijo:=HidCveAF.Value.ToEntero).FiltroPrimeroValor("CodigoDescripcion"), HidCveAF.Value))
+            DdlAF.SelectedValueExist(HidCveAF.Value)
+        End If
 
         HidCveAFDes.Value = DdlAF.SelectedItem.Text
-
         UpModal.Update()
         myModalLabel.InnerText = "Contrato: " & HdnNumContrato.Value
-
         RegistraScript("$('#ModalActualizar').modal('show');")
     End Sub
 
@@ -784,11 +780,7 @@ Partial Class RepContratosCalendario
 
     Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
 
-        Dim SubProyecto As String = ""
-
-
-        SubProyecto = DdlSubProyectos.SelectedItem.Text
-
+        Dim SubProyecto As String = DdlSubProyectos.SelectedItem.Text
 
         Dim SbFiltros As New StringBuilder()
         SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
@@ -837,8 +829,6 @@ Partial Class RepContratosCalendario
 
     End Sub
 
-
-
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
         CargaDatos()
     End Sub
@@ -850,11 +840,9 @@ Partial Class RepContratosCalendario
     End Sub
 
     Protected Sub DdlTipoVista_SelectedIndexChanged(sender As Object, e As EventArgs)
-
         CargaDiagramadeGant(DdlTipoVista.SelectedValue.ToEntero)
     End Sub
 
-
     Protected Sub DdlAF_SelectedIndexChanged(sender As Object, e As EventArgs)
         DVMotivoCambioAF.Visible = False
 
@@ -865,11 +853,8 @@ Partial Class RepContratosCalendario
         UpModal.Update()
     End Sub
 
-
-
     Protected Sub DdlTipoVistaCalendario_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaCronograma(DdlTipoVistaCalendario.SelectedValue.ToEntero)
     End Sub
 
-
 End Class