Para que sea quitado los ceros al imprimir una clave de producto, es necesario hacer lo siguiente:
1.Dentro del Editor en la pestaña [Diseño] del Reporte localice el Objeto que esta vinculado a la Clave.
2.En las Propiedades verifique o asigne que nombre tiene en [UserName], para el ejemplo usaremos [ClaveProducto]
3.Ahora entre a la pestaña [Calc] y localice el Objeto que identifico en el paso anterior, en el ejemplo se le puso [ClaveProducto]
4.Selección el Evento para ClaveProducto llamado [OnGetText]
5.Dentro del código Begin End; deberá agregar la siguiente programación, esto hará que el sistema quite todos los ceros encontrados a la izquierda de la Clave:
Begin if (Pos('00000000000', text)=1) then Delete(Text, 1, 11) else if (Pos('0000000000', text)=1) then Delete(Text, 1, 10) else if (Pos('000000000', text)=1) then Delete(Text, 1, 9) else if (Pos('00000000', text)=1) then Delete(Text, 1, 8) else if (Pos('0000000', text)=1) then Delete(Text, 1, 7) else if (Pos('000000', text)=1) then Delete(Text, 1, 6) else if (Pos('00000', text)=1) then Delete(Text, 1, 5) else if (Pos('0000', text)=1) then Delete(Text, 1, 4) else if (Pos('000', text)=1) then Delete(Text, 1, 3) else if (Pos('00', text)=1) then Delete(Text, 1, 2) else if (Pos('0', text)=1) then Delete(Text, 1, 1);
End;
|
6.Guarde el Reporte y Listo.