Histórico da Página

#Include 'Protheus.ch'

User Function MT110RCC()

Local aHeaderCX := PARAMIXB[1]
Local aColsCX   := 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(aColsCX)
    aColsCX[nX][nRat]   := 25
    aColsCX[nX][nConta] := Padr("CONTAPE",TamSX3("CX_CONTA")[1]) 
Next nX

Return aColsCX