Daryabite

Não entendi a pergunta. Você pode explicar melhor?

Ola, pessoal ?
onde posso adquir alguma didática de como criar classes para o FW ?
Tenho visto em alguns tutoriais um tipo de rotina no final do arquivo prg algo como HBCLASS, Type Pascal, Boolean
... onde encontro estas explicações?
Grato.
Nelson Nunes de Araujo
Santo André - SP
nelson.n.araujo@hotmail.com
nelson.n.araujo@gmail.com
Clipper 5.3E, Blinker 7.0, FW 2.4, Workshop

Fácil pra karamba, trem xato:
https://www.todoespacoonline.com/w/2015/06/como-remover-o-icone-baixe-o-windows-10-da-bandeja-do-sistema/
Abs

Galera deste forum...
Acredito que foi um sucesso o encontro de ontem.. com 50 pessoas presentes, e com muita descontração e confraternização, alem das novas amizades.. e esse é objetivo do encontro...
queremos agradecer em especial os palestrantes:
Jackson - Sped Fiscal - (fez um esforço enorme de vir de Roraima )
Marcelo Lombardo - Apresentou seus produtos e nos deu uma Aula de novas tentencias na informática.
Jose Carlos - Mostrou a FiveWeb do Lailton.. que é uma otima solução para aplicações em Web.. só faltou mesmo a presença do Lailton.. que na minha opniao, perdeu uma otima oportunidade de Negocios.. mas acredito que ainda a oportunidade existe.. basta ele querer..
Daruma - alem de nosso patrocinador.. mostrou otimas soluçoes.. show() de bola...
Gilmer - Mostrou uma otima solução ne conexão remota, novidade de uma nova ferramenta, e comentou o futuro do fivewin.. até mesmo a possibilidade do proximo encontro.. ter a presença do Linares..
Queremos agradeçer tambem a colaboração extra que viabilizou o encontro deste ano:
Evandro
Jose Carlos
Leonardo Machado
Herberson
Vailton
Vitor
Como nem tudo são flores... tivemos 2 grandes motivos de muita chateação, que nos leva a refletir.. que nao é facil organizar um evento.. e se fizemos esse ano, foi porque houve muitos pedidos nesse forum para nao deixar passar em branco.. pois nem eu nem o j.carlos tinhamos condiçoes de organiza-lo..
são eles:
1) tivemos + de 70 inscriçoes e pelo menos 27 pessoas nao compareceram ao evento...até nao comparecer, faz parte, pois imprevistos acontecem.. até ai tudo bem.. o problema é que poderia ter nos avisados pelo menos com 1 dia de antecedencia.. (no mínimo).. assim nao deixariamos pagos o cooffe break ... que para terem uma ideia.. essas 27 pessoas que faltaram nos custou:
Cada Cooffe R$ 14,50 x 27 pessoas.. de manha e a tarde, igual a R$ 783,00
Pagamos esse valor a mais para o hotel, que poderia ser economizado.
2) Tivemos a falta de um dos organizadores que por sua vez alem da falta da pessoa, tivemos a falta do valor das inscriçoes.. que foi arrecadado desde o inicio da organizacao.. infelismente nao tivemos mais contato com ele, e nao sabemos o que ocorreu.. esperamos ainda que ele se apresente.. e que dê as devidas explicações, alem da verba..
que por sua vez.. para que o evento ocorresse, foi necessario fazer uma vaquinha extra entre as pessoas que eu citei acima..
estes 2 motivos nos deixou muito chateado, e nos leva a refletir se vale a pena organizar um evento.. mas no final ver o sucesso do evento, nos recompensou..
Enfim.. quero agradecer a presença de todos, inclusive daqueles que vieram até mim e em solidariedade ao ocorrido se ofereceram a ajudar, pagando novamente a inscrição..
Muito Obrigado e esperamos que os proximos eventos sejam observados os problemas e que nos ajude a realizar cada vez melhor os eventos..
Comissão Organizadora.

seguinte. a rotina do joao.. quase ficou perfeita.. para enviar email com o logo embaixo..
:HTMLBody = "<p>"+ALLTRIM( cMsg )+"</p>" + "<p><img src='cid:id_imagen10'></p>" loBP:=:AddRelatedBodyPart(vAnexoCorpoEmail, "id_imagen10", 1) WITH OBJECT loBP:Fields :Item("urn:schemas:mailheader:Content-ID") = "id_imagen10" :Update() END WITH só que o texto que está dentro do cMsg, e que está com linhas puladas.. no email fica tudo junto isto é.. nao pula linhas.. mesmo usando no texto o Chr(13)+ Chr(10) alguem saberia?? -------------------------------------------------------------- ele fica assim: Segue a proposta ta, atenciosamente, vitor ------------------------------------------------------------------------- preciso que fique assim: segue a proposta tal, atenciosamente, vitor

