https://rpubs.com/staszkiewicz/Cw_S1
Wprowadzmy dane przygotowane do testów wiartygondości sald.
sub<-readRDS("Substatnive.RData")Obejrzyjmy strukturę danych oraz ich klasę
#View(sub)
class(sub)## [1] "list"Obejrzymy jaką strukturę ma nasza lista
summary(sub)## Length Class Mode
## Aging 19 tbl_df list
## BankAcc 5 data.frame list
## CC_AP 2 tbl_df list
## CC_BS 3 tbl_df list
## CC_PL 3 tbl_df list
## ChOA 5 tbl_df list
## Journal 5 data.frame list
## Kontr 9 tbl_df list
## TB 10 data.frame list
## ZPK 5 tbl_df list
## FAR_RST_Final 11 tbl_df listA wiec, mamy strukturę wiekową (Aging), wyciąg bankowy (BankAcc), politykę rachunkowości (CC_AP), bilans (CC_BS) oraz rachunek zysków i strat (CC_PL) dla Coca-Coli w Polsce, ich plan kont (ChOA), Dziennik (Journal), rejestr odbiorców i ostawców (Kontr), obrotówkę (TB), zakładowy plan kont (ZPK) oraz rejestr środków trwałych (FAR_RTS_FINAL). Przy czym dane sprawozdań finasowych wzieliśmy z KRS pozostałe dane fikcyjne.
Lista to zbiór, obiektów w przeciwieństwie do ramki danych obiekty nie muszą mieć tej samej długości. Adresowanie w liście
sub[[1]] [1,2]
w obiekcie sub wybieramy pierszy obiekt, a w obiekcie znajduemy komórkę, w pierwszym rzędzie i drugiej kolumnie.
sub[[1]] [1,2]## [1] 223Poneważ w naszym przypadku lista składa się z nazwanych dobiektów, to możemy je także wybierać stosując znak $ a mianowicie sub$[nazwa z listy]. Proszę spróbować z konsoli.
Rejestracja księgowa polega na zapisywaniu wszystkich transakcji gospodarczych chronologicznie w dzienniku, następnie dokonywana jest dektretacja (przypisanie operacji do kont księgi głównej). Np. zapis zapłaty z rachunku bankowego kwotę 100 PLN wynosi:
26.11.X7 Dr. Należności 100
Cr. zobowiązania handlowe 100 Zapłata 100 pln.
W naszej strukturz danych wygląda to tak:
head(sub$Journal)## Data Konto_DR.1.35700. Konto_CR.1.35700. Wartosc.1.35700.
## 12701 2022-01-01 243 702 306412.5
## 12702 2022-01-01 243 20 707449.8
## 12703 2022-01-01 243 243 935331.1
## 12704 2022-01-01 243 851 717466.2
## 12705 2022-01-01 243 291 794754.3
## 12706 2022-01-01 243 250 953084.0
## Opis.1.35700.
## 12701 Umorzenie środków trwałych
## 12702 Krótkoterminowe aktywa finansowe
## 12703 Inne fundusze specjalne
## 12704 Rozliczenie naliczonego VAT
## 12705 Odchylenia od cen ewidencyjnych półfabrykatów
## 12706 Odpisy aktualizujące rozrachunkiW praktyce opisy są dość engimatyczne, konta opisane numerem kont, które jest zdefiniowane w Zakładowym planie kont, podobnym do tego z naszych danych
#head(sub$ZPK)
#summary(sub$ZPK)
sub$ZPK [1:5,]## Zespół Nr Nazwa konta Rodzaj Typ
## 1 0 10 Środki trwałe Aktywne Bilansowe
## 2 0 20 Wartości niematerialne i prawne Aktywne Bilansowe
## 3 0 30 Długoterminowe aktywa finansowe Aktywne Bilansowe
## 4 0 40 Nieruchomości inwestycyjne i prawa Aktywne Bilansowe
## 5 0 70 Umorzenie środków trwałych --- KorygująceZapis z dziennika przenoszony jest na księgę główną. Księga jest prowadzona w oparciu o zakładowy plan kont i jest zesawienie grupującym po kontach sumy wszystkich transacji. W układzie, nr konta, nazwa, bilans otwardzia, obroty wn, ma, blians zamknięcia. W naszym systemie wygląda to tak
head(sub$TB)## Nr Zespół Nr.1 Nazwa.konta Rodzaj
## 1 1 0 10 Środki trwałe Aktywne
## 2 2 0 20 Wartości niematerialne i prawne Aktywne
## 3 3 0 30 Długoterminowe aktywa finansowe Aktywne
## 4 4 0 40 Nieruchomości inwestycyjne i prawa Aktywne
## 5 5 0 70 Umorzenie środków trwałych ---
## 6 6 0 75 Umorzenie wartości niematerialnych i prawnych ---
## Typ BO Wn_OB Ma_OB BZ
## 1 Bilansowe 15930.52 12440.4727 5476.8570 22894.136
## 2 Bilansowe 22327.43 6064.3575 8672.1285 19719.663
## 3 Bilansowe 34371.20 7335.0527 15707.4640 25998.791
## 4 Bilansowe 54492.47 2519.5965 8686.3149 48325.749
## 5 Korygujące 12100.92 222.3188 4379.5614 7943.673
## 6 Korygujące 53903.38 12164.6231 789.8351 65278.169Księga głóWna (obrotówka) posiada księgi analityczne pomocnicze na których gromadzone są poszczególne zapisy lub grupy zapsiów. Typowe rejestry to: - Rejestr należności i zobowiązań
head(sub$Kontr)## LP Nr Nazwa_Name Typ Wn_Dr Ma_Cr OB._WN_DR
## 1 130 223 2INTELLECT.COM S.A. Dostawca 0.00 1175634.2 34627502
## 2 107 1176 ABS INVESTMENT S.A. Dostawca 0.00 1703819.1 26715387
## 3 3 107 ADVADIS SPÓŁKA AKCYJNA Odbiorca 31333.32 0.0 10502395
## 4 164 332 ADVANCED OCULAR SCIENCES S.A. Dostawca 0.00 1910253.6 15487111
## 5 103 121 AGROMA S.A. Dostawca 0.00 428048.6 12330598
## 6 176 765 AIRWAY MEDIX S.A. Dostawca 0.00 1228112.0 8607221
## OB._MA_CR Saldo_Balance
## 1 8556880 24894988
## 2 1264606 23746962
## 3 21856152 -11322424
## 4 33285457 -19708599
## 5 3485398 8417151
## 6 2737380 4641729head(sub$FAR_RST_Final)## LP. Data NAZWA MIASTO StopaAmor
## 1 1 2022-11-07 nieruchomość gruntowa Sierakowice 0.04
## 2 2 2021-07-07 nieruchomość Wolbórz 0.04
## 3 3 2020-03-07 nr KW OL1M/00040124/8 Lipowo 0.04
## 4 4 2018-11-07 lokal niemieszkalny, użytkowy Świnoujście 0.04
## 5 5 2017-07-07 Hotel i Restauracja Wąbrzeźno 0.04
## 6 6 2016-03-07 nieruchmości Smogorzów 0.04
## WartośćBrutto Umorzenie Amortyz Sprzed KST
## 1 1609762.5 1146269.1125 64390.500 0 0
## 2 3649000.0 170144.6435 145960.000 0 0
## 3 20925.0 505.2755 837.000 0 1
## 4 1747500.0 1588681.5767 69900.000 0 1
## 5 854235.0 273252.5142 34169.400 0 1
## 6 102047.3 67926.8949 4081.893 0 1
## NAME
## 1 ground real estate
## 2 real estate
## 3 No. KW OL1M/00040124/8
## 4 non-residential, usable premises
## 5 Hotel and restaurant
## 6 real estatehead(sub$BankAcc)## Data Konto_DR.1.35700. Konto_CR.1.35700. Wartosc.1.35700.
## 5704 2022-01-14 139 92 154661.7
## 5709 2022-01-14 139 820 694070.6
## 5714 2022-01-14 139 840 531086.6
## 5719 2022-01-14 139 802 728515.4
## 5724 2022-01-14 139 860 665167.8
## 5729 2022-01-14 139 641 962284.4
## Opis.1.35700.
## 5704 Koszty sprzedanych wyrobów gotowych
## 5709 Odchylenia od cen ewidencyjnych materiałów
## 5714 Odchylenia aktualizujące wartości wyrobów gotowych
## 5719 Koszty wydziałowe
## 5724 Rozliczenie zakupu towarów
## 5729 Środki trwałe obceCechą postawową urządzeń ksiegowych jest ich komplentość, tj. wszystkie zdarzenia zostały ujętę oraz że transakcje mogą być wycenione (trudno jest określić wartość “złości”).
Księgi otwiera sie i zamyka w okresach rocznych (najczęciej). Zamknięcie ksąg polega na przeniesieniu sald kosztowych i przychodowych na wynik i jego ustalenie. Przed tym, dokonujemy zapisów uszczelniających (głóWnie, rezerewy, korekty, różnice intwentaryzacyjne itp.).
Na postawie ksiąg. Obrotówki, sporządza sie sprawozdanie finansowe które składa się z:
head(sub$CC_AP)## Position
## 1 Name of the company:
## 2 Registered office:
## 3 County:
## 4 Municipality:
## 5 City:
## 6 Address:
## Context
## 1 Coca-Cola HBC Polska Spółka z ograniczoną odpowiedzialnością
## 2 Province (voivodeship): mazowieckie
## 3 M.st. Warszawa
## 4 M.st. Warszawa
## 5 Warszawa
## 6 Address:head(sub$CC_BS)## Position Amount at the end of current financial year
## 1 Total assets 1649313
## 2 A. Fixed assets 870261
## 3 I. Intangible assets 26264
## 4 2. Goodwill 5005
## 5 3. Other intangible assets 21259
## 6 II. Tangible fixed assets 784620
## Amount at the end of previous financial year
## 1 1331735
## 2 782109
## 3 5486
## 4 0
## 5 5486
## 6 722134head(sub$CC_PL)## Item
## 1 A. Net revenue from sales of products, goods and materials, including :
## 2 – from related entities
## 3 I. Net revenue from sale of goods
## 4 II. Net revenue from sales of goods and materials
## 5 B. Cost of products, goods and materials sold, including:
## 6 – related entities
## Amount at the end of current financial year
## 1 2921762
## 2 225408
## 3 2378668
## 4 543094
## 5 2184159
## 6 217564
## Amount at the end of previous financial year
## 1 2384651
## 2 224976
## 3 1972504
## 4 412147
## 5 1540486
## 6 211907oraz - zestawienia zmian w kapitale (dla dużych jednostek) - przepływów pieniężnych (dla dużych jednostek) - informacji dodakowej.
Opinia biegłego rewidenta oraz list zarządu do akcjonariuszy nie są elementami sprawozdania finasowego. Jednak z uwagi na ich wagę prezentowane są łącznie.
Elementem dziedziczącym wewnętrzny mechanizm kontroli z księgi głóWenej jest bilans. Stąd podlega on badaniu w pierwszej koeljności, bo RZiS, cash flow, funds flow, noty itd. są pochodnymi (rozpisanymi pozycjami) bilansu. Gdy wszyskie pozycje w bilansie są ustalone, to wartość wyniku nie może się zmienić.
Bilans powstaje z przeniesienia kont z obrotówki i pogrupowani ich wg. schematu (UoR - załącznik do ustawy) lub istotności (MSSF). Piewotne sprawdzenie polega na tym, iż wszystkie konta zostały prawidłowo przeniesione na bilans, nazywa się to uzgodnienim obrotówki do biansu. W bilasie pokazujemy pozycje aktywów w wartościach netto podczas gdy w obrotówce w szyku rozwartym. Dla przykładu
Wartości niematerialne prawne (bilans) 100
Konto XYZ WNiP Brutto 200
Konto ZZX WNiP Umorzenie (100)
Pozycja bilansowa 100
Grupowanie kont na pozycje bilansowe nazywa się potocznie “mostem” i jest z reguły zapisane w zakłądowym planie kont, lub w dokumentacji softwaru wykorzystywanego do księgowania (potocznie FK, finansowo-księgowy). Uwaga nie ma jednego ogólnie przyjętego mechanizmu agregowania. Stąd uzgodnienie obrotówki do SF jest dość żmudną reczną pracą i z reguły jest podstawowym testem rewizyjnym. Co do zasady uzgadnia się się obrotówkę w postacji tzw. kart przewodnich (ang. lead schedule) dla poszczególnych grup bilansowych (WNiP, środków trwałych, zapasów, należności, kapitałów itd). Typowy błąd polega na tym, że nie są przenoszone niektóre konta na bilans. Sam fakt, iż aktywa równają się paswywom, nie oznacza, że wszyskie konta księgi głównej zostały prawidłowo przeniesione
Uzgodnij WNiP z bilansu do obrotówki dla danych z sub.
Amount at the end of current financial year -71822.51 Amount at the end of previous financial year -37061.95
# 1. Wybierzmy pozycję bilansową
# Bil<-sub$CC_BS [3,]
# 2. Wybieramy pozycję z bilansu
# Obr<-sub$TB [c(2,6),c(4,7,10)]
# NetBZ<- Obr[1,3]-Obr[2,3]
# NetBO<- Obr[1,2]-Obr[2,2]
# NetObr<- c(NetBZ,NetBO)
# rm(NetBZ,NetBO)
#
# # generujemy różnicę w korekcie do transferu do
# zestawienia niezaksięgowanych różnic (Summary of Audit Differences => SAD), tutaj akurat zapisaliżmy w szyku rozwartym, z reguły uzgodnienie robimy tylko na koniec roku sprawozdawczego.
#
#
# SAD_01<- NetObr-Bil[,c(2,3)]