| Autor |
Wiadomość |
|
Mix-soft.pl
|
|
|
|
TS
Rejestracja: 2008-10-16, 20:50
Posty: 65
|
To że nie ma w dokumentacji to nieznaczy że nie działa ...:)
_________________
pozdrawiam
TS
|
| 2008-11-03, 10:51 |
|
|
|
tatanka
Rejestracja: 2008-08-06, 12:38
Posty: 331
|
Domyślam się  . Ale jak próbuję wywołać tą funkcję to dostaję komunikat "Sub or Function not defined". Może nie mam jakiejś referencji dodanej do swojego projektu albo jakieś przekłamanie się wdarło w nazwę funkcji ??
_________________
Pozdr
TaTanka
|
| 2008-11-03, 12:09 |
|
|
|
TS
Rejestracja: 2008-10-16, 20:50
Posty: 65
|
Set oDefZdarz = FindDefZdarzenia("Nadgodziny")
Teraz powinno działać... :)
_________________
pozdrawiam
TS
|
| 2008-11-04, 11:27 |
|
|
|
tatanka
Rejestracja: 2008-08-06, 12:38
Posty: 331
|
Kurcze niestety mam komunikat że tej funkcji też nie ma.
_________________
Pozdr
TaTanka
|
| 2008-11-04, 11:39 |
|
|
|
TS
Rejestracja: 2008-10-16, 20:50
Posty: 65
|
No dobra zrobimy inaczej .... przygotuje całego sbc z przykładowym importem.... :)
Bo tak to będziemy jeszcze tygodniami pisać ..:)
_________________
pozdrawiam
TS
|
| 2008-11-04, 11:41 |
|
|
|
tatanka
Rejestracja: 2008-08-06, 12:38
Posty: 331
|
ok. Dzięki.
_________________
Pozdr
TaTanka
|
| 2008-11-04, 11:42 |
|
|
|
tatanka
Rejestracja: 2008-08-06, 12:38
Posty: 331
|
Witam,
Pytanko do TS : czy może dysponujesz już przykładem inicjalizacji Set oDefZdarz=??
Może powinienem użyć coś takiego :
Set oDefZdarz=wybranafirma.zdarzenia. ?? i co dalej
_________________
Pozdr
TaTanka
|
| 2008-11-17, 15:19 |
|
|
|
TS
Rejestracja: 2008-10-16, 20:50
Posty: 65
|
Witam,
Sorki za tak długi okres oczekiwania. W załączeniu projekt w VBA. Jest on stworzony w celach edukacyjnych więc nie zawiera wielu zabezpieczeń przed błędnym działaniem :)
_________________
pozdrawiam
TS
|
| 2008-11-17, 17:11 |
|
|
|
tatanka
Rejestracja: 2008-08-06, 12:38
Posty: 331
|
Dzięki, bardzo mi to pomogło. Poleciał punkcik.
_________________
Pozdr
TaTanka
|
| 2008-11-17, 20:08 |
|
|
|
tatanka
Rejestracja: 2008-08-06, 12:38
Posty: 331
|
Witam ponownie.
Nie otwieram nowego tematu bo to pytanie jest trochę powiązane z poprzednimi.
Może ktoś dysponuje przykładem jak dodać nową wartość kadrową dla pracownika z poziomu VBA. Siedzę nad tym już kilka godzin za nic nie chce mi zadziałać. Końcowy kod poniżej, może ktoś coś podpowie bo brakuje mi pomysłów.
Cytuj: Set pracusie = WybranaFirma.pracownicy
pracusie.UstawWarunki ("Id = 20159") // dla przykładu
Set DaneKadr = pracusie.pracownik(0).DaneKadrowe
DaneKadr.WyczyscKolekcje
DaneKadr.DodajElement ("adres zameldowania") //dla przykładu
DaneKadr.DodajDanaKadrowa 0, "2008-11-25", "2008-11-25"
I chyba znowu mi czegoś brakuje 
_________________
Pozdr
TaTanka
|
| 2008-11-26, 00:30 |
|
|
|
TS
Rejestracja: 2008-10-16, 20:50
Posty: 65
|
Urlop był długi ale się skończył :(
Osobiscie robię to przez XML i również w VBA (prostrza, szybsza i mniej podatna na błędy)
Poniżej kod w VBA. Zmieniłe z adresu zameldowania na adres do korespondencji aby pokazać działający kod. W poprzednim przypadku trzeba zrobić obsługę nakładajacych się wartości.
Dim pracusie As MxKdPracownicy
Dim DaneKadr As MxKdDaneKadrowe
Dim WartKadrZ As MxKdWartoscKadrowaZgrupowana
Set pracusie = WybranaFirma.Pracownicy
pracusie.UstawWarunki ("Id = 20000") 'dla przykładu
Set DaneKadr = pracusie.Pracownik(0).DaneKadrowe
DaneKadr.WyczyscKolekcje
DaneKadr.DodajElement ("Adres do korespondencji") 'dla przykładu
Set WartKadrZ = DaneKadr.DodajWartoscKadrowa(0, 0, "2008-11-25", "2008-11-25")
WartKadrZ.Wartosc(0).Wartosc = "UlicaTest"
WartKadrZ.Wartosc(1).Wartosc = "NrDomuTest"
DaneKadr.ZapiszZmiany
_________________
pozdrawiam
TS
|
| 2008-12-10, 16:12 |
|
|
|
tatanka
Rejestracja: 2008-08-06, 12:38
Posty: 331
|
Dzięki za odpowiedź.
A może jeszcze podpowiesz coś do tego wątku ?
http://forum.mojasymfonia.pl/viewtopic.php?t=442
Bo nadal nie wiem czy można to oprogramować.
I jeszcze raz dziękuję za pomoc.
_________________
Pozdr
TaTanka
|
| 2008-12-12, 12:09 |
|
|
