by Armando » Wed Mar 08, 2006 2:02 pm
Fernando:
En TwBrowse del Maestro Hérnan D C:
REDEFINE LISTBOX oLbx FIELDS (cProducto)->PRO_DES,;
(cProducto)->PRO_PRO,;
TRANSFORM((cProducto)->PRO_SAF,"@Z 99,999"),;
TRANSFORM((cProducto)->PRO_PRE,"@Z 999,999.99");
HEADERS "Descripción","Clave","Saldo","Unitario";
FIELDSIZES 320,65,37,30;
ID 100 OF oDlg;
ON DBLCLICK (Editar(oDbf,oLbx,(.F.)),;
oLbx:Refresh(),oDlg:UPDATE())
oLbx:cAlias := cProducto // AQUI LE INDICAS EL ALIAS
// Ademas cada campo lleva su alias
En TsBrowse del Maestro Manuel M.
REDEFINE BROWSE oBrw ALIAS (cPresupuesto) UPDATE GRID;
FONT oFont ID 200 OF oDlg // AQUI SE DEFINE EL ALIAS
ADD COLUMN TO oBrw;
HEADER "Rubro";
SIZE 45 PIXELS ;
DATA FIELDWBLOCK("PRE_RUB",SELECT(cPresupuesto));
ALIGN DT_RIGHT,DT_RIGHT,DT_RIGHT;
EDITABLE;
PICTURE "@K 99999";
MOVE DT_MOVE_NEXT
Saludos, Armando