Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > MS SQL Server
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 31-10-2006
sinalocarlos sinalocarlos is offline
Miembro
 
Registrado: sep 2006
Posts: 152
Poder: 20
sinalocarlos Va por buen camino
Thumbs up

En efecto Master el problema eran los digitos a la derecha estaba estableciendo un limite de 18 y nunca se me ocurrio revisar que no tuviera cantidades mas grandes que esas, el problema ya quedo les paso el script por si alguien tiene el problema lo pueda solucionar, es recomendable mejorarle pero por cuestiones de tiempo lo deje asi:
Código SQL [-]
declare @s1 varchar(1000), @s2 varchar(1000), @s3 varchar(1000), @s4 varchar(1000), @s5 varchar(1000), @s6 varchar(1000), @s7 varchar(1000), @s8 varchar(1000)
set numeric_roundabort OFF
set nocount ON
declare cur cursor for
select 'ALTER TABLE   '+sysobjects.name+'   ADD  t'+syscolumns.name+'   decimal (38,8) NULL  ' s1,
'EXEC sp_bindefault ''[dbo].[Cero]'', '''+sysobjects.name+'.t'+syscolumns.name+''' ' s2,
'update '+sysobjects.name+'   set t'+syscolumns.name+' =  CONVERT (decimal(38,8 ), ROUND('+syscolumns.name+',8)) ' s3,
'update '+sysobjects.name+'   set t'+syscolumns.name+' = 0 where  t'+syscolumns.name+' is NULL' s4,
'ALTER TABLE   '+sysobjects.name+'   ALTER COLUMN t'+syscolumns.name+'   decimal (38,8) NOT NULL  ' s5,
' EXEC sp_unbindefault '''+sysobjects.name+'.'+syscolumns.name+''' ' s6,
'ALTER TABLE   '+sysobjects.name+'   drop COLUMN '+syscolumns.name+'  ' s7,
'EXEC sp_rename '''+sysobjects.name+'.t'+syscolumns.name+''', '''+syscolumns.name+''', ''COLUMN''' s8
from syscolumns inner join sysobjects 
on sysobjects.id=syscolumns.id and (sysobjects.xtype='u')
where syscolumns.xusertype = 62
open cur 
fetch next from cur into @s1, @s2, @s3, @s4, @s5, @s6, @s7, @s8
while @@fetch_status = 0 
begin
  exec (@s1)
  exec (@s2)
  exec (@s3)
  exec (@s4)
  exec (@s5)
  exec (@s6)
  exec (@s7)
  exec (@s8)
fetch next from cur into @s1, @s2, @s3, @s4, @s5, @s6, @s7, @s8
end
close cur
deallocate cur
set nocount OFF
set numeric_roundabort ON
muchas gracias de nuevo

y espero darme vueltas por aqui mas seguido para contribuir con algo

GRACIAS
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Stack Overflow agonzalez Varios 5 08-12-2006 22:26:46
error de Is not valid float point value para un TCheckBox.... uper Varios 3 20-10-2005 20:49:22
Error: arithmetic exception, numeric overflow, or string truncation burasu Conexión con bases de datos 3 22-09-2005 15:48:29
Error: BCD Overflow bismarck_sierra Conexión con bases de datos 2 20-06-2004 01:34:44
numeric-double precision-decimal-float Giniromero Firebird e Interbase 1 14-08-2003 18:31:29


La franja horaria es GMT +2. Ahora son las 02:44:47.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi