SETBTNGET DEL TSBROWSE
Publicado por JOSE (79 intervenciones) el 06/12/2005 00:36:30
Se podra modifcar el SetBtnget del Tsbrowse:
oBrw1:SetBtnGet( 2, "Bar_New", { | oGet,cVar | cVar := LeerCodigo(oDlg),;
oGet:cText(cVar),oGet:Refresh(),IF (! EMPTY(cVar),oGet:KeyDown(VK_RETURN,0),)},16)
Para que acepte el click del Bitmap o un Enter, es decir que tenga dos opciones que al dar enter que haga lo mismo que bitmap
Codigo Detalle Cantidad Precio Total
Enter o click = Que me muestre la base del Producto y que elegir el seleccionado me grabe el codigo
Saludos
oBrw1:SetBtnGet( 2, "Bar_New", { | oGet,cVar | cVar := LeerCodigo(oDlg),;
oGet:cText(cVar),oGet:Refresh(),IF (! EMPTY(cVar),oGet:KeyDown(VK_RETURN,0),)},16)
Para que acepte el click del Bitmap o un Enter, es decir que tenga dos opciones que al dar enter que haga lo mismo que bitmap
Codigo Detalle Cantidad Precio Total
Enter o click = Que me muestre la base del Producto y que elegir el seleccionado me grabe el codigo
Saludos
Valora esta pregunta
0