|
Bem Vindo, Visitante
|
Todos os Fórums
ADVPL
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
Erro ao compilar fonte |
|
Versão: |
12.1.2210 |
|
Plataforma: |
. |
Complemento: |
|
|
DB: |
. |
Complemento: |
|
|
|
|
|
Mensagem do
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
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.}) |
|
|
Mensagem do
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
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
|
|