Inet.sk - internetový denník

Pri práci s pokladničnými dokladmi je otravná práca pri vypisovaní sumy slovom. Preto si na túto činnosť pripravíme makro v OpenOffice.org, ktoré to urobí za vás. Pravdaže, s tým zároveň súvisí aj vytvorenie príjmového a výdavkového pokladničného dokladu v module Writer s tým, že podobne, ako pri jednoduchých faktúrach budete mať na strane dva doklady, pričom po zadaní údajov do prvého z nich sa pri kopírovaní najprv vypíše automaticky suma slovom a následne sa zadané údaje skopírujú aj do druhého dokladu, takže jednou tlačou vytlačíte doklad pre seba aj pre zákazníka.



Upozorňujeme, že tak isto ako pri faktúrach, ani teraz sa pri kopírovaní neprenáša formátovanie písma či veľkosť buniek tabuľky, pomocou ktorej sú pokladničné doklady vytvorené.

Stiahnite si tlačivo príjmového a výdavkového pokladničného dokladu v slovenskom jazyku.

Pre programátorov uvádzame makro pre prevod reálneho čísla na slovenské slovo, pričom upozorňujeme, že v makre sa testuje, či sa prevádza celá alebo desatinná časť a podľa toho sa skloňujú číslovky jedna a dva (jedno euro – jeden cent, dve eurá – dva centy). Pravdaže, zároveň uvádzame aj makro pre kopírovanie obsahov tabuliek a tlač dokumentu:

function daj_slovne(cislo as Long, euro as boolean) as string
dim rad as integer ' 1 – tisíc, 2 – milion, 3 – miliarda
dim slovne as string
dim analyza as long

 slovne=""

 if cislo=0 then
  ' Osobitne musíme ošetriť číslo „nula“
  slovne="nula"
 else
  rad=0
  do while cislo<>0
   ' z čísla vyberieme posledné tri číslice
   analyza=cislo mod 1000
   ' ktoré prevedieme na text
   slovne=slovne_stovky(analyza, rad)+slovne
   ' číslo zmenšíme o už spracovanú časť
   cislo=int(cislo/1000)
   ' a pridáme text rádu, ktorý budeme spracovávať v ďalšom kroku cyklu
   if cislo<>0 then
    rad=rad+1
    slovne=slovne_rady(cislo mod 1000, rad)+slovne
   endif
  loop
  
  ' Vymazanie prebytočných medzier na začiatku a konci slovného znenia
  slovne=trim(slovne)

  ' Úprava prvého slova v prípade, že ide o sto, tisíc na Jednosto, Jedentisíc ...
  if (analyza>=100) and (analyza<=199) then
   ' úprava výsledku pre stovky
   slovne="jedno"+slovne ' Jednosto...
  endif
  if (analyza=1) and (rad=0) then
   ' úprava výsledku, ak sme prevádzali na text číslo jedna, lebo
   ' číslovka "jeden" sa skloňuje, t.j. vo financiách sa píše "jeden cent, jedno euro".
   if euro then
    slovne="jedno"
   else
    slovne="jeden"
   endif
  endif
  if (analyza=2) and (rad=0) then
   ' úprava výsledku, ak sme prevádzali na text číslo dva, lebo
   ' číslovka "dva" sa skloňuje, t.j. vo financiách sa píše "dva centy, dve eurá".
   if euro then
    slovne="dve"
   else
    slovne="dva"
   endif
  endif
  if (analyza=1) and (rad>0) then
   ' úprava výsledku pre ostatné rády
   select case rad
    case 1, 2, 4, 6, 8
     slovne="jeden"+slovne ' jedentisíc, jedenmilión, …
    case 3, 5, 7, 9
     slovne="jedna"+slovne ' jednamilarda, …
   end select
  endif
 endif
 
 ' Prvé písmeno musí byť veľké – zmena
 slovne=uCase(left(slovne,1))+right(slovne,len(slovne)-1)
 
 daj_slovne=slovne
end function

function slovne_jedno_cislo(cislo, rad as integer) as string
dim pom_nazov as string
 pom_nazov=""
 select case cislo
  case 1
   ' Číslovka „jeden“ sa pri rádoch tisíc, milión,... nepíše
   if rad=0 then
    pom_nazov="jeden"
   endif
  case 2
   ' Dvojka sa skloňuje – dva, dvesto, dvetisíc, dvamilióny, dvemiliardy, …
   if (rad mod 2)=0 then
    pom_nazov="dva"
   else
    pom_nazov="dve"
   endif
  case 3
   pom_nazov="tri"
  case 4
   pom_nazov="štyri"
  case 5
   pom_nazov="päť"
  case 6
   pom_nazov="šesť"
  case 7
   pom_nazov="sedem"
  case 8
   pom_nazov="osem"
  case 9
   pom_nazov="deväť"
 end select
 slovne_jedno_cislo=pom_nazov
