Andrews,

Somewhere in your MENSAJES.H file you should #INCLUDE foxpro.h - that will make sure any program including MENSAJES.H will also include all of the VFP constants (like MB_ICONSTOP).

Cheers,

Andrew

>Thansk for your reply Michael.
>This is a portion of my .h file
>
>*-- MENSAJES.H
>*-- Messagebox titles
>#DEFINE TIT_ERROR "Error"
>#DEFINE TIT_APLICACION "Prueba. Ver. 1.0a"
>#DEFINE TIT_ATENCION "Atención"
>#DEFINE TIT_ADVERTENCIA "Advertencia"
>#DEFINE TIT_INFORMACION "Información"
>#DEFINE TIT_AUTOR "Producto desarrollado por: Andrews Dumith. Copyright 2001"
>#DEFINE TIT_NOMEMP "Empresa"
>
>*-- Messagebox information
>#DEFINE MEN_FICHERONOEXISTE "El Archivo no existe."
>#DEFINE MEN_NOSALIR "¿Realmente quiere salir?"
>#DEFINE MEN_NOEXISTE "El registro solicitado no existe."
>#DEFINE MEN_CLINOEXISTE "El Cliente solicitado no existe."
>#DEFINE MEN_PRONOEXISTE "El Proveedor solicitado no existe."
>#DEFINE MEN_FACNOEXISTE "La Factura solicitada no existe."
>#DEFINE MEN_DESNOEXISTE "El Despacho solicitado no existe."
>
>And this is the main program
>#include mensajes.h
>
>public pladmon, plvtas, plcpras, plbcos, plnom, plcontab, plalm, pcmodulo, pcusuario
>store .f. to pladmon, plvtas, plcpras, plbcos, plnom, plcontab, plalm
>
>close all
>set path to (curdir()+"datos"),(curdir()+"ayuda"),(curdir()+"clases"),(curdir()+"consultas"),(curdir()+"formas"),(curdir()+"imagenes"),(curdir()+"menus"),(curdir()+"programas"),(curdir()+"reportes"),(curdir()+"include")
>set color to
>set talk off
>set sysmenu to
>set clock status
>set refresh to 4,4
>on escape return
>set cursor on
>set exclusive off
>set lock off
>set multilocks on
>set collate to "spanish"
>set reprocess to 3 seconds
>set sysformats off
>set century on
>set date british
>set safety off
>set autosave on
>set escape off
>set fields off
>set compatible off
>set confirm on
>set decimal to 2
>set exact on
>set near on
>set bell off
>set nulldisplay to "Valor nulo."
>set memowidth to 1024
>set point to ','
>set udfparms to value
>close databases
>
>release window "Administrador de Proyectos"
>release window "Estándar"
>release window "Controles de informes"
>release window "Paleta de colores"
>release window "Diseñador de base de datos"
>release window "Controles de formularios"
>release window "Diseñador de formularios"
>release window "Diseño"
>release window "Vista preliminar"
>release window "Diseñador de consultas"
>release window "Diseñador de informes"
>release window "Diseñador de vistas"
>
>clear macros
>on key label f1
>on key label f2
>on key label f3
>on key label f4
>on key label f5
>on key label f6
>on key label f7
>on key label f8
>on key label f9
>on key label f10
>on key label f11
>on key labe f12 do salir with .t.
>
>with _screen
> .backcolor=rgb(255,255,255)
> .borderstyle=2
> .closable=.f.
> .controlbox=.t.
> .maxbutton=.f.
> .minbutton=.f.
> .movable=.f.
> .height=285
> .width=550
> .showtips=.t.
> .caption="Aplicacion de Prueba."
> .windowstate=2
> .autocenter=.t.
> .icon="bod.ico"
>endwith
>
>if directory((curdir()+"data"))
> set help to fenix
> open databases fenix shared
> on shutdown do salir with .f.
> on error errorhandler(error(),program(),lineno())
> do form login to laccesovalido
> if laccesovalido
> do pantalla
> do menus\prueba.mpr
> read events
> endif
> on error
> on shutdown
>else
> =messagebox("El sistema no se ha inicializado correctamente:" + chr(13)+ chr(13)+;
> "<< no se ha encontrado el directorio de datos >>" + chr(13)+ chr(13)+;
> "pongase en contacto con el administrador del sistema.",mb_iconostop,tit_aplicacion)
> do salir with .f.
>endif
>
>procedure errorhandler
> local lcerrormsg,lccodelinemsg
> wait clear
> lcerrormsg=message()+chr(13)+chr(13)
> lcerrormsg=lcerrormsg+"Método: "+cmethod
> lccodelinemsg=message(1)
> if between(nline,1,10000) and not lccodelinemsg="..."
> lcerrormsg=lcerrormsg+chr(13)+"Línea: "+alltrim(str(nline))
> if not empty(lccodelinemsg)
> lcerrormsg=lcerrormsg+chr(13)+chr(13)+lccodelinemsg
> endif
> endif
> if messagebox(lcerrormsg,17,_screen.caption)#1
> on error
> return .f.
> endif
>endproc
>
>procedure salir
> lparameters mensaje
> if mensaje
> if messagebox(men_nosalir,mb_iconopregunta+mb_sino+mb_defboton2,oapp.nombredesistema)=idsi
> do tumbar
> else
> return
> endif
> else
> do tumbar
> endif
>endproc
>
>
>procedure tumbar
> close databases
> clear progra
> clear memo
> clear events
> quit
>endproc
>
>I Hope yoou can help me.
>TIA