Histórico da Página

#Include 'Protheus.ch'

User Function MT110RCC()

Local aHeaderCH := PARAMIXB[1]
Local aColsCH   := PARAMIXB[2]

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

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

Return aColsCH