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:
Erro ao compilar fonte
Versão:
12.1.2210
Plataforma:
.
Complemento:
DB:
.
Complemento:
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário JOHNNY_NB JOHNNY_NB em 09/08/2024, 16:23 h
Local: SP  Registro: 01/08/2006  Postagens: 71
Pessoal boa tarde,

Compilei um exemplo simples da classe MsNewGetDados para entendimento e após executar esta ocorrendo um erro que não estou sabendo interpretar. Já agradeço de antemão se alguém enxergar aonde este esse erro.

Errorlog:

type mismatch on {|| If(Self:aCols[Iif( Len( Self:aCOLS ) >= Self:oBrowse:nAt, Self:oBrowse:nAt, Len( Self:aCOLS ) ),Len(Self:aCols[Iif( Len( Self:aCOLS ) >= Self:oBrowse:nAt, Self:oBrowse:nAt, Len( Self:aCOLS ) )])],              16777215,             0)}(APLIB170.PRW) 29/02/2024 17:21:47 line : 423

O código é esse abaixo:
#Include ‘TOTVS.ch‘
#INCLUDE "TBICONN.CH"
#INCLUDE ‘Protheus.ch‘
#INCLUDE ‘parmtype.ch‘

/*/{Protheus.doc} Markdestin
Combobox para marcar Destinatario do produto garantido pelo contrato firmado
@type function
@author Anonimo
@since 31/03/2017
@version 1.0
@param cOperacao, character, (Descrição do parâmetro)
@param cRotina, character, (Descrição do parâmetro)
@param nSaldo, Numeric, (Descrição do parâmetro)
@return ${return}, ${return_description}
@example
(examples)
@see (links_or_references)
/*/User Function Markdestin()
//     ---     variaveis locais
Local oDlgMain := Nil
Local oMsNewGet := Nil
Local aHeader   := {}
Local aCols     := {}
Local aCmpAlt   := {}

RESET ENVIRONMENT
RPCSetType(3)
PREPARE ENVIRONMENT EMPRESA ‘17‘ FILIAL ‘01‘ MODULO ‘FAT‘

//--Define Header
AADD(aHeader, {"Cod.Destinatário","FIELD1","@!",30,00,".T.", "", "C"})

//--Define Acols
AADD(aCols,{"Curso Engenharia"})
AADD(aCols,{"Curso Administração"})
AADD(aCols,{"Curso Informática"})
AADD(aCols,{"Contabilidade"})
AADD(aCols,{"Projeto Humanóide"})

//Dialog
oDlgMain := MsDialog():New(000,000,720,1280, "Escolhe Destinatário", Nil,Nil,Nil,Nil,Nil,Nil,;
Nil,Nil, .T., Nil,Nil,Nil, .F. )

//     ---     Grid MsNewGetDados
oMsNewGet := MsNewGetDados():New( 030,000,350,630, GD_INSERT + GD_UPDATE + GD_DELETE,"Allwaystrue", "Allwaystrue",;
"", aCmpAlt, 000 , 999, "Allwaystrue", "", "Allwaystrue", oDlgMain, @aHeader, @aCols)

//define button for enchoice
bOk     := {|| oDlgMain:End()}
bCancel := {|| oDlgMain:End()}
aBotoes := {}

//mostra dialog
oDlgMain:bInit := {|| EnchoiceBar(oDlgMain, bOK, bCancel, , aBotoes)}
oDlgMain:lCentered := .T.
oDlgMain:Activate()

Return Nil


Grato
Johnny

Mensagem do Enviar e-mail Abrir o Perfil do usuário ROBERTOMEN ROBERTOMEN em 09/08/2024, 21:03 h
Local: PR  Registro: 04/07/2017  Postagens: 548
boa noite.

o ultimo elemento do array Acols sempre deve ser lógico pois ele quem controla se a linha está deletada ou não.


É só corrigir no seu fonte conforme exemplo abaixo:



//--Define Acols
AADD(aCols,{"Curso Engenharia",.f.})
AADD(aCols,{"Curso Administração",.f.})
AADD(aCols,{"Curso Informática",.f.})
AADD(aCols,{"Contabilidade",.f.})
AADD(aCols,{"Projeto Humanóide",.f.})

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário JOHNNY_NB JOHNNY_NB em 14/08/2024, 14:11 h
Local: SP  Registro: 01/08/2006  Postagens: 71
Boa Tarde

Muito obrigado Robertomen.
Resolvido

Abraço

Mensagem do Enviar e-mail Abrir o Perfil do usuário LOBITSKY LOBITSKY em 23/08/2024, 14:18 h
Local: SP  Registro: 14/08/2005  Postagens: 3223
Teste de resposta

Att,
Rafael R.Lobitsky
Diretor de TI / Negócios
www.hfbr.com.br
www.helpfacil.com.br - Portal do conhecimento

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