mojaSymfonia FORUM
https://forum.mix-soft.pl/

KD jak wyciągnąć daty z elementów kadrowych
https://forum.mix-soft.pl/viewtopic.php?f=15&t=2839
Strona 1 z 1

Autor:  strzaleon [ 2011-02-15, 15:41 ]
Tytuł:  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 2864 razy ]

Autor:  wrob [ 2011-02-15, 20:50 ]
Tytuł: 

A podpisik z nazwa firmy to beeeeee :)

Autor:  strzaleon [ 2011-02-16, 14:01 ]
Tytuł: 

:oops: nazwa firmy?? jaka nazwa firmy :mrgreen: To może teraz jakaś pomoc?

Autor:  TS [ 2011-02-16, 16:03 ]
Tytuł: 

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.

Autor:  strzaleon [ 2011-02-17, 11:41 ]
Tytuł: 

Grunt to uważnie czytać dokumentację :oops: Wielkie dzięki TS punkt dla ciebie.

Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/