robinhocne

Até ai tudo beleza....mas se vou mexer em um grid...mexe em todos.....se seleciono um registro em um Grid muda dos demais e ai as cores das linhas se perde.....

Criei a procedure abaixo para pintar os grids criados em tempo de execução..... procedure PintaGrid(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin If odd(dsAgenda.DataSet.RecNo) then begin dgAgenda.Canvas.Font.Color := clBlack; dgAgenda.Canvas.Brush.Color := clMoneyGreen; end else begin dgAgenda.Canvas.Font.Color := clBlack; dgAgenda.Canvas.Brush.Color := clWhite; end; if gdSelected in State then begin dgAgenda.Canvas.Font.Color := clWhite; dgAgenda.Canvas.Brush.Color := clSkyBlue; end else begin dgAgenda.Canvas.Font.Color := clBlack; end; dgAgenda.Canvas.FillRect(Rect); dgAgenda.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; e ai coloquei na criação do grid, mas não está aparecendo as linhas pintadas.... o que poderia ser ?. { Cria o DBGrid da Agenda ...} try dgAgenda := TJvDBGrid.Create(Self); with dgAgenda do begin Parent := pnAgenda; Align := alClient; Name := 'dgAge' + Dtm.QryPesquisar.FieldByName('ProNome').AsString; Options := [dgEditing, dgTitles, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]; Font.Size := 8; Font.Style := [fsBold]; DataSource := dsAgenda; //Adiciona as Colunas no dgAgenda Columns.Add; Columns.Items[0].FieldName := 'AgeHorIni'; Columns.Items[0].Width := 50; Columns.Items[0].Font.Size := 8; Columns.Items[0].Title.Caption := 'H. Inicial'; Columns.Items[0].Title.Font.Size := 8; Columns.Add; Columns.Items[1].FieldName := 'AgeHorFin'; Columns.Items[1].Width := 50; Columns.Items[1].Font.Size := 8; Columns.Items[1].Title.Caption := 'H. Final'; Columns.Items[1].Title.Font.Size := 8; Columns.Add; Columns.Items[2].FieldName := 'AgeCliente'; Columns.Items[2].Width := 50; Columns.Items[2].Font.Size := 8; Columns.Items[2].Title.Caption := 'Cliente'; Columns.Items[2].Title.Font.Size := 8; Columns.Items[2].Title.Font.Name := 'Arial'; OnDrawColumnCell := PintaGrid; end; except on E:Exception do begin ShowMessage('Erro ao criar DbGrid dgAge' + Dtm.QryPesquisar.FieldByName('ProNome').AsString + #10 + e.Message); exit; end; end;

aff..... Desculpas .... mas analisei melhor o meu codigo aqui e vi que sempre utilizava a mesma query para a consulta da agenda de varias profissionais e assim então limpava tudo....rsrsrs... resolvi assim....criando uma query em tempo de execução para cada....veja abaixo.... Resolvido ...... { Cria a Query da Agenda ...} try qrAgenda := TIBCQuery.Create(self); with qrAgenda do begin Name := 'qrAge' + Dtm.QryPesquisar.FieldByName('ProNome').AsString; Connection := Dtm.Dba; Transaction := Dtm.Tra; end; except on E:Exception do begin ShowMessage('Erro ao criar Query da Agenda qrAge' + Dtm.QryPesquisar.FieldByName('ProNome').AsString + #10 + e.Message); exit; end; end; {... Cria a Query da Agenda} { Cria o DataSource da Agenda ...} dsAgenda := TIBCDataSource.Create(self); with dsAgenda do begin Name := 'dsAge' + Dtm.QryPesquisar.FieldByName('ProNome').AsString; DataSet := qrAgenda; end; {... Cria o DataSource da Agenda} { Cria o DBGrid da Agenda ...} dgAgenda := TJvDBGrid.Create(Self); with dgAgenda do begin Parent := pnAgenda; Align := alClient; Name := 'dgAge' + Dtm.QryPesquisar.FieldByName('ProNome').AsString; Options := [dgEditing, dgTitles, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]; DataSource := dsAgenda; //Adiciona as Colunas no dgAgenda Columns.Add; Columns.Items[0].FieldName := 'AgeHorIni'; Columns.Items[0].Title.Caption := 'H. Inicial'; Columns.Add; Columns.Items[1].FieldName := 'AgeHorFin'; Columns.Items[1].Title.Caption := 'H. Final'; Columns.Add; Columns.Items[2].FieldName := 'AgeCliente'; Columns.Items[2].Title.Caption := 'Cliente'; end; {... Cria o DBGrid da Agenda} { Consulta os Clientes agendados na Profissional ...} with qrAgenda do begin Close; sql.Clear; sql.Add('Select AgeHorIni, AgeHorFin, AgeCliente From Bel_Agenda'); sql.Add(' where ProCodigo =:Pro'); ParamByName('Pro').AsString := ProCodigo; open; end; {... Consulta os Clientes agendados na Profissional} ......

Valeu Obrigado.....vou estudar sobre isso.....

Estou criando alguns grid's e datasource's em tempo de execução, porém as consultas que faço em uma Query para mostrar as informações no Grid não está mostrando.... Primeiro ponto eu consulto na tabela "Bel_Profissionais" as profissionais que estão ativas, pois para cada uma terá um grid com os horários e clientes. Dentro do resultado da consulta do primeiro ponto eu crio o DataSource e o Grid, o DataSource para ligar o o Grid e no DataSource eu já deixo ligado a QryAgenda que já é inclusa no formulário e por fim eu consulto para aquela profissional a sua agenda na Query QryAgenda, com isso acho que iria trazer os resultados, mas não trouxe nada.... Alguém pode me ajudar ? veja o codigo abaixo... // pesquisa as profissionais para montar a agenda with Dtm.QryPesquisar do begin Close; sql.Clear; sql.Add('Select ProCodigo, ProNome From Bel_Profissionais where ProAtivo = '+#39+'S'+#39); open; end; while not Dtm.QryPesquisar.Eof do begin { Cria o DataSource da Agenda ...} try dsAgenda := TIBCDataSource.Create(self); with dsAgenda do begin Name := 'dsAge' + Dtm.QryPesquisar.FieldByName('ProNome').AsString; DataSet := QryAgenda; end; {... Cria o DataSource da Agenda} except on E:Exception do begin ShowMessage('Erro ao criar ClientDataSet Cliente' + #10 + e.Message); exit; end; end; { Cria o DBGrid da Agenda ...} dgAgenda := TJvDBGrid.Create(Self); with dgAgenda do begin Parent := pnAgenda; Align := alClient; Name := 'dgAge' + Dtm.QryPesquisar.FieldByName('ProNome').AsString; Options := [dgEditing, dgTitles, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]; DataSource := dsAgenda; //Adiciona as Colunas no dgAgenda Columns.Add; Columns.Items[0].FieldName := 'AgeHorIni'; Columns.Items[0].Title.Caption := 'H. Inicial'; Columns.Add; Columns.Items[1].FieldName := 'AgeHorFin'; Columns.Items[1].Title.Caption := 'H. Final'; Columns.Add; Columns.Items[2].FieldName := 'AgeCliente'; Columns.Items[2].Title.Caption := 'Cliente'; end; {... Cria o DBGrid da Agenda} { Consulta os Clientes agendados na Profissional ...} with QryAgenda do begin Close; sql.Clear; sql.Add('Select AgeHorIni, AgeHorFin, AgeCliente From Bel_Agenda'); sql.Add(' where ProCodigo =' + Dtm.QryPesquisar.FieldByName('ProCodigo').AsString); open; end; {... Consulta os Clientes agendados na Profissional}

Bom pessoal, uma coisa que nunca tratei no meus projetos são os erro que faz fechar o sistema e até erros de relacionamento em tabela..... Então queria uma ajuda nisso... 1º Como faço para que antes de dar uns erros estranhos de access violation ele dá a mensagem do erro mas não fecha o sistema ? 2º Em alguns casos eu verifico manual fazendo um select para ver se o registro a ser excluido não está sendo usado, queria saber se tem como fazer algo como um trigger ou procedure ou até mesmo função para que antes de excluir verificar esse relacionamento e poder avisar o usuario que não pode excluir porque está relacionado com tal registro em tal tabela......como vou fazer isso ? Agradeço o auxilio..... abraços

Obrigado Jhonas.....

Pesquise na net e não consegui achar nada......então queria saber se tem como colocar um Edit na Barra do Formulário....tipo do lado do Caption do Formulário... Agradeço pela atenção...

Entendo Jhonas e agradeço pela atenção, vou tentar mais um pouco aqui, mas já desisntalei e instalei os drivers...vou tentar com a impressora generica para ver, mas o problema é a impressora mesmo porque em outras está funcionando perfeitamente...... Obrigado....

Jhonas, não estou conseguindo....já fi algumas coisas do manual mas não deu certo, já resetei....e tinha algo sobre limpar a font também fiz mas também não deu certo.....você não poderia me ajudar...? plis :(

poderia me ajudar ? pois nunca tinha visto isso, não sei como fazer

o pessoal da zebra não meu deu retorno, mas lembrei que ao imprimir a etiqueta no zebradesigner ele sai, então gerei imprimindo no ficheiro e ai peguei o código que gera.....mas olha como saiu.... Eu mandei imprimir "AÇÃO" e saiu assim......

nada também..... :wacko: será que não é problema nela mesmo ?

Eu tenho esse manual aqui, já consegui resetar...mas ainda continua o mesmo....já atualizei o Firmware dela, mas continua o mesmo......estranho...será que é problema nela mesmo ?

eu digitei ^default mas já informa que não é comando interno.....

Pessoal estou com um probleminha e não consegui resolver......... já alterei umas coisas no meu código, mas nada..... Tenho uma impressora que TLP 2844 que imprime normal os codigos de barras, até os caracteres especiais....mas em outra impressora também zebra e TLP 2844 não imprime os caracteres especiais....já mudei umas coisas e nada.... por exemplo.....na hora de imprimir a descrição do produto não sai a letra....tipo se fosse mandar imprimir descrição......ai ela imprime assim.......descri o simplesmente não sai a letra.....há....e tenho em 3 impressora da tlp 2844 q imprime mas essa.....não vai... abaixo o codigo que mando para ela.....se alguém puder me ajudar agradeço....valeu.... Q95,20 q712 rN D10 S4 ZT R56,0 N JB OD A685,63,2,1,1,1,N,"00000206" B510,0,0,1,2,10,30,N,"00000206" A682,83,2,1,1,1,N,"ANEL DE AÇO " A605,70,2,3,1,2,N,"R$ 2,98" A378,72,2,3,1,2,N,"R$ 12,98" A458,68,2,1,1,1,N,"00000036" B280,3,0,1,2,10,30,N,"00000036" A448,85,2,1,1,1,N,"BRINCO DE LAÇO" P1,3 N

Como você está fazendo para inserir um novo registro ? DENTRO DO APLICATIVO, NA OPÇÃO INSERIR NOVO Helio Fonseca dessa maneira fica dificil saber o porque do erro, se você não postar o código que você fez para salvar e as vezes como é a estrutura da tabela que você está inserindo o registro não vai ter como te ajudar, a Humildade começa por ai! Pesquise no google sobre esse problema: https://encrypted.google.com/#hl=pt-BR&...440&bih=785

Como você está fazendo para inserir um novo registro ?

Pesquisei e não achei nada parecido....queria mostrar o caption do TabSheet do PageControl e 2 linhas quando for nome muito grande....tem como ?

Valeu Jhonas, vou atualizar ele sim, mas não foi isso....agora pela manhã lembrei que o Quick Report pega todas as configurações também do windows, como a impressora, e ai eu tinha deixado a impressora de 40 colunas como padrão....por isso q sempre mostrava assim, tinha achado estranho mesmo....rsrs.... muito obrigado.

Pessoal meus relatórios do Quick Report começaram a cortar, já reinstalei o componente e ainda continua o mesmo, vejam a imagem abaixo: Alguém já teve esse problema, um Help

Alguém poderia me dar uma Ajuda ?? não consegui até agora isso.... não to entendendo.....

Otimo....valeu.....já ajudou muito....obrigado

Poderia me ajudar nesse caso, vou explicar melhor..... Preciso desenvolver um programinha que controla o MSN dos suportes, pois aqui na empresa...temos os suporte internos que utiliza o MSN aleatorios, mas mudando a cada 2 dias de MSN, isso acontece por causa dos clientes sempre querer falar no mesmo MSN. Então vamos supor..... Data Suporte MSN 01/08/2011 Robinho 10 01/08/2011 Andre 5 01/08/2011 Teste 1 02/08/2011 Robinho 10 02/08/2011 Andre 5 02/08/2011 Teste 1 03/08/2011 Robinho 1 03/08/2011 Andre 10 03/08/2011 Teste 5 04/08/2011 Robinho 1 04/08/2011 Andre 10 04/08/2011 Teste 5 Veja que no Dia 01/08 e 02/08 o Robinho esta no MSN 10 e no dia 03/08 e 04/08 está no MSN 1...então teria que de 2 em 2 dias mude a sequencia do MSN que são os MSN que vai ser logados por tais suportes....mas vamos supor.....teria que gerar uma logica para que ai consulta o dia 15/08/2011 saber em qual MSN o suporte Robinho vai estar. Mas um detalhe é que unica coisa que tenho salvo é o Codigo e Nome do Suporte o MSN tinha que usar uma logica para aquele MSN daquele suporte seja o mesmo do tal dia.

Pessoal tem como dar zoom (aumentar o tamanho) de um botão ao passar o mouse em cima dele, mas também redimensionar a imagem dele.....ou dá para fazer algo parecido? não necessário com speedbutto! estilo o rocketdock do seven, que quando passa o mouse os icones aumenta ...