Section("Zawartosc", "")
   {
      Section("","Rejestr", "REPEAT")
      {
         $klucz = $$klucz
         @@kwota = Sum2(Money([3]), Money([4]) )
         switch( rex([2], "[0-9/-]##") )
         {
         case "-5"
            $stawka1 = "0"
            break
         case else
            $stawka1 = [2]
            break
         }   
            $ABC = 1
            $netto1  = Money([3])
            $vat1    = Money([4])
            $brutto1= Sum2( $netto1, $vat1 )
         switch($$klucz)
         {
         case "FS"   //faktura sprzedaży
         case "RS"   //rachunek uproszczony sprzedaży
         case "PI"   //paragon
         case "ZW"   //zwrot ze sprzedaży detalicznej
            @@dokSp = 1 //to są dokumenty zakupu
            $kontonetto  = Def("Konto_sp_netto")
            $kontovat    = Def("konto_sp_vat")
            $kontobrutto = Def("konto_sp_brutto")
            break
         case "FZ"   //faktura zakupu
         case "RZ"   //rachunek uproszczony zakupu
            $$nazwa = @@nazwaDokZak //dla zakupów nazwa własna jest [7]
            $kontonetto  = Def("Konto_zak_netto")
            $kontovat    = Def("konto_zak_vat")
            $kontobrutto = Def("konto_zak_brutto")
            $$datawpl = $$datadok
            break
         case "KFZ"   //korekta faktury zakupu
         case "KRZ"   //korekta rachunku uproszczonego zakupu
            //tu należy wpisać numery kont dla tych typów dokumentu
            $kontonetto  = Def("Konto_zak_netto")
            $kontovat    = Def("konto_zak_vat")
            $kontobrutto = Def("konto_zak_brutto")
            $$datawpl = $$datadok
            break
         case "KFS"   //korekta faktury sprzedaży
         case "KRS"   //korekta rachunku uproszczonego sprzedaży
            //tu należy wpisać numery kont dla tych typów dokumentu
            $kontonetto  = Def("Konto_sp_netto")
            $kontovat    = Def("konto_sp_vat")
            $kontobrutto = Def("konto_sp_brutto")
            break
         case "MMp"   //przesuniecie międzymagazynowe - przychód
         case "MMw"   //przesuniecie międzymagazynowe - wydanie
         case "PZ"   //przychód magazynowy zewnętrzny
         case "WZ"   //rozchód magazynowy zewnętrzny
         case "PW"   //przychód magazynowy wewnętrzny
         case "RW"   //rozchód magazynowy wewnętrzny
         case "ZD"   //zamówienie do dostawcy
         case "ZK"   //zamówienie od klienta
         case "KP"   //kasa przyjmie
         case "KW"   //kasa wyda
         case "BP"   //bank przyjmie
         case "BW"   //bank wyda
         case "CE"   //cennik
         case "IW"   //Inwentaryzacja
         case else
            //dla tych dokumentów nie mamy kont
         }
      }
   }   

[ZAWARTOSC]
"oo",-5.0000,576.0000,0.0000,576.0000,576.0000,0.0000,576.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000

Section("","Rejestr", "REPEAT")
{
Makesec("rejestr"){
$klucz="FZ"
...
}
Makesec("rejestr"){
$klucz="FZOO"
...
}
}