Guilherme014

Tenho esta form begin inherited; if edBenificiario.Text <> '' then begin qryResult.Close; qryResult.SQL.Clear; qryResult.SQL.Add(' SELECT clifor.CF_IDVendedor,vendedor.VE_NOME,vendedor.VE_COMISSAO, notafiscal.NF_NOTA,notafiscal.NF_DMAEMISSAO,notafiscal.NF_DMAEMISSAO, clifor.CF_NOMEFANTASIA,notafiscal.NF_Valor,notafiscal.NF_IPIBASE'); qryResult.SQL.Add(' FROM clifor, notafiscal, vendedor'); qryResult.SQL.Add(' WHERE notafiscal.NF_TIPOES=' + #39 + ' S '+#39); if edDataDe.text <> ' / / ' then qryResult.sql.Add(' AND notafiscal.NF_DMAEMISSAO >= '+ App.DeliData + FormatDateTime('MM/DD/YYYY', strToDateTime(edDataDe.text))+ app.DeliData ); if edDataAte.text <> ' / / ' then qryResult.sql.Add(' AND notafiscal.NF_DMAEMISSAO <= '+ App.DeliData + FormatDateTime('MM/DD/YYYY', strToDateTime(edDataAte.text))+ app.DeliData); if edBenificiario.Text <> '' then qryResult.SQL.Add(' AND clifor.CF_IDVendedor='+ #39 + edBenificiario.Text + #39); qryResult.SQL.Add(' AND notafiscal.nf_idclifor = clifor.id'); qryResult.SQL.Add(' AND clifor.CF_IDVendedor=vendedor.ID'); qryResult.SQL.Add(' ORDER BY clifor.CF_IDVendedor'); qryResult.Open; relVendedor := TrelVendedor.create(self); if edDataDe.text <> ' / / ' then begin relVendedor.qrltitulo.Caption :='RELATORIO DE VENDAS POR VENDEDORES POR PERÌODO '+edDataDe.Text+' A '+edDataAte.Text; relVendedor.Seq := True; relVendedor.qr.DataSet:=qryresult; Setlength(RelPadrao.afield,7); relVendedor.aField[0]:=' vendedor.VE_NOME'; relVendedor.aField[1]:=' notafiscal.NF_NOTA'; relVendedor.aField[2]:=' notafiscal.NF_DMAEMISSAO'; relVendedor.aField[3]:=' notafiscal.NF_DMAEMISSAO'; relVendedor.aField[4]:=' clifor.CF_NOMEFANTASIA'; relVendedor.aField[5]:=' notafiscal.NF_Valor'; relVendedor.aField[6]:=' notafiscal.NF_IPIBASE'; { with qryresult.fieldByName('VE_NOME') do begin displaylabel:='Nome Vendedor'; DisplayWidth:=5; end; with qryresult.fieldByName('NF_NOTA') do begin displaylabel:='Nº. Nota Fiscal'; DisplayWidth:=10; end; with qryresult.fieldByName('NF_DMAEMISSAO') do begin displaylabel:='Data Emissão'; DisplayWidth:=10; end; with qryresult.fieldByName('NF_DMAEMISSAO') do begin displaylabel:='Data Vencimento'; DisplayWidth:=10; end; with qryresult.fieldByName('CF_NOMEFANTASIA') do begin displaylabel:='Cliente'; DisplayWidth:=40; end; with qryresult.fieldByName('NF_Valor') do begin displaylabel:='Valor'; DisplayWidth:=15; end; with qryresult.fieldByName('NF_IPIBASE') do begin displaylabel:='Báse de Calculo'; DisplayWidth:=15; end; } end; relVendedor.qr.PreviewModal; relVendedor.Free; end else MessageDlg('O Benificiário está em branco não podendo fazer a consulta !!',mtInformation,[mbok],0); end; Teria que sair nesta página que é um formulário. relVendedor o problema é que não busca nada de jeito nenhum

não entendi

beleza valeu, vou tentar aqui qualquer coiza te falo....

beleza, mas como mudar o pagina_do_site_, para uma variavel que pega a pagina do site ? tem jeito....

é isso o cliente vai escolher um banco de dados entre vários bancos de dados diferentes. EX: mysql, orcale, SQL e ACSSSES

beleza, e depois o que que faz, se puder ajudar... guilherme

estou montando um site, só que o cliente poderia escolher, vários bancos de dados, sabem como faço isso ???? Guilherme

o Error Valeu, já arrumei o codigo.....

Guilherme, primeiro tente execultar no quary analyzer para ver se funciona o select, uma dica é que você pode estar analizando o plano de execução no plan execution, Tente colocar esse select dentro de uma procedure, e depois na aplicação mande execulta-la com seus respectivos paramentros, as procedures são pré-compiladas, apos sua primeira execução, é gravado o caminho que foi necessario percorrer para buscar os dados, por isso depois acaba sendo melhor para fazer a busca na segunda vez... tente aí!!! beleza, valeu a dica, mas eu já consegui, segunda feira eu coloco como ele ficou.... Guilherme

é o seguinte, estou querendo um codigo que a pessoa entrando no site, o site verifica se a pessoa esta em 800x600 ou 1024x890 e outros, j[a vis rodando num site so não sei o endereco.... se alguém puder me ajudar, ficarei satisfeito Guilherme Costa Lopes

olhe este tópico http://scriptbrasil.com.br/forum/index.php?showtopic=44638 valeu......

Será que alguém poderia me ajudar fazer somas e multiplicação ?????

que nem eu falei é praticamente o mesmo...... este funcionou..... <? $seleciona_tipo_logradouro = mysql_query("SELECT ti_cod_tipo_logradouro, ti_nome FROM tipologradouros WHERE ti_cod_tipo_logradouro='$ti_cod_tipo_logradouro'"); while($res = mysql_fetch_array($seleciona_tipo_logradouro)){ $ti_cod_tipo_logradouro = $res["ti_cod_tipo_logradouro"]; $ti_nome = $res["ti_nome"]; } ?> <td width='229' class="footer"><? print("$ti_nome"); ?></td> este não funcionou.... <? $seleciona_cidade = mysql_query("SELECT ci_cod_cidade, ci_nome FROM cidades WHERE ci_cod_cidade='$ci_cod_cidade'"); while($res = mysql_fetch_array($seleciona_cidade)){ $ci_cod_cidade = $res["ci_cod_cidade"]; $ci_nome = $res["ci_nome"]; } ?> <td width='229' class="footer"><? print("$ci_cod_cidade"); ?> - <? print("$ci_nome"); ?></label></td>

Porque um codigo funciona para uns e o mesmo não para outros SELECT campoid, nome FROM estado WHERE campoid='$campoid'..... e mais ou menos assim Guilherme

Beleza, vë se melhorou... SELECT ve.ID,cf.ID,pe.ID,rp.RP_IDCLIFOR,cf.CF_IDVendedor,pe.PD_IDCliFor, rp.RP_VALOR, From ReceberPagar as rp, CliFor as cf, NOTAFISCAL as nf, VENDEDOR as ve, PEDIDO as pe WHERE pe.PD_TIPOES='s' AND cf.ID=rp.RP_IDCLIFOR AND ve.ID=cf.CF_IDVendedor AND cf.ID=pe.PD_IDCliFor AND rp.RP_VALOR>0 Mesmo assim não mostra nenhum resultado..... Guilherme

SELECT RP_DMAEMISSAO,VE_NOME,RP_DMAVENCTO,CF_NOMEFANTASIA,NF_NOTA, RP_VALOR,NF_IPIBASE,pedido.ID,vendedor.ID From ReceberPagar, CliFor, NOTAFISCAL, VENDEDOR, PEDIDO WHERE PEDIDO.PD_TIPOES='E' AND ReceberPagar.RP_DMAEMISSAO >= ' texto no delphi ' AND ReceberPagar.RP_DMAEMISSAO <= ' texto no delphi ' AND VENDEDOR.VE_NOME=' texto no delphi ' AND ReceberPagar.RP_DMAVENCTO = '' texto no delphi ' AND CliFor.CF_NOMEFANTASIA =' texto no delphi ' AND ReceberPagar.RP_VALOR =' texto no delphi ' ORDER BY VE_NOME helppppp valeu gente

Olha outro ai......... no caso é só o select, que ficou mais de 3 horas e não retornou resultado nenhum.... qryResult.Close; qryResult.SQL.Clear; qryResult.SQL.Add(' SELECT RP_DMAEMISSAO,VE_NOME,RP_DMAVENCTO,CF_NOMEFANTASIA,NF_NOTA, RP_VALOR,NF_IPIBASE,pedido.ID,vendedor.ID'); qryResult.SQL.Add(' From ReceberPagar, CliFor, NOTAFISCAL, VENDEDOR, PEDIDO'); qryResult.SQL.Add(' WHERE PEDIDO.PD_TIPOES='+#39+'E'+#39); if edDataDe.text <> ' / / ' then qryResult.sql.Add(' AND ReceberPagar.RP_DMAEMISSAO >= ' + App.DeliData + FormatDateTime('MM/DD/YYYY', strToDateTime (edDataDe.text))+ app.DeliData); if edDataAte.text <> ' / / ' then qryResult.sql.Add(' AND ReceberPagar.RP_DMAEMISSAO <= ' + app.DeliData + FormatDateTime('MM/DD/YYYY', strToDateTime(edDataAte.text))+ app.DeliData); if edBenificiario.Text <> '' then qryResult.SQL.Add(' AND VENDEDOR.VE_NOME='+edBenificiario.Text); if edDataPagamento.Text <> ' / / ' then qryResult.SQL.Add(' AND ReceberPagar.RP_DMAVENCTO = ' + App. DeliData + FormatDateTime('MM/DD/YYYY', strToDateTime (edDataPagamento.Text))+ app.DeliData); if edCliente.Text <> '' then qryResult.SQL.Add(' AND CliFor.CF_NOMEFANTASIA ='''+edCliente.Text+ ''''); if edValorNF.Text <> '' then qryResult.SQL.Add(' AND ReceberPagar.RP_VALOR ='''+edValorNF.Text+ '''');

valeu Progr'amador, assim que eu chegar no meu est´pagio eu vou olhar..... e te falo o que que deu...... funcionou, só não grava, nesta linha........... Ve como ficou agora........... var realresutado : Real; strresultado : String; begin inherited; if (edPorcentagem.Text <> '') then begin //realresutado := (StrToFloat(edPorcentagem.Text)/100); strresultado := '1'+'.'+ edPorcentagem.Text; qryResult.Close; qryResult.SQL.Clear; qryResult.SQL.Add('UPDATE produto SET PR_PRECO1=PR_PRECO1 * ' + #39 + strresultado + #39); if edGrupo.Text <> '' then qryResult.SQL.Add('WHERE PR_Grupo='+ #39 + edGrupo.Text + #39); // Guardar no banco de dados, se o cliente quiser saber a porcentagem que ele // aumentou a última vez // if edPorcentagem.Text <> '' then // qryResult.SQL.Add(' AND PR_SALDO2 ='+ #39 + edPorcentagem.Text + #39); //Mensagem para o usuário qryResult.ExecSQL; realresutado := (StrToFloat(edPorcentagem.Text)/100); strresultado := FloatToStr(realresutado*100); edPorcentagem.Text := strresultado; MessageDlg('O preço dos Produtos deste Grupo subiu em ' + edPorcentagem.Text + ' porcento(s) !!',mtConfirmation,[mbok],0); end else MessageDlg('A Porcentagem está em branco não podendo fazer a atualização !!',mtInformation,[mbok],0);

valeu Progr'amador, assim que eu chegar no meu est´pagio eu vou olhar..... e te falo o que que deu......

valeu, assim que chegar em cas eu olho.........

É o seguinte eu não entendo muito de JavaScript, poderia exclarecer melhor.... se puder.

não faz o UPDATE.... var realresutado : Real; strresultado : String; begin inherited; realresutado := (StrToFloat(edPorcentagem.Text)/100); realresutado := 1 * realresutado; strresultado := FloatToStr(realresutado); qryResult.Close; qryResult.SQL.Clear; qryResult.SQL.Add('UPDATE produto SET PR_PRECO1=PR_PRECO1 * ' + strresultado); qryResult.SQL.Add('WHERE PR_Grupo='+ #39 + edGrupo.Text + #39); edPorcentagem.Text := strresultado; if edGrupo.Text <> '' then qryResult.SQL.Add(' AND produtos.ID =0'+edGrupo.Text); if edPorcentagem.Text <> '' then qryResult.SQL.Add(' AND produtos.ID =0'+edPorcentagem.Text); //Mensagem para o usuário if edPorcentagem.Text <> '' then MessageDlg('O preço dos Produtos deste Grupo subiu em ' + edPorcentagem.Text + ' porcento !!',mtInformation,[mbok],0);

beleza, então o que quero não pode fazer ??????

o que quero é este código em java script, tem jeito .......

feliza natal ae gente do fórum.............. guilherme