FoxPro/Visual FoxPro - Consecutivo

   
Vista:

Consecutivo

Publicado por Juan (39 intervenciones) el 06/12/2010 15:35:01
Buenos días a todos los programadores.

Estoy diseñando un proyecto el cual incluye una tabla con el campo codigo, cuyo dato esta conformado por el año actual y un número consecutivo, por ejemplo:
1er registro = 20101
2do registro= 20102......... y así sucesivamente

Utilizo la función que me extra el año. Pero quiero hacer que cuando cambie al año siguiente el consecutivo empiece desde 1 nuevamente, por ejemplo 20111, 20112, 20113.....

Me podría colaborar por favor dándome una idea...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio

Consecutivo

Publicado por Mauricio (1367 intervenciones) el 06/12/2010 16:08:39
CLOSE TABLE ALL
USE mi_tabla IN 0 && Tabla con codigo....
SELE mi_tabla
*
* Para saber si es primer registro *****
IF RECC() = 0 && Primer registro
* Crear primer registro
ENDIF
*
* Aca ya existe registro
* Extraer el año de mi_tabla.codigo
IF año_codigo != año_digitado
* Aca se crea el nuevo año iniciando desde 1
ELSE
* Aca se incrementa el correlativo en 1
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar