cendon
-
Posts
587 -
Joined
-
Last visited
-
Days Won
4
Posts posted by cendon
-
-
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:\bcc73echo 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.bcecho principal.exe >> b32.bc
echo principal.map >> b32.bcecho %fwdir%\lib\Fivehx.lib %fwdir%\lib\FiveHC.lib %fwdir%\lib\libmysql.lib + >> b32.bc
echo %fwdir%\lib\pgsql.lib %fwdir%\lib\libpq.lib + >> b32.bcecho %fwdir%\lib\libmysql.lib + >> b32.bc
echo %hdir%\lib\rtl.lib + >> b32.bc
echo %hdir%\lib\vm.lib + >> b32.bcecho %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.bcecho %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.bcrem echo %hdir%\lib\hbhpdf.lib + >> b32.bc
rem echo %hdir%\lib\libharu.lib + >> b32.bcIF 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) -
-
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")
endifclose 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 NILFunction 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 NILmapeando 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 sharedmsgalert("funcionou")
close data
returnAlguem 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 := "xxxxxcUrl := "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 := 20000IF oPagina:Open( cUrl+cPost )cBuf := oPagina:ReadAll()Alert(cBuf,"Mensagem de retorno")ELSE
Alert("Verifique acesso a internet!")ENDIFRETURN 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
-
-
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 Compilacaoset lib=
set obj=
set bin=set fwdir=c:\fwh17-7
set hdir=c:\xharbour_bcc7
set bcdir=c:\bcc7echo 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/2004set lib=
rem set include=
set obj=
set bin=set fwdir=c:\fwh17-7
set hdir=c:\xharbour_bcc7
set bcdir=c:\bcc7echo 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.bcecho vida.obj >> b32.bc
echo vida.exe >> b32.bc
echo vida.map >> b32.bcecho %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.bcrem echo %hdir%\lib\gtwin.lib + >> b32.bc
echo %hdir%\lib\gtgui.lib + >> b32.bcecho %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.bcecho %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.bcrem echo %hdir%\lib\hbhpdf.lib + >> b32.bc
rem echo %hdir%\lib\libharu.lib + >> b32.bcIF 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
imagem em Excel
in Programação
Posted
Obrigado meu amigo, funcionou 100%