ABCDEFGHIJKLMNOPQRSTUVWXYZ#
__DBPack
Remove todos os registros com marca de excluído da tabela. Exemplo:(TRB)->(DbGoTop()) While !(TRB)->(Eof()) If (QtdComp((TRB)->TP_QTDREAB) <= QtdComp(0)) RecLock(TRB,.F.) (TRB)->(DbDelete()) MsUnlock(TRB) EndIf (TRB)->(DbSkip()) EndDo (TRB)->(__DBPack())
Deixe uma resposta