Gui

Olá Kapiaba, eu até prefiro ter xHarbour e Fivewin original, estou com dificuldade de encontrar os pares BCC / xHarbour / Fivewin , e também gostaria de saber se funcionam em 64bits, consegui gerar o executável, porém continua apresentando erro mesmo com as alterações citadas acima, com quem devo negociar a compra de xHarbour / Fivewin ?, trabalhei com uma versão antiga que funcionava bem, mas quando surgiu o Windows7 para 64bits, não conseguia nem compilar, só consegui entrando no xp via vmware, e também existe a questão Harbour e xHarbour para dificultar, tenho dúvidas em qual utilizar e quais as diferenças, o que sei é que já trabalhei com xHarbour/Fivewin, então, estou mas tendencioso a este que já conheço

Obrigado pela orientação, consegui gerar o executável, no entanto, quando da execução do mesmo está apresentando o seguinte erro: "Unrecoverable error 9000: Module 'adordd.prg' was compiled into PCODE version:9,this version of xHarbour expects version:10" Sabe como devo corrigir?

┌────────────────────────────────────────────────────────────────────────────┐ │ FiveWin for xHarbour 1.2.3.10205 - Setembro 2017 xHarbour development power│▄ │ ® FiveTech, 1993-2006 for Microsoft Windows 95/98/NT/2000/ME and XP │█ └────────────────────────────────────────────────────────────────────────────┘█ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ Compiling... xHarbour 1.2.3 Intl. (SimpLex) (Build 20170902) Copyright 1999-2017, http://www.xharbour.org http://www.harbour-project.org/ Compiling 'tst.prg' and generating preprocessed output to 'tst.ppo'... Generating C source output to 'tst.c'... Done. Lines 207, Functions/Procedures 8, pCodes 734 Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland tst.c: Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland Error: Unresolved external '_HB_FUN__TRDD' referenced from C:\FWH\SAMPLES\TST.OB J Error: Unresolved external '_HB_FUN_RDDSETFIELDEXTENT' referenced from C:\FWH\SA MPLES\TST.OBJ Error: Unresolved external '_HB_FUN_RDDADDFIELD' referenced from C:\FWH\SAMPLES\ TST.OBJ * There are errors C:\FWH\samples> REM BUILDX.BAT @ECHO OFF CLS ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ECHO ³ FiveWin for xHarbour 1.2.3.10205 - Setembro 2017 xHarbour development power³Ü ECHO ³ © FiveTech, 1993-2006 for Microsoft Windows 95/98/NT/2000/ME and XP ³Û ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß if A%1 == A GOTO :SINTAX if NOT EXIST %1.prg GOTO :NOEXIST ECHO Compiling... set hdir=c:\xHarbour set fwdir=c:\FWH set bcdir=c:\BCC %hdir%\bin\harbour %1 /n /i..\include;%hdir%\include /w /p %2 %3 > clip.log @type clip.log IF ERRORLEVEL 1 PAUSE IF ERRORLEVEL 1 GOTO EXIT echo -O2 -e%1.exe -I%hdir%\include %1.c > b32.bc %bcdir%\bin\bcc32 -M -c -v @b32.bc :ENDCOMPILE IF EXIST %1.rc %bcdir%\bin\brc32 -r %1 echo %bcdir%\lib\c0w32.obj + > b32.bc echo %1.obj, + >> b32.bc echo %1.exe, + >> b32.bc echo %1.map, + >> b32.bc echo %fwdir%\lib\Fivehx.lib + >> b32.bc echo %fwdir%\lib\FiveHC.lib + >> b32.bc echo %fwdir%\lib\Libmysql.lib + >> b32.bc echo %fwdir%\lib\adordd.lib + >> b32.bc echo %fwdir%\lib\usrrdd.lib + >> b32.bc echo %hdir%\lib\rtl.lib + >> b32.bc echo %hdir%\lib\vm.lib + >> b32.bc echo %hdir%\lib\gtgui.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\rddads.lib + >> b32.bc echo %hdir%\lib\dbfntx.lib + >> b32.bc echo %hdir%\lib\dbfcdx.lib + >> b32.bc echo %hdir%\lib\dbffpt.lib + >> b32.bc echo %hdir%\lib\hbsix.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 echo %hdir%\lib\rddads.lib + >> b32.bc echo %hdir%\lib\Ace32.lib + >> b32.bc echo %hdir%\lib\pcrepos.lib + >> b32.bc echo %hdir%\lib\ct.lib + >> b32.bc echo %hdir%\lib\zlib.lib + >> b32.bc echo %hdir%\lib\hbzip.lib + >> b32.bc echo %hdir%\lib\libmisc.lib + >> b32.bc echo %hdir%\lib\tip.lib + >> b32.bc echo %hdir%\lib\png.lib + >> b32.bc echo %hdir%\lib\xharbour.lib + >> b32.bc echo %bcdir%\lib\cw32.lib + >> b32.bc echo %bcdir%\lib\import32.lib + >> b32.bc echo %bcdir%\lib\uuid.lib + >> b32.bc echo %bcdir%\lib\ws2_32.lib + >> b32.bc echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc echo %bcdir%\lib\psdk\psapi.lib + >> b32.bc echo %bcdir%\lib\psdk\gdi32.lib + >> b32.bc echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc echo %bcdir%\lib\psdk\shell32.lib, >> b32.bc IF EXIST %1.res echo %1.res >> b32.bc rem uncomment this line to use the debugger and comment the following one rem %bcdir%\bin\iLink32 -Gn -Tpe -s -v @b32.bc %bcdir%\bin\iLink32 -Gn -aa -Tpe -s -v @b32.bc IF ERRORLEVEL 1 GOTO LINKERROR ECHO * Application successfully built %1 GOTO EXIT ECHO rem delete temporary files @del %1.c :LINKERROR ECHO * There are 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 //Parte do código fonte // FiveWin Virtual RDD demo #include "FiveWin.ch" extern _TRDD static oRdd request TRDD //----------------------------------------------------------------------------// function Main() local nvalor := 0 SetupRdd() USE Customer ALIAS "Test" VIA "ODBC" MsgInfo( Test->Test := 123.456 ) MsgInfo( m->nvalor ) MsgInfo( Test->Test ) MsgInfo( valtype(Test->Test )) return nil

Olá pessoal Tenho a seguinte situação, um servidor com Windows Server2008 64bits, um terminal com Windows7 32bits, após geração de arquivo para impressão de etiqueta argox executo PrintFileRaw( cNmImpressora, cNmArquivo, "Argox" ), a impressão não vai para o gerenciador e não imprime, já verifiquei o caminho de impressão, nome do arquivo, driver da argox, testei com drive da lx300 e nada, quando faço a mesma impressão local no windows 7 32 bits funciona de boa, peço encarecidamente a ajuda dos amigos colaboradores de plantão, pois estou a dias tentando resolver este problema para um cliente Grato pela atenção! Agnaldo Cabral Desempenho Informatica Clipper 5.2e, FWH 2.8, xHarbour 0.99.4 agnaldo@desempenho.com.brid=blue>

Olá pessoal Tenho a seguinte situação, um servidor com Windows Server2008 64bits, um terminal com Windows7 32bits, após geração de arquivo para impressão de etiqueta argox executo PrintFileRaw( cNmImpressora, cNmArquivo, "Argox" ), a impressão não vai para o gerenciador e não imprime, já verifiquei o caminho de impressão, nome do arquivo, driver da argox, testei com drive da lx300 e nada, quando faço a mesma impressão local no windows 7 32 bits funciona de boa, peço encarecidamente a ajuda dos amigos colaboradores de plantão, pois estou a dias tentando resolver este problema para um cliente Grato pela atenção! Agnaldo Cabral Desempenho Informatica Clipper 5.2e, FWH 2.8, xHarbour 0.99.4 agnaldo@desempenho.com.brid=blue>

Olá pessoal! Optei por utilizar o Crystal Report para boa parte dos relatórios, em especial os de bobina por não haver quebra de página e tenho tido bons resultados, no entanto, estou com dificuldade para exportar o mesmo para TXT, alguém pode ajudar? Para gerar o relatório após criação de arquivo temporário: &&Imprimindo no Crystal Report oCrw:=CrystalR32():New() oCrw:OpenReport((PathExe()+"RelBob.Rpt"),,lCryPreview) oCrw:SetLocal(0,oGlobalSys:GetPathSis()+"\"+cTmp+".DBF") oCrw:RunReport()

Olá pessoal! Optei por utilizar o Crystal Report para boa parte dos relatórios, em especial os de bobina por não haver quebra de página e tenho tido bons resultados, no entanto, estou com dificuldade para exportar o mesmo para TXT, alguém pode ajudar? Para gerar o relatório após criação de arquivo temporário: &&Imprimindo no Crystal Report oCrw:=CrystalR32():New() oCrw:OpenReport((PathExe()+"RelBob.Rpt"),,lCryPreview) oCrw:SetLocal(0,oGlobalSys:GetPathSis()+"\"+cTmp+".DBF") oCrw:RunReport()

Olá!, Kapiaba, estou imprmindo na porta USB, mas também consigo imprimir na LPT1 utilizando a fução PrintFileRaw, digo que boa parte dos problemas que tenho com xHarbour estão quando utilizo Terminal Server. Vou verificar o link que vc acabou postar, de qualquer forma agradeço pela colaboração! Agnaldo Cabral Desempenho Informatica Clipper 5.2e, FWH 2.8, xHarbour 0.99.4 agnaldo@desempenho.com.brid=blue>

id=blue> Estou utilizando função PrintFileRaw, no entanto, quando envio do impressão para Bematech MP4000 de um acesso remoto(TS), perco as configuração de compressão, e quando faço impressão local funcina corretamente. //não funciona no TS, somente local @ nlin,00 SAY Chr(27)+Chr(64)+Chr(27)+Chr(15) Por favor, alguém sabe resolver?

id=blue> Estou utilizando função PrintFileRaw, no entanto, quando envio do impressão para Bematech MP4000 de um acesso remoto(TS), perco as configuração de compressão, e quando faço impressão local funcina corretamente. //não funciona no TS, somente local @ nlin,00 SAY Chr(27)+Chr(64)+Chr(27)+Chr(15) Por favor, alguém sabe resolver?

Olá Pessoal Por favor, alguém sabe informar como obter o número da sessão conectada no TS, uma vez que a cada acesso posso estar com um número diferente? Agnaldo Cabral Desempenho Informatica Clipper 5.2e, FWH 2.8, xHarbour 0.99.4 agnaldo@desempenho.com.br id=blue>

Olá Pessoal Por favor, alguém sabe informar como obter o número da sessão conectada no TS, uma vez que a cada acesso posso estar com um número diferente? Agnaldo Cabral Desempenho Informatica Clipper 5.2e, FWH 2.8, xHarbour 0.99.4 agnaldo@desempenho.com.br id=blue>

Empresa na Região Central de São Paulo Admite Programador Fivewin / Harbour com Experiência Enviar Curriculo para agnaldo@desempenho.com.brid=navy>

Empresa na Região Central de São Paulo Admite Programador Fivewin / Harbour com Experiência Enviar Curriculo para agnaldo@desempenho.com.brid=navy>

id=navy> Tenho a seguinte consulta MYSQL abaixo, a qual faço no Query Browse do MySql Administrator, e funciona perfeitamente, até de forma rápida processando em uma maquina local, no entando, ao executar via sistema na maquila local utilizando o DbUseArea( .t., "SQLRDD", cConSql, "QryKardez" ) tem demorado em excesso para gerar um relatório, como posso resolver ? cConSql := "select distinct c.cod_loj, c.cod_pro, b.ft02st, c.ft02hist, sum(entrada) as entrada," cConSql += "sum(saida) as saida, sum(c.entrada*b.ft02pr2) as e_custo, " cConSql += "sum(c.entrada*b.ft02pdest) as e_venda, sum(c.saida*b.ft02pr2) as s_custo, " cConSql += "sum(c.saida*b.ft02pdest) as s_venda from ftraz01_dbf c left outer join ftest01_dbf b" cConSql += "on c.cod_loj = b.cod_loj and c.cod_pro = b.cod_pro where (c.cod_loj = b.cod_loj " cConSql += "and c.cod_pro = b.cod_pro and c.cod_pro in (select a.cod_pro from ftpro01_dbf a " cConSql += "where (a.cod_pro = b.cod_pro and a.ft02st = b.ft02st)) and (b.cod_loj = '00' " cConSql += "or b.cod_loj = '50') and c.ft02hist != 'ALT.PRECO COMPRA' and c.ft02hist != " cConSql += "'ALT. PRECO MEDIO' and c.ft02data < ('2010-04-01')) " cConSql += "group by c.cod_loj, c.cod_pro, b.ft02st, c.ft02hist" dbUseArea( .t., "SQLRDD", cComm, "QryKardex" ) Grato pela atenção! Agnaldo - São Paulo agnaldo@desempenho.com.br FWH 2.7 - xHARBOUR WorkShop.Exe