Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
2 - PROFAN-Programmierung

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Nur ein Parameter kommt an??
Autor: Andreas Weißbach (---.dynamic.kabel-deutschland.de)
Datum:   08.12.17 11:23

Ich schreibe gerade an einem Programm, um mobil Daten zu erfassen. Dabei wird ein Dialog rekursiv genutzt und soll Daten per Parameterübergabe erhalten. Bei ersten Versuchen stellte sich allerdings heraus, dass immer nur der erste Parameter ankommt - warum auch immer. Was habe ich übersehen?

Schon mal Danke für zielführende Antworten.

Problem gelöst:
!!!! Ich habe beim erneuten Durchlesen eben die Klammern beim Aufruf entdeckt - und entfernt !!!!

Ich habe den Code mal auf das wesendliche eingedampft:

proc Erfassung
parameters vVnr$,uDate$,uOrt$,t_innen$,t_aussen$,relInnen$,relAussen$
declare dFont&
declare _ende%
declare _dlg%
declare uLuftkeim&
declare uAbklatsch&
declare uDirekt&
declare uIstda&
declare uIstnichtda&
declare uLufttempI&
declare uRelLFI&
declare uLufttempA&
declare urelLFA&
declare uDate&
declare uText_Schimmel&
declare VNr&
declare uRaum&
declare uSpeichern&
declare uNächster&
declare uAbbruch&

dFont& = create("Font", "ARIAL",14,0,0,0,0)
setdialogfont dFont&

_dlg% = create("dialog", %hWnd, "Untersuchung vor Ort", 423, 38, 402, 562 + %cyCaption)
VNr& = create("edit", _dlg%, vVnr$, 28, 8, 64, 16)
create("text", _dlg%, "V", 16, 8, 12, 16)
uDate& = create("dateedit", _dlg%, uDate$, 288, 8, 80, 16)
create("text", _dlg%, "Bezeichnung des untersuchten Raumes:", 16, 32, 200, 16)
uRaum& = create("edit", _dlg%, uOrt$, 224, 32, 144, 16)
create("groupbox", _dlg%, "Art der Untersuchung", 8, 64, 132, 80)
uLuftkeim& = create("checkbox", _dlg%, "Luftkeim", 16, 88, 80, 16)
uAbklatsch& = create("checkbox", _dlg%, "Abklatsch", 16, 104, 80, 16)
uDirekt& = create("checkbox", _dlg%, "Direktprobe", 16, 120, 80, 16)
create("groupbox", _dlg%, "Schimmel sichtbar", 152, 64, 120, 64)
uIstda& = create("radiobutton", _dlg%, "Ja", 160, 88, 40, 16)
uIstnichtda& = create("radiobutton", _dlg%, "Nein", 160, 104, 40, 16)
create("text", _dlg%, "Innenraum - Durchschnitt", 16, 152, 136, 16)
create("text", _dlg%, "Lufttemperatur", 16, 176, 88, 16)
uLufttempI& = create("edit", _dlg%, t_innen$, 112, 176, 32, 16)
create("text", _dlg%, "°C", 152, 176, 16, 16)
create("text", _dlg%, "Luftfeuchte", 16, 200, 88, 16)
uRelLFI& = create("edit", _dlg%, relInnen$, 112, 200, 32, 16)
create("text", _dlg%, "% rel.", 152, 200, 32, 16)
create("text", _dlg%, "Außen - Durchschnitt", 200, 152, 128, 16)
create("text", _dlg%, "Lufttemperatur", 200, 176, 88, 16)
uLufttempA& = create("edit", _dlg%, t_aussen$, 296, 176, 32, 16)
create("text", _dlg%, "°C", 336, 176, 16, 16)
create("text", _dlg%, "Luftfeuchte", 200, 200, 88, 16)
urelLFA& = create("edit", _dlg%, relAussen$, 296, 200, 32, 16)
create("text", _dlg%, "% rel.", 336, 200, 32, 16)
create("text", _dlg%, "Bitte alle weiteren Beobachtungen hier erfassen:", 16, 232, 104, 48)
uText_Schimmel& = create("multiedit", _dlg%, "Beobachtungen erfassen", 128, 232, 240, 240)
uSpeichern& = create("button", _dlg%, "Speichern und Schließen", 16, 512, 128, 24) ' Zurück zum Menue (kill procedure)
uNächster& = create("button", _dlg%, "Nächster Raum", 160, 512, 104, 24) ' Speichern und weiter
uAbbruch& = create("button", _dlg%, "Abbruch", 280, 512, 88, 24) ' (kill procedure)

_ende% = 0
whilenot _ende%
waitinput
if (%key = 2)
_ende% = 1
endif
endWhile
destroywindow(_dlg%)
setdialogfont 0
deleteobject dfont&
endproc

windowtitle "Test Erfassung S1"
cls

Erfassung ("17120602","06.12.2017","Küche","22","5","50","85")
waitinput
end



Nachricht bearbeitet (08.12.17 11:35)

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Nur ein Parameter kommt an??  Neu
Andreas Weißbach 08.12.17 11:23 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org