sd | | | |
pablobocconi12639 | |
Sub 'Sync'
&IsServerAvailable = Network.IsServerAvailable()
if &IsServerAvailable
GeneXus.Common.UI.Progress.ShowWithTitleAndDescription("Consultando nueva información...","Por favor espere...")
// Second step - Receive data
&ServerStatus = Synchronization.ServerStatus()
GeneXus.Common.UI.Progress.Hide()
Do Case
Case &ServerStatus = 1
// &HasConfirmed = Interop.Confirm('Nueva información disponible, ¿Desea recibirla?')
// If &HasConfirmed
GeneXus.Common.UI.Progress.ShowWithTitleAndDescription("Recibiendo datos...","Por favor espere...")
&SynchRecResult = Synchronization.Receive()
GeneXus.Common.UI.Progress.Hide()
If &SynchRecResult <> 0
Do Case
Case &SynchRecResult = 1
Msg("No es necesario recibir - Todos los datos ya están sincronizados.")
Case &SynchRecResult = 2
Msg("La aplicación esta en línea, no necesita sincronizar.")
Case &SynchRecResult = 3
Msg("Tiene eventos pendientes de enviar")
Case &SynchRecResult = 8
Msg("La recepción ya se esta ejecutando, por favor aguarde")
Case &SynchRecResult = 51
Msg("El dispositivo está enviando una versión no válida o antigua para la sincronización por favor actualice su app.")
Case &SynchRecResult = 52
Msg("Los hashes enviados al servidor no son válidos, por lo que el servidor no puede calcular las diferencias entre las tablas de cliente y las de servidor.")
Case &SynchRecResult = 53
Msg("El dispositivo está enviando una versión no válida o antigua de la base de datos sin conexión, por favor actualice su app.")
Case &SynchRecResult = 99
Msg("Sincronización finalizada")
OtherWise
Msg("Sincronización finalizada con código de error: "+ &SynchRecResult.ToString().Trim() + " en recepción.")
EndCase
Else
Msg("Sincronización finalizó correctamente", nowait)
EndIf
// EndIf
Case &ServerStatus = 0
Msg("No hay nueva información para recibir", nowait)
EndCase
else
msg('Atención: No hay conexión con el servidor de aplicación, no se pudo realizar la sincronización.' + newline() + 'Por favor intente nuevamente.')
endif
endsub |
|
|
|
|
Back to sd |
|