"String or binary data would be truncated"

[[BlueSteel]]

Hola...

yo prefiero utilizar este sistema para insertar un registro en el SQL Server

Código Delphi [-]
     Datos.AQ_Orden.Close;
     Datos.AQ_Orden.SQL.Clear;
     Datos.AQ_Orden.SQL.Add('Insert Into Orden(Ord_Numero, Pro_Rut, Ord_Fecha, Ord_Solicitado, Ord_Atencion, Ord_FormaPago, Ord_Estado,Ord_Observacion, Ord_SubNeto, Ord_Descto, Ord_Neto, Ord_Iva, Ord_Total)');
     Datos.AQ_Orden.SQL.Add('Values (:v01, :v02, :v03, :v04, :v05, :v06, :v07, :v08, :v09, :v10, :v11, :v12, :v13)');
     Datos.AQ_Orden.Parameters[0].Value  := cNoc+1;
     Datos.AQ_Orden.Parameters[1].Value  := vRut.Text;
     Datos.AQ_Orden.Parameters[2].Value  := vFec.Date;
     Datos.AQ_Orden.Parameters[3].Value  := vSol.Text;
     Datos.AQ_Orden.Parameters[4].Value  := vAte.Text;
     Datos.AQ_Orden.Parameters[5].Value  := CB_Forma.ItemIndex;
     Datos.AQ_Orden.Parameters[6].Value  := 'E';
     Datos.AQ_Orden.Parameters[7].Value  := vObs.Text;
     Datos.AQ_Orden.Parameters[8].Value  := vTot_Bru.AsCurrency;
     Datos.AQ_Orden.Parameters[9].Value  := vTot_Des.AsCurrency;
     Datos.AQ_Orden.Parameters[10].Value := vTot_Net.AsCurrency;
     Datos.AQ_Orden.Parameters[11].Value := vTot_Iva.AsCurrency;
     Datos.AQ_Orden.Parameters[12].Value := vTot_Fin.AsCurrency;
     Datos.AQ_Orden.ExecSQL;

Asi me evito los problemas, y en el caso de existir, los puedo identificar de una mejor forma

Salu2