61 lines
2.6 KiB
Plaintext
61 lines
2.6 KiB
Plaintext
Option Compare Database
|
|
Option Explicit
|
|
|
|
Private Sub Kombinationsfeld39_Change()
|
|
|
|
TBlz = TBank
|
|
|
|
End Sub
|
|
|
|
Private Sub Form_Close()
|
|
|
|
If Not IsNull(TName1) Then SetParameter "MANDANTENNAME1", TName1
|
|
If Not IsNull(TName2) Then SetParameter "MANDANTENNAME2", TName2
|
|
If Not IsNull(TStrasse) Then SetParameter "MANDANTENSTRASSE", TStrasse
|
|
If Not IsNull(TPLZ) Then SetParameter "MANDANTENPLZ", TPLZ
|
|
If Not IsNull(TOrt) Then SetParameter "MANDANTENORT", TOrt
|
|
If Not IsNull(TTelefon) Then SetParameter "MANDANTENTELEFON", TTelefon
|
|
If Not IsNull(TTelefax) Then SetParameter "MANDANTENTELEFAX", TTelefax
|
|
If Not IsNull(TDvr) Then SetParameter "MANDANTENDVR", TDvr
|
|
If Not IsNull(TBetriebsnummer) Then SetParameter "MANDANTENBETRIEBSNUMMER", TBetriebsnummer
|
|
If Not IsNull(TBlz) Then SetParameter "MANDANTENBLZ", TBlz
|
|
If Not IsNull(TKontonummer) Then SetParameter "MANDANTENKONTONUMMER", TKontonummer
|
|
If Not IsNull(TUID) Then SetParameter "MANDANTENUID", TUID
|
|
If Not IsNull(TEMail) Then SetParameter "MANDANTENEMAIL", TEMail
|
|
If Not IsNull(THomepage) Then SetParameter "MANDANTENHOMEPAGE", THomepage
|
|
|
|
End Sub
|
|
|
|
Private Sub Form_Open(Cancel As Integer)
|
|
|
|
|
|
If Not IsNull(GetParameter("MANDANTENNAME1")) Then TName1 = GetParameter("MANDANTENNAME1")
|
|
If Not IsNull(GetParameter("MANDANTENNAME2")) Then TName2 = GetParameter("MANDANTENNAME2")
|
|
If Not IsNull(GetParameter("MANDANTENSTRASSE")) Then TStrasse = GetParameter("MANDANTENSTRASSE")
|
|
If Not IsNull(GetParameter("MANDANTENPLZ")) Then TPLZ = GetParameter("MANDANTENPLZ")
|
|
If Not IsNull(GetParameter("MANDANTENORT")) Then TOrt = GetParameter("MANDANTENORT")
|
|
If Not IsNull(GetParameter("MANDANTENTELEFON")) Then TTelefon = GetParameter("MANDANTENTELEFON")
|
|
If Not IsNull(GetParameter("MANDANTENTELEFAX")) Then TTelefax = GetParameter("MANDANTENTELEFAX")
|
|
If Not IsNull(GetParameter("MANDANTENDVR")) Then TDvr = GetParameter("MANDANTENDVR")
|
|
If Not IsNull(GetParameter("MANDANTENBETRIEBSNUMMER")) Then TBetriebsnummer = GetParameter("MANDANTENBETRIEBSNUMMER")
|
|
If Not IsNull(GetParameter("MANDANTENBLZ")) Then TBlz = GetParameter("MANDANTENBLZ")
|
|
If Not IsNull(GetParameter("MANDANTENBLZ")) Then TBank = GetParameter("MANDANTENBLZ")
|
|
If Not IsNull(GetParameter("MANDANTENKONTONUMMER")) Then TKontonummer = GetParameter("MANDANTENKONTONUMMER")
|
|
If Not IsNull(GetParameter("MANDANTENUID")) Then TUID = GetParameter("MANDANTENUID")
|
|
If Not IsNull(GetParameter("MANDANTENEMAIL")) Then TEMail = GetParameter("MANDANTENEMAIL")
|
|
If Not IsNull(GetParameter("MANDANTENHOMEPAGE")) Then THomepage = GetParameter("MANDANTENHOMEPAGE")
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub TBank_Change()
|
|
|
|
TBlz = TBank
|
|
|
|
End Sub
|
|
|
|
Private Sub TBlz_Exit(Cancel As Integer)
|
|
|
|
TBank = TBlz
|
|
|
|
End Sub |