/* Geschäftsbrief RECHNUNG */

/*
** Copyright by Friedrich Siekmeier, all Rights reserved.
** eMail: 05715090055-0001@btxgate.de oder la.paloma@t-online.de
** Kaufmannsbrede 1, 32429 Minden, Tel.: (0571) 52052
** Version 2.99220
** Dieses Programm ist Cardware. Persönliche Anpassung nach Rücksprache möglich!
** Benutzung des Programms auf eigene Gefahr. Für jegliche Beschädigung wird keinerlei Haftung übernommen!
** ;-))
*/


*/


OPTIONS RESULTS


/*----------------------------*/

IF ~SHOW(L,"rexxreqtools.library") THEN DO
   ADDLIB("rexxreqtools.library",0,-30,0)
   END

/*----------------------------*/


Waehrung = ' DM'

RgBeginn = 0
Do While RgBeginn = 0

OPEN FILENAME 'WordWorth:Documents/Templates/Normal'

IF ~SHOW(P,"WORDWORTH.1") THEN DO
	ADDRESS WORDWORTH.2
END


DOCUMENT A4 '2.5' '2.5' '0.51' '0.51'


FITWIDTH
PARAGRAPH 0 0 0 LEFT AUTO SINGLE NONE 3
NEWPARAGRAPH
NEWPARAGRAPH


SETTAB LEFT '15'
FONT NAME "Shannon Book" SIZE 8
PLAIN
Text '	Benutzerstraße XX'
NEWPARAGRAPH
Text '	00000 Benutzerstadt'
NEWPARAGRAPH
Text '	Tel.: (0571) 52 0 52'
NEWPARAGRAPH
Text '	Fax: (0571) 50 900 55'

NEWPARAGRAPH
NEWPARAGRAPH
NEWPARAGRAPH

PARAGRAPH 0 0 0 LEFT AUTO SINGLE NONE 4
FONT NAME "Shannon Book" SIZE 6
PLAIN
SINGLEUNDERLINE
Text 'Benutzerfirma, Benutzerstraße XX, 00000 Benutzerstadt'
NEWPARAGRAPH

PARAGRAPH 0 0 0 LEFT AUTO SINGLE NONE 4
FONT NAME 'Shannon Book' SIZE 10
PLAIN

/*----------------------------*/

KAW = rtezrequest('Neukunde?','Ja|_Nein')
IF KAW = 0 THEN CALL "Kunden:Auswahl"
IF KAW = 1 THEN CALL NEUKUNDE

/*----------------------------*/

PLAIN

Text '	'

Font NAME "Shannon Book" SIZE 12 
InsertDate

NewParagraph

SETTAB LEFT '11.5'

Text '	Rechnung Nr.:	'


CALL OPEN('RgNoWW','Rechnungen:RgNoWW','R')
RgNo = READLN('RgNoWW')
RgNew = TRUNC(RgNo)
Dat = SUBSTR(DATE('S'),1,4)
IF Dat = RgNew + 1
	THEN RgNo = TRUNC(Dat,3)
RgNo = RgNo + .001
CALL CLOSE('RgNoWW')

Text RIGHT(RgNo,6)

NewParagraph
NewParagraph
NewParagraph
NewParagraph

TABS

LeftJustify
Font SIZE 14
Bold

WizardReq TITLE "Auftrag" LABEL "Bitte Daten eingeben:" LABEL "" TextBOX 1 "_Auftrag:" BUTTON 1 "_Ok" BUTTON "-1" "A_bbruch"
If Result = -1 THEN DO
	Close FORCE
	Exit
END

Wizard_GetTextBox 1
Atrag = Result
Text Atrag

Bold

NewParagraph
NewParagraph
NewParagraph
NewParagraph
NewParagraph
NewParagraph


SetTab LEFT "2.54"
SetTab RIGHT "9.5"
SetTab RIGHT "12"
SetTab RIGHT "17.5"

Font SIZE 12

Plain

NewParagraph
Paragraph 0 0 0 LEFT AUTO SINGLE NONE NONE

ZwiTotal = 0
GroTotal = 0
Finished = 0
DO WHILE Finished = 0

FlexVar=0

/*----------------------------*/

PPAW = rtezrequest('Variabler Produktpreis?','Ja|_Nein')
IF PPAW = 1 THEN CALL NEUPRODUKT
IF PPAW = 0 THEN CALL "Produkte:Auswahl"

/*----------------------------*/
/*----------------------------*/

FlexVar=RESULT
IF FlexVar~=0 THEN
Produkt = strip(subword(FlexVar,1,1))
IF FlexVar~=0 THEN
Preis = strip(subword(FlexVar,2,1))

/*----------------------------*/

WizardReq TITLE "Rechnungsassistent" LABEL "Rechnungsdaten eingeben:" LABEL "" TextBOX 1 "_Menge:" BUTTON 1 "_Fertig" BUTTON 2 "_Nächster" BUTTON "-1" "A_bbruch"
If Result = -1  THEN DO
	Close FORCE
	Exit
END

If Result = 1 THEN
	Finished = 1

Text '	'
Text Produkt
Text '	'

Text Preis
Text Waehrung
Text '	'

Wizard_GetTextBox 1
Anzahl = Result
Text Anzahl
Text '	'

Total = Preis * Anzahl
Total = TRUNC(Total,6)
	IF RIGHT(Total,4) > 5000
		THEN Total = Total + .01
		Total = TRUNC(Total,2)
