Re: adres e-mail z kartoteki pracownika
Witam,
Przerobiłem to delikatnie:
Kod:
string sErrTylkoZOknaPrac = "Raport można wywołać tylko z okna pracowników!{{icon=s}}"
long idgrupy = val( Arg0 )
int typ = val( Arg1 )
if !idgrupy && !typ then message sErrTylkoZOknaPrac : error ""
SetGroup(idgrupy, typ, TR_PRACOWNICY, okres())
HRMgr hMgr
HRComponent hComp
HRValue hVal
Int ValIndex
long IdSk
string Mail
String GetAttrAt
InfoPrac prac
long idprac = GetFirst()
if !(IdSk = IdSkladnika("E-mail pracownika")) then message "Błąd"
while idprac
hMgr.SetEmpId(idprac)
hMgr.AddHRComponent(IdSk)
hMgr.LoadValues("","")
hMgr.GetComponent(hComp,IdSk)
print "Adres:", lf
if hComp.GetValuesCount() > 0 then
hComp.GetValue(hVal,hComp.GetValuesCount(),hComp.GetAttrIndexById(14513))
Mail = hVal.strValue
print Mail, lf
else
print "Brak Adresu", lf
endif
if idprac = GetNext() then LF
wend
ale mam tu pewinen problem.
Taką mam sytuację:
Pracownik 1 - adres
Pracownik 2 - adres
Pracownik 3 - BRAK
Pracownik 4 - adres
powyższy kod w momencie napotkania braku adresu (pracownik 3) następnym pracownikom nie pobiera adresu.
Ma ktoś jakiś pomysł co jest nie tak?
(1)