Página inicial Explorar Ajuda
Registrar Entrar
AnalytikDataPRiME
/
GeMIS_WEB
3
0
Fork 0
Arquivos Issues 0 Pull Requests 0 Wiki
Tree: 04d475eee7
Branches Tags
GeMIS_WEB
/
GUI
/
incl
/
viwentryfeldtest.i

viwentryfeldtest.i 620 B
Histórico Raw

12345678910111213141516171819 
  1.     
    2. 

  2.     DEF INPUT PARAMETER ipHandle        AS HANDLE           NO-UNDO.
    3. 

  3. 

  4.     DEF VAR FeldName        AS CHAR                 NO-UNDO.
    5. 

  5.     DEF VAR FeldInhalt      AS CHAR                 NO-UNDO.
    6. 

  6. 

  7.     FeldName   = ''.
    8. 

  8.     FeldInhalt = ''.
    9. 

  9.     IF NOT VALID-HANDLE(ipHandle)   THEN RETURN ''.
    10. 

  10.     IF ipHandle:TYPE = 'FRAME'      THEN RETURN ''.
    11. 

  11.     IF ipHandle:TYPE = 'WINDOW'     THEN RETURN ''.
    12. 

  12.     
    13. 

  13.     FeldName = ipHandle:NAME.
    14. 

  14.     IF ipHandle:TYPE = 'FILL-IN'    OR
    15. 

  15.        ipHandle:TYPE = 'COMBO-BOX'  OR
    16. 

  16.        ipHandle:TYPE = 'TOGGLE-BOX' THEN FeldInhalt = ipHandle:SCREEN-VALUE.
    17. 

  17. 

  18.     IF NOT FMut THEN RETURN ''.
    19. 

  19.