![]() |
FlowFact - Entwicklungstools |
![]() |
Sub | cmd_Create_Vertrag_Click() |
Public Sub cmd_Create_Vertrag_Click() Dim strInput As String Dim strDsn As String Dim strAdNehmerDsn As String Dim strEMSKDsn As String Dim strVertragsnummer As String Dim strIntern As String Dim strNotiz As String strInput = InputBox("Bitte geben Sie einen Vertrag in der Form 'Vertragsnummer, Intern, Notiz' ein.", "Akte anlegen", "EKW4711/2005,TestVertrag,Das ist ein automatisch angelegter Vertrag") strVertragsnummer = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",") strIntern = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",") strNotiz = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",") strEMSKDsn = m_oFFDeveloper.EMSK_FindDsnByName("TestEingabehilfe") strAdNehmerDsn = m_oFFDeveloper.AD_FindDSN("IDX_Firma Like 'TestFirma%'", "Angelegt DESC") strDsn = m_oFFDeveloper.VERTRAEGE_Create(strVertragsnummer, strIntern, strNotiz, strEMSKDsn, strAdNehmerDsn) m_oFFDeveloper.AKTEN_ShowDSN strDsn End Sub |