A função Soma1() é comumente utilizada nas rotinas do modulo Faturamento, como por exemplo no controle de numeração dos item de um pedido de Venda ou de um Documento de Saída. Possuindo a documentação própria:
E a documentação a respeito de sua limitação:
Visando um melhor entendimento de seu funcionamento trouxemos o exemplo abaixo de como o incremento de valor nesta é feito, usando como base o tamanho de dois caracteres (mesmo tamanho usado nos itens do pedido de venda e no documento de saída).
Exemplo:
User Function Exemplo()
Local cValor := "00"
Local nX := 0
Local nY := 0
Local cMessage := ""
Local aValores := {}
For nX := 1 To 150
cValor := Soma1(cValor)
aadd(aValores, {nX, cValor})
Next nX
For nY := 1 To 30
cMessage += "|" + AllTrim(Str(aValores[nY][1])) + " --> " + aValores[nY][2] + "| "
cMessage += "|" + AllTrim(Str(aValores[nY+30][1])) + " --> " + aValores[nY+30][2] + "| "
cMessage += "|" + AllTrim(Str(aValores[nY+60][1])) + " --> " + aValores[nY+60][2] + "| "
cMessage += "|" + AllTrim(Str(aValores[nY+90][1])) + " --> " + aValores[nY+90][2] + "| "
cMessage += "|" + AllTrim(Str(aValores[nY+120][1])) + " --> " + aValores[nY+120][2] + "| "
cMessage += CRLF
Next nY
Return MsgInfo( cMessage, "Soma1 - Exemplo" ) |
Veja que o resultado apresenta um valor alfanumérico para as numerações que superam 99, isso ocorre pois a variável cValor é um caracter com tamanho 2.
