GetArea()FunciónObligatorio
No recibe argumentos y retorna un array con Alias(), IndexOrd() y Recno().
FUNDAMENTOPublicado
Preservación de áreas con GetArea y RestArea
aArea := GetArea() // ... procesamiento ... RestArea(aArea)Conserva alias, orden y registro antes de navegar por tablas y devuelve al llamador el mismo contexto de trabajo.
Descripción general
Una rutina AdvPL que selecciona alias, cambia órdenes o mueve registros puede alterar el entorno que el código llamador espera seguir utilizando. GetArea() captura el alias activo, el orden seleccionado y el registro actual; RestArea() restaura ese conjunto. Cuando se manipula un alias conocido, conserva tanto el área general como el área específica. Restaura primero el alias manipulado y al final el área general, pues la última área restaurada queda activa. Los ejemplos actuales también presentan FWGetArea() y FWRestArea() como alternativas del Framework; confirma su disponibilidad en la LIB y utiliza de forma consistente el par adoptado por el proyecto.
Sintaxis
aArea := GetArea() // ... procesamiento ... RestArea(aArea)Parámetros
Alias->(GetArea())ExpresiónOpcional
Captura un área específica sin convertirla definitivamente en el área activa de la rutina.
RestArea(aArea)FunciónObligatorio
Recibe el array de GetArea() y restaura alias, orden y registro. La última restauración determina el área activa.
Retorno
GetArea() retorna un array con el alias, el orden y el número de registro actuales. RestArea() recompone el entorno guardado.
Conservar el área activa
#Include "TOTVS.ch"
User Function ExConsultaCliente()
Local aAreaAnterior := GetArea()
Local cNombreCliente := ""
DbSelectArea("SA1")
SA1->(DbSetOrder(1))
If SA1->(DbSeek(xFilial("SA1") + "000001"))
cNombreCliente := SA1->A1_NOME
EndIf
RestArea(aAreaAnterior)
Return cNombreClienteResultado esperado
La consulta utiliza SA1 sin dejar su contexto activo para el llamador.
Conservar el área general y una específica
#Include "TOTVS.ch"
User Function ExValidaProducto()
Local aAreaAnterior := GetArea()
Local aAreaSB1 := SB1->(GetArea())
Local lEncontrado := .F.
DbSelectArea("SB1")
SB1->(DbSetOrder(1))
lEncontrado := SB1->(DbSeek(xFilial("SB1") + "000001"))
SB1->(RestArea(aAreaSB1))
RestArea(aAreaAnterior)
Return lEncontradoResultado esperado
Se restauran SB1 y el entorno general del llamador.
Funciones del Framework
#Include "TOTVS.ch"
User Function ExAreaFramework()
Local aAreaAnterior := FWGetArea()
Local aAreaSC5 := SC5->(FWGetArea())
DbSelectArea("SC5")
SC5->(DbSetOrder(1))
SC5->(DbGoTop())
FWRestArea(aAreaSC5)
FWRestArea(aAreaAnterior)
ReturnResultado esperado
Se aplica el mismo patrón con las funciones del Framework disponibles en la LIB homologada.
- Captura el área antes de operaciones que cambien el contexto recibido.
- Guarda también Alias->(GetArea()) para cada alias conocido cuya posición será modificada.
- Restaura las áreas específicas antes del área general.
- Evita salidas que omitan la restauración; centraliza el retorno cuando sea útil.
- Trata la preservación como parte del contrato de puntos de entrada y llamadas estándar.
- Evalúa FWGetArea() y FWRestArea() según la LIB homologada y las convenciones del proyecto.
- Guardar solo el área general no protege necesariamente cada alias adicional.
- Restaurar primero el área general y luego otro alias cambia el contexto activo del llamador.
- El array guardado es un estado temporal, no una referencia permanente al registro.
- La preservación no sustituye bloqueos, transacciones, tratamiento de errores ni validación de DbSeek().
- Verifica la disponibilidad de las funciones del Framework en la LIB utilizada.