I would like to change this example to grid to browse, thanks for your help
// Dynamic Display
bdDisplay_1 := { || This.CellValue }
bdDisplay_2 := { || HMG_UPPER(This.CellValue) }
bdDisplay_3 = { || This.CellValue }
bdDisplay_4 := { || This.CellValue }
bdDisplay_5 := { || This.CellValue }
bdDisplay_6 := { || This.CellValue }
bdDisplay_7 := { || This.CellValue }
bdDisplay_8 := { || This.CellValue }
// Grid Column Controls Definitions
aCtrl_1 := {'TEXTBOX','NUMERIC','999999'}
aCtrl_2 := {'TEXTBOX','CHARACTER'}
aCtrl_3 := {'TEXTBOX','NUMERIC','99999999.99'}
aCtrl_4 := {'TEXTBOX','NUMERIC','99999999.99'}
aCtrl_5 := {'TEXTBOX','NUMERIC','99999999.99'}
aCtrl_6 := {'TEXTBOX','NUMERIC','99999999.99'}
aCtrl_7 := {'TEXTBOX','NUMERIC','99999999.99'}
aCtrl_8 := {'TEXTBOX','NUMERIC','9999999.99'}
Grand merci a vous@ 10,10 GRID Grid_Creance ;
WIDTH 770 ;
HEIGHT 440 ;
HEADERS {'Code ','Noms','RESTE','Prix Total','T.V.A ','Avances','Autre Av','Represent.'} ;
WIDTHS {70,200,90,90,90,90,90,90};
VALUE { 1 , 1 } ;
justify {0,0,1,1,1,1,1,1};
COLUMNCONTROLS { aCtrl_1 , aCtrl_2 , aCtrl_3 , aCtrl_4 , aCtrl_5 , aCtrl_6, aCtrl_7, aCtrl_8} ;
ON HEADCLICK { { ||Index_Code()},{ ||Index_NOM()} , {||Index_Reste()} ,{ || Index_PTotal()} } ;
ROWSOURCE "CREANC" ;
COLUMNFIELDS { 'CODE' , 'NOM' , 'Prix_Total+TUGP-Avance-Avancheq-Represent' , 'PRIX_TOTAL' , 'TUGP', 'AVANCE' , 'AVANCHEQ','REPRESENT' } ;
ALLOWAPPEND ;
ALLOWDELETE ;
DYNAMICDISPLAY { bdDisplay_1 , bdDisplay_2 , bdDisplay_3 , bdDisplay_4 , bdDisplay_5 , bdDisplay_6 ,bdDisplay_7,bdDisplay_8 } ;
CREANCE_1.Grid_Creance.ColumnDYNAMICFORECOLOR (3) := { WHITE} // BLACK}
CREANCE_1.Grid_Creance.ColumnDYNAMICBACKCOLOR (3) := {|| GREEN} // PURPLE}