Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2024-11-26, 04:59x



Odpowiedz w temacie  [ Posty: 5 ] 
KD jak wyciągnąć daty z elementów kadrowych 
Autor Wiadomość

Rejestracja: 2011-02-07, 13:42
Posty: 7
Post 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
Przebieg zatrudnienia daty.JPG [ 83.56 KiB | Przeglądany 2887 razy ]
2011-02-15, 15:41
Wyświetl profil
Autor Wiadomość
 


Ekspert
Ekspert
Awatar użytkownika

Rejestracja: 2008-04-18, 18:52
Posty: 5169
Pomógł: 59
Post 
A podpisik z nazwa firmy to beeeeee :)


2011-02-15, 20:50
Wyświetl profil

Rejestracja: 2011-02-07, 13:42
Posty: 7
Post 
:oops: nazwa firmy?? jaka nazwa firmy :mrgreen: To może teraz jakaś pomoc?


2011-02-16, 14:01
Wyświetl profil

Rejestracja: 2008-10-16, 20:50
Posty: 65
Post 
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
Wyświetl profil

Rejestracja: 2011-02-07, 13:42
Posty: 7
Post 
Grunt to uważnie czytać dokumentację :oops: Wielkie dzięki TS punkt dla ciebie.


2011-02-17, 11:41
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 5 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. więcej widocznych elementów kadrowych

w Programy Kadrowo Płacowe

baszuk4

1

2462

2017-07-12, 19:59

szepczący Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. KD ERP Extra 2015 uzupełnianie elementów kadrowych

w Programy Kadrowo Płacowe

MGK

1

2747

2015-01-07, 13:25

Jarek75 Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Czy ktoś potafi wyjasnić... - klasy elementów kadrowych

w Programy Kadrowo Płacowe

wojtek

5

3910

2011-12-12, 14:20

user Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Jak wyciągnąc dane z uzgodnień ? FKP

w Programowanie

dragonx21

4

2511

2011-09-06, 12:57

dragonx21 Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 8 gości


Nie możesz tworzyć nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz dodawać załączników

Szukaj:
Przejdź do:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Support forum phpbb by phpBB Assistant