Text Total
Text Waehrung

NewParagraph


ZwiTotal = ZwiTotal + Total

Steuer = ZwiTotal * 0.16
Steuer = TRUNC(Steuer,6)
	IF RIGHT(Steuer,4) > 5000
		THEN Steuer = Steuer + .01
		Steuer = TRUNC(Steuer,2)

GroTotal = ZwiTotal + Steuer
END

Paragraph 0 0 0 LEFT AUTO SINGLE "3 pt" NONE

NewParagraph
Text '	Netto			'
Text ZwiTotal
Text Waehrung
NewParagraph

Text '	16% MWSt			'
Text Steuer
Text Waehrung

Bold
NewParagraph
NewParagraph

Text '	Gesamt:			'
DoubleUnderLine
Text GroTotal
Text Waehrung
DoubleUnderLine

NewParagraph
NewParagraph

FONT SIZE 8 PLAIN
CentreJustify
Text 'Betrag zahlbar ohne Abzug innerhalb von 14 Tagen auf das unten angegebene Konto!'
NewParagraph
Text 'Danke für Ihren Auftrag.'


DRAWTEXTFRAME 1 '2.44' '0.84' '12.30' '2.59' '0.13' '0.13' '0.13' '0.13' 'TRANSPARENT' 'keine'
Obj1 = RESULT
SELECTOBJECT Obj1

NewParagraph
CURSOR UP
DELETE
Paragraph 0 0 0 CENTRE AUTO SINGLE NONE 3

Font NAME "Shannon Book" SIZE 24

Text 'XYZ-GmbH & Co.KG'
NewParagraph

Text 'Benutzerfirma'
SELECTOBJECT 0

DRAWTEXTFRAME 1 '2.44' '27.12' '15.78' '0.75' '0.13' '0.13' '0.13' '0.13' 'TRANSPARENT' 'keine'
Obj2 = RESULT
SELECTOBJECT Obj2

NewParagraph
CURSOR UP
DELETE
Paragraph 0 0 0 CENTRE AUTO SINGLE NONE 3

Font NAME "Shannon Book" SIZE 8

Text 'Bankverbindung: Deutsche Bank XYZ, Blz.: 000 000 00, Ktn.: 0 000 000 000'
SELECTOBJECT 0

DRAWTEXTFRAME 1 '2.44' '14.25' '15.78' '0.73' '0.13' '0.13' '0.13' '0.13' 'TRANSPARENT' 'keine'
Obj3 = RESULT
SELECTOBJECT Obj3

NewParagraph
CURSOR UP
DELETE
Paragraph 0 0 0 CENTRE AUTO SINGLE NONE 3

Font NAME "Shannon Book" SIZE 12
Italic
SETTAB LEFT '5.4'
SETTAB RIGHT '10.1'
SETTAB LEFT '14.0'

Text 'Leistung:	Einzelpreis:	Menge:	Summe:'
SELECTOBJECT 0


DRAWLINE 1 '2.44' '2.49' '18.22' '2.49' '1' 'schwarz'
DRAWLINE 1 '2.44' '9.13' '18.22' '9.13' '1' 'schwarz'
DRAWLINE 1 '2.44' '15.00' '18.22' '15.00' '1' 'schwarz'
DRAWLINE 1 '2.44' '27.00' '18.22' '27.00' '1' 'schwarz'
DRAWLINE 1 '0' '15.00' '1' '15.00' '1' 'schwarz'

PrintOptions Background Copies 1

RequestResponse "Rechnung drucken?"
	If (RC > 0) THEN DO
		Close FORCE
	Exit
END

SAVEAS NAME 'Rechnungen:'RgNo

Print

CALL OPEN('RgNoWW','Rechnungen:RgNoWW','W')
CALL WRITELN('RgNoWW',RgNo)
CALL CLOSE('RgNoWW')

RequestResponse "Noch eine Rechnung schreiben?"
If Result = 1 THEN
	RgBeginn = 1
END

EXIT

/*----------------------------*/
/*----------------------------*/

NEUKUNDE:

WIZARDREQ TITLE 'Rechnungsanschrift' LABEL '' TEXTBOX 1 'Zustell_vermerk:' TEXTBOX 2 '_Empfänger:' TEXTBOX 3 '_Zusatz:' TEXTBOX 4 '_Straße:' TEXTBOX 5 'Post_fach:' TEXTBOX 6 '_PLZ:' TEXTBOX 7 'O_rt:' BUTTON 1 "_Ok" BUTTON "-1" "A_bbruch"

If Result = -1 THEN DO
	Close FORCE
	Exit
END

Wizard_GetTextBox 1
Letter = RESULT
Text Letter

NewParagraph

Wizard_GetTextBox 2
Owner = Result
Text Owner

NewParagraph

Wizard_GetTextBox 3
Plus = Result
Text Plus

NewParagraph

Wizard_GetTextBox 4
Road = Result
Text Road

Wizard_GetTextBox 5
Post = Result
Text Post

NewParagraph
NewParagraph


Wizard_GetTextBox 6
Number = Result
Text Number

Text '  '

Bold
SingleUnderLine

Wizard_GetTextBox 7
Town = Result
Text Town

RETURN

/*----------------------------*/

NEUPRODUKT:

Produkt = rtgetstring(,'Bitte Art der Leistung händisch eintragen!')
Preis = rtgetstring(,'Bitte den Preis händisch eintragen!')

RETURN Produkt Preis

/*----------------------------*/