nicolasbraz

Estou desenvolvendo uma loja virtual com PHP + MySQL mas quero fazer a validação das páginas com o JavaScript e estou usando esse código para chamar as funções. <script type="text/javascript" src="../util/funcoes.js"/> Não importa o formulário que eu coloque esse código e também já apaguei o código do arquivo e o bug continua. O Bug é o seguinte o formulário fica em branco.

Eu compro as coisas sempre pela DealExtreme e não pago imposto. O controle de XBOX é reconhecido pelo pc perfeitamente, eu tenho um desses só que branco acho que compensa mais pegar o original também a qualidade é muito baixa.

O problema é o seguinte todo programa que eu vou instalar ou desinstalar ele me dá uma mensagem de erro que é a seguinte. "UNKNOWN\Installer\Products\C560CFAE67509ED4F8BDD449337605E6\SourceList\Media" Verify that you have sufficient access to that key, or contact your support personnel. Eu uso o MvRegClean 6.0 e eu vi em um fórum um usuário relatando ter o mesmo problema que eu devido ao uso do programa. http://forum.clubedohardware.com.br/resolv...-consigo/912287

Na empresa onde trabalho fiquei afastado por 2 mês por causa de uma cirurgia compraram uma impressora Wireless só que acabaram de me avisar que ela foi instalada em TODOS os pcs são 6 no total no meu ponto de vista isso é errado o que acham ?

Gostaria de saber como eu faria para criar uma tela semelhante a essa no caso a minha seria mais simples só teriam as contas a pagar e a receber. http://img831.imageshack.us/i/73763518.png/

Resolvi o problema adicionando o height 100% no meu conteúdo. Estou fazendo o site para mim e para pegar experiência, ele não está na web ainda, mas aqui está um print. http://img828.imageshack.us/i/92902292.png/

Estou desenvolvendo um site em HTML + PHP, meu monitor é de 21,5 polegadas e roda em resolução 1900x1080 quando eu abro o site fica um espaço em branco. http://img843.imageshack.us/i/1900x.png/ Então eu mudei a resolução para 1600x900 e ficou normal. http://img641.imageshack.us/i/1600b.png/ Eu criei um script para o menu, topo e rodapé, e estou usando CSS para controlar tamanho, cor e fundo. Qual seria a solução para isso ?

Resolvi já a parte de cadastro agora a minha dúvida é a seguinte. Eu quero que se eu preencha os dados para materiais somente só apareça no QuickReport o material, se eu preencher os dois material e serviço apareça os dois e se eu somente preencher os serviços só apareça ele o que eu tenho que fazer criar 3 relatorios e chamar um para cada caso ?

Sim mas minha dúvida é a seguinte esse campos são preenchidos com os dados das tabelas estoque e serviço e tenho que cadastrar também um Mão de Obra e Serviço ?

1.5? Eu preciso que sai como 1.0 ou 2.0

Eu criei o formulário com as tabelas para cadastrar vejam como ficou. http://img3.imageshack.us/i/cadmaterial.jpg/ http://img684.imageshack.us/i/cadservico.jpg/ Só que eu preciso que sai que nem nesse relatório do Excel, deixei em circulo o que eu preciso. E a outra dúvida é como deixar o material 1.0 e os materiais cadastrados em seguida como 1.1 e o serviços como 2.0 e os cadastrados em seguida 2.1. http://img580.imageshack.us/i/orcamento.jpg/

Bom dia Galera, Preciso importar dados de uma tabela para a outra só que estou com umas dúvidas, no caso a ídeia é a seguinte. Tenho um formulário para cadastrar a compra de materias que são duas tabelas, e tenho um outro formulário que é o para se cadastrar obras. Ai eu pensei em fazer o seguinte quando clicar no botão importar eu escolher a obra que vai ser importado os dados e copiar os campos para eles de um DbGrid para o outro. Alguém tem algum exemplo de como se faz isso ?

Já resolvi. Obrigado.

Sim entendo mas e sobre o problema do campo que eu preciso filtrar ?

