Autogenerar código
Man porfavor kisiera q me ayudes con como autogenerar el codigo ..Tengo mi tabla clientes con los sgtes campos (codigo,nombre,direccion) esa tabla clientes la tengo en un datawindows tipo freeforn, y un boton nuevo y cuado le de click en el boton nuevo me genere su codigo CL0001 - CL0002 - CL0003.......CL0010 Y asi cada vez q aprete el boton nuevo spero q me puedas ayudar man lo necesito muy urgente ...... Graciaz
*mi campo "codigo" es varchar(6)
*mi campo "codigo" es varchar(6)
1 respuesta
Respuesta de jasamo19
1
Eso es relativamente fácil, lo harías haci:
//Pones este código en el Evento Clicked() del botón Nuevo
/*Primero obtenemos el codigo maximo de la tabla clientes*/
string ls_codigo,ls_letra
long ll_numero
select max(codigo) into :ls_codigo from clientes;
if isnull(ls_codigo) or len(ls_codigo)=0 then
ls_codigo="CL0001" //si la tabla esta vacia le asignamos por defecto
else
ls_letra=left(ls_codigo,2) //sacamos la parte de letras
ll_numero=long((right(ls_codigo,4)))+1 //sacamos la parte numerica e incrementamos
ls_codigo=ls_letra+string(ll_numero,"0000") //juntamos la letra y numero
end if
/*Insertamos el codigo generado al campo respectivo*/
dw_clientes.setitem(dw_clientes.getrow(),"codigo",ls_codigo)
/*********************/
/*********************/
//Pones este código en el Evento Clicked() del botón Nuevo
/*Primero obtenemos el codigo maximo de la tabla clientes*/
string ls_codigo,ls_letra
long ll_numero
select max(codigo) into :ls_codigo from clientes;
if isnull(ls_codigo) or len(ls_codigo)=0 then
ls_codigo="CL0001" //si la tabla esta vacia le asignamos por defecto
else
ls_letra=left(ls_codigo,2) //sacamos la parte de letras
ll_numero=long((right(ls_codigo,4)))+1 //sacamos la parte numerica e incrementamos
ls_codigo=ls_letra+string(ll_numero,"0000") //juntamos la letra y numero
end if
/*Insertamos el codigo generado al campo respectivo*/
dw_clientes.setitem(dw_clientes.getrow(),"codigo",ls_codigo)
/*********************/
/*********************/
