Mistři v programování na #hovnokod


Anonymous,

        Private Sub SetFleetControls()
            Dim isEnabled = FleetScreen.AircraftsGrid.RowCount > 0
            If isEnabled Then
                SingleCopyAircraftButton.Enabled = True
                MultiCopyAircraftButton.Enabled = True
                FleetToExcelButton.Enabled = True
                FleetFromExcelButton.Enabled = True
                OpenAircraftDetailsButton.Enabled = True
                FleetCostingDetailsToExcelButton.Enabled = True
                FleetCostingDetailsFromExcelButton.Enabled = True
                DetailsToExcelButton.Enabled = True
                AllocateTotalPremiumButton.Enabled = True
                FleetApplySuggestedButton.Enabled = True
            Else
                SingleCopyAircraftButton.Enabled = False
                MultiCopyAircraftButton.Enabled = False
                FleetToExcelButton.Enabled = False
                FleetFromExcelButton.Enabled = False
                OpenAircraftDetailsButton.Enabled = False
                FleetCostingDetailsToExcelButton.Enabled = False
                FleetCostingDetailsFromExcelButton.Enabled = False
                DetailsToExcelButton.Enabled = False
                AllocateTotalPremiumButton.Enabled = False
                FleetApplySuggestedButton.Enabled = False
            End If
        End Sub

Anonymous,

If True Then...

If grdFaktury.Value(grdFaktury.Columns.Item("exportovane").Index) <> 2 Or grdFaktury.Value(grdFaktury.Columns.Item("exportovane").Index) <> 3 Then
   ...
End If

Anonymous,

I don't want to live on this planet anymore..

   Call Loguj(3, "PUBDATE: Neni klasicky format: [" & strLog & "] original [" & strOrigPubDate & "]" & ex.Message, strAktualRSS)
                            'Fri, 17 Jun 2011 10:28:00 GMT
                            Try
                                pubDate = DateTime.ParseExact(strLog, "ddd, dd MMM yyyy HH:mm:ss zzz", System.Globalization.DateTimeFormatInfo.InvariantInfo, Globalization.DateTimeStyles.None)
                                Call Loguj(3, "PUBDATE: OK TRANSFORM : [" & strLog & "] -> [" & pubDate.ToString & "]", strAktualRSS)

                            Catch ex2 As Exception
                                Try
                                    pubDate = DateTime.ParseExact(strLog, "ddd, d MMM yyyy H:mm:ss GMT", System.Globalization.DateTimeFormatInfo.InvariantInfo, Globalization.DateTimeStyles.None)
                                    Call Loguj(3, "PUBDATE: OK TRANSFORM : [" & strLog & "] -> [" & pubDate.ToString & "]", strAktualRSS)

                                Catch ex3 As Exception
                                    Try
                                        pubDate = DateTime.ParseExact(strLog, "yyyy-MM-ddTHH:mm:ssK", System.Globalization.DateTimeFormatInfo.InvariantInfo, Globalization.DateTimeStyles.AllowLeadingWhite)
                                        Call Loguj(3, "PUBDATE: OK TRANSFORM : [" & strLog & "] -> [" & pubDate.ToString & "]", strAktualRSS)
....................
Catch ex42 As Exception
Try
pubDate = DateTime.ParseExact(strLog, "ddd dd MMM yyyy H:mm:ss CST", System.Globalization.DateTimeFormatInfo.InvariantInfo, Globalization.DateTimeStyles.None)
Call Loguj(3, "PUBDATE: OK TRANSFORM : [" & strLog & "] -> [" & pubDate.ToString & "]", strAktualRSS)

Catch ex44 As Exception
Call Loguj(1, "PUBDATE: NEZNAMY FORMAT : [" & strLog & "] [" & strOrigPubDate & "]" & ex44.Message, strAktualRSS)
pubDate = DateAdd(DateInterval.Hour, -4, Now())
intPubDateOk = 0

End Try
End Try
End Try
..........
End Try
End Try

Anonymous,

Aby bylo jasno.

''' <summary>
''' Predstavuje nerozpocitatelnou polozku baleni k polozce
''' </summary>
''' <remarks></remarks>
Public Class BalneKPolozce
  Inherits RozpocitatelnaPolozka

  ' ...

End Class

Anonymous,