PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

Formularerstellung

https://www.purebasic.fr/german/viewtopic.php?t=28817

Seite 2 von 3

Re: Formularerstellung

Verfasst: 14.05.2015 13:11
von Kiffi
Du musst Dein machhtml() auch an geeigneter Stelle aufrufen:

Code: Alles auswählen

; [...]

OpenWindow_1()

machhtml(0) ; <--- hier (wozu eigentlich der EventType?)
SetGadgetText(#Adresse, "file://"+ GetCurrentDirectory() + "Formular_ausgefüllt.html") ; <--- und hier

Repeat
  Event = WaitWindowEvent()
; [...]
Grüße ... Peter

Re: Formularerstellung

Verfasst: 14.05.2015 13:51
von Fanpost
Hallo Kiffi,

es geht hier um den Einbau einer Druckroutine. Mit dem dargestelltem Prog habe ich schon diverse Protokolle über einen Browser ausgedruckt, will es aber direkt drucken können!

Gruss

Hartmut

Re: Formularerstellung

Verfasst: 14.05.2015 15:29
von Kiffi
ja, dann mach doch ;-)

das WebGadget musst Du nicht neu erstellen. Das ist ja bereits da und gefüllt. Du musst nur Deine Routine aufrufen:

Code: Alles auswählen

