INFO{
Wersja szablonu =21
}
Dokument{
   kod =FA/2598/2017/R
   obsluguj jak =FZK
   datadok =2017-11-07
   dataza =2017-11-08
   opis FK=/
   rezerwa1 =5913
   rezerwa3 =946
   Dane nabywcy{
      khid =AT
      khkod =AT
      khnazwa =AT GRZYMALA
      KhUlica =Sosnowska 5
      khmiasto =POZNAŃ
      khkodpocz =
      khnip =
   }
   kwota =7788.18
   waluta =
   wkwota =2128.79
   kurs =3.6585
   symbol FK =FZK
   NazwaKor =
   DataKor =
   FK nazwa =FA/2598/2017/R
   rodzaj_dok =zakupu
   naliczenie_VAT =
   Zapis{
      strona =WN
      kwota =6331.84
      konto =315
      IdDlaRozliczen =
      opis =/
      NumerDok =FA/2598/2017/R
      Pozycja =0
      ZapisRownolegly =
   }
   Zapis{
      strona =MA
      kwota =7788.18
      konto =202-K
      IdDlaRozliczen =
      opis =/
      NumerDok =FA/2598/2017/R
      Pozycja =0
      ZapisRownolegly =
   }
   Zapis{
      strona =WN
      kwota =1456.34
      konto =221-2
      IdDlaRozliczen =
      opis =/
      NumerDok =FA/2598/2017/R
      Pozycja =0
      ZapisRownolegly =
   }
   Rejestr{
      Skrot =rZPV
      Nazwa =Zakup VAT
      Rodzaj =1
      ABC =1
      metoda_VAT =0
      datarej =
      okres =
      stawka =23
      brutto =7788.18
      netto =6331.84
      vat =1456.34
      bruttoWaluta =2128.79
      nettoWaluta =1730.72
      vatWaluta =398.07
   }
   Transakcja{
      idDlaRozliczen =-1
      termin =2017-12-08
   }
}

#opis  "Dane z systemu Baseline", "*.TXT (Pliki tekstowe)"  //
#format  "AMS"  //
#opisy  "10"  //
#Disable  "1"  //poziom ostrzeżeń 1 (m.in. bez ostrzeżenia "Pole nie znalezione")
#POWIELONE_NAZWY  "1"  //0-zapisuje bez pytania; 1-pyta czy zapisać; 2-nie zapisuje

