FRNewRow(0)
FRAddCol(-100,250,14,0,0)
FRDraw()
PlatWyd()
Notatka()
NotatkaRodz()

Dekretacje()

   if FRid==R_UPOWAZW || FRid==R_UPOWAZN  then      // 14-wyższe 15-niższe
      x=(FRSzer-1400)/4
      nPom = tabela 0,0,x,nl,700,nl,2*x,nl,700,nl
      tabela #nPom, at 0,0
         kolumna 2
         buf = Arg5 : sPom="sc2"
         if find regular "=-(^u$)|(upowa?nienie)" then
            buf="Dokument wystawiony na podstawie pisemnego upoważnienia kupującego"
         else
            if !buf then
               buf="nazwisko i podpis osoby upoważnionej do odebrania dokumentu"
            else
               buf="Odebrał(a): "+buf : sPom="sc3"
            endif
         endif
          SetStyl ( sPom )
         print at #X,#Y+210-80*(FRid==R_UPOWAZN );buf
         kolumna 4
         buf="nazwisko i podpis osoby upoważnionej do\nwystawienia dokumentu"   : sPom="sc2"
         if Arg4 then buf="Wystawił(a): "+Arg4 : sPom="sc3"
          SetStyl ( sPom )
         print at #X,#Y+210-80*(FRid==R_UPOWAZN );buf
      koniec
      y=str.pozycja(#B)-str.pozycja(#T)
      if bRamki then
         DrawLine at x,0,700,0,1 : DrawLine at x,y,700,0,1
         DrawLine at x,0,0,y,1 : DrawLine at x+700,0,0,y,1
         x=x*3+700
         DrawLine at x,0,700,0,1 : DrawLine at x,y,700,0,1
         DrawLine at x,0,0,y,1 : DrawLine at x+700,0,0,y,1
      endif
   endif

   if FRid==R_NAZWADOK then
      SetStyl ( bbc )
      pom =  TextHeight(sNazwaDok+"\nREFAKTURA") *(1+ ( BreakLine ( FRSzer, 1, 1, sNazwaDok) != Len( sNazwaDok ) ))
      print at #X,#Y+(FRwys-pom)/2;sNazwaDok
   endif

   //if FRid==R_PIECZEC  then
      //SetStyl ( nc )
      //SetFont ( nc )
      //print at #X,FRwys-40;"pieczęć firmy"
   //endif