ThisWindow

HMG en Español

Moderator: Rathinagiri

Post Reply
User avatar
danielmaximiliano
Posts: 2607
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

ThisWindow

Post 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 2771 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 2771 times
Agregar Producto_2012-08-03_02-28-20.jpg
Agregar Producto_2012-08-03_02-28-20.jpg (30.74 KiB) Viewed 2771 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.
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
User avatar
danielmaximiliano
Posts: 2607
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: ThisWindow

Post by danielmaximiliano »

Aqui dejo los fuentes completo.

Here I leave the full sources.

LosTilos.rar
Actualización 04/08/2012
(1.37 MiB) Downloaded 397 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
Attachments
HMGforum.jpg
HMGforum.jpg (39.54 KiB) Viewed 2767 times
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Post Reply