Marca o registro atual para exclusão.
DBDelete()
O exemplo abaixo utiliza a RDD "TOPCONN", mas a função pode ser utilizada com qualquer uma das RDDs válidas.
#include "totvs.ch" user function test() Local nHandle := TCLink() Local cTable := "MYTABLE" Local cRDD := "TOPCONN" // Abre a tabela DBUseArea( .T., cRDD, cTable, (cTable), .F., .F. ) // Maraca os registros para deleção DBGoTo( 100 ) DBDelete() DBGoTo( 105 ) DBDelete() DBGoTo( 110 ) DBDelete() // Remove efetivamente os regisros PACK // Fecha a tabela DBCloseArea() // Desconecta do SGBD TCUnlink( nHandle ) return