- /
- /
- /
AxAltera
Função para alterar um registro de uma tabela.
Exemplo da Rotina:
AxAltera("Alias", nRECNO_do_Registro, 4)
Exemplo 1- Alteração teste de Produto:
//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 := AxAltera('SB1', SB1->(RecNo()), 4) 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
Receba novidades
Junte-se a 1.923 outros assinantes