Pessoal
Boa noite
Mais uma vez, peço a autorização e a atenção da galera para o evento acima, quem tiver interessado, inscreva-se.
Link: http://joseelielson.wix.com/eventowindevrecife
[]s,

Galera,
Estou com problema de desconto no final da venda com impressoras epson. Tentei vairias rotinas mas não funciona, alguem tem um exemplo de declaração da rotina e uma emissão do cupom?
Obrigado
Leandro JBI

Pessoal
Boa tarde
Peço licença pra divulgar um evento de programadores que acontecerá em CWB (Link: www.devcongescla.com.br/2015/inscricoes.jsf). Neste evento serrão abordados técnicas de programação, exemplos, bancos de dados, desenvolvimento web e mobile e etc.... Embora o público alvo esteja voltado para programadores produtos WINDEV, porém menções a CLARION, PHP, JAVA e outrosa.
Os desenvolvedores/utilizadores de demais ferramentas tem espaço para expor e divulgar suas ferramentas e casos de sucessos, sendo melhor ainda, se esta puder mesclas, abranger, contemplar as demais ferramentas abordadas e /ou para pos estudiosos, puderem ser incrementadas ao FW..
Os que tiverem interessados em participar, seja apenas como expectador ou palestrantes, favor contatar organizadores através do link.
Obrigado
[],

Colegas sera que alguém teria uma solução para o seguinte problema
na instrução abaixo se o valor de custo for zero da erro
SQLBeginTrans() cSql:="UPDATE produto SET" cSql+=" valor="+Any2Sql(cVlrAtu)+" ," cSql+=" marg1 =("+Any2Sql(cVlrAtu)+"-custo)*100/custo" cSql+=" WHERE codigo ='"+cCodigo+"'" sqlexecute(cSql) if SQLErrorNO() > 0 fMensagem() return(.f.) endif SQLExecute("commit") SQLRollBack() SQLEndTrans() SQLRefresh() tentei usar a condição IF mais acho que no UPDATE não é aceito
SQLBeginTrans() cSql:="UPDATE produto SET" cSql+=" valor="+Any2Sql(cVlrAtu)+" ," cSql+=" IF(custo>0, (marg1 =("+Any2Sql(cVlrAtu)+"-custo)*100/custo), marg1=0)" cSql+=" WHERE codigo ='"+cCodigo+"'" sqlexecute(cSql) if SQLErrorNO() > 0 fMensagem() return(.f.) endif SQLExecute("commit") SQLRollBack() SQLEndTrans() SQLRefresh() Obrigado

Olá bom dia.
Tenho uma pequena aplicação feita em fiveppc, não tenho nenhuma experiência em fivewin, teria usar o mesmo fonte, fazer os ajuste necessários, desde que não seja muitos, e colocar ele para rodar em windows?
Será que é viável?
Existe alguma versão free da fivewin?
Leco
FivePPc
Five PPC
Harbour 1.0.1 - 1999-2008

Olá pessoal, alguém sabe com criar uma rotina que após um certo tempo sem uso do sistema, ele fecha automaticamente.
pensei em usar Thread():new(), mas deu seguinte erro: Error: Unresolved external '_HB_FUN_THREAD'.
Alguém sabe qual a lib tem a classe.
Jmsilva
xharbour/Fivewin 11/10

Ola pessoal.
Pesquisando, achei a função abaixo que segundo o informado, não deixaria o sistema ser ativado remotamente.
#define SM_REMOTESESSION 4096 If !( GetSysMetrics( SM_REMOTESESSION ) == 0 ) quit Endif Fiz os teste remoto, mas o sistema conseguiu carregar, ou seja, não bloqueou o acesso. Alguem sabe como fazer isso. Obrigado

http://www.sumatrapdfreader.org/free-pdf-reader-pt.html

http://www.sumatrapdfreader.org/manual-pt.html

http://forums.fofou.org/sumatrapdf/

Via código:


WinExec( cDirExe+"sumatra\sumatrapdf.exe -reuse-instance -lang pt "+"ABC.PDF" ) //-restrict -fullscreen

Amigos
tenho instalado
harbour e xharbour,
bcc55
UPX_Tool_1.03
fwh
vc98 ( so faz descompactar numa pasta e nao instala.)
Entro na pasta samples ou tests
do h ou Xh tento compilar build test etc
só dá erro.
Por favor
no clipper fw eu fazia
clipper arquivo /n etc
blinker fi arquivo etc @fivelink.lnk
compilava e cria o executavel beleza.
Mas to apanhando como devo fazer para
criar executavel no h ou xh
o que preciso gravar na minha maquina para que isto
deh certo.
Alguem pode me ajudar?
kbmcuca@ibest.com.br
Aguardo resposta dos amigos do FW.

Editor de vídeos com assistente de captação de tela, ideal para criação de vídeos tutoriais e explicativos.
http://www.superdownloads.com.br/download/130/camtasia-studio/
abs.