laurenti

Kapi,você que é o "peixe/truta/chegado,etc,etc" do Linhares aqui no brasil, cobra dele em nome de todos aqui uma solução para web,ultimamente nem tenho dormido tive que aprender php na marra,pois estava pra perder um cliente no RJ por causa de uma solução web. FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

citação:Ok amigo obrigado por Responder Estou usando Com SQLLIB e com indices. Blz masterservicevrb@gmail.com FWHX2.6+SQLLIB+xDev+rpv+ MYSQL id=quote>id=quote>com Delphi eu não sei, mas com o PHP aqui está rodando normalmente FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

eu fiz um programa a parte para impressão de código de barra,só que está em mysql mas você pode abrir os fontes e ver os campos e alterar pra dbf se for o caso, vou postar em dicas. FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

Eroni,sua idéia também é ótima, você só não teve a iniciativa de compartilhá-la conosco e é isso que faz desse fórum o melhor de todos.... FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

Realmente fantastica !!!,caiu como uma luva no meu sistema de folha de pagamento onde tenho um menu enorme, e o pessoal já me cobravam a tempo essa solução. parabéns !!! FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

tem um hotel bom e barato, hotel kapi´s sempre que vou a Sampa fico nele. telefone 3106-2832 FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

A Zanthus tinha que saí do mercado de equipamento mesmo,porque ecfs ruins igual ao deles ta pra nascer, espero que o soft não siga a mesma linha, porque senão logo eles estarão fora também. nem a Yanco conseguiu ser tão ruim. FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

Concordo com o Vailtom, "SHOW DE BOLA" FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

ICO ,resolvi dessa forma : oLbx:nClrFFore :={||CLR_BLACK } oLbx:nClrFBack :={||CLR_BLUE} oLbx:nFooterHeight :=20 oLbx:nFooterStyle :=6 oLbx:aFJustify :={.f.,.f.,.f.,.f.,.f.,.f.,.f.,3,3,3,3,3,3,3,} oLbx:ldrawfooters := .t. oLbx:afooters := {||{'','','','','','','',transform(aTotfooter[01],'@e 99,999.99'),'','',transform(aTotfooter[02],'@e 99,999.99'),transform(aTotfooter[03],'@e 99,999.99'),; transform(aTotfooter[04],'@e 99,999.99'),transform(aTotfooter[05],'@e 99,999.99'),transform(aTotfooter[06],'@e 99,999.99') }} FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

esse fórum é uma coisa de doido,as resposta são imediatas. valeu ai galera !!!! FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

citação: citação:Pessoal preciso de exemplo de como usar o FOOTER com a listbox. Desde ja Obrigado a todos !!!. e aproveitando a oportunidade, "Vailton a maternidade te fez bem .rsrsr tú ta gordinho".rsrsrs FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG id=quote>id=quote>Se for ListBox provavelmente vc usa TwBrowse. oBRW:ldrawfooters := .t. oBRW:afooters := {||coluna1, coluna2,coluna3} ou oBRW:ldrawfooters := .t. oBRW:afooters := {coluna1, coluna2,coluna3} id=code>id=code>Um dos dois sei que funciona. Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. id=quote>id=quote>ops !!!, esqueci de mencionar uso tsbrowse FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

Pessoal preciso de exemplo de como usar o FOOTER com a listbox. Desde ja Obrigado a todos !!!. e aproveitando a oportunidade, "Vailton a maternidade te fez bem .rsrsr tú ta gordinho".rsrsrs FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG Editado por - laurenti on 18/03/2008 09:54:31

Pessoal preciso de exemplo de como usar o FOOTER com a listbox. Desde ja Obrigado a todos !!!. e aproveitando a oportunidade, "Vailton a maternidade te fez bem .rsrsr tú ta gordinho".rsrsrs FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG Editado por - laurenti on 18/03/2008 09:54:31