Section( "INFO", "")
{
}
Section( "Kontrahent", "Kontrahent")
{
   $autoinsert = 1
   $klucz = [id]
   $skrot = [kod]
   $nazwa = [nazwa]
   $miejscowosc = [miejscowosc]
   
   IF( EXIST( "dom") )
   {
      $ulica      = [ulica]
      $NumerDomu   = [dom]
      $NumerMieszk= [lokal]
   }
   ELSE
   {
      IF( REX([ulica], "-{*}({[0-9///-]##:b()|[A-Q]})(:b[//\\.,]|(m[,.]+)|():b{[0-9]##:b[A-Z]|()})|()$"))
      {
         $ulica      = @rex1
         $NumerDomu   = @rex2
         $NumerMieszk= @rex3
      }
      ELSE
         $ulica      = [ulica]
   }
   
   $kod = [kodpocz]
   $rejon = [rejon]
   
   //$statusUE = [statusUE]
   $nip = [nip]
   $regon = [regon]
   $pesel = [pesel]
   $telefon1 = [tel1]
   $telefon2 = [tel2]
   $telefax = [fax]
   $email = [email]
   $w_banku1 = [bnazwa] //miec na uwadze
   $rachunek1 = [bkonto]
   $fk_ident = [khfk]
   $zapas = [zapas] //miec na uwadze
   $krajKod = [krajKod]
   $krajNazwa = [krajNazwa] //miec na uwadze
   $aktywny = [aktywny]   
}
Section("Dokument", "Dokument")
{
   //@opisy = ""
   Info("Dokument: ", [kod])
   $ObslugujJak    = [obsluguj jak]
   $klucz      = [symbol FK]
   $nazwa      = [FK nazwa]
   $rezerwa1   = [rezerwa1]         
    $rezerwa3   = [rezerwa3]
   $estatus   = [rezerwa1]
   
   switch( [obsluguj jak] )
   {
   case "RK"
          Info("konto kasy: ", [KontoKasy])
      if( equal([KontoKasy], "") )
      {
         Ask("Dokument nie posiada zdefiniowanego konta kasy.",
             "Ponieważ nie można określić strony dla konta kasy,",
             "pole kwoty pozostanie puste. DefBtn:&OK=2 Ico:!")
      }
   case "DP"
   case "FZ"
         @opisy   = 1
      $tresc   = [opis FK]
      break
   case "WB"
   case "DIM"
   case "DEX"
           @opisy   = 1
      $tresc   = [opis FK]
      break
   case else
           if (!Def("opisy"))
          {
         Def("opisy", Ask("Czy importować opisy faktur VAT i rachunków? DefBtn:&Tak=10 Btn:&Nie=C Ico:?") )
          }
          if( Equal( Def("opisy"), "10") )
           {
              @opisy = 1
         $tresc   = [opis FK]
      }
   }

   $DataDok   = Date([datadok])
   if ( !equal([iddokkoryg], "0") ) // dla korekt data operacji dla FK powinna być równa dacie wystawienia dokumentu, a nie dacie sprzedaży
      $DataOper   = Date([dataza])
   else
      $DataOper   = Date([dataza])

   $Kwota      = [kwota]

   $Sygnatura   = [Sygnatura]

   $SaldoPoczRK   = [SaldoPRK]
//   $SaldoZapRK   = sum0([SaldoZRK],[SaldoPRK])
   $SaldoZapRK   = [SaldoZRK]
   $KontoKasy   = [KontoKasy]

   $NazwaKor   = [NazwaKor]
   $DataKor   = Date([DataKor])
   $Datawpl   = Date([Datawpl])
   IF(NOT (equal([plattermin], "")) )
   {
      @plattermin   = Date([plattermin])
   }

   IF ( NOT(equal([waluta], "")) )
   {
      if ( !equal([wkwota], "") )
      {
         $wkwota = [wkwota]
         $waluta = [waluta]
         $kurs =   [kurs]
         $typkursu = 3
      }
   }


   //analizujemy wszystkie sekcje - mogą być wymieszane
   Section("", "", "REPEAT")   //REPEAT: analizujemy wszystkie podsekcje
   {
      switch( Translate( Name(), "L") )
      {
      case "atrybutwaluta"
         MakeSec("AtrybutWaluta")
         {
            $data=[data]
            $kurs=[kurs]
            $waluta=[waluta]
            $opis=[opis]
            $dane=[dane]
         }
         break
      case "dane nabywcy"
      case "dane sprzedawcy"
         if (!equal([khid], 0))
         {
            MakeSec("Kontrahent")
            {
               $klucz     = [khid]
               if (!Equal([fk_ident], "0"))
                  $fk_ident = [fk_ident]   //uzgodniony numer FK

               IF ( REX( [khnip], "{[rRpP]}/:{*$}" ) )
               {
                  // na dokumencie  piszemy tyko NIP , więć nic nie robimy
               }
               ELSE
               {
                  $NIP     = [khnip]
               }
            }   
         }
         else
         {   
            if( !equal( [khnip], "") )
            {
               MakeSec("Incydentalny")
               {
                  $klucz      = [khnip]
                  $NIP      = [khnip]
                  $nazwa      = [khnazwa]
                  $miejscowosc= [khmiasto]
                  $ulica      = [khadres]
                  IF( EXIST( "khdom") )
                  {
                     $NumerDomu   = [khdom]
                     $NumerMieszk= [khlokal]
                  }
                  $kod          = [khkodpocz]
               }   
            }
            else
            if( !equal( [khnazwa], "") )
            {
               MakeSec("Incydentalny")
               {
                  $klucz      = [khnazwa]
                  $NIP      = [khnip]
                  $nazwa      = [khnazwa]
                  $miejscowosc= [khmiasto]
                  $ulica      = [khadres]
                  IF( EXIST( "khdom") )
                  {
                     $NumerDomu   = [khdom]
                     $NumerMieszk= [khlokal]
                  }
                  $kod          = [khkodpocz]
               }   
            }
         }   
         break
      case "zapis"
         MakeSec("zapis")
         {
            $strona      = Rex([strona], "MA", 1) //WN=0 (""), MA=1
            $kwota      = [kwota]
            $Konto      = [Konto]
            $NumerDok   = [NumerDok]
            $IdDlaRozliczen = [IdDlaRozliczen]
            if ( Equal(@@opisy, 1) )
            {
               $Opis      = [opis]
               $typopisu   = 1   //opis bezpośrednio
            }
            $ZapisRownolegly   = [ZapisRownolegly]
            $pozycja       = [Pozycja]

            IF ( NOT(equal([waluta], "")) )
            {
               $wkwota = [wkwota]
               $waluta = [waluta]
               $kurs =   [kurs]
               $typkursu = 3
            }
            $dataKPKW   = Date([dataKPKW])
         }
         break
      case "rejestr"
         IF( NOT(Equal($$obslugujJak, "FWN")) )
         {
            MakeSec("rejestr")
            {
               IF( EXIST( "skrot") )
                        $Klucz      = CAT([skrot], ",", "ZW", ",", [stawka])
                     ELSE
                        $Klucz      = CAT($$klucz, ",", "ZW", ",", [stawka])

               $ABC = 1   //A

               switch( [metoda_vat] )
               {
               case "0"
                  $oczek = 0
                  break
               case "1"
                  switch( $$ObslugujJak )
                  {
                  case "FKS"
                  case "RKS"
                     $oczek = 0
                     break
                  case else
                     $oczek = 2
                     break
                  }
                  break
               case "2"
                  $oczek = 0
                  break
               }

               $okres      = [okres]

               $netto      = [netto]
               $vat      = [vat]
               $brutto      = [brutto]
               $stawka      = [stawka]
               
               // "Handel przesyła Netto, VAT i Brutto w walucie".
               // Zatem z uwagi na Handel (jako jednego z nadawców)
               $nettoWaluta = [nettoWaluta]
               $vatWaluta = [vatWaluta]
               $bruttoWaluta = [bruttoWaluta]

               $typ      = "ZW"
               
               Section("", "", "REPEAT")   //REPEAT: analizujemy wszystkie podsekcje
               {
                  switch( Translate( Name(), "L") )
                  {
                     case "pozycja vat"
                        MakeSec( "pozycja vat" )
                        {
                           $stawka=[stawka]
                           $stawka_pl=[stawka_pl]
                           $opis=[opis]
                           $wartosc=[wartosc]
                           $usluga=[usluga]
                           $ue=[ue]
                        }
                  }
               }
            }
         }
         break
      case "transakcja"
         MakeSec("transakcja")
         {
            $ustawowe      = 1    //odsetki ustawowe
            $zaliczka      = 0      //Zaliczka
            $idDlaRozliczen    = [idDlaRozliczen]
            $termin         = [termin]   //Termin;
         }
         break
      case "zlecenie przelewu"
         MakeSec("ePrzelewy")
         {
            $idDlaRozliczen    = [idDlaRozliczen]
            $guid         = [guid]
            $rodzaj         = 1
         }
         break
      case "operacja bankowa"
         MakeSec("operacjaBankowa")
         {
            $idDlaRozliczen    = [idDlaRozliczen]
            $guid         = [guid]
            $rodzaj         = 2
         }
         break
      case "rozliczenie"
         MakeSec("rozliczenie")
         {
            $dSymbol = [dSymbol]   //numer własny dokumentu
            $idDlaRozliczen = [idDlaRozliczen]
            if( !equal([kwota], "") )
            {
               $kwota = [kwota]
            }
            if( !equal([wkwota], "") )
            {
               $wkwota = [wkwota]
            }
            $kursWO = [kursWO]
            $walutaObca = [walutaObca]
            $rozliczonoWO = [rozliczonoWO]
            $oBGuid         = [OBguid]
            $ePGuid         = [EPguid]
            $ustawowe      = 1    //odsetki ustawowe
            $zaliczka      = 0      //Zaliczka
            IF(NOT (equal(@@plattermin, "")) )
            {
               $termin      = @@plattermin   //Termin;
            }
         }
         break
      }
   }




}