Clipper On Line • Ver Tópico - Browse - Error BASE/1449 Syntax error: &

Browse - Error BASE/1449 Syntax error: &

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Browse - Error BASE/1449 Syntax error: &

Mensagempor Vandi » 24 Nov 2012 16:16

Boa tarde,

Tenho um sisteminha que, entre outros aliases, tenho um chamado CONSL e outro MOVTO.
Nêsse sistema, estou aproveitando uma rotina de BROWSE de um determinado módulo para criar outro módulo de consulta e para isso copiei a rotina abaixo. Porém, quando fiz as adaptações para a nova rotina dá o seguinte erro:

Error BASE/1449 Syntax error: &

Called from _BROWSEREFRESH(974)
Called from INITDIALOGBROWSE(384)
Called from _DEFINEBROWSE(314)
Called from CONSULTAGERAL(1263)
Called from (b)MOVIME011(151)
Called from _DOCONTROLEVENTPROCEDURE(1574)
Called from EVENTS(1444)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(1311)
Called from MOVIME011(181)
Called from VALIDA_DATA(92)
Called from (b)MOVIME01(31)
Called from _DOCONTROLEVENTPROCEDURE(1574)
Called from EVENTS(1933)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(1311)
Called from MOVIME01(36)
Called from (b)MAIN(106)
Called from _DOCONTROLEVENTPROCEDURE(1574)
Called from EVENTS(1377)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(1311)
Called from MAIN(188)

Êsse erro só ocorre quando eu coloco MOVTO na cláusula WORKAREA, pois quando vou testar com CONSL o sistema monta a grade normalmente. Já cansei de quebrar a cabeça e não consigo resolver essa questão.
A rotina do Browse é a seguinte:

                DEFINE BROWSE Browse_1
                        ROW 10
                        COL 10
                        WIDTH 800
                        HEIGHT 290                                                                               
                        HEADERS { 'Cód','Empresa','Evento','Histórico' , 'Recibo','Valor' }
                        WIDTHS  { 50 , 270 , 60 , 250 , 60 , 100 }
                        JUSTIFY { BROWSE_JTFY_CENTER ,BROWSE_JTFY_CENTER ,, BROWSE_JTFY_RIGHT }
                        WORKAREA MOVTO        // com WORKAREA CONSL a grade é montada normalmente
                        FIELDS { 'Refe' , 'Code' , ' If( Empresas->(DbSeek(Code)) , Left(Empresas->Empr,25) , Nil ) ' , 'CodH' , ' Hist ' , 'If( Valor>0 , Valor , Valor * -1 )' }
                        VALUE 1
                END BROWSE


Alguém poderia me dar uma luz???

Agradecimentos,

Gilvandi
Vandi
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 83
Data de registro: 16 Set 2011 23:26
Cidade/Estado: Brasilia-DF
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Browse - Error BASE/1449 Syntax error: &

Mensagempor Toledo » 24 Nov 2012 18:06

Gilvandi, você tem certeza que a área MOVTO está aberta?

Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Browse - Error BASE/1449 Syntax error: &

Mensagempor Vandi » 24 Nov 2012 23:54

Toledo,
Boa noite (ou melhor, bom dia)

Sim... o alias MOVTO já está aberto.
Fiz um teste: logo anterior ao DEFINE BROWSE eu coloquei

Use &NomeArquivo  ALIAS  MOVTO  SHARED NEW


e deu o seguinte erro:
ALIAS ALREADY IN USE: MOVTO

Se eu mudar WORKAREA para CONSL a grade é apresentada normalmente.
Um detalhe: eu falei, como anteriormente, que a grade é apresentada normalmente, porém vazia.

Digo isso porque, nêsse ponto do sistema com certeza CONSL não está aberto, logo eu acho que qualquer nome que eu coloque que não seja MOVTO a grade será montada.

Não é esquisito???

Gilvandi
Vandi
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 83
Data de registro: 16 Set 2011 23:26
Cidade/Estado: Brasilia-DF
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Browse - Error BASE/1449 Syntax error: &

Mensagempor Mario Mesquita » 26 Nov 2012 16:16

Olá!

Como voce usa MOVTO no ALIAS(), não existe uma area já aberta com esse alias?

Sendo assim , deveria fechar o MOVTO anterior.

Sds,
Mario.
Avatar de usuário

Mario Mesquita
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 557
Data de registro: 08 Dez 2009 12:47
Cidade/Estado: Rio de Janeiro
Curtiu: 73 vezes
Mens.Curtidas: 13 vezes

Browse - Error BASE/1449 Syntax error: &

Mensagempor Vandi » 27 Nov 2012 20:15

Srs. Mário e Toledo,
Boa noite...

Primeiramente agradecer o empenho em me ajudar, obrigado...
Quero dizer que detectei exatamente o que está ocasionando o erro acima.

No meu DBF tenho um campo tipo data, denominado 'Refe' e tenho uma variável tbém tipo data denominada 'Lanc1.MesReferencia.Value'.

Pois bem, o erro ocorre somente quando coloco as seguintes instruções:

        MOVTO->(OrdSetFocus('Refe'))
        MOVTO->(DBSETFILTER({||Refe == Lanc_1.MesReferencia.Value},"Refe == Lanc_1.MesReferencia.Value"))


Não deu certo. Então resolví mudar o DBSETFILTER por:
        MOVTO->(DBSETFILTER({||DTOS(Refe) == DTOS(Lanc_1.MesReferencia.Value)},"DTOS(Refe) == DTOS(Lanc_1.MesReferencia.Value)"))


mas tbém não deu resultado.

Diante do expôsto, poderiam me dizer o que está errado nessas linhas de comando?

Agradecimentos,

Gilvandi
Vandi
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 83
Data de registro: 16 Set 2011 23:26
Cidade/Estado: Brasilia-DF
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Browse - Error BASE/1449 Syntax error: &

Mensagempor Toledo » 27 Nov 2012 23:26

Gilvandi, só uma dúvida: como chama a WINDOW onde está o Browse? Este campo "Lanc1.MesReferencia.Value" está na mesma WINDOW do Browse?

Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Browse - Error BASE/1449 Syntax error: &

Mensagempor Vandi » 28 Nov 2012 18:44

Toledo,
Boa noite...

Respondendo: a window onde está o browse chama-se Form_1.

Gilvandi
Vandi
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 83
Data de registro: 16 Set 2011 23:26
Cidade/Estado: Brasilia-DF
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Browse - Error BASE/1449 Syntax error: &

Mensagempor Toledo » 29 Nov 2012 00:48

Gilvandi, me corrija se estiver errado: pela lógica, de dentro da Window Lanc1 (onde está o campo MesReferencia) você chama a Window Form_1, onde você cria o Browse. Neste caso, no início da função que cria a Window Form_1, declare uma variável private para receber o conteúdo de Lanc1.MesReferencia.Value.

Private dMesRef:=Lanc1.MesReferencia.Value


Ai no filtro altere para:
MOVTO->(DBSETFILTER({||DTOS(Refe) == DTOS(dMesRef)},"DTOS(Refe) == DTOS(dMesRef)"))


Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Browse - Error BASE/1449 Syntax error: &

Mensagempor Vandi » 04 Dez 2012 23:30

:)) RESOLVIDO... :))

Toledo,
Bom dia...

Desculpe a demora em responder.
Funcionou perfeitamente, ficou 100%... Muito obrigado!!!

Gilvandi
Vandi
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 83
Data de registro: 16 Set 2011 23:26
Cidade/Estado: Brasilia-DF
Curtiu: 0 vez
Mens.Curtidas: 1 vez




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro