//0,"Proc.sci","Proc.sci","Specjalne",4,1.0.2,SYSTEM
string sub WartosciProcedury(long idprac, String dataOd, String dataDo)
int j
InfoPrac CurPrac
Pracownik(CurPrac, idprac)

for j = 1 to j >= size(b1)
   Select Case b1(j)
   Case "FimaNrLokalu"
      if firma.nrlokalu then
         WartosciProcedury = " m. "+firma.nrlokalu
      else
         WartosciProcedury = " "
      endif
   Case "Pan"
      if CurPrac.plec !="M" then
            WartosciProcedury = "Pani"
      else
            WartosciProcedury = "Pan"
      endif
   Case "Pana"
      if CurPrac.plec !="M" then
            WartosciProcedury = "Panią"
      else
            WartosciProcedury = "Pana"
      endif

   Case "Panu"
      if CurPrac.plec !="M" then
            WartoscProcedury = "Pani"
      else
            WartoscProcedury = "Panu"
      endif

   Case "pracownik"
      if CurPrac.plec !="M" then
            WartosciProcedury = "pracownica"
      else
            WartosciProcedury = "pracownik"
      endif
   Case "otrzymałem"
      if CurPrac.plec !="M" then   
            WartoscProcedury = "otrzymałam"
      else
            WartoscProcedury = "otrzymałem"
      endif
   Case "TytułRaportu"
            WartosciProcedury = sZed(2)
   Case "DataRaportu"
            WartosciProcedury = sZed(1)

   #include"UserProc.sci"
   Case Else
      WartosciProcedury = b1(j)
      message "Procedura opisana hasłem |"+b1(j)+"| nie istnieje"
   EndSelect
   bW1(j) = WartosciProcedury
next j
endsub