- Code: Select all Expand view
xbrNumFormat( "E", .T. )
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12
DEFINE DIALOG oDlg SIZE GetSysMetrics(0) * 0.9,600 PIXEL FONT oFont ;
TITLE "REVISION DE DATOS DJAI "
@ 30,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg DATASOURCE uData ;
AUTOCOLS AUTOSORT FOOTERS CELL LINES NOBORDER
WITH OBJECT oBrw
:bEdit := { |oRec| CustEditDlg( oRec ) }
:nEditTypes := EDIT_GET
:vista:setcheck()
:CreateFromCode()
END
oBrw:bClrStd := {|| { CLR_BLACK,( IIF((uData)->vista,RGB(230,230,230),RGB(255,255,255 ))) } }
@ 10, 10 BUTTON "Editar" SIZE 40,12 PIXEL OF oDlg ACTION oBrw:Edit()
@ 10, 60 BUTTON "AGregar" SIZE 40,12 PIXEL OF oDlg ACTION oBrw:Edit( .t. )
@ 10,110 BUTTON "TXT" SIZE 40,12 PIXEL OF oDlg ACTION generotxt()
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont
return nil
Gracias nuevamente