@echo off


if exist ..\..\testigo goto error

@echo COPIAR ficheros de este perfil, al proyecto...
@echo (Interrumpir CTRL+C) / ó / continuar ?
pause > nul

xcopy TpvVntAlbPrint.cpp ..\..\
xcopy TpvVntAlbPrint.dfm ..\..\
xcopy TpvVntAlbPrint.h ..\..\
xcopy TpvVntFctPrint.cpp ..\..\
xcopy TpvVntFctPrint.dfm ..\..\
xcopy TpvVntFctPrint.h ..\..\
xcopy testigo ..\..\
xcopy perfil01 ..\..\
goto fin 

:error
@echo Actualmente existe un perfil sin salvar
@echo por seguridad este perfil NO SE ACTIVARA

:fin