estoy armando un sistema P.O.S simple, resulta que necesito un Procedimiento/Funcion que pueda ser llamado desde cualquier lugar, al intentar utilizar ThisWindow me salta un error.
Hi Guys:
I'm putting together a single P.O.S system, it is I need a procedure / function that can be called from anywhere, while trying to use ThisWindow [/ b] I miss a mistake.
Code: Select all
Procedure CargaPais()
Local cRecorte := Left(Stock.cEan13.Value,3)
DBSELECTAREA(2)
DBSETORDER(1)
COD_PAIS->(DBGotop())
if COD_PAIS->(DBSeek(cRecorte))
// ThisWindow.Text_2.Value := COD_PAIS->PAIS
// thisWindow.Text_3.SetFocus
Agregar.Text_2.Value := COD_PAIS->PAIS
Agregar.Text_3.SetFocus
the application is compiled well but use debo estar cansado ya que no me doy cuenta donde esta el error.
I must be tired because I do not realize where this error.