VApp: ejemplos
1. Obtener el numero total de tablas
var mainpro = theApp.mainProjectInfo();
var nTotalTablas = mainpro.allTableCount();2. Obtener el valor de una variable global
var timeLast = theApp.varGlobalToString( "CINE_DAT/TIME_LAST_SUGEST" );3. Regenerar índices de todas las tablas
var project = theApp.mainProjectInfo();
for( var x=0; x < project.allTableCount(); ++x )
{
var tableInfo = project.allTableInfo(x);
theApp.regenIndexes( tableInfo.idRef(), true );
}4. Funciones generales
// Si el componente ejecutado es vClient se emite un pitido
if ( theApp.exeName() == "vClient" ) {
theApp.beep();
}
// Se muestra el nombre del componente en ejecución
alert( "Componente en ejecución: " + theApp.exeName() );
// Mostrar info local en curso
alert( "Información local en curso" + "n" + "n" +
"Código del idioma = " + theApp.currentLanguageCode() + "n" +
"Código ISO del idioma = " + theApp.currentLanguageIsoCode() + "n" +
"Nombre del idioma = " + theApp.currentLanguageName() + "n" +
"Código del país = " + theApp.currentCountryCode() + "n" +
"Código ISO del país = " + theApp.currentCountryIsoCode() + "n" +
"Nombre del país = " + theApp.currentCountryName() + "n" +
"Separador decimal = " + theApp.currentDecimalPoint() );
// Mostrar info local del sistema
alert( "Información local del sistema" + "n" + "n" +
"Código del idioma = " + theApp.sysLanguageCode() + "n" +
"Código ISO del idioma = " + theApp.sysLanguageIsoCode() + "n" +
"Nombre del idioma = " + theApp.sysLanguageName() + "n" +
"Código del país = " + theApp.sysCountryCode() + "n" +
"Código ISO del país = " + theApp.sysCountryIsoCode() + "n" +
"Nombre del país = " + theApp.sysCountryName() + "n" +
"Separador decimal = " + theApp.sysDecimalPoint() + "n" +
"Nombre de la máquina = " + theApp.sysMachineName() );5. Funciones de variables globales
// Almacenamos los valores en variables globales
theApp.setGlobalVar( "VJS_DAT/VAR_GLO_ALF", "ABC" );
theApp.setGlobalVar( "VJS_DAT/VAR_GLO_NUM", 123.45 );
theApp.setGlobalVar( "VJS_DAT/VAR_GLO_TMP", "2012/05/03 08:31:18" );
theApp.setGlobalVar( "VJS_DAT/VAR_GLO_FCH", "2012/05/04" );
theApp.setGlobalVar( "VJS_DAT/VAR_GLO_HOR", "09:53:23" );
// Se comprueba si la variable global alfabética está vacía
alert( "¿Está vacía la variable global alfabética? " +
theApp.isGlobalVarEmpty( "VJS_DAT/VAR_GLO_ALF" ) );
// Recuperamos y mostramos el valor de las variables globales
alfabetica = theApp.globalVarToString( "VJS_DAT/VAR_GLO_ALF" );
numero_decimal = theApp.globalVarToDouble( "VJS_DAT/VAR_GLO_NUM" );
numero_entero = theApp.globalVarToInt( "VJS_DAT/VAR_GLO_NUM" );
tiempo = theApp.globalVarToDateTime( "VJS_DAT/VAR_GLO_TMP" );
fecha = theApp.globalVarToDate( "VJS_DAT/VAR_GLO_FCH" );
hora = theApp.globalVarToTime( "VJS_DAT/VAR_GLO_HOR" );
alert( "Valor de las variables globales: n" + alfabetica + "n" +
numero_decimal + "n" + numero_entero + "n" +
tiempo + "n" + fecha + "n" + hora );6. Funciones de constantes
alert( theApp.constant( "VJS_DAT/MSG_ERR_ID" ) );7. Funciones de DOS (Sistema operativo de disco)
// Se preparan las variables con los nombres de ficheros
fileFrom = "/fichero.txt";
fileTo = "/fichero.txt.bck";
// Si existe el fichero destino se elimina
if ( theApp.existsFile( fileTo) )
{
if ( confirm( "¿Desea eliminar el fichero " + fileTo + "?", "Confirmar" ) )
{
theApp.removeFile( fileTo);
}
}
// Si existe el fichero se copia
if ( theApp.existsFile( fileFrom ) )
{
if ( theApp.copyFile( fileFrom, fileTo) )
{
alert( "Se ha copiado el fichero correctamente", "Notificación" );
// Se crea un acceso directo al fichero origen
theApp.linkFile( fileFrom, fileFrom + ".lnk" );
// Se renombra el fichero copiado
theApp.renameFile( fileTo, fileTo + "1" );
} else {
alert( "No se ha copiado el fichero correctamente", "Notificación" );
}
} else {
alert( "No se ha encontrado el fichero " + fileFrom, "Aviso" );
}
// Cambiamos el directorio en curso
if ( theApp.setCurrentPath( theApp.rootPath() + "/instancias" ) )
{
alert( "Se ha cambiado el path en curso", "Notificación" );
}
// Mostrar los path de los directorios
alert( "Estos son los directorios de trabajo:" + "n" +
"En curso: " + theApp.currentPath() + "n" +
"Root: " + theApp.rootPath() + "n" +
"Home: " + theApp.homePath() + "n" +
"Temp: " + theApp.tempPath() );
// Limpieza de un path
alert( theApp.cleanPath( "//instancias\appdatos//2012", "Senda" ) );
// Revisar los dispositivos de disco del sistema operativo
var drivesNumber =0;
var drivesList = "";
theApp.loadDrives();
for ( i=0; i{
drive = theApp.driveAt( i );
drivesNumber++;
drivesList += drive.path() + "n";
}
alert( "Se han encontrado " + drivesNumber.toString() + " dispositivos de disco: nn" +
drivesList );8. Funciones de herramientas de base de datos
// Confirmamos si desea regenerar área de datos, índices o todos
var regenAreaDatos = confirm( "¿Desea regenerar el área de datos de todas las tablas?", "Confirmación" );
var regenIndexes = confirm( "¿Desea regenerar los índices de todas las tablas?", "Confirmación" );
// Si hay algo que regenerar se leen todas las tablas de la aplicación incluídas las heredadas
if ( regenAreaDatos | regenIndexes )
{
var msgErrors = "";
var mainProject = theApp.mainProjectInfo();
for( var nIndex=0; nIndex < mainProject.allTableCount(); nIndex++ )
{
var tableInfo = mainProject.allTableInfo( nIndex );
var table = tableInfo.idRef();
// Sólo se regenera el área de datos de las tablas en disco
if ( tableInfo.isInMemory() == false )
{
if ( !theApp.regenDataArea( table, true ))
{
msgErrors += "Falló la regeneración del área de datos de la tabla " + table + "n";
}
}
// Se regeneran los índices de todas las tablas sean en disco o en memoria
if ( !theApp.regenIndexes( table, true ))
{
msgErrors += "Falló la regeneración de índices de la tabla " + table + "n";
}
}
// Mensaje final del resultado de las regeneraciones
if (msgErrors.length == 0)
{
alert( "El proceso de regeneración ha finalizado correctamente", "Notificación" );
} else {
alert( "Se han producido los siguientes errores: n" + msgErrors, "¡Atención!" );
}
}9. Cálculo de Hash
// Calcular el hash de una cadena con SHA-2 512
theApp.calculateHash( "", VApp.Sha2_512 )10. Cambiar el marco principal de la aplicación
theApp.setFrame( "gestion_app/SUPERVISOR" );11. Rellenar un combo box de un formulario con la lista de cámaras del dispositivo
//Inicialización de variables
var aCamaras = Array;
var aCamarasDescripcion = Array;
//Obtenemos el control combo box
var oCombo = theRoot.dataView().control("CBX_CAMARAS");
//Comprobar cámaras disponibles
aCamaras = theApp.availableCameras();
//Si hay cámaras se añade la lista al combo, si no hay, se indica en el combo
if (aCamaras.length == 0) {
oCombo.addItem("No se ha detectado ninguna cámara");
}
else {
aCamarasDescripcion = theApp.availableCameraDescriptions();
//Cargamos en el combotodas las camaras detectadas por el sistema
for ( var i = 0; i < aCamarasDescripcion.length; i++ )
{
oCombo.addItem( aCamarasDescripcion[ i ] );
}
}12. Activar la cámara que el usuario haya seleccionado en el combo del ejemplo 11
// Obtenemos los nombres de las cámaras, que es lo que se usa para seleccionar la cámara
var aCamaras = theApp.availableCameras();
//Combobox
var oCombo = theRoot.dataView().control("CBX_CAMARAS");
// Objeto imagen del formulario
var objetoImagen = theRoot.dataView().control("IMAGEN");
// Posición del combo seleccionada que ha de corresponderse con el array de nombres de la cámara para que funcione
var i = oCombo.currentIndex;
// Nos quedamos con el nombre correspondiente a la cámara seleccionada por el array
var ba = new VByteArray();
ba.setText(aCamaras[i]);
// Iniciar cámara
objetoImagen.startCamera( ba );Última actualización