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:
Código: Selecionar todos
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
Agradecimentos,
Gilvandi
) RESOLVIDO...