Histórico da Página

#Include 'Protheus.ch'

User Function MT110RCC()

Local aHeaderCHaHeaderCX := PARAMIXB[1]
Local aColsCHaColsCX   := PARAMIXB[2]

// Exemplo de utilização
Local nRat      := aScan(aHeaderCHaHeaderCX ,{|x| AllTrim(x[2])=="CX_PERC"})
Local nConta    := aScan(aHeaderCHaColsCX ,{|x| AllTrim(x[2])=="CX_CONTA"})
Local nX		:= 0

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

Return aColsCHaColsCX