Type mismatch num código simples

Framework - Linha Protheus LIB
,
1

O código abaixo renderiza naturalmente sob provocação do menu que eu criei para teste na SIGACTB. O arquivo fonte é '.prw'.


#INCLUDE "rwmake.ch"
User Function aula01()
local cVldAlt:=.T.
local cVldExc:=.T.
Private cPerg:="PEGZZ9"
Private cString:="ZZ9"
DbSelectArea("ZZ9")//nome da tabela em que estou trabalhando
DbSetOrder(1)
Pergunte(cPerg,.F.)
setKey(123,{||Pergunte(cPerg,.T.)}) //Seta a tecla f12 para acionamento dos parâmetros
AxCadastro(cString,"Cadastro de Pessoas",cVldExc,cVldAlt)
Set Key 123 to //Desativa a tecla F12 para acionamento dos parâmetros
Return

Entretanto, quando aciono o botão Incluir, aparece um erro, assim:


THREAD ERROR ([1100], Mautresim, PC-MEU)   05/08/2021 16:31:40
type mismatch on +  on AXINCLUI(MATXATU.PRX) 25/08/2020 16:28:19 line : 520

[TOTVS build: 7.00.191205P-20201012]
Called from AXCADINC(MATXATU.PRX) 25/08/2020 16:28:19 line : 2196
Called from FWFORMBROWSE:EXECUTE(FWFORMBROWSE.PRW) 13/10/2020 16:57:59 line : 1142
Called from { || OSELF:EXECUTE("AXCADINC",              3,             0,"INCLUIR",              3,"","INCLUIR","",               3) }(FWFORMBROWSE.PRW) 13/10/2020 16:57:59 line : 575
Called from ::MSDIALOG:ACTIVATE
Called from FWMBROWSE:ACTIVATE(FWMBROWSE.PRW) 13/10/2020 16:57:59 line : 690
Called from FWMBROWSE(MSLIB.PRW) 13/10/2020 16:57:59 line : 10765
Called from MBROWSE(MSLIB.PRW) 13/10/2020 16:57:59 line : 170
Called from AXCADASTRO(MATXATU.PRX) 25/08/2020 16:28:19 line : 2173
Called from U_AULA01(PRIMEIRO.PRW) 05/08/2021 16:22:21 line : 11
Called from SIGAIXB(APLIB190.PRW) 13/10/2020 16:57:54 line : 231
Called from __EXECUTE(APLIB090.PRW) 13/10/2020 16:57:54 line : 654
Called from FWPREEXECUTE(FWPREEXECUTE.PRW) 13/10/2020 16:57:59 line : 79
Called from { ||   FWPreExecute('xpto', 'AULA01()', 3, '34', 'xxxxxxxxxx') }(FWUIMENUL.PRW) 13/10/2020 16:57:59 line : 197
Called from ::TWINDOW:ACTIVATE
Called from MSAPP:ACTIVATE(FWAPP.PRW) 13/10/2020 16:57:59 line : 755
Called from SIGACTB(APLIB000.PRW) 13/10/2020 16:57:54 line : 523
2

Olá, está informando os parâmetros incorretos para a função AxCadastro(), está passando as variáveis cVldExc e cVldExc com o tipo boolean e a função espera caracter exemplo: AxCadastro("SA1", "Clientes", "U_DelOk()", "U_COK()", aRotAdic, bPre, bOK, bTTS, bNoTTS, , , aButtons, , ).

Segue abaixo documentação para auxiliar no desenvolvimento de sua customização https://tdn.totvs.com/display/public/PROT/AxCadastro

3

Obrigado, Eduardo, mas agora o erro mudou para outra coisa: argument error in function Len() on CRIAVAR(MATXATU.PRX) 25/08/2020 16:28:19 line : 1962

4

Eu devo estar esbarrando em atualização do ‘engine’ do Protheus atual, porque estou usando um tutorial de 2015. Isto é uma eternidade, como todos sabemos.

5

Eu copiei o exemplo da página que você passou, Eduardo, e funcionou. Mas, quando puz a minha ZZ9 ao invés da SA1 do exemplo, deu o erro que comentei antes.

6

Mauro,

Seu código está incorreto.

A função AxCadastro espera funções no formato de strings no terceiro e quarto parâmetro, sendo que você passou valores lógicos:


local cVldAlt:=.T.
local cVldExc:=.T.
AxCadastro(cString,"Cadastro de Pessoas",cVldExc,cVldAlt)

Veja que suas variáveis cVldExc e cVldAlt possuam valores booleanos.

Caso não deseje efetuar validações, você pode enviar uma string contendo um valor verdadeiro, assim:


".T."

Seu código então ficará da seguinte forma:


#include "rwmake.ch"

user function aula01()
local cVldAlt := ".T."
local cVldExc := ".T."

Private cPerg := "PEGZZ9"
Private cString := "ZZ9"

DbSelectArea("ZZ9")//nome da tabela em que estou trabalhando
DbSetOrder(1)
Pergunte(cPerg,.F.)

setKey(123,{||Pergunte(cPerg,.T.)}) //Seta a tecla f12 para acionamento dos parâmetros

AxCadastro(cString,"Cadastro de Pessoas",cVldExc,cVldAlt)

Set Key 123 to //Desativa a tecla F12 para acionamento dos parâmetros

return

Obs.: Procure não trabalhar com variáveis de escopo private, é uma prática ruim que dificulta muita a manutenção de seus códigos futuramente.

7

Obrigado pela dica, Daniel. Devo usar sempre escopo Local e Static?

8

Normalmente, local. Estáticos usamos normalmente quando queremos fazer algum cache, armazenas um valor para usá-lo inúmeras vezes, ganhando assim performance.

9

Caro Daniel, copiei e colei o seu código, mas agora o erro mudou:

THREAD ERROR ([11976], Mautresim, PC-MEU) 05/08/2021 18:07:50 argument error in function Len() on CRIAVAR(MATXATU.PRX) 25/08/2020 16:28:19 line : 1962

UPDATE:

O Daniel deu a dica e foi certeira: um dos campos da tabela ZZ9 era 'Character'. Na inicialização do campo, eu pus 1 para o banco de dados e '1' para o Browser. Logicamente, só poderia dar type mismatch.

Obrigado, Daniel, mais uma vez.

10

Isso parece ser algum erro relacionado ao dicionário de dados Mauro, verifica como está o seu SX3, se tudo está correto, tudo tem tamanho etc.

11

É o que eu estou pensando também. Obrigado.