Tenho a tabela de funcionários e lá existe um campo onde você preenche se o funcionário está ou não na empresa. Em outra tabela a de mão de obra que é filha da tabela de saída eu coloco os funcionários em obras através de um DbLookUpComboBox. http://img98.imageshack.us/i/obra.jpg/ Essa tabela mão de obra é controlada por um IbDataSet e o SQL dela está assim. select * from CUSTOFUNCIONARIO , SAIDA_PAI Join FUNCIONARIO on (func_codigo = cus_codfunc ) where CUS_COD_SAIDA_PAI =:SAIPAI_CODIGO and SAIPAI_CODIGO = CUS_COD_SAIDA_PAI and func_situacao like 'Ativo' order by CUS_DATA, FUNC_NOME ASC Vejam que eu estou usando o func_situacao like 'Ativo' Eu testei esse código no IbExpert executando ele em um Script SQL ele funcionou perfeitamente mas nesse caso não está funcionando. Alguém sabe o porque ?

Obrigado Jonas eu estava tentando fazer o modelo Sintético mas estava com problemas com o UNION então resolvi fazer somente o modelo Analítico. Obrigado mais uma vez Jonas. Abraço.

Tenho a tabela de contas a pagar e a de contas a receber ai eu gostaria de fazer um fluxo de caixa. As tabelas estão assim CREATE TABLE CONTASPAGAR ( PAGAR_CODIGO CODIGO NOT NULL /* CODIGO = INTEGER NOT NULL */, PAGAR_DATACONTA DATA /* DATA = DATE */, PAGAR_REFERENTE NOME /* NOME = VARCHAR(50) */, PAGAR_FORNECEDORNOME NOME /* NOME = VARCHAR(50) */, PAGAR_DOCUMENTO NOME /* NOME = VARCHAR(50) */, PAGAR_DATAVENCIMENTO DATA /* DATA = DATE */, PAGAR_VALORCONTA NUMERICO /* NUMERICO = NUMERIC(8,2) */, PAGAR_PORTADOR NOME /* NOME = VARCHAR(50) */, PAGAR_OBSERVACAO OBSERVACAO /* OBSERVACAO = VARCHAR(220) */, PAGAR_DESCONTO NUMERICO /* NUMERICO = NUMERIC(8,2) */, PAGAR_JUROS NUMERICO /* NUMERICO = NUMERIC(8,2) */, PAGAR_MULTA NUMERICO /* NUMERICO = NUMERIC(8,2) */, PAGAR_DATAPAGAMENTO DATA /* DATA = DATE */, PAGAR_VALORPAGO NUMERICO /* NUMERICO = NUMERIC(8,2) */, PAGAR_QUITADA VARCHAR(1) CHARACTER SET NONE, PAGAR_JUROSNUMERO NUMERICO /* NUMERICO = NUMERIC(8,2) */, PAGAR_MULTANUMERO NUMERICO /* NUMERICO = NUMERIC(8,2) */, PAGAR_GERADA S_OU_N /* S_OU_N = VARCHAR(1) */, PAGAR_QUANTPARCELA INTEIRO /* INTEIRO = INTEGER */, PAGAR_JUROSMULTA NUMERICO /* NUMERICO = NUMERIC(8,2) */, PAGAR_TOTAL NUMERICO /* NUMERICO = NUMERIC(8,2) */ ); CREATE TABLE CONTASRECEBER ( REC_CODIGO CODIGO NOT NULL /* CODIGO = INTEGER NOT NULL */, REC_DATACONTA DATA /* DATA = DATE */, REC_REFERENTE NOME /* NOME = VARCHAR(50) */, REC_CLIENTENOME NOME /* NOME = VARCHAR(50) */, REC_DOCUMENTO NOME /* NOME = VARCHAR(50) */, REC_DATAVENCIMENTO DATA /* DATA = DATE */, REC_VALORCONTA NUMERICO /* NUMERICO = NUMERIC(8,2) */, REC_PORTADOR NOME /* NOME = VARCHAR(50) */, REC_FUNCIONARIONOME NOME /* NOME = VARCHAR(50) */, REC_COMISSAO NUMERICO /* NUMERICO = NUMERIC(8,2) */, REC_COMISSAONUMERO NUMERICO /* NUMERICO = NUMERIC(8,2) */, REC_OBSERVACAO OBSERVACAO /* OBSERVACAO = VARCHAR(220) */, REC_DESCONTO NUMERICO /* NUMERICO = NUMERIC(8,2) */, REC_DATAPAGAMENTO DATA /* DATA = DATE */, REC_VALORPAGO NUMERICO /* NUMERICO = NUMERIC(8,2) */, REC_QUITADA VARCHAR(1) CHARACTER SET NONE, REC_GERADA S_OU_N /* S_OU_N = VARCHAR(1) */, REC_QUANTPARCELA INTEIRO /* INTEIRO = INTEGER */, REC_JUROSMULTA NUMERICO /* NUMERICO = NUMERIC(8,2) */, REC_TOTAL NUMERICO /* NUMERICO = NUMERIC(8,2) */ ); Estou tentando o UNION mas não consigo pelo UNION que eu fiz ele mostra todos resultados em uma linha. Usei este SQL. select * from CONTASPAGAR, CONTASRECEBER where (pagar_datavencimento >= :Datainicial and pagar_datavencimento <= :datafinal ) UNION ALL select * from CONTASPAGAR, CONTASRECEBER Só que ai ele sai assim ... http://img186.imageshack.us/i/veja.jpg/ Ele joga uma entrada e uma saida na mesma linha ...

