strzaleon
Rejestracja: 2011-02-07, 13:42 Posty: 7
|
KD jak wyciągnąć daty z elementów kadrowych
Witam
W jaki sposób można wyciągnąć za pomocą AmBasica daty (załącznik) z danych kadrowych np. z elementu: "Okresy zatrudnienia i przerw u poprzednich pracodawców" jeżeli oczywiście okresów zatrudnienia jest więcej niż jeden.
Kombinowałem w ten sposób:
string sErrTylkoZOknaPrac = "Raport można wywołać tylko z okna pracowników!{{icon=s}}"
//Strona 50,300,50,200
long idgrupy = val( Arg0 )
int typ = val( Arg1 )
if !idgrupy && !typ then message sErrTylkoZOknaPrac : error ""
SetGroup(idgrupy, typ, TR_PRACOWNICY, okres())
Int Czcionka3 = Font (40,"Arial CE")
Int st3 = Styl(Czcionka3,-1,"styl3")
HRMgr hMgr
HRComponent hComp
HRValue hVal
Int ValIndex
long IdSk, IdSk1
string D1
String GetAttrAt
String ValDate =""
String ValDate1 =""
InfoPrac prac
long idprac = GetFirst()
if !(IdSk = IdSkladnika("Okresy zatrudnienia i przerw u poprzednich pracodawców")) then message "Brak historii zatrudnienia"
if !(IdSk1 = IdSkladnika("Okresy zatrudnienia i przerw u poprzednich pracodawców")) then message "Brak historii zatrudnienia"
while idprac
hMgr.SetEmpId(idprac)
hMgr.AddHRComponent(IdSk)
hMgr.AddHRComponent(IdSk1)
hMgr.LoadValues("","")
hMgr.GetComponent(hComp,IdSk)
print "Nazwa pracodawcy:", LF
if hComp.GetValuesCount() > 0 then hComp.GetValue(hVal,hComp.GetValuesCount(),hComp.GetAttrIndexById(8372))
D1 = hVal.strValue
print D1, LF
if idprac = GetNext() then LF
wend
Ale to działa tylko na elementy, które posiadają ID, pola z tymi datami ich nie posiadają.
Z góry dzięki za wszelką pomoc.
Załączniki:
Przebieg zatrudnienia daty.JPG [ 83.56 KiB | Przeglądany 2876 razy ]
|
Autor |
Wiadomość |
Mix-soft.pl
|
|
|
wrob
Ekspert
Rejestracja: 2008-04-18, 18:52 Posty: 5169 Pomógł: 59
|
A podpisik z nazwa firmy to beeeeee :)
|
2011-02-15, 20:50 |
|
|
strzaleon
Rejestracja: 2011-02-07, 13:42 Posty: 7
|
nazwa firmy?? jaka nazwa firmy To może teraz jakaś pomoc?
|
2011-02-16, 14:01 |
|
|
TS
Rejestracja: 2008-10-16, 20:50 Posty: 65
|
Zerknij w dokument "Funkcje do formul i raportow.rtf" a dokładniej na HRValue ... zobaczysz tam że HRValue posiada więcej pól niż tylko StrValue :).
Ciebie zapewne interesują BeginDate i EndDate są to daty obowiązywania wartości kadrowej.
_________________ pozdrawiam
TS
|
2011-02-16, 16:03 |
|
|
strzaleon
Rejestracja: 2011-02-07, 13:42 Posty: 7
|
Grunt to uważnie czytać dokumentację Wielkie dzięki TS punkt dla ciebie.
|
2011-02-17, 11:41 |
|
|