![]() |
FlowFact - Entwicklungstools |
![]() |
Function | ANF_Create(Optional ByVal strAdDsn As String = "", _ |
strAdDsn: Datensatznummer (DSN) der verknüpften Adresse strEMSKDsn: Datensatznummer (DSN) der Eingabehilfe strNotiz: Inhalt des Notizfeldes enumEART: 0=Kauf; 1=Miete; 2=Kauf/Miete lngAbteilung: Feldeingabe; siehe FlowFact-Hilfe zum Fenster ANF strManuell: Feldeingabe; siehe FlowFact-Hilfe zum Fenster ANF Rückgabewert: Datensatznummer (DSN) der Anfrage oder 'LEER' Public Function ANF_Create(Optional ByVal strAdDsn As String = "", _ Optional ByVal strEmskDsn As String = "", _ Optional ByVal strNotiz As String = "", _ Optional ByVal enumEART As ENUM_EART = EART_KAUF, _ Optional ByVal lngAbteilung As Long = 0, _ Optional ByVal strManuell As String = "") As String Dim rsANF As ADODB.Recordset Dim strMkmDsnList As String Dim strAnfDsn As String Set rsANF = ANF_New() rsANF("AD_Dsn").value = m_oUtil.SqlStrNull(strAdDsn) rsANF("EMSK_Dsn").value = m_oUtil.SqlStrNull(strEmskDsn) rsANF("Notiz").value = strNotiz rsANF("EART").value = enumEART rsANF("Abteilung").value = lngAbteilung rsANF("Manuell").value = Mid(strManuell, 1, 255) '-- Standard Berechtigung hinzufügen rsANF("ACL").value = m_oBase.BEN_StdACL '-- Update strAnfDsn = rsANF("Dsn").value ANF_Update rsANF '-- Standard Merkmale hinzufügen strMkmDsnList = ANF_Merkmal_StdDsnCommaList() ANF_Merkmal_Add strAnfDsn, strMkmDsnList ANF_Create = strAnfDsn End Function |