Ir para conteúdo
Fórum Script Brasil

robinhocne

Membros
  • Total de itens

    854
  • Registro em

  • Última visita

Tudo que robinhocne postou

  1. Olá pessoal, estou com o seguinte problema... em um RLDBText1 eu trago as infomarcoes de valores...e no campo DisplayMask eu coloco a mascara do valor ##,##0.00 mas mesmo assim o quando é valor com o zero apos a virgula 100,00 ele mostra assim 100.... a mascara não está funcionando .... algume pode me ajudar ??
  2. Ok, obrigado pela ajuda, vou estar verificando com mais detalhes, vou colocar como resolvido esse tópico.
  3. robinhocne

    Update

    mas qual erro dá ? eu faço dessa maneira, adaptando no seu. DM.IBQ.Close; DM.IBQ.SQL.Clear; DM.IBQ.Sql.Add('UPDATE Produtos Set Fundo = ' + (QuotedStr(edit2.Text)) + ',' +'Km = ' + (QuotedStr(edit3.Text)) + ',' +'Proprietario = ' + (QuotedStr(edit4.Text)) +'where codigo ='+edit1.Text); DM.IBQ.ExecSQL; espero ter ajudado
  4. o que seria correto eu fazer....??? pois acho estranho que ... o erro as vezes acontece em um lugar...depois em outro e assim vai... o que devo fazer ?
  5. Bom dia.... Eu já não sei mais o que eu faço com esse erro que está dando no meu sistema...não consiguo achar o motivo, tipo estou usando tranquilamente o meu sistema e ai derepente ele fecha sem mais sem menos pedindo para enviar os dados....então eu executei ele pelo delphi e rodei um monte e deu a mesma coisa..mas não consegui achar o problema, alguém já teve problema com isso ? uso... Delphi 7 Firebird 2.0.1 conexão com o banco de dados Componentes da Interbase Access IbcConnection IbcTransaction IbcQuery esse é a imagem do erro.... http://www.4shared.com/file/122641800/8352d107/ERRO1.html outro http://www.4shared.com/file/122642073/49bce82c/ERRO.html
  6. Pessoal como eu tiro o zero a esquerda de um edit ? tipo ele tá assim > 0022546 queria assim > 22546
  7. eu utilizo o IbExpert Personal Edition..... IbExpert Personal Edition
  8. Tipo assim pessoal... tenho um form de extrato bancário....e ai queria abrir outro ao lado mas com a pagina de internet dentro...pois quero fazer uma conferencia entre o extrato e minha conta on-line. tem como eu abrir assim e ainda deixar configurado o site para acessar automatico, sem que seja padrão do broswer.
  9. Eu queria que quando fosse um rascunho urgente a determinada linha do grid, ficasse piscando...esses são os dados. o campo que eu trago a infomarcao se é urgente é o Field 3. procedure TFrmIzaFin.DbgRascunhoDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin If Not odd(DtsRascunho.DataSet.RecNo) Then If Not (gdSelected in State) Then begin DbgRascunho.Canvas.Brush.Color:=clSkyBlue; DbgRascunho.Canvas.FillRect(Rect); DbgRascunho.DefaultDrawDataCell(rect,Column.Field,State); end; if (TAuxDBGrid(DbgRascunho).DataLink.ActiveRecord + 1 = TAuxDBGrid(DbgRascunho).Row) or (gdSelected in State) then begin DbgRascunho.Canvas.Font.Style := DbgRascunho.Canvas.Font.Style + [fsBold]; DbgRascunho.Canvas.Font.Style := DbgRascunho.Canvas.Font.Style + [fsItalic]; DbgRascunho.Canvas.Font.Style := DbgRascunho.Canvas.Font.Style + [fsUnderline]; DbgRascunho.Canvas.Font.Color := clblack; end; if DbgRascunho.Fields[2].AsString = 'N' then begin DbgRascunho.Canvas.Font.Color := clblack; end else if DbgRascunho.Fields[2].AsString = 'S' then begin DbgRascunho.Canvas.Font.Color := clgray; end; if DbgRascunho.Fields[3].AsString = 'N' then begin DbgRascunho.Canvas.Font.Color := clblack; end else if DbgRascunho.Fields[3].AsString = 'S' then begin DbgRascunho.Canvas.Font.Color := clRed; DbgRascunho.Canvas.Font.Style := DbgRascunho.Canvas.Font.Style + [fsBold]; DbgRascunho.Canvas.Font.Style := DbgRascunho.Canvas.Font.Style + [fsItalic]; DbgRascunho.Canvas.Font.Style := DbgRascunho.Canvas.Font.Style + [fsUnderline]; end; DbgRascunho.Canvas.FillRect(Rect); DbgRascunho.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString); DbgRascunho.DefaultDrawDataCell(Rect, Column.Field, State); end;
  10. Voce deve criar o componente dinamicamente exemplo: JvDesktopAlert := TJvDesktopAlert.Create(nil); with JvDesktopAlert do begin ... end; e depois deve destruí-lo JvDesktopAlert .Free; JvDesktopAlert := nil; Veja este outro exemplo: http://www.activedelphi.com.br/forum/viewt...fb264fa3e2019b6 abraço Ok, tudo certo...muito obrigado!
  11. Galera preciso de uma ajuda... Estou fazendo para que o sistema mostre no JvDesktopAlert1 do Componente JEDI, um alerta, mas é o seguinte.. por exemplo tenho programado 3 ou mais alertas no mesmo horario e data...então ai eu quero que mostra em cada JvDesktopAlert...separado.. como eu faco para mostrar o alerta em cada JvDesktopAlert, quando eu tiver outros alertas no mesmo horario ? with QryComp do begin close; sql.Clear; sql.Add('Select * From Compromissos where Data =:Dat and hora =:Hor'); ParamByName('Dat').AsDate := TxtDt.Date; ParamByName('Hor').AsTime := StrToTime(Edit1.Text); open; end; while not QryComp.Eof do begin if QryComp.FieldByName('Avisar').AsString = 'S' then begin with JvDesktopAlert1 do begin HeaderText := 'Compromisso'; MessageText := QryComp.FieldByName('Descricao').AsString; //'Exemplo de mensagem pop-up com JvDesktopAlert'; Execute; end; QryComp.Next; end;
  12. Resolvido if DtmFin.QryRelatorio.FieldByName('Tipo').AsString = 'S' then begin QRDBText9.Font.Color := clRed; QRDBText1.Font.Color := clRed; QRDBText2.Font.Color := clRed; QRDBText4.Font.Color := clRed; QRDBText3.Font.Color := clRed; QRDBText5.Font.Color := clRed; QRDBText6.Font.Color := clRed; end;
  13. Fiz um relatorio em Quick Report, e tenho um campo tipo que me fala se é E (Entrada) e S (Saida), queria que quando fosse S ficaria a linha em vermelho e se fosse E verde, os dados que mostra o tipo é buscado pelo componente ( QRDBText )....como posso fazer ?
  14. Use a banda Group Header para isso exemplos: http://limanetoinfo.blogspot.com/2009/02/a...uickreport.html http://www.planetadelphi.com.br/dica/3443/...o%20quickreport abraço Consegui resolver...coloquei um count no sql with DtmLoja.QryProdutos do begin close; sql.Clear; sql.Add('Select CodProduto, DesCor, Tamanho, Produto, QuantPro, Status, count(QuantPro) as "Qtd" From Condicional where Status =:Sta' +' Group by CodProduto, DesCor, Tamanho, Produto, QuantPro, Status'); ParamByName('Sta').AsString := 'S'; open; end; count(QuantPro) as "Qtd"
  15. Olá pessoal.... estou fazendo essa consulta sql agrupando os produtos que são iguais, mas em cada linha que mostra no relatorio detalhado eu quero que mostre quantos foram agrupados desse produto. essa é a consulta... with DtmLoja.QryProdutos do begin close; sql.Clear; sql.Add('Select CodProduto, DesCor, Tamanho, Produto, QuantPro, Status From Condicional where Status =:Sta' +' Group by CodProduto, DesCor, Tamanho, Produto, QuantPro, Status'); ParamByName('Sta').AsString := 'S'; open; end; então eu queria, pois em cada linha aparece os produtos agrupados e em cada linha aparecer quantos produtos foi agrupado assim eu tendo a quantidade daquele produto....as quantidade é o campo QuantPro. alguém poderia me ajudar nisso ??
  16. Veja se assim funciona procedure TFrmNovProdutos.DbgGradeColExit(Sender: TObject); begin for a:=0 to DbgGrade.Columns.count-1 do begin if DbgGrade.SelectedIndex = 1 then begin if DbgGrade.Fields[1].AsString = '' then begin ShowMessage('Código da cor é Obrigatório !'); DbgGrade.SelectedIndex := 1; exit; end; ConsultaRegistros('Cores', 'Codigo, Descricao', 'Codigo =' + DbgGrade.Fields[01].AsString); if DtmLoja.QryLoja.RecordCount = 0 then begin DbgGrade.Fields[1].AsString := ''; ShowMessage('Cor não Cadastrada !'); DbgGrade.SelectedIndex := 1; end else begin DbgGrade.Fields[1].AsString := StrZero(LeDados('Codigo'), 3); DbgGrade.Fields[2].AsString := LeDados('Descricao'); end; end; end; end; abraço Hum...não deu certo...ele continua pulando para a próxima celula
  17. Olá pessoal..estou fazendo o seguinte procedimento no ColExit do DbGrid(DbgGrade) procedure TFrmNovProdutos.DbgGradeColExit(Sender: TObject); begin for a:=0 to DbgGrade.Columns.count-1 do begin if DbgGrade.SelectedIndex = 01 then begin if DbgGrade.Fields[01].AsString = '' then begin ShowMessage('Código da cor é Obrigatório !'); exit; end; ConsultaRegistros('Cores', 'Codigo, Descricao', 'Codigo =' + DbgGrade.Fields[01].AsString); if DtmLoja.QryLoja.RecordCount = 0 then begin DbgGrade.Fields[01].AsString := ''; ShowMessage('Cor não Cadastrada !'); end else begin DbgGrade.Fields[01].AsString := StrZero(LeDados('Codigo'), 3); DbgGrade.Fields[02].AsString := LeDados('Descricao'); end; end; end; end; mas eu que assim que quando não for digitado nada nesse campo ele dá a messagem como no procedimento mesmo, mas que volte para a mesma celula sem pular para a proxima celula..como faço isso ?
  18. conteudo do arquivo BANCOS.INI 01 - IzaCfc.gdb 02 - IzaCfc - Fera.gdb 03 - IzaCfcEducativa.gdb 05 - IzaCfcBrasil.gdb 07 - IzaCfcBrasil - II.gdb Primeiro voce tem que ler o arquivo passando o numero do banco que quer abrir Este exemplo voce deve modificar para o seu uso procedure TForm1.Button1Click(Sender: TObject); var num, codbanco : integer; Arquivo: TextFile; Line, caminho : string; begin codbanco := strtoint(Edit1.Text); // passar o numero do banco de dados AssignFile(Arquivo, 'C:\BANCOS.INI'); Reset(Arquivo); while not EOF(Arquivo) do begin ReadLn(Arquivo, Line); num := strtoint(copy(line,1,2)); if num = codbanco then begin case num of 1 : caminho := copy(Line,pos('-',line)+1,20); 2 : caminho := copy(Line,pos('-',line)+1,20); 3 : caminho := copy(Line,pos('-',line)+1,20); 5 : caminho := copy(Line,pos('-',line)+1,20); 7 : caminho := copy(Line,pos('-',line)+1,20); end; end; end; showmessage('Banco de Dados = '+ 'c:\'+ caminho); CloseFile(Arquivo); end; Uma vez que voce tem o nome do banco de dados que vai utilizar ( caminho ) , basta passar para a propriedade DataBaseName do componente antes de ativá-lo. abraço Ok, Certinho, muito obrigado. Resolvido
  19. Estou com o seguinte problema... Em um arquivo Bancos.ini, eu armazeno os codigos das empresas e nomes do banco de dados de cada empresa, dessa maneira. o meu sistema sempre vai acessar um banco default da empresa. o que eu preciso é que quando eu acesso a empresa que dai ele vai acessar o banco que tem todas as informações, mas para acessar eu vou ter que ir no arquivo Bancos.ini e verificar o nome do banco de dados da empresa para fazer a conexão do banco, então se por exemplo eu acesso a empresa 05, e ai como eu passo no arquivos verificando linha por linha o codigo da empresa para poder pegar o nome do banco de dados e conectar ?
  20. Olá pessoal, Estou com um pequeno problema pois não consegui resolver com o que consegui achar na internet sobre colocar ComboBox e DateEdit no DbGrid. Pois tenho que fazer mais ou menos assim, estou fazendo um faturamento da minhas vendas onde é escolhido as formas de pagamentos e os tipos pagamentos se é em cheque, promissoria e cartão. e o DbGrid no caso eu teria que já telo na tela, mas depois de informado as formas de pagamentos que ai seria dividido as parcelas e escolhido como seria os pagamentos, os itens do combo eu iria inserir de acordo com o que foi escolhido os pagamentos.
  21. Muito Obrigado pela ajuda Joao Paulo... Peguei o seu procedimento para mudar a impressora e antes listei todas as impressoras instaladas e salvei na tabela configuração .... procedure TFrmImpressoras.SpbSairClick(Sender: TObject); begin close; with DtmLoja.QryLoja do Begin Close; SQL.Clear; SQL.Add ('update Configuracao set ImprRelatorios =' + (QuotedStr(CboRelatorios.Text)) + ',' + 'ImprEtiquetas = ' + (QuotedStr(CboEtiquetas.Text))); ExecSQL; end; DtmLoja.QryLoja.Transaction.CommitRetaining; end; procedure TFrmImpressoras.FormShow(Sender: TObject); begin for i := 1 to Printer.Printers.Count do begin CboRelatorios.Items.Add(Printer.Printers[i - 1]); CboEtiquetas.Items.Add(Printer.Printers[i - 1]); end; ConsultaRegistros('Configuracao','ImprRelatorios, ImprEtiquetas',''); if DtmLoja.QryLoja.RecordCount <> 0 then begin CboRelatorios.Text := LeDados('ImprRelatorios'); CboEtiquetas.Text := LeDados('ImprEtiquetas'); end; end; ai antes de eu chamar o relatorio mudei o nome da impressora. o ConsultaRegistro é uma funcão que eu uso para consultar os meus registros.. ConsultaRegistros('Configuracao','ImprEtiquetas',''); if DtmLoja.QryLoja.RecordCount <> 0 then begin FrmLoja.MudarImpressoraPadrao(LeDados('ImprEtiquetas')); end; O procedimento MudarImpressoraPadrao eu coloquei no meu formulario principal (FrmLoja) ai chamo ele e já mudo o nome para o que estou obtendo na minha consulta!
  22. Você não precisaria colocar esse procedimento em um botão, simplesmente se você quer calcular o valor total dos produtos de acordo com a quantidade...por exemplo no evento onexit do ..... você poderia colocar a multiplicação para obter o resultado do total de vendas e assim já atribuir o resultado na venda total, caso tenha um desconto você colocaria a formula do desconto no onexit do campo que você dá desconto! ...
  23. Olá pessoal, Tenha no meu banco de dados Firebird uma tabela chamada configurações que tenho dois campos string como ImprRelatorios e ImprEtiquetas... então eu queria na minha janela de configurações buscar as impressora que tenho instaladas no pc e gravar por exemplo para a ImprRelatorios a Lx 300 + II e para ImprEtiquetas a Hp, pois para que possa imprimir direto sem configurar a impressora, pois ai deixaria gravado no banco as impressoras de qual é qual e assim nos relatorios eu já informava... como poderia fazer isso, pesquisei e não consegui achar nada, algém poderia me ajudar ??
  24. Como estou deixando o relatorio em um datamodule...coloquei o datamodule para iniciar junto com a aplicacao...ai deu certo mais ou menos.. pois agora deu um erro no relatorio ! ele abre mas já aparece o erro e trava tudo. esse é o erro> http://www.4shared.com/file/66762965/e5e8dbdd/imagem1.html o meu relatorio está assim! http://www.4shared.com/file/66763233/c5150229/imagem3.html esse é o arquivo do meu relatorio http://www.4shared.com/file/66763273/a179c...eberVencer.html
×
×
  • Criar Novo...