cendon

Obrigado meu amigo, funcionou 100%

Bom dia srs! Preciso importar uma imagem para uma planilha de excel. existe alguma função que faça isso? Obrigado

Bom dia Kapi, tudo bom? Vale amigo! Resolveu, só depois percebi que o xbrowse é multidimensional tem de clicar para aparecer os outros dados, rsrsr. Obrigado!

Boa noite Srs, estou tentando ler um retorno em Json, não estou conseguindo. Tentei apenas converter com o hb_JSONDecode e mostrar no xbrowse tentei tbm ler uma tabela multidimensional tbm não obtive sucesso, algum santo para me dar uma ajuda? abaixo o fonte Function Aj_decode() local resultado, Aarray TEXT INTO resultado { "status": "success", "message": [ { "simpleDebitoPayment": { "id": "0000007112022", "payerName": "ALLYSON CIRINO PEREIRA DA SILVA", "amount": 15.00, "scheduledDate": "2022-11-24T10:21:50.132", "payerDocument": 1452034680, "beneficiaryDocument": 13102672000150, "description": "DEBITO SEGURO", "bank": 33, "branch": "3476", "account": "2017801", "branchDigit": "2", "accountDigit": "9" }, "valid": false, "errors": [ { "message": "P0001: Err284: Payment 0000007112022 Already Exists in 1185" } ] }, { "simpleDebitoPayment": { "id": "0000009112022", "payerName": "RAIKA LUANA FERREIRA MARTINS", "amount": 15.00, "scheduledDate": "2022-11-24T10:21:50.132", "payerDocument": 11754817696, "beneficiaryDocument": 13102672000150, "description": "DEBITO SEGURO", "bank": 237, "branch": "3728", "account": "510767", "branchDigit": "1", "accountDigit": "9" }, "valid": false, "errors": [ { "message": "P0001: Err284: Payment 0000009112022 Already Exists in 1185" } ] }, { "simpleDebitoPayment": { "id": "0000010112022", "payerName": "CLEITON HONORIO DE OLIVEIRA", "amount": 15.00, "scheduledDate": "2022-11-24T10:21:50.132", "payerDocument": 7825483936, "beneficiaryDocument": 13102672000150, "description": "DEBITO SEGURO", "bank": 341, "branch": "2776", "account": "23893", "branchDigit": "6", "accountDigit": "9" }, "valid": false, "errors": [ { "message": "P0001: Err284: Payment 0000010112022 Already Exists in 1185" } ] } ] } endtext x1 := hb_jsonDecode( resultado, @aArray ) IF aArray == nil MsgStop( "Erro ao retornar os dados. Tente novamente." ) RETURN NIL ENDIF xbrowse(Aarray) return

rsrsrsr, É isso ai! Já tomei surra dos dois, fiquei com o xharbour. Funciona tudo e tem mais suporte, ou melhor mais amigos.

http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=15501 O script é o mesmo, muda só as pastas de lib,include. Dê uma olhada no link

@ECHO OFF CLS ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ECHO ³ FiveWin for XHarbour 17.7 - Agosto 2017 Harbour development power ³Ü ECHO ³ (c) FiveTech, 1993-2002 for Microsoft Windows 95/98/NT/2000/ME and XP ³Û ECHO ³ (c) Angelo Jos‚ Ferreira Cendon - BAT de Compilacao do VIDA ³Û ECHO ³ (c) Fev/2004 ³Û ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß set lib= rem set include= set obj= set bin= set fwdir=c:\fwh1804 set hdir=c:\xhb123 set bcdir=c:\bcc73 echo principal.obj + >> b32.bc echo a0101.obj + >> b32.bc echo a0102.obj + >> b32.bc echo c_broff.obj + >> b32.bc echo ftp.obj + >> b32.bc echo sendmail.obj + >> b32.bc echo printer.obj + >> b32.bc echo agenda.obj + >> b32.bc echo FUNCS.obj + >> b32.bc echo principal.obj >> b32.bc echo principal.exe >> b32.bc echo principal.map >> b32.bc echo %fwdir%\lib\Fivehx.lib %fwdir%\lib\FiveHC.lib %fwdir%\lib\libmysql.lib + >> b32.bc echo %fwdir%\lib\pgsql.lib %fwdir%\lib\libpq.lib + >> b32.bc echo %fwdir%\lib\libmysql.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\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\codepage.lib + >> b32.bc echo %hdir%\lib\pp.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%\sqllib\lib\libmysql.lib + >> b32.bc echo %hdir%\sqllib\lib\sqllib_xHB_123_rev9961.lib + >> b32.bc rem echo %hdir%\lib\adordd.lib + >> b32.bc rem echo %hdir%\lib\usrrdd.lib + >> b32.bc rem echo %hdir%\lib\usrrddmt.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\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\psapi.lib + >> b32.bc echo %bcdir%\lib\psdk\gdiplus.lib + >> b32.bc echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc echo %bcdir%\lib\psdk\shell32.lib, >> b32.bc rem echo %hdir%\lib\hbhpdf.lib + >> b32.bc rem echo %hdir%\lib\libharu.lib + >> b32.bc IF EXIST principal.res echo principal.res >> b32.bc rem uncomment this line to use the debugger and comment the following one rem if %GT% == gtwin %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc %bcdir%\bin\ilink32 -aa -Gn -Tpe -s -v @b32.bc rem IF ERRORLEVEL 1 GOTO LINKERROR rem if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc rem IF ERRORLEVEL 1 GOTO LINKERROR ECHO * Application successfully built * rem nuevo by Antoionio Linares - 16/05/2013 rem mshta vbscript:CreateObject("SAPI.SpVoice").Speak("Application successfully built")(Window.close) rem mshta vbscript:CreateObject("SAPI.SpVoice").Speak("Programa construido com sucesso")(Window.close)

