Autor Tema: Codigo correlativo en PB (Leído 3249 veces)

caronte90 · « **en:** Domingo 26 de Abril de 2009, 00:25 »

Bueno tengan un grato saludo y agradeceles de antemano.
El problema que tengo es que estoy tratando de desarrollar una aplicacion en la cual el codigo se autogenere de manera correlativa inluyendo la letra "E" de egreso o la "I" de ingreso, ejemplo:

E001
E010
E100

I001
I010
I100

bueno y logicamente que cada vez que cierre laaplicacion cuando vuelva abrir pueda continua la numeracion.
Intente hacer con un archivo ini, inicializandolo en 1, extrayendo el valor y tratando de volver a grabarlo, el problema es que no puedo grabar el numero cuando coloco el codigo
"SetProfileString"
no se como enviar el valor de la variable. y si hubiese otro modo bueno estoy abierto a las opiniones, muy agradecido.

ptres

Estimado:
Este script te genera el correlativo del codigo y te agrega la fila de tu dw, no olvides dejar en "0" el Tab Order para que no se modifique y lo otro que en tu consulta SQL del dw tienes que relizar un ORDER BY ASC; para cualquier tipo de duplicacion de codigo espero que se sirva, me avisas cualquier problema. Suerte.

long ll_cant, ll_fila
string ls_correlativo

dw_1.SetTransObject(SQLCA)

ll_fila = dw_1.InsertRow(0)
dw_1.SetFocus()
dw_1.ScrollToRow(ll_fila)
IF ll_fila = 1 THEN
SELECT count(convert(int,RIGHT(ac_codigo,3)))
INTO :ll_cant
from activos_m;
ELSE
ll_cant = long(right(dw_1.GetItemString(ll_fila - 1,"ac_codigo"),3))
END IF
ll_cant += 1
ls_correlativo = string(ll_cant,'AC000')
dw_1.SetItem(ll_fila,"ac_codigo",ls_correlativo)

SoloCodigo

Autor Tema: Codigo correlativo en PB (Leído 3249 veces)

caronte90

Codigo correlativo en PB

ptres

Re: Codigo correlativo en PB