int attrDietaDzien
int attrKwota
int attrSHot
int attrDiety
int iAktualnyWiersz

HRMgr mgr
HRComponent comp
HRValue hval
string sDataOdUm
string sDataDoUm
float flDietaDzien
float fLDniUm

float fWynik = 0
date datod
date datdo
date dataUmOd
date dataUmDo
date dataBuf
date dataBuf2

GetCalcStatePeriod(datod,datdo)
if datod.Valid() then
   attrDietaDzien = this.GetAttrIndexById(GetParamId(1))


   if attrDietaDzien then
      flDietaDzien = this.GetValueAsFloat(0,attrDietaDzien)
   endif

   if flDietaDzien > 0 then

         
         iAktualnyWiersz = this.getcurrvalueindex()
         this.GetValue(hval,(iAktualnyWiersz-1),14)//this.GetValue(hval,2,14)      //Data Zakończenia dla wiersza z UMOWĄ
         sDataDoUm = hval.strvalue
         this.GetValue(hval,(iAktualnyWiersz-1),13)//this.GetValue(hval,2,13)   
         sDataOdUm = hval.strvalue

            if sDataDoUm == "" then
            MessageBox "Nie wprowadzono daty zakończenia umowy.\nWyliczenia mogą być błędne.\nPrzyjmuję datę końca miesiąca"
            dataBuf.FromStr(sDataOdUm)
            dataBuf.SetLastDayofMonth()
            sDataDoUm = dataBuf.ToStr()
            endif

                  dataUmOd.FromStr(sDataOdUm)
                  dataUmDo.FromStr(sDataDoUm)
      
                  fLDniUm = dataUmOd.DaysUntil(dataUmDo)   //Liczba dni przez które trwała umowa
                  
                  fWynik = fLDniUm*flDietaDzien                  
   endif
endif
   this.SetValueAsFloat(ZaokrPrecyzja(fWynik))

iAktualnyWiersz = this.getcurrvalueindex()