Kontrahent{
   id =4
   kod =asd
   nazwa =asd
   miejscowosc =miasto
   ulica =asd 4/7
   kodpocz =12-345
   nip =123-45-67-111
}
Dokument{
   kod =0001/06/2014
   nazwa =0001/06/2014
   data =2014-06-01
   datasp =2014-06-01
   symbol FK =FVS
   obsluguj jak =FVS
   FK nazwa =0001/06/2014
   opis FK =test
   kwota =123
   Zapis{
      strona =WN
      kwota =123
      konto =xxx
      IdDlaRozliczen =1
      opis =test
      NumerDok =0001/06/2014
      Pozycja =0
      ZapisRownolegly =0
   }
   Zapis{
      strona =MA
      kwota =100
      konto =xxx
      IdDlaRozliczen =2
      opis =test
      NumerDok =0001/06/2014
      Pozycja =0
      ZapisRownolegly =0
   }
   Zapis{
      strona =MA
      kwota =23
      konto =xxx
      IdDlaRozliczen =3
      opis =test
      NumerDok =0001/06/2014
      Pozycja =0
      ZapisRownolegly =0
   }
   Rejestr{
      datarej =2014-06-01
      okres =2014-06-01
      brutto1 =123
      netto1 =100
      vat1 =23
      stawka1 =23
      netto0 =0
      nettoWolne =0
      nettoNieop =0
      sumanetto =100
      sumavat =23
      brutto =123
   }
   Transakcja{            
      termin =2014-06-01
   }
   
   Dane nabywcy{
      khid =4
      khkod =asd
      khnazwa =asd
      khmiasto =miasto
      khadres =asd 4/7
      khkodpocz =12-345
      khnip =123-45-67-111
   }
}

Dane nabywcy{}

      switch( Translate( Name(), "L") )
      {
      case "dane nabywcy"
      case "dane sprzedawcy"
         if (!equal([khid], 0))
         {
            MakeSec("Kontrahent")
            {
               $klucz     = SUM0([khid],-65535)
               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]
                  $kod          = [khkodpocz]
               }   
            }
            else
            if( !equal( [khnazwa], "") )
            {
               MakeSec("Incydentalny")
               {
                  $klucz      = [khnazwa]
                  $NIP      = [khnip]
                  $nazwa      = [khnazwa]
                  $miejscowosc= [khmiasto]
                  $ulica      = [khadres]
                  $kod          = [khkodpocz]
               }   
            }
         }   
         break

konto =100-$id_kontrahenta