https://www.receitaws.com.br/v1/cnpj/99999999999

REDEFINE LISTBOX oValue VAR cValue FIELDS "","","","","","","","","","",""; HEADER "" ID 314 ; ON CHANGE ( "" ) ; ON DBLCLICK ( alterapg(aItems[oValue:nAt][1]),oValue:refresh() ) ; OF oFld1:aDialogs[2]; oValue:SetArray( aItems ) oValue:aHeaders := { "Mes Ref.","Dt.Venc.","Dt.Rec.","Valor Cob","Status","Ocor.","Pg.Comi","Valor Cor","Val.Comi","Condicao" } oValue:aColSizes := { 60, 70, 70, 60, 40, 30, 50, 60, 60, 60 } oValue:bLine := { || {aItems[oValue:nAt][1],aItems[oValue:nAt][2],aItems[oValue:nAt][3],aItems[oValue:nAt][4],aItems[oValue:nAt][5],aItems[oValue:nAt][6],aItems[oValue:nAt][7],aItems[oValue:nAt][8],aItems[oValue:nAt][9],aItems[oValue:nAt][10] } } oValue:nLineStyle := 0 oValue:nClrForeHead := RGB( 0, 0, 255 ) // Cor nos Headers - Cabe‡alhos oValue:nClrText := {|| iif(aItems[oValue:nAt][6]#"00", CLR_HRED,CLR_BLACK) } // cor da linha se condição aItems 6 = "00" oValue:nclrpane:={||iif(oValue:nAt % 2 <> 0, nrgb(230,230,230), nrgb( 190, 215, 190))} // Cor do fundo se par uma se impar outra

Obrigado João! Vou dar uma pesquisada?

boa tarde João! inicialmente estava pensando adordd, mas pelo que pesquisei sqlrdd é nativo, estou certo? Estou tendo dificuldade, em compilar, os exemplos que peguei usam TMysqlServer. Ai da um monte de erro

Boa tarde Srs! Preciso da ajuda de vocês, estou convertendo um sistema antigo que usa DBF num servidor local, preciso acessar um banco de dados MySql que está em um servidor de nuvem. Alguém poderia postar alguns exemplos de como efetuar o acesso, pesquisar, incluir, alterar e excluir registros? Obrigado antecipado.

faço assim e funciona com type=T x1=ADADOS[I,04] IF type("x1")#"U" if type("x1")="T" x1=subs(dtoc(x1),1,10) ---------------> pega a data com formato dd/mm/aaaa endif if type("x1")="N" repl dCRIACAO with str(x1,10) else repl dCRIACAO with x1 ENDIF endif move a célula antes para uma variável de memoria, depois testa

Olá, o campo de data do Excel retorna campo tipo tempo (T) com o formato dd/mm/aa hh:mm:ss você tem de trata-la como string Para converte-la tem de pegar separado a data ctod(subs([celula_excel],1,8))

Obrigado pelas respostas, principalmente o manual. A noite irei ler e fazer mais testes Um abraço a todos.

Boa noite srs! Em qual lib esta a função tmysqlserver?

