Clipper/FiveWin - !!! No funciona el Keyborad Chr(13)... ke hago!!!

ke tal fivewineros, aki molestandolos nuevamente

Resulta ke hace algún tiempo les hice una pregunta y sigo iguanas ranas...

Tengo ke hacer algo asi

Say "RFC" get mrfc
Say "Factura" get factura Valid Busca(mrfc,factura)
Say "Fecha " get fecha
(claro del modo fivewin)

mi funcion en clipper 5.2 era así
Function Busca(campo,campo2)
use bd
Seek campo+campo2
if found()
mfecha = fecha
keyborad Chr(13) /// cuando lo hacia con clipper daba un enter automaticamente y ya no me pedia leia la fecha(por ke ya esta registrada) y realiza lo ke sigue, si no enkontraba el rfc+factura entoces si me pide la fecha
Else
Return
Endif
***************
Bueno ahora kiero ke me ayuden y me digan komo lo hago con fivewin
Si pongo un Alert (mfecha) en la buskeda si toma el valor pero no lo pinta en el get de mfecha, por lo menos kiero ke le asigne el valor en el get aunke no de el enter

gracias y saludos a to2

ki hubo .. pos lo ke quieres hacer se puede hacer asi:

Local oDlg, oGet[3]
Local cRFC:=Space(10), cFactura:=Space(10), dFecha:=ctod(" / / ")

DEFINE DIALOG oDlg RESOURCE "MIDIALOGO""

REDEFINE GET oGet[1] VAR cRFC ;
ID 101 ;
PICTURE "9999999999" ;
OF oDlg UPDATE

REDEFINE GET oGet[2] VAR cFactura ;
ID 102 ;
PICTURE "99999999999" ;
VALID If ( Busca(cRFC,cFactura, @dFecha ), ; //pos pasamos por referencias dFecha pa que se actualize
( oDlg:Update(), .T. ), .F. ) ; // oDlg:update hace unrefresco de valores
OF oDlg UPDATE

REDEFINE GET oGet[3] VAR dFecha ;
ID 103 ;
OF oDlg UPDATE

ACTIVATE DIALOG oDlg

Function Busca(campo,campo2, dFecha)
Local lReturn:= .F.
use bd
Seek campo+campo2
if found()
dfecha = fecha
lReturn := .T.
Endif

Return lReturn