Eroni

oGet:lReadOnly := .T. // Isso faz o get somente leitura. Até + (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Na realidade o que estou precisando é o seguinte: Meu cliente gera um arquivo pdf a partir de uma ferramenta cad 3d e precisa enviar este arquivo pdf a um fornecedor para que o mesmo seja fabricado. O que ele precisa é que o meu sistema insira um código interno neste arquivo pdf para que o mesmo seja rastreado posteriormente. Abraços (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Jef, caso tenha problemas para gerar a lib da tpdf, pegue todos os fontes prg que tem na pasta, e adicione-as ao seu projeto, compile e linke com sua aplicação que funciona igual. Abraço. Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Jef, para criar é facil, uso a classe tpdf que tem na contrib do xHarbour, você pode criar o arquivo e colocar o que quiser nele, texto imagem, etc, inclusive seus relatórios. Os arquivos estão na pasta contrib\pdflib Abraço (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf Editado por - eroni on 21/10/2008 17:14:30

Vejo que este tópico é realmente um desafio, visto que ninguem ousou opinar. Quando tiver alguma novidade, postarei aqui. Abraços. (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Boa tarde, alguem já usou ou usa isto? Como criar o pdf ok, mas abrir e incluir informações adicionais alguém manja? Grato (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Boa tarde, alguem já usou ou usa isto? Como criar o pdf ok, mas abrir e incluir informações adicionais alguém manja? Grato (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Boa tarde, baixei daqui do site o referido, por acaso alguem usa? Postei o código abaixo, praticamente o original so mudando umas linhas e vejam o que acontece: * TstShowMenu.prg * Montagem e controle de menus. #include "FiveWin.ch" #define KEYEVENTF_KEYUP 2 function Main() memvar oWnd private oWnd define window oWnd title "Teste de ShowMenu()" mdi from 0,0 to 15,80 menu MenuGer() activate window oWnd return NIL *** * Fim de Main() = Teste. static function SuaAcao() LOCAL oDlg define window oDlg title "Teste de ShowMenu()" from 5,5 to 15,40 activate window oDlg ShowMenu() return NIL *** * Fim de SuaAcao = Teste. //----------------------------------------------------------------------------- // Recupera mensagens dos itens do menu do resource/stringable. static function MenuGer() local oMnu MENU oMnu MENUITEM "SubMenu 1" MENU MENUITEM "Item 1.1" ACTION SuaAcao() MENUITEM "Item 1.2" ACTION SuaAcao() SEPARATOR MENUITEM "Item 1.3" ACTION SuaAcao() MENUITEM "SubMenu 1.1" MENU MENUITEM "Item 1.1.1" ACTION SuaAcao() MENUITEM "Item 1.1.2" ACTION SuaAcao() MENUITEM "Item 1.1.3" ACTION SuaAcao() MENUITEM "Item 1.1.4" ACTION SuaAcao() ENDMENU SEPARATOR MENUITEM "Item 1.4" ACTION SuaAcao() ENDMENU SEPARATOR MENUITEM "Item 1" ACTION SuaAcao() MENUITEM "SubMenu 2" MENU MENUITEM "Item 2.1" ACTION SuaAcao() SEPARATOR MENUITEM "Item 2.2" ACTION SuaAcao() MENUITEM "SubMenu 2.1" MENU MENUITEM "Item 2.1.1" ACTION SuaAcao() MENUITEM "Item 2.1.2" ACTION SuaAcao() MENUITEM "SubMenu 2.1.1" MENU MENUITEM "Item 2.1.1.1" ACTION SuaAcao() MENUITEM "Item 2.1.1.2" ACTION SuaAcao() SEPARATOR MENUITEM "Item 2.1.1.3" ACTION SuaAcao() MENUITEM "Item 2.1.1.4" ACTION SuaAcao() ENDMENU MENUITEM "Item 2.1.3" ACTION SuaAcao() MENUITEM "Item 2.1.4" ACTION SuaAcao() ENDMENU MENUITEM "Item 2.3" ACTION SuaAcao() SEPARATOR MENUITEM "SubMenu 2.2" MENU MENUITEM "Item 2.2.1" ACTION SuaAcao() MENUITEM "Item 2.2.2" ACTION SuaAcao() MENUITEM "Item 2.2.3" ACTION SuaAcao() MENUITEM "Item 2.2.4" ACTION SuaAcao() ENDMENU MENUITEM "Item 2.4" ACTION SuaAcao() ENDMENU ENDMENU return oMnu *** * Fim de MenuGer( oM ) = Teste. //----------------------------------------------------------------------------- // Reabre o menu que chamou uma rotina. // 1§ Descobre o caminho para se chegar ate oM:LastItem() // 2§ Abre o menu simulando a tecla Alt e, em seguida, a // sequencia de setas para chegar ate oM:LastItem() function ShowMenu( oM, nNiv ) local nItem, oLItM, cMov :="", cMv, nChr default oM :=WndMain():oMenu default nNiv :=0 oLItM :=oM:LastItem() for nItem :=1 to Len( oM:aItems ) if ValType( oM:aItems[nItem]:bAction ) ='O' cMv :=ShowMenu( oM:aItems[nItem]:bAction, nNiv+1 ) if Right( cMv,1 ) =="x" cMov += Chr( if( nNiv =0, VK_DOWN, VK_RIGHT ) )+cMv if nNiv ==0 cMov :=Left( cMov,Len(cMov)-1 ) * MsgInfo( StrTran( StrTran( cMov,Chr(VK_DOWN),"V" ), Chr(VK_RIGHT), ">" ) ) keybd_event( VK_MENU,0,0,0) keybd_event( VK_MENU,0,KEYEVENTF_KEYUP,0) for nChr :=1 to Len( cMov ) keybd_event( Asc(SubStr(cMov,nChr,1)),0,0,0 ) keybd_event( Asc(SubStr(cMov,nChr,1)),0,KEYEVENTF_KEYUP,0 ) next return .T. endif return cMov endif else if oM:aItems[nItem]:nId == oLItM:nId return cMov+"x" endif endif if !Empt( oM:aItems[nItem]:cPrompt ) // se não for um separador cMov +=Chr( if( nNiv =0, VK_RIGHT, VK_DOWN ) ) endif next return if(nNiv ==0, .F., "") *** ************************************************************ DLL32 FUNCTION keybd_event(bVk as _INT,bScan as _INT,dwFlags ; as LONG,dwExtraInfo as LONG) AS LONG PASCAL LIB "user32.dll" ************************************************************ //----------------------------------------------------------------------------- ***** Fim de TstShowMenu.prg (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Boa tarde, baixei daqui do site o referido, por acaso alguem usa? Postei o código abaixo, praticamente o original so mudando umas linhas e vejam o que acontece: * TstShowMenu.prg * Montagem e controle de menus. #include "FiveWin.ch" #define KEYEVENTF_KEYUP 2 function Main() memvar oWnd private oWnd define window oWnd title "Teste de ShowMenu()" mdi from 0,0 to 15,80 menu MenuGer() activate window oWnd return NIL *** * Fim de Main() = Teste. static function SuaAcao() LOCAL oDlg define window oDlg title "Teste de ShowMenu()" from 5,5 to 15,40 activate window oDlg ShowMenu() return NIL *** * Fim de SuaAcao = Teste. //----------------------------------------------------------------------------- // Recupera mensagens dos itens do menu do resource/stringable. static function MenuGer() local oMnu MENU oMnu MENUITEM "SubMenu 1" MENU MENUITEM "Item 1.1" ACTION SuaAcao() MENUITEM "Item 1.2" ACTION SuaAcao() SEPARATOR MENUITEM "Item 1.3" ACTION SuaAcao() MENUITEM "SubMenu 1.1" MENU MENUITEM "Item 1.1.1" ACTION SuaAcao() MENUITEM "Item 1.1.2" ACTION SuaAcao() MENUITEM "Item 1.1.3" ACTION SuaAcao() MENUITEM "Item 1.1.4" ACTION SuaAcao() ENDMENU SEPARATOR MENUITEM "Item 1.4" ACTION SuaAcao() ENDMENU SEPARATOR MENUITEM "Item 1" ACTION SuaAcao() MENUITEM "SubMenu 2" MENU MENUITEM "Item 2.1" ACTION SuaAcao() SEPARATOR MENUITEM "Item 2.2" ACTION SuaAcao() MENUITEM "SubMenu 2.1" MENU MENUITEM "Item 2.1.1" ACTION SuaAcao() MENUITEM "Item 2.1.2" ACTION SuaAcao() MENUITEM "SubMenu 2.1.1" MENU MENUITEM "Item 2.1.1.1" ACTION SuaAcao() MENUITEM "Item 2.1.1.2" ACTION SuaAcao() SEPARATOR MENUITEM "Item 2.1.1.3" ACTION SuaAcao() MENUITEM "Item 2.1.1.4" ACTION SuaAcao() ENDMENU MENUITEM "Item 2.1.3" ACTION SuaAcao() MENUITEM "Item 2.1.4" ACTION SuaAcao() ENDMENU MENUITEM "Item 2.3" ACTION SuaAcao() SEPARATOR MENUITEM "SubMenu 2.2" MENU MENUITEM "Item 2.2.1" ACTION SuaAcao() MENUITEM "Item 2.2.2" ACTION SuaAcao() MENUITEM "Item 2.2.3" ACTION SuaAcao() MENUITEM "Item 2.2.4" ACTION SuaAcao() ENDMENU MENUITEM "Item 2.4" ACTION SuaAcao() ENDMENU ENDMENU return oMnu *** * Fim de MenuGer( oM ) = Teste. //----------------------------------------------------------------------------- // Reabre o menu que chamou uma rotina. // 1§ Descobre o caminho para se chegar ate oM:LastItem() // 2§ Abre o menu simulando a tecla Alt e, em seguida, a // sequencia de setas para chegar ate oM:LastItem() function ShowMenu( oM, nNiv ) local nItem, oLItM, cMov :="", cMv, nChr default oM :=WndMain():oMenu default nNiv :=0 oLItM :=oM:LastItem() for nItem :=1 to Len( oM:aItems ) if ValType( oM:aItems[nItem]:bAction ) ='O' cMv :=ShowMenu( oM:aItems[nItem]:bAction, nNiv+1 ) if Right( cMv,1 ) =="x" cMov += Chr( if( nNiv =0, VK_DOWN, VK_RIGHT ) )+cMv if nNiv ==0 cMov :=Left( cMov,Len(cMov)-1 ) * MsgInfo( StrTran( StrTran( cMov,Chr(VK_DOWN),"V" ), Chr(VK_RIGHT), ">" ) ) keybd_event( VK_MENU,0,0,0) keybd_event( VK_MENU,0,KEYEVENTF_KEYUP,0) for nChr :=1 to Len( cMov ) keybd_event( Asc(SubStr(cMov,nChr,1)),0,0,0 ) keybd_event( Asc(SubStr(cMov,nChr,1)),0,KEYEVENTF_KEYUP,0 ) next return .T. endif return cMov endif else if oM:aItems[nItem]:nId == oLItM:nId return cMov+"x" endif endif if !Empt( oM:aItems[nItem]:cPrompt ) // se não for um separador cMov +=Chr( if( nNiv =0, VK_RIGHT, VK_DOWN ) ) endif next return if(nNiv ==0, .F., "") *** ************************************************************ DLL32 FUNCTION keybd_event(bVk as _INT,bScan as _INT,dwFlags ; as LONG,dwExtraInfo as LONG) AS LONG PASCAL LIB "user32.dll" ************************************************************ //----------------------------------------------------------------------------- ***** Fim de TstShowMenu.prg (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Amigo,eu uso fcreate normal e não tem nenhum problema de nomes com mais de 8 letras, está parecendo ali que seria problema de privilégios, tente criar a mesma pasta no C para ter certeza. (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Pois é, vai ver foi de vc que peguei, rs. Valeu. (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Marcelo, sei que já foi resolvido, assim que tive tempo procurei a funcao que é usada em todo sistema para dar foco em qualquer objeto, estou postando para se alguem mais quiser: // DAR O FOCO EM QUALQUER OBJETO FUNCTION XSetFocus( oObj ) LOCAL oTime := "" IF pCount() > 0 DEFINE Timer oTime INTERVAL 10 OF oObj:oWnd ACTION (oObj:SetFocus(),oTime:Deactivate()) ACTIVATE TIMER oTime ENDIF RETURN( NIL ) (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Marcelo, venho me solidarizar aqui a você, realmente o foco no fivewin é uma coisa complicada. Tem coisa que não funciona mesmo, os teus exemplos já passei pela mesma coisa e testei da mesma maneira que você. Fazer o que mais... Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Gabrieis, para que possamos ajudar, você precisa ser mais objetivo no seu problema, veja que ninguem respondeu, eu já migrei várias bases de dados de Dbf para MySql, porém confesso que não entendi o que você deseja. Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Marcelo, existe uma pequena confusão ai. Variável local sim, só tem visibilidade na função em que foi declarada. No seu exemplo, você passou ela como parâmetro para outra função, funciona normal, porque na outra função ela foi recebida como parâmetro. Cuidado para não confundir passar como "parâmetro" e passar como "referência", são duas coisas completamente distintas: ////////// // passar como parametro: Function f() local a := 2 local b b := f1( a ) ? a --> retorna 2 return( nil ) function f1( a ) // aqui foi passado como parametro local b := x * a // o a aqui foi recebido como parametro return( b ) /////////// // Agora passado como referencia, note o arroba @ Function f() local a := 2 f1( @a ) // passamos por referencia ? a // retorna 5 return( nil ) function f1( a ) // aqui foi passado por referencia a := 5 return( nil ) No livro do Rick Spence - Clipper 5.2, página 46 explica isso mais detalhado, mas você pode também procurar referências em clipper na web. Espero ter ajudado. Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Kapi, nada a ver sua comparação, eu quis me referir a foco de mercado e não a concentração de risco em um cliente. Se alguém tem condições de ter as 1000 lojinhas, então já tem o mercado dominado naquele setor e dai pode praticar até a 50,00. E também ninguém seria louco de se concentrar apenas um grande cliente, (olha o risco) seria como ser empregado daquela empresa. Eu quis me referir a você ter um foco de mercado que lhe proporcione melhor resultado e valorização por seu esforço. Se você definir que quer ter 1000 lojinhas, tendo toda estrutura de suporte, vendedores, implantadores, etc, etc, etc, e tiver recursos para isso, parabéns, mas pelo que percebi não seria o caso do nosso colega. Abraço. Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Tenho aqui no meu HD: xHarbour source 09960 xHarbour contrib.source 09960 xHarbour contrib.source 09970 xHarbour binarios 09971 Do 1.00 tenho completo De fonte é isso que tenho, se interessar alguma coisa... Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Só mais uma dica sobre variáveis: LOCAL -> Vale somente para a função na qual está declarada. PRIVATE -> Vale para a função na qual está declarada e para todas as funções chamadas a partir dela. STATIC -> Vale para todo o prg em que está declarada, independente de quantas funções tem nele, vale em todas funções que estiverem neste prg. PUBLIC -> Vale em todo o sistema. Espero ter ajudado. Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Por este motivo (principalmente) e por alguns outros é que eu simplesmente abandonei o atendimento a "lojinhas" e de um tempo para cá tenho dedicado meu foco nas indústrias. É muito mais complicado os processos de produção, custos, etc, porém o retorno não tem nem comparação. Na verdade o que acontece é o seguinte: Quem valoriza seu trabalho como especialista é quem realmente entende de mercado, estratégias, administração de recursos humanos, etc, ou seja, este é o perfil de quem tem uma indústria, ou uma empresa de porte razoável. Já quem tem uma "lojinha" sequer sabe do processo fiscal que envolve a emissão de uma NF, por exemplo. Geralmente estes são os que ganharam algum dinheirinho (Nos Estados Unidos, por ex.) e compraram um estoque de alguma coisa e começaram a vender. Então eles jamais valorizarão o seu trabalho. Meu conselho: Se você se valoriza, não perca tempo com estes clientes. Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Seria possível executar uma aplicação java (.jar) dentro de uma janela fivewin? Tipo como se faz com html com activex por exemplo. Grato a todos. Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Seria possível executar uma aplicação java (.jar) dentro de uma janela fivewin? Tipo como se faz com html com activex por exemplo. Grato a todos. Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Jackson, dê-nos uma explanação de como funciona o cobrebem. Se funcionar beleza, acho que seria uma boa alternativa. Grato Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Compilei e funcionou beleza, enviei para seu e-mail a configuração do meu xMate e uma imagem do projeto. Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Bom dia a todos, sei que este tópico já foi abordado muitas vezes e tem material sobre o assunto no forum e em dicas. Gostaria de opinião de quem já usou alguma rotina pega daqui para imprimir o boleto, e qual delas é melhor mais fácil de adaptar, pois já peguei várias e todas tem muitos erros, se alguém tem alguma opinião, favor postar. Obrigado a todos. Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf

Bom dia a todos, sei que este tópico já foi abordado muitas vezes e tem material sobre o assunto no forum e em dicas. Gostaria de opinião de quem já usou alguma rotina pega daqui para imprimir o boleto, e qual delas é melhor mais fácil de adaptar, pois já peguei várias e todas tem muitos erros, se alguém tem alguma opinião, favor postar. Obrigado a todos. Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf