PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  ADVPL
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
P.E. Q215TDOK
Versão:
12.1.33
Plataforma:
Microsoft
Complemento:
DB:
Mysql
Complemento:
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário NAYRO 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 Enviar e-mail Abrir o Perfil do usuário ROBERTOMEN ROBERTOMEN em 14/02/2024, 18:09 h
Local: PR  Registro: 04/07/2017  Postagens: 450
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

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário NAYRO 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

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal