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 3779 razy ]
|
|