Pri preberaní nového auta v autosalóne dostanete dočasné značky. Tieto Vám zapožičia autosalón a po prihlásení auta na polícii ich treba vrátiť autosalónu, vrátane všetkých papierov (potvrdenie o zaplatení poistenia, zelená karta apod.).
Dočasné značky majú pre Vaše auto obmedzenú platnosť na 15 dní, v prípade potreby Vám ich platnosť vedia v autosalóne predĺžiť.
Potom, čo dostane importér zaplatené za Vaše auto do autosalónu (obvykle do 7 dní), uvolní pre Váš autosalón technický preukaz, ktorý si následne môžete ísť vyzdvihnúť. Obratom si z techničáku spravte fotokópiu, bude sa Vám hodiť pri prihlasovaní.
S technickým preukazom môžete ísť na políciu, na základe skúsenosti z decembra 2011 netreba už ísť ráno na kontrolu identifikačných údajov.
Doporučujem dopredu si vyzdvihnúť formulár na prihlásenie auta a v kľude si ho vyplňte. Zároveň si na pošte zakúpte kolky, automaty na kolky nie vždy fungujú.
Na prihlásenie sa platí 33,- € poplatok + 16,50 € za každú tabuľku. Ak máte ťažné zariadenie, je vhodné si vyžiadať hneď aj 3. ŠPZ na rôzne prípojné nosiče, platí sa za ňu 16,50 a príde následne do 1 mesiaca.
K prihláseniu potrebujete faktúru zo servisu za kúpu auta, ak máte aj ťažné zariadenie, tak aj k nemu faktúru a príslušný prospekt. Ďalej poistenie PZP, najlepšie zmluvu aj potvrdenie o zaplatení. Ak ide o služobné vozidlo, aktuálny výpis z OR na právne úkony a živnostenský list.
Po prihlásení zaneste späť do servisu dočasné značky a zároveň nezabudnite ísť s autom na administratívnu kontrolu STK, platí sa za ňu cca 20,- €.
Moje skúsenosti vychádzajú z predajne značky Škoda-Auto.
streda 28. decembra 2011
sobota 3. decembra 2011
Vytvorenie msi inštalátora z .exe
Občas môže byť potreba zmeniť inštalátor setup.exe na Windows inštalátor s príponou .msi. Napríklad pri hromadnej inštalácii na počítače s Windows vo väčších firmách. Užitočný nástroj zdarma
http://www.qwertylab.com/FreeTools.aspx
Použité riešenie však vyžaduje, aby sa inštalovalo s právami administrátora. Alternatívou je vytvorenie priamo MSI inštalátora, cez nástroj:
WiX toolset
a k nemu si doinštalovať GUI napr. WarSetup alebo WixEdit.
V prípade, že počas kompilácie (buildu) dostanete chybu podobnú tej uvedenej nižšie, doporučujem skontrolovať registráciu skriptu vbscript, resp. previesť registráciu nanovo.
Postup je na tejto stránke. V skratke, spustite príkazový riadok ako správca (administrátor) a následne príkaz:
- pre 64bit. Windows:
C:\Windows\SysWOW64>regsvr32.exe C:\Windows\System32\vbscript.dll
- pre 32bit. Windows:
C:\Windows\system32>regsvr32.exe C:\Windows\System32\vbscript.dll
Chybová hláška:
Exe to msi Converter free
nájdete na stránke:http://www.qwertylab.com/FreeTools.aspx
Použité riešenie však vyžaduje, aby sa inštalovalo s právami administrátora. Alternatívou je vytvorenie priamo MSI inštalátora, cez nástroj:
WiX toolset
a k nemu si doinštalovať GUI napr. WarSetup alebo WixEdit.
V prípade, že počas kompilácie (buildu) dostanete chybu podobnú tej uvedenej nižšie, doporučujem skontrolovať registráciu skriptu vbscript, resp. previesť registráciu nanovo.
Postup je na tejto stránke. V skratke, spustite príkazový riadok ako správca (administrátor) a následne príkaz:
- pre 64bit. Windows:
C:\Windows\SysWOW64>regsvr32.exe C:\Windows\System32\vbscript.dll
- pre 32bit. Windows:
C:\Windows\system32>regsvr32.exe C:\Windows\System32\vbscript.dll
Chybová hláška:
light.exe : error LGHT0217 : Error executing ICE action 'ICE08'. The most common cause of this kind of ICE failure is an incorrectly registered scripting engine. See http://wix.sourceforge.net/faq.html#Error217 for details and how to solve this problem. The following string format was not expected by the external UI message logger: "The installer has encountered an unexpected error installing this package. This may indicate a problem with this package. The error code is 2738. ".
light.exe : error LGHT0217 : Error executing ICE action 'ICE09'. The most common cause of this kind of ICE failure is an incorrectly registered scripting engine. See http://wix.sourceforge.net/faq.html#Error217 for details and how to solve this problem. The following string format was not expected by the external UI message logger: "The installer has encountered an unexpected error installing this package. This may indicate a problem with this package. The error code is 2738. ".
light.exe : error LGHT0217 : Error executing ICE action 'ICE32'. The most common cause of this kind of ICE failure is an incorrectly registered scripting engine. See http://wix.sourceforge.net/faq.html#Error217 for details and how to solve this problem. The following string format was not expected by the external UI message logger: "The installer has encountered an unexpected error installing this package. This may indicate a problem with this package. The error code is 2738. ".
light.exe : error LGHT0217 : Error executing ICE action 'ICE61'. The most common cause of this kind of ICE failure is an incorrectly registered scripting engine. See http://wix.sourceforge.net/faq.html#Error217 for details and how to solve this problem. The following string format was not expected by the external UI message logger: "The installer has encountered an unexpected error installing this package. This may indicate a problem with this package. The error code is 2738. ".
streda 16. novembra 2011
OpenOffice Writer - v obsahu väčšia medzera
Stalo sa vám, že vo vytvorenom obsahu (po česky rejstříku), sa zlieva dokopy číslovanie s názvom položky - viď obrázok?
Stačí doplniť medzeru do formátovania, viď nasledujúci obrázok.
Pri formátovaní sa zároveň použije aj štýl písma z daného odstavca. Ak ho chcete zmeniť, na záložke Štýly zmeňte štýl odstavca na iný. Je potrebné predom si pripraviť štýl odstavca. Alebo len zmeňte štýl odstavca nazvaný Obsah + príslušné poradové číslo cez menu Formát / Štýly a formátovanie.
Stačí doplniť medzeru do formátovania, viď nasledujúci obrázok.
Pri formátovaní sa zároveň použije aj štýl písma z daného odstavca. Ak ho chcete zmeniť, na záložke Štýly zmeňte štýl odstavca na iný. Je potrebné predom si pripraviť štýl odstavca. Alebo len zmeňte štýl odstavca nazvaný Obsah + príslušné poradové číslo cez menu Formát / Štýly a formátovanie.
štvrtok 6. októbra 2011
Moja náhrada za Nokiu 6310i
Dlhé roky som spokojne používal Nokiu 6310i, avšak začala si pýtať náhradu. Telefón využívam prevažne na hovory a sms a je potrebné, aby vydržal bez nabíjania aj 3 dni. Zároveň mala mať dostatočne veľké tlačítka, u ktorých mám istotu, ktoré tlačítko stláčam..
Vyskúšal som niekoľko mobilov, ako je Nokia E75 (pomalá, mini tlačítka a batéria vyžadovala každodenné nabíjanie), Blackberry Bold 9700 (mal som smolu na kus s chybným firmware).
Nakoniec som šťastne zakotvil u Samsungu B2710 (uvádzaný aj ako Xcover 271). Odolný telefón s dostatočne veľkými klávesami, foťákom (pre núdzové fotenie), baterkou (svietidlom), bluetooth a pri mojom telefonovaní vydrží bez nabíjania takmer 5 dní. Softvér je rýchly a sedí akurát k výkonu procesora, nejedná sa o žiadny pomalý smartphone.
K tomu aj výborná cena, cca 130,- € s DPH. Vrelo odporúčam pre tých, čo žiadajú, aby im telefón slúžil a na prácu majú radšej notebook (či netbook). Keď sa telefónu niečo stane, nie je problém obratom kúpiť druhý :).
Vyskúšal som niekoľko mobilov, ako je Nokia E75 (pomalá, mini tlačítka a batéria vyžadovala každodenné nabíjanie), Blackberry Bold 9700 (mal som smolu na kus s chybným firmware).
Nakoniec som šťastne zakotvil u Samsungu B2710 (uvádzaný aj ako Xcover 271). Odolný telefón s dostatočne veľkými klávesami, foťákom (pre núdzové fotenie), baterkou (svietidlom), bluetooth a pri mojom telefonovaní vydrží bez nabíjania takmer 5 dní. Softvér je rýchly a sedí akurát k výkonu procesora, nejedná sa o žiadny pomalý smartphone.
K tomu aj výborná cena, cca 130,- € s DPH. Vrelo odporúčam pre tých, čo žiadajú, aby im telefón slúžil a na prácu majú radšej notebook (či netbook). Keď sa telefónu niečo stane, nie je problém obratom kúpiť druhý :).
štvrtok 29. septembra 2011
Zmena užívateľa prihlasujúceho sa k zdielanému adresáru
Prípad: vo firme sa používa spoločný zdielaný adresár na serveri na ukladanie súborov. Zmenilo sa priradenie počítačov, užívatelia si ich navzájom vymenili. Počítače sa však stále prihlasujú k zdielanému adresáru pod pôvodnými oprávneniami, ktoré sú uložené kdesi vo Windowse. Je treba resetnúť uložené údaje.
Na internete som našiel radu, ako na to. Funguje vo Win XP, aj Windows 7 (odskúšané). Stačí z príkazového riadka spustiť príkaz:
rundll32.exe keymgr.dll, KRShowKeyMgr
Následne stačí už len odmazať neaktuálne prístupy.
Poznámka - kľúčové slová na vyhladanie príspevku: net use credentials windows xp different user
Na internete som našiel radu, ako na to. Funguje vo Win XP, aj Windows 7 (odskúšané). Stačí z príkazového riadka spustiť príkaz:
rundll32.exe keymgr.dll, KRShowKeyMgr
Následne stačí už len odmazať neaktuálne prístupy.
Poznámka - kľúčové slová na vyhladanie príspevku: net use credentials windows xp different user
štvrtok 28. júla 2011
Zdielanie súborov u Windows 7
Pre zdielanie súborov vo Windows 7 a Windows Vista sú k dispozícii 2 hlavné možnosti:
1. označiť niektorý z adresárov, že je na zdielanie, prípadne v oprávneniach umožniť užívateľom do neho aj zapisovať;
2. zdielať priamo celú diskovú jednotku, napr. C$, podľa štýlu z predchádzajúcich Windowsov. Nebude však stačiť len autorizácia cez meno a heslo užívateľa, kvôli UAC (User Account Control). Preto pokus o pripojenie vždy skončí hláškou o chybnom hesle. Je potrebné najskôr upraviť UAC, aby dovolil autorizovať administrátorovi sa autorizovať aj z iného počítača. Stačí do registrov vložiť nový záznam:
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System]
"FilterAdministratorToken"=dword:00000001
Viac informácii je na webe: Enable Mapping to HostnameC$ Share on Windows 7 or Vista - How-To Geek.
1. označiť niektorý z adresárov, že je na zdielanie, prípadne v oprávneniach umožniť užívateľom do neho aj zapisovať;
2. zdielať priamo celú diskovú jednotku, napr. C$, podľa štýlu z predchádzajúcich Windowsov. Nebude však stačiť len autorizácia cez meno a heslo užívateľa, kvôli UAC (User Account Control). Preto pokus o pripojenie vždy skončí hláškou o chybnom hesle. Je potrebné najskôr upraviť UAC, aby dovolil autorizovať administrátorovi sa autorizovať aj z iného počítača. Stačí do registrov vložiť nový záznam:
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System]
"FilterAdministratorToken"=dword:00000001
Viac informácii je na webe: Enable Mapping to HostnameC$ Share on Windows 7 or Vista - How-To Geek.
piatok 1. júla 2011
Výrazné spomalenie otvárania MS Excel
V prípade, že sa vám vyskytol problém s pomalým otváraním xls tabuliek v MS Excel pri súboroch uložených na sieťovom disku, vyskúšajte odinštalovať Office Validation Plug-In. Ten sa inštaluje v rámci automatických aktualizácií MS Office. V mojom prípade nezvládal pripojenie k sieťovému disku cez OpenVPN a súbor s veľkosťou 20kB na linke s rýchlosťou 120kB/s otváral približne 20s.
štvrtok 10. februára 2011
Nákladová analýza výhodnosti auta
Pre podnikateľa je dôležité poznať súhrnné náklady na prevádzku auta, prepočítané na 1 km jazdy. Náklad s prevádzkou vozidla tvorí nevyhnutnú súčasť kalkulácií. Pri kúpe auta naviac umožňuje zohľadniť celkové náklady s prevádzkou vozidla. Malý rozdiel v cene môže znamenať veľký rozdiel v nákladoch.
Tu je k stiahnutiu excelovská tabuľka, z ktorej vychádzam. Na 1. hárku je analýza pre podnikateľa a platcu dph. Na druhý hárok som pridal kalkuláciu pre súkromnú osobu, ktorá si vyberá auto do domácnosti.
V tabuľke sú zahrnuté náklady na kúpu auta, predpokladaná predajná cena, cestná daň, dialničná známka, opotrebenie pneumatík, od množstva km servisné prehliadky atď. Určite by sa dali prirátať ešte ďalšie náklady, cieľom však je dať približný obraz o nákladoch, na čo tabuľka určite postačuje.
Zaujímavý článok na rovnakú tému nájdete tu.
Tu je k stiahnutiu excelovská tabuľka, z ktorej vychádzam. Na 1. hárku je analýza pre podnikateľa a platcu dph. Na druhý hárok som pridal kalkuláciu pre súkromnú osobu, ktorá si vyberá auto do domácnosti.
V tabuľke sú zahrnuté náklady na kúpu auta, predpokladaná predajná cena, cestná daň, dialničná známka, opotrebenie pneumatík, od množstva km servisné prehliadky atď. Určite by sa dali prirátať ešte ďalšie náklady, cieľom však je dať približný obraz o nákladoch, na čo tabuľka určite postačuje.
Zaujímavý článok na rovnakú tému nájdete tu.
sobota 15. januára 2011
Návod ako vytvoriť pdf z aktívneho hárku v MS Excel
Pre vytváranie faktúr využívam MS Excel, chýbala mi však možnosť jednoducho si aktívny hárok exportovať do PDF. Na internete som našiel príklad funkcie, ktorá po menšej úprave spĺňala požiadavky.
V MS Excel si otvorte editor VBA cez klávesovú skratku Alt+F11. V editore si zvoľte pridať nový modul a do neho vložte kód uvedený nižšie.
Následne už vo svojom hárku s faktúrou pridajte nové tlačítko (pravdepodobne si budete musieť zapnúť záložku menu s nástrojmi Vývojár). Pri výbere tlačítka sa spýta, s akým makrom ho má prepojiť, vyberte RDB_Worksheet_Or_Worksheets_To_PDF.
Viac príkladov sa dozviete na webe tu.
Tu už je kompletný skript:
Sub RDB_Worksheet_Or_Worksheets_To_PDF()
Dim FileName As String
If ActiveWindow.SelectedSheets.Count > 1 Then
MsgBox "There is more than one sheet selected," & vbNewLine & _
"and every selected sheet will be published."
End If
'Call the function with the correct arguments.
'You can also use Sheets("Sheet3") instead of ActiveSheet in the code(the sheet does not need to be active then).
FileName = RDB_Create_PDF(ActiveSheet, "", True, True)
'For a fixed file name and to overwrite it each time you run the macro, use the following statement.
'RDB_Create_PDF(ActiveSheet, "C:\Users\Ron\Test\YourPdfFile.pdf", True, True)
If FileName <> "" Then
'Uncomment the following statement if you want to send the PDF by e-mail.
'RDB_Mail_PDF_Outlook FileName, "ron@debruin.nl", "This is the subject", _
"See the attached PDF file with the last figures" _
& vbNewLine & vbNewLine & "Regards Ron de bruin", False
Else
MsgBox "It is not possible to create the PDF; possible reasons:" & vbNewLine & _
"Add-in is not installed" & vbNewLine & _
"You canceled the GetSaveAsFilename dialog" & vbNewLine & _
"The path to save the file is not correct" & vbNewLine & _
"PDF file exists and you canceled overwriting it."
End If
End Sub
Function RDB_Create_PDF(Myvar As Object, FixedFilePathName As String, _
OverwriteIfFileExist As Boolean, OpenPDFAfterPublish As Boolean) As String
Dim FileFormatstr As String
Dim Fname As Variant
'Test to see if the Microsoft Create/Send add-in is installed.
If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
& Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then
If FixedFilePathName = "" Then
'Open the GetSaveAsFilename dialog to enter a file name for the PDF file.
FileFormatstr = "PDF Files (*.pdf), *.pdf"
Fname = Application.GetSaveAsFilename("fa_" & ActiveSheet.Name, filefilter:=FileFormatstr, _
Title:="Create PDF")
'If you cancel this dialog, exit the function.
If Fname = False Then Exit Function
Else
Fname = FixedFilePathName
End If
'If OverwriteIfFileExist = False then test to see if the PDF
'already exists in the folder and exit the function if it does.
If OverwriteIfFileExist = False Then
If Dir(Fname) <> "" Then Exit Function
End If
'Now export the PDF file.
On Error Resume Next
Myvar.ExportAsFixedFormat _
Type:=xlTypePDF, _
FileName:=Fname, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=OpenPDFAfterPublish
On Error GoTo 0
'If the export is successful, return the file name.
If Dir(Fname) <> "" Then RDB_Create_PDF = Fname
End If
End Function
V MS Excel si otvorte editor VBA cez klávesovú skratku Alt+F11. V editore si zvoľte pridať nový modul a do neho vložte kód uvedený nižšie.
Následne už vo svojom hárku s faktúrou pridajte nové tlačítko (pravdepodobne si budete musieť zapnúť záložku menu s nástrojmi Vývojár). Pri výbere tlačítka sa spýta, s akým makrom ho má prepojiť, vyberte RDB_Worksheet_Or_Worksheets_To_PDF.
Viac príkladov sa dozviete na webe tu.
Tu už je kompletný skript:
Sub RDB_Worksheet_Or_Worksheets_To_PDF()
Dim FileName As String
If ActiveWindow.SelectedSheets.Count > 1 Then
MsgBox "There is more than one sheet selected," & vbNewLine & _
"and every selected sheet will be published."
End If
'Call the function with the correct arguments.
'You can also use Sheets("Sheet3") instead of ActiveSheet in the code(the sheet does not need to be active then).
FileName = RDB_Create_PDF(ActiveSheet, "", True, True)
'For a fixed file name and to overwrite it each time you run the macro, use the following statement.
'RDB_Create_PDF(ActiveSheet, "C:\Users\Ron\Test\YourPdfFile.pdf", True, True)
If FileName <> "" Then
'Uncomment the following statement if you want to send the PDF by e-mail.
'RDB_Mail_PDF_Outlook FileName, "ron@debruin.nl", "This is the subject", _
"See the attached PDF file with the last figures" _
& vbNewLine & vbNewLine & "Regards Ron de bruin", False
Else
MsgBox "It is not possible to create the PDF; possible reasons:" & vbNewLine & _
"Add-in is not installed" & vbNewLine & _
"You canceled the GetSaveAsFilename dialog" & vbNewLine & _
"The path to save the file is not correct" & vbNewLine & _
"PDF file exists and you canceled overwriting it."
End If
End Sub
Function RDB_Create_PDF(Myvar As Object, FixedFilePathName As String, _
OverwriteIfFileExist As Boolean, OpenPDFAfterPublish As Boolean) As String
Dim FileFormatstr As String
Dim Fname As Variant
'Test to see if the Microsoft Create/Send add-in is installed.
If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
& Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then
If FixedFilePathName = "" Then
'Open the GetSaveAsFilename dialog to enter a file name for the PDF file.
FileFormatstr = "PDF Files (*.pdf), *.pdf"
Fname = Application.GetSaveAsFilename("fa_" & ActiveSheet.Name, filefilter:=FileFormatstr, _
Title:="Create PDF")
'If you cancel this dialog, exit the function.
If Fname = False Then Exit Function
Else
Fname = FixedFilePathName
End If
'If OverwriteIfFileExist = False then test to see if the PDF
'already exists in the folder and exit the function if it does.
If OverwriteIfFileExist = False Then
If Dir(Fname) <> "" Then Exit Function
End If
'Now export the PDF file.
On Error Resume Next
Myvar.ExportAsFixedFormat _
Type:=xlTypePDF, _
FileName:=Fname, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=OpenPDFAfterPublish
On Error GoTo 0
'If the export is successful, return the file name.
If Dir(Fname) <> "" Then RDB_Create_PDF = Fname
End If
End Function
Prihlásiť na odber:
Príspevky (Atom)