ERROR PICTURE TGET FWH 2002

[Ariel]

Hola,
esta es la situacion :
Caso 1. NO muestra el borde en el GET

Code: Select all  Expand view  RUN

Local aVar:= {=>}
aVar["number"]:= 0

@ nRow-3, nCol+95 GET ::aDatax["number"] VAR aVar["number"] ;
                           OF ::hLays["FOLDER_H1"]:aVLayout[1] ;
                           SIZE 60, 20 PIXEL  ;
                           PICTURE "@Z 9999" ;
                           UPDATE


 

Caso 2. muestra el borde en el GET

Code: Select all  Expand view  RUN

Local aVar:= {=>}
aVar["number"]:= 0

@ nRow-3, nCol+95 GET ::aDatax["number"] VAR aVar["number"] ;
                           OF ::hLays["FOLDER_H1"]:aVLayout[1] ;
                           SIZE 60, 20 PIXEL  ;
                           UPDATE
 

resumiendo, si saco el PICTURE me muestra el borde del GET sino NO lo muestra.

Saludos.

[Marcelo Roggeri]

Hola, me pasa lo mismo
[img]
https://i.ibb.co/ZhPMPGs/rao1.png
https://i.ibb.co/Bn9zGZJ/rao2.png
[/img]

Saludos
Marcelo

[nageswaragunupudi]

This problem is in FWH2002 when manifest is not linked.

Please make this modification in tget.prg of FWH2002

Please see line number 2447 in the method Paint()

Code: Select all  Expand view  RUN

         !Empty( ::cPicture ) .and. "Z" $ Upper( ::cPicture )

Please change it as:

Code: Select all  Expand view  RUN

         !Empty( ::cPicture ) .and. "Z" $ Upper( ::cPicture ) .and. AppHasManifest()

This is fixed in FWH2003

[Ariel]

Mr. Rao,

Funciona perfecto!

Muchas gracias.