Eder

Ola.... Eu entendo muito pouco de php....trabalho mais com Delphi... No delphi quando quero fazer um um if com uma critica eu coloco assim: Notem que se o edit for real ele manda a mensagem e depois jogo o cursor cima do campo novamente para ser digitado de novo.... eu queria fazer algo assim no php: Tenho este codigo abaixo ..semelhante ao do delphi acima: O problema é que ele faz um if e depois um else... eu não queria o else e sim somente o IF eu quero dizer que... SE O CAMPO NOME ESTIVER EM BRANCO ELE JOGA UMA MENSAGEM NA TELA DIZENDO PRA DIGITAR O NOME.....somente isto... tentei usar assim mas ele não usa o if....deixa passar. muito Grato.pessoal..t+

Resposta: Deu pra entender sim... muito bom.. você é modesto...sabe explicar muito bem Valeu..amigão...muito grato pela ajuda... t+ :D

:yeah: Amigão.....deu tudo certinho.... :clap: :clap: ficou ótimo... Valeu...muito grato..mesmo.. só não entendi..bem o seu codigo.... gostaria que você me desse uma preve descrição se possivel..da variavel que você criou chamada (I) NÃO ENtendi o que ela faz realmente.... De mais meu amigo..muito Grato e até. t+ :thumbsup:

Amigo..Programador....deu certo o seu codigo..porem teve dois probleminhas...que não to conseguindo resolver... 1º-quando a hora extra do camarada for 0 zero ai da erro na divisão.. 2º-Como são varios funcionarios..primeiro o relatorio lista um de cada vez...ou seja lista o jose depois a maria e assim por diante....e ao termino de cada um ,....ele faz um somatorio de horas extras....o problema é que no termino de cada um.....quando vai pro proximo ...o primeiro registo deveria dar percentual 0 zero pois se é o primeiro não aumentou nem diminuiu ...certo?? o que ele está fazendo é conta do ultimo funcionario..entendeu??é como se fosse tudo um unico funcionario......... de mais ele calculo legal... Terias alguma solução pra resolver estes pequenos problemas? Um abraço e muito grato por ajudar...t+ ;)

