// ***************************************************************************
// *                                                                         *
// * Składnik oblicza ilość dni urlopu ojcowskiego na podstawie ewidencji    *
// * nieobecności. Tworzy zapisy w kartotece zasiłkowej  systemowej          *
// * Podaje ilość dni nieobecności z powodu urlopu ojcowskiego,              *
// * w tym również wynikających z korekty                                    *                           
// *                                                                         *
// *  7.06.2020 WAPRO (Dział Rozwoju Oprogramowania)                         *
// ***************************************************************************

// Zerowanie zmiennych używanych przez algorytm dni nieobecności
// związananych z urlopem macierzyńskim.
Call Zerowanie zmiennych

StartNieobecności(data_1)    //pętla po nieobecnościach od początku miesiąca
loop
  NastępnaNieobecność()
  if Eof() or Nieobecność(Data Od) > ostatni //koniec jeżeli skończyły się
    break                           //nieobecności lub dotyczą nastepnego miesiąca
  end
  a1=Nieobecność(Data Od)
  a2=Nieobecność(Data Do)
  if a1<data_1            //ograniczenie poczatku nieobecności do poczatku
    a1=data_1             //miesiąca lub zatrudnienia pracownika
  end
  if a2>ostatni           //ograniczenia do końca miesiąca
    a2=ostatni
  end
  if Nieobecność (Kod Powodu)='F'
    if a1<=data_zwolnienia
      a2=Min(a2,data_zwolnienia)

  data_ciaglosci_przeszerg=Sprawdź ciągłość dla przeszeregowania (a2)
  k$=PobierzNieobecność(a2)
  if przeszeregowanie and ZawieraSię(data_przeszeregowania,a1,a2) and data_ciaglosci_przeszerg>=data_1
//***** przed przeszeregowaniem
    //INFO('przesz')
      ilosc_dni=data_przeszeregowania-1-a1+1               //ilość dni nieobecności
      //INFO(ilosc_dni)
      ilosc_dni_F=ilosc_dni_F+ilosc_dni
      Kartoteka zasiłkowa systemowa (Data od)=a1
      Kartoteka zasiłkowa systemowa (Data do)=data_przeszeregowania-1
      Kartoteka zasiłkowa systemowa (zasiłek)='macierzyński'
      Kartoteka zasiłkowa systemowa (Ilość dni)=ilosc_dni
      Kartoteka zasiłkowa systemowa (Nr choroby)=Nieobecność (Nr choroby)
      Kartoteka zasiłkowa systemowa (Procent zasiłku)=100
      Kartoteka zasiłkowa systemowa (zus)=1
      Kartoteka zasiłkowa systemowa (Numer listy)=Lista (Nr systemowy)
      Kartoteka zasiłkowa systemowa (kod)=Nieobecność (Kod Powodu)
      Kartoteka zasiłkowa systemowa (korekta)=0
      Kartoteka zasiłkowa systemowa (Stawka dzienna)=0
      Kartoteka zasiłkowa systemowa (rodzaj)='F ojcowski'
      Kartoteka zasiłkowa systemowa (Pomniejszenie)=0
      Add(Kartoteka zasiłkowa systemowa)

//***** po przeszeregowaniu

      ilosc_dni=a2-data_przeszeregowania+1               //ilość dni nieobecności
     //INFO(ilosc_dni)
      ilosc_dni_F=ilosc_dni_F+ilosc_dni
      Kartoteka zasiłkowa systemowa (Data od)=data_przeszeregowania
      Kartoteka zasiłkowa systemowa (Data do)=a2
      Kartoteka zasiłkowa systemowa (zasiłek)='macierzyński'
      Kartoteka zasiłkowa systemowa (Ilość dni)=ilosc_dni
      Kartoteka zasiłkowa systemowa (Nr choroby)=Nieobecność (Nr choroby)
      Kartoteka zasiłkowa systemowa (Procent zasiłku)=100
      Kartoteka zasiłkowa systemowa (zus)=1
      Kartoteka zasiłkowa systemowa (Numer listy)=Lista (Nr systemowy)
      Kartoteka zasiłkowa systemowa (kod)=Nieobecność (Kod Powodu)
      Kartoteka zasiłkowa systemowa (korekta)=0
      Kartoteka zasiłkowa systemowa (Stawka dzienna)=0
      Kartoteka zasiłkowa systemowa (rodzaj)='F ojcowski'
      Kartoteka zasiłkowa systemowa (Pomniejszenie)=0
      Add(Kartoteka zasiłkowa systemowa)
//****
  else  
      //INFO('no przesz')
      data_ciaglosci_przeszerg=0 //pg temp
      ilosc_dni=a2-a1+1               //ilość dni nieobecności
      ilosc_dni_F=ilosc_dni_F+ilosc_dni
      Kartoteka zasiłkowa systemowa (Data od)=a1
      Kartoteka zasiłkowa systemowa (Data do)=a2
      Kartoteka zasiłkowa systemowa (zasiłek)='macierzyński'
      Kartoteka zasiłkowa systemowa (Ilość dni)=ilosc_dni
      Kartoteka zasiłkowa systemowa (Nr choroby)=Nieobecność (Nr choroby)
      Kartoteka zasiłkowa systemowa (Procent zasiłku)=100
      Kartoteka zasiłkowa systemowa (zus)=1
      Kartoteka zasiłkowa systemowa (Numer listy)=Lista (Nr systemowy)
      Kartoteka zasiłkowa systemowa (kod)=Nieobecność (Kod Powodu)
      Kartoteka zasiłkowa systemowa (korekta)=0
      Kartoteka zasiłkowa systemowa (Stawka dzienna)=0
      Kartoteka zasiłkowa systemowa (rodzaj)='F ojcowski'
      Kartoteka zasiłkowa systemowa (Pomniejszenie)=0
      Add(Kartoteka zasiłkowa systemowa)
//****
  end //not przeszeregowaie
    end
  end
end

[]=ilosc_dni_F+[Korekta ilości dni urlopu ojcowskiego]

// ***************************************************************************
// *                                                                         *
// *                       P O D P R O C E D U R Y                           *
// *                                                                         *
// ***************************************************************************

Zerowanie zmiennych:

  //zmienna podaje ilość nieobecności z powodu urlopu macierzyńskiego
  ilosc_dni_F=0

  ilosc_dni=0
//koniec Zerowanie zmiennych