#Format  "SDF"  //
#separator_01  ","  //
#data  "RRRRMMDD"  //
//#Typ_kodowania  "MAZOVIA"  //
#brutto  "201-2-1-k"




SECTION("", "Dokument")
{

   IF (EQUAL([1], "0"))
   {
      REX([2], "^?")
      

      IF (EQUAL("2", @rex0))
      {
         INFO("Dokument Korygujący")
         $klucz = [3]
         $nazwa = [4]
         $DataDok = [5]
         $DataOper = [6]
         $DataKor = [7]
         $tresc = [8]      
         $NazwaKor = [9]

         MAKESEC("Kontrahent")
         {
            
            $id = [10]
            $klucz = [10] // nip kontrahenta z kreskami
            @@kluczkth = $klucz
            $skrot = [12] // kod kontrahenta
            $nazwa = [12] // nazwa kontrahenta
            $nip = [11] // nip kontrahenta z kreskami
            $ulica = [13] // ulica
            $numerdomu = [14] // nr domu
            $numermieszk = [15]
            $kod = [16] // kod i poczta
            $miejscowosc = [17] // miejscowość
            $idkraj = [18] /////
            $krajKod = [19]
         
         }

         MAKESEC("Rejestr")
         {

            $kontonetto    = [31]
            $kontovat    = "221-1"
            $kontobrutto   = CAT(DEF("brutto"),@@kluczkth)
            $klucz      = [3]
            $okres       = [5]
            $stawka1   = 23
            $stawka2   = 8
            $stawka3   = 4
            $stawka4   = 0
            $netto1      = MONEY([21])
            $vat1      = MONEY([22])
            $brutto1   = Sum2([21],[22])   
            $netto2      = MONEY([23])
            $vat2      = MONEY([24])
            $brutto2   = Sum2([23],[24])
            $netto3      = MONEY([25])
            $vat3      = MONEY([26])
            $brutto3   = Sum2([25],[26])
            $netto0      = MONEY([27])
            $nettowolne   = MONEY([28])
            $bruttowolne   = Sum2([27],[28])
            $netto0      = MONEY([29])
            $nettowolne   = MONEY([30])



         }   



         MAKESEC("transakcja")
         {
            $IdDlaRozliczen = -1
            $termin    = [20]
            $ustawowe   = 1
         }



      }
      ELSE
      {
         INFO("Dokument sprzedaży")
         $klucz = [3]
         $nazwa = [4]
         $DataDok = [5]
         $DataOper = [6]
         
         $tresc = [8]   
         
         

         MAKESEC("Kontrahent")
         {
            
            $id = [10]
            $klucz = [10] // nip kontrahenta z kreskami
            @@kluczkth = $klucz
            $skrot = [12] // kod kontrahenta
            $nazwa = [12] // nazwa kontrahenta
            $nip = [11] // nip kontrahenta z kreskami
            $ulica = [13] // ulica
            $numerdomu = [14] // nr domu
            $numermieszk = [15]
            $kod = [16] // kod i poczta
            $miejscowosc = [17] // miejscowość
            $idkraj = [18] /////
            $krajKod = [19]


         }

         MAKESEC("Rejestr")
         {

            $kontonetto    = [25]
            $kontovat    = "221-1"
            $kontobrutto   = CAT(DEF("brutto"),@@kluczkth)
            $klucz      = [3]
            $okres       = [5]
            $stawka1   = 23
            $stawka2   = 8
            $stawka3   = 4
            $stawka4   = 0
            $nazwa5      ="NP"
            $stawka5    = 0.0000
            $netto1      = MONEY([21])
            $vat1      = MONEY([22])
            $brutto1   = Sum2([21],[22])
            //$netto2      = MONEY([23])
            //$vat2      = MONEY([24])
            //$netto3      = MONEY([25])
            //$vat3      = MONEY([26])
            //$netto0      = MONEY([27])
            //$nettowolne   = MONEY([23]) // 28,29zw, 30,31 np
            $netto0   = MONEY([23])
            //$nettowolne   = MONEY([30])
            
            
            
         }   




         MAKESEC("transakcja")
         {
            $IdDlaRozliczen = -1
            $termin    = [20]
            $ustawowe   = 1
         }
         

      }


   }
   
   IF (EQUAL([1], "10"))
   {
      INFO("Dokument nie jest fakturą")
   }




   



}

0;1;WSU;080/06/2013;2013-06-05;2013-06-05;;PL/6/119998/1;;PAYPAL_PL;GB160264631;ff;3 Windsor Avenue;;;M336LY;Sale;5820;GB;2013-06-05;0;0;100;0;221-1;;;3

MAKESEC("Rejestr")
{

$kontonetto = [25]
$kontovat = "221-1"
$kontobrutto   = CAT(DEF("brutto"),@@kluczkth)
$klucz    = [3]
$okres = [5]
$stawka   = -2
$netto    = MONEY([21])
$vat = MONEY([22])
$brutto   = Sum2([21],[22])
}