oziel

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.

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