RE:por favor necesito ayuda
Aqui te mando la parte del codigo en cuestión:
@ 1, 5.5 LISTBOX oArticle FIELDS If( Articulo->(Deleted()), "Borrado" ,;
Space(7)) ,;
OemtoAnsi( Articulo->Apellido+space(1)+Articulo->Apelido) ,;
OemtoAnsi( Articulo->Nombre ) ,;
OemtoAnsi( Articulo->Hc ) ;
FIELDSIZES 70, 230, 160, 60 ;
HEADERS "Marca", "APELLIDO", "NOMBRES" ,;
"HC" ;
ON CHANGE ( BuscaFam( @oFamily ) ,;
oArt:Refresh() ) ;
ON DBLCLICK ( ModifArti(oArt, LGrabo, .f. ) ,;
oArticle:Refresh() ,;
oArticle:SetFocus() ) ;
SIZE 260, 70 OF oArt
oArticle:aJustify := {.F., .F., .F., .F., .F.}
//oArtpiet:UpStable()
//FIELDSIZES 40, 240, 360, 160, 64, 160, 160 ;
//oAgenda:Set3dLook()
DbSelectArea("Familia")
@ 9, 5.5 LISTBOX oFamily FIELDS If( Familia->(Deleted()), "Borrado" ,;
Space(7)) ,;
aHBitmaps[ Max( 1, Familia->Nivel )] ,;
OemtoAnsi( Familia->Estudios ) ,;
OemtoAnsi( Familia->NLab ) ,;
transform(Fam