![]() |
FlowFact - Entwicklungstools |
![]() |
Sub | cmd_Create_Anfrage_Click() |
Public Sub cmd_Create_Anfrage_Click() Dim strInput As String Dim strDsn As String Dim strAdDsn As String Dim strNotiz As String Dim strEMSKDsn As String strInput = InputBox("Bitte geben Sie eine Anfrage in der Form 'Notiz' ein.", "Anfrage anlegen", "TestAnfrage") strNotiz = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",") strAdDsn = m_oFFDeveloper.AD_FindDSN("IDX_Firma Like 'TestFirma%'", "Angelegt DESC") strEMSKDsn = m_oFFDeveloper.EMSK_FindDsnByName("Häuser") strDsn = m_oFFDeveloper.ANF_Create(strAdDsn, strEMSKDsn, strNotiz, EART_KAUF) m_oFFDeveloper.ANF_ShowDSN strDsn End Sub |