João tenho um servidor de arquivos, nada complicado somente um deposito de dados (dbf) os arquivos compartilhados são lidos dele e existem arquivos locais e o executável ficam na estação do usuário. mapeio uma letra da pasta compartilhada deste servidor de arquivos quando mapiei via windows 10 o fivewin não reconheceu a letra dai usar as rotinas abaixo que testam e criam uma letra para o compartilhamento function teste2() Local cDriveLetter:="M:", cRemotePath:="\\DESKTOP-888AK7F\USERS\PUBLIC\VIDA" if file("M:\proposta.dbf") sele 0 use M:\PROPOSTA SHARED msgalert("funcionou 1") else MapDrive( cDriveLetter, cRemotePath) sele 0 use M:\PROPOSTA SHARED msgalert("funcionou 2") endif close data return Function MapDrive(cDriveLetter,cRemotePath,lPermanent,cUserName,cPassword) // parametro letra: \\caminho1\pasta usuario senha Local oNetwork,oError DEFAULT lPermanent:=.F. oNetwork:=CreateObject("WScript.Network") TRY oNetwork:MapNetworkDrive(cDriveLetter, cRemotePath,lPermanent,cUserName,cPassword) CATCH MsgInfo("Rede com problemas: "+cDriveLetter+ " to "+cRemotePath+CRLF+; OemToAnsi("Desligue seu computador e religue")+CRLF+; OemToAnsi("Se o problema persistir entre em")+CRLF+; OemToAnsi("contato com o suporte")) END Return NIL Function RemoveMapDrive(cDriveLetter) // parametro letra: Local oNetwork oNetwork:=CreateObject("WScript.Network") TRY oNetwork:RemoveNetworkDrive(cDriveLetter) CATCH MsgInfo("Rede com problemas (Remover): "+cDriveLetter+CRLF+; OemToAnsi("Desligue seu computador e religue")+CRLF+; OemToAnsi("Se o problema persistir entre em")+CRLF+; OemToAnsi("contato com o suporte")) END Return NIL //-----------------------------------------------------------------------// Function IsDriveMapped(cDriveLetter) // parametro letra: Local oNetwork,oNetworkDrives,i,lAlreadyConnected:=.F. oNetwork:=CreateObject("WScript.Network") oNetworkDrives:=oNetwork:EnumNetworkDrives() For i:=0 to oNetworkDrives:Count - 1 STEP 2 if Upper(oNetworkDrives:Item(i)) == Upper(cDriveLetter) lAlreadyConnected:=.T. Endif Next Return lAlreadyConnected

Obrigado Joao! Vou aproveitar sua rotina e atualizar meu errorsys. Quanto ao problema do mapeamento não sei se é um problema do fivewin ou do Windows10 Mas consegui contornar, o mapeamento deve ser executado de dentro do fivewin Function MapDrive(cDriveLetter,cRemotePath,lPermanent,cUserName,cPassword) Local oNetwork,oError DEFAULT lPermanent:=.F. oNetwork:=CreateObject("WScript.Network") TRY oNetwork:MapNetworkDrive(cDriveLetter, cRemotePath,lPermanent,cUserName,cPassword) CATCH MsgInfo("Rede com problemas: "+cDriveLetter+ " to "+cRemotePath+CRLF+; OemToAnsi("Desligue seu computador e religue")+CRLF+; OemToAnsi("Se o problema persistir entre em")+CRLF+; OemToAnsi("contato com o suporte")) END Return NIL mapeando dentro do fivewin, a letra do mapeamento funciona sem problema De qualquer maneira obrigado pela ajuda

Bom dia srs, tudo bom? Devo estar fazendo uma besteira muito grande muito grande numa rotina minha mapeei um pasta da rede com uma letra S: porem não consigo acessar nenhum arquivo desta pasta mostra que o arquivo nao existe tenho acesso pelo Prompt do DOS e pelo Fox (tenho uma maquina com windows 10 32) mas não consigo ver via fivewin Error description: (DOS error 3) DBFCDX/1001 Open error : S:\proposta.dbf o codigo é o seguinte function teste2() sele 0 use s:\proposta shared msgalert("funcionou") close data return Alguem ja passou pelo problema?

O Alexandre Oliveira é membro aqui do fórum, (ALEOLIVEIRA) A rotina é esta, //------------------------------------------------------------------------------ // Integracao byjg.com.br SMS xHarbour // Alexandre Oliveira // alexandre.oliveira@awsinformatica.com.br //------------------------------------------------------------------------------ // Habilitar os packages: hbtipssl.lib e hbtip.lib. FUNCTION EnviaSMS() LOCAL oUrl LOCAL oPagina LOCAL cUrl LOCAL cPost LOCAL cBuf // // Variaveis para post LOCAL cMensagem := "Teste de Envio SMS - HARBOUR/ANGELO" LOCAL cDDD := "31" LOCAL cCelular := "997331174" // Parametros da conta no ByJG LOCAL cUsuario := "yyyyyy" LOCAL cSenha := "xxxxx cUrl := "http://www.byjg.com.br/site/webservice.php/ws/sms" cPost := "?httpmethod=enviarsms" cPost := cPost + cDDD cPost := cPost + cCelular cPost := cPost + cMensagem cPost := cPost + cUsuario cPost := cPost + cSenha oUrl:=TUrl():New( cUrl ) oPagina := TipClientHttp():New( oUrl , .T. ) oPagina:nConnTimeout := 20000 IF oPagina:Open( cUrl+cPost ) cBuf := oPagina:ReadAll() Alert(cBuf,"Mensagem de retorno") ELSE Alert("Verifique acesso a internet!") ENDIF RETURN NIL

Boa tarde Srs. Estou fazendo uma rotina para enviar SMS, fiz contato com o pessoal do site ByJG e no site deles tem uma rotina criada pelo Alexandre Oliveira. consigo compilar sem problemas porem não consigo enviar a mensagem, alguem usa este site para envio de sms? Alguem já usou a rotina do Ale? ela pede duas Libs hbtipssl.lib e hbtip.lib porem estas libs não estão nem no xharbour o bbc7. E compila sem problemas sem elas. Se poderem me ajudar Um abraço Angelo Cendon Fivewin 17.7 xharbour BCC7

Srs obrigado pelas respostas, realmente faltava o parâmetro -aa na linha do Link Obrigado Jose, Rocinha e João. O fórum continua nota 10

Obrigado pela resposta JMsilma (não saber o nome é foda. kkkk) Fiz a troca das libs por indicação do João, porem também não deu certo continua executando a aplicação em modo console. Quando ao uso do xdev pretendo mudar, mas preciso de tempo, e como todos sabem esta palavra não existe no vocabulário de quem esta desenvolvendo ou atualizando sistemas (trocar pneu com o carro andando) Mas vou continuar na tentativa de resolver o problema, o modo console deixa a aplicação muito lenta e o usuário reclama muito da tela preta. de qualquer maneira obrigado pela ajuda e dicas.

