Tiempo aproximado de lectura 00:05:00 min
Duda
¿Cual es el uso del Punto de Entrada AT040ROT?
Entorno
Cross Segmentos - TOTVS Backoffice (Linea Protheus) - MI - Gestión de Servicios (SIGATEC) - A partir de la versión 12.1.2310
Solución
Este punto de entrada es utilizado para adicionar opciones de rutina en el registro de Bases de Atención, esto en la ejecución de la rutina TECA040.
Ejemplo:
Static Function Exemplo()
//DEFININDO EXEMPLO DE ARRAY DE ROTINA
Local aRotina := {
{“Pesquisar”, “AxPesqui”, 0, 1, 0, .F. } , ;
{“Visualizar”, “At040Visua”, 0, 2, 0, .T. }, ;
{“Incluir”, “At040Inclui”, 0, 3, 0, .T. } }
}
Local aNovaRot := {}
//Adicionando novas rotinas através do ponto de entrada
If ExistBlock (“AT040ROT”)
//Verifica se o tipo de retorno é um Array
If ValType ( aNovaRot := ExecBlock(“AT040ROT”, .F.,.F.) ) == “A”
AEval( aNovaRot, { |x| AADD(aRotina, x) } )
ENDIF
ENDIF
Return(aRotina)
//Exemplo de inclusão de novas rotinas
User Function AT040ROT()
Local aRet := { {“Alterar”, “At040Alter”, 0, 4, 0, .T.},;
{“Excluir, “ At040Delet”, 0, 5, 0, .T.} }
Return aRet
/* Ao término da execução do método exemplo, o array irá conter as seguintes rotinas: Pesquisar, Visualizar, Incluir, Alterar, Excluir.*/
0 Comentarios