Gostaria da opinião de vocês para resolver esse problema. Tenho um form que consulto as contas que tenho cadastradas (pagas, Não pagas ou todas). http://img59.imageshack.us/img59/530/consultae.jpg Eu gostaria de que quando fosse dado um duplo clique em uma conta, ele abre um novo form para pagar as contas, só que o jeito que estou fazendo ele está trazendo todas as contas. http://img532.imageshack.us/img532/1714/pagamentow.jpg No caso das imagens, na primeira imagem eu consultei pela data e veio uma unica parcela mas como podem ver no outro print veio todas as parcelas daquela conta, eu pensei em usar um novo DataSource para assim ele puxar somente a conta seleciona porque quero poder pagar 5 contas mas eu gostaria da opinião de vocês ...

O campo ENTPROD_CODPRODUTO é da tabela ENTRADA_PRODUTO e é do tipo INTEGER e o EST_PRODUTO é do tipo STRING da tabela ESTOQUE. O que eu poderia fazer?

Tenho um campo virtual no meu formulário de cadastro de compras de material é o campo est_codigo gostaria de saber como faço a consulta desse campo. Ele puxa os dados da tabela de estoque, ele usa o código que é a chave primaria com o campo virtual ele faz sair o nome do material no banco dados é gravado o código, na hora de consultar eu preciso consultar pelo nome ao invés do código. O código SQL que eu estou usando na minha Query, usei o Join para trazer os dados select * from ENTRADA_PAI, ENTRADA_PRODUTO Join estoque on (ENTPROD_CODPRODUTO = EST_PRODUTO) where ENTPAI_CODIGO = ENTPROD_COD_ENT_PAI AND (ENTPAI_DATAVENDA >= :DataInicial and ENTPAI_DATAVENDA <= :DataFinal) and (ENTPAI_NOMEFOR like :nome) and ( est_produto like :produto) Só que fazendo isso ele da erro dizendo que não é possivel converter a String "AREIA" que é um material.