Perdão...pessoal...meu nome não saiu...saiu com Visitante ai Logei e estou inserindo de novo o meu tópico.. Pessoal.... Eu tenho um relatorio no quick report.....simples..ele mostra o total de extras do funcionario assim: funcionario: Jose da Silva ou seja eu gostaria que no percentual aparecesse o percentual de horas extras eu relação ao registro anterior o problema é que não to conseguindo fazer este calculo... eu usei um QRexpr com esta expressão= MAS não da certo..... alguém poderia me ajudar...? :( muito Grato

Beraldo...Valeu..deu certo...to pengando o esqueminha do php...é meio diferente do Delphi......mas no fundo...quem sabe um acaba aprendendo o outro... Até coloquei um codigo para validar um campo... Ficou jóia...a medida que vou aprendendo vou deixando o codigo mais legal.. muito Grato...amigos...fui muito util a dica de vocês.. t+ :D

Carinha...ESERRA..Deu certo muito Obrigado.....Era mais fácil que eu imaginava...mas sozinho nunca iria descobrir.... :D Valeu a ajuda....foi muito útil..já tinha gastado umas 5 horas neste codigo e não tinha Sucesso. Agora que peguei o esquema posso ampliar o form. Valeu...t+ :D -- amigão...sem querer abusar ....só pra ficar completinho o codigo.... Como coloco ...para que se a mensagem é enviada corretamente..aparecer uma outra pagina dizendo.."SUA MENSAGEM FOI ENVIADA COM SUCESSO!!!" ou se for incorreto aparecer uma outra pagina dizendo: "SUA MENSAGEM NÃO PODE SER ENVIADA". É dificil colocar estes dois codigos rederecionando para duas paginas uma chamado erro.htm e outra chamada obrigado.htm?? Bom valeu mesmo...muito Grato t+ :D

amigão...obrigado por responder.... eu até tentei começar por um formmail mais simples..mas o problema é que eu tenho que usar um que autentique via smtp(como MOSTRA O CODIGO),....e este é o unico que testei e passou pelo servidor...e funciona legal...só por este detalhe que mencionei. Eu notei que é esta linha que faz com que a informação chegue pra mim: neste caso acima a mensagem chega legal pra mim...ela chega com o TEXTO da mensagem(MSG).....atraves da variavel MSG SE eu substituir o MSG por NOME ...ai vem pra mim a informação do NOME de quem está mandando... se eu substiuir o NOME por EMAIL...ai vem pra mim a informação do EMAIL de quem está mandando... Mas eu queria que viesse pra mim...os tres: NOME, EMAIL E MSG ASSIM: Nome: Jose da Silva Email: jose@xxx.com.br Mensagem: Hoje é dia 26 domingo....novembro...blablablabla...etc... Compreendeu??.....eu tentei de varias formas mudar este codigo..... Como trabalho com Delphi....usei a ideia do delphi(variaveis)...mas no php parece que não é asssim...usei assim: $smtp->Send($destino, SMTP_USER, $assunto, $HTTP_POST_VARS['nome, email, msg]); ou $smtp->Send($destino, SMTP_USER, $assunto, email, nome, $HTTP_POST_VARS['msg']); em fim..testei um monte de situção e nenhuma funciona...acho que é mais dificil que pensei... Bom....acredito que alguém possa me ajudar...parece simples...mas pra mim..está sendo o Bicho... Fico no aguardo......e na esperança de uma ajuda.. Mesmo assim..muito Obrigado..amigão.. t+ :D

Ola pessoal... Não entendo quase nada de PHP porem preciso fazer um FormMail para um site..... Mas não to conseguindo fazer com que a mensagem chegue a mim com os dados preenchidos do formulario.. já consegui fazer com que ele chegue a mim...mas os dados não consegui corretamente. Exemplo: Meu form é simples tem um campo de: nome, email e mensagem Mas a mensagem que chega pra mim ou é só o nome ou mensagem ou apenas o email do camarada...não consigo configura-lo para que chegue os demais campos.(3campos) O codigo que estou usando eu peguei na net e adaptei a minha necessida.. Neste caso acima o email chega pra mim mim com o titulo da mensagem no caso: MENSAGEM ENVIADA VIA SMTP e a MENSAGEM atraves do MSG mas os demais como: email e nome não chegam o codigo do html é este: alguém poderia me ajudar...já fiquei umas 4 horas neste codigo e não consigo fazer funcionar.. muito Grato..pessoal :(

Ola pessoal...tudo bom... Tenho uma pagina e preciso colocar um formmail...achei um monte neste endereço: http://php.scriptbrasil.com/?class=2&i...&ordem=data porem preciso de um formmail para autenticar via smtp, ou seja ele teria que se comunicar com o servidor para completar o envio..porem não encontrei nenhum deste no linck acima... alguém saberia aonde posso encontrar um formmail deste ....Free.?? muito Grato pela ajuda t+ :(

beleza ..carinha eu também havia conseguido assim: muito Grato..amigão...t+ haaa,,,grato também ao nosso colega maikel t+ :D

Resposta: amigão...perdão.....mas como ficaria o meu codigo adaptado a sua ideia???porque sim o meu *.ini esta junto com o executavel do programa. Poderias me passar o codigo completinho pra mim entender? muito Grato..t+ :(

Ola..pessoal...to querendo pegar o caminho de um path... o porem que este caminho ele esta no caption de uma label..... Para pegar de uma caminho fixo eu uso assim: resto abaixo do codigo: eu tava tentando usar assim: mas ele não compila. :(

resolvi.. Criei um campo para a sigla outro para o nr da fatura e outro para o ano ficando assim quando junto: BL-000052/06 beleza...t+ :D

Ola pessoal..eu tenho um tela de lancamentos de fatura.....então cada vez que tenho que lançar a fatura tenho que lançar assim manualmente: 000005/06 OU SEJA as seis primeiras casas antes da barra é o numero da fatura e as duas apos a barra é equivalente ao ano.... eu gostaria que aparece o nr automaticamente.....é possivel ?? já que tem dois criterios no mesmo campo...?? este dois numeros antes e depois da barra formam o nr oficial da fatura que ficam armazenados num mesmo campo da tabela PARADOX. Se fosse apenas um nr inteiro eu até saberia fazer.......mas como obedece os dois criterios..nem tenho ideia... muito Grato t+ :(

Ok..amigão..valeu..muito Obrigado..t+ :D

OLá...eu gostaria de fazer uma verificação no quick report tipo assim: O problema que este codigo não da certo...ele não faz o que estou precisando...alias não acontece nada coloquei este codigo no BeforePrint da quickrep1 Acredito que é por causa do QRDBTEX O que eu poderia fazer para funcionar esta verificação?? Grato

Beleza..carinha muito grato..t+ :D

Amigão deu certo agora ficou bom.. :D Você só deve ter o cuidado de levar em conta a versão das tabelas Paradox(pro caso de mais alguém utilizar o código), pois a posição no header do arquivo muda de posição de uma versão para a outra(da 5 para a 7 com certeza). R. Beleza...eu só uso o Paradox 7.. Amigão...só uma duvida.. Eu costumo usar o Paradox AutoIncremento nas tabelas...então eu te pergunto: Porque que quando a gente exclui um registro desses de autoincremento...a gente não consegui mais usar este registro...ou seja...se eu apagar o registro 7 nunca mais eu conseguirei usar nesta tabela o 7 ?? Perguntei uma vez num forum e me disseram que não da mais pra usa-lo.. Isto é verdade?? Grato..Valeu t+

Eder, se não for secredo, o que você está fazendo na função: R. a função é esta: function ResetAutoInc(FileName: TFileName; Base: Longint): Boolean; begin with TFileStream.Create(FILENAME, fmOpenReadWrite) do Result := (Seek($49, soFromBeginning) = $49) and (Write(Base, 4) = 4); end; ResetAutoInc(editbanco.text+'\'+editcaminho.text, 0 ); Não pode ser ela que está deixando a tabela locada? Quando eu zerava via Database Desktop, eu apenas passava o campo para Integer e depois para Auto-incremento R. Bom acho que é..pois acontece só depois que uso ela. Terias algo mais eficiente.?? digite [ CODE ] no início do código e [ /CODE ] quando terminar - sem os espaços que deixei. R...Ok..agora deu certo como vê .... muito Grato..amigão..t+

Ola...amigão...beleza?? Carinha eu fiz um pequeno aplicativo para limpar tabela paradox e depois zerar o autoincremento...fiz isto pois quando faço um aplicativo eu teste ele então para testar a gente acaba enchendo as tabelas..então depois de tudo testato eu uso este aplicativo para limpar a tabela e zerar o autoincremento dela..ficando novinha..pro usuario começar a trabalhar.. codigo que uso pra ver a tabela: procedure TForm1.XiButton1Click(Sender: TObject); begin TABLE1.Active:=FALSE; TABLE1.DatabaseName:=EDITBanco.TEXT;//CAMINHO DO BD TABLE1.TableName:=EDITCaminho.TEXT;//NOME DA TABELA TABLE1.Active:=TRUE; end; este para limpar a TABELA: procedure TForm1.XiButton2Click(Sender: TObject); begin TABLE1.Active:=true; TABLE1.DatabaseName:=EDITBanco.TEXT;//CAMINHO DO BD TABLE1.TableName:=EDITCaminho.TEXT;//NOME DA TABELA TABLE1.Active:=false; TABLE1.CLOSE; TABLE1.Exclusive:=False; TABLE1.EmptyTable; Showmessage('Tabela Zerada!!!!'); end; Este abaixo para zerar o autoincremento: procedure TForm1.XiButton3Click(Sender: TObject); begin ResetAutoInc(editbanco.text+'\'+editcaminho.text, 0 ); SHOWMESSAGE('Tabela Zerada o Autoincremento!!!'); end; beleza..todas funcionam...mas quando eu faço o processo na ordem que esta cima....e quero fazer este mesmo processo com outra tabela ai da este erro: EDBENGINEERRO: SHARE VIOLATION FILE C:\TESTE\TESTE.DB Mas se eu fechar o programa e abrir novamente ele deixa eu fazer mais uma tabela... resumindo..eu tenho sempre que fazer de uma tabela....depois fechar o prg e fazer de outra tabela... Não sei se fui claro... Eu só queria que este erro não acontecesse mais....eu pudesse limpar e zerar qtos quizesse. Haaa..Micheus...tentei colocar o codigo no modo Codigo...e ele não me deixa..sempre aparece uma caixinha na tela dizendo que é pra por assim [quoto]xxxxx[/quoto] mas quando faço isto nada acontece...mas só acontece aqui na empresa ...em casa funciona..acho que é alguma configuração da minha nmáquina ..será??mas só acontece com quote e code muito Grato..t+

Ola.. pessoal to tentando apagar os registros em uma tabela clikando num botão.... e logo em seguida em clico num outro botão para zerar o autoincremento desta tabela.......até aqui tudo bem....... Depois quando click no botão para ver se a tabela esta zerada...ocorre o erro: EDBENGINEERRO: SHARE VIOLATION FILE C:\TESTE\TESTE.DB O que posso fazer para não ocorrer este erro....?? na verdade em quero excluir a tabela ....logo depois zerar o autoincremento e logo depois ver como ficou a tabela e eu gostaria de ver tudo isto acontecer apartir de uma Dbgrid. muito Grato :D

Amigão.......beleza..nem tinha me tocado que era só configurar a query o aluno nulo Beleza..Carinha..agora ficou 100% muito Obrigado pela ajuda...mais uma vez.... Haaaa.....é muito Grato pela paciência também.... Abraço..Carinha. Eder :D

R..Beleza desculpe vou tentar usar a tag code....e quanto ao backup eu fiz......beleza.. R...Beleza..errei uma letrinha...hehehe... Micheus.....carinha eu testei tudo agora e funcionou direitinho..exceto uma coisinha...acredito que você tenha esquecido de colocar no código....é quando o aluno sai da escola e dado baixa no seu cadastro então la no cadastro do aluno eu tenho este campo chamado DATADEM...no codigo antigo eu fazia uma verificação antes.....até tentei inserir dentro do seu codigo mas não deu certo...no codigo antigo ele verificava de o campo DATADEM estivesse NULL então ele mandada gerar a mensalidade..caso contrario não... :unsure: eu só não to conseguindo colocar dentro do seu codigo... o codigo antigo eu tinha a verificação assim: //Aqui começa a gerar as mensalidades automaticas... TABLE1.open; //abro a tabela alunos TABLE1.first; //vou para o primeiro registro while TABLE1.eof = false do begin // enquanto fim da tabela for igual a FALSE if (table1DATADEM.AsDateTime < 1) then begin table2.Insert; // ou seja da um insert para cada aluno Carinha...muito grato...pela sua ajuda e explicação....seria muito dificil de eu montar este codigo sozinho..t+ Obrigadão.. :D

:D Michels..primeiramente muito obrigado pela ajuda...mais uma vez Carinha....to meio que perdido agora depois que você montou o codigo....hehehe....deu uma alterada legal..mas beleza...se for pra melhor......está tudo joia. Precisaria que você me desse algumas instruções..por favor...é o seguinte você se diz que: substitua este processo por um componente TQuery (vou chamar QryGerarMens) e coloque na propriedade SQL (em design-time) o seguinte código: Resposta: o que seria sql em design-time ??? acredito que seria a instrução que a gente coloca direto no SQL(tstrings) ?? Bom se for isto..... eu auterei algumas coisinhas pois a tabela alunos na verdade se chama FILHOS.DB e a tabela mensalidade.db é na verdade MENSA.DB ai alterei esta instrução assim(por favor veja se esta ok): select Codigo, Turma from filhos A where not exists(select CodAluno from MENSA M where M.CodAluno = A.Codigo and M.mês = :mês and M.ANO = :ano) Acredito que deva algo que não está dando certo pois quando tento compilar o programa da erro nesta linha: if Table1.Locate('Codigo', QryGerarMensCodigo.Value, []) then error: [Error] GeraMensa.pas(274): Undeclared identifier: 'QryGerarMensCodigo' alias da sempre este erro....pois se eu desalibitar esta linha e tentar compilar de novo ai da erro nesta linha: Table2CodTurma.AsInteger:= QryGerarMensTurma.AsInteger; erro: [Error] GeraMensa.pas(281): Undeclared identifier: 'QryGerarMensTurma' acho que tem algo errado na QryGerarMens :unsure: Minha estrutura da tabela filhos.db é: codigo, aluno, turma etc......... mensa.db é: codmensa, codaluno etc.... Turma.db é: codigo etc.... Por favor de uma olhadinha no codigo que você montou derepende como você disse que foi montado e não testado derepende tem algo errado..se você achar que está certo..ai vou ter que quebrar a cabeça mais um pouco.. Bom é isto ai.....espero que você consiga entender ..... muito Grato..amigo....