Histórico da Página

#Include 'Protheus.ch'

User Function MT110RCC()

Local aHeaderCHaHeaderCX := PARAMIXB[1]
Local aColsCX aColsCH  := PARAMIXB[2]

//Validações do usuario Exemplo de utilização
Local nRat      := aScan(aHeaderCX ,{|x| AllTrim(x[2])=="CX_PERC"})
Local nConta    := aScan(aColsCX ,{|x| AllTrim(x[2])=="CX_CONTA"})
Local nX		:= 0

For nX := 1 to Len(aColsCX)
    aColsCX[nX][nRat]   := 25
    aColsCX[nX][nConta] := Padr("CONTAPE",TamSX3("CX_CONTA")[1]) 
Next nX

Return aColsCHaColsCX