|
si utilizas dw dinamico...todo es posible....
es muy facil.....
lo primero q hice fue crearme una tabla con 2 columnas(tablaid,tablanombre)...en ella almaceno los nombres de las tablas q tiene mi bd...x ejemplo, si tuviera estos datos
tablaid | tablanombre
1 Cliente
2 Poducto
3 Pedido
si x algun motivo cambiara Cliente x Empresa el id se mantendria....ese es el truco..y eso lo hice n mi dw
...este es mi codigo
====================================================
string ls_select , ls_where , ls_query , ls_dw_dinamic , ls_err
string ls_tabla
select tablanombre into :ls_tabla from tablas where tablaid = 1;//es lo q t mencionaba en el ejemplo
ls_select = "select cli_id as ' ID ',cli_razonsocial as 'Razon Social',cli_ruc as 'R U C',cli_direccion as 'Dirección',cli_telefono as 'Teléfono' from "+ls_tabla
ls_query = ls_select
ls_dw_dinamic = SQLCA.SyntaxFromSQL ( ls_query,"Style(Type=Grid ) "+"Text(Border=6 )"+&
"Column(Border=5)"+"Column(Background.Mode=0 )"+&
"Column(Background.Color=16777215 )", ls_err )
dw_1.Create ( ls_dw_dinamic, ls_err )
IF ls_err <> '' THEN
MessageBox ( "error - Syntax", ls_err )
ELSE
dw_1.SetTransObject ( SQLCA )
dw_1.Retrieve()
dw_1.Object.DataWindow.Header.Color = 12632256
END IF
==================================================
|
