DokumentSP{
   rodzaj_dok =sprzedaży
   kod =FK 7/2008                     
   nazwa =Faktura korygująca VAT
   grupacen =
   flag =
   data =2008-7-10
   datasp =2008-7-10
   typ_dk =FKV
   seria =sFKV
   kodMag =MAG
   kodKH =xxx
   khnazwa =xxx
   khadres =aaa
   NazwaKor =FK 7/2008                     
   DataKor =2008-7-10
   idDokKoryg =294
   idkorekt =0
   id =11
   khkodpocz =88-100
   kdmiasto =dsdsd
   khkodpocz =88-100
   khnip =adad
   khkrajkod =
   khkrajnazwa =adad
   kododkh =adad
   odnazwa =adad
   odadres =adad
   odmiasto =adad
   odkodpocz =adad
   rejest_platnosci =BANK
   forma_platnosci =PRZELEWEM W CIĄGU 14 DNI
   ODEBRANE =
   opis =Podwójnie wysłana f-ra
   rejestr_vat =rSKV
   nazwa_rejestru_vat =Sprzedaż korekty VAT
   typ_rejestru_vat =1
   Pozycja dokumentu{
      kod =
      opis =aaaaa180-54                                                                                                                                                                                                                                                 
      czyPoKorekcie =1
      jm =L
      jmwp =L
      ilosc =0.0000
      iloscwp =0.0000
      cenawal =23.44
      cena =23.4400
      wartNetto =0.00
      wartVat =0.00
      pkwiu =
      stvat =2
      typ_pozycji =0
   }

   Dokument korygowany{
      typ =0
      kod =152/2007                               
   }

   Dokument nadrzędny{
      typ =0
      kod =152/2007                               
   }

}

Section("DokumentSP", "DokumentSP")
{
   Info("Dokument: ", [kod])
   Info("Dokument id: ", [id])
   Info("Dokument idkorekt: ", [idkorekt])
   Info("Dokument iddokkoryg: ", [idDokKoryg])
   $kod    = [kod]
   $nazwa    = [nazwa]
   $numerWSerii = [numerWSerii]
   $kodMag = [kodMag]
   $data_wystawienia = [data]
   $data_sprzedazy = [datasp]
   $typ_dokumentu = [typ_dk]
   $seria = [seria]
   $khkod = [kodKH]
   $idkorekt = [idkorekt]
   $id = [id]
   $idDokKoryg = [idDokKoryg]
   $kodDokKoryg = [kodDokKoryg]
   $khnazwa = [khnazwa]
   IF( EXIST( "khdom") )
   {
      $khadres      = [khadres]
      $khdom   = [khdom]
      $khlokal= [khlokal]
   }
   ELSE
   {
      IF( REX([khadres], "-{*}({[0-9///-]##:b()|[A-Q]})(:b[//\\.,]|(m[,.]+)|():b{[0-9]##:b[A-Z]|()})|()$"))
      {
         $khadres      = @rex1
         $khdom   = @rex2
         $khlokal= @rex3
      }
      ELSE
         $khadres      = [khadres]
   }
   $khnip = [khnip]
   $khkodpocz = [khkodpocz]
   $khmiasto = [khmiasto]
   $khKrajKod = [khKrajKod]
   $khKrajNazwa = [khKrajNazwa]
   if ( !equal([kodOdKH], [kodKH]) )
   {
      $odkod = [kodOdKH]
      $odnazwa = [odnazwa]               
      IF( EXIST( "oddom") )
      {
         $odadres      = [odadres]
         $oddom   = [oddom]
         $odlokal= [odlokal]
      }
      ELSE
      {
         IF( REX([odadres], "-{*}({[0-9///-]##:b()|[A-Q]})(:b[//\\.,]|(m[,.]+)|():b{[0-9]##:b[A-Z]|()})|()$"))
         {
            $odadres      = @rex1
            $oddom   = @rex2
            $odlokal= @rex3
         }
         ELSE
            $odadres      = [odadres]
      }
      $odkodpocz = [odkodpocz]            
      $odmiasto = [odmiasto]               
   }
   switch([grupacen])
   {
      case "2"
      case "4"
      case "6"
      case "8"
      case "12"
         $od_brutto   = 1
         $ceny_brutto= 1
         break

      case "3"
      case "5"
      case "7"
      case "9"
      case "13"
         $od_brutto   = 0
         $ceny_brutto= 0
         break
   }

    $rejestr_platnosci = [rejestr_platnosci]
    $forma_platnosci = [forma_platnosci]
   $opis = [opis]
   $odebrane = [odebrane]
   // $rejestr_vat = [rejestr_vat]   
   $waluta = [waluta]
   $kurs = [kurs]
   Section("", "", "REPEAT")
   {
      switch( Translate( Name(), "L") )
      {
      case "pozycja dokumentu"
         if ( !equal([typ_pozycji], "2") )   // jeśli nie jest to element kompletu
         {
            MakeSec("Pozycja dokumentu")
            {
               if(equal([kod], ""))
               {
                  $sww   = [sww]
                  $jm      = [jm]
                  $opis   = [opis]
                  $vat   = [stvat]
               //   $sww   = [opisdod]
                  $PKWiU   = [pkwiu]
                  $cena   = [cena]
               }
               else
               {
                  $kod = [kod]
                  $cena = [cena]
               }

               $czyPoKorekcie = [czyPoKorekcie]
               $ilosc_ewid = [ilosc]
               Section( "Nazwa_Dl", "Nazwa_Dl", "REPEAT")
               {
                  $opis = [opis]
               }
            }
         }
         break
         
         case "korekta dokumentu"
            MakeSec("Korekta dokumentu")
            {
               $typ   = [typ]
               $kod   = [kod]
            }
            break
         case "dokument korygowany"
            MakeSec("Dokument korygowany")
            {
               $typ   = [typ]
               $kod   = [kod]
            }
            break
         case "dokument nadrzędny"
            MakeSec("Dokument nadrzędny")
            {
               $typ   = [typ]
               $kod   = [kod]
            }
            break
         case "dokument podrzędny"
            MakeSec("Dokument podrzędny")
            {
               $typ   = [typ]
               $kod   = [kod]
            }
            break

         case "dokument powiązany"
            MakeSec("Dokument powiązany")
            {
               $typ   = [typ]
               $kod   = [kod]
               $ok      = [ok]

               Section("", "", "REPEAT")
               {
                  switch( Translate( Name(), "L") )
                  {
                  case "pozycja dokumentu"
                     MakeSec("Pozycja dokumentu")
                     {
                        $lpMZ = [lpMZ]
                        $lpDP = [lpDP]
                        $kodTW = [kodTW]
                     }
                     break
                  }
               }
            }
            break

      case "notatka_dl"
         MakeSec("Notatka_Dl")
         {
            $opis      = [opis]
         }
         break
      }
   }
}