{{indexmenu_n>1}}
====== Plantillas de Programación ======
 


=====Código que recorre una colección completa=====

\\
\\
<code vb>
<action name="runscript">
	<script language="VBScript">
		Dim coll, filtro	
		‘Variable con la coleccion que se va a utilizar					
		Set coll =AppData.GetCollection("PresupuestosScript")
		‘Guardamos el filtro que tiene la coleccion por defecto 
		filtro=coll.filter
		‘Le ponemos un filtro con el atributo filter, 
		‘que machacaría el filtro que ya tiene la coll en su atributo filter.
		coll.filter="MAP_SIMBTIPO='PR'"
		‘Función para ejecutar el SQL de la coll, y poder recorrer los record que tiene dicha coll		
		coll.StartBrowse
			‘Utilizamos un while, preguntando si el registro actual es nulo o no.
			while not coll.CurrentItem is nothing 									
				if coll.CurrentItem("OPTIONS") = 0 then
					coll.currentItem("OPTIONS")=1
					coll.currentItem.Save									
				end if
				‘Para pasar al siguiente registro de la coll
				coll.MoveNext						
			wend
		‘Siempre que se hace un StartBrowse, tiene que existir un EndBrowse, que es para cerrar la conexión.
		coll.EndBrowse
		‘Restauramos el filtro original
 		coll.filter=filtro
		Set coll=nothing
	</script>
</action>
</code>
\\
<WRAP center round important 60%>


En las últimas versiones de la plataforma únicamente se trata **Filter**, que contendrá el filtro que tiene aplicado ahora mismo la colección, <wrap em>linkfilter ya no se interpreta</wrap>. (**Filter** <wrap em>ha pasado a sustituir a</wrap> **Linkfilter**)
</WRAP>
=====Recorrer una colección/content con pocos datos=====
\\

<code vb>
	<action name="runscript">
		<script language="VBScript">
			Dim colldet,j,i,valor
			‘Cogemos la coll contents Detalles del objeto actual This.
			Set colldet=this.contents("Detalles")
		 	j=0
			‘Guardamos en la variable i el número de registros que tiene el content.
			i=this.contents("Detalles").count

			‘Si es cero se pueden dar dos opciones:
		        ‘ - Que no haya ningún registro
              		‘ - Que aún no se haya cargado el content y por eso no tengamos ningún registro
		        ‘Así que le hacemos un loadall para cargarlos todos (si no están cargados), y si no hubiera
		        ‘registros no pasaría nada al hacer el loadall.

			‘El loadall cuidado con su uso, ya que si tiene muchos elementos, nos quedaremos sin memoria. 
			‘El máximo número de registros de una colección para cargarla con loadall podemos fijarla en 20 
			‘claro está, todo depende de lo grande que sea cada registro de dicha colección.
		  	if i=0 then
		  		this.contents("Detalles").loadall
				i=this.contents("Detalles").count
		   	end if
			‘Utilizamos un For para recorrer los registros del contents.
		   	For j=0 to i-1
				‘Tomamos el valor del content con el indice de dicho registro.
		  		valor=colldet(j)("IDARTICULO")
		   		if valor="loquesea" then
			   		‘ Realizar la función deseada
		   		end if
		   	next
			‘Liberamos memoria.
			Set colldet=nothing
		</script>
	</action>
</code>

\\
=====Obtener un objeto (fila) de una colección, teniendo el valor de un campo de dicho objeto=====
\\

<code vb>
	Dim obj
	‘Buscamos el cliente en la coll Clientes, con el valor del ID del cliente.
	Set obj=appdata.getcollection("Clientes")("ID",CStr(This("IDCLIENTE")))
	If not obj is nothing Then
		obj("PROXIMA")=This("PROXIMA")
		obj("OBSERVACIONES")=This("FICHA")
		obj.save
	End If
	Set obj=nothing
