Sistema de Gestión de Negocios "Hexa"

Base de datos de conocimiento.

Doc. Ref. 9843
Título: Importación / Exportación Módulo de Sistema V.9x
Autor: Hexa
Última actualización: 21/10/2015

documentos\Cliente-3223-HEXA-Imp_Exp Mod.Sistema V.9.x-Doc.9843.htm

Importación / Exportación Módulo de Sistema V.9x

Los scripts que se presentan a continuación permiten exportar e importar todas las opciones de menú y definiciones de formularios a archivos DAT.

Son útilies si se desea actualizar estas opciones desde el modelo de Hexa a una implantación existente.

Exportación desde un Hexa "Modelo"

Function Main (PS0, PS1, PS2)
     'Menús
     Resultado = Intercambios.ExpTbl ("Nombre='Menu'", "Nombre", "Referencia='Sistema' Datos=Si Sobreescribir=Si Criterio='Codigo>=''M000'' And Codigo <= ''M089''")

     'Formularios
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='AccParametrizacionBasica9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiConfiguracion9Sociedad'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiConfiguracion9Contadores'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiConfiguracion9Varios'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiConfiguracion9Contabilidad'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiConfiguracion9Sistema'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriParametro9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpParametro9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiParametro9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriContador9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpContador9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiContador9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriIdiomaTexto9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpIdiomaTexto9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiIdiomaTexto9'", "Nombre", "")


     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='AccSeguridad9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriPermiso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpPermiso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiPermiso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriSuceso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpSuceso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiSuceso9'", "Nombre", "")

     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='AccUtilidades9'", "Nombre", "")

     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='AccBaseDeDatos9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriTabla9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpTabla9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiTabla9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriIndice9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpIndice9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiIndice9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriVinculo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpVinculo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiVinculo9'", "Nombre", "")

     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='AccParametrizacionAvanzada9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriMenu9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpMenu9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiMenu9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriFormulario9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpFormulario9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiFormulario9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriFormularioCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpFormularioCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiFormularioCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriFormularioAccion9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpFormularioAccion9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiFormularioAccion9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriInforme9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpInforme9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiInforme9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriProceso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpProceso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiProceso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriTareaProgramada9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpTareaProgramada9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiTareaProgramada9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='CriEvento9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='ExpEvento9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ExpForm ("Nombre='EdiEvento9'", "Nombre", "")

     Main = Resultado
 End Function

Importación a una implantación de Hexa "Modelo"

Este segundo script importa en una implantación de Hexa los ficheros DAT de exportación generados en el script anterior.

Function Main (PS0, PS1, PS2)
	
     'Menús
     Resultado = BaseDeDatos.Borra ("Menu", "Codigo>='M000' And Codigo <= 'M089'")
     Resultado = Resultado & VbCrLf & Intercambios.ImpTbl ("Nombre='Menu'", "Nombre", "Referencia='Sistema' Sobreescribir=No Datos=Si")

     'Formularios
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='AccParametrizacionBasica9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='AccParametrizacionBasica9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiConfiguracion9Sociedad'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiConfiguracion9Sociedad'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiConfiguracion9Contadores'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiConfiguracion9Contadores'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiConfiguracion9Varios'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiConfiguracion9Varios'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiConfiguracion9Contabilidad'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiConfiguracion9Contabilidad'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiConfiguracion9Sistema'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiConfiguracion9Sistema'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='CriParametro9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriParametro9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='ExpParametro9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpParametro9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiParametro9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiParametro9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='CriContador9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriContador9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='ExpContador9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpContador9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiContador9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiContador9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='CriIdiomaTexto9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriIdiomaTexto9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='ExpIdiomaTexto9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpIdiomaTexto9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiIdiomaTexto9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiIdiomaTexto9'", "Nombre", "")

     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='AccSeguridad9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='AccSeguridad9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='CriPermiso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriPermiso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='ExpPermiso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpPermiso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiPermiso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiPermiso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='CriSuceso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriSuceso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='ExpSuceso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpSuceso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiSuceso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiSuceso9'", "Nombre", "")

     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='AccUtilidades9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='AccUtilidades9'", "Nombre", "")

     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='AccBaseDeDatos9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='AccBaseDeDatos9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='CriTabla9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriTabla9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='ExpTabla9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpTabla9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiTabla9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiTabla9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='CriCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='ExpCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='CriIndice9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriIndice9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='ExpIndice9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpIndice9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiIndice9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiIndice9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='CriVinculo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriVinculo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='ExpVinculo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpVinculo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiVinculo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiVinculo9'", "Nombre", "")

     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='AccParametrizacionAvanzada9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='AccParametrizacionAvanzada9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='CriMenu9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriMenu9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='ExpMenu9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpMenu9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiMenu9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiMenu9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='CriFormulario9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriFormulario9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='ExpFormulario9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpFormulario9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiFormulario9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiFormulario9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='CriFormularioCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriFormularioCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='ExpFormularioCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpFormularioCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiFormularioCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiFormularioCampo9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='CriFormularioAccion9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriFormularioAccion9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='ExpFormularioAccion9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpFormularioAccion9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiFormularioAccion9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiFormularioAccion9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='CriInforme9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriInforme9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='ExpInforme9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpInforme9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiInforme9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiInforme9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='CriProceso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriProceso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='ExpProceso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpProceso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiProceso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiProceso9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='CriTareaProgramada9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriTareaProgramada9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='ExpTareaProgramada9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpTareaProgramada9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiTareaProgramada9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiTareaProgramada9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='CriEvento9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='CriEvento9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='ExpEvento9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='ExpEvento9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.BorraFormulario ("Nombre='EdiEvento9'", "Nombre", "")
     Resultado = Resultado & VbCrLf & Formularios.ImpForm ("Nombre='EdiEvento9'", "Nombre", "")

    Main = Resultado
End Function

Volver a la búsqueda anterior