PC Toledo

mvbrandao

FUNCTION TiraAcentos(nnome)
*-----------------------*
// se quiser bloquear s¢ acentos e cedilha

nnome=alltrim(nnome)

letras_ok ="AOAAEEIOOOUUAAOECAOUEIOOUAAAOECOOA"
letras_bad="ÇåµŽÔ

mvbrandao

Valeu Marcelo,

Vou Estudar os conceitos........

Iniciante é assim mesmo.......
:xau

mvbrandao

Olá pessoal,

Será que alguem tem uma rotina que possa gerar numeros de matriculas com digito verificador.... se alguem souber onde posso achar, fico grato.

mvbrandao

Trazom e Rochinha,

Grato pelos dicas, vou velar em conta as respostas postadas por voces, no hora de comecar a colocar a mao na massa, e as duvidas que eu tiver, certamente estarei postando aqui........... como sou iniciante, nao posso ajudar muitos as outras pessoas, mas um dia quem sabe ...

mvbrandao

Olá pessoal,
Blz!

Faço alguns programinhas, para facilitar o meu dia a dia, no trabalho, so que me apareceu uma oportunidade de faz um programa para uma outra pessoa (digo empresa de pq. porte) e gostaria de saber como vocês cobram ($) os serviços prestados: se e por hora trabalhada, por programa ...

mvbrandao

Ola pessoal
Corrigindo meu codigo, fechei o parentese da funcão errado:
abaixo esta certo e testado.

Código: Selecionar todos


LOCAL nCodItem:=0 
@ 02, 02 SAY "CODIGO ITEM :" GET nCodItem   PICTURE "99999" ; 
VALID  EVAL( { || nCodItem:= STRZERO(nCodItem, 5), .T. } ) 
Read

mvbrandao

Ola,

TESTE

Código: Selecionar todos

LOCAL nCodItem:=0
 @ 02, 02 SAY "CODIGO ITEM :" GET nCodItem   PICTURE "99999" ; 
VALID  EVAL( { || nCodItem:= STRZERO(nCodItem), 5), .T. } )
Read

Até +

mvbrandao

olá amigo,

Já tentou colocar na funcão " Function BoxImpostos(funca,irrf,iss,inss)" a variavel getList como local, para não usar a publica do clipper:

exemplo:

Function BoxImpostos(funca,irrf,iss,inss)
local GetList:= {}
.....

Return

Ate +

mvbrandao

PESSOAL,

NO NG O ERRO BASE/1002 TEM HAVER COM OS SELECT() E ALIAS()

VALEU......

mvbrandao

Otavio,

de uma olhada na cessao de download do site, pode ser que vc encontre algumas funcoes e libs que possam ser uteis para vc separadamente.

mvbrandao

Rogerio,

O codigo ficou conrrompido, entao postei para seu e-mail a funcao em arquivo prg.

um abraço

mvbrandao

Olá,
achei essa funcao e naum testei, use-a transformando o nome junto com dbseek().
*****************************************************************************
*** NOME : Tiracent.prg
*** UTILIZA€ÇO : Retorna palavras sem acentua‡Æo para busca ou indexa‡Æo
*** AUTOR : Marcos Fernandes Penna ...

mvbrandao

Matrix,

depende das Funcoes, explique melhor o erro......

mvbrandao

CARO AMIGO,

TROQUE A LINHA DO AUTOEXEC.BAT DE:
KEYB BR ,,C:\WINDOWS\COMMAND\KEYBOARD.SYS
POR:

Código: Selecionar todos

KEYB BR ,,C:\WINDOWS\COMMAND\KEYBRD2.SYS /ID:275

Espero ter ajudado.
[/code]

mvbrandao

Pesquisei na internet, e, em um forum alguem questionou esse erro e teve como resposta o seguinte:

Olá Colega,

Este erro já aconteceu 2 vezes comigo

1ª - O HD estava com defeito fisico
2ª - A rede era Windows 95 e nas estações existia 2, 3 ou 4 mapeamentos direcionados para o mesmo lugar ...

PC Toledo

Pesquisa resultou em 22 ocorrências

Rotinas...

Quanto Custa........