citação: citação:Olá Laurenti. Seguinte: Conforme vc pode perceber da declaração da função xSetFocus(), é utilizado um timer. Veja bem, o xSetFocus() aguarda alguns instantes para posteriormente focar o objeto desejado. Como a sua função "Calcula" está efetuando o processamento antes do término do timer do xSetFocus, a xSetFocus não irá funcionar. Experimente colocar um syswait() ao invés do print pra vc ver. Um abraço, Alexandre Pereira fwh 2.6, xharbour, .99.6, MyMake msn: alexpdasilva6@hotmail.com atualmente em Rondônia id=quote>id=quote>VIXE, VIAJOU NA MAIONESE!!! OLHE A DATA DO TÓPICO BAIXINHO. LEIAM PELO AMOR DE DEUS... KKKKKKKKKKKKKKKKKK. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>hehehe !!!! tomei até um susto aqui ..... FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

citação: citação:show de bola !!!! FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG id=quote>id=quote>QUE EMOÇÃO MEU REI MINEIRO!!! ESTAIS VIVO!!! EEEBBBAAA!!! ESSE É O KARA!! Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>1cm a menos em uma perna mas estou !!!! graças a deus estou vivo , um abraço meu querido.. FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

show de bola !!!! FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

Kapi,Tenho certeza que essa analogia que fizeram entre você e o maligno de lá é pura brincadeira, uma pessoa como você não pode ser comparada a ele, alem de tudo o cara é de uma arrogância fora do comum ,olhem só a citação dele : “Já estou com um pé fora da linguagem XBase. â€, Com certeza esse não é um dos nossos. FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

só espero que não apareçá algum expert vendendo os fontes como se fosse de sua autoria como fizeram com o tef do Alexandre... FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

Nao tem a mesma rapidez do comando sql, mas permite vc criar o relatorio como vc deseja function testxls() local aSql := {} local cCmdSql local cPasta, cArqExcel := 'funcionario'+sonumeros(dtoc(ovs:hoje))+'.XLS' local nLinha, nSaldo cPasta:=cGetDir32('Selecione o Diretório destino') cPasta:=alltrim( cPasta ) if substr(cPasta,len(cPasta),1)#'\' cPasta+='\' endif cArqExcel := cPasta+cArqExcel if !MsgYesNo('Deseja gerar o Arquivo '+cArqExcel+' ?','Atenção !!!') return nil endif ferase(cArqExcel) cCmdSql :='select codfun,nomfun,situacao,endereco,bairro,cidade,cep,fone,cbo,admissao,demissao,pispasep,cpf,cartpro,serie, ' cCmdSql +='tiposal,datnasc,sexo,contcor,codban,salbase,cdsecao,cddepto,pai,mae from fpcadfun order by nomfun ' aSql:=SQLArray( cCmdSql, SqlGetConn() ) if !empty( aSql ) nHandle := fcreate(cArqExcel, 0) if ferror() <> 0 MsgStop('Erro ao Criar o Arquivo!','Erro!') return .f. endif //CABECALHO DO RELATORIO cLinha :='MATRICULA'+chr(9)+'NOME DO FUNCIONARIO'+chr(9)+'SITUACAO'+chr(9)+'ENDERECO'+chr(9)+'BAIRRO'+chr(9)+'CIDADE'+chr(9)+'CEP'+chr(9)+'TELEFONE'+chr(9)+; 'CBO'+chr(9)+'ADMISSAO'+chr(9)+'DEMISSAO'+chr(9)+'PISPASEP'+chr(9)+'CPF'+chr(9)+'CT PROF'+chr(9)+'SERIE'+chr(9)+; 'TIPO SALARIO'+chr(9)+'NASCIMENTO'+chr(9)+'SEXO'+chr(9)+'C.CORRENTE'+chr(9)+'BANCO'+chr(9)+'SALARIO'+chr(9)+'SECAO'+chr(9)+; 'DEPTO'+chr(9)+'PAI'+chr(9)+'MAE' nLinha := 0 fWrtLin( nHandle, cLinha, @nLinha) for x =1 to len( aSql ) cLinha :=aSql[x,01]+chr(9)+aSql[x,02]+chr(9)+aSql[x,03]+chr(9)+aSql[x,04]+chr(9)+aSql[x,05]+chr(9)+aSql[x,06]+chr(9)+aSql[x,07]+chr(9)+; aSql[x,08]+chr(9)+aSql[x,09]+chr(9)+aSql[x,10]+chr(9)+aSql[x,11]+chr(9)+aSql[x,12]+chr(9)+aSql[x,13]+chr(9)+aSql[x,14]+chr(9)+; aSql[x,15]+chr(9)+aSql[x,16]+chr(9)+aSql[x,17]+chr(9)+aSql[x,18]+chr(9)+aSql[x,19]+chr(9)+aSql[x,20]+chr(9)+aSql[x,21]+chr(9)+; aSql[x,22]+chr(9)+aSql[x,23]+chr(9)+aSql[x,24]+chr(9)+aSql[x,25] nLinha := 0 fWrtLin( nHandle, cLinha, @nLinha) next CursorArrow() fclose(nhandle) MsgInfo('Arquivo Gerado Com Sucesso.','Atenção !!!') else MsgAlert('Não existe dados para geração do arquivo!','Atenção !!!') endif return nil FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG Editado por - laurenti on 30/11/2007 13:25:27 Editado por - laurenti on 30/11/2007 13:27:09

