Machetes Varios

apuntes varios erp cwa logic ( ahora SoftLand Logic ) – sql y veremos que otra cosa

sp_helpcwa


Publicado en el foro por Ariel García, trae los campos de la tabla y sus tablas hijas

Ejemplo de ejecución:

sp_helpcwa STTDEH

Otras utilidades relacionadas:

sp_columnas : trae las columnas de una tabla separadas por comas, muy útil para insertar registros

sp_cwacolumns : acompañada del segunfo parámetro en 1 trae solamente los campos clave de una tabla ej; sp_ceacolumns rvrmvi,1

El script de creación
CREATE   proc sp_helpCWA
@TableName as Varchar(50)
as
declare @numtypes nvarchar(80)
select @numtypes =
N’tinyint,smallint,decimal,int,real,money,float,numeric,smallmoney’
print ‘Tabla’
select  TableName,
TableDescription_ARG,
case when  IsHeader = 1 then ‘X’ else ‘ ‘ end as IsHeader,
ItemOf as Header
from  CWTMTables
where  TableName=@TableName

print ‘Campos’
select  ‘Campo’ = FieldName,
‘Encabezado’ = LongCaption_ARG,
‘Tipo Dato’ = Alias,
‘Type’ = type_name(xusertype),
‘Length’ = convert(int, length),
‘Prec’ = case when charindex(type_name(xtype), @numtypes) > 0
then convert(char(5),ColumnProperty(id, name, ‘precision’))
else ‘     ‘ end,
‘Scale’ = case when charindex(type_name(xtype), @numtypes) > 0
then convert(char(5),OdbcScale(xtype,xscale))
else ‘     ‘ end,
‘PK’ = case when  PrimaryKey = 1 then ‘X’ else ‘ ‘ end,
‘RQ’ = case when  Required = 1 then ‘X’ else ‘ ‘ end,
‘RO’ = case when  ReadOnly = 1 then ‘X’ else ‘ ‘ end,
‘VLD’ = case when  Validate = 1 then ‘ X ‘ else ‘ ‘ end,
‘Clave Fonánea’ = ForeignKey,
‘Descripcion’ = MappedKey,
‘Predet.’ = DefaultValue,
‘JOIN UP’ = case when isnull(ForeignKey,”) = ”
then case when isnull(MappedKey,”) = ”
then ”
else ‘AND ‘ + TableName + ‘.’ + FieldName + ‘ = ‘ + MappedKey
end
else ‘AND ‘ + TableName + ‘.’ + FieldName + ‘ = ‘ + ForeignKey
end,
‘JOIN DOWN’ = case when isnull(ForeignKey,”) = ”
then case when isnull(MappedKey,”) = ”
then ”
else ‘AND ‘ + MappedKey + ‘ = ‘ + TableName + ‘.’ + FieldName
end
else ‘AND ‘ + ForeignKey + ‘ = ‘ + TableName + ‘.’ + FieldName
end
from  CWTMFields
left outer join syscolumns
on id = object_id(@TableName) and number = 0 and name = FieldName

where  TableName = @TableName
order by Owner, FieldOrderBiz

print ‘Tablas hijas’
select  TableName,
TableDescription_ARG,
case when  IsHeader = 1 then ‘X’ else ‘ ‘ end as IsHeader,
ItemOf as Header
from  CWTMTables
where  ItemOf=@TableName

noviembre 5, 2008 - Posted by | 1. SotLand Logic, Cwa Logic

Aún no hay comentarios.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: