S
savoine
Guest
DEFINE VARIABLE hBuffer AS HANDLE NO-UNDO. DEFINE VARIABLE hField AS HANDLE NO-UNDO. def var c-string as char no-undo. DEFINE TEMP-TABLE tt-param field c-from as char field c-to as char. create tt-param. assign tt-param.c-from = "#name#" tt-param.c-to = "estabelec.nome". assign c-string = "my company #name#". find first estabelec no-lock no-error. MESSAGE estabelec.nome SKIP ENTRY(1, tt-param.c-to, ".") VIEW-AS ALERT-BOX INFO BUTTONS OK. /* Message: NAME = OK (show) , entry = estabelec */ CREATE BUFFER hBuffer FOR TABLE ENTRY(1, tt-param.c-to, "."). ASSIGN hField = hBuffer:BUFFER-FIELD(ENTRY(2, tt-param.c-to, ".")). /* Message ERROR: **RECORD NOT AVAILABLE */ MESSAGE hField:BUFFER-VALUE VIEW-AS ALERT-BOX info BUTTON OK.
Continue reading...
Continue reading...