#format  "AMS"  //
#Disable  "1"  //poziom ostrzeżeń (1 - bez ostrzeżeń o pustych polach)

Section("Kontrahent", "Kontrahent")
{
  $klucz = [pozycja]
  $skrot = [pozycja]
  $pozycja = [pozycja]
  $kod = [kod]
  $nazwa = [nazwa]
  $imie = [imie]
  $nazwisko = [nazwisko]
  $miejscowosc= [miejscowosc]
  $ulica = [ulica]
  $dom   = [dom]
  $lokal   = [lokal]
  $kodpocztowy   = [kodPocztowy]
  $pesel = [pesel]
  $nip = [nip]
  $w_banku1 = [w_banku1]
  $rachunek1 = [rachunek1]
  $telefon1 = [telefon1]
  $email = [email]
  $uwagi = [uwagi]
  $aktywny = [aktywny]
  Section( "kraj", "kraj")
  {
    $symbol = [symbol]
  }
}

Kontrahent{
  pozycja =3001
  kod =Kowalska Agnieszka 11111111116
  nazwa =Kowalska Agnieszka 11111111116
  imie =Agnieszka
  nazwisko =Kowalska
  miejscowosc =Warszawa
  ulica =nowotki
  dom =1
  lokal =
  kodPocztowy =11-100
  pesel =77010111111
  nip =7311442530
  w_banku1 =mBank
  rachunek1 =11114020040000360000000000
  telefon1 =0783482520
  email =ppp@ppp.pl
  uwagi =Numer umowy: 1
  aktywny =1
  kraj{
  symbol =PL
  }
}

#format  "AMS"
#Disable  "0"

Section("dokument", "")
{
  MakeSec("dokument")
  {
    Info("Wczytywany dokument: ", [symbol])
   
    $klucz      = [obslugujJak]
    $nazwa      = [symbol]
    $DataDok   = Date([dataDokumentu])
    $DataOper   = Date([dataOperacjiGospodarczej])
    $tresc   = [tresc]
   
    Section("", "", "REPEAT")
    {
      switch( Translate( Name(), "L") )
      {
      case "kontrahent"
        MakeSec("Kontrahent")
        {
          $klucz     = [khid]
          $nip = [nip]
          $kod =[nazwa]
        }   
        break

      case "zapis"
        MakeSec("zapis")
        {
          $strona      = Rex([strona], "MA", 1)
          $kwota      = [kwota]
          $konto      = [konto]
          if (equal([strona], "WN"))
          {
            $opis   = [opis]
          }
          $pozycja       = [pozycja]
        }
        break

      case "rejestr"
        MakeSec("rejestr")
        {
          $klucz      = [klucz]
          $okres      = [okres]
          $netto      = [netto]
          $vat        = [vat]
          $brutto      = [brutto]
          $stawka      = [stawka]
        }
        break
      }
    }
  }
}

Dokument{
  obslugujJak =FVS
  symbol =3001_45_152
  tresc =Faktura VAT 3001_45_152
  dataDokumentu = 2011-12-21
  dataOperacjiGospodarczej =2011-12-15

  kontrahent {
  khid =3001
  nip =7311442530
  nazwa =Kowalska Agnieszka 11111111116
  }         

  zapis {
  strona =WN
  kwota =35
  konto =201-3003
  pozycja =0
  opis =Rata leasingowa 1
  }   

  zapis {
  strona =MA
  kwota =28,46
  konto =701-3001
  pozycja =0
  }   

  zapis {
  strona =MA
  kwota =6,54
  konto =221-3001
  pozycja =0
  }   
 
  rejestr {
  klucz =rejestrSUM
  skrot =temp
  stawka =23
  okres =2012-01-15
  netto =28,46
  vat =6,54
  brutto =35
  stawka =23
  }
 
  zapis {
  strona =WN
  kwota =12
  konto =201-3001
  pozycja =1
  opis =Opłata wstępna
  }   

  zapis {
  strona =MA
  kwota =9,76
  konto =701-3001
  pozycja =1
  }   

  zapis {
  strona =MA
  kwota =2,24
  konto =221-3001
  pozycja =1
  }   

  rejestr {
  klucz =rejestrSUM
  skrot =temp
  stawka =23
  okres =2012-01-15
  netto =9,76
  vat =2,24
  brutto =12
  stawka =23
  }
}