- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Adicionar Linha em arquivo DBF
×
Linguagem de Programação ADVPL
Perguntas Adicionar Linha em arquivo DBF
- gustavo13
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
11 anos 5 meses atrás #14854
por gustavo13
Adicionar Linha em arquivo DBF foi criado por gustavo13
Olá!
Como posso adicionar um linha nova em um arquivo DBF pré-existente, criei este arquvio DBF e quero utiliza-lo como um arquivo de logs, consigo executar a leitura dele e exibição, mas não sei como adicionar um novo registro no ADVPL.
Como posso adicionar um linha nova em um arquivo DBF pré-existente, criei este arquvio DBF e quero utiliza-lo como um arquivo de logs, consigo executar a leitura dele e exibição, mas não sei como adicionar um novo registro no ADVPL.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 5 meses atrás #14856
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Adicionar Linha em arquivo DBF
If RecLock("ALIAS",.t.)
ALIAS->CAMPO := VARIAVEL
MSUNLOCK()
Endif
ALIAS->CAMPO := VARIAVEL
MSUNLOCK()
Endif
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- gustavo13
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
11 anos 5 meses atrás #14877
por gustavo13
Respondido por gustavo13 no tópico Adicionar Linha em arquivo DBF
Segue o fonte abaixo, minha duvida é em como irei repassar esta nova linha para o arquivo DBF salvo no sytem? Isto é possivel? Pois com o código me passado abaixo consigo apenas no arquivo temporario.
If File(_cArquivo)
USE &_cArquivo NEW ALIAS TRB
else
msgalert("Arquivo nao encontrado !", "Verifique!")
return
ENDIF
DbSelectArea("TRB")
Do while !EOF()
MsgInfo(TRB->DSAD)
DbSelectArea("TRB")
dbskip()
ENDDO
RecLock("TRB",.t.)
TRB->DSAD := "TESTE"
MSUNLOCK()
If File(_cArquivo)
USE &_cArquivo NEW ALIAS TRB
else
msgalert("Arquivo nao encontrado !", "Verifique!")
return
ENDIF
DbSelectArea("TRB")
Do while !EOF()
MsgInfo(TRB->DSAD)
DbSelectArea("TRB")
dbskip()
ENDDO
RecLock("TRB",.t.)
TRB->DSAD := "TESTE"
MSUNLOCK()
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
11 anos 5 meses atrás #14881
por kanaamlrr
Respondido por kanaamlrr no tópico Adicionar Linha em arquivo DBF
troca
USE &_cArquivo NEW ALIAS TRB
por
USE &_cArquivo ALIAS TRB
dessa forma você não cria um novo arquivo, e sim abre o que já existe.
USE &_cArquivo NEW ALIAS TRB
por
USE &_cArquivo ALIAS TRB
dessa forma você não cria um novo arquivo, e sim abre o que já existe.
Por favor Acessar ou Registrar para participar da conversa.
- gustavo13
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Adicionar Linha em arquivo DBF
Tempo para a criação da página:0.118 segundos