// ***************************************************************************
// *                                                                         *
// *                                                                         *
// *                                                                         *
// *                                                                         *
// *  7.12.2017 WA-PRO (Administrator)                                       *
// ***************************************************************************
a4=WyróżnikListy (Zasiłek macierzyński z miesiąca)
a4=a4+WyróżnikListy (Zasiłek macierzyński urlop dodatkowy z miesiąca)
a4=a4+WyróżnikListy (Zasiłek macierzyński na urlopie wychowawczym)
a4=a4+WyróżnikListy (Zasiłek macierzyński urlop rodzicielski z miesiąca)

a1=WyróżnikListy (Ilość dni macierzyńskiego w miesiącu)
a1=a1+WyróżnikListy (Ilość dni dodatkowego macierzyńskiego w miesiącu)
a1=a1+WyróżnikListy (Ilość dni macierzyńskiego na wychowawczym)
a1=a1+WyróżnikListy (Ilość dni rodzicielskiego w miesiącu)
a2=ostatni-pierwszy+1

//proporcjonalna ulga podatkowa 
if a2<>a1
  a5=Round([Ulga podatkowa]/a2*a1,0.01)
else
  a5=[Ulga podatkowa]
end
a3=Round(Round(a4,1)*[Procent podatku]*0.01-a5,1)
//INFO(a2)
a3=a4-Max(a3,0) //zasiłek netto
//INFO(a3)


Clear(Dodatkowe informacje do zaś. macierzyńskiego)
Set(Dodatkowe informacje do zaś. macierzyńskiego)
loop
  Next(Dodatkowe informacje do zaś. macierzyńskiego)
  if eof() or Dodatkowe informacje do zaś. macierzyńskiego (Data od)>ostatni
    break
  end
  if Dodatkowe informacje do zaś. macierzyńskiego (Wyłączenie)=1
    if Porównaj okres z okresem (pierwszy, ostatni, Dodatkowe informacje do zaś. macierzyńskiego (Data od), Dodatkowe informacje do zaś. macierzyńskiego (Data do))
      a1=0  // podwyższenie wyłączone
      break
    end
  end
end

podwyzszenie=0
podwyzszenie_stawka=0
podwyzszenie_data1=0
podwyzszenie_data2=0
podwyzszenie_inni=0

