FoxPro/Visual FoxPro - Generar numero de inventario

   
Vista:

Generar numero de inventario

Publicado por Fancisco (4 intervenciones) el 03/03/2009 23:25:07
Hola, quisiera que alguien me dijera como genero el codigo de inventario de los activos fijos automaticamente de acuerdo al correlativo y otros aspectos, por ejemplo. si yo quiero ingresar 100 mesas para computadoras el codigo debe ser el siguiente:

Cod. Institucion + Clase de activo fijo + Correlativo
10205 0114 0001

Ahora bien, como son 100 mesas quiero que automaticamente me genere los 100 codigos del 1 al 100 y si quiero agregar mas que sea del 100 en adelante, esto es cuando el activo fijo no tiene modelo ni numero de serie.

de ante mano muchas gracias
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

Generar numero de inventario

Publicado por Mauricio (1368 intervenciones) el 04/03/2009 04:42:38
Partiendo del supuesto que es una tabla ya existente puedes usar esto:
*--- Programa para generar correlativo de Activo Fijo
*--- La tabla Inventa esta creada como LIBRE
*--- La estructura es: codigo N(5), act_fijo C(4), corre C(4)
*--- fecha D
CLOSE TABLE ALL
USE inventa IN 0 ORDER clave
SELE inventa
GO TOP
wcodigo = codigo
wactivo = act_fijo
STORE 0 TO wcorre
SCAN
IF codigo = wcodigo AND act_fijo = wactivo
wcorre = wcorre + 1
otro = PADL(INT(wcorre), 4, '0')
REPLACE correla WITH otro, fecha WITH DATE()
ELSE
wcodigo = codigo
wactivo = act_fijo
wcorre = 0
wcorre = wcorre + 1
otro = PADL(INT(wcorre), 4, '0')
REPLACE correla WITH otro, fecha WITH DATE()
ENDIF
ENDSCAN
USE
CLOSE TABLE ALL
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