lUnlockLibera locks anteriores quando verdadeiro; padrão .T.
AdvPL GuiaDBAppend( [lUnlock] ) --> NilInclui um registro vazio na tabela corrente.
DBAppend adiciona um registro vazio e retorna Nil. lUnlock verdadeiro, padrão, libera locks anteriores; falso os mantém. Essa opção não substitui a gestão de bloqueio e transação do processo. O fragmento usa falso explicitamente e não atribui campos: uma rotina completa precisa tratar falha da inclusão e validar o registro antes de continuar. EDTRB identifica exclusivamente uma tabela própria de teste, já aberta com a estrutura e os direitos necessários; os exemplos não se destinam a tabelas padrão. (TOTVS, s.d., ref. 1)
DBAppend( [lUnlock] ) --> NillUnlockLibera locks anteriores quando verdadeiro; padrão .T.
Nil; não é um indicador lógico de sucesso.
#Include "Protheus.ch"
User Function Ed323()
// EDTRB deve ser propria, descartavel e gravavel em homologacao.
If Select("EDTRB") > 0
EDTRB->(DBAppend(.F.))
EndIf
Return NilSolicita inclusão vazia se EDTRB estiver aberta; não é teste completo de persistência. Em revisão: exemplo editorial não compilado nem executado em Protheus. Conferir includes, release, RDD e contexto antes de homologar.
© 2026 Usina.BR. Todos os direitos reservados. TOTVS, Protheus, Microsiga e seus respectivos logotipos são marcas de seus titulares. O AdvPL Guia é independente e utiliza citações limitadas, atribuídas e justificadas por finalidade educativa. Consulte os Termos de Uso. Termos de Uso
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.