Page 1 of 1

ThisWindow

Posted: Fri Aug 03, 2012 5:44 am
by danielmaximiliano
Hola Muchachos :
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   
la aplicacion se compila bien sino utilizo
the application is compiled well but use
Supermercado Los Tilos 2012_2012-08-03_02-27-08.jpg
Supermercado Los Tilos 2012_2012-08-03_02-27-08.jpg (168.63 KiB) Viewed 3279 times
Stock Supermecado Los Tilos_2012-08-03_02-27-46.jpg
Stock Supermecado Los Tilos_2012-08-03_02-27-46.jpg (66.78 KiB) Viewed 3279 times
Agregar Producto_2012-08-03_02-28-20.jpg
Agregar Producto_2012-08-03_02-28-20.jpg (30.74 KiB) Viewed 3279 times
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.

Re: ThisWindow

Posted: Fri Aug 03, 2012 5:47 am
by danielmaximiliano
Aqui dejo los fuentes completo.

Here I leave the full sources.

LosTilos.rar
Actualización 04/08/2012
(1.37 MiB) Downloaded 420 times
Intente varios metodos y revise el foro.
Try various methods and review the forum.

Hoy 04-08-2012 actualize
cualquier mejora o correcciónes son aceptadas
any improvements or corrections are accepted