Sfera - InsERT GT dla aplikacji 1.0
Metoda Dodaj
Dodaje nowego kontrahenta do kolekcji.
Składnia
wyrazenie.Dodaj(val)
wyrazenie
Wymagane wyrażenie, które zwraca obiekt Kontrahenci
Parametry
val
Variant. Argument opcjonalny, nieużywany. Może nie wystąpić, lub jeśli wystąpi, przyjąć dowolną wartość typu Variant.
Wartość zwracana
Obiekt typu Kontrahent.
Uwagi
Ustawienie symbolu kontrahenta na wartość NULL lub pusty string powoduje automatyczne nadanie numeru w polu symbol przy wykonaniu akcji zapisu obiektu.
Przykład 1
W przykładzie zaprezentowano sposób na dodanie nowego kontrahenta do Subiekta. Użytkownik dane kontrahenta wprowadza w standardowym oknie Subiekta.
Public Sub DodajKontrahentaOkno()
    Dim oSgt As Insert.Subiekt
    Dim oKh As Insert.Kontrahent
           
    'Uruchomienie Subiekta GT
    Set oSgt = UruchomSubiekta()
    'Ukrycie okna Subiekta GT
    oSgt.Okno.Widoczne = False
 
    'Dodanie nowego obiektu kontrahenta
    Set oKh = oSgt.Kontrahenci.Dodaj
                     
    'Wyświetlenie okna kartotekowego kontrahenta
    oKh.Wyswietl
   
    'Zamknięcie obiektu kontrahenta
    oKh.Zamknij
   
End Sub

W przykładzie wykorzystano funkcję UruchomSubiekta(), której kod jest podany w temacie Uruchom.
Przykład 2
W przykładzie zaprezentowano sposób na dodanie nowego obiektu reprezentującego kontrahenta w Subiekcie. Użytkownik dane kontrahenta (atrybuty obiektu) wprowadza w oknach dialogowych.
Public Sub DodajKontrahentaObiekt()
On Error GoTo ErrHandler
 
    'Deklaracja zmiennych obiektowych
    Dim oSgt As Insert.Subiekt
    Dim oKh As Insert.Kontrahent
       
    'Uruchomienie Subiekta GT
    Set oSgt = UruchomSubiekta()
 
    'Utworzenie nowego obiektu kontrahenta
    Set oKh = oSgt.Kontrahenci.Dodaj
    oKh.Typ = gtaKontrahentTypDostOdb
   
    'Wypełnienie danymi atrybutów obiektu kontrahenta
    oKh.Symbol = InputBox("Podaj symbol kontrahenta", "Symbol")
    oKh.Nazwa = InputBox("Podaj skróconą nazwę kontrahenta", "Nazwa")
    oKh.NazwaPelna = InputBox("Poadaj pełną nazwę kontrahenta", "NazwaPelna")
    oKh.NIP = InputBox("Podaj NIP kontrahenta", "NIP")
    oKh.Miejscowosc = InputBox("Podaj miejscowość kontrahenta", "Miejscowosc")
    oKh.Ulica = InputBox("Podaj ulicę kontrahenta", "Ulica")
    oKh.NrDomu = InputBox("Podaj numer domu kontrahenta", "NrDomu")
    oKh.NrLokalu = InputBox("Podaj numer lokalu kontrahenta", "NrLokalu")
   
    '{
   
    'Wypełnienie danymi kolejnych atrybutów obiektu
   
    '}
 
    'Zapisanie obiektu w bazie danych i zamknięcie obiektu
    oKh.Zapisz
    oKh.Zamknij
 
    Exit Sub
   
ErrHandler:
    MsgBox Err.Number & " - " & Err.Description
End Sub

W przykładzie wykorzystano funkcję UruchomSubiekta(), której kod jest podany w temacie Uruchom.
Zobacz także
metoda Istnieje
Stosuje się do
obiekt Kontrahenci
Wersja
Dostępność od wersji: 1.05 systemu InsERT GT. Biblioteka obiektowa: 1.0
© 2005-2020 InsERT S.A.