end function

function slovne_desiatky(jednotky, desiatky as integer) as string
dim pom_nazov as string
 pom_nazov=""
 select case desiatky
  case 1
   ' desať – devätnásť
   select case jednotky
    case 0
     pom_nazov="desať"
    case 1
     pom_nazov="jedenásť"
    case 2
     pom_nazov="dvanásť"
    case 3
     pom_nazov="trinásť"
    case 4
     pom_nazov="štrnásť"
    case 5
     pom_nazov="pätnásť"
    case 6
     pom_nazov="šestnásť"
    case 7
     pom_nazov="sedemnásť"
    case 8
     pom_nazov="osemnásť"
    case 9
     pom_nazov="devätnásť"
   end select
  case 2 to 4
   ' "dsať" – dvadsať až štyridsať
   pom_nazov=slovne_jedno_cislo(desiatky,0)+"dsať"+slovne_jedno_cislo(jednotky,0)
  case else
   ' "desiat" – päťdesiat až deväťdesiat
   pom_nazov=slovne_jedno_cislo(desiatky,0)+"desiat"+slovne_jedno_cislo(jednotky,0)
 end select
 slovne_desiatky=pom_nazov
end function

function slovne_stovky(cislo, rad as integer) as string
dim stovky, desiatky, jednotky as integer
dim pom_slovne as string
 ' z čísla vypreparujeme číslice na mieste jednotiek, desiatok a stoviek
 jednotky=cislo mod 10
 desiatky=int(cislo/10) mod 10
 stovky=int(cislo/100)

 pom_slovne=""

 ' Najprv prevedieme na text jednotky a desiatky (číslo 0 až 99)
 if desiatky=0 then
  ' iba jednotky (čísla 0 až 9)
  if stovky=0 then
   ' celá trojica je číslo 0 až 9 a vtedy sa číslovka 1 a 2 skloňuje podľa rádu
   pom_slovne= slovne_jedno_cislo(jednotky,rad)
  else
   ' je to zložené číslo a vtedy sa číslovka 1 a 2 neskloňuje (základný tvar je pre rád 0)
   pom_slovne= slovne_jedno_cislo(jednotky,0)
  endif
 else
  ' je to číslo od 10 do 99
  pom_slovne=slovne_desiatky(jednotky, desiatky)
 endif

 ' teraz k prevedenému dvojcifernému číslu pridáme text o stovkách
 select case stovky
  case 1
   ' Pri stovkách sa jednosto píše iba finančne
   pom_slovne="sto"+pom_slovne
  case 2 to 9
   ' pridávame príponu "sto" – dvesto až deväťsto
   ' číslovka 2 sa pri stovkách skloňuje ako pri tisícoch (dvesto – dvetisíc). t.j. tvar pre rád 1
   pom_slovne=slovne_jedno_cislo(stovky,1)+"sto"+pom_slovne
 end select
 slovne_stovky=pom_slovne
end function

function slovne_rady(cislo, rad as integer) as string
' Texty o biliónoch, ... sú teoretické, pretože premenná typu LONG je maximálne 2.147.483.647, t.j.
' dvemiliardystoštyridsaťsedemmiliónovštyristoosemdesiattritisícšesťstoštyridsaťsedem
dim pom_kolko as string
dim predpona as string
 predpona=""
 pom_kolko=""
 select case rad
  case 1
   predpona="tisíc"
  case 2, 3
   predpona="mi"
  case 4, 5
   predpona="bi"
  case 6, 7
   predpona="tri"
  case 8, 9
   predpona="kvadri"
 end select

 if rad=1 then ' tisíce
  select case cislo
   case 0
    pom_kolko=""
   case else
    pom_kolko=predpona
  end select
 else
  if (rad mod 2)=0 then ' „lióny“ – milión, bilióny, triliónov
   select case cislo
    case 0
     pom_kolko=""
    case 1
     pom_kolko=predpona+"lión"
    case 2 to 4
     pom_kolko=predpona+"lióny"
    case else
     pom_kolko=predpona+"liónov"
   end select
  else ' „liardy“ – miliarda, biliardy, triliárd
   select case cislo
    case 0
     pom_kolko=""
    case 1
     pom_kolko=predpona+"liarda"
    case 2 to 4
     pom_kolko=predpona+"liardy"
    case else
     pom_kolko=predpona+"liárd"
   end select
  endif
 endif
 slovne_rady=pom_kolko
end function