</code>
\\
=====Obtener un objeto (fila) de una colección, utilizando una SQL con más de un campo (FINDOBJECT)=====
\\
<nowiki>AppData</nowiki>.<nowiki>PushValue</nowiki> objLoquesea lanza un objeto en edición.
<code vb>
Set cCierre=AppData.GetCollection("Cierre")
Set objCierre=cCierre.FindObject("NUMINCIDENCIA='"+This("NUMINCIDENCIA")+"' AND NUMPROGRESO='"+This("NUMPROGRESO")+"'")
If  objCierre Is Nothing Then	
	set objCierre=cCierre.CreateObject
	objCierre("MAP_IDINCIDENCIA")=This("ID")
	objCierre("NUMINCIDENCIA")=This("NUMINCIDENCIA")
	objCierre("NUMPROGRESO")=This("NUMPROGRESO")
	ContarPiezas This("NUMINCIDENCIA"),This("NUMPROGRESO")
	objCierre("MAP_NUMPIEZAS")=This("MAP_NUMPIEZAS")
	cCierre.additem objCierre
	AppData.PushValue objCierre
Else
	Appdata.failwithmessage -11888,"Ya ha ejecutado el cierre con anterioridad."
End If
</code>
=====Mostrar mensajes por pantalla=====
Tenemos varias formas de mostrar un mensaje en pantalla.

^ Comando       ^ Descripción ^
| ui.<nowiki>MsgBox</nowiki> "Ejemplo", "Mensaje", 0     | Mensaje "normal" del framework, para desaparecer, tiene que darle el usuario al botón de OK. |  
| ui.<nowiki>ShowNotification</nowiki> 1, “Título”, “Mensaje”     | Notificación en la barra superior de notificaciones, se le especifica un ID (1) para si queremos modificar la notificación más adelante, podemos utilizar el mismo comando con otro mensaje y se modificará el que ya existía. |  
| ui.<nowiki>DismissNotification</nowiki> 1   | Elimina la Notificación de la barra superior de notificaciones realizado con el "<nowiki>ShowNotification</nowiki>", hemos de especificar el ID (1) de la notificación para especificar el mensaje que queremos quitar. | 
| ui.<nowiki>ShowToast</nowiki> "Se ha recibido un nuevo mensaje "   | Mensaje TOAST del sistema operativo, ver la captura de pantalla más abajo. El mensaje desaparece automáticamente tras un par de segundos en pantalla. |  
\\
**Ejemplo de código:**
<code xml>
<!-- En este caso vamos a hacer uso del nodo replica-ok, para capturar el evento de cuando recibimos operaciones en la tabla gen_mensajeria -->
<replica-ok-gen_mensajeria>
	<action name="runscript">
		<script language="VBScript">
			
			'AppData.UserInterface.MsgBox hace exactamente lo mismo, ui es una abreviatura de AppData.UserInterface.
			ui.MsgBox "Ejemplo", "Mensaje", 0

			ui.ShowNotification 1, “Título”, “Mensaje” (el primer parámetro es el ID por si hay que modificarla luego)
			
			ui.ShowToast "Se ha recibido un nuevo mensaje "
		</script>
	</action>
</replica-ok-gen_mensajeria>

</code>

=====Pedir datos para poder trabajar con ellos=====
\\
<code vb>
	'Con esta ventana se piden datos de tipo texto y se guardan en la variable s1.
	s1 =appdata.userinterface.getinputstring ("Mensaje de la Ventana","Valor Ventana",0)
	'En esta ventana, SOLO se le pide datos de tipo numéricos y se guardan en la variable s2.
	s2 =appdata.userinterface.getinputstring ("Mensaje de la Ventana","Valor Ventana",1)
	s="El Presupuesto: " + cstr(s1) + " tiene el valor: " + cstr(s2)
	'Solo muestra mensaje
	d=appdata.userinterface.msgbox (cstr(s),"Presupuesto",0)
	'Muestra un mensaje con aceptar o cancelar. Guarda en la variable a el botón pulsado.
	a=appdata.userinterface.msgbox (cstr(s),"Presupuesto",1)
	if a=1 then
		‘Entra aquí porque se le dio a Aceptar.
	else
	‘Entra aquí porque se le dio a Cancelar.
	end if
</code>
\\
<WRAP center round alert 60%>
Esta sección en las nuevas plataformas (Android, Iphone, Windows Phone...) ya está **DEPRECATED**
</WRAP>


=====Mostrar error por pantalla=====
\\

<code vb>

<script language="VBScript">
    if this("IDCLIENTE")= 0 then
	Appdata.FailWithMessage -8100,"¡¡No ha seleccionado un cliente.!!"
    end if							
    'SCRIPT PARA REALIZAR LA VALIDACION DE LOS DETALLES, QUE SE MIRA SI EL CAMPO IDTARIFA 
    'ESTA LLENO O NO. SI DA ERROR, MUESTRA UN MENSAJE DE TIPO -8100, PARA DECIR QUE ES ERROR.
    Dim i,j

    Dim colldet
    Set colldet=this.contents("DetallesCabecera")
    j=0
    i=this.contents("DetallesCabecera").count
    if i=0 then
        this.contents("DetallesCabecera").loadall
    end if
    i=this.contents("DetallesCabecera").count
    while i &lt;&gt; 0 
        valor=colldet(j)("IDTARIFA")
            if valor=0 then
                i=0
                aux=1   
            else
                i=i-1
                j=j+1
            end if
        if aux=1 then Appdata.FailWithMessage -8100,"¡¡Hay Detalles sin Tarifa!!" 
    wend							
</script>

</code>
\\

=====Tipos de errores=====
\\
<code vb>

<script language="VBScript">
    'ERROR DISPONIBLE EN TODAS LAS PLATAFORMAS
        'Muestra un mensaje de error con el texto que le pongamos
        appdata.failwithmessage -8100,"Mensaje de error"
    
    'ERRORES DISPONIBLES EN PLATAFORMA POCKET PC
        'Muestra un mensaje de error con el texto que le pongamos
        appdata.failwithmessage -7500,"Mensaje de warning"
    
        'Refresca la cabecera cuando se ejecuta con el Selecteditem. YA NO ES NECESARIO.
        appdata.failwithmessage -666,"Mensaje de información"
    
        'Mensaje de informacion con icono de Información
        appdata.failwithmessage -11888,"Mensaje que queremos mostrar"
    
        'Mensaje personalizado con posiblidad de bloqueo con botón.
        appdata.failwithmessage -11822,"Mensaje de información"
    
        'Mensaje propio de CGS
        appdata.failwithmessage -11811,"Mensaje de información"
    
        'Inicia la replica desde un script
        Appdata.FailWithMessage -8100,"##STARTREPLICA##"
    
        'Esta macro funciona conjuntamente con CGStart (kiosko de PDA). 
        'Cierra el frame y le dice al kiosko q reinicie la PDA. 
        'Si el kiosko no está instalado, simplemente se cierra la aplicación.
        Appdata.FailWithMessage -8100,"##RESETAPP##"
    
        'Salir de la aplicacion.
        Appdata.FailWithMessage -8100,"##EXITAPP##"
    
        'Usado para salir de las ventanas de Nomen y Edit.
        Appdata.FailWithMessage -8100,"##EXIT##"
</script>

</code>
\\

=====Validación de datos usando PopValue y PushValue para los errores=====
\\
Evitar que se pueda guardar un registro con campos con ciertos valores, como vacíos.\\
**Appdata.<nowiki>PopValue</nowiki>** es para coger el valor de fallo de la rule, para posteriormente con **Appdata.<nowiki>PushValue</nowiki>** dárselo.
Se le pasará como un Long, de ahí el Clng.\\
\\

<code xml>

<insert>
    <rule name="fail-if-not-valid">
        <rule name="runscript" msg="Faltan por rellenar campos obligatorios.">
            <script language="VBScript">
                Dim	bFail,x							
                x =AppData.PopValue
                bFail =0
                if This("FECHANAC") &lt;&gt; "" then
                    if This("DNI")&lt;&gt;"" AND bFail=0 then
                        bFail=0
        	    else
	    	        bFail=1
		    end if
		    if This("PROVINCIA")&lt;&gt;"" AND bFail=0 then
		        bFail=0
		    else
		        bFail=1
		    end if
		    if This("CALLE")&lt;&gt;"" AND bFail=0 then
		        bFail=0
		    else
		        bFail=1
		    end if
		    if This("IDPROPIETARIO")&lt;&gt;"" AND bFail=0 then
		        bFail=0
		    else
		        bFail=1
		    end if						
		    if bfail=0 then 
		        This("%FALTANDATOS")=0
		    else 	
		        This("%FALTANDATOS")=1
		    end if	
		Else
		    This("%FALTANDATOS")=1								
		end if													
		AppData.PushValue (CLng(bFail))
            </script>
        </rule>
    </rule>
</insert>
</code>

\\

=====Botón con Script=====
\\
CÓDIGO PARA REALIZAR UN BOTÓN. \\
\\
Está formado por **3 nodos**:\\
\\
|**Nodo 1** | **Prop de tipo "B" (botón)**| Es el nodo que define donde sale el mismo título y a que nodo llama para ejecutar su código. Tiene el atributo METHOD que es el que realiza la llamada al nodo que tiene su código, el nombre "<nowiki>ExecuteNode</nowiki>", es el nombre del nodo "method", y tiene que llamarse de la misma forma (mayúsculas-minúsculas).|
|**Nodo 2** |**Nodo method** name="<nowiki>ExecuteNode</nowiki>"| Es un nodo obligatorio y fijo. (YA NO ES NECESARIO, solo en frameworks antiguos).|
|**Nodo 3** |**Nodo en el que se pone el código que se va a ejecutar**.| El nombre es definido por el usuario, y como único requisito, es el nombre del nodo, tiene que llamarse igual (mayúsculas-minúsculas) que el nodo al que llama el nodo button en su atributo method.|
\\
<code xml>
<prop name="Iniciar" group="3" type="B" method="ExecuteNode (inicializar)" title="Iniciar Ruta" visible="1" toolbar="false" labelwidth="24"  onchange="refresh255" lmargin="7"/>

<method name="ExecuteNode">
	<param name="P1" type="T" value=""/>
</method>

<inicializar>
	<action name="runscript">
		<script language="VBScript">
			Dim vResult
			vResult =AppData.UserInterface.MsgBox ("Esta acción reiniciará toda la ruta. ¿Está seguro que desea ejecutarla?","Advertencia",1)
			If vResult =1 Then 				
				appdata.executeSQL "UPDATE Gen_Rutas SET VISITADO=0 WHERE IDUSUARIO=" + CStr(This("IDUSUARIO"))
				vResult =AppData.UserInterface.MsgBox ("Ruta inicializada","Advertencia",0)
			End If							
		</script>
	</action>
</inicializar>
</code>
\\
=====Colección Avisos=====
\\
COLECCIÓN DE AVISOS.
\\
<code xml>
<coll name="Avisos" title="el aviso" sql="SELECT d.ID
	FROM (##PREF##Documentos d
	LEFT OUTER JOIN ##PREF##TiposDocumento td ON d.IDTIPODOC=td.ID)
	WHERE td.SIMBOLO='PD' AND d.OP1=1" objname="Documentos" updateobj="Documentos" progid="ASData.CASBasicDataObj" 
	 notify="true" notify_counter="false" notify_coll="ParteDiario" alternate-counter="true" notify_title="Entregas Avisos">
	<group name="General" id="1"></group>
	<prop name="ID" group="1" visible="7" type="N" fieldsize="5"></prop>
</coll>
</code>
\\
=====Content Imagen=====
\\
 CONTENT EN MODO IMAGEN.\\
 
\\
Con este content se mostrarán los datos como una imagen, y el usuario, en ciertas coordenadas de la misma, podrá poner marcas.  \\
Al realizar un click en dicha marca, mostrará los datos relativos a ella, sería como dar a una línea de un content normal.\\
\\
Hay que tener en cuenta que el ejemplo es para mostrar en una primera imagen un vehículo, y si se le da a un lugar del mismo, que podrá ser una rueda, un cristal o una puerta, saldrán tipos de daños que puede tener dicha parte del vehículo. \\
\\



DOS CONTENT EN UNA COLL CABECERA. El primero es el content de tipo imagen, que tiene los atributos:\\
\\ 
  * **viewmode**: PARA INDICAR QUE EL CONTENT SE VEA MODO IMAGEN
  * **imgbk**: SE LE DICE LA IMAGEN QUE SE MUESTRA
\\
El otro content es el que se pone debajo y que según el lugar donde se marca en el content imagen, saldrán los datos relativos. \\

\\
<code xml>
	<prop name="MAP_KK31-" title="Tarea Verificar. Daños" labelwidth="23" bgcolor="#CC3333" group="3" visible="0" fieldsize="8" size="8" type="TL" labelshadow="false" forecolor="#FFFFFF"/>
	<prop name="@PLANTILLA1" group="3" visible="1" type="Z" contents="Plantilla1" viewmode="picturemap" imgbk="##FLD_MAP_IMGPLANTILLA1##" bgcolor="#FFFFFF" lines="7" onchange="Refresh" mask="2" height="40%"/>
	<contents name="Plantilla1" src="Plantilla1" group="3" filter="t1.IDDOCPLANTILLA=##FLD_MAP_IDPLANTILLA1##" macros="##MACRO1##(##FLD_TAREAID##)" mask="2" bgcolor="#FFFFFF"></contents>
	<button name="AntesVeh" group="3" caption="&lt;&lt;                  &gt;&gt;" visible="true" labelwidth="12" lmargin="9" onchange="Refresh" method="ExecuteNode (antesveh)" labelfont-bold="true" bgcolor="#FFFFFF" text-bgcolor-disabled="#FFFFFF"/>
	<prop name="MAP_PLANTILLA" title="Vista:" labelwidth="0" type="T" size="150" locked="true" locking="true" newline="false" lmargin="1" showinline="true" linkedto="MAP_IDPLANTILLA1" linkedfield="DESCRIPCION" fieldsize="14" visible="0" group="3" onchange="Refresh255" labelshadow="false" forecolor="#CC3333" bgcolor="#FFFFFF" text-border-top="false" text-border-bottom="false" text-border-left="false" text-border-right="false" labelfont-bold="true" labelbox="false" labelfontsize="10" textfontsize="10" fontsize="10" text-bgcolor-disabled="#FFFFFF"/>
	<button name="DespuesVeh" group="3" caption="&gt;&gt;" visible="false" labelwidth="4" newline="false" lmargin="1" onchange="Refresh" method="ExecuteNode (despuesveh)" labelfont-bold="true" bgcolor="#FFFFFF" text-bgcolor-disabled="#FFFFFF"/>
	<prop name="@PDANOS1" group="3" visible="1" type="Z" contents="Danos1" lines="7" onchange="Refresh" mask="2" height="45%"/>
	<contents name="Danos1" src="Danos1" group="3" filter="t1.SITUACION=##FLD_MAP_SITUACION##" macros="##MACRO1##(##FLD_TAREAID##)" mask="2"></contents>
			
			
	<!-- COLL QUE ES EL CONTENT DE IMAGEN. TIENE QUE TENER 4 CAMPOS QUE TENDRAN LOS ATRIBUTOS PARA PINTAR LA MARCA EN EL DIBUJO QUE SE MUESTRA
		xcoord="true": COORDENADA X
		ycoord="true": COORDENADA Y
		circle-radius="true": PARA INDICAR EL RADIO DEL CIRCULO DE LA MARCA
		icon-mark="true": ICONO DE LA MARCA A PONER
	-->
<coll name="Plantilla1" title="Plantilla1"
	sql="SELECT t1.ID,t1.XCOORD,t1.YCOORD,
	t1.RADIO,t1.SITUACION,t1.ROWID AS MAP_ROWID,
	t2.ID AS MAP_IDMPLANTILLA,t2.CONTADOR AS MAP_CONTADOR,
	CASE 
	WHEN t2.CONTADOR&gt;0 THEN t1.ICONMARK 
	ELSE '' 
	END AS ICONMARK
	FROM ##PREF##detplantilla t1
	LEFT OUTER JOIN ##PREF##marcaplantilla t2 ON t1.ID=t2.IDDETPLANTILLA AND t2.TAREAID=##MACRO1##"
	objname="detplantilla" updateobj="detplantilla" progid="ASData.CasBasicDataObj" fontsize="8" editmask="2">
	<!-- PESTAÑAS -->
	<group name="Puntos" id="1"></group>
	<!-- CAMPOS VISIBLES -->
	<macro name="##MACRO1##" value="0" default="true"/>
	<!--  -->
	<prop name="XCOORD" title="X COORD" xcoord="true" labelwidth="6" type="N" size="15" locked="true" locking="true" fieldsize="8" visible="7" group="1" labelshadow="false" forecolor="#CC3333" bgcolor="#CC3333" text-border-top="false" text-border-bottom="true" text-border-left="false" text-border-right="false" labelfont-bold="true" labelbox="false" labelfontsize="10" textfontsize="10" fontsize="10" text-bgcolor-disabled="#FFFFFF"/>
	<prop name="YCOORD" title="Y COORD" ycoord="true" labelwidth="6" type="N" size="15" locked="true" locking="true" fieldsize="8" visible="7" group="1" labelshadow="false" forecolor="#CC3333" bgcolor="#CC3333" text-border-top="false" text-border-bottom="true" text-border-left="false" text-border-right="false" labelfont-bold="true" labelbox="false" labelfontsize="10" textfontsize="10" fontsize="10" text-bgcolor-disabled="#FFFFFF"/>
	<prop name="RADIO" title="RADIO" circle-radius="true" labelwidth="6" type="N" size="15" locked="true" locking="true" fieldsize="8" visible="7" group="1" labelshadow="false" forecolor="#CC3333" bgcolor="#CC3333" text-border-top="false" text-border-bottom="true" text-border-left="false" text-border-right="false" labelfont-bold="true" labelbox="false" labelfontsize="10" textfontsize="10" fontsize="10" text-bgcolor-disabled="#FFFFFF"/>
	<prop name="SITUACION" title="SITUACION" labelwidth="6" type="N" size="15" locked="true" locking="true" fieldsize="8" visible="7" group="1" labelshadow="false" forecolor="#CC3333" bgcolor="#CC3333" text-border-top="false" text-border-bottom="true" text-border-left="false" text-border-right="false" labelfont-bold="true" labelbox="false" labelfontsize="10" textfontsize="10" fontsize="10" text-bgcolor-disabled="#FFFFFF"/>
	<prop name="ICONMARK" title="" icon-mark="true" labelwidth="6" type="T" size="15" locked="true" locking="true" fieldsize="8" visible="7" group="1" labelshadow="false" forecolor="#CC3333" bgcolor="#CC3333" text-border-top="false" text-border-bottom="true" text-border-left="false" text-border-right="false" labelfont-bold="true" labelbox="false" labelfontsize="10" textfontsize="10" fontsize="10" text-bgcolor-disabled="#FFFFFF"/>
	<prop name="MAP_IDMPLANTILLA" labelwidth="6" type="N" size="15" locked="true" locking="true" fieldsize="8" visible="7" group="1" labelshadow="false" forecolor="#CC3333" bgcolor="#CC3333" text-border-top="false" text-border-bottom="true" text-border-left="false" text-border-right="false" labelfont-bold="true" labelbox="false" labelfontsize="10" textfontsize="10" fontsize="10" text-bgcolor-disabled="#FFFFFF"/>
	<prop name="MAP_CONTADOR" labelwidth="6" type="N" size="15" locked="true" locking="true" fieldsize="8" visible="7" group="1" labelshadow="false" forecolor="#CC3333" bgcolor="#CC3333" text-border-top="false" text-border-bottom="true" text-border-left="false" text-border-right="false" labelfont-bold="true" labelbox="false" labelfontsize="10" textfontsize="10" fontsize="10" text-bgcolor-disabled="#FFFFFF"/>
	<prop name="MAP_ROWID" labelwidth="6" type="T" size="15" locked="true" locking="true" fieldsize="8" visible="7" group="1" labelshadow="false" forecolor="#CC3333" bgcolor="#CC3333" text-border-top="false" text-border-bottom="true" text-border-left="false" text-border-right="false" labelfont-bold="true" labelbox="false" labelfontsize="10" textfontsize="10" fontsize="10" text-bgcolor-disabled="#FFFFFF"/>
			
	<selecteditem onchange="Refresh255">
		<action name="runscript">
			<script language="VBScript">
				'DATOS DE LA PRIMERA PESTANHA
				this.ownerCollection.ownerObject("MAP_SITUACION")=This("SITUACION")
				this.ownerCollection.ownerObject("MAP_IDDETP1")=This("ID")
				this.ownerCollection.ownerObject("MAP_IDMP1")=This("MAP_IDMPLANTILLA")
				this.ownerCollection.ownerObject("MAP_CONP1")=This("MAP_CONTADOR")
				this.ownerCollection.ownerObject("MAP_DETIDP1")=This("MAP_ROWID")
				//appdata.failwithmessage -666,"" YA NO ES NECESARIO!!!
			</script>
		</action>
	</selecteditem>
</coll>
</code>
\\
=====Crear Registro con Script=====
\\
CREAR UN NUEVO REGISTRO CON UN SCRIPT.\\
\\

El script se podrá ejecutar en un **create, insert, delete, botón**... en cualquier lugar.\\
<code xml>
<action name="histor" type="runscript">					
	<script language="VBScript">
		'Dimensionamos las variables
		Dim coll,det					
		'Cogemos en que coleccion se va a crear el nuevo objeto, con lo que tomara todas las caracteristicas del mismo, 
		' ejecutandose el create si lo tuviera.
		Set coll =AppData.GetCollection("ColeccionEnLaQueSeCreaElRegistro")
		'Creamos el objeto
		set det = coll.CreateObject
		'Lo añadimos a la coll, lanzando el create del mismo
		coll.AddItem Empty,det
		'Añado los valores a los distintos campos
		det("CAMPONUMERICO")=5
		det("CAMPOTEXTO")="VALOR DEL CAMPO"
		det("CAMPOFECHA")=now()
		'Salvo el objeto
		det.Save				
		'Liberamos variables.
		set coll.clear
		Set coll=nothing
		Set det=nothing								
	</script>
</action>
</code>	
\\

===== Poner valor a una Variable Global =====

<code vb>
<action name="runscript">
	<script language="VBScript">
		appdata.CurrentEnterprise.Variables("NoAvisar")=0
	</script>
</action>
</code>

=====Información Queue Dispositivo=====
\\
COLECCION QUE MUESTRA LA CANTIDAD DE DATOS QUE QUEDAN POR ENVIAR.\\
\\

Esta colección se puede complicar todo lo que se quiera, incluso poniendo **Join** con otras tablas, para decir de que tabla faltan los datos
por enviar desde el dispositivo móvil a la central.\\
\\

La tabla MASTER_REPLICA_QUEUE, solo se puede utilizar para ver datos, nunca para escribir directamente en la misma, ya que es una 
tabla de sistema, con la cual se enviarán los datos desde el dispositivo móvil al servidor central.\\
\\

<code xml>	 
<coll name="InformacionQueue" title="la informacion queue" 
	sql="SELECT COUNT(ID) AS MAP_CUENTA
	FROM master_replica_queue"
	objname="master_replica_queue" updateobj="master_replica_queue" progid="ASData.CASBasicDataObj" forprint="false" 
	editwidth="75" editheight="76" autorefresh="true">
	<group name="General" id="1"/>
	<prop name="MAP_CUENTA" visible="7" group="1" type="N" fieldsize="20" labelwidth="8" size="30">DATOS PARA ENVIAR</prop>
</coll>	
</code>
\\