Jhonas, Usei o IncMonth. procedure TFrmContasPagar.Button2Click(Sender: TObject); var parcela,resposta,i:integer; fornecedor,referencia,documento,portador,observacao:string; valorconta,jurosN,multaN,juros,multa:real; dataconta, datavenc:Tdatetime; begin resposta := 0; if (dmdados.IbContasPagar.State in [dsinsert] ) then begin showmessage ('Salve os dados antes para gerar as parcelas'); abort; end else resposta := Application.MessageBox('Deseja gerar as parcelas dessa conta ?','Confirma?',4); if resposta = 6 then begin dmdados.IbContasPagar.Edit; if Trim(DbParcela.Text) = '' then begin showmessage ('Informe a quantidade de parcelas.'); DbParcela.SetFocus; abort; end; i := 1; dataconta := dmdados.IbContasPagarPAGAR_DATACONTA.Value; referencia := dmdados.IbContasPagarPAGAR_REFERENTE.Value; fornecedor := dmdados.IbContasPagarPAGAR_FORNECEDORNOME.Value; documento := dmdados.IbContasPagarPAGAR_DOCUMENTO.Value; valorconta := dmdados.IbContasPagarPAGAR_VALORCONTA.Value; datavenc := dmdados.IbContasPagarPAGAR_DATAVENCIMENTO.Value; jurosN := dmdados.IbContasPagarPAGAR_JUROSNUMERO.Value; multaN := dmdados.IbContasPagarPAGAR_MULTANUMERO.Value; juros := dmdados.IbContasPagarPAGAR_JUROS.Value; multa := dmdados.IbContasPagarPAGAR_MULTA.Value; portador := dmdados.IbContasPagarPAGAR_PORTADOR.Value; observacao := dmdados.IbContasPagarPAGAR_OBSERVACAO.Value; parcela := dmdados.IbContasPagarPAGAR_QUANTPARCELA.Value; dmdados.Ibcontaspagar.post; while i <= parcela do begin dmdados.ibContaspagar.insert; dmdados.IbContasPagarPAGAR_DATACONTA.Value := dataconta; dmdados.IbContasPagarPAGAR_REFERENTE.Value := referencia; dmdados.IbContasPagarPAGAR_FORNECEDORNOME.value := fornecedor; dmdados.IbContasPagarPAGAR_DOCUMENTO.Value := documento; dmdados.IbContasPagarPAGAR_VALORCONTA.value := valorconta; dmdados.IbContasPagarPAGAR_JUROSNUMERO.Value := jurosN; dmdados.IbContasPagarPAGAR_MULTANUMERO.Value := MultaN; dmdados.IbContasPagarPAGAR_JUROS.Value := juros; dmdados.IbContasPagarPAGAR_MULTA.Value := multa; dmdados.IbContasPagarPAGAR_PORTADOR.Value := portador; dmdados.IbContasPagarPAGAR_OBSERVACAO.value := observacao; dmdados.IbContasPagarPAGAR_DATAVENCIMENTO.Value := incMonth(datavenc,(1)); datavenc := dmdados.IbContasPagarPAGAR_DATAVENCIMENTO.Value; dmdados.IbContasPagar.Post; showmessage ('Parcela gerada'); Inc(i); end; A unica coisa que falta para eu acabar o contas a pagar seria na hora de gerar a parcela ela adicionar letras ao final do documento. Exemplo .: 1º 300 2º 300-a 3º 300-b 4º 300-c 5º 300-d Fui aconselhando a usar uma const, que seria essa. const ALFA = 'ABCDEFGHIJKLMNOPQRSTUVWXZ'; var i : integer; sParcela : string; begin for i := 1 to 25 do sParcela := sParcela + ALFA[i]; end; A minha ídeia é colocar essa const dentro da minha Unit Biblioteca mas eu devo cria-la como procedure ou como Function ? e em qual parte do meu código de gerar parcela ela deve ser colocada ?

E como seria esse torneio Prezado Douglas ?

Jhonas foi apresentada a solução para o meu cliente mas ele realmente quer que as parcelas sejam geradas no mesmo dia em todo mesmo. Obs .: Achei muito interessante esse método porque ele mostra o real dia de vencimento da parcela. Exemplo .: 1º 10/02 2º 10/03 3º 10/04 4º 10/05 5º 10/06 6º 10/07