function Suma_Slovom (suma as string) as string
 dim poms, cisla, znak as string
 dim cela_cast, desatinna_cast as long
 dim euro, centy, euro_text, centy_text as string
 
 cisla="0123456789,." ' Definícia čísiel a desatinnej čiarky/bodky
 ' Vymazanie všetkých znakov okrem čísla a desatinnej čiarky/bodky z reťazca sumy
 poms=""
 for i=1 to len(suma)
  znak=mid(suma,i,1)
  if instr(cisla,znak)<>0 then poms=poms+znak
 next i
  
 ' Vyhľadanie desatinnej čiarky
 kde=Instr(poms,",")
 if kde=0 then kde=Instr(poms,".")
 cela_cast=0
 desatinna_cast=0
 
 if kde>0 then
  cela_cast=val(left(poms,kde-1))
 endif
 kde=len(poms)-kde
 if kde>0 then
  desatinna_cast=val(right(poms,kde))
 endif
 
 ' Prevod na text
 ' 0 Eur, 1 Euro, 2-4 Eura, 5 Eur
 euro_text=" Eur "
 if cela_cast=1 then euro_text=" Euro "
 if cela_cast>1 and cela_cast<5 then euro_text=" Eurá "
 ' 0 Euro centov, 1 Euro cent, 2-4 Euro centy, 5 Euro centov
 centy_text=" centov"
 if desatinna_cast=1 then centy_text=" cent"
 if desatinna_cast>1 and desatinna_cast<5 then centy_text=" centy"
 euro=Daj_Slovne(cela_cast, true)
 centy=Daj_Slovne(desatinna_cast, false)

 Suma_Slovom=euro+euro_text+centy+centy_text
end function

REM Funkcia na výmaz znaku LF z reťazca
function Vymaz_LF (S as string) as string
 dim ps as string
 ps=s
 while instr(ps,chr$(10))<>0 ' Pokiaľ je v reťazci LF
  i=instr(ps,chr$(10)) ' Poloha LF
  ps=left(ps,i-1)+right(ps,len(ps)-i) ' Ľavá časť pred LF + pravá časť za LF
 wend
 Vymaz_LF=ps
end function

REM Procedúra vloží sumu slovom a skopíruje "horný" PPD do "dolného"
sub Kopiruj_PPD
 dim dokument, tabulkah, tabulkad, bunkah, bunkad as object
 dim suma as string

 dokument=StarDesktop.CurrentComponent.GetTextTables()
 
 ' Výber tabuľky s číselným údajom podľa jej názvu
 tabulkah=dokument.GetByName("Tabulka1")
 tabulkad=dokument.GetByName("Tabulka2")
 
 ' Vloženie sumy slovom
 bunkah=tabulkah.getCellByName("B5") ' Zadaná suma číslom
 suma=Vymaz_LF(bunkah.GetString)
 bunkah=tabulkah.getCellByName("A7") ' Suma slovom
 bunkah.SetString("Slovom: "+Cislo_Slovom.Suma_Slovom(suma))
 
 ' Kopírovanie "horného" PPD do "dolného"
 ' A1 – A4
 for i=1 to 4
  bunkah=tabulkah.getCellByName("A"+trim(str(i))) ' Bunka z "hornej" tabuľky
  bunkad=tabulkad.getCellByName("A"+trim(str(i))) ' Bunka z "dolnej" tabuľky
  bunkad.SetString(Vymaz_LF(bunkah.GetString)) ' Vlastný prenos
 next i
 ' A7 – A9
 for i=7 to 9
  bunkah=tabulkah.getCellByName("A"+trim(str(i))) ' Bunka z "hornej" tabuľky
  bunkad=tabulkad.getCellByName("A"+trim(str(i))) ' Bunka z "dolnej" tabuľky
  bunkad.SetString(Vymaz_LF(bunkah.GetString)) ' Vlastný prenos
 next i
 ' B1 – B6
 for i=1 to 6
  bunkah=tabulkah.getCellByName("B"+trim(str(i))) ' Bunka z "hornej" tabuľky
  bunkad=tabulkad.getCellByName("B"+trim(str(i))) ' Bunka z "dolnej" tabuľky
  bunkad.SetString(Vymaz_LF(bunkah.GetString)) ' Vlastný prenos
 next i
 ' B9
 bunkah=tabulkah.getCellByName("B9") ' Bunka z "hornej" tabuľky
 bunkad=tabulkad.getCellByName("B9") ' Bunka z "dolnej" tabuľky
 bunkad.SetString(Vymaz_LF(bunkah.GetString)) ' Vlastný prenos
 ' C2 – C3
 for i=2 to 3
  bunkah=tabulkah.getCellByName("C"+trim(str(i))) ' Bunka z "hornej" tabuľky
  bunkad=tabulkad.getCellByName("C"+trim(str(i))) ' Bunka z "dolnej" tabuľky
  bunkad.SetString(Vymaz_LF(bunkah.GetString)) ' Vlastný prenos
 next i
end sub

REM Procedúra vytlačí dokument na defaultnú tlačiareň
sub Tlac_fa
 dim document as object
 dim dispatcher as object
 document = ThisComponent.CurrentController.Frame
 dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 dispatcher.executeDispatch(document, ".uno:PrintDefault", "", 0, Array())
end sub

11. 08. 2010 Július Pastierik Programovanie Komentáre