Você está aqui: Início Fórum Protheus/Microsiga/Totvs AdvPL (Advanced Protheus Language) Dúvidas Gerais Erro na alteração da tabela de dados com o RecLock()
  1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Dúvidas Gerais
  9. 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()

Mais
8 anos 4 meses atrás #29838 por viniciusbsilva
Erro na alteração da tabela de dados com o RecLock() foi criado 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.
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.

Mais
8 anos 4 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.

Mais
8 anos 4 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.

  1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Dúvidas Gerais
  9. Erro na alteração da tabela de dados com o RecLock()
Tempo para a criação da página:0.065 segundos
Joomla templates by a4joomla