jpegueroandClaude Sonnet 5
b6085d4140
Instruccion de Johnny: todos los directorios de fuentes de inventario deben migrarse de la carpeta temporal PROYECTOS a la carpeta real PROYECTO, ya que PROYECTOS sera eliminada. Se elimino tambien un archivo suelto sin relacion llamado "ipdir" que existia en PROYECTO (del commit inicial) y bloqueaba el nombre de la carpeta. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
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 |