Re: Okno wyboru rodzaju dokumentu zakupu - HANDEL
Aby nie być tylko takim co pyta to wrzucam od siebie kod
który kontroluje aktulany magazyn z tym do jakiego ma się zamiar zapisać.
Niestety ale kod nie realizuje dokładnie tego co miałby realizować bo
ustawienie aktualnego magazynu nie ma powiązania z tym jaki jest ustawiony magazyn w formularzu dokumentu
(a przecież zależy nam aby użytkownik zmienił ten właśnie magazyn w dokumencie a nie ten z dolnego paska...)
Tak czy inaczej może się komuś przyda kod:
Kod:
int Sub OnBeforeInsert(long lId)
Long MagazynSurowca_Kod = 98, MagazynKosztow_Kod = 99
int Przycisk_Surowiec, Przycisk_Koszta, Wartosc_Wyboru = 0
Long Aktywny_Magazyn = CurrentMag()
Form "Kontrola typu zakupu", 400, 100
Text "Proszę o potwierdzenie rodzaju wystawianego dokumentu zakupowego:", 20, 10, 340, 24
Przycisk_Surowiec = Button "Surowiec", 242, 35, 130, 24, MagazynSurowca_Kod
Przycisk_Koszta = Button "Koszta pośrednie", 20, 35, 130, 24, MagazynKosztow_Kod
Wartosc_Wyboru = ExecForm
If Wartosc_Wyboru != Aktywny_Magazyn Then
Message "Wybrany magazyn dla tego rodzaju dokumentu jest nieprawidłowy!\nZmień magazyn i spróbuj ponownie."
OnBeforeInsert = -6000
Else
OnBeforeInsert = 0
Endif
EndSub
PS. Oczywiście kody magazynów są u każdego inne więc proszę się nie dziwić że nie działa prawidłowo czy coś... ;P
