Ajuda p/o campo (PURSTO) 

Esta função permite de expurgar o ficheiro stocks das linhas de stock espessas (quantidade em unidade de stock = 0)