Section( "Kontrahent", "Kontrahent")
{
    $klucz      = SUM0([id],-65535)
   $skrot      = [kod]
   $nazwa      = [nazwa]
   $miejscowosc   = [miejscowosc]
   $gmina      = [rejon]

   IF ( REX( [nip], "{[rRpP]}/:{*$}" ) )
   {
      IF ( EQUAL( TRANSLATE(@rex1, "U"), "P"))
         $pesel = @rex2
      ELSE
         $regon = @rex2
   }
   ELSE
   {
      $nip = [nip]
   }

   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]
   $telefon1     = [tel1]
   $telefon2      = [tel2]
   $telefax   = [fax]
   IF( equal([badres], "") )
      $w_banku1    = [bnazwa]
   ELSE
      $w_banku1    = CAT([bnazwa], ", ", [badres])
   $rachunek1    = [bkonto]
   $nazwisko      = [nazwisko]
   $imie        = [imie]
   $fk_ident   = [khfk]

   $krajKod   = [krajKod]
   $statusUE   = [statusUE]

   $aktywny   = [aktywny]
   $autoinsert =1     
}