Histórico da Página

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#Include 'Protheus.ch'
 
User Function MT110RCC()
 
Local aHeaderCX := PARAMIXB[1]
Local aColsCX   := PARAMIXB[2]
 
// 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 aColsCX