ZECA

Bom dia !!! Do nada meu MySql deixou de funcionar. Tento instalar como serviço, mas nada. Tentei reconfigurar, sem sucesso. Desativei o Firewall setei a porta 3306(TCP) sem sucesso. Segue abaixo o erro que dá. ERROR 2003 "CAN´T CONNECT TO MYSQL SERVER ON LOCALHOST(10061)" Acho que algum engracadinho instalou algo e simplesmente ferrou o mysql. Também foi instalado uma versão nova do JAVA pela cia de seguros. Alguém tem alguma idéia do que está ocorrendo? Já usei o MySqlInstanceConfig, porém sem sucesso Grato Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Tá ai Zeca. ** Finalidade : Consulta de preços de produtos ** Detalhes : Mostra imagem (mini), click mostra em tamanho origiginal. **------------------------------------------------------------------------------** ** Autor : S.A.Oliveira - 03/04/2007 ** Atualizado : ** Motivo : **------------------------------------------------------------------------------** FUNCTION PRO_CONSULTA_PRECOS() #include 'fivewin.ch' **---------------------------------------------------------** PRIVATE _Busca:=Space(40),_resul:=0,_nomfab:=Space(60),_fanfab:=Space(30), xImg:=AllTrim(LocalImagens+"\SemImagemMini.PNG") **--[ select para brose primario ]---------------------** cCmd:="SELECT p.codpro,p.despro,p.unipro,p.vispro,p.prapro,p.lojpro+p.deppro+p.csgpro as estoque,'1' as codimg" cCmd+=" FROM pro_cadastro as p" //cCmd+=" LEFT JOIN pro_imagens as i ON i.codimg = p.codpro" cCmd+=" WHERE p.despro LIKE '%"+AllTrim('xxx123')+"%'" cCmd+=" ORDER BY p.despro ASC" USE SQL cCmd Alias("TMP") NEW INTO xBanco **--[ select para brose secundário ]--------------------** cCmd:="SELECT ra.codaut,a.nomaut,a.popaut" cCmd+=" FROM aut_cadastro as a, pro_relac_autor as ra" cCmd+=" WHERE ra.codpro = "+Any2Sql(TMP->codpro) cCmd+= " AND a.codaut = ra.codaut" cCmd+=" ORDER BY a.nomaut ASC" USE SQL cCmd Alias("AUT") NEW INTO xBanco DEFINE DIALOG oDlg RESOURCE "PRO_CONSULTA_PRECO" OF oWnd oDlg:lTransparent:=.f. oDlg:lHelpIcon:=.f. oDlg:oFont:=oPub:fNorm11 oDlg:SetColor(PRETO,CINZACC) FOR X = 1 TO 5 REDEFINE SAY ID 1000+x OF oDlg FONT oPub:fNorm11 COLOR PRETO,CINZACC NEXT REDEFINE IMAGE oImage VAR XImg ID 301 OF oDlg UPDATE ADJUST oImage:Progress(.t.) oImage:bLClicked:={|| MostraImagemProduto(TMP->codpro,'oDlg')} REDEFINE GET Oresul VAR _resul PICTURE "99" ID 102 OF oDlg FONT oPub:fBCour13 COLOR AZUL,FundoGet UPDATE When(.f.) REDEFINE GET Obusca VAR _busca PICTURE "@!K" ID 101 OF oDlg FONT oPub:fBCour13 COLOR AZUL,FundoGet UPDATE ; Obusca:bChange:={|nKey|Conteudo(Obusca,nKey,oBrw)} REDEFINE GET Onomfab VAR _nomfab PICTURE "@!K" ID 103 OF oDlg FONT oPub:fBCour13 COLOR AZUL,FundoGet UPDATE When(.F.) REDEFINE GET Ofanfab VAR _fanfab PICTURE "@!K" ID 104 OF oDlg FONT oPub:fBCour13 COLOR AZUL,FundoGet UPDATE When(.F.) REDEFINE xBrowse oBrw ID 201 FONT oPub:fNorm11 Alias("TMP") COLUMNS 1,2,3,4,5,6 oBrw:bChange := { ||MostraDetalhe()} oBrw:SetColor( AZUL, CINZACC ) oBrw:l2007 := .T. oBrw:lAllowRowSizing := .T. // Nao move as Linhas (nao sei) oBrw:lHScroll := .F. // Barra rolagem Horizontal oBrw:lVScroll := .T. // Barra rolagem vertical oBrw:lRecordSelector := .T. // Barra aponta registro lateral esquerda; oBrw:nRecSelColor := RGB(205,220,255) // cor da barra lateral pontador de linha oBrw:lAllowColSwapping := .T. // Click no header (.f.)Trava oBrw:nDataLines := 1 oBrw:lColDividerComplete := .T. // linha divisoria de colunas mesmo com tabela vazia. oBrw:bClrStd := {|| { IF(TMP->estoque>0,AZUL,PRETO),IF(TMP->estoque>0,RGB(225,235,242),GetSysColor(15)) } } // cor da linha sem foco oBrw:bClrSel := {|| { IF(TMP->estoque>0,AZUL,PRETO),IF(TMP->estoque>0,RGB(225,235,242),GetSysColor(15)) } } // cor da celula sem foco oBrw:bClrSelFocus := {|| { IF(TMP->estoque>0,PRETO,PRETO),RGB(205,220,255) } } // cor da celula em foco oBrw:bClrRowFocus := {|| { IF(TMP->estoque>0,PRETO,PRETO),RGB(205,220,255) } } // cor da coluna sem foco oBrw:nColDividerStyle := 4 // cor da divisao de coluna LINESTYLE_LIGHTGRAY oBrw:nRowDividerStyle := 4 // cor da divisao da linha LINESTYLE_LIGHTGRAY oBrw:nMarqueeStyle := 5 // tipo de linha selecionada MARQSTYLE_HIGHLROW oBrw:nRowHeight := 24 oBrw:lHeader := .T. // se vai mostrar header cabeçalho) oBrw:nHeaderLines := 1 oBrw:nHeaderHeight := 20 oBrw:bClrHeader := {|| {cGetW,RGB(205,220,255) }} // cor do reader oBrw:aCols[1]:cHeader :="Codigo" oBrw:aCols[1]:nHeadStrAlign:=AL_CENTER oBrw:aCols[1]:nDataStrAlign:=AL_CENTER oBrw:aCols[1]:oDataFont :={|| IF(TMP->estoque>0,oPub:fBCour13,oPub:fCour13) } oBrw:aCols[1]:bStrData :={|| CRLF+Str(TMP->codpro) } oBrw:aCols[1]:nWidth :=65 oBrw:aCols[2]:cHeader :="Descrição" oBrw:aCols[2]:nHeadStrAlign:=AL_CENTER oBrw:aCols[2]:nDataStrAlign:=AL_LEFT oBrw:aCols[2]:oDataFont :={|| IF(TMP->estoque>0,oPub:fBCour13,oPub:fCour13) } oBrw:aCols[2]:bStrData :={|| TMP->despro } oBrw:aCols[2]:nWidth :=515 oBrw:aCols[3]:cHeader :="Unid." oBrw:aCols[3]:nHeadStrAlign:=AL_CENTER oBrw:aCols[3]:nDataStrAlign:=AL_CENTER oBrw:aCols[3]:oDataFont :={|| IF(TMP->estoque>0,oPub:fBCour13,oPub:fCour13) } oBrw:aCols[3]:bStrData :={|| TMP->unipro } oBrw:aCols[3]:nWidth :=40 oBrw:aCols[4]:cHeader :="R$ Vista" oBrw:aCols[4]:nHeadStrAlign:=AL_CENTER oBrw:aCols[4]:nDataStrAlign:=AL_RIGHT oBrw:aCols[4]:oDataFont :={|| IF(TMP->estoque>0,oPub:fBCour13,oPub:fCour13) } oBrw:aCols[4]:bStrData :={|| Transf(TMP->vispro,"@EZ 99,999.99") } oBrw:aCols[4]:nWidth :=80 oBrw:aCols[5]:cHeader :="R$ Prazo" oBrw:aCols[5]:nHeadStrAlign:=AL_CENTER oBrw:aCols[5]:oDataFont :={|| IF(TMP->estoque>0,oPub:fBCour13,oPub:fCour13) } oBrw:aCols[5]:nDataStrAlign:=AL_RIGHT oBrw:aCols[5]:bStrData :={|| Transf(TMP->prapro,"@EZ 99,999.99") } oBrw:aCols[5]:nWidth :=80 oBrw:aCols[6]:cHeader :="Estoque" oBrw:aCols[6]:nHeadStrAlign:=AL_CENTER oBrw:aCols[6]:nDataStrAlign:=AL_CENTER oBrw:aCols[6]:oDataFont :={|| IF(TMP->estoque>0,oPub:fBCour13,oPub:fCour13) } oBrw:aCols[6]:bStrData :={|| Transf(TMP->estoque,"@EZ 9,999") } oBrw:aCols[6]:nWidth :=60 oBrw:SetRDD() REDEFINE xBrowse oBrwA ID 202 FONT oPub:fBCour13 Alias("AUT") COLUMNS 2,3 oBrwA:SetColor( AZUL, CINZACC ) oBrwA:l2007 := .T. oBrwA:lAllowRowSizing := .T. // Nao move as Linhas (nao sei) oBrwA:lHScroll := .F. // Barra rolagem Horizontal oBrwA:lVScroll := .T. // Barra rolagem vertical oBrwA:lRecordSelector := .F. // Barra aponta registro lateral esquerda; oBrwA:nRecSelColor := RGB(205,220,255) // cor da barra lateral pontador de linha oBrwA:lAllowColSwapping := .T. // Click no header (.f.)Trava oBrwA:nDataLines := 1 oBrwA:lColDividerComplete := .T. // linha divisoria de colunas mesmo com tabela vazia. oBrwA:bClrStd := {|| { AZUL,GetSysColor(15) } } // cor da linha sem foco oBrwA:bClrSel := {|| { AZUL,GetSysColor(15) } } // cor da celula sem foco oBrwA:bClrSelFocus := {|| { PRETO,RGB(205,220,255) } } // cor da celula em foco oBrwA:bClrRowFocus := {|| { PRETO,RGB(205,220,255) } } // cor da coluna sem foco oBrwA:nColDividerStyle := 4 // cor da divisao de coluna LINESTYLE_LIGHTGRAY oBrwA:nRowDividerStyle := 4 // cor da divisao da linha LINESTYLE_LIGHTGRAY oBrwA:nMarqueeStyle := 5 // tipo de linha selecionada MARQSTYLE_HIGHLROW oBrwA:nRowHeight := 20 oBrwA:lHeader := .F. // se vai mostrar header cabeçalho) ObrwA:SetRDD() PCS_AtivaDialog('oDlg') DBCloseAll() SysWait(0.05) RETURN(NIL) **---------------------------------------------** Static Function Conteudo(oGetP,xKey,oDlgg) **---------------------------------------------** Local RetornoChave:="" MontaChaveBuscaArquivo(oGetP,xKey,oDlgg,@RetornoChave) TMP->(DBCloseArea()) IF(Len(AllTrim(retornochave))==0) _busca:="xxx123" ELSE _busca:=AllTrim(RetornoChave) ENDIF cCmd:="SELECT p.codpro,p.despro,p.unipro,p.vispro,p.prapro,p.lojpro+p.deppro+p.csgpro as estoque,p.codfab,'1' as codimg" cCmd+=" FROM pro_cadastro as p" cCmd+=" WHERE p.despro LIKE '%"+AllTrim(_busca)+"%'" cCmd+=" ORDER BY p.despro ASC LIMIT 50" USE SQL cCmd Alias("TMP") NEW INTO xBanco _resul:=TMP->(RecCount()) ; Oresul:Refresh() oBrw:Refresh() MostraDetalhe() Return(.t.) **----------------------------------------------------** STATIC FUNCTION MontaChaveBuscaArquivo(oGetP,xKey,oDlgg,RetornoChave) **----------------------------------------------------** Local cChave:=(oGetP:oGet:Buffer),nPosAnt:=Recno() RetornoChave:=AllTrim(cChave) Return(RetornoChave) **-------------------------------------** **-------------------------------------** STATIC FUNCTION MostraDetalhe() **-------------------------------------** USE SQL "SELECT codfab,nomfab,fanfab FROM fab_cadastro WHERE codfab = "+Any2Sql(TMP->codfab) Alias("FAB") NEW INTO xBanco IF(FAB->(RecCount())==1) _nomfab:=FAB->nomfab _fanfab:=FAB->fanfab ELSE _nomfab:=Space(60) _fanfab:=Space(30) ENDIF Onomfab:Refresh() ; Ofanfab:Refresh() FAB->(DBCloseArea()) IF(oBrw:lFocused) AUT->(DBCloseArea()) cCmd:="SELECT ra.codaut,a.nomaut,a.popaut" cCmd+=" FROM aut_cadastro as a, pro_relac_autor as ra" cCmd+=" WHERE ra.codpro = "+Any2Sql(TMP->codpro) cCmd+= " AND a.codaut = ra.codaut" cCmd+=" ORDER BY a.nomaut ASC" USE SQL cCmd Alias("AUT") NEW INTO xBanco oBrwA:Refresh() ENDIF XImg:=AllTrim(LocalImagens+"\C"+AllTrim(Str(TMP->codpro))) IF (File(xImg+".JPG")) cTipo:=".JPG" ELSEIF(File(xImg+".BMP")) cTipo:=".BMP" ELSEIF(File(xImg+".PNG")) cTipo:=".PNG" ELSE cTipo:=".PNG" XIMG:=AllTrim(LocalImagens+"\SemImagemMini") ENDIF XIMG+=cTipo oImage:LoadImage(,XIMG) oImage:Refresh() RETURN(.t.) **---------------------------------------------------------** FUNCTION MostraImagemProduto(Arg1,Arg2) **---------------------------------------------------------** LOCAL cTipo XImg:=LocalImagens+"\C"+AllTrim(Str(Arg1)) IF (File(xImg+".JPG")) cTipo:=".JPG" ELSEIF(File(xImg+".BMP")) cTipo:=".BMP" ELSEIF(File(xImg+".PNG")) cTipo:=".PNG" ELSE cTipo:=".PNG" XIMG:=AllTrim(LocalImagens+"\SemImagemMini") ENDIF XIMG+=cTipo oBmps:=TImage():Define(,XIMG,Arg2) _Lar:=oBmps:nWidth() _Alt:=oBmps:nHeight() xTit:=cTipo+" : "+AllTrim(Str(_lar))+" x "+AllTrim(Str(_alt)) IF(_lar>640) _lar:=_lar/(_lar/640) _alt:=_Alt/(_alt/480) ENDIF DeleteObject(oBmps) DEFINE DIALOG oDlgMF From 0,0 To _alt+20,_lar+20 OF oDlg Pixel TITLE xTit BRUSH oBPapel2 oDlgMF:lHelpIcon:=.f. @ 005,005 IMAGE oBmp File XImg OF oDlgMF Pixel Size _lar/2,_alt/2 NOBORDER ADJUST oBmp:Progress(.t.) ACTIVATE DIALOG oDlgMF CENTERED //&(Arg2):SetFocus() RETURN(.F.) id=code>id=code> "Não seja um clicador, torne-se um programador." Eu estou tentando. id=quote>id=quote>Bom dia!!! É exatamente o que preciso. Muito obrigado. Vou dar uma olhado no código pra entender como funciona a mecanica do mesmo Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Se for isto. oBrw:bClrStd:={||{IF(TMP->estoque>0,AZUL,PRETO),IF(TMP->estoque>0,RGB(225,235,242),GetSysColor(15))} oBrw:bClrSel:={||{IF(TMP->estoque>0,AZUL,PRETO),IF(TMP->estoque>0,RGB(225,235,242),GetSysColor(15))}} oBrw:bClrSelFocus:={||{IF(TMP->estoque>0,PRETO,PRETO),RGB(205,220,255)}} oBrw:bClrRowFocus:={||{IF(TMP->estoque>0,PRETO,PRETO),RGB(205,220,255)}} id=code>id=code> "Não seja um clicador, torne-se um programador." Eu estou tentando. id=quote>id=quote>Bom dia!!!! Este browse é em mysql Nativo? Tem como vc postar este codigo para eu ter uma idéa de como foi elaborado(muito bom mesmo)? Tô tentando achar um browse com mysql nativo, com consultas Grato Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:É muito vantajoso trabalhar (compilar, etc.) em Windows 64bits ou em termos do que fazemos é relativo? Meu Windows é 32bits mas o processador é 64 (dual core). Fora os app em 16 bits que ficam de fora, quais as vantagens/desvantagens de migrar a 64bits na nossa realidade diária? Nota: editado para tornar mais clara a questão. Editado por - Dr_Microso on 24/01/2011 14:10:37 id=quote>id=quote>Boa Noite!!! Vou subir este tópico porque achei muito interessante e gostaria de ouvir respostas do pessoal deste forum. Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Boa tarde a todos!!! Aguçando minha curiosidade, resolvi abri um arquivo xDev, mas dá o erro abaixo: "O projeto c:\zzz\zzz\zz.xdev está vinculado ao compilador 425234 que não foi carregado na inicialização. Verifique as configuarações do sistema pois isto pode impedir a correta compilação/execução deste projeto" O barato é que cada compilador tem um numero diferente. O que vem a ser este erro? E como resolver este problema? Gato Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Boa tarde a todos!!! Aguçando minha curiosidade, resolvi abri um arquivo xDev, mas dá o erro abaixo: "O projeto c:\zzz\zzz\zz.xdev está vinculado ao compilador 425234 que não foi carregado na inicialização. Verifique as configuarações do sistema pois isto pode impedir a correta compilação/execução deste projeto" O barato é que cada compilador tem um numero diferente. O que vem a ser este erro? E como resolver este problema? Gato Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:uso tdosprn para impressao peguei uma impressora e mapei net use lpt2 \\impressora\balcao ok funcionou se der um dir >lpt2 imprime certo no caso de dentro do meu programa ele da o seguinte erro cannot write to device lpt2 e nao imprime FW24 + CLIP5_2 email :edutraini@uol.com.br id=quote>id=quote>Boa tarde!!! Eu faço assim Crio um arquivo bat chamado Printer.bat com os dizeres @echo off cls Net use LPT2 /delete Net use LPT2 \\servidor\FX-2180 /Y @echo off 1. Primeiro "zero" a porta lpt2 2. jogo a impressora na porta lpt2 Eu fiz mais:. Achei na internet um programa que transforma o bat em exe e criei o printer.exe que aciono dando um F qualquer coisa Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Ola pessoal, muito raramente, Clientes me reclamam que sumiram registros do cadastro de produtos .DBF, sem ter sido escolhida a opção para exclusão. Isso é motivo para abandonar os .DBF ou pode ser problemas de queda de energia ou outro motivo que não tem nada a ver com o modelo .DBF ? Obrigado id=quote>id=quote>Boa Noite EDVALDO!!! Dificilmente se perde um registro. O que acontece normalmente é perder o indice do registro. Eu, particularmente gosto muito do DBF principalmente com o NSX, mas o futuro está em banco de dados relacional -FIREBIRD,MYSQL,POSTGRESQL e por ai afora - e acho bom voce pensar nesta hipótese. O pessoal deste forum, com certeza, te dará muito força caso voce opte por mudar. Boa Sorte Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Não esqueça que são 32 passos. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce id=quote>id=quote>Bom dia Antenor!!! Não pergunte como, mas consegui instalar o MYSQL 5.5.8 no windows 7 professional. Como não sei como foi instalado, mas está funcionando, não posso dizer o que fiz. Só posso dizer que quase "gastei" o MYSQLINSTANCECONFIG de tanto alterar a configuração até que deu certo. A minha única duvida no meio desta confusão é saber se marquei a opção para o MYSQL ser usado por outro computador. Eu tô que nem o DIDI que foi não sei aonde, comprou não sei o que e pagou não sei quanto. Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:http://downloads.mysql.com/archives.php Uso a 5.51b em windows 7hp 32/64 "Não seja um clicador, torne-se um programador." Eu estou tentando. id=quote>id=quote>Voltando a "vaca morta" após todos os procedimentos o my.ini não é gravado como deveria. Vejam: #Path to installation directory. All paths are usually resolved relative to this. basedir="C:/Program Files/MySQL/MySQL Server 5.5/" #Path to the database root datadir="C:/ProgramData/MySQL/MySQL Server 5.5/Data/" Vejam o path do basedir e vejam o path do datadir. Ao invés de c:\Program Files ele cria c:\programdata. Tento mudar, sem sucesso. Como conserto isto? Grato Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Zeca, qual o erro que ocorre ? Eu instalei no meu notebook (Win7 Professional 32bits) normalmente, não lembro de ter feito nada especial. Você tentou "executar como administrador" ? (caso esta opção esteja disponível) Luis Fernando Jr. (Luisão) Leme/SP -- FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY juninho.luisao@gmail.com juninho_luisao@hotmail.com Skype luis.fernando.jr id=quote>id=quote>Boa tarde Luis!!! A instalação ocorre normalmente, quando chega naquela tela (a ultima) que consta PREPARE CONFIGURATION, WRITE FILE E START SERVICE aí demora dois dias e duas noites até que dá um erro indicando que não iniciou o serviço. O MYSQL que uso é a versão 5.5.8. Eu tinha uma versão anterior instalada, sem problemas, porém precisei formatar a maquina e o problema se instalou. Será que a versão do MYSQL (5.5.8) é incompativel com o W7?. Não tenho mais a versao antiga do MYSQL. Vou tentar de outra maneira e qualquer coisa eu grito. Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Tente por aki. http://www.webdevelopersnotes.com/how-do-i/install-mysql-windows-7.php'> http://www.webdevelopersnotes.com/how-do-i/install-mysql-windows-7.php AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce id=quote>id=quote>Boa tarde Antenor!!! O primeiro link parace que está "furado", mas esqueci de uma informação importante: windows 7 32 bits Grato Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Boa tarde a todos!!! Estou tentando instalar o MYSQL versao 5.xxx no windows 7, sem sucesso. A instalação ocorre normalmente até na hora em quem pede para executar como serviço. Ai dá o erro. Já tentei de tudo quanto foi jeito, inclusive desativei o Firewall, mas neca de birica. Parece que li em algum lugar que o MYSQL e o SEVEN "não se bicam de jeito nenhum". alguém sabe de alguma coisa? Olha que instalei o MYSQL como sempre faço, usando a formula do Vailton(apesar da mudança de algumas telas). A versão do MYSQL parace que é a ultima - retirei do site esta semana. Grato Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Boa tarde a todos!!! Estou tentando instalar o MYSQL versao 5.xxx no windows 7, sem sucesso. A instalação ocorre normalmente até na hora em quem pede para executar como serviço. Ai dá o erro. Já tentei de tudo quanto foi jeito, inclusive desativei o Firewall, mas neca de birica. Parece que li em algum lugar que o MYSQL e o SEVEN "não se bicam de jeito nenhum". alguém sabe de alguma coisa? Olha que instalei o MYSQL como sempre faço, usando a formula do Vailton(apesar da mudança de algumas telas). A versão do MYSQL parace que é a ultima - retirei do site esta semana. Grato Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Olá Zeca, o que postei resolverá: FRETE_PESO:=0 AEVAL( {A, B, C, D}, {|n| FRETE_PESO:=MAX(FRETE_PESO,n) }) citação:Boa tarde ERIC!!!.O que quero na realidade e após os testes, colocar o maior valor em uma variavel. Por ex FRETE_PESO:= ......... Ai usarei a variavel para dar continuidade aos calculos. Sds José Carlos - ZECA id=quote>id=quote>Eric Developer Systems www.magaldi.eti.br id=quote>id=quote>Boa tarde a todos!!! Quero agradecer a todos que responderam este tópico. Muito bom mesmo. Parece que a rapaziada não esqueceu do velho e bom clipper. Agora vou parar de agradecer pois estou muito emocionado e vou acabar chorando(como o LULA) kkkkkkkkkkkkkkk Grato Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Acredito que o Zeca tenta escrito errado, mesmo dando a entender que quer a Variavel e não o mais valor, optei pelo maior valor que é o mais comum, para saber qual a variavel também é muito simples. Eric Developer Systems www.magaldi.eti.br id=quote>id=quote>Boa tarde ERIC!!!. O que quero na realidade e após os testes, colocar o maior valor em uma variavel. Por ex FRETE_PESO:= ......... Ai usarei a variavel para dar continuidade aos calculos. Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:José Carlos Func Maior(A,B,C,D) Local nRet:=0 nRet:= Max(A, nRet:= Max(nRet,C) nRet:= Max(nRet,D) Return nRet Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB Obrigado João Bosco Vou testar e qualquer problema retornarei mas acho que isto mesmo. Eu tinha um guia rápido de consulta do clipper mas a faxineira jogou no lixo - mas não esquenta não que já encomendei a alma dela. Prá ela livro lido não presta mais. Grato id=quote>id=quote>Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Olá a Todos!! Eu preciso de uma função em clipper que faça o seguinte: tenho quatro valores que estão nas variaveis A B C D. Após comparações, como escolher a variavel de maior valor? Antecipadamente agradeço. Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Olá a Todos!! Eu preciso de uma função em clipper que faça o seguinte: tenho quatro valores que estão nas variaveis A B C D. Após comparações, como escolher a variavel de maior valor? Antecipadamente agradeço. Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Amigo, se puder enviar para mim também agradeço. alainrancharia@hotmail.com Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C id=quote>id=quote>Boa Tarde !!! Mande pra mim também zeca_roque@hotmail.com Grato Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Gilmar, Não se usa RLOCK() ou FLOCK() em mysql. Pra vc usar o MySQL é necessário começar a mudar conceitos, pois no DBF estamos acostumados a controlar 'na unha' os dbfs. No caso do MySQL é o próprio MySQL quem administra as concorrências ao banco. Eu sugiro que vc comece a estudar SQL e ir migrando aos poucos pra SQL puro, pois assim vais poder aproveitar o máximo de recursos do MySQL e ir finalmente mudando a forma de programar usando bancos relacionais. Mas a princípio, tente tirar o RLOCK e veja se funciona. Kleyber Derick xHarbour 1.1.0 + FWH 8.02 (BMW Zerada!!!) + xDevStudio + SQLLIB (98) 8162-1301 / (98) 2107-9150 Visite São Luís - MA A Ilha dos Amores id=quote>id=quote>Bom dia Kleyber!!! Muito oportuno este esclarecimento, pelo menos para mim. Gostaria, se possivel, que alguém postasse um "o que pode e o que não pode" entre Mysql(comandos nativos) e DBF. Pra quem já usa MYSQL a muito tempo o esclarecimento acima não tem muita importancia, porque já é "automatico", mas pra quem tá começando como nós por exemplo esta dúvida é crucial. Grato Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação: citação:Grande Kapiaba. qto tempo... preciso ir a sampa rever as brahmas, quer dizer, antarticas do posto, kkkkkkk o Bullzip, na aba Geral tem que indicar a pasta que vai gravar o arquivo, desmarcar Confirmar Susbstituição, e colocar não para Abrir o documento após criação, fazendo isso não me pede nada simplismente cria o arquivo. Tente aí, fazendo isso dará certo... Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX FW9.07+xHb121+PellesC+CDX "Uma imaginação bem canalizada é fonte de grandes proezas"id=red> id=quote>id=quote>Beleza, vou testar. Teste ai o PDFMACHINE e diga se não é um MUST. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Bom dia Kapi!!! Para complementar voce deve baixar o Foxit Reader que é um leitor de PDF muito leve e gratis ai está completo. Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Boa Tarde Senhores, Alguém conhece um gerador de PDF, igual ou melhor que o PDFFACTORY, que gere as paginas automaticamente igual al PDFFACTORY, já testei o PDFCREATOR, mas pede para salvar pagina por pagina. Obrigado, Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Boa tarde Kapi!!! Eu tenho todos estes geradores de PDF citados, mas o meu preferido é BROADGUN PDFMACHINE. Caso voce queira ele além gerar pdf, salva, edita, imprime em qualquer impressora ou envia por e-mail como anexo. Além do mais voce pode inserir marca dágua, senha e por ai afora. Muito Bom mesmo Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:não entendi zeca a piada ! taqpa no telhado meu fhw10.8 é registrado... pode confiar fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ; id=quote>id=quote>Boa Tarde!!! Na Imagens anteriores o telhado(cabelo) era composto somente pelos para-lamas(do sucesso) Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:valeU Ale Sb obrigado resolveu sim! fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ; id=quote>id=quote>Voces viram que o LINHARES deu "tapa no telhado"? Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP