ponemos esto abajo de: /dobackup
Case ("/MANTENIMIENTO")
If EnPausa = False Then 'CODIGO DISEÑADO POR FOXVON
EnPausa = True 'CODIGO DISEÑADO POR FOXVON
Call SendData(ToAll, 0, 0, "BKW") 'CODIGO DISEÑADO POR FOXVON
Call SendData(ToIndex, UserIndex, 0, "Realizando Tareas de mantenimiento, Por Favor Espere" & FONTTYPE_MANTENIMIENTO) 'CODIGO DISEÑADO POR FOXVON
Else 'CODIGO DISEÑADO POR FOXVON
EnPausa = False 'CODIGO DISEÑADO POR FOXVON
Call SendData(ToAll, 0, 0, "BKW") 'CODIGO DISEÑADO POR FOXVON
Call SendData(ToIndex, UserIndex, 0, "Tareas Finalizadas Gracias Por Esperar." & FONTTYPE_MANTENIMIENTO) 'CODIGO DISEÑADO POR FOXVON
End If 'CODIGO DISEÑADO POR FOXVON
' ---------
'| FOXVON |
'----------
despues declaramos la font abajo de fonttype_global
Public Const FONTTYPE_MANTENIMIENTO = "~0~128~0~0~0"
Case ("/MANTENIMIENTO")
If EnPausa = False Then 'CODIGO DISEÑADO POR FOXVON
EnPausa = True 'CODIGO DISEÑADO POR FOXVON
Call SendData(ToAll, 0, 0, "BKW") 'CODIGO DISEÑADO POR FOXVON
Call SendData(ToIndex, UserIndex, 0, "Realizando Tareas de mantenimiento, Por Favor Espere" & FONTTYPE_MANTENIMIENTO) 'CODIGO DISEÑADO POR FOXVON
Else 'CODIGO DISEÑADO POR FOXVON
EnPausa = False 'CODIGO DISEÑADO POR FOXVON
Call SendData(ToAll, 0, 0, "BKW") 'CODIGO DISEÑADO POR FOXVON
Call SendData(ToIndex, UserIndex, 0, "Tareas Finalizadas Gracias Por Esperar." & FONTTYPE_MANTENIMIENTO) 'CODIGO DISEÑADO POR FOXVON
End If 'CODIGO DISEÑADO POR FOXVON
' ---------
'| FOXVON |
'----------
despues declaramos la font abajo de fonttype_global
Public Const FONTTYPE_MANTENIMIENTO = "~0~128~0~0~0"