FlowFact - Entwicklungstools

zurück

Sub - cmd_Create_Akte_Click
Akte anlegen

Akte in Datenbank anlegen und anschließend in Flowfact anzeigen
  Sub cmd_Create_Akte_Click()  
 




Public Sub cmd_Create_Akte_Click()
    Dim strInput As String
    Dim strDsn As String
    Dim strEMSKDsn As String
    Dim strRubrum As String
    Dim strNotiz As String

    strInput = InputBox("Bitte geben Sie eine Akte in der Form 'Rubrum, Notiz' ein.", "Akte anlegen", "TestAkte,Das ist eine automatisch angelegte Akte")

    strRubrum = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",")
    strNotiz = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",")

    strEMSKDsn = m_oFFDeveloper.EMSK_FindDsnByName("TestEingabehilfe")
    strDsn = m_oFFDeveloper.AKTEN_Create(strEMSKDsn, strNotiz, strRubrum)

    m_oFFDeveloper.AKTEN_ShowDSN strDsn
End Sub