15 lines
390 B
Plaintext
15 lines
390 B
Plaintext
MAIN
|
|
# CONSTANT c_gmaps = "http://maps.google.com/"
|
|
CONSTANT myapp = "http://ws.marmotech.com.do/sugerencias"
|
|
DEFINE cmyapp string
|
|
OPEN FORM f1 FROM "ipfmmt055"
|
|
DISPLAY FORM f1
|
|
|
|
INPUT BY NAME cmyapp WITHOUT DEFAULTS
|
|
ATTRIBUTES(UNBUFFERED)
|
|
BEFORE INPUT
|
|
|
|
LET cmyapp = myapp CLIPPED
|
|
|
|
END INPUT
|
|
END MAIN |