PC Toledo

Enviado: **05 Jun 2008 15:20**

Estou começanda a estudar o FIVEWIN, já programo a 10 anos em clipper, porém estou com um problema que não consigo resolver, criei uma tela principal com um menu (TELA.PRG), clico em uma opção do menu, que deveria chamar outra tela (EMPRESA.PRG), meu fonte está assim:

MENU oMenu
MENUITEM "Arquivo"
MENU
MENUITEM "Empresas"
EMPRESAS()
ENDMENU
ENDMENU

Enviado: **05 Jun 2008 15:38**

Darc escreveu:Estou começanda a estudar o FIVEWIN, já programo a 10 anos em clipper, porém estou com um problema que não consigo resolver, criei uma tela principal com um menu (TELA.PRG), clico em uma opção do menu, que deveria chamar outra tela (EMPRESA.PRG), meu fonte está assim:

MENU oMenu
MENUITEM "Arquivo"
MENU
MENUITEM "Empresas"
EMPRESAS()
ENDMENU
ENDMENU

Buenas,
Faltou o "ACTION" antes de EMPRESAS()

Seu exemplo fica assim:

Código: Selecionar todos

       MENU oMenu
                MENUITEM "Arquivo"
                MENU
                       MENUITEM "Empresas"
                         ACTION EMPRESAS()
                ENDMENU
       ENDMENU

Enviado: **05 Jun 2008 16:02**

Quando coloco ACTION EMPRESAS(), da um erro:

Error C2001 Syntax error: ´EMPRESAS´

Será que porque são PRGS separados?

Enviado: **05 Jun 2008 16:06**

Darc escreveu:Quando coloco ACTION EMPRESAS(), da um erro:

Error C2001 Syntax error: ´EMPRESAS´

Será que porque são PRGS separados?

O que vc esta usando para compilar sua app? esta linkando os dois .PRG juntos ?

Enviado: **05 Jun 2008 16:18**

Crie um bat, com as seguintes linhas:

ECHO Compiling...
clipper FC /n/a/v/w/i..\include %2 %3
clipper EMPRESA /na/v/w/i..\include %2 %3

ECHO Linking...
blinker fi FC, EMPRESA @..\include\fivewin.lnk

Enviado: **05 Jun 2008 23:14**

Darc, em Fivewin eu uso xharbour 9961, não sei se faz alguma diferença para clipper, vamos esperar algum colega responder.

Enviado: **06 Jun 2008 11:09**

Olá Darc.

Eu aconselharia a fazer desta forma.
1)Setar no autoexec essas linhas
SET PATH=%PATH%;C:\cl53\bin;C:\Blinker\bin
SET INCLUDE=C:\CL53\INCLUDE;C:\FW20\INCLUDE
SET LIB=C:\CL53\LIB;C:\FW20\LIB
SET OBJ=C:\CL53\OBJ

onde cl53 == pasta onde se encontra o clipper
onde fw20 == pasta onde se encontra o fivewin

e usar arquivos .lnk e .rmk para linkar seu aplicativo
Exmplo de LNK

Código: Selecionar todos

Blinker Incremental           Off
Blinker Clipper     Symbol    Off
Blinker Overlay     PageFrame On
Blinker Overlay     Umb       On
Blinker Executable  Extended
Blinker Executable  NoDelete
Blinker Executable  Alignment  64
Blinker Procedure   Depth      50
Blinker Overlay     Threshold  64
Blinker Segment     Threshold  65500
Blinker Overlay     Opsize     40
Blinker Cache Xms   50%, 2048
Blinker Cache Ems   50%, 2048

Map A,S

BeginArea
   // arquivo para retirar varios BUGs do clipper
   FILE mpar,vmw,cdxlock
   FILE <seus arquivo .prg>
ENDAREA

LIB <de terceiros>
//Libs do Fivewin
SEARCH Five,FiveC,Objects,WinApi
//Libs do Clipper que no caso uso o RDD CDX
SEARCH DbfCdx,_DbfCdx,Clipper,Extend,Terminal
//Se for usar o o RDD NTX use estas linha e desabilita a de cima
//SEARCH DbfCdx,_DbfCdx,Clipper,Extend,Terminal

DEFBEGIN
   NAME        Nome do Programa
   DESCRIPTION 'By Compania'
   EXETYPE     WINDOWS 3.11
   CODE        PRELOAD MOVEABLE DISCARDABLE
   DATA        PRELOAD MOVEABLE
   STACKSIZE   27500
   HEAPSIZE    4096
   SEGMENT     'PLANKTON_TEXT' NONDISCARDABLE
   SEGMENT     'EXTEND_TEXT'   NONDISCARDABLE
   SEGMENT     'OM_TEXT'       NONDISCARDABLE
   SEGMENT     'OSMEM_TEXT'    NONDISCARDABLE
   SEGMENT     'SORTOF_TEXT'   NONDISCARDABLE
   SEGMENT     'STACK_TEXT'    NONDISCARDABLE
DEFEND

NoBell

output <seu executavel>

Exemplo de RMK

Código: Selecionar todos

.PRG.OBJ:
   CLIPPER $< /n
<seu.obj>: <seu.prg>

<seu.exe>: <seu.obj>
    Blinker @<seu.lnk>

Agora qto ao cl.bat as seguintes linhas, no caso como estão meus clipper e fivewin

Código: Selecionar todos

set cldir=c:\cl53
set fwdir=c:\fw20

%cldir%\bin\clipper fs /n /i%fwdir%\include > clip.log
%cldir%\bin\clipper Emrpesa /n /i%fwdir%\include > clip.log

//No caso eu guardo o blinker dentro da pasta bin do clipper, mas ai é so vc setar tb
%cldir%\bin\blinker fi FS,Empresa @%fwdir%\include\FiveWin.lnk > Blink.log

IF NOT ERRORLEVEL 1 FS.EXE

Eu tirei algumas coisa que são particulares mas deve funcionar se esqueci de algo é só avisar.
Um grande abraço :)Pos

Enviado: **12 Jun 2008 16:56**

Fiz os procedimentos da resposta anterior, mas quando executo o sistema, a primeira janela que aparece é a do cadastro de empresas e não a tela principal, onde está o menu, para chamar o cadastro, o que pode ser

Enviado: **13 Jun 2008 10:03**

Olá Darc.

provavelmente deve haver algum erro dentro de seu fs.prg,
1) vc colocou FUNCTION MAN()
2) Não definiu o menu corretamente
3) se nenhuma da alternativas, então mostre como está fazendo!!!

Enviado: **13 Jun 2008 11:40**

Amiguinho

Veja estes exemplos:

Dificil Aprendizado - Janelas
Dificil Aprendizado - Aula 2
Dificil Aprendizado - Aula 6
Dificil Aprendizado - Aula 7

Caso algum link esteja com problemas de me um toque.

PC Toledo

Dúvida Menu

Dúvida Menu

Re: Dúvida Menu

Re: Dúvida Menu

Re: Dúvida Menu

Re: Dúvida Menu

Re: Dúvida Menu

Re: Dúvida Menu

Re: Dúvida Menu

Re: Dúvida Menu

Re: Dúvida Menu