Comentarles que recién estoy empezando a usar el control GRID en hmg 3.4.3 ya que habia estado acostumbrado a usar BROWSE y la verdad tengo muy poca experiencia usando el control GRID con edición en línea.
Tengo definido este GRID en un formulario:
Code: Select all
*
* BOTONES DETALLES
*
@ 190 , 010 BUTTON BotAgregar ;
PICTURE "imagen\agregar.bmp" ;
ACTION NotaAddItem() ;
WIDTH 30 ;
HEIGHT 80
@ 280 , 010 BUTTON BotBorrar ;
PICTURE "imagen\borrar.bmp" ;
ACTION NotaDelItem() ;
WIDTH 30 ;
HEIGHT 80
*
* GRID DE DETALLES
*
@ 190 , 050 GRID GrdArticulos ;
WIDTH 1000 ;
HEIGHT 400 ;
HEADERS {'Código','Artículo','Unidades','Costo','Porcent.','Prec.Unit.','Total','Igv' ,'Importe'} ;
WIDTHS { 150 , 300 , 080 , 080 , 080 , 080 , 080 , 060 , 080 } ;
JUSTIFY { BrwL , BrwL , BrwR , BrwR , BrwR , BrwR , BrwR , BrwR , BrwR } ;
EDIT ;
COLUMNCONTROLS { NIL , NIL , aCtrl_1 , aCtrl_2 , aCtrl_2 , aCtrl_2 , aCtrl_2 , aCtrl_2 , aCtrl_2 } ;
COLUMNWHEN { {|| .F. } , {|| .F. } , {|| .T. } , {|| .T. } , {|| .T. } , {|| .F. } , {|| .F. } , {|| .F. } , {|| .F. } } ;
COLUMNVALID { NIL , NIL , {|| GrdValUnids() } , {|| GrdValCosto() } , {|| GrdValPorc() } , NIL , NIL , NIL , NIL }
Code: Select all
PROC NotaAddItem
LOCAL aArtiCodigo
LOCAL aArtiDatos
LOCAL aArtiNuevos
aArtiCodigo := Ayuda_Articulo() //<-- Aquí llamó a otra procedure para seleccionar el producto a agregar
IF LEN(aArtiCodigo) > 0
ADD ITEM { aArtiCodigo[1] ,;
aArtiCodigo[2] ,;
1 ,;
0.00 ,;
0.00 ,;
0.00 ,;
0.00 ,;
0.00 ,;
0.00 } TO GrdArticulos OF Win_Notas
Win_Notas.GrdArticulos.Setfocus
HMG_PressKey(VK_RETURN) // <- AQUI TRATO DE INICIAR LA EDICION DEL DETALLE PERO NO FUNCIONA.
ENDIF
RETURN
Agradeceré su experiencia con este control.
Saludos cordiales a todos,