Code: Alles auswählen
'############# Formular speichern ###############
Sub Form_QueryClose( ByVal Cancel )
If Modus <> "ZentralDruck" then
If Api.GetPrivateProfileString ("Ärztliche Bescheinigung zum Praxisbesuch" , "Runden" ,True, (File)) then
Uhr1_Deactivate 0 , False
Uhr2_Deactivate 0 , False
End If
if PatForm.FormClose (cancel,Restore) ="Save" then
Dim Kartei
if modus = "Restore" then
Set Kartei= Patform.AlleFormulare.PruefBfGueltigkeit(Modus, KarteiZeile).Karteikarte
else
Set Kartei= Patform.AlleFormulare.PruefBfGueltigkeit(Modus).Karteikarte
end if
PatForm.AlleFormulare.Karteispeichern "Ärztliche Bescheinigung Sprechstundenbesuch","ABS"
End if
End if
End Sub
Sub DatumOrt_KeyDown( ByVal Key , ByVal Shift , ByVal Index )
Patform.AlleFormulare.ShowListe key, DatumOrt,"F4"
End Sub
Sub DatumOrt_DblClick( ByVal Index )
Patform.AlleFormulare.ShowListeMouse DatumOrt,"F4"
End Sub
Code: Alles auswählen
Sub Form_OnLoad
If Modus = "ZentralDruck" Then
Set MyProfil = CreateObject("TMFTools.FormularProfile")
Set MyProfil.Formular = Formular
Else
'--Aufruf von TMFTools.dll---
Set PatForm.Formular = Formular
Set PatForm.Behandlungsfall = Behandlungsfall
If NOT PatForm.FormularOK Then Formular.close: Exit Sub
If Not Restore Then
PatForm.FuelleKopf
FillDaten
WriteData
If Api.GetPrivateProfileString ("Anwesenheitsbescheinigung" , "Runden" ,True, (File)) then
Uhr1_Deactivate 0 , False
Uhr2_Deactivate 0 , False
Formular.print
End If
Uhr1.SetFocus
End If
if modus = "KomplexRun" then
dim cKmplx
Set cKmplx = CreateObject("TMFtools.cKomplex")
Set cKmplx.ParentClass = PatForm
cKmplx.start
end if
End If
End Sub