16 Jun 2013 15:00
***** Programa principal
FUNCTION Main()
DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 400 ;
TITLE ' Exemplo de EAN13' ;
MAIN
DEFINE MAIN MENU
DEFINE POPUP 'Arquivo'
MENUITEM 'Usando .DBF' ACTION PrintEAN13()
END POPUP
DEFINE POPUP 'Etiqueta'
MENUITEM 'Digitar o código EAN13' ACTION Print_UM_EAN13()
END POPUP
DEFINE POPUP 'Produtos'
MENUITEM 'Browse Arquivo Produtos' ACTION Produtos()
END POPUP
DEFINE POPUP 'Saida'
MENUITEM 'Exit' ACTION DoMethod("Win_1","Release")
END POPUP
END MENU
END WINDOW
CENTER WINDOW Win_1
ACTIVATE WINDOW Win_1
return
***********************
***** rotina secundária - chamada pela ACTION Produtos()
***********************
FUNCTION produtos()
Local bColor := { || if ( deleted() , RGB( 255, 0, 0 ) , RGB( 255, 255, 255 ) ) }
Local var := 'Test'
REQUEST DBFNTX
SET EXCLUSIVE ON
SET CENTURY ON
SET DELETED OFF
SET BROWSESYNC ON
DEFINE WINDOW FORM_1 ;
AT 0,0 ;
WIDTH 640 HEIGHT 480 ;
TITLE 'Produtos' ;
ON INIT OpenTable() ;
ON RELEASE CloseTable()
*** trecho onde está acusando o erro
DEFINE WINDOW MENU1
POPUP 'Arquivo'
ITEM 'Adicionar' ACTION Append_record()
ITEM 'Deletar/Retornar' ACTION Delete_record()
SEPARATOR
ITEM 'Saída' ACTION Form_1.Release
END POPUP
POPUP 'Ajuda'
ITEM 'Sobre' ACTION MsgInfo ("Visualiza Produtos")
END POPUP
**** até aqui
END MENU1
CENTER WINDOW menu1
ACTIVATE WINDOW menu1
DEFINE STATUSBAR
STATUSITEM ''
END STATUSBAR
@ 10,10 BROWSE Browse_1 ;
WIDTH 610 ;
HEIGHT 313 ;
HEADERS { 'X' , 'Código Barras' , 'Código Prod' , 'Nome Produto', 'Quantidade', 'Ítens' , 'Preço Unitário' } ;
WIDTHS { 30 , 100 , 150 , 50 , 50 , 50 , 50 } ;
WORKAREA &var ;
FIELDS {'Etiq->(iif(deleted(),"*"," "))' , 'Etiq->Codbarras' , 'Etiq->Codpro' , 'Etiq->Nomepro' , 'Etiq->Quantid' , 'Etiq->Itens' , 'Etiq->Precounit' } ;
ON CHANGE ChangeTest() ;
JUSTIFY { BROWSE_JTFY_LEFT, BROWSE_JTFY_RIGHT, BROWSE_JTFY_LEFT, BROWSE_JTFY_RIGHT, BROWSE_JTFY_RIGHT,BROWSE_JTFY_RIGHT,BROWSE_JTFY_RIGHT} ;
TOOLTIP 'Browse Produto' ;
DYNAMICBACKCOLOR { bColor, bColor, bColor, bColor, bColor, bColor, bColor } ;
EDIT
@ 350,150 BUTTON Button_1 ;
CAPTION 'Adiciona registro' ;
WIDTH 140 ;
ACTION Append_record() ;
TOOLTIP 'Adiciona um novo registro'
@ 350,300 BUTTON Button_2 ;
CAPTION 'Deleta/Recupera' ;
WIDTH 140 ;
ACTION Delete_record() ;
TOOLTIP 'Deletar / Recupera o registro corrente'
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return Nil
Observação: as linhas foram modificadas para se mostrar no trecho acima onde eles ocorreram.Harbour 3.2.0dev (r1305080957)
Copyright (c) 1999-2013, http://harbour-project.org/
Exemplo.prg(59) Error E0030 Syntax error "syntax error at 'WINDOW'" ---> linha
Exemplo.prg(57) Error E0030 Syntax error "syntax error at 'END'"
2 errors
16 Jun 2013 18:43
#include <hmg.ch>
FUNCTION Main()
DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 400 ;
TITLE ' Exemplo de EAN13' ;
MAIN
DEFINE MAIN MENU
DEFINE POPUP 'Arquivo'
MENUITEM 'Usando .DBF' ACTION PrintEAN13()
END POPUP
DEFINE POPUP 'Etiqueta'
MENUITEM 'Digitar o código EAN13' ACTION Print_UM_EAN13()
END POPUP
DEFINE POPUP 'Produtos'
MENUITEM 'Browse Arquivo Produtos' ACTION Produtos()
END POPUP
DEFINE POPUP 'Saida'
MENUITEM 'Exit' ACTION DoMethod("Win_1","Release")
END POPUP
END MENU
END WINDOW
CENTER WINDOW Win_1
ACTIVATE WINDOW Win_1
Return Nil
***********************
***** rotina secundária - chamada pela ACTION Produtos()
***********************
FUNCTION produtos()
Local bColor := { || if ( deleted() , RGB( 255, 0, 0 ) , RGB( 255, 255, 255 ) ) }
Local var := 'Test'
REQUEST DBFNTX
SET EXCLUSIVE ON
SET CENTURY ON
SET DELETED OFF
SET BROWSESYNC ON
DEFINE WINDOW FORM_1 AT 0,0 ;
WIDTH 640 HEIGHT 480 ;
TITLE 'Produtos' ;
ON INIT OpenTable() ;
ON RELEASE CloseTable()
*** trecho onde está acusando o erro
DEFINE MAIN MENU
POPUP 'Arquivo'
ITEM 'Adicionar' ACTION Append_record()
ITEM 'Deletar/Retornar' ACTION Delete_record()
SEPARATOR
ITEM 'Saída' ACTION Form_1.Release
END POPUP
POPUP 'Ajuda'
ITEM 'Sobre' ACTION MsgInfo ("Visualiza Produtos")
END POPUP
END MENU
DEFINE STATUSBAR
STATUSITEM ''
END STATUSBAR
@ 20,10 BROWSE Browse_1 ;
WIDTH 610 ;
HEIGHT 313 ;
HEADERS { 'X' , 'Código Barras' , 'Código Prod' , 'Nome Produto', 'Quantidade', 'Ítens' , 'Preço Unitário' } ;
WIDTHS { 30 , 100 , 150 , 50 , 50 , 50 , 50 } ;
WORKAREA &var ;
FIELDS {'Etiq->(iif(deleted(),"*"," "))' , 'Etiq->Codbarras' , 'Etiq->Codpro' , 'Etiq->Nomepro' , 'Etiq->Quantid' , 'Etiq->Itens' , 'Etiq->Precounit' } ;
ON CHANGE ChangeTest() ;
JUSTIFY { BROWSE_JTFY_LEFT, BROWSE_JTFY_RIGHT, BROWSE_JTFY_LEFT, BROWSE_JTFY_RIGHT, BROWSE_JTFY_RIGHT,BROWSE_JTFY_RIGHT,BROWSE_JTFY_RIGHT} ;
TOOLTIP 'Browse Produto' ;
DYNAMICBACKCOLOR { bColor, bColor, bColor, bColor, bColor, bColor, bColor } ;
EDIT
@ 350,150 BUTTON Button_1 ;
CAPTION 'Adiciona registro' ;
WIDTH 140 ;
ACTION Append_record() ;
TOOLTIP 'Adiciona um novo registro'
@ 350,300 BUTTON Button_2 ;
CAPTION 'Deleta/Recupera' ;
WIDTH 140 ;
ACTION Delete_record() ;
TOOLTIP 'Deletar / Recupera o registro corrente'
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return Nil
Function OpenTable()
Return Nil
Function Print_UM_EAN13()
Return Nil
Function PrintEAN13()
Return Nil
Function CloseTable()
Return Nil
Function ChangeTest()
Function Append_Record()
Function Delete_Record()
17 Jun 2013 11:43