| |
|
Bem Vindo, Visitante
|
 Todos os Fórums
  ADVPL
|
 Imprimir
 Enviar Para um Amigo
Precisa estar Logado
|
 |
 |
Assunto: |
P.E. Q215TDOK |
|
Versão: |
12.1.33 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
Mysql |
Complemento: |
|
|
|
|
|
|
|
Mensagem do
NAYRO
em 14/02/2024, 17:35 h
Local: SP Registro: 14/02/2024 Postagens: 2 |
Boa Tarde, Pessoal!
Sou iniciante em programação ADVPL, estou tentando criar um P.E., que nao deixe concluir a processo de gravação do resultado na inspeção de processo. Porem esta dando erro :
Update error - File is in EOF - QPL990 in file C:\bamboo\xml-data\build-dir\TP11-OF20310-TECXWIN64\advpl\advplfile.cpp at line 72
on U_Q215TDOK(Q215TDOK.PRW) 14/02/2024 17:08:02 line : 17
Fonte :
User Function Q215TDOK()
Local aArea := GetArea()
Local aAreaQPL := QPL->(GetArea())
Local lRet := .T.
//lRet := MsgYesNo("Deseja continuar?", "Atenção")
IF QPL->QPL_APROVA :=‘‘
lRet:=.F.
ENDIF
RestArea(aAreaQPL)
RestArea(aArea)
Return lRet
atenciosamente |
|
|
|
Mensagem do
ROBERTOMEN
em 14/02/2024, 18:09 h
Local: PR Registro: 04/07/2017 Postagens: 544 |
Boa Tarde.
Nairo para condição use apenas =
quando vc usa := é atribuição e por ist ocorre o erro update o sistema está entendendo que vc quer mudar o valor de QRY->QPL_APROVA para ‘‘
outro detalhe é que me parece que a tabela QPL não está posicionada e se eu estiver certo QPL_APROVA vai ser sempre vazio.....
faça o teste debugando e se for preciso posicione a QPL
User Function Q215TDOK()
Local aArea := GetArea()
Local aAreaQPL := QPL->(GetArea())
Local lRet := .T.
//lRet := MsgYesNo("Deseja continuar?", "Atenção")
IF QPL->QPL_APROVA = ‘‘ // ou if empty(PL->QPL_APROVA)
lRet:=.F.
ENDIF
RestArea(aAreaQPL)
RestArea(aArea)
Return lRet |
|
|
|
Mensagem do
NAYRO
em 21/02/2024, 12:29 h
Local: SP Registro: 14/02/2024 Postagens: 2 |
Bom dia
Obrigado Roberto! deu certo!
atenciosamente |
|
 Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|
