carlos

Olá, Este erro ocorre quando tento executar o PRG TESTESQL.EXE colocado em dicas por MARCIO. Estou colocando abaixo a configuração do meu DSN. Erro quando da execução: [MYSQL][ODBC 3.51Driver]Cant connection MYSQL server on "localhost" (10061) Erro quando da confirmação do DSN: FiveODBC Error message: SQLDriverConnect error from TODBbc:New() [#-1] On Procedure:Conectar line:0 ---------------------------------- Abaixo a configuração do meu DSN 3.51.06 Data Source Name :testesql Description :MYSQL ODBC 351 Driver DSN Host/Server Name(or IP):localhost Database Name :testesql User :root Password : Port(if not 3306) :3306 SQ command on connect : ------------------------------------------------ Sem mais, agradeço. Carlos Eduardo - Rio de Janeiro

Olá, Sou um usuário do FIVEWIN 2.0, e baixei um exemplo que foi postado em dicas de nome.(TESTESQL.EXE) Tenho um aplicativo desenvolvido com CLP53/BLK50/WS45/FW20 até então, agora gostaria de evolui-lo para 32 bits. Gostaria de contar com esclarecimentos e explicações de como devo proceder para transformar este meu aplicativo. Minha maquina de desenvolvimento é: WIN98 / AMD K6II com 250 MHZ / 128 MGB RAM e disco de 40 GB. 1- Posso continuar com o FIVEWIN 20 (pois atualmente não posso investir no FWH) ? R : 2- Qual a versão do compilador xHarbour devo usar e onde posso baixa-lo ? R : 3- A versão do MYSQL que tenho é o 50, como posso incluir este drive no meu ODBC, pois lá só tenho 3.51 ? R: 4- Como posso testar este exemplo de nome testsql com o MYSQL 50 ? R: Agradeço sua contribuição, Carlos Eduardo - Rio de Janeiro

Olá amigos, Estou tentando imprimir umas etiquetas, para isso antes da impressão informo os dados abaixo em variaveis para serem impressos conforme a condição. Quando vai processar para ser impresso da um( ARGUMENT ERROR =) na linha do ACTIVATE (de acordo com o preenchimento de M->mcid). Não consigo encontrar este error. Agradeço qualquer ajuda. Carlos Eduardo - Rio de Janeiro ******************************************** FUNCTION ETIQ01(oDlg) local oLabel LABEL oLabel SIZE 109, 23 SEPARATORS 5, 2 ON LINE 1 PREVIEW //FILE "LABEL.PRN" PREVIEW TO FILE "LABEL.TXT" CAPTION "Endereços dos Anexos" LBLITEM DATA SCM005->RAZAOCLI LBLITEM DATA SCM005->ENDERECO LBLITEM DATA SCM005->BAIRRO LBLITEM DATA SCM005->CEP LBLITEM DATA SCM005->CIDADE+" "+SCM005->UF LBLITEM DATA SCM005->DESCRICAO+" "+SCM005->PRODUTO END LABEL oLabel //ACTIVATE LABEL oLabel IF M->mcid <> SPACE(25) ACTIVATE LABEL oLabel WHILE !SCM005->(EOF()) FOR SCM005->CIDADE = M->mcid .AND. SCM005->PRODUTO = M->meq .AND. SCM005->DESCRICAO= M->mat .AND. SCM005->TERMINOU = M->mvg // ON STARTGROUP oLabel:Newline() ELSE ACTIVATE LABEL oLabel WHILE !SCM005->(EOF()) FOR SCM005->UF = M->muf .AND. SCM005->PRODUTO = M->meq .AND. SCM005->DESCRICAO= M->mat .AND. SCM005->TERMINOU = M->mvg //ON STARTGROUP oLabel:Newline() ENDIF oFont:End() RETURN NIL ******************************************************************

Olá, Você esta definindo um ID 103 no seu PRG que não existe em sua DLL. Valeu, Carlos Eduardo - Rio de Janeiro FW20,CLP53,BLK50

O que preciso ter para recompilar ? hoje tenho FW20/Clipper53/Belinker50. Favor relacionar o que é preciso e onde posso encontrar. Valeu !

Olá, A intenção da função abaixo e imprimir etiquetas, meu problema está sendo o seguinte: A primeira vai bem,quando vai para a segunda está avançando uma linha e com isso as outras serão prejudicadas. Gostaria de uma ajuda para resolver este problema, pois peguei este como exemplo em FW20\SAMPLES\labels\samples\label01.prg. Gostaria de fazer com que a impressão fosse feita com base no modelo de etiquetas 109/23 em formulário continuo. Atenciosamente, Carlos Eduardo - Rio de Janeiro FUNCTION ETIQ01(oDlg,oReport) LOCAL oPrinter, oFont LOCAL nWidth ,; // label Width nHeight ,; // label height nMargin ,; // Printing margin (.2 inches) nLblWid ,; // # labels width (1) nLblHei // # labels height (5) LOCAL nCounter ,; // counter of lbl on each page nRow ,; // current row nCol ,; // current col nOldRow // old row position dbSelectArea("SCM005") SCM005->( dbSetOrder("SCM00502")) SCM005->( dbGoTop() ) PRINTER oPrinter FROM USER PREVIEW NAME "Etiquetas de Anexos" DEFINE FONT oFont FROM USER OF oPrinter *DEFINE FONT oFont NAME "Arial" SIZE 0,-10 nLblWid := 1 nLblHei := 10 nWidth := oPrinter:nHorzRes()/nLblWid nHeight := oPrinter:nVertRes()/nLblHei nMargin := Int(oPrinter:nLogPixelX()*0.2) nCounter := 0 CursorWait() *IF M->mvg = " " * M->mvg = SPACE(03) *ENDIF *IF M->mcid <> " " * SET FILTER TO SCM005->CIDADE = M->mcid .AND. ; * SCM005->PRODUTO = M->meq .AND. SCM005->ATENDIMENT = M->mat .AND. SCM005->TERMINOU = M->mvg *ELSE * SET FILTER TO SCM005->UF = M->muf .AND. ; * SCM005->PRODUTO = M->meq .AND. SCM005->ATENDIMENT = M->mat .AND. SCM005->TERMINOU = M->mvg *ENDIF DO WHILE !SCM005->(Eof()) IF nCounter == 0 nRow := nMargin nCol := nMargin oPrinter:StartPage() ENDIF nOldRow := nRow oPrinter:Say( nRow + 0, nCol + 0,SCM005->RAZAOCLI,oFont ) nRow += oFont:nHeight oPrinter:Say( nRow + 0, nCol + 0,SCM005->ENDERECO,oFont ) nRow += oFont:nHeight oPrinter:Say( nRow + 0, nCol + 0,SCM005->BAIRRO,oFont ) nRow += oFont:nHeight oPrinter:Say( nRow + 0, nCol + 0,SCM005->CEP,oFont ) nRow += oFont:nHeight oPrinter:Say( nRow + 0, nCol + 0,SCM005->CIDADE,oFont ) nRow += oFont:nHeight oPrinter:Say( nRow + 0, nCol + 0,SCM005->UF,oFont ) nRow := nOldRow + nHeight SCM005->(DbSkip()) IF nCounter > 0 .AND. nCounter%nLblHei == 0 nRow := nMargin nCol += nWidth ENDIF IF nCounter == (nLblHei*nLblWid) .AND. !SCM005->(Eof()) nCounter := 0 oPrinter:EndPage() ELSE nCounter++ ENDIF ENDDO CursorArrow() oPrinter:EndPage() oPrinter:Preview() SET FILTER TO RELEASE FONT oFont //CLOSE SCM001 RETURN (NIL)

Desculpas!!! Na realidade estou tentando executar um prog. de nome test.exe que baixei. Este tem instruções utilisando o ADS e preciso de ajuda para testa-lo. O erro esta descrito abaixo. Application =========== Path and name: C:\HARBOUR_4.0\TEST.EXE (32 bits) Size: 1,586,688 bytes Time from start: 0 hours 0 mins 0 secs Error occurred at: 04/26/05, 00:03:07 Error description: Error ADSCDX/6080 Open error: E01999.DBF Stack Calls =========== Called from DBUSEAREA(0) Called from MAIN(33) System ====== CPU type: Pentium MMX 150 Mhz Hardware memory: 120 megs Gostaria de receber instruções de como resolver este problema e fazer este programa rodar. Ps. Agradeço o exemplo da mala direta. Carlos Eduardo - Rio de Janeiro

Olá, Estou com dificuldade para testar um programa que usa o ADS. Acredito que o erro deva ser por eu não ter o ADS ou arquivos a ele pertinente. Caso alguém possa me mandar os arquivos,me mostrar como configura-los para que eu possa testar este progrma. Aproveito também para perguntar se alguém teria um programa modelo de mala direta onde se pode escolher o modelo da etiqueta. Atenciosamente, Carlos Eduardo - RIO DE JANEIRO

Olá, Gostaria de saber se usando o ADS LOCAL em uma rede Windows 98 com 10 máquinas haverá uma redução da corrupção dos indices (cdx). Valeu! Carlos Eduardo - Rio de Janeiro FW 20/CLP 53/ BLK 50/WS 45

Olá, A informação abaixo extrai neste site em PRODUTOS. Precisa ter o poder de uma ferramenta Cliente/Servidor sem ter que ter que fazer gastos com equipamentos e software? Adicione à sua aplicação o RDD Advantage Server Database , e vc terá uma combinação vencedora em velocidade e segurança para seus dados por muito menos do que custa um sistema cliente/servidor e de passo vc se livra do prejuízo. (e do custo) de migrar sua informação do formato dbf para um formato que maneje tua ferramenta cliente servidor. Gostaria de esclarecimentos de como devo proceder para rodar minha aplicação com os beneficios acima. Aplicação desenvolvida com FW20/CLIPPER53/BLINKER50/WS4.5 REDE LOCAL - NT2000 + 05 MAQUINAS WINDOWS 98. Atenciosamente, Carlos Eduardo - Rio de Janeiro

Olá, Durante o 1º Encontro de usuários de Fivewin, recebi um CD on consta o ADS dentre outros. Gostaria de pedir aos amigos que já estão com o mesmo(ADS)implantado, uma ajuda para que eu possa usa-lo. Caso alguém possa me enviar as instruções de como implanta-lo ficarei muito agradecido. Estou com uma maquina NT 2000 + 03 estações WINDOWS 98. Um aplicativo desenvolvido com FIVEWIN 2.0/Clipper 5.3(rdd CDX)/BLINKER 5.0/WS 4.5. Gostaria de testar em primeiro lugar o ADS na versão LOCAL e posteriormente na versão SERVER remoto. Nas duas continuar usando os DBF´s e rdd CDX. Informações de como proceder em cada passo será primordial, pois isto será de muita valía. Atenciosamente, Carlos Eduardo - Rio de Janeiro e-mail: sutan@ig.com.br

Também este problema acontece comigo, aproveitando para dizer que meus dados no cadastro deste site continuam os mesmos. Atenciosamente, Carlos Eduardo - Rio de Janeiro sutan@ig.com.br

Olá, Gostaria que alguém que usasse o ADS LOCAL me explicasse como funcionaria em uma rede de 10 maquinas com Windows98. Atenciosamente, Ps.: Já visitei a site da RENET, más gostaria da opinião dos amigos que usam com o Fivewin. No momento não preciso da cultara Cliente/Servidor. sutan@ig.com.br Carlos Eduardo - Rio de Janeiro

Olá, Você pode cascatear a rede(caso fique no mesmo ambiente), já existe um swith que aceita bem um cascateamento(Não me lembro o fabricante. Com os comuns não recomendo. Carlos Eduardo - Rio de Janeiro

Olá, Alguém poderia me indicar um editor para arquivos.wmf. Ps.:Não vale o Corel... Carlos Eduardo - Rio de Janeiro

Olá, Agradeço as observações ! Carlos Eduardo - Rio de Janeiro

Olá, Como posso incorporar uma instrução do Dbase IV no FW 2O+BELINK5O+WS Ps.: Esta instrução não é reconhecida por nenhuma versão do Clipper. Atenciosamente, Carlos Eduardo - Rio de Janeiro

Ol[a Gilmer, Näo entendir sua informacao, as variaveis sáo locais. e estao definidas no topo do prg principal. Note que estou recebendo estas como parametro. Aguardo mais ajuda. Carlos Eduardo - Rio de Janeiro

Ola, Preciso de uma ajudinha para resolver um probleminha ! *************************** Definido no inicio do programa principal LOCAL mniv := {" ","IRR","REP","NFF"} LOCAL mdef := {" ","Y","N"} LOCAL mrep := {" ","INW","EXW"} PUBLIC PICOLLI,NIVEL1,COND1,COND2,DTFABRICA,DEFE1,REPE1 PUBLIC OBCOND1,OBNIVEL1,OBCOND2,OBDTFABRICA,OBDEFE1,OBREPE1,OBPICOLLI *************************** Fim das definicoes Quando chamo a funcao abaixo, os conteudos dos array,s acima nao aparecen quando cliko nas combos. Oque estou fazendo de errado ? Pois no principal tenho outra instrucao envolvendo outra COMBOBOX e esta funcionando corretamente. Agradeco a ajuda, Carlos Eduardo - Rio de Janeiro (WS45-FW20-CLP53-BLK51) ********************************************************************* FUNCTION TESTA44(oWnd,oFld,mdef,mrep,mniv) REDEFINE COMBOBOX M->OBNIVEL1 VAR M->NIVEL1 ITEMS mniv ID 231 OF oFld:aDialogs[3] ; UPDATE COLORS nRGB(0,0,0),nRGB(255,255,206) PICTURE "@!" REDEFINE COMBOBOX M->OBDEFE1 VAR M->DEFE1 ITEMS mdef ID 232 OF oFld:aDialogs[3] ; UPDATE COLORS nRGB(0,0,0),nRGB(255,255,206) PICTURE "@!" REDEFINE COMBOBOX M->OBREPE1 VAR M->REPE1 ITEMS mrep ID 233 OF oFld:aDialogs[3] ; UPDATE COLORS nRGB(0,0,0),nRGB(255,255,206) PICTURE "@!" RETURN NIL

Olá Elias, Desculpe-me a invasão ! Recebi seu e-mail sobre Petropolis mas não pude responder, pois o meu inimIGo está com problema. Você esqueceu de mencionar o horário e o endereço. Ligue para mim quando chegar 21-97222-5779 ou 2240-6941. Ps: Como faço para compilar este comando do Dbase com o clipper Fivewin e o Blinker 51.: BEGIN TRANSACTION // este comando ROLLBACK // este comando ENDTRANSACTION //este comando Carlos Eduardo - Rio de Janeiro

Olá Elias, como está ? Aproveito para pedi-lo que mande para meu e-mail sutan@ig.com.br todas as informações sobre o encontro. Os comandos estão abaixo. Um abraço ! BEGIN TRANSACTION // este comando ROLLBACK // este comando ENDTRANSACTION //este comando

Olá, Faça uma instrução no AUTOEXEC.BAT se for windows 95/98. Faça uma instrução no AUTOEXEC.NT se for Windows NT/XP. Carlos Eduardo - Rio de Janeiro

Olá, Meus amigos, estou fazendo um estudo e preciso colocar uma instrução em DBase dentro do PRG em clipper e depois compilar. CLIPPR53+Blinker 51. Como devo proceder ? Qual a LIB do Dbase que devo linkar. Carlos Eduardo - Rio de Janeiro

Olá, Seja bem vindo ! Bom, em particular prefiro eu memo controlar todo o desenvolvimento de um sistema(coisa que o Delphi ñao permite). Como o Elias disse use o WS 4.5 para fazer susas telas(Dialogos,FORMS,Botões....) e ai programe os eventos. No mais estaremos por aqui para ajuda-lo, dentro do possível é claro ! Carlos Eduardo - Rio de Janeiro

Olá Vagner, Agradeço seu exemplo ! Más esse procedimento de Filtrar+Do While+Armazenar os TOTAIS já faço. Meu problema é imprimir tais resultados sintéticamente utizando Report. Desculpe-me se não fui claro da primeira vez. Atenciosamente, Carlos Eduardo - Rio de Janeiro