FlowFact - Entwicklungstools

zurück

Sub - cmd_Create_Vertrag_Click
Vertrag anlegen

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