Sub FixOrderentIni()
        DispThis("     FixOrderentIni Started" & NewLine)
        Dim OrderentIni As New PrivateIniFile

        For xLoop_Register As Integer = 0 To PosMaint.RegisterInformations.Count - 1
            Dim RegInfo As RegInfo = PosMaint.RegisterInformations(xLoop_Register)
            OrderentIni.DeleteSection("To_Go")
            If RegInfo.DefaultConcept = eDefaultConcept.FreshMarket Then
                OrderentIni.WriteInteger("To_Go", "Menu1", 5)
                OrderentIni.WriteInteger("To_Go", "Menu2", 6)
                OrderentIni.WriteInteger("To_Go", "Menu3", 1)
                OrderentIni.WriteInteger("To_Go", "Menu4", 2)
                OrderentIni.WriteInteger("To_Go", "Menu5", 2017)
                OrderentIni.WriteInteger("To_Go", "Menu6", 9)
            End If
        Next
        OrderentIni = Nothing
        DispThis("     FixOrderentIni Finished" & NewLine)
    End Sub