Boa noite João! Troquei mas não resolveu. Uso um .bat em dos para compilação e depois outro para linkedição Tenho que alterar algo neles para sair do modo console? Procurei no site e vi alguma coisa mas, relacionado ao xdev segue os arquivos de lote Compilação @ECHO OFF CLS ECHO FiveWin for Harbour - July 2002 Harbour development power ECHO (c) FiveTech, 1993-2002 for Microsoft Windows 95/98/NT/2000/ME/XP/NT/10 ECHO (c) Angelo Jos‚ Ferreira Cendon - BAT de Compilacao set lib= set obj= set bin= set fwdir=c:\fwh17-7 set hdir=c:\xharbour_bcc7 set bcdir=c:\bcc7 echo Gera codigo C %hdir%\bin\harbour %1 /n /i%hdir%\include;%fwdir%\include %2 %3 echo Gera Obj %bcdir%\bin\bcc32 -M -c -O2 -I%hdir%\include;%bcdir%\include\dinkumware;;%bcdir%\include\windows %1.c echo Gera RES IF EXIST %1.rc %bcdir%\bin\brc32 -r %1 Linkedição ECHO FiveWin for XHarbour 17.7 - Agosto 2017 Harbour development power ECHO (c) FiveTech, 1993-2002 for Microsoft Windows 95/98/NT/2000/ME and XP ECHO (c) Angelo Jos‚ Ferreira Cendon - BAT de Compilacao do VIDA ECHO (c) Fev/2004 set lib= rem set include= set obj= set bin= set fwdir=c:\fwh17-7 set hdir=c:\xharbour_bcc7 set bcdir=c:\bcc7 echo c0w32.obj + > b32.bc echo vida.obj + >> b32.bc echo a0101.obj + >> b32.bc echo a0102.obj + >> b32.bc echo a0103.obj + >> b32.bc echo a0104.obj + >> b32.bc echo a0105.obj + >> b32.bc echo a0106.obj + >> b32.bc echo a011201.obj + >> b32.bc echo a011202.obj + >> b32.bc echo a011203.obj + >> b32.bc echo a0113.obj + >> b32.bc echo a011401.obj + >> b32.bc echo a011402.obj + >> b32.bc echo a011403.obj + >> b32.bc echo a0115.obj + >> b32.bc echo a0201.obj + >> b32.bc echo a0202.obj + >> b32.bc echo a0203.obj + >> b32.bc echo a0204.obj + >> b32.bc echo a0205.obj + >> b32.bc echo a0206.obj + >> b32.bc echo a0207.obj + >> b32.bc echo a0208.obj + >> b32.bc echo a0209.obj + >> b32.bc echo a0210.obj + >> b32.bc echo a0211.obj + >> b32.bc echo a0212.obj + >> b32.bc echo a0213.obj + >> b32.bc echo a0214.obj + >> b32.bc echo a0215.obj + >> b32.bc echo a0216.obj + >> b32.bc echo a0217.obj + >> b32.bc echo a0219.obj + >> b32.bc echo a0220.obj + >> b32.bc echo a0221.obj + >> b32.bc echo a0222.obj + >> b32.bc echo a0223.obj + >> b32.bc echo a0224.obj + >> b32.bc echo a0225.obj + >> b32.bc echo a0226.obj + >> b32.bc echo a0227.obj + >> b32.bc echo a0301.obj + >> b32.bc echo a0302.obj + >> b32.bc echo a0303.obj + >> b32.bc echo a0304.obj + >> b32.bc echo a0401.obj + >> b32.bc echo a0402.obj + >> b32.bc echo a0403.obj + >> b32.bc echo a0404.obj + >> b32.bc echo a0405.obj + >> b32.bc echo a0406.obj + >> b32.bc echo a0407.obj + >> b32.bc echo a0408.obj + >> b32.bc echo a0410.obj + >> b32.bc echo a0411.obj + >> b32.bc echo a0412.obj + >> b32.bc echo a0413.obj + >> b32.bc echo a0414.obj + >> b32.bc echo a0415.obj + >> b32.bc echo a0416.obj + >> b32.bc echo a0417.obj + >> b32.bc echo a0418.obj + >> b32.bc echo a0419.obj + >> b32.bc echo a0420.obj + >> b32.bc echo a0421.obj + >> b32.bc echo a0422.obj + >> b32.bc echo a0423.obj + >> b32.bc echo a0424.obj + >> b32.bc echo a0505.obj + >> b32.bc echo a0506.obj + >> b32.bc echo a0507.obj + >> b32.bc echo a0508.obj + >> b32.bc echo a0509.obj + >> b32.bc echo a0510.obj + >> b32.bc echo a0511.obj + >> b32.bc echo a0512.obj + >> b32.bc echo a0513.obj + >> b32.bc echo a0111.obj + >> b32.bc echo adoxb.obj + >> b32.bc echo printer.obj + >> b32.bc echo agenda.obj + >> b32.bc echo FUNCS.obj + >> b32.bc echo angelo.obj + >> b32.bc echo tmicalendario.obj + >> b32.bc echo vida.obj >> b32.bc echo vida.exe >> b32.bc echo vida.map >> b32.bc echo %fwdir%\lib\Fivehx.lib %fwdir%\lib\FiveHC.lib %fwdir%\lib\libmysql.lib + >> b32.bc echo %fwdir%\lib\pgsql.lib %fwdir%\lib\libpq.lib + >> b32.bc echo %hdir%\lib\rtl.lib + >> b32.bc echo %hdir%\lib\vm.lib + >> b32.bc rem echo %hdir%\lib\gtwin.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\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\codepage.lib + >> b32.bc echo %hdir%\lib\pp.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 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\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\psapi.lib + >> b32.bc echo %bcdir%\lib\psdk\gdiplus.lib + >> b32.bc echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc echo %bcdir%\lib\psdk\shell32.lib, >> b32.bc rem echo %hdir%\lib\hbhpdf.lib + >> b32.bc rem echo %hdir%\lib\libharu.lib + >> b32.bc IF EXIST vida.res echo vida.res >> b32.bc rem uncomment this line to use the debugger and comment the following one rem if %GT% == gtwin %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc rem IF ERRORLEVEL 1 GOTO LINKERROR rem if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc rem IF ERRORLEVEL 1 GOTO LINKERROR ECHO * Application successfully built * rem nuevo by Antoionio Linares - 16/05/2013 rem mshta vbscript:CreateObject("SAPI.SpVoice").Speak("Application successfully built")(Window.close) rem mshta vbscript:CreateObject("SAPI.SpVoice").Speak("Programa construido com sucesso")(Window.close) move vida.exe exe\.

Bom dia Srs. Depois que troquei minha versão do Fivewin acontece algo estranho: Sempre que executo a aplicação é aberta uma janela do prompt do dos que só fecha quando saio do sistema, e se tento fecha-la antes o sistema também fecha. É alguma configuração? tem como eliminar esta janela Obrigado Angelo Cendon Fivewin 17.7 xharbour BCC7