Das Programm stellt einige Frage und bereitet ein paar Dinge vor - und ruft dann das "Programm" BilanzSUB auf - das für mehrere Mandanten funktioniert
| Abschluss |
Copy Code |
|---|---|
SCHRIFT,9,Arrial Narrow DEFAULTFONTS SETFONT,DEFAULT STOPAUTOTITEL REM *** ASKFLAG,DBG,Debugmodus IFFLAG,DBG BILANZDEBUG ENDIF VARSET,STEUERNUMMER,rrr IFYEARLESS,2016 VARSET,VERTEILUNG,Oliver$200/Ina$500/Vicky$300 ELSE VARSET,VERTEILUNG,Oliver$200/Ina$200/Vicky$300/Felix$300 ENDIF IMPORT:bilanzsub N H1,Gewinnverteilung !!MANDANT!! !!JAHR!! READMEMORY,GEWINN IF_SALDO_HABEN H3,Gewinnverteilung ELSE H3,Verlustverteilung ENDIF FAKTOR,FENDTKG/OLI READMEMORYFAKTOR,GEWINN S,20% Oliver Fendt FAKTOR,FENDTKG/INA READMEMORYFAKTOR,GEWINN S,20% Ina Fendt FAKTOR,FENDTKG/VICKY READMEMORYFAKTOR,GEWINN S,30% Vicky Fendt FAKTOR,FENDTKG/FELIX READMEMORYFAKTOR,GEWINN S,30% Felix Fendt | |
| BilanzSUB |
Copy Code |
|---|---|
SCHRIFT,9,Arrial Narrow DEFAULTFONTS SETFONT,DEFAULT STOPAUTOTITEL BILANZ H1,Bilanz !!MANDANT!! !!JAHR!! T, H1NUMMER,0,Aktiva PT H2NUMMER,1,Sachwerte 0 IF_KONTENSALDO_SOLL,S0000000,S0019999 H3NUMMER,2,Anlagevermögen Z_SOLL,S0000000,S0019999 ADDMEMORY,AKTIVA S,Summe Anlagevermögen ENDIF IF_KONTENSALDO_SOLL,S0020000,S0059999 H3NUMMER,2,Umlaufvermögen Z_SOLL,S0020000,S0025999 ADDMEMORY,AKTIVA S,Summe Umlaufvermögen ENDIF IF_KONTENSALDO_SOLL,S1999999,S1999999 H3NUMMER,2,Eigenkapital Z_SOLL,S1999999,S1999999 ADDMEMORY,AKTIVA S,Summe Sonstiges ENDIF IF_KONTENSALDO_SOLL,S0060000,S0199999 H3NUMMER,2,Sonstiges Z_SOLL,S0060000,S0199999 ADDMEMORY,AKTIVA S,Summe Sonstiges ENDIF H2NUMMER,1,Forderungen IF_KONTENSALDO_SOLL,S0300000,S0479999 H3NUMMER,2,Banken langfristig Z_SOLL,S0300000,S0479999 ADDMEMORY,AKTIVA ENDIF IF_KONTENSALDO_SOLL,S0480000,S0499999 H3NUMMER,2,Mitarbeiterdarlehen Z_SOLL,S0480000,S0499999 ADDMEMORY,AKTIVA ENDIF IF_KONTENSALDO_SOLL,S0500000,S1099999 H3NUMMER,2,Kautionen Z_SOLL,S0500000,S0999999 ADDMEMORY,AKTIVA ENDIF IF_KONTENSALDO_SOLL,K0000000,K9999999 H3NUMMER,2,Forderungen an Kunden Z_SOLL,K0000000,K9999999 ADDMEMORY,AKTIVA S,Kunden ENDIF IF_KONTENSALDO_SOLL,L0000000,L9999999 H3NUMMER,2,Forderungen an Lieferanten Z_SOLL,L0000000,L9999999 ADDMEMORY,AKTIVA S,Lieferanten ENDIF IF_KONTENSALDO_SOLL,N0000000,N9999999 H3NUMMER,2,Forderungen an Mieter IFFLAG,KOMPAKT K_SOLL,N0000000,N9999999,Mieter ELSE Z_SOLL,N0000000,N9999999 ENDIF ADDMEMORY,AKTIVA S,Mieter ENDIF IF_KONTENSALDO_SOLL,S1000000,S1099999 H3NUMMER,2,Sonstige Forderungen Z_SOLL,S1000000,S1099999 ADDMEMORY,AKTIVA ENDIF 0 ADD,S1100000,S1199999 IF_SALDO_SOLL H3NUMMER,2,Forderungen UST Z,S1100000,S1199999 ADDMEMORY,AKTIVA S,Umsatzsteuer ENDIF IF_KONTENSALDO_SOLL,S1200000,S1999998 H3NUMMER,2,Sonstige Forderungen Z_SOLL,S1200000,S1999998 ADDMEMORY,AKTIVA ENDIF IF_KONTENSALDO_SOLL,S2000000,S2999999 H2NUMMER,1,Privat Darlehen Z_SOLL,S2000000,S2999999 ADDMEMORY,AKTIVA S,Darlehen ENDIF IF_KONTENSALDO_SOLL,S0200000,S0299999 H3NUMMER,1,Banken kurzfristig Z_SOLL,S0200000,S0299999 ADDMEMORY,AKTIVA S,Banken ENDIF 0 ADD,S3000000,S9999999 IF_SALDO_SOLL H2NUMMER,1,Bilanz-Verlust ADDMEMORY,AKTIVA S,Bilanz-Verlust ENDIF T, READMEMORY,AKTIVA SBILANZ,Summe Aktiva T, T, T, REM ************************************ Passiva N BILANZPASSIVA H2NUMMER,0,Passiva PT H2NUMMER,1,Eigenkapital 0 IF_KONTENSALDO_HABEN,S0000000,S0019999 H3NUMMER,2,Anlagevermögen Z_HABEN,S0000000,S0019999 ADDMEMORY,Passiva S,Summe Anlagevermögen ENDIF IF_KONTENSALDO_HABEN,S0020000,S0059999 H3NUMMER,2,Umlaufvermögen Z_HABEN,S0020000,S0025999 ADDMEMORY,PASSIVA S,Summe Umlaufvermögen ENDIF REM *********** IF IF_KONTENSALDO_HABEN,S0060000,S0069999 H3NUMMER,2,Eigenkapital IF_KONTENSALDO_HABEN,S0060000,S0060099 H3NUMMER,3,Vollhafter Z_HABEN,S0060000,S0060099 ADDMEMORY,PASSIVA S,Summe Vollhafter ENDIF IF_KONTENSALDO_HABEN,S0060100,S0060199 H3NUMMER,3,Kommanditkapital Z_HABEN,S0060100,S0060199 ADDMEMORY,PASSIVA S,Summe Kommandaitkapital ENDIF IF_KONTENSALDO_HABEN,S0060200,S0060299 H3NUMMER,3,Haftungskapital Z_HABEN,S0060200,S0060299 ADDMEMORY,PASSIVA S,Summe ENDIF IF_KONTENSALDO_HABEN,S0060300,S0069999 H3NUMMER,3,Sonstiges Z_HABEN,S0060300,S0069999 ADDMEMORY,PASSIVA S,Summe ENDIF ENDIF REM *********** ENDIF IF_KONTENSALDO_HABEN,S1999999,S1999999 H3NUMMER,2,Eigenkapital Z_HABEN,S1999999,S1999999 ADDMEMORY,PASSIVA S,Summe Sonstiges ENDIF IF_KONTENSALDO_HABEN,S0070000,S0199999 H3NUMMER,2,Sonstiges Z_HABEN,S0070000,S0199999 ADDMEMORY,PASSIVA S,Summe Sonstiges ENDIF IF_KONTENSALDO_HABEN,S2000000,S2999999 H3NUMMER,2,Gesellschafter/Kunden Kredite Z_HABEN,S2000000,S2999999 ADDMEMORY,PASSIVA S,Nachrangige Kredite ENDIF 0 ADD,S3000000,S9999999 IF_SALDO_HABEN H3NUMMER,2,Bilanz-Gewinn ADDMEMORY,PASSIVA SHOW,Bilanz-Gewinn S,Bilanz-Gewinn ENDIF IF_KONTENSALDO_HABEN,S0200000,S0299999 H3NUMMER,1,Banken kurzfristig Z_HABEN,S0200000,S0299999 ADDMEMORY,PASSIVA ENDIF IF_KONTENSALDO_HABEN,S0300000,S0479999 H3NUMMER,1,Banken lang Z_HABEN,S0300000,S0479999 ADDMEMORY,PASSIVA ENDIF IF_KONTENSALDO_HABEN,S0480000,S0499999 H3NUMMER,1,Mitarbeiterdarlehen Z_HABEN,S0480000,S0499999 ADDMEMORY,PASSIVA ENDIF IF_KONTENSALDO_HABEN,S0500000,S1099999 H3NUMMER,1,Kautionen Z_HABEN,S0500000,S0999999 ADDMEMORY,PASSIVA ENDIF IF_KONTENSALDO_HABEN,K0000000,K9999999 H3NUMMER,1,Verbindlichkeiten an Kunden Z_HABEN,K0000000,K9999999 ADDMEMORY,PASSIVA S,Kunden ENDIF IF_KONTENSALDO_HABEN,L0000000,L9999999 H3NUMMER,1,Verbindlichkeiten an Lieferanten Z_HABEN,L0000000,L9999999 ADDMEMORY,PASSIVA S,Lieferanten ENDIF IF_KONTENSALDO_HABEN,N0000000,N9999999 H3NUMMER,1,Verbindlichkeiten an Mieter IFFLAG,KOMPAKT K_HABEN,N0000000,N9999999,Mieter ELSE Z_HABEN,N0000000,N9999999 ENDIF ADDMEMORY,PASSIVA S,Mieter ENDIF IF_KONTENSALDO_HABEN,S1000000,S1099999 H3NUMMER,1,Sonstige Forderungen Z_HABEN,S1000000,S1099999 ADDMEMORY,PASSIVA S,Sonstige ENDIF 0 ADD,S1100000,S1199999 IF_SALDO_HABEN H3NUMMER,1,Forderungen UST Z,S1100000,S1199999 ADDMEMORY,PASSIVA S,Ust ENDIF IF_KONTENSALDO_HABEN,S1200000,S1999998 H3NUMMER,1,Sonstige Forderungen Z_HABEN,S1200000,S1999998 ADDMEMORY,PASSIVA S,Sonstige ENDIF T, READMEMORY,PASSIVA SBILANZ,Summe Passiva REM ************** G Und V REM ******************************************* N BILANZGUVMJ ALLEKONTEN,S3000000,S9999999 H1NUMMER,0,Gewinn- und Verlust-Rechnung T,Gewinnermittlung nach 4 Abs. 3 EStG T,!!MANDANT!! !!JAHR!! T, PT H2NUMMER,1,Einnahmen H3NUMMER,2,Erlöse 0 Z,S3000000,S3999999 ADDMEMORY,ERTRAG ADDMEMORY,KONTROLL 0 READMEMORY,ERTRAG S,Summe Einnahmen T, H2NUMMER,1,Kosten H3NUMMER,2,Waren und Fremdleistungen 0 Z,S5200000,S5299999 ADDMEMORY,KONTROLL S,Summe Waren H3NUMMER,2,Verwaltung und Sonstiges 0 Z,S4000000,S4012089 ADDMEMORY,KONTROLL ADDMEMORY,SONST S,Instandhaltung Reperaturen 0 Z,S4012090,S4099999 ADDMEMORY,KONTROLL ADDMEMORY,SONST S,Abschreibungen 0 Z,S4100000,S4199999 ADDMEMORY,KONTROLL ADDMEMORY,SONST S,Betriebskosten 0 Z,S4200000,S4999999 ADDMEMORY,KONTROLL ADDMEMORY,SONST S,Sonstige Aufwendungen 0 Z,S5000000,S5199999 ADDMEMORY,KONTROLL ADDMEMORY,SONST IF_HATWERT S,Summe ENDIF 0 Z,S5300000,S5999999 ADDMEMORY,SONST ADDMEMORY,KONTROLL S,Steuern 0 Z,S6000000,S6999999 ADDMEMORY,SONST ADDMEMORY,KONTROLL S,Verwaltungskosten 0 READMEMORY,SONST S,Summe Ausgaben T, FEHLENDEKONTEN 0 ADD,S3000000,S9999999 ADDMEMORY,GEWINN IF_SALDO_SOLL H3,TABVerlustTABTAB!!SALDO!! ELSE H3,TABGewinnTABTAB!!SALDO!! ENDIF 0 READMEMORY,KONTROLL S,Kontroll T, T, H2,!!TAB!!Gewinnverteilung READMEMORY,GEWINN SPLITT,VERTEILUNG FAKTOR,RESET T, N BILANZAFA H2NUMMER,0,Abschreibungen PT ZAFA,S0000000,S0199999 | |