Error al Insertar en una Tabla

[martinartaza]

El problema debe ser por los valores nulos proba lo siguiente.

Código Delphi [-]
//Se insertan los encabezados de las Notas a la tabla de encabezados de la historia
      consulta3:='Select * From TempVentaHeader';
      QryInsertaHeader.SQL.Clear;
      QryInsertaHeader.SQL.ADD(consulta3);
      QryInsertaHeader.Open;
      QryInsertaHeader.First;
      while not QryInsertaHeader.Eof do
       begin
        TblHeader.Insert;
        TblHeader.FieldByName('Noventa').AsInteger:=QryInsertaHeader.FieldByName('NVENTA').asinteger;
        tblheader.FieldByName('Fecha').AsDateTime:=QryInsertaHeader.FieldByName('FECHA').asdatetime;
  ........................................
        tblheader.FieldByName('SUB').AsString:=QryInsertaHeader.FieldByName('SUB').asstring;
        tblheader.Post;
        QryInsertaHeader.Next
      end;

Bueno, proba eso y contadnos como te fue.