Procedure drucken(_GID, _PREVIEW)
 WebObject.IWebBrowser2 = GetWindowLong_(GadgetID(#Adresse), #GWL_USERDATA)
 WebObject\ExecWB(#OLECMDID_PRINT, #OLECMDEXECOPT_DONTPROMPTUSER, 0, 0)
EndProcedure
Grüße ... Peter

Re: Formularerstellung

Verfasst: 14.05.2015 16:22
von Fanpost
Hallo Peter,

danke für die Info. Ich bin leider zu blöd die Routine in mein Prog einzubauen.


Gruss Hartmut

Re: Formularerstellung

Verfasst: 14.05.2015 17:20
von Kiffi
ok, hier mal der gesamte Code von Dir. Die von mir geänderten Stellen habe ich mit 'PT' gekennzeichnet

Code: Alles auswählen

;pbf-File
Global Window_1

Global Button_machhtml, String_kname, String_kname_1, String_kname_2, String_kname_3, String_kname_5, Text_0, Text_0_Copy1, Text_0_Copy2, Text_0_Copy3, Text_0_Copy3_Copy1, Text_0_Copy3_Copy1_Copy1, string_kname_4, Text_1, Text_2, Text_3, String_kname_6, String_kname_7, String_kname_8, String_kname_9, String_kname_10, String_kname_11, Button_machhtml_Copy1, Button_machhtml_Copy2, String_kname_12, Text_4

Enumeration FormGadget
	#Adresse
EndEnumeration

Enumeration FormFont
	#Font_Window_1_0
EndEnumeration

LoadFont(#Font_Window_1_0,"Arial Narrow", 18)

#DONTPROMPTUSER = 2
#PREVIEW = 7
#Gid = 1
#Adresse = 0
#OLECMDID_PRINT = 6
#OLECMDEXECOPT_DONTPROMPTUSER = 2

Procedure drucken(_GID, _PREVIEW)
	; WebGadget(#Adresse, 0, 0, 960, 780, "file://"+ GetCurrentDirectory() + "Formular_ausgefüllt.html") ; PT
	WebObject.IWebBrowser2 = GetWindowLong_(GadgetID(#Adresse), #GWL_USERDATA)
	WebObject\ExecWB(#OLECMDID_PRINT, #OLECMDEXECOPT_DONTPROMPTUSER, 0, 0)
EndProcedure

Declare machhtml(EventType)

Procedure OpenWindow_1(x = 0, y = 0, width = 1190, height = 890)
	Window_1 = OpenWindow(#PB_Any, x, y, width, height, "Omasbett  Protokoll Erstellung", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_ScreenCentered)
	Button_machhtml = ButtonGadget(#PB_Any, 840, 580, 100, 25, "Formular erstellen")
	GadgetToolTip(Button_machhtml, "erzeugt eine html-Datei")
	String_kname = StringGadget(#PB_Any, 1010, 65, 105, 25, "150507001HL")
	GadgetToolTip(String_kname, "hier Seriennummer eingeben")
	String_kname_1 = StringGadget(#PB_Any, 1010, 105, 105, 25, "AM2013_000000")
	GadgetToolTip(String_kname_1, "hier die S-Nr. der Hauptplatine eingeben")
	String_kname_2 = StringGadget(#PB_Any, 1010, 145, 105, 25, "PT00.00.0000")
	GadgetToolTip(String_kname_2, "hier die Software-Version eingeben")
	String_kname_3 = StringGadget(#PB_Any, 1010, 185, 105, 25, "000")
	GadgetToolTip(String_kname_3, "hier die SD-Karten-Version eingeben")
	String_kname_5 = StringGadget(#PB_Any, 1010, 305, 105, 25, "Name")
	GadgetToolTip(String_kname_5, "hier den Namen des Pruefers eingeben")
	Text_0 = TextGadget(#PB_Any, 900, 70, 100, 20, "Seriennummer:")
	Text_0_Copy1 = TextGadget(#PB_Any, 900, 110, 100, 20, "SNR-Hauptplatine:")
	Text_0_Copy2 = TextGadget(#PB_Any, 900, 150, 100, 20, "SW-Version:")
	Text_0_Copy3 = TextGadget(#PB_Any, 900, 190, 100, 20, "SD-Image-Version:")
	Text_0_Copy3_Copy1 = TextGadget(#PB_Any, 900, 270, 100, 20, "Datum:")
	Text_0_Copy3_Copy1_Copy1 = TextGadget(#PB_Any, 900, 310, 100, 20, "Prüfer:")
	string_kname_4 = DateGadget(#PB_Any, 1010, 266, 105, 25, "")
	GadgetToolTip(string_kname_4, "hier evt. das Datum ändern")
	Text_1 = TextGadget(#PB_Any, 840, 360, 80, 20, "Bemerkung:")
	Text_2 = TextGadget(#PB_Any, 840, 10, 340, 50, "Protokolleingaben:")
	SetGadgetFont(Text_2, FontID(#Font_Window_1_0))
	Text_3 = TextGadget(#PB_Any, 10, 10, 300, 30, "Protokoll:")
	SetGadgetFont(Text_3, FontID(#Font_Window_1_0))
	String_kname_6 = StringGadget(#PB_Any, 840, 385, 330, 25, "")
	String_kname_7 = StringGadget(#PB_Any, 840, 415, 330, 25, "")
	String_kname_8 = StringGadget(#PB_Any, 840, 445, 330, 25, "")
	String_kname_9 = StringGadget(#PB_Any, 840, 475, 330, 25, "")
	String_kname_10 = StringGadget(#PB_Any, 840, 505, 330, 25, "")
	String_kname_11 = StringGadget(#PB_Any, 840, 535, 330, 25, "")
	Button_machhtml_Copy1 = ButtonGadget(#PB_Any, 955, 580, 100, 25, "Formular drucken")
	Button_machhtml_Copy2 = ButtonGadget(#PB_Any, 1070, 580, 100, 25, "Reserve")
	WebGadget(#Adresse, 10, 45, 810, 835, "file://"+ GetCurrentDirectory() + "Formular_ausgefüllt.html")
	String_kname_12 = StringGadget(#PB_Any, 1010, 225, 105, 25, "HW 1.91 DAT 0215")
	Text_4 = TextGadget(#PB_Any, 900, 230, 100, 20, "HW-Version:")
EndProcedure

Procedure Window_1_Events(event)
	Select event
		Case #PB_Event_CloseWindow
			ProcedureReturn #False
			
		Case #PB_Event_Menu
			Select EventMenu()
			EndSelect
			
		Case #PB_Event_Gadget
			Select EventGadget()
					
				Case Button_machhtml
					machhtml(EventType())          
				Case Button_machhtml_Copy1 ; PT
					drucken(0, 0) ; PT
					
			EndSelect
	EndSelect
	ProcedureReturn #True
EndProcedure 

;pb-File
EnableExplicit

Define event, EventGadget, EventType, EventMenu, EventWindow, prglauf
; <<<<<<<<<<< hier die Variable definieren
Global SNummer$, SNRH$, SWV$, SDIV$, Dat$, Na$, Te1$,Te2$,Te3$,Te4$, Te5$, Te6$, HWV$

OpenWindow_1()

machhtml(0) ; PT
SetGadgetText(#Adresse, "file://"+ GetCurrentDirectory() + "Formular_ausgefüllt.html") ; PT

Repeat
	Event = WaitWindowEvent()
	EventGadget = EventGadget()
	EventType = EventType()
	EventMenu = EventMenu()
	EventWindow = EventWindow()
	prglauf=Window_1_Events(Event)
	
Until prglauf=#False
End


;-------- ab hier die Proceduren für Buttons, etc. -----------------

Procedure htmlanzeigen(EventType)
	#DATEI_REPORT = 1                       ; <<<<<<<<<<<< das muss noch von Hand eingesetzt werden !!!!
	
	If CreateFile(#DATEI_REPORT,  "Formular_ausgefüllt.html")
		WriteStringN(#DATEI_REPORT,"<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01//EN'>")
		WriteStringN(#DATEI_REPORT,"<!<html><head><title>Formular-mit-HCGenerator-erzeugt</title>")
		WriteStringN(#DATEI_REPORT,"<!</head><body>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm; top:40mm; color:#000000;font-weight:bold;font-family:arial; font-size:22px;'>Prüfprotokoll</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm; top:56mm; color:#000000;font-weight:bold;font-family:arial; font-size:19px;'>Komponente:</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:60mm; top:55mm; color:#000000;font-weight:bold;font-family:arial; font-size:24px;'>Omasbett</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:60mm; top:65.5mm; color:#000000;font-family:arial; font-size:17px;'>Firmeninternes</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:60mm; top:72.5mm; color:#000000;font-family:arial; font-size:17px;'>Dokument</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm; top:65mm; color:#000000;font-weight:bold;font-family:arial; font-size:19px;'>Vertraulichkeit:</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:112mm; top:48mm; color:#000000;font-family:arial; font-size:17px;'>SNR-Hauptplatine:</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:12mm; top:140mm; color:#000000;font-family:arial; font-size:17px;'>Sichtprüfung:</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:12mm; top:150mm; color:#000000;font-family:arial; font-size:17px;'>Manuelle Funktion:</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:12mm; top:160mm; color:#000000;font-family:arial; font-size:17px;'>Funktion der Ein- und Ausgänge:</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:12mm; top:180mm; color:#000000;font-weight:bold;font-family:arial; font-size:17px;'>Gesamtergebnis der Prüfung:</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:12mm; top:202mm; color:#000000;font-family:arial; font-size:17px;'>"+Te1$+"</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:12mm; top:209mm; color:#000000;font-family:arial; font-size:17px;'>"+Te2$+"</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:12mm; top:216mm; color:#000000;font-family:arial; font-size:17px;'>"+Te3$+"</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:12mm; top:223mm; color:#000000;font-family:arial; font-size:17px;'>"+Te4$+"</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:12mm; top:230mm; color:#000000;font-family:arial; font-size:17px;'>"+Te5$+"</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:12mm; top:237mm; color:#000000;font-family:arial; font-size:17px;'>"+Te6$+"</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:12mm; top:196mm; color:#000000;font-family:arial; font-size:17px;'>Bemerkung:</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:112mm; top:56mm; color:#000000;font-family:arial; font-size:17px;'>SW-Version:</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:112mm; top:64mm; color:#000000;font-family:arial; font-size:17px;'>SD-Image-Version:</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:12mm; top:120mm; color:#000000;font-weight:bold;font-family:arial; font-size:17px;'>Art der Prüfung</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:185mm; top:120mm; color:#000000;font-weight:bold;font-family:arial; font-size:17px;'>OK</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:182mm;top:117.5mm; height: 70mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:185mm;top:149mm; width: 6.5mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:185mm;top:149mm; height: 6.5mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:185mm;top:155.5mm; width: 6.8mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:191.5mm;top:149mm; height: 6.8mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:185mm;top:179mm; width: 6.5mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:185mm;top:179mm; height: 6.5mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:185mm;top:185.5mm; width: 6.8mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:191.5mm;top:179mm; height: 6.8mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:185mm;top:159mm; width: 6.5mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:185mm;top:159mm; height: 6.5mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:185mm;top:165.5mm; width: 6.8mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:191.5mm;top:159mm; height: 6.8mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:185mm;top:139mm; width: 6.5mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:185mm;top:139mm; height: 6.5mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:185mm;top:145.5mm; width: 6.8mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:191.5mm;top:139mm; height: 6.8mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:167.5mm; width: 184mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:167.5mm; height: 10mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:177.5mm; width: 184.3mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:194mm;top:167.5mm; height: 10.3mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:157.5mm; width: 184mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:157.5mm; height: 10mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:167.5mm; width: 184.3mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:194mm;top:157.5mm; height: 10.3mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:147.5mm; width: 184mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:147.5mm; height: 10mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:157.5mm; width: 184.3mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:194mm;top:147.5mm; height: 10.3mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:127.5mm; width: 184mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:127.5mm; height: 10mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:137.5mm; width: 184.3mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:194mm;top:127.5mm; height: 10.3mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:117.5mm; width: 184mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:117.5mm; height: 10mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:127.5mm; width: 184.3mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:194mm;top:117.5mm; height: 10.3mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:137.5mm; width: 184mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:137.5mm; height: 10mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:147.5mm; width: 184.3mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:194mm;top:137.5mm; height: 10.3mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:186mm; top:140mm; color:#000000;font-weight:bold;font-family:Wingdings; font-size:22px;'>ü</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:186mm; top:150mm; color:#000000;font-weight:bold;font-family:Wingdings; font-size:22px;'>ü</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:186mm; top:160mm; color:#000000;font-weight:bold;font-family:Wingdings; font-size:22px;'>ü</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:186mm; top:180mm; color:#000000;font-weight:bold;font-family:Wingdings; font-size:22px;'>ü</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:23mm; top:92mm; color:#000000;font-weight:bold;font-family:arial; font-size:19px;'>Prüfung gemäß Prüfanweisung Omas-Bett in aktuellster Version</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm; top:272mm; color:#000000;font-family:arial; font-size:17px;'>Datum: </div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:27mm; top:272mm; color:#000000;font-family:arial; font-size:17px;'>"+dat$+"</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:65mm; top:272mm; color:#000000;font-family:arial; font-size:17px;'>Prüfer:</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:81mm; top:272mm; color:#000000;font-family:arial; font-size:17px;'>"+Na$+"</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:124mm;top:273mm; width: 68mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:148mm; top:275mm; color:#000000;font-family:arial; font-size:17px;'>Unterschrift</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:112mm; top:40mm; color:#000000;font-family:arial; font-size:17px;'>Seriennummer:</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm; top:6.5mm; color:#000000;font-family:Broadway BT; font-size:31px;'>Heikotutnix GmbH</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:153mm; top:56mm; color:#000000;font-family:arial; font-size:17px;'>"+SWV$+"</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:97mm; top:7.5mm; color:#0080FF;font-family:Wingdings; font-size:31px;'>l</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:153mm; top:64mm; color:#000000;font-family:arial; font-size:17px;'>"+SDIV$+"</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:153mm; top:40mm; color:#000000;font-family:arial; font-size:17px;'>"+SNummer$+"</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:194.5mm; width: 184mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:194.5mm; height: 49.5mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:244.0mm; width: 184.3mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:194mm;top:194.5mm; height: 49.8mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:84mm; width: 184mm; box-shadow:0px 0px 0px black; border-top:3px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:84mm; height: 23mm; box-shadow:0px 0px 0px black; border-left:3px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:107.0mm; width: 184.8mm; box-shadow:0px 0px 0px black; border-top:3px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:194mm;top:84mm; height: 23.8mm; box-shadow:0px 0px 0px black; border-left:3px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:177.5mm; width: 184mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:177.5mm; height: 10mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:10mm;top:187.5mm; width: 184.3mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:194mm;top:177.5mm; height: 10.3mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:153mm; top:48mm; color:#000000;font-family:arial; font-size:17px;'>"+SNRH$+"</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:160mm; top:8.5mm; color:#000000;font-family:arial; font-size:19px;'>26007 Rasplatz</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:153mm; top:8.5mm; color:#000000;font-family:arial; font-size:19px;'>-</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:109mm; top:17mm; color:#000000;font-family:arial; font-size:16.8px;'>Tel.: 04444-974888 Mail: AM@heikotutnix</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:109mm; top:8.5mm; color:#000000;font-family:arial; font-size:19px;'>Am Nordkreuz 07</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:153mm; top:72mm; color:#000000;font-family:arial; font-size:17px;'>"+HWV$+"</div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:106mm;top:37mm; width: 88mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:106mm;top:37mm; height: 43mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:106mm;top:80.0mm; width: 88.3mm; box-shadow:0px 0px 0px black; border-top:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:194mm;top:37mm; height: 43.3mm; box-shadow:0px 0px 0px black; border-left:1px solid #000000'></div>")
		WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:112mm; top:72mm; color:#000000;font-family:arial; font-size:17px;'>HW-Version:</div>")
		;WriteStringN(#DATEI_REPORT,"<div style='position:absolute; left:158mm; top:48mm; color:#000000;font-family:arial; font-size:17px;'>"+SNRH$+"</div>")  
		
		WriteStringN(#DATEI_REPORT,"</body></html>") 
		CloseFile(#DATEI_REPORT)
	EndIf
	CompilerSelect #PB_Compiler_OS
		CompilerCase #PB_OS_Linux
			;RunProgram("defaultbrowser", "Formular_ausgefüllt.html","")
		CompilerCase #PB_OS_Windows
			;RunProgram("Formular_ausgefüllt.html") ; aktiviert ---> Formular wird im Browser angezeigt ; PT
		CompilerCase #PB_OS_MacOS
	CompilerEndSelect 
EndProcedure

Procedure machhtml(EventType)
	SNummer$ = GetGadgetText(String_kname)
	SNRH$ = GetGadgetText(String_kname_1)
	SWV$ = GetGadgetText(String_kname_2)
	SDIV$ = GetGadgetText(String_kname_3)
	Dat$ = GetGadgetText(String_kname_4)
	Na$ = GetGadgetText(String_kname_5)
	Te1$ = GetGadgetText(String_kname_6)
	Te2$ = GetGadgetText(String_kname_7)
	Te3$ = GetGadgetText(String_kname_8)
	Te4$ = GetGadgetText(String_kname_9)
	Te5$ = GetGadgetText(String_kname_10)
	Te6$ = GetGadgetText(String_kname_11)
	HWV$ = GetGadgetText(String_kname_12)
	htmlanzeigen(EventType)
EndProcedure
Grüße ... Peter

Re: Formularerstellung

Verfasst: 14.05.2015 18:22
von Thorsten1867
Für meine Zeugnisformulare, habe ich eine entsprechende Eingabemaske erstellt.
Die eingegeben Daten werden als XML-Dateien gespeichert.
Für den Ausdruck bzw. die Vorschau werden die XML-Dateien ausgelesen und es wird ein PDF-Dokument (PurePDF) generiert.

Code: Alles auswählen

<?xml version="1.0" encoding="UTF-8"?>
<Protokoll datum="" pruefer="">
	<Component snr="" mb="" sw="" sd="">Amaspread</Component>
	<Mechanical>
		<Eintrag nr="5" ok="0"/>
		<Eintrag nr="6" ok="0"/>
		<Eintrag nr="7" ok="0"/>
		<Eintrag nr="8" ok="0"/>
		<Eintrag nr="9" ok="0"/>
		<Eintrag nr="10" ok="0"/>
		<Eintrag nr="11" ok="0"/>
		<Eintrag nr="12" ok="0"/>
	</Mechanical>
	<Electrical>
		<Eintrag nr="23" ok="0"/>
		<Eintrag nr="24" ok="0"/>
		<Eintrag nr="25" ok="0"/>
		<Eintrag nr="26" ok="0"/>
		<Eintrag nr="27" ok="0"/>
		<Eintrag nr="28" ok="0"/>
	</Electrical>
</Protokoll>

Re: Formularerstellung

Verfasst: 14.05.2015 19:01
von Fanpost
Hallo Peter,

danke für deine Mühe, aber es funktioniert (noch) nicht"!
IncludeFile "oberfläche.pbf" habe ich nachgetragen, dann gibt es noch eine Fehlermeldung Zeile 25: Bei 'EnableExplicit' müssen Variablen deklariert werden: WebObject. usw.


Gruß Hartmut

Re: Formularerstellung

Verfasst: 14.05.2015 19:51
von Kiffi
der Code (der ja bis auf meine wenigen Modifikationen von Dir stammt) funktioniert so, wie ich ihn gepostet habe (Copy, Paste, Run). Deine Aufgabe ist es nun, zu erkennen, was geändert worden ist ('PT') und die Änderungen in Deinem Original-Code nachzupflegen. Das sollte allerdings kein großes Problem sein.

Grüße ... Peter

Re: Formularerstellung

Verfasst: 14.05.2015 20:58
von Fanpost
Hallo Peter,

ich habe alles versucht, deinen und meinen Code ausgedruckt, verglichen, meinen entsprechend geändert und es funktioniert leider nicht !


Gruß Hartmut

Re: Formularerstellung

Verfasst: 14.05.2015 21:10
von ts-soft
Fanpost hat geschrieben:ich habe alles versucht, deinen und meinen Code ausgedruckt, verglichen, meinen entsprechend geändert und es funktioniert leider nicht !
Was soll Peter jetzt machen?

Wie wäre es mit Fehlermeldungen, Sourcecode oder etwas anderem, mit dem man den Fehler analysieren kann. Funktioniert
nicht ist eine sehr schwammige Aussage die niemandem hilft. :mrgreen:

Gruß
Thomas
Alle Zeiten sind UTC+02:00
Seite 2 von 3

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de