Terminzettel in F3 abspeichern

Fragen, Anregungen oder Tipps und Tricks? Hier ist der erste Anlaufpunkt.
Nicht sicher, wo ein Thema hingehört? Hier hinein - wir kümmern uns! :)

Moderator: Forum Moderatoren

Forumsregeln
TM-Startforum - "offen für alle Themen".
Beiträge, die in einen anderen Bereich passen, werden bei Bedarf verschoben.
Antworten
Benutzeravatar
Nobbie
Beiträge: 1647
Registriert: Samstag 27. Juli 2013, 11:42
10
Bedankt: 1 time

Re: Terminzettel in F3 abspeichern

Beitrag von Nobbie »

Hier noch mal etwas übersichtlicher

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   
Gruß Nobbie

Ich werde keine frühe Turbomed - Downloadversion installieren
Antworten

Wer ist online?

Mitglieder in diesem Forum: Bing [Bot], Google [Bot] und 42 Gäste