No meu formulário de contas a pagar eu coloquei um TDBCombobox para neles o cliente poder escolher o tipo de vencimento da conta que são: Mensal, Quinzenal. O problema está sendo para gerar a parcela mensal eu fiz uma formula mas que nela ela suma de 30 em 30 dias mas existem meses que tem 31 dias então a parcela cairia um dia. Ex : Junho .: 10/06/10 Julho .: 10/07/10 Agosto .: 09/08/10 Setembro .: 08/09/10 Outubro .: 08/09/10 O meu código para gerar a parcela é. procedure TFrmContasPagar.Button2Click(Sender: TObject); var parcela,resposta,i:integer; fornecedor,referencia,documento,portador,observacao:string; valorconta,jurosN,multaN,juros,multa:real; dataconta, datavenc:Tdatetime; begin resposta := 0; if (dmdados.IbContasPagar.State in [dsinsert] ) then begin showmessage ('Salve os dados antes para gerar as parcelas'); abort; end else resposta := Application.MessageBox('Deseja gerar as parcelas dessa conta ?','Confirma?',4); if resposta = 6 then begin dmdados.IbContasPagar.Edit; if Trim(DbParcela.Text) = '' then begin showmessage ('Informe a quantidade de parcelas.'); DbParcela.SetFocus; abort; end; if trim (CbParcela.Text) = '' then begin showmessage ('Informe o tipo de vencimento das parcelas.'); CbParcela.SetFocus; abort; end; i := 1; dataconta := dmdados.IbContasPagarPAGAR_DATACONTA.Value; referencia := dmdados.IbContasPagarPAGAR_REFERENTE.Value; fornecedor := dmdados.IbContasPagarPAGAR_FORNECEDORNOME.Value; documento := dmdados.IbContasPagarPAGAR_DOCUMENTO.Value; valorconta := dmdados.IbContasPagarPAGAR_VALORCONTA.Value; datavenc := dmdados.IbContasPagarPAGAR_DATAVENCIMENTO.Value; jurosN := dmdados.IbContasPagarPAGAR_JUROSNUMERO.Value; multaN := dmdados.IbContasPagarPAGAR_MULTANUMERO.Value; juros := dmdados.IbContasPagarPAGAR_JUROS.Value; multa := dmdados.IbContasPagarPAGAR_MULTA.Value; portador := dmdados.IbContasPagarPAGAR_PORTADOR.Value; observacao := dmdados.IbContasPagarPAGAR_OBSERVACAO.Value; parcela := dmdados.IbContasPagarPAGAR_QUANTPARCELA.Value; dmdados.Ibcontaspagar.post; while i <= parcela do begin dmdados.ibContaspagar.insert; dmdados.IbContasPagarPAGAR_DATACONTA.Value := dataconta; dmdados.IbContasPagarPAGAR_REFERENTE.Value := referencia; dmdados.IbContasPagarPAGAR_FORNECEDORNOME.value := fornecedor; dmdados.IbContasPagarPAGAR_DOCUMENTO.Value := documento; // dmdados.IbContasPagarPAGAR_DATAVENCIMENTO.Value := (date + ((i-1)*30)); dmdados.IbContasPagarPAGAR_VALORCONTA.value := valorconta; dmdados.IbContasPagarPAGAR_JUROSNUMERO.Value := jurosN; dmdados.IbContasPagarPAGAR_MULTANUMERO.Value := MultaN; dmdados.IbContasPagarPAGAR_JUROS.Value := juros; dmdados.IbContasPagarPAGAR_MULTA.Value := multa; dmdados.IbContasPagarPAGAR_PORTADOR.Value := portador; dmdados.IbContasPagarPAGAR_OBSERVACAO.value := observacao; if CbParcela.Items.Text = 'MENSAL' then begin dmdados.IbContasPagarPAGAR_DATAVENCIMENTO.Value := datavenc + (i-1 * 30); showmessage('Foi uma Parcela mensal'); end else begin dmdados.IbContasPagarPAGAR_DATAVENCIMENTO.Value := datavenc + (i-1 * 15); showmessage('Foi uma Parcela mensal'); end; dmdados.IbContasPagar.Post; showmessage ('Parcela gerada'); inc (i); end; end; DbDataConta.Enabled:=false; DbReferente.Enabled:=false; DbNomeFornecedor.Enabled:=false; DbDocumento.Enabled:=false; DbDataVencimento.Enabled:=false; DbValorConta.Enabled:=false; DbParcela.Enabled:=false; CbParcela.Enabled:=false; DbJuros.Enabled:=false; DbMulta.Enabled:=false; DbJurosNumero.Enabled:=false; DbMultaNumero.Enabled:=false; Dbportador.Enabled:=false; DbObservacao.Enabled:=false; end;

Se agente for pensar bem não é tão simples assim não ! Se ele for verificar se a tabela está ativa ela vai estar porque o mesmo form usa essa tabela. Ex.: fechar o form de venda a tabela de cliente esta aberta, então ele já vai parar no if porque ele usa o de clientes e ele está aberto então vai manter ela aberta.