The code goes like this:
Code: Select all
@ 110, 3 BROWSE Explora_Dist WIDTH 405 HEIGHT 315 ;
HEADERS { "No.Dist.", "Nombre", "No.Patro"} WIDTHS {60, 245, 60} ;
WORKAREA Dist FIELDS {"Dist->NoDist" , "Dist->Nombre" , "Dist->NoPatro"} VALUE 1 ;
FONT "Arial" SIZE 9 ;
JUSTIFY { BROWSE_JTFY_RIGHT, BROWSE_JTFY_LEFT, BROWSE_JTFY_RIGHT } ;
ON CHANGE { || DistMuestra () }