&&Este es el evento KeyPress del formulaio
LPARAMETERS nKeyCode, nShiftAltCtrl
Public gcCodigoProducto
gcCodigoProducto = ""
If nKeyCode = -2 && F3 Adicionar
Do Form Formulario_Productos
if !Empty(gcCodigoProducto)
Replace codigoproducto With gcCodigoProducto In Tabla_Factura
ThisForm.Refresh()
EndIf
EndIf
Release gcCodigoProducto
EndSelect