Private Sub cmdAceptarFlujoEmbarcacion_Click()
Dim strSelFormula As String
Dim NumEmbarcacion As String
Dim Longitud As Integer

If DateDiff("d", DTPFInicio2.Value, DTPFFin2.Value) < 0 Then
        MsgBox "Por favor, un rango de fechas valido!", vbExclamation
        DTPFFin2.SetFocus
        Exit Sub
End If
    With CrystalReport1
        .Reset
        .ReportFileName = frmMain.Ap_Hist & "Historial Embarcacion.rpt"
        .WindowTitle = "Historial Embarcacion"
    End With
    
    If ComboEmbarcaciones.Text = "" Then
Si se deja en blanco el combobox, donde se captura el numero de embarcacin muestra todas las embarcaciones, agrupadas por Numero de Embarcacion
        strSelFormula = "{Flujo Embarcaciones.FechaStatus} >= #" & Format$(DTPFInicio2.Value, "MM/dd/yyyy") & "# AND {Flujo Embarcaciones.FechaStatus} <= #" & Format$(DTPFFin2.Value, "MM/dd/yyyy") & "#"
        With CrystalReport1
        .ReplaceSelectionFormula strSelFormula
        .DiscardSavedData = True
         
        .PageZoom 100
        .Action = 1
        End With
     Else
Si no se deja en blanco el Combo Box donde se captura la embarcacin, unicamente muestra el flujo de la embarcacin seleccionada
        Longitud = Len(ComboEmbarcaciones.Text)
    
        NumEmbarcacion = Mid(ComboEmbarcaciones.Text, 1, Longitud - 7)
        
        strSelFormula = "{Embarcaciones.NumEmbarcacion}= " & NumEmbarcacion & " AND ({Flujo Embarcaciones.FechaStatus} >= #" & Format$(DTPFInicio2.Value, "MM/dd/yyyy") & "# AND {Flujo Embarcaciones.FechaStatus} <= #" & Format$(DTPFFin2.Value, "MM/dd/yyyy") & "#)"
        With CrystalReport1
        .ReplaceSelectionFormula strSelFormula
        .DiscardSavedData = True
        .PageZoom 100
        .Action = 1
        
        End With
    End If
    
End Sub
