How to insert record Id in record link table using SQL in Dynamics Nav

#---------------------------------------------------------------------------------------------------------
function createRecordID {
#---------------------------------------------------------------------------------------------------------
  Param
  (
	[Parameter(Mandatory=$True)]
	[string]$documento
  )
 
  $long = 7 + $documento.Length + 3
  $sqlBytes = new-object System.Data.SqlTypes.SqlBytes # -ArgumentList $long
  $sqlBytes = new-object byte[] -ArgumentList $long
  $sqlBytes[0] = 110  # Table number
  $sqlBytes[1] = 0
  $sqlBytes[2] = 0
  $sqlBytes[3] = 0
  $sqlBytes[4] = 0
  $sqlBytes[5] = 137  # code field
  $sqlBytes[6] = 255  # alfanuméric

  for($i=0; $i -lt $documento.Length; $i++){
    $sqlBytes[$i+7] = [byte][char]$documento.Substring($i, 1)
  }

  $sqlBytes
}

#---------------------------------------------------------------------------------------------------------
function insRecordID {
#---------------------------------------------------------------------------------------------------------
  Param
  (
	[Parameter(Mandatory=$True)]
	[string]$FileName,
	[Parameter(Mandatory=$True)]
	[string]$documento

  )
  
  $query = @" 
       SELECT 
      [Record ID],[URL1]
      FROM [dbo].[Record Link] 
       WHERE 
      ([Record ID] = @RecordID) AND ([URL1] = @URL1)       
"@

    $connection=new-object System.Data.SqlClient.SQLConnection
	$connection.ConnectionString="Server={0};Database={1};User={2};Password={3}" -f $server,$database,$user,$pass
    $command=new-object system.Data.SqlClient.SqlCommand($query,$connection)
    $command.CommandTimeout=120
    $connection.Open()

    [byte[]]$bytes = ceateRecordID($documento)
    $command.Parameters.Add("@RecordID", [System.Data.SqlDbType]"VarBinary", $sqlBytes.Length) | Out-Null
    $command.Parameters["@RecordID"].Value = $bytes

    $command.Parameters.Add("@URL1", [System.Data.SqlDbType]"NChar") | Out-Null
    $command.Parameters["@URL1"].Value = $FileName

    $resultado = $command.ExecuteReader()
 
    if (!$resultado.Read()) {
      $query = @" 
             INSERT [Record Link] 
            ([Record ID]
            ,[URL1]
            ,[URL2]
            ,[URL3]
            ,[URL4]
            ,[Description]
            ,[Type]
            ,[Note]
            ,[Created]
            ,[User ID]
            ,[Company])
             VALUES 
             (@RecordID, @URL1, '', '', '', @Desc, 0, '', @Created, @UserID, @Company)
"@


      $command=new-object system.Data.SqlClient.SqlCommand($query,$connection)
      $command.CommandTimeout=120

      $command.Parameters.Add("@RecordID", [System.Data.SqlDbType]"VarBinary", $sqlBytes.Length) | Out-Null
      $command.Parameters["@RecordID"].Value = $bytes

      $command.Parameters.Add("@URL1", [System.Data.SqlDbType]"NChar") | Out-Null
      $command.Parameters["@URL1"].Value = $FileName

      [string]$Desc = Split-Path $FileName -Leaf
      $command.Parameters.Add("@Desc", [System.Data.SqlDbType]"NChar") | Out-Null
      $command.Parameters["@Desc"].Value = $Desc

      $command.Parameters.Add("@Company", [System.Data.SqlDbType]"NChar") | Out-Null
      $command.Parameters["@Company"].Value = $empresaNAV

      $command.Parameters.Add("@UserID", [System.Data.SqlDbType]"NChar") | Out-Null
      $command.Parameters["@UserID"].Value = $user

      $command.Parameters.Add("@Created", [System.Data.SqlDbType]"DateTIme") | Out-Null
      $Fecha = (Get-Date).ToUniversalTime().ToString("yyyy-MM-dd HH:mm:ss.fff")
      $command.Parameters["@Created"].Value = $Fecha

      $command.ExecuteNonQuery()
      
      $connection.Close() 
       
    } else {
     $connection.Close() 
     LogError(' >> Registro ya existe >>>>> ' + $documento)     
     return 1
   }  
}