BEGIN
INT _retIdent
TEXT _adr1, _adr2
GETPOINTADR M.bod, _adr1, _adr2, _retIdent
IF _retIdent = _ERR_NO_ERROR THEN
MESSAGE "Adresa meraneho bodu M.bod:" + _adr1 + ", " + _adr2 ON srvskol1v.HIP
ELSE
MESSAGE "Nepodarilo sa zistit adresu meraneho bodu M.bod" ON srvskol1v.HIP
ENDIF
END
Pridať komentár