citação:E ai galera, ninguém se abilita? ADELSON (msn=programadorxhb@hotmail.com) Pelles 4.50.90, FWH 7.07, xHarbour Comercial 0.99.71, RDDSQL, MySQL, TWBrowse(), C5Menu() id=quote>id=quote>qual schema ? se for o que eu entendi.. use show databases ele te retorna um array com o nome dos BDS ativos, vc verifica a existencia do BD se não existir ai vc da o create database FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG Editado por - laurenti on 14/10/2007 06:25:54

se a tabela estiver indexada por endereço vc vai conseguir uma performance melhor, quando o sql executa o WHERE ele verifica se tem um indice para o campo.Mas a pesquisa usando o LIKE tende normalmente a perder performance, pois todo o conteúdo do campo é comparado com a string. FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

Depois que compilei com essas versões está dando erro na função que apresenta as fotos .. function previafoto( nCodfun,olbx,oDlg,oImagem,foto,aoGets,aDados ) foto:=if( file( '\folha\fotos\ft'+alltrim( cCodfun )+'.bmp' ) ),'\folha\fotos\ft'+alltrim( cCodfun+'.bmp' ),'\folha\fotos\semfoto.bmp') oImagem:loadbmp(foto) oImagem:refresh() return .t. FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG Editado por - laurenti on 22/09/2007 12:17:31

Depois que compilei com essas versões está dando erro na função que apresenta as fotos .. function previafoto( nCodfun,olbx,oDlg,oImagem,foto,aoGets,aDados ) foto:=if( file( '\folha\fotos\ft'+alltrim( cCodfun )+'.bmp' ) ),'\folha\fotos\ft'+alltrim( cCodfun+'.bmp' ),'\folha\fotos\semfoto.bmp') oImagem:loadbmp(foto) oImagem:refresh() return .t. FWH7.04/XH9971/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG Editado por - laurenti on 22/09/2007 12:17:31

Tive esse problema em um supermercado e resolvi dessa forma , até agora está funcionando blz com 36000 intens e varios terminais consultando, pode usar com array() tambem, fica até mais rapido. /////////////////////////////////////////////////////////////////////////// // /////////////////////////////////////////////////////////////////////////// static function localizaprod( nkey, olbx, aoGets, aDados ) cnomeap := '' if nKey==VK_F2 .and. len( alltrim(cpesq) ) <= 0 retur nkey else if nKey==VK_BACK if len( alltrim( cpesq ) ) >= 1 cpesq := substr( alltrim( cpesq ),1,len( alltrim(cpesq) )-1 ) elseif len( alltrim( cpesq ) ) <= 0 cpesq := '' produtos->( sqlfilter('') ) produtos->( dbgotop() ) endif endif If ( nKey >= 32 .and. nKey <= 255 ) .or. nKey=VK_BACK If nKey!=VK_BACK cpesq += upper( chr( nkey ) ) Endif Endif aDados[9]:=cPesq aoGets[9]:refresh() if len( alltrim( cPesq ) ) >0 produtos->( sqlfilter('descricao like"'+alltrim( cpesq )+'%" ' ) ) produtos->( dbgotop() ) endif oLbx:SetFocus() oLbx:gotop() oLbx:Refresh() endif return .t. FW26/XH9950/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG

hehehehe, essa classe pertence ao novo fw09 FW26/XH9950/Pelles/Mysql/aprendiz(Java/PHP) laurentinocarlos@gmail.com Rio de Janeiro/Montes/Curvel Claros MG