Error compiling

[Wanderson]

Hi I try to compile txtprev.prg and get this error:

TXTPREV.PRG(807) Error E0030 Syntax error: "syntax error at '@'"

in this line:

@06,08 TO 45,220 OF oDlg PROMPT "Impressora:"

what the wrong.

Thanks.

[karinha]

Code: Select all

@ 06, 08 GROUP TO 45, 220 LABEL "Impressora: " OF oDlg 
 

[Wanderson]

Code: Select all

@ 06, 08 GROUP TO 45, 220 LABEL "Impressora: " OF oDlg 
 

Thanks but now display this error.

xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'TXTPREV.PRG'...

1 error

No code generated

[karinha]

Look ERROR.LOG.

[Wanderson]

Karinha thats the messagem in error log: very strange

xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'TXTPREV.PRG'...

1 error

No code generated

[karinha]

Wanderson, vc. fala português, porque ficar falando em Inglês?

comente:

Code: Select all

@ 06, 08 GROUP TO 45, 220 LABEL "Impressora: " OF oDlg   // e compile
 

Depois:

Code: Select all

@ 06, 08 GROUP TO 45, 220 PROMPT "Impressora: " OF oDlg 
 

O que ocorre? abs.

[karinha]

Code: Select all

// Quick Browse sample = \SAMPLES\PRUE32.PRG

#include "FiveWin.ch"


//----------------------------------------------------------------------------//

function Main()
   local oDlg
   local lFivePro
   local lDialog
   local lObjects
   local nNivel
   local cName
   local cAddress
   local cPhone
   local nAge
   local oBtn


   lFivePro = .T.
   lDialog  = .T.
   lObjects = .F.
   nNivel   = 1
   cName    = SPACE( 10 )
   cAddress = SPACE( 30 )
   cPhone   = SPACE( 30 )
   nAge     = 0

   DEFINE DIALOG oDlg FROM 8, 2 TO 25, 65 ;
      TITLE  "Customer Update"

   @ 1,  1 SAY "&Name:" OF oDlg
   @ 1,  6 GET cName OF oDlg
   @ 2,  1 SAY "&Address:" OF oDlg
   @ 2,  6 GET cAddress OF oDlg

   // Wanderson, veja:

   //@ 3,  1 TO 7, 8 LABEL "&Products" OF oDlg
   @ 3,  1 GROUP TO 7, 8 LABEL "&Products" OF oDlg

   @ 4,  1 CHECKBOX lFivePro PROMPT "&FivePro" OF oDlg
   @ 5,  1 CHECKBOX lDialog  PROMPT "&Dialog"  OF oDlg
   @ 6,  1 CHECKBOX lObjects PROMPT "&Objects" OF oDlg


   // Wanderson, veja:

   //@ 3,  9 TO 7, 17 LABEL "&Nivel" OF oDlg
   @ 3,  9 GROUP TO 7, 17 LABEL "&Nivel" OF oDlg

   @ 4,  9 RADIO nNivel PROMPT "&Novice", "A&vanced", "&Expert" OF oDlg

   @ 4, 16 SAY "&Phone:" OF oDlg
   @ 4, 21 GET cPhone OF oDlg SIZE 60, 11 PICTURE "@R 99-999-9999999"

   @ 6, 16 SAY OemToAnsi( "&Age:" ) OF oDlg
   @ 6, 21 GET nAge OF oDlg SIZE 20, 11

   //   @ 9,  9 BUTTON oBtn PROMPT "&Acept"  OF oDlg SIZE 50, 12 ACTION ( lSave := .t. , oDlg:End() )

   @ 6,  9 BUTTON oBtn PROMPT  "&Acept"  OF oDlg SIZE 50, 12 ACTION MsgInfo( oBtn:Cargo , ValType( oBtn:Cargo) )
   oBtn:bGotFocus := { | Self, hCtlLost | Self:Cargo := hCtlLost  }


   @ 6, 19 BUTTON "&Cancel" OF oDlg SIZE 50, 12 ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

return nil
 

Verifique na TXTPREV.PRG by Ednaldo Rolim, deve ter mais GROUP a ser trocado nesta versão do Five que usas. abs.

[Wanderson]

Wanderson, vc. fala português, porque ficar falando em Inglês?

comente:

Code: Select all

@ 06, 08 GROUP TO 45, 220 LABEL "Impressora: " OF oDlg   // e compile
 

Depois:

Code: Select all

@ 06, 08 GROUP TO 45, 220 PROMPT "Impressora: " OF oDlg 
 

O que ocorre? abs.

Obrigado era problema com o GROUP TO mesmo, e sobre falar em inglês é que aqui o pessoal não gosta que utilize outras línguas rs. Valeu!