Jump to content
Fivewin Brasil

Para os Feras do WS


jef2_tim

Recommended Posts

Amigo Alexandre, O meu nao funcionou continou dando o erro.

vou postar a baixo a parte do fonte, veja se ha algo errado. por favor. Estou aprendendo o ws, para prosseguir no Fw.

#INCLUDE "FIVEWIN.CH"

FUNC MAIN()

LOCAL OJAN,OICON,OBRUSH,OBAR,P_EMPRESA

P_EMPRESA =" Minas SoftHouse Corporaction "

CLOSE DATA

SET CENT ON

SET DATE BRIT

SET DELE ON

SET EXCL ON

LOADLIBRARY("BWCC.DLL") //NECESSARIO

SET RESOURCES TO "TELA.DLL" //ABRINDO MINHA DLL

DEFINE WINDOW OJAN TITLE "Sistema Comercial de Faturamento "+P_EMPRESA MENU CRIAMENU()

DEFINE BUTTONBAR OBAR SIZE 33,40 3DLOOK TOP OF OJAN NOBORDER

DEFINE BUTTON FILE "STOP.bmp" OF oBar ACTION CLIENTE()

SET MESSAGE TO P_EMPRESA KEYBOARD TIME DATE OF OJAN

ACTIVATE WINDOW OJAN MAXIMIZED

SET RESOURCES TO //FECHANDO MINHA DLL

FREELIBRARY("BWCC.DLL") //LIBERANDO DLL GERAL

RETUR NIL

Function CriaMenu()

Local Omenu

MENU Omenu

MENUITEM "&Cadastros "

MENU

MENUITEM "&Clientes "Clientes"ACTION CLIENTE()

MENUITEM "Sair" ACTION SAIR()

ENDMENU

ENDMENU

Return Omenu

Function Sair()

AB=MsgYesNo("Deseja Abandonar o Sistema ?","Sair do Sistema")

IF AB=.T.

CLOSE ALL

QUIT

ENDIF

RETUR

FUNCTION CLIENTE()

LOCAL ODLG,CSENHA,CUSUARIO,OGET1,OGET2

DEFINE DIALOG ODLG RESOURCE "TELASENHA"

REDEFINE GET OGET1 VAR CUSUARIO ID 101 OF ODLG

REDEFINE GET OGET2 VAR CSENHA ID 102 OF ODLG

REDEFINE BUTTON ID 103 OF ODLG ACTION (MSGINFO("Clicado o Botao Ok" ),ODLG:END())

REDEFINE BUTTON ID 104 OF ODLG ACTION ODLG:END()

ACTIVATE DIALOG ODLG CENTERED

RETUR NIL

Obrigado.

Cleiton Fidelis

Divnopolis MG

Link to comment
Share on other sites

Alex... funcionou... agora.,.. eu poderia usar loadlibrary em todas as dlls ??? pq os desenhos da minha barra de atalhos nao estao aparecendo... oq a seria

outra coisa.. um amigo ta com o mesmo prob.. mas a dica q me adiantou nao adiantou pra ele... ele usa ME .. tem algum problema por isso?

um clipper abracaum ae

Link to comment
Share on other sites

Ola Alexandre

Sim a dll esta no diretorio da aplicacao.

Encontrou algum erro na escrita do fonte q possa estar causando tal erro ?

Outra coisa, Estou usando o Clipper 52e, com blinker 7.0

e o Fivewin.lnk nativo baixado para testes.

Se isto pode ajudar, a me ajudar.

Abracos.

Cleiton Fidelis

Divinopolis MG

Link to comment
Share on other sites

Meu amigao cleiton... o elias grande amigo nosso me deu uma luz...

o seguinte.. c vc tiver em sua dll um controle q vc nao esta especificando no seu fonte ele nao abrirá.. entende.. eu montei um exemplo aqui pra te mandar .. e deu pau.. naum entendi pq.. ae conversei com o elias... ele perguntou se eu tinha uma chamada de bitmap ou btbmp no meu dll ... sim tenho.. mas nao esta referindo-se a este controle no prg.. entaum dara pau entende...

Ou seja.. c vc tem os controles no dll tem de referencia-los no seu fonte se nao o resource nao é aberto... ok?

:) O cara é fera no WS :)

valeu Elias pela ajuda.. valeu alex.. e amigos...

um clipper abracaum ae pro cs

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...