RE:Como hacer un campo foliador o progresivo
Te envio una funcion que yo uso para crear un numero de folio consecutivo, funciona para campos numericos y caracter, bueno echale un vistazo, espero que te sirva
********************************************************************************
* Funcion "Contador"
*
* Descripción: Trae el valor Maximo de un campo en una tabla y le suma
* uno, este campo debe ser de tipo NUMERICO, regresa este
* valor en la variable Max
*
* Parametros Tabla = Nombre de la Tabla "XTabla"
* Campo = Nombre del Campo "XCAMPO"
*
* Sintaxis: x = contador("nombre_tabla", "nombre Campo")
********************************************************************************
Function Contador
Parameters Tabla,Campo, long
if empty(long) Then
Long = 0
endif
Public Arrmax
Dime ArrMax (1,1)
ArrMax(1,1) = 0
if long = 0 Then
Selec Max(&Campo) from &Tabla into array ArrMax
Else
Selec Max(val(&Campo)) from &Tabla into array ArrMax
Endif
If Empty(ArrMax(1,1)) Then
Max = 1
Else
Max = ArrMax(1,1) + 1
EndIf
if long >0 Then
ceros = replicate("0",long)
maxs = substr(ceros,1,len(ceros)-len(allt(str(Max)))) + allt(str(Max))
Max = maxs
Endif
Release ArrMax
Return Max