FlowFact - Entwicklungstools

zurück

Sub - cmd_Create_Anfrage_Click
Anfrage anlegen

Anfrage in Datenbank anlegen und anschließend in Flowfact anzeigen
  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