|
SZABLON FAKTURA VAT - za darmochę
|
|
2007.12.04 o godz. 11:24 temat dodany przez Bogulo
|
|
Wysłany z *.neoplus.adsl.tpnet.pl via Opera/9.10 (Windows NT 5.1; U; pl)
|
Już używam jakiś czas - jeżeli zobaczysz błędy (oprócz braku rubryki "zwoniony" zbok 0,3,7,22%) to czekam na wersje poprawione.
link
http://shs.net.pl/documents/Faktura.ods
Faktura vat w OpenOffice w formacie .ods
|
|
|
|
|
|
|
| [1] Re: SZABLON FAKTURA VAT - za darmochę |
| 2007.12.04 o godz. 19:17 Lukasew odpowiada na Topic |
| Wysłany z *.icpnet.pl via Opera/9.24 (Windows NT 5.1; U; pl) |
| fajny szablonik |
|
|
|
|
| [2] Re: SZABLON FAKTURA VAT - za darmochę |
| 2007.12.09 o godz. 11:31 Quest-88 odpowiada na Topic |
| Wysłany z *.gl.digi.pl via Mozilla/5.0 (X11; U; Linux i686; pl-PL; rv:1.8.1.11) Gecko/200712 |
| Na jakiej licencji udostępniasz ten szablon? |
|
|
|
|
| [5] Re: SZABLON FAKTURA VAT - za darmochę |
| 2007.12.11 o godz. 18:32 Bogulo odpowiada na #2 |
| Wysłany z *.adsl.inetia.pl via Opera/9.21 (Windows NT 5.1; U; pl) |
Po prostu masz ode mnie prezent. każdy moze bez ograniczeńs obie użwać
Zrobiłem juz nowszą wersję zawierajacą wersje z okienkiem zaiwrajacym zwolniony z vat |
|
|
|
|
| [3] Re: SZABLON FAKTURA VAT - za darmochę |
| 2007.12.10 o godz. 10:30 Pozdrowienia z Litwy odpowiada na Topic |
| Wysłany z *.iti.lt via Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.11) Geck |
Witam, A jak to się robi? (Mam na myśli wybór z listy). Jeżeli łaska. Mam prawdę OOo 2.3.1 w języku angielskim
Pozdrawiam
Witalik |
|
|
|
|
| [4] Re: SZABLON FAKTURA VAT - za darmochę |
| 2007.12.11 o godz. 10:33 Lukasew odpowiada na #3 |
| Wysłany z *.icpnet.pl via Opera/9.24 (Windows NT 5.1; U; pl) |
| nie wiem, czy o to chodzi, ale w tym skoroszycie sa cztery zakładki, no i w jednej z nich wpisujesz odpowiednie dane, a potem to juz tylko wybierasz |
|
|
|
|
| [7] Re: SZABLON FAKTURA VAT - za darmochę |
| 2007.12.11 o godz. 22:45 Bogulo odpowiada na #4 |
| Wysłany z *.neoplus.adsl.tpnet.pl via Opera/9.10 (Windows NT 5.1; U; pl) |
Dodałem wersję tip top. Jeszcze dodaję makro kwoty słownie jakby ktoś nie miał:
rem ver 1.4, Jan Słupski, jslupski@[spam]email.com
rem
rem Dodać makro można (chyba) tak: MENU->Narzędzia->Makro->Edytuj
rem i tam wkleić wszystko zaczynając od pierszej linii 'rem'
rem
rem Działają makra:
rem =SLOWNIE(123)
rem =SLOWNIEZL(123)
rem
rem Z całą pewnością nie działają:
rem - części ułamkowe w wersji SLOWNIE()
rem w wersji SLOWNIEZL() wyświetla groszę jako liczbę
rem - liczby >= 1000000000 (łatwo poprawić/dopisać)
rem
sub slownie1(numer) as string
dim s as string
select case numer
Case 0
s = ""
Case 1
s = "jeden"
Case 2
s = "dwa"
Case 3
s = "trzy"
Case 4
s = "cztery"
Case 5
s = "pięć"
Case 6
s = "sześć"
Case 7
s = "siedem"
Case 8
s = "osiem"
Case 9
s = "dziewięć"
End Select
Slownie1 = s
End Sub
sub Slownie10(numer) as string
dim s as string
select case numer
Case 0
s = ""
Case 1
s = "dziesięć"
Case 2
s = "dwadzieścia"
Case 3
s = Slownie1(numer) & "dzieści"
Case 4
s = "czterdzieści"
Case 5 to 9
s = Slownie1(numer) & "dziesiąt"
End Select
Slownie10 = s
End Sub
sub slownie19(numer) as string
dim s as string
select case numer
Case 0
s = "dziesięć"
Case 1
s = "jedenaście"
Case 2
s = "dwanaście"
Case 3
s = "trzynaście"
Case 4
s = "czternaście"
Case 5
s = "piętnaście"
Case 6
s = "szesnaście"
Case 7
s = "siedemnaście"
Case 8
s = "osiemnaście"
Case 9
s = "dziewiętnaście"
End Select
Slownie19 = s
End Sub
sub Slownie100(numer) as string
dim s as string
select case numer
Case 0
s = ""
Case 1
s = "sto"
Case 2
s = "dwieście"
Case 3, 4
s = Slownie1(numer) & "sta"
Case 5 to 9
s = Slownie1(numer) & "set"
End Select
Slownie100 = s
End Sub
sub Slownie999(numer) as string
Dim ja as integer
Dim dz as integer
Dim se as integer
je = numer mod 10
dz = fix(numer/10) mod 10
se = fix(numer/100) mod 10
dim s as string
dim t as string
dim u as string
s = Slownie100(se)
if dz = 1 then
t = Slownie19(je)
u = ""
else
t = Slownie10(dz)
u = Slownie1(je)
end if
if s <> "" and (t<>"" or u<>"") then
s = s & " "
end if
if t <> "" and u <> "" then
t = t & " "
end if
Slownie999 = s & t & u
End sub
sub Slownie000(numer) as integer
Dim je as integer
Dim dz as integer
je = numer mod 10
dz = fix(numer/10) mod 10
if numer = 0 then
typ = 0
elseif numer = 1 then
typ = 1
elseif dz<>1 and je>=2 and je<=4 then
typ = 2
else
typ = 3
end if
Slownie000 = typ
End Sub
Function Slownie(kwota) as string
if kwota>=1000000000 or kwota<=-1000000000then
Slownie="za duża lub błędna liczba (" & cstr(kwota) & ")"
goto koniec1
end if
dim s as string
dim m as string
dim k as long
m=""
if kwota < 0 then
m = m & "minus "
kwota = 0-kwota
end if
k = clng(fix(kwota))
if k=0 then
s = "zero"
else
s = Slownie999(k mod 1000)
end if
k = fix(k/1000)
if k <> 0 then
if s<>""and (k mod 1000)>0 then
s = " " & s
end if
select case Slownie000(k mod 1000)
case 0
case 1
s = "tysiąc" & s
case 2
s = Slownie999(k mod 1000) & " tysiące" & s
case 3
s = Slownie999(k mod 1000) & " tysięcy" & s
end select
end if
k = fix(k/1000)
if k <> 0 then
if s<>""and (k mod 1000)>0 then
s = " " & s
end if
select case Slownie000(k mod 1000)
case 0
case 1
s = "milion" & s
case 2
s = Slownie999(k mod 1000) & " miliony" & s
case 3
s = Slownie999(k mod 1000) & " milionów" & s
end select
end if
k = fix(k/1000)
if k <> 0 then
s = cstr(k*1000000000) & " + " & s
end if
Slownie = m & s
koniec1:
End Function
function SlownieZL(kwota)
if (kwota>=1000000000) or kwota<=-1000000000then
SlownieZL="za duża liczba: " & cstr(kwota)
goto koniec2
end if
s=""
zl = fix(kwota)
if kwota < 0 then
kwota = 0-kwota
end if
gr = fix((kwota*100)mod 100)
rem s = cstr(kwota) & " # " & cstr(zl) & " # " & cstr(gr) & " # " & s & slownie(zl)
s = s & slownie(zl)
select case Slownie000(zl mod 1000)
case 1
s = s & " złoty"
case 2
s = s & " złote"
case 0,3
s = s & " złotych"
end select
if true or gr <> 0 then
s = s & " " & cstr(gr) & " gr."
end if
SlownieZL=s
koniec2:
end function
rem vim:filetype=vb: |
|
|
|
|
| [8] Re: SZABLON FAKTURA VAT - za darmochę |
| 2007.12.12 o godz. 07:12 Pozdrowienia z Litwy odpowiada na #4 |
| Wysłany z *.iti.lt via Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.11) Geck |
Pewnie, że nie o to chodziło. Chodziło nie o korzystaniu z szablonu, ale o zrobieniu wyboru z listy w swoich plikach. No, ale to już nie ważne, sam znalazłem.
Pozdrawiam
Witalik
|
|
|
|
|
| [6] Re: SZABLON FAKTURA VAT - za darmochę |
| 2007.12.11 o godz. 18:44 Bogulo odpowiada na #3 |
| Wysłany z *.adsl.inetia.pl via Opera/9.21 (Windows NT 5.1; U; pl) |
nie napisałem instrukcji
Wypełniasz tylko arkusze ORYGINAŁ, KLIENCI, ASORTMENT, kopia sama się kopiuje.
KLIENCI:
w miesjce przykładów wpisujesz sobie dane swoich klientów
ASORTYMENT:
w miejsce przykłądów wpisujesz towar/usługi jakie sprzdajesz
ORYGINAŁ:
Zamieszczasz logo lub je wpisujesz (jak obraz, to musisz również w kopii wkleić), a dalej mozesz modyfikować pola:
- z numerem faktury
- z danymi swojej firmy
- terminem zapłaty (wybór z listy lub wpis)
- sposobem zapłaty (wybór z listy lub wpis)
- wybór klienta (wybór z listy lub wpis)
- wybór towaru/usługi (z listy lub wpis)
- nr PKiW (wpis, niewymagany)
- ilosć szt (cyfra)
- jedn. miary (wpis)
- cena netto (wpis)
- podatek (wpisujesz: 22, 7, 3, 0, lub w wersji ze zwolnionym Z)
Lista rozwijana:
Po kliknięciu na komórkę np. "nazwa towaru" wyswietli ci się po prawej strzałka - liknij w nią i rozwinie się lista. Jeżeli pytasz jak się to robi, to narzędzia->poprawnosć danych. Dziś może dodam nową wersję juz poprawioną na tip top. |
|
|
|
|
Zaloguj się by dodać posta |
|
|
Pobierz OpenOffice.org
|
| Mirrory FTP udostępniają pliki w ramach zwykłego anonimowego ftp (login 'ftp') |
|
| CI TASK |
FTP WWW |
| tpnet.pl |
FTP WWW |
| UX.pl |
WWW |
| softwarepatch.pl |
WWW |
| openoffice.co.pl |
WWW |
| agh.nzs.pl |
WWW |
| Plikoskop |
WWW |
| openoffice.org |
WWW |
|
|
Jeśli znasz inne publiczne mirrory OpenOffice.org w Polsce,
bądź zamierzasz taki uruchomić (anonymous, min. 10K/s),
poinformuj nas o tym!
|
|
|
Archiwum plików
|
Można tu pobrać rózne pliki zamieszczone przez użytkowników serwisu Openoffice.pl.
Archiwum plików
Łącznie: 123, nowych: 0
|
|
-->
|
Poprzedni
