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
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only