frkiko

Com cerveja estarei novamente em São Paulo para mais um Encontro de Fivewinners, más é importane a definição das datas pois já estamos em Agosto... Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br ICQ: 285949698 FiveWin for Harbour 2.4 - Workshop

Carlos se ajudar olha o meu BAT. Uso o FiveWin for Harbour 2.4 @ECHO OFF CLS ECHO FiveWin for Harbour 2.4 - July 2002 Harbour development power ECHO © FiveTech, 1993-2002 for Microsoft Windows 95/98/NT/2000/ME and XP set obj= set lib= set include= set pll= set bin= ECHO Compiling... set hdir=c:\harbour set bcdir=c:\borland\bcc55 rem ----->>> GERA CODIGO EM C A PARTIR DO PRG. %hdir%\bin\harbour SEU-SISTEMA /n /i\fwh\include;%hdir%\include /w0 /p %2 %3 > clip.log @type clip.log IF ERRORLEVEL 1 PAUSE IF ERRORLEVEL 1 GOTO EXIT rem ----->>> GERA OBJETOS A PARITR DO CODGIO C. %bcdir%\bin\bcc32 -M -c -O2 -I%hdir%\include SEU-SISTEMA.c > b32.bc %bcdir%\bin\bcc32 -M -c -02 -I%hdir%\include \fwh\source\winapi PRINTDC.C > b32.bc :ENDCOMPILE rem ----->>> COMPILA RC GERANDO ARQUIVO RES IF EXIST SEU-SISTEMA.rc %bcdir%\bin\brc32 -r SEU-SISTEMA rem ----->>> ARQUIVOS OBJ's A SEREM LINKADOS echo c0w32.obj + >> b32.bc echo SISTEMA.obj + >> b32.bc rem ---->>> DEFINE EXE A SER GERADOR E LIB's A LINKAR echo %1.exe, + >> b32.bc echo %1.map, + >> b32.bc echo \fwh\lib\FiveH.lib \fwh\lib\FiveHC.lib + >> b32.bc echo %hdir%\lib\rtl.lib + >> b32.bc echo %hdir%\lib\vm.lib + >> b32.bc echo %hdir%\lib\gtwin.lib + >> b32.bc echo %hdir%\lib\lang.lib + >> b32.bc echo %hdir%\lib\macro.lib + >> b32.bc echo %hdir%\lib\rdd.lib + >> b32.bc echo %hdir%\lib\dbfntx.lib + >> b32.bc echo %hdir%\lib\dbfcdx.lib + >> b32.bc echo %hdir%\lib\debug.lib + >> b32.bc echo %hdir%\lib\common.lib + >> b32.bc echo %hdir%\lib\pp.lib + >> b32.bc rem Uncomment these two lines to use Advantage RDD REM echo %hdir%\lib\rddads.lib + >> b32.bc REM echo %hdir%\lib\Ace32.lib + >> b32.bc echo %bcdir%\lib\cw32.lib + >> b32.bc echo %bcdir%\lib\import32.lib + >> b32.bc echo %bcdir%\lib\psdk\odbc32.lib, >> b32.bc IF EXIST %1.res echo %1.res >> b32.bc ECHO rem ---->>>> ACIONA LINKEDITOR rem uncomment this line and comment the next to review the unreleased memory blocks rem %bcdir%\bin\ilink32 -Tpe -s @b32.bc %bcdir%\bin\ilink32 -Gn -aa -Tpe -s @b32.bc rem delete temporary files @del %1.c @del %1.il? IF ERRORLEVEL 1 GOTO LINKERROR ECHO * Application successfully built SCR GOTO EXIT ECHO :LINKERROR rem if exist meminfo.txt notepad meminfo.txt rem PAUSE * Linking errors * GOTO EXIT :SINTAX ECHO SYNTAX: Build [Program] {-- No especifiques la extensi¢n PRG ECHO {-- Don't specify .PRG extension GOTO EXIT :NOEXIST ECHO The specified PRG %1 does not exist :EXIT Francisco J S Barbosa Belo Horizonte - MG MSN: francisco@ponteware.com.br ICQ: 285949698 FiveWin for Harbour 2.4 - Workshop

Carlos não sei se compreende, más não utilizo nada na autoexec.nt com o xp e nem quando estava no 98 utilizava a autoexec.bat. Hj estou apenas direcionando o caminho no proprio bat de compilação. E funciona sem problemas. Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698 FiveWin for Harbour 2.4

citação: DEFINE DIALOG oDlg RESOURCE "Teste" OF oWnd ; TITLE ( "Cadastro do Materiais" ) oDlg:lHelpIcon := .F. REDEFINE GET oGet1 var cGet1 ID 21 picture "9999" UPDATE REDEFINE GET oGet2 var cGet2 ID 22 picture "@!" UPDATE REDEFINE BUTTON ID 701 OF oDlg ; ACTION gGrava(cGet1,cGet2,oGet1,oGet2) ACTIVATE DIALOG oDlg CENTERED Return(nil) STATIC function gGrava(cGet1,cGet2,oGet1,oGet2) If !GAppend() Endif Teste->codigo := cGet1 Teste->descricao := cGet2 cGet1 := space(4) cGet2 := space(30) oGet1:refresh() oGet2:refresh() oGet1:Setfocus() return(.t.) id=quote>id=quote>STATIC function gGrava(cGet1,cGet2,oGet1,oGet2) If !GAppend() Endif Teste->codigo := cGet1 Teste->descricao := cGet2 cGet1 := space(4) cGet2 := space(30) oDlg:Update() return(.t.) Assim acho que funciona.... Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698 FiveWin for Harbour 2.4

citação:copy file("c:\intpos.tmp") to (camireq_tef+"INTPOS.001") Se eu executar um FINALCA.BAT, com o comando acima dá certo. O problema que ele abre a tela em dos e fica com ela aberta. Kleyton id=quote>id=quote>Kleyton, parece que vc está utilizando o comando WinExec("FINALCA.BAT"), então tente WinExec("FINALCA.BAT",0) assim a tela do dos não vai aparecer na tela. Abraços, Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698 FiveWin for Harbour 2.4

Grande Valdir Parabéns... Foi um grande prazer encontrar com vc no II encontro. Abraços. Obs.: Se for outro Valdir... Parabéns assim mesmo... Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698 FiveWin for Harbour 2.4 Editado por - frkiko on 11/03/2005 10:23:24

Bom então poderia ser no dia 16/04/2005 e no mesmo lugar do primeiro - Restaurante KBAB na av. Afonso Pena, 2483, esquina com Bernardo Monteiro. Às 13hs. Mineirada vamos confirmar... Abraços Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698 FiveWin for Harbour 2.4

Grande Alex.... Ou pode ser no mesmo local que o primeiro... sem problemas... é só marcar... Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698 FiveWin for Harbour 2.4 Editado por - frkiko on 09/03/2005 11:41:53

citação:PARA RELATORIOS EM MODO GRAFICO, USO A TPRINTER, Aà EU COLOCO LOGOTIPOS. DETALHE, A CLASSE QUE USO, FOI ALTERADA PELO VAGNER, PARA NAO TER TIFERENÇA ENTRE RESOLUCOES DE IMPRESSORAS. id=quote>id=quote>Grande Sergio... se possivel queria também receber a Classe Tprinter... francisco@ponteware.com.br Obrigado Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698 FiveWin for Harbour 2.4

Valeu Marllon Agora sim tudo blz.... muito obrigado. Abraços Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698 FiveWin for Harbour 2.4

Olá Marllon, Esta função aPrinters := GetPrinters(.t.) para retornar um array com todas as impressoras instaladas está apresentando um erro na geração. Error: Unresolved external '_HB_FUN_GETPRINTERS' refeenced from C:\PROGWIN\NFW\NF.OBJ O que tenho que incluir para poder funcionar??? Obrigado. Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698 FiveWin for Harbour 2.4

Bem senhores, Utilizando o PrinterSetup() eu tenho o caminho da rede, resolve o meu problema, más quanto nesta função vou em cancelar... não estou conseguindo este retorno. Alguem sabe como fazer para saber se for OK ou Cancelar. Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698 FiveWin for Harbour 2.4

Valeu grande Vagner. Más não é xHarbour, tenho procurado outras funções más sem sucesso, só quero listar as impressoras instaladas no Windows. Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698 FiveWin for Harbour 2.4

Lembrando que se tiver alguma função que retorne as impressoras instaladas no Windows... seria bem melhor. Obrigado Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698 FiveWin for Harbour 2.4

Bom dia a todos. Estou querendo escolher o caminho da rede para imprimir no modo MSDOS (TdosPrn), e tenho este caminho no WIN.INI na Section [Devices] como eu poderia ler todas as linhas para fazer a escolha. Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698 FiveWin for Harbour 2.4

Olá Helio DLL STATIC FUNCTION SetLink(PortaSerial AS _INT,PlacaPclock AS _INT) AS _INT PASCAL LIB 'PCLINK32' Tente isso: hpDll:=Loadlib32("PCLINK32.DLL") DLL32 FUNCTION SetLink(PortaSerial AS _INT,PlacaPclock AS _INT) AS _INT FROM "SetLink" LIB hpDll Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698 FiveWin for Harbour 2.4

Um grade abraço a todos. Agradeço a Deus pelo ano que termina e tenho a certeza de que o ano novo será ainda melhor. Feliz Natal e Prospero Ano Novo Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698

Bom inicio de semana a todos. Foi mesmo muito importante e o II Encontro, parabens a todos, organizadores, patrocinadores, colaboradores e participantes em geral. Não citarei nomes para evitar dizer que não lembrei de alguns nomes . E lebrar aos que solicitaram o meu Msn, que me desculpem que passei errado, mas se encontra no final desta mensagem. No mais obrigado a todos. Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698

Grande Cleber Eu, Herberson e André já reservamos no Hotel Parthenom (11-6475-9988 p/ 3 pessoas R$ 100,00 e p/ 2 pessoas R$ 70,00) quarto para 3 pessoas. O ideal é que vc encontre mais pessoas para dividir outro quarto. Depois entre em contato para combinarmos a saida de BH. Abraços. Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698

Realmente foi muito importante esté pré-encontro em BH. Espero que estejamos todos em São Paulo no II Encontro Abraços Francisco J S Barbosa Francisco J S Barbosa Belo Horizonte - MG MSN: frkiko13@hotmail.com ICQ: 285949698

Muito bem senhores Estarei presente neste encontro no sabado, até lá então. Francisco J S Barbosa MSN frkiko13@hotmail ICQ 285949698 (31) 3241-1593

Bom dia Senhores. Grande idéia de um pré-encontro em BH. Certamente estarei presente. Abraços, Francisco J S Barbosa Belo Horizonte - MG francisco@ponteware.com.br MSN: frkiko13@hotmail.com ICQ: 285949698 (31)8807-2283

Grande, Elias Abrão Júnior É verdade estive fora este final de semana, no mais obrigado. Realmente não estou recebendo retorno da proteção, pois retorna vazio e deveria retornar [ 9 ] .

Grande, Elias Abrão Júnior É verdade estive fora este final de semana, no mais obrigado. Realmente não estou recebendo retorno da proteção, pois retorna vazio e deveria retornar [ 9 ] .

Olá Senhores, Estou iniciando no fivewin, agora estou esbarrando na declarancao de uma dll externa. Já li varias vezes a apostila e todas a dicas no forum. Após varias tentativas não compreendi seu funcionamento. Já ha um bom tempo tenho tendo fazer funcionar a dll do HANDPROD V.3.60. e nada. Não sei quais arquivos incluir e a logica de funcionamento. Por favor se tiverem uma literatura mais detalhada, me informem. Segue um trecho da minha declaração que não está funcionando. Obrigado Francisco ------------------------------------------------------ STATIC FUNCTION fHandProt() hpDll:=Loadlib32("HP32V360.DLL") sHprot:=Hl_leprot("Aplicacao","Protecao","Diretorio","1","1") ? sHprot RETURN .T. DLL32 FUNCTION Hl_leprot(vApli AS STRING,vChav AS STRING,; vDire AS STRING,vAtua AS CHAR,; vRede AS CHAR) AS CHAR PASCAL LIB hpDll ------------------------------------------------------------ Editado por - frkiko on 13/08/2004 15:24:11