Dúvida Menu

[Darc]

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

[sygecom]

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 

[Darc]

Quando coloco ACTION EMPRESAS(), da um erro:

Error C2001 Syntax error: ´EMPRESAS´

Será que porque são PRGS separados?

[sygecom]

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 ?

[Darc]

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

[sygecom]

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

[aferra]

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

[Darc]

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

[aferra]

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!!!

[rochinha]

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.