![]() |
FlowFact - Entwicklungstools |
![]() |
Function | AD_Create(Optional ByVal strFirma As String = "", _ |
strFirma: Firmenname strName: Vor- und Nachname; Der Nachname wird zusätzlich im Feld IDX_NAME gespeichert strStraße: Straßenname strPLZ: Postleitzahl; die Länderangabe kann vor der PLZ angegeben werden z.B. Österreich 1234 strOrt: Ortsname strNotiz: Inhalt des Notizfeldes strRootAdDsn: Datensatznummer (DSN) der übergeordneten verknüpften Adresse (Adressbaum) Rückgabewert: Datensatznummer (DSN) der Adresse oder 'LEER' Public Function AD_Create(Optional ByVal strFirma As String = "", _ Optional ByVal strName As String = "", _ Optional ByVal strStrasse As String = "", _ Optional ByVal strPLZ As String = "", _ Optional ByVal strOrt As String = "", _ Optional ByVal strNotiz As String = "", _ Optional ByVal strAdRootDsn As String) As String Dim rsAd As ADODB.Recordset Dim strMkmDsnList As String Dim strAdDsn As String Set rsAd = AD_New() rsAd("Firma").value = Mid(strFirma, 1, 254) rsAd("Name").value = Mid(strName, 1, 100) rsAd("Straße").value = Mid(strStrasse, 1, 254) rsAd("Land_Plz").value = Mid(strPLZ, 1, 50) rsAd("Ort").value = Mid(strOrt, 1, 30) rsAd("Notiz").value = strNotiz rsAd("AD_DSN").value = m_oUtil.SqlStrNull(strAdRootDsn) '-- Standard Berechtigung hinzufügen rsAd("ACL").value = m_oBase.BEN_StdACL '-- Update strAdDsn = rsAd("Dsn").value AD_Update rsAd '-- Standard Merkmale hinzufügen strMkmDsnList = AD_Merkmal_StdDsnCommaList() AD_Merkmal_Add strAdDsn, strMkmDsnList AD_Create = strAdDsn End Function |