-
Posts
185 -
Joined
-
Last visited
-
Days Won
5
Posts posted by oziel
-
-
Veja as configurações:
Opções do projeto no xDev
DESTINO DOS *.OBJ C:\Proj_FWH\grh
PATH DE PESQUISA *.CH C:\FWH\INCLUDE
PATH DE PESQUISA *.LIB C:\FWH\LIB
PATH DE PESQUISA *.OBJ C:\Proj_FWH\grh
Utilizo a TSBUTTON 5.0 DE MANOEL MERCADO
........................
No fonte do Cadastro
#include "FiveWin.ch"
#include "Report.ch"
#include "TsButton.ch"
#include "Tcbrowse.ch"
#include "Corget.ch"
.....
Apos a colocação do Bpaint.obj no projeto.
BPAINT.OBJ EM \PROJ_FWH\GRH
Retorno do xDev dando um erro.
Executando: ILINK32 @B32.BC
Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland
Fatal: Unsupported 16-bit segment(s) in module bpaint.c
Se vc puder gerar uma LIB para mim agradeço.
Att.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Achei nas dicas que baixei, nas está danto um erro na localização.
Erro:
Error: Unresolved external '_HB_FUN_TSBUTTON' referenced from CADASTRO.OBJ
Será que é problemas de Versão da TsButton ?
Sintaxe:
@ 210, 30 SBUTTON oBtn PROMPT "Exit" OF oDlg ;
SIZE 50, 20 PIXEL ROUND ;
COLORS CLR_WHITE, { CLR_BLACK, CLR_HBLUE, 3 } ;
ACTION oDlg:End()
Obrigado.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Ico ou outro colega.
Vc. me informou que era para usar o TsButton - Uso a TcBrowse
Não consegui prosseguir, veja como eu utilizava
em DButton, dá para vc me informar como escrever
corretamente?
@ 180.9,003.0 DBUTTON "Area." FILE ".\BMP\PESQ.BMP" SIZE 40,20 GLIP POS 3 ;
ACTION( PesqArea( .T. ), ;
oBrw:Refresh() ) ;
TOOLTIP OemToAnsi( "Pesquisar por Area de Interesse" )
Grato.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Já estou pensando em fazer isso, para continuar com
o projeto.
Obrigado.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Pois é...
Não consegui achar essas duas rotinas nos fontes, retirei para
o sistema funcionar.
Vc. sabe onde encontra-la ???
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
A 1ª dica deu certo, incorporei as alterações no inicio do prog. FUNCGRH.PRG
A 2ª que refere-se ao DBUTTONS - incorporei a DBTNBMP.CH e o erro continuou peguei o prog. DBTNBMP.PRG (DBUTONS32->SOURCE->DBTNBMP.PRG) e incorporei ao sistema,
na criação do .OBJ surgiu a mensagem abaixo - ref. a função PINTA() E DRAWDBTNBMP() que não foram encontradas.
Retirei as linhas para o sistema compilar, houve a compilção mas
não saiu as imagens dos botões.
Vejam a mensagem:
Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_PINTA' referenced from DBTNBMP.OBJ
Error: Unresolved external '_HB_FUN_DRAWDBTNBMP' referenced from DBTNBMP.OBJ
...................
* IF !::lNoBorder
* Pinta( ::hWnd,;
* if(::lIsSwitch,::lSwitch,::lPressed),;
* (::lGainFocus .OR. ::lFocused) .AND. !::lBar,;
* if(::lIsSwitch .AND. ::lSwitch, GetSysColor(COLOR_HIGHLIGHTTEXT) ,::nClrPane),;
* ::hDC )
* ENDIF
::lGainFocus := .F.
* IF ::hBitmap != 0
* IF lPaintBmp
* DrawDBtnBmp(::hDc, ::nPosBmpY, ::nPosBmpX,;
* ::nBmpWidth/::nClips , ::nBmpHeight , ABS(::aClipPos[::nActClip])-1,;
* ::hBitmap, ::hPalette, If(!::lFill,::nFillType,0), ::hWnd,;
* if(::lIsSwitch .AND. ::lSwitch, GetSysColor(COLOR_HIGHLIGHTTEXT) ,::nClrPane),;
* if(::aClipPos[5]<0,!::lActive,.F.) )
* ENDIF
* ::lFill:= .T.
* ENDIF
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Ok..
Obrigado.
Vou fazer as alterações...
Em breve dou o retorno...
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Na conversão do mesus programas de FW 2.2 para FWH deparei com dois problemas. Um está relacionado com o Meter e o outro com botões tipo Delphi. (FuncGrh.prg e Cadastro.prg)
Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_GETSYSMETRIC' referenced from FUNCGRH.OBJ
Error: Unresolved external '_HB_FUN_TDBTNBMP' referenced from CADASTRO.OBJ
// ---- Programa de Indexação -> FUNCGRH.PRG -----------------------------
#include "FiveWin.ch"
#Include 'Inkey.Ch'
#Include "Memo.ch"
// -----------------------------------------------------------------------
// Reindexar
// -----------------------------------------------------------------------
PROCEDURE Reindexar
LOCAL bAction
bAction := { | oMeter, oText, oDlg, lEnd | Reorganiza( oMeter, oText, oDlg, @lEnd ) }
If MsgYesNo(" Confirma a Reorganizacao ? "," Mensagem: ") = .T.
Continue
Else
MsgRun(" Retornando ao Sistema... "," Mensagem ")
Return
Endif
MsgMeter( bAction ,"Preparando...","Reorganização da base de dados" )
RETURN
//------------------------------------------------------------------------
STATIC FUNCTION Reorganiza(oMeter,oText,oDlg,lEnd)
oText:SetText("Classificando Atendimentos... Arq ")
Use ATENDE Alias ATENDE EXCLU
oMeter:nTotal := ATENDE->( LastRec()*5 )
INDEX ON NOME TAG ATENDEN TO ATENDE;
EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 1
...............
Return (Nil)
//----- Programa Cadastro.prg --------------------------------------------
#include "FiveWin.ch"
#include "Report.ch"
#include "dbtnBMP.ch"
#include "tcbrowse.ch"
#include "corget.ch"
...
@ 09.5,45.0 SAY obj9 prompt cObj9 of oDlg COLOR CLR_RED FONT oFnt
@ 09.6,01.0 SAY 'Pesquisas:' of oDlg COLOR CLR_BLUE FONT oFnt
.....
@ 158.9,003.0 DBUTTON "Idade" FILE ".\BMP\PESQ.BMP" SIZE 40,20 GLIP POS 3 ;
ACTION( PesqIdade ( .T. ), ;
oBrw:Refresh() ) ;
TOOLTIP OemToAnsi( "Pesquisar Cadastro por faixa et ria" )
....
ACTIVATE DIALOG oDlg CENTERED
RELEASE oFnt
RETURN NIL
//------------------------------
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
Editado por - oziel on 01/08/2011 15:04:20
-
Na conversão do mesus programas de FW 2.2 para FWH deparei com dois problemas. Um está relacionado com o Meter e o outro com botões tipo Delphi. (FuncGrh.prg e Cadastro.prg)
Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_GETSYSMETRIC' referenced from FUNCGRH.OBJ
Error: Unresolved external '_HB_FUN_TDBTNBMP' referenced from CADASTRO.OBJ
// ---- Programa de Indexação -> FUNCGRH.PRG -----------------------------
#include "FiveWin.ch"
#Include 'Inkey.Ch'
#Include "Memo.ch"
// -----------------------------------------------------------------------
// Reindexar
// -----------------------------------------------------------------------
PROCEDURE Reindexar
LOCAL bAction
bAction := { | oMeter, oText, oDlg, lEnd | Reorganiza( oMeter, oText, oDlg, @lEnd ) }
If MsgYesNo(" Confirma a Reorganizacao ? "," Mensagem: ") = .T.
Continue
Else
MsgRun(" Retornando ao Sistema... "," Mensagem ")
Return
Endif
MsgMeter( bAction ,"Preparando...","Reorganização da base de dados" )
RETURN
//------------------------------------------------------------------------
STATIC FUNCTION Reorganiza(oMeter,oText,oDlg,lEnd)
oText:SetText("Classificando Atendimentos... Arq ")
Use ATENDE Alias ATENDE EXCLU
oMeter:nTotal := ATENDE->( LastRec()*5 )
INDEX ON NOME TAG ATENDEN TO ATENDE;
EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 1
...............
Return (Nil)
//----- Programa Cadastro.prg --------------------------------------------
#include "FiveWin.ch"
#include "Report.ch"
#include "dbtnBMP.ch"
#include "tcbrowse.ch"
#include "corget.ch"
...
@ 09.5,45.0 SAY obj9 prompt cObj9 of oDlg COLOR CLR_RED FONT oFnt
@ 09.6,01.0 SAY 'Pesquisas:' of oDlg COLOR CLR_BLUE FONT oFnt
.....
@ 158.9,003.0 DBUTTON "Idade" FILE ".\BMP\PESQ.BMP" SIZE 40,20 GLIP POS 3 ;
ACTION( PesqIdade ( .T. ), ;
oBrw:Refresh() ) ;
TOOLTIP OemToAnsi( "Pesquisar Cadastro por faixa et ria" )
....
ACTIVATE DIALOG oDlg CENTERED
RELEASE oFnt
RETURN NIL
//------------------------------
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
Editado por - oziel on 01/08/2011 15:04:20
-
Cidade Santo Antonio de Jesus - Ba
Idade - 56 anos
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Aumentandooooo
Oziel = 56
Desde o Summer 87 - Clipper 5.0 - 5.1 - 5.2
Fw - 2... e Fwh 6.12
Continuo Feliz com FW... e Clipper....
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Ok..
Funcionou perfeitamente.
Obrigado.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Estou convertendo meus programas para 32 bits. e apareceu um problema quando tento imprimir um relatório - Classe TPrinter. (Esse prog. funciona perfeitamente em 16 bits)
Vejam:
.....
Application
===========
Path and name: C:\Proj_FWH\GRHATE\GRHATE.EXE (32 bits)
Size: 1,737,728 bytes
Time from start: 0 hours 0 mins 5 secs
Error occurred at: 07/07/11, 18:16:03
Error description: Error BASE/1004 Message not found: TPRINTER:GETTEXTWIDHT
Stack Calls
===========
Called from: => TPRINTER:ERROR(179)
Called from: tobject.prg => (b)HBOBJECT:HBOBJECT(105)
Called from: => TPRINTER:MSGNOTFOUND(0)
Called from: PRINTER.PRG => TPRINTER:GETTEXTWIDHT(167)
Called from: ATENDATE.PRG => PRNASO(2766)
Called from: ATENDATE.PRG => (b)ATENDATE(118)
Called from: BTNBMP.PRG => TBTNBMP:CLICK(0)
.........
FUNCTION PrnASO()
LOCAL nTam, nLen, nTamPag, nTamRel, nLin, oFont,;
oPrn, oRad, bBloco
PRINT oPrn NAME "Atestado de Saude Ocupacional" RPREVIEW
nPag := 0
nTam := 36
nTamRel := 85
nTamPag := 60
nTipo := 1
DO WHILE .t.
DEFINE FONT oFont NAME "ARIAL" SIZE nTam,-12 OF oPrn
oPrn:SetFont(oFont)
nLen := oPrn:GetTextWidht("B",oPrn:oFont)
IF oPrn:nHorzRes()/nLen < nTamRel
nTam-= 0.05
oFont:End()
ELSE
EXIT
ENDIF
ENDDO
.............
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
Editado por - OZIEL on 08/07/2011 10:36:26
-
Estou convertendo meus programas para 32 bits. e apareceu um problema quando tento imprimir um relatório - Classe TPrinter. (Esse prog. funciona perfeitamente em 16 bits)
Vejam:
.....
Application
===========
Path and name: C:\Proj_FWH\GRHATE\GRHATE.EXE (32 bits)
Size: 1,737,728 bytes
Time from start: 0 hours 0 mins 5 secs
Error occurred at: 07/07/11, 18:16:03
Error description: Error BASE/1004 Message not found: TPRINTER:GETTEXTWIDHT
Stack Calls
===========
Called from: => TPRINTER:ERROR(179)
Called from: tobject.prg => (b)HBOBJECT:HBOBJECT(105)
Called from: => TPRINTER:MSGNOTFOUND(0)
Called from: PRINTER.PRG => TPRINTER:GETTEXTWIDHT(167)
Called from: ATENDATE.PRG => PRNASO(2766)
Called from: ATENDATE.PRG => (b)ATENDATE(118)
Called from: BTNBMP.PRG => TBTNBMP:CLICK(0)
.........
FUNCTION PrnASO()
LOCAL nTam, nLen, nTamPag, nTamRel, nLin, oFont,;
oPrn, oRad, bBloco
PRINT oPrn NAME "Atestado de Saude Ocupacional" RPREVIEW
nPag := 0
nTam := 36
nTamRel := 85
nTamPag := 60
nTipo := 1
DO WHILE .t.
DEFINE FONT oFont NAME "ARIAL" SIZE nTam,-12 OF oPrn
oPrn:SetFont(oFont)
nLen := oPrn:GetTextWidht("B",oPrn:oFont)
IF oPrn:nHorzRes()/nLen < nTamRel
nTam-= 0.05
oFont:End()
ELSE
EXIT
ENDIF
ENDDO
.............
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
Editado por - OZIEL on 08/07/2011 10:36:26
-
Zeca
Não sei se vc já resolveu o problema com xDev, tive um problema aqui em mainha residência, entrei em contato com Gilmer através do Facebook e houve uma interrupção no bate papo. Continuei tentando lá na empresa onde trabalho, li o tutoral do xDev fiz os ajustes e o proj. funcionou (16->32) depois trouxe para minha residência todo o projeto e nada. Descobri no meu caso q o sistema não estava lendo o arq. Build_xxxx.bat, fiz um novo projeto e o prob. continuou, não produzia o Build_xxx.bat e tb Bcc32.bc. Mas, se executasse o bat pelo prompt de comando (com o proj da outra máquina) o era executado e gerado o .exe.
Bem depois de queimar os neurônios resolvi trocar do usuário que estava para outro usuário que instalei qdo formatei a maq. criei um novo proj e tudo funcionou perfeitamente. Depois vou continuar tentando com o outro usuário para descobrir o q está impedindo o funcionamento perfeito do xDev já que ambos possuem as mesmas permissões.
Queria avisar ao Vailton Renato e tb ao Gilmer que as minhas solicitações de informação o sobre a nova versão do FWH + Sql Lib por enquanto serão adiadas pois estou saindo da área de TIC para Contabilidade, espero q pouco tempo tenho o prazer de retomar ao meu proj. de migração.
Abraços.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Beleza...
Na mosca...
Funcionou perfeito - Vou continuar ajustando os outros programas.
Obrigado.
Abraços eu..
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
A barra progressiva que utilizei antes no proj de 16 não funcionou agora em 32 pois não deixou criar os indices dos arquivos.
O sistema só indexou o Banco quando retirei o comando
EVAL {|| oMeter:Set(AGENDA->( Recno() ))} EVERY 5
O Programa agora está sem a Barra Progressiva
Vejam..
//-------------------------
PROCEDURE Reindexar
LOCAL bAction
bAction := { | oMeter, oText, oDlg, lEnd | Reorganiza( oMeter, oText, oDlg, @lEnd ) }
MsgMeter( bAction ,"Preparando...","Reorganização da base de dados" )
RETURN
//-------------------------------------------------
STATIC FUNCTION Reorganiza(oMeter,oText,oDlg,lEnd)
oText:SetText("Classificando Agenda... Arq 1 ")
Use AGENDA Alias AGENDA EXCLU
oMeter:nTotal := AGENDA->( LastRec()*5 )
INDEX ON NOME TAG AGENDA TO AGENDA;
EVAL {|| oMeter:Set(AGENDA->( Recno() ))} EVERY 5
...................................................
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
A barra progressiva que utilizei antes no proj de 16 não funcionou agora em 32 pois não deixou criar os indices dos arquivos.
O sistema só indexou o Banco quando retirei o comando
EVAL {|| oMeter:Set(AGENDA->( Recno() ))} EVERY 5
O Programa agora está sem a Barra Progressiva
Vejam..
//-------------------------
PROCEDURE Reindexar
LOCAL bAction
bAction := { | oMeter, oText, oDlg, lEnd | Reorganiza( oMeter, oText, oDlg, @lEnd ) }
MsgMeter( bAction ,"Preparando...","Reorganização da base de dados" )
RETURN
//-------------------------------------------------
STATIC FUNCTION Reorganiza(oMeter,oText,oDlg,lEnd)
oText:SetText("Classificando Agenda... Arq 1 ")
Use AGENDA Alias AGENDA EXCLU
oMeter:nTotal := AGENDA->( LastRec()*5 )
INDEX ON NOME TAG AGENDA TO AGENDA;
EVAL {|| oMeter:Set(AGENDA->( Recno() ))} EVERY 5
...................................................
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
BROWSE COM ERRO (RESOLVIDO)
Cara.
Obrigado
Kapiaba e Rubens.
Tudo beleza.
Engraçado que antes estava a TWBrowse, mais estava faltando os parâmetros para ler a BCC32.dll ai não achei a TWBrowse.ch mudei tudo para TCBrwose.
O importante q funcionou perfeitamente.
Portanto:
“Gracias a la vida que me ha dado tanto
Me dio dos luceros que cuando los abro
Perfecto distingo lo negro del blancoâ€
.....
“Graças à vida que me deu tanto
Me deu dois olhos que quando os abro
Distinguo perfeitamente o preto do brancoâ€
.......
Dos versos de Violeta Parra, podemos acrescentar os
amigos que não conhecemos mais que nos ajudam na vida.
Att.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Cara.
Não deu certo, a mensagem continua.
Coloquei uma dll mais nova (BCC32.dll) compilada em 2002.
Mais o prob continua e a mensagem de erro é a mesma descrita acima.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Obrigado
Vou testar, qq coisa q acontecer informo..
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Caros...
Comecei o trabalho para migar de 16->32 bits.
O Primeiro programa foi uma agenda telefonica,
quebrei a cabeça com xDev 0,70 mas felizmente após algumas dicas que vi no forum e consegui
Lineditar e Compilar (xHarbour 0.99.71 e Bcc55) o prog está quase perfeito, abre a primeira janela de senha e depois a tela inicial, mais dá um problema qdo vou abrir a browse.
Através do Workshop salvei a Agenda.dll como Agenda.rc e através do PellesC o arq. Agenda.res (32bits)
Já revisei o arq AGENDA.RES e o browse usa a TCBROWSE (Class Name) Id 101
Vejam o erro - Logo abaixo os fontes.
Application
===========
Path and name: C:\Proj_FWH\agenda\Agend.EXE (32 bits)
Size: 1,559,040 bytes
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 26/01/11, 14:51:36
Error description: Error FiveWin/3 Cannot create Dialog Box:
Resource: BROWSEAGENDA
Stack Calls
===========
Called from: => CREATEDLGERROR(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: agenda.prg => AGENDA(101)
Called from: agend.prg => (b)MAIN(69)
Called from: BTNBMP.PRG => TBTNBMP:CLICK(0)
Called from: BTNBMP.PRG => TBTNBMP:LBUTTONUP(0)
Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.PRG => TBTNBMP:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: agend.prg => MAIN(94)
Inicio do Fonte Principal
// --------------------------------------------------------
// Programa ....: Agend.PRG
// Autor .......: Oziel Lopes da Silva
// --------------------------------------------------------
#include "FiveWin.ch"
#include "Tcbrowse.ch"
.........
STATIC oWndMain // Janela Principal MDI
FUNCTION Main()
LOCAL oBar, oBtn
LOCAL oBmp
LOCAL oIcon
.......
hBorland := LoadLib32("BWCC32.DLL")
MsgRun("Abrindo a base de dados. Aguarde...","Um momento!",{||AbreDados()})
DEFINE ICON oIcon RESOURCE "FIVEWIN"
DEFINE WINDOW oWndMain FROM 00,00 TO 30,60 ;
TITLE OemToAnsi( "Agenda - Telefônica - OLS-Soft." ) ;
MENU MenuMain() ;
ICON oIcon ;
MDI
DEFINE BUTTONBAR oBar SIZE 80,41 _3DLOOK OF oWndMain
DEFINE BUTTON OF oBar RESOURCE "BARAGENDA1" ACTION Agenda(.f.) ;
TOOLTIP "Agenda Telefonica" ;
NOBORDER
............
@ 00,00 BITMAP FILE "AGENDA.BMP" OF oWndMain:oWndClient SIZE 1200,670 ADJUST
SET MESSAGE OF oWndMain TO OemToAnsi( " Agenda Telefonica - OLS-Soft - 2010 " ) ;
CLOCK ;
DATE ;
KEYBOARD
Acesso_ao_sistema() // Identificação do Usuario do Sistema.
ACTIVATE WINDOW oWndMain MAXIMIZED
RETURN NIL
//------------------------------------------------------------------------
Segundo Programa. (ONDE DAR O ERRO)
// -----------------------------------------------------------------------
// Programa ...: Agenda Telefonica - Agenda.prg
// -----------------------------------------------------------------------
#include "FiveWin.ch"
#include "Report.ch"
#include "Tcbrowse.ch"
..........
STATIC oReport // Para imprimir
FUNCTION Agenda()
LOCAL oDlg, oLbx // Objetos Caixa de Dialogo
LOCAL oFnt,oG120
.............
DEFINE FONT oFnt NAME "Arial" SIZE 0, -10
CNome = Space(20)
DEFINE DIALOG oDlg RESOURCE "BROWSEAGENDA" TITLE " Agenda - Agenda Telefonica. "
CursorWait()
REDEFINE LISTBOX oLbx FIELDS Agenda->NOME, ;
Agenda->TEL, ;
Agenda->TEL2, ;
Agenda->TEL3, ;
Agenda->CONT1, ;
Agenda->CONT2, ;
Agenda->CONT3 ;
HEADERS "Nome","Telefone 1","Telefone 2","Telefone 3","Contato","Contato","Contato";
FIELDSIZES 200, 70, 70, 70, 70, 70, 70;
COLOR CLR_BLACK, CLR_WHITE ;
FONT oFnt ;
ID 101 ;
OF oDlg ;
ON DBLCLICK(GetAgenda(.F.), oLbx:Refresh())
...........
ACTIVATE DIALOG oDlg CENTERED
RELEASE oFnt
RETURN NIL
.... Fim do Programa Agenda ....................................
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Caros...
Comecei o trabalho para migar de 16->32 bits.
O Primeiro programa foi uma agenda telefonica,
quebrei a cabeça com xDev 0,70 mas felizmente após algumas dicas que vi no forum e consegui
Lineditar e Compilar (xHarbour 0.99.71 e Bcc55) o prog está quase perfeito, abre a primeira janela de senha e depois a tela inicial, mais dá um problema qdo vou abrir a browse.
Através do Workshop salvei a Agenda.dll como Agenda.rc e através do PellesC o arq. Agenda.res (32bits)
Já revisei o arq AGENDA.RES e o browse usa a TCBROWSE (Class Name) Id 101
Vejam o erro - Logo abaixo os fontes.
Application
===========
Path and name: C:\Proj_FWH\agenda\Agend.EXE (32 bits)
Size: 1,559,040 bytes
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 26/01/11, 14:51:36
Error description: Error FiveWin/3 Cannot create Dialog Box:
Resource: BROWSEAGENDA
Stack Calls
===========
Called from: => CREATEDLGERROR(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: agenda.prg => AGENDA(101)
Called from: agend.prg => (b)MAIN(69)
Called from: BTNBMP.PRG => TBTNBMP:CLICK(0)
Called from: BTNBMP.PRG => TBTNBMP:LBUTTONUP(0)
Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.PRG => TBTNBMP:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: agend.prg => MAIN(94)
Inicio do Fonte Principal
// --------------------------------------------------------
// Programa ....: Agend.PRG
// Autor .......: Oziel Lopes da Silva
// --------------------------------------------------------
#include "FiveWin.ch"
#include "Tcbrowse.ch"
.........
STATIC oWndMain // Janela Principal MDI
FUNCTION Main()
LOCAL oBar, oBtn
LOCAL oBmp
LOCAL oIcon
.......
hBorland := LoadLib32("BWCC32.DLL")
MsgRun("Abrindo a base de dados. Aguarde...","Um momento!",{||AbreDados()})
DEFINE ICON oIcon RESOURCE "FIVEWIN"
DEFINE WINDOW oWndMain FROM 00,00 TO 30,60 ;
TITLE OemToAnsi( "Agenda - Telefônica - OLS-Soft." ) ;
MENU MenuMain() ;
ICON oIcon ;
MDI
DEFINE BUTTONBAR oBar SIZE 80,41 _3DLOOK OF oWndMain
DEFINE BUTTON OF oBar RESOURCE "BARAGENDA1" ACTION Agenda(.f.) ;
TOOLTIP "Agenda Telefonica" ;
NOBORDER
............
@ 00,00 BITMAP FILE "AGENDA.BMP" OF oWndMain:oWndClient SIZE 1200,670 ADJUST
SET MESSAGE OF oWndMain TO OemToAnsi( " Agenda Telefonica - OLS-Soft - 2010 " ) ;
CLOCK ;
DATE ;
KEYBOARD
Acesso_ao_sistema() // Identificação do Usuario do Sistema.
ACTIVATE WINDOW oWndMain MAXIMIZED
RETURN NIL
//------------------------------------------------------------------------
Segundo Programa. (ONDE DAR O ERRO)
// -----------------------------------------------------------------------
// Programa ...: Agenda Telefonica - Agenda.prg
// -----------------------------------------------------------------------
#include "FiveWin.ch"
#include "Report.ch"
#include "Tcbrowse.ch"
..........
STATIC oReport // Para imprimir
FUNCTION Agenda()
LOCAL oDlg, oLbx // Objetos Caixa de Dialogo
LOCAL oFnt,oG120
.............
DEFINE FONT oFnt NAME "Arial" SIZE 0, -10
CNome = Space(20)
DEFINE DIALOG oDlg RESOURCE "BROWSEAGENDA" TITLE " Agenda - Agenda Telefonica. "
CursorWait()
REDEFINE LISTBOX oLbx FIELDS Agenda->NOME, ;
Agenda->TEL, ;
Agenda->TEL2, ;
Agenda->TEL3, ;
Agenda->CONT1, ;
Agenda->CONT2, ;
Agenda->CONT3 ;
HEADERS "Nome","Telefone 1","Telefone 2","Telefone 3","Contato","Contato","Contato";
FIELDSIZES 200, 70, 70, 70, 70, 70, 70;
COLOR CLR_BLACK, CLR_WHITE ;
FONT oFnt ;
ID 101 ;
OF oDlg ;
ON DBLCLICK(GetAgenda(.F.), oLbx:Refresh())
...........
ACTIVATE DIALOG oDlg CENTERED
RELEASE oFnt
RETURN NIL
.... Fim do Programa Agenda ....................................
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.
-
Cara.
Nós fizemos uma migração em jun 2009, o prog. novo utiliza, Oracle 10 o prog antigo utiliza Pervasive 9.5, no Pervasive o banco é bloqueado, fizemos a migração dos saldos e continuamos a utilizar o prog antigo para consulta, tratando de estoque deverá fazer uma tabela com os codigos dos produtos e informar a SEFAZ por causa do Sintegra, ou manter os mesmos códigos nos dois programas. Nos casos do CR, CP e CE foram importados os dados em arq. txt e depois migrado para o prog. novo.
Normalmente quando fazemos migração os arquivos de movimentação não são exportados pois demanda muito tempo.
Espero ter contribuido.
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
Erro ao compilar - FWH
in Programação
Posted
Verdade.
Mais não sei como achar... a de 32 bits.
Qdo refere-se aos tópicos da DButton encontrei em meus arq.
uma Lib de 16 e outra de 32 bits, incorporei ao projeto, está funcionando perfeito, os erros que davam se foram.
Mais queria ver se podia fazer novo incremento, com a TsButton. Vou continuar pesquisando.
Para todos obrigado...
OZIEL LOPES
FW 22c - Clipper 5.3b - Workshop 4.0
FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.