Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - SIGAEST - Funcionalidad del Punto de entrada M805DAD en la rutina MATA805

#Include 'Protheus.ch'

//Este exemplo troca a ordem da primeira coluna com a ultima coluna

//Note que eh preciso manipular os dois vetores, e nao apenas um deles

User Function M805DAD()

Local dData
Local aHeaderAux
Alert("Olá, Ponto de Entrada! ")
dData = aCols[19]
aCols[19] = aCols[11]
aCols[11] = dData

aHeaderAux = aHeader[9]
aHeader[9] = aHeader[1]
aHeader[1] = aHeaderAux

Return