AxDeleta

Função que exclui um registro de uma tabela.

Exemplo da Rotina:

AxDeleta("Alias", nRECNO_TABELA, 5)

Exemplo 1- Exclusão de um produto:

AxCadastro - Exemplo 1
AxCadastro – Exemplo 1
//Bibliotecas
#Include "Protheus.ch"
 
/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
    @example
    u_zTeste()
/*/ 
User Function zTeste()
Local aArea       := GetArea()
Local aAreaB1     := SB1->(GetArea())
Local nOpcao      := 0
Private cCadastro := "Teste"

DbSelectArea('SB1')
SB1->(DbSetOrder(1)) //B1_FILIAL + B1_COD
SB1->(DbGoTop())

//Se conseguir posicionar no produto
If SB1->(DbSeek(FWxFilial('SB1') + 'F00001'))
nOpcao := AxDeleta('SB1', SB1->(RecNo()), 5)
If nOpcao == 1
MsgInfo("Rotina confirmada", "Atenção")
EndIf
EndIf

RestArea(aAreaB1)
RestArea(aArea)
Return

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;

Referências:

TDN