Private Sub cmdAceptarStatus_Click()
Dim strSelFormula As String
    
strSelFormula = ""
With CrystalReport1
    .Reset
        If List1.ListIndex = 0 Then
Si esta seleccionado el primer valor del cuadro de lista, abrir el siguiente reporte
                    .ReportFileName = frmMain.Ap_Hist & "Status Embarcaciones Agrupado Tipo Status, Servicio, Status.rpt"
        Else
Si no abrir este otro reporte
            .ReportFileName = frmMain.Ap_Hist & "Status Embarcaciones Agrupado Servicio, Tipo Status, Status.rpt"
        End If
        .ReplaceSelectionFormula strSelFormula
        .DiscardSavedData = True
        .WindowTitle = "Status Embarcaciones"
        .PageZoom 100
        .Action = 1
        
    End With

End Sub
