cSomaCaractereObligatorio
Secuencia de caracteres que será incrementada.
FUNCIóNPublicado
Soma1
Soma1( <cSoma>, [nPos], [lSomaLow], [lCompleteSUM] ) → cRetIncrementa una secuencia de caracteres combinando dígitos y letras cuando es necesario.
Descripción general
Soma1() genera el siguiente valor de una secuencia textual. Es útil cuando un campo de caracteres debe avanzar sin conversión numérica directa, por ejemplo, en numeraciones cortas de ítems, códigos internos o contadores de pantalla. La secuencia puede pasar de dígitos a letras; por eso no debe tratarse como un número común ni usarse en cálculos aritméticos.
Sintaxis
Soma1( <cSoma>, [nPos], [lSomaLow], [lCompleteSUM] ) → cRetParámetros
nPosNuméricoOpcional
Posición de la secuencia que se moverá.
lSomaLowLógicoOpcional
Indica el uso de caracteres minúsculos.
lCompleteSUMLógicoOpcional
Controla el uso completo de los caracteres disponibles; la fuente consultada indica .F. como valor predeterminado.
Retorno
Retorna una cadena con el siguiente valor de la secuencia.
Incremento simple
User Function ExSoma1Simple()
Local cSecuencia := "100"
cSecuencia := Soma1(cSecuencia)
MsgInfo(cSecuencia, "Siguiente secuencia")
ReturnResultado esperado
La secuencia "100" pasa a "101".
Cuando la secuencia alcanza letras
User Function ExSoma1Alfanumerico()
Local cSecuencia := "9999"
cSecuencia := Soma1(cSecuencia)
MsgInfo(cSecuencia, "Secuencia alfanumérica")
ReturnResultado esperado
En el ejemplo de referencia, "9999" pasa a "999A". Valida la compatibilidad del entorno antes de usarla como regla de negocio.
Generar y retroceder una secuencia
User Function ExSoma1YTira1()
Local cSecuencia := "00"
Local nPaso
For nPaso := 1 To 150
cSecuencia := Soma1(cSecuencia)
Next nPaso
cSecuencia := Tira1(cSecuencia)
MsgInfo(cSecuencia, "Secuencia")
ReturnResultado esperado
El bucle avanza una secuencia textual; Tira1() retrocede un paso con el mismo formato.
- Trata el resultado como una secuencia alfanumérica, no como un número aritmético.
- Ejemplos comunitarios muestran "100" pasando a "101", "9999" a "999A" y "123AB" a "123AC".
- La transición de dígitos a letras puede depender de la compatibilidad del entorno; valida la regla homologada.
- Tira1() es la operación complementaria de decremento.
- No conviertas el retorno a numérico si puede contener letras.
- No uses Soma1() como mecanismo de unicidad transaccional.
- Prueba los argumentos opcionales en todo el rango de transición esperado.
- Asegura que el campo destino soporte el formato generado.