![]() |
FlowFact - Entwicklungstools |
![]() |
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 |