if a1>0 and firma_zatrudniajaca$='powyżej 20 pracowników'
  Kwota zasiłku macierzyńskiego wypłaconego (Okres)=pierwszy
  Get(Kwota zasiłku macierzyńskiego wypłaconego)
  if found()
    podwyzszenie_inni=Kwota zasiłku macierzyńskiego wypłaconego (Kwota)
  end
  //limit
  if a1<a2
    a4=Round(1000/a2,0.01)
    //a4=Round(a4*a1,0.1)
    a4=Zaokrąglenie w górę(a4*a1*10)
    a4=a4/10
  else
    a4=1000
  end
  //INFO(a4)
  podwyzszenie=Max(a4-(a3+podwyzszenie_inni),0)
  podwyzszenie_stawka=podwyzszenie/a1
  podwyzszenie_data1=0
  podwyzszenie_data2=0
  if podwyzszenie>0
    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)='M' or Nieobecność (Kod Powodu)='H' or |
         Nieobecność (Kod Powodu)='Y'
        if a1<=data_zwolnienia
          a2=Min(a2,data_zwolnienia)

          if podwyzszenie_data1=0
            podwyzszenie_data1=a1
            podwyzszenie_data2=a2
            cycle
          else
            if podwyzszenie_data2+1=a1
               podwyzszenie_data2=a2
            else
               ilosc_dni=podwyzszenie_data2-podwyzszenie_data1+1
               Clear(Kartoteka zasiłkowa systemowa)
               Kartoteka zasiłkowa systemowa (Data od)=podwyzszenie_data1
               Kartoteka zasiłkowa systemowa (Data do)=podwyzszenie_data2
               Kartoteka zasiłkowa systemowa (zasiłek)='podwyższenie macierzyńskiego'
               Kartoteka zasiłkowa systemowa (Ilość dni)=ilosc_dni
               Kartoteka zasiłkowa systemowa (Nr choroby)=''
               Kartoteka zasiłkowa systemowa (Procent zasiłku)=0
               Kartoteka zasiłkowa systemowa (zus)=1
               Kartoteka zasiłkowa systemowa (Numer listy)=Lista (Nr systemowy)
               Kartoteka zasiłkowa systemowa (kod)=''
               Kartoteka zasiłkowa systemowa (korekta)=0
               Kartoteka zasiłkowa systemowa (Kwota podwyższenia)=podwyzszenie_stawka*ilosc_dni
               Kartoteka zasiłkowa systemowa (Stawka dzienna)=0
               Kartoteka zasiłkowa systemowa (rodzaj)='M podwyższenie'
               Kartoteka zasiłkowa systemowa (Pomniejszenie)=0
               Kartoteka zasiłkowa systemowa (Wspolczynnik)=0
               Add(Kartoteka zasiłkowa systemowa)
               podwyzszenie_data1=0
               podwyzszenie_data2=0
            end
          end
        end
      end
    end
    if podwyzszenie_data1>0
       ilosc_dni=podwyzszenie_data2-podwyzszenie_data1+1               //ilość dni nieobecności
       Clear(Kartoteka zasiłkowa systemowa)
       Kartoteka zasiłkowa systemowa (Data od)=podwyzszenie_data1
       Kartoteka zasiłkowa systemowa (Data do)=podwyzszenie_data2
       Kartoteka zasiłkowa systemowa (zasiłek)='podwyższenie macierzyńskiego'
       Kartoteka zasiłkowa systemowa (Ilość dni)=ilosc_dni
       Kartoteka zasiłkowa systemowa (Nr choroby)=''
       Kartoteka zasiłkowa systemowa (Procent zasiłku)=0
       Kartoteka zasiłkowa systemowa (zus)=1
       Kartoteka zasiłkowa systemowa (Numer listy)=Lista (Nr systemowy)
       Kartoteka zasiłkowa systemowa (kod)=''
       Kartoteka zasiłkowa systemowa (korekta)=0
       Kartoteka zasiłkowa systemowa (Kwota podwyższenia)=podwyzszenie_stawka*ilosc_dni
       Kartoteka zasiłkowa systemowa (Stawka dzienna)=0
       Kartoteka zasiłkowa systemowa (rodzaj)='M podwyższenie'
       Kartoteka zasiłkowa systemowa (Pomniejszenie)=0
       Kartoteka zasiłkowa systemowa (Wspolczynnik)=0
       Add(Kartoteka zasiłkowa systemowa)
    end
    podwyzszenie_data1=0
    podwyzszenie_data2=0
    Clear(Zasiłek macierzyński w okresie wychowawczego)
    Set(Zasiłek macierzyński w okresie wychowawczego)
    loop
      Next(Zasiłek macierzyński w okresie wychowawczego)
      if eof() or Zasiłek macierzyński w okresie wychowawczego (Data od)>ostatni
        break
      end
      a1=Zasiłek macierzyński w okresie wychowawczego (Data od)
      a2=Zasiłek macierzyński w okresie wychowawczego (Data do)
      if Porównaj okres z okresem (a1, a2, pierwszy, ostatni)
        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 a1<=data_zwolnienia
          if podwyzszenie_data1=0
            podwyzszenie_data1=a1
            podwyzszenie_data2=a2
            cycle
          else
            if podwyzszenie_data2+1=a1
               podwyzszenie_data2=a2
            else
               ilosc_dni=podwyzszenie_data2-podwyzszenie_data1+1
               Clear(Kartoteka zasiłkowa systemowa)
               Kartoteka zasiłkowa systemowa (Data od)=podwyzszenie_data1
               Kartoteka zasiłkowa systemowa (Data do)=podwyzszenie_data2
               Kartoteka zasiłkowa systemowa (zasiłek)='podwyższenie macierzyńskiego'
               Kartoteka zasiłkowa systemowa (Ilość dni)=ilosc_dni
               Kartoteka zasiłkowa systemowa (Nr choroby)=''
               Kartoteka zasiłkowa systemowa (Procent zasiłku)=0
               Kartoteka zasiłkowa systemowa (zus)=1
               Kartoteka zasiłkowa systemowa (Numer listy)=Lista (Nr systemowy)
               Kartoteka zasiłkowa systemowa (kod)=''
               Kartoteka zasiłkowa systemowa (korekta)=0
               Kartoteka zasiłkowa systemowa (Kwota podwyższenia)=podwyzszenie_stawka*ilosc_dni
               Kartoteka zasiłkowa systemowa (Stawka dzienna)=0
               Kartoteka zasiłkowa systemowa (rodzaj)='M podwyższenie'
               Kartoteka zasiłkowa systemowa (Pomniejszenie)=0
               Kartoteka zasiłkowa systemowa (Wspolczynnik)=0
               Add(Kartoteka zasiłkowa systemowa)
               podwyzszenie_data1=0
               podwyzszenie_data2=0
            end
          end
        end
      end
    end
    if podwyzszenie_data1>0
       ilosc_dni=podwyzszenie_data2-podwyzszenie_data1+1               //ilość dni nieobecności
       Clear(Kartoteka zasiłkowa systemowa)
       Kartoteka zasiłkowa systemowa (Data od)=podwyzszenie_data1
       Kartoteka zasiłkowa systemowa (Data do)=podwyzszenie_data2
       Kartoteka zasiłkowa systemowa (zasiłek)='podwyższenie macierzyńskiego'
       Kartoteka zasiłkowa systemowa (Ilość dni)=ilosc_dni
       Kartoteka zasiłkowa systemowa (Nr choroby)=''
       Kartoteka zasiłkowa systemowa (Procent zasiłku)=0
       Kartoteka zasiłkowa systemowa (zus)=1
       Kartoteka zasiłkowa systemowa (Numer listy)=Lista (Nr systemowy)
       Kartoteka zasiłkowa systemowa (kod)=''
       Kartoteka zasiłkowa systemowa (korekta)=0
       Kartoteka zasiłkowa systemowa (Kwota podwyższenia)=podwyzszenie_stawka*ilosc_dni
       Kartoteka zasiłkowa systemowa (Stawka dzienna)=0
       Kartoteka zasiłkowa systemowa (rodzaj)='M podwyższenie'
       Kartoteka zasiłkowa systemowa (Pomniejszenie)=0
       Kartoteka zasiłkowa systemowa (Wspolczynnik)=0
       Add(Kartoteka zasiłkowa systemowa)
    end
  end
end
[]=podwyzszenie