kleber

Uma função que retorna o caractere sem acento. FUNC TRADUZ2( C_VAR1 ) LOCAL N_TAM1,C_AUX1,N_SETEM,CARACT1,CARACT2 CARACT1 := "ŽÂ„ …†ƒ€‡Â‚ˆ‰Š¡‹ŒÂ“¢™â€â€¢Â£Å¡Â–¦§·µÇ€åä¡Öµ ÆÇ飃¶µ ƒ¶´ï" CARACT2 := "AAAAAAACCEEEEEIIIIOOOOOUUUU¦§AAACOoiIAaaAUuaAAaaA I" C_VAR1 := ALLTRIM(C_VAR1) N_TAM1 := LEN(C_VAR1) C_AUX1 := '' FOR n_CONTAR = 1 TO N_TAM1 N_SETEM := AT( SUBSTR(C_VAR1,n_CONTAR,1),CARACT1 ) IF N_SETEM <> 0 C_AUX1 := C_AUX1 + SUBSTR(CARACT2,N_SETEM,1) ELSE C_AUX1 := C_AUX1 + SUBSTR(C_VAR1,n_CONTAR,1) END END RETU C_AUX1

Alguem do forum pode me ajudar, pois ja peguei tanto exemplo do forum para gerar pdf so gastei tempo e nada, era erro pra aqui erro pra la mexe aqui mexe ali, os homens colocam as coisas pela metade no forum. Por favor, tem alguem que pode manda um exemplo prg como gerar um PDF automatico? aguardo resposta. kbmcuca@ibest.com.br

Alguem do forum pode me ajudar, pois ja peguei tanto exemplo do forum para gerar pdf so gastei tempo e nada, era erro pra aqui erro pra la mexe aqui mexe ali, os homens colocam as coisas pela metade no forum. Por favor, tem alguem que pode manda um exemplo prg como gerar um PDF automatico? aguardo resposta. kbmcuca@ibest.com.br

Oh boy, posso te ajudar. kbmcuca@ibest.com.br

Tem como em um procedimento abaixo, gravar relatorio como doc ? PRINTER oReporte NAME "saida" FROM USER PREVIEW oReporte:SetPortrait() // Retrato (padrao) oREPORTE:StartPage() oReporte:SAY(nLINHA1,100,"Texto texto",oFONTPRN ) oREPORTE:EndPage() oREPORTE:Preview() fim kbmcuca@ibest.com.br

Tem como em um procedimento abaixo, gravar relatorio como doc ? PRINTER oReporte NAME "saida" FROM USER PREVIEW oReporte:SetPortrait() // Retrato (padrao) oREPORTE:StartPage() oReporte:SAY(nLINHA1,100,"Texto texto",oFONTPRN ) oREPORTE:EndPage() oREPORTE:Preview() fim kbmcuca@ibest.com.br

Tenho a versao 2.13 para qualquer maquina. Free. By Kleber Se desejar, te envio. kbmcuca@ibest.com.br

Fiz um sistema com FW+CLIPPER BLINKER 7, Vendi a um cliente, o tempo passou, o cliente comprou uma maquina nova que roda em 64bits o windows. Me parece que tambem o processar é 64bits. O sistema que fiz, nao roda mais. Alguem pode me ajudar? o que deve fazer? comprar algo? aguardo resposta. By Kleber

Fiz um sistema com FW+CLIPPER BLINKER 7, Vendi a um cliente, o tempo passou, o cliente comprou uma maquina nova que roda em 64bits o windows. Me parece que tambem o processar é 64bits. O sistema que fiz, nao roda mais. Alguem pode me ajudar? o que deve fazer? comprar algo? aguardo resposta. By Kleber

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.

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.