- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Erro na alteração da tabela de dados com o RecLock()
×
Linguagem de Programação ADVPL
Perguntas Erro na alteração da tabela de dados com o RecLock()
- viniciusbsilva
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 29
- Obrigados Recebidos: 0
8 anos 11 meses atrás #29838
por viniciusbsilva
Olá pessoal,
Estou fazendo um programa de registro de backup que é rodado em um coletor e é feito na plataforma IDE da TOTVS, nesse registro tem uma parte onde eu preciso ir na tabela de dados para adcionar informaçoes e outra ara alterar informações o laço de repetição IF que eu criei esta funcioanando até a ultima mensagem que é um VTAlert() informando que o backup foi registrado. Não sei se é erro de lógica ou sintaxe por isso peço a ajuda de vocês abaixo segue o laço de repetição que me refiro.
Estou fazendo um programa de registro de backup que é rodado em um coletor e é feito na plataforma IDE da TOTVS, nesse registro tem uma parte onde eu preciso ir na tabela de dados para adcionar informaçoes e outra ara alterar informações o laço de repetição IF que eu criei esta funcioanando até a ultima mensagem que é um VTAlert() informando que o backup foi registrado. Não sei se é erro de lógica ou sintaxe por isso peço a ajuda de vocês abaixo segue o laço de repetição que me refiro.
If cTipoBack == "1"
If TerEsc()
nTela --
Exit
EndIf
TerCls()
TerCBuffer()
TerIsQuit()
U_TerYesNo("Registrar backup", "Deseja registrar um backup?", "S")
RecLock("ZBF", .T.) //.T. adicionar, .F. alterar.
ZBF->ZBF_IDSES := cCodSessao
ZBF->ZBF_DTRET := cDRetrn //Separar entre as que vão adicionar ao banco de dados e as que vão alterar.
ZBF->ZBF_TIPO := cTipoBack
ZBF->(MsUnLock())
RecLock("ZBF", .F.) //Altereção, campos que ja constam na tabela de dados.
ZBF->ZBF_FILIAL := xFilial("ZBF")
ZBF->ZBF_LOCAL := cLocal
ZBF->(MsUnLock())
VTAlert("Backup registrado", "Alerta")
ElseIf cTipoBack # "1"
If TerEsc()
nTela --
Exit
EndIf
TerCls()
TerCBuffer()
TerIsQuit()
U_TerYesNo("Registrar backup", "Deseja registrar um backup?", "S")
RecLock("ZBF", .T.)
ZBF->ZBF_IDSES := cCodSessao
ZBF->ZBF_DTRET := cD2Retrn
ZBF->ZBF_TIPO := cTipoBack
ZBF->(MsUnLock())
RecLock("ZBF", .F.)
ZBF->ZBF_FILIAL := xFilial("ZBF")
ZBF->ZBF_LOCAL := cLocal
ZBF->(MsUnLock())
VTAlert("Registar backup", "Deseja registrar um backup?", "S")
EndIf
Por favor Acessar ou Registrar para participar da conversa.
- viniciusbsilva
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 29
- Obrigados Recebidos: 0
8 anos 11 meses atrás #29839
por viniciusbsilva
Respondido por viniciusbsilva no tópico Erro na alteração da tabela de dados com o RecLock()
Eu revisei todo o programa e consegui descobrir o erro, mas agora quando ele registra na tela de dados não registra alguns campos como ID da fita e o mês de validade mesmo que eu tenha passado pra tabela.
If cTipoBack == "1"
If TerEsc()
nTela --
Exit
EndIf
TerCls()
TerCBuffer()
TerIsQuit()
U_TerYesNo("Registrar backup", "Deseja registrar um backup?", "S")
RecLock("ZBF", .T.)
ZBF->ZBF_IDSES := cCodSessao
ZBF->ZBF_DTRET := StoD(cDRetrn)
ZBF->ZBF_TIPO := cTipoBack
ZBF->(MsUnLock())
RecLock("ZBF", .F.)
ZBF->ZBF_FILIAL := xFilial("ZBF")
ZBF->ZBF_IDFITA := cIDFita
ZBF->ZBF_VALID := nMesVal
ZBF->ZBF_DTCAD := cDataCad
ZBF->ZBF_LOCAL := cLocal
ZBF->(MsUnLock())
VTAlert("Backup registrado", "Regitro de backup")
ElseIf cTipoBack # "1"
If TerEsc()
nTela --
Exit
EndIf
TerCls()
TerCBuffer()
TerIsQuit()
U_TerYesNo("Registrar backup", "Deseja registrar um backup?", "S")
RecLock("ZBF", .T.)
ZBF->ZBF_IDSES := cCodSessao
ZBF->ZBF_DTRET := StoD(cD2Retrn)
ZBF->ZBF_TIPO := cTipoBack
ZBF->(MsUnLock())
RecLock("ZBF", .F.)
ZBF->ZBF_FILIAL := xFilial("ZBF")
ZBF->ZBF_IDFITA := cIDFita
ZBF->ZBF_VALID := nMesVal
ZBF->ZBF_DTCAD := cDataCad
ZBF->ZBF_LOCAL := cLocal
ZBF->(MsUnLock())
VTAlert("Backup registrado", "Registro de backup")
EndIf
Por favor Acessar ou Registrar para participar da conversa.
- viniciusbsilva
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 29
- Obrigados Recebidos: 0
8 anos 11 meses atrás #29847
por viniciusbsilva
Respondido por viniciusbsilva no tópico Erro na alteração da tabela de dados com o RecLock()
Tópico resolvido.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Erro na alteração da tabela de dados com o RecLock()
Tempo para a criação da página:0.094 segundos