Pirambu!

Estou elaborando um relatorio de Produto. e pra cada produto eu tenho as pecas e algumas peças eu tenho as sub peças, usando codigo SQL. eu consiguir montar o relatorio, eu usei 3 "QRGroup" o exemplo Produto peça A - QRGroup1 Peça B Peça B1 - QRGroup2 Peça B1.1 - Detalhe Peça B1.2 - Detalhe Peça B1.3 - Detalhe Peca B2 Peca C O Problema e quando no QRGroup não sub-peca fica um espaço enorme, queria saber se tem como eu ocultar o "QRGroup" quando o valor for Null? fica Assim Produto peça A - QRGroup1 - - - - Peça B Peça B1 - QRGroup2 Peça B1.1 - Detalhe Peça B1.2 - Detalhe Peça B1.3 - Detalhe Peca B2 - Peca C Alguém sabe como posso resolver este problema?

Olha isso talvez possa ajudar: Link

Denis, Nào precisava do do "StoredProc" que eu tinha colocado apenas o "UpDate" então na Zquery indica o UpDate e deixa true o "Cached" e no UpDate indica qual a tabela do banco de dados e gera os codigo. Mas, o meu problema era que eu tinha uma query para realizar uma consulta do codigo ou descricão se estava cadastrando ou não, se estivesse ele indicava que a peça já tinha sido cadastrada. E quando eu ia apenas fazer uma modificação na Revisao ou descrição ele não aceitava salvar, porque identificava o codigo da peça no banco, e não permitia que fosse salvo qualquer modificação. eu Conseguir resolver desta forma, indicando que a consulta fosse feita apenas quando eu estivesse inserindo um novo registro, assim: if Dados.ZQpeca.States = Dsinsert then begin //realizava a consulta. with Queryconsulta do begin .... end; end;

Cara pra você adicionar a data automaticamente quando for adicionar um registro a melhor forma é assim:no Eventos da query de dois click em "OnNewRecord" QueryChequesCheDatadeCastro.AsDateTime := Date; não precisa de "(date)". para fazer este calculo, na tabela você configura os campos assim: tamanho do Campo:"Simples" e formato "Padrão"se não o campo não identifica as casa decimais. Quando for fazer os Calculo tenta "Query....AsFloat" em vez de "Query.....Values" Obs.: Quando você alterar os campo no Banco De Dados você tem que Atualizar os Campos na Tabela dentro do Delphi ver ser da certo?

Denis, eu já deixei RequestLive como True, será que isso ajuda quando eu click duas vezes no ZStoredProc1 aparece uma tela para adicionar os campos e quando mando adcionar aparece este erro "Unsuported Operation"

Denis, Selecionei a ZqPeca (ZQuery) e cliquei com o botão direito e não apareceu esta opcão "All Field", eu tentei também excluir os campo e adicinar novamente mas não adiantou.

Eu fiz assim adicionei um Zupdate(nome: UpdatePeca) e um ZStoredProc1(nome: StoredProcPeca) Query -> Zqpeca: Conectado ao banco - ok Propriedade: UpDateObject ->UpdatePeca ZStoredProc1 -> StoredProcPeca Conectado ao banco - ok Propriedade: UpDateObject ->UpdatePeca. propriedade: CachedUpDate - > true. Zupdate - > UpdatePeca nesse dei dois click a pareceu um tela em Table name eu indiquei a o Nome da Tabela do Banco de Dados "Pecas" e clicquei em "Generete SQL" e criou os codigo de Modif, Insert, Deleter, de Cliquei em Ok, mas quando dou dois click novamente aparece um erro assim "Unable To Determine Field Names for Zstoredproc1" daqui pra frente não sei mais o que fazer.

Denis Courcy, Como eu posso fazer a consulta do codigo quando for cadastrar outra peça? para cadastrar a peça, eu estou usando esses codigos Dados.Zqpeca.append; // Adicionar Dados.ZqPeca.post;//Salvar eu devo mudar também?

Estou com um problema quando vou salvar um registro, criei um cadastro de peças com Banco de Dados MySql, e tem os seguintes campos codigo - Varchar(10) Peca - Varchar(60) revisao - char(2) Data - Date e no form adicionei uma query para fazer a consulta do Codigo quando for adicionada uma nova peça, até ai tudo bem quando o codigo já existir ele retorna avisando que codigo já foi cadastrado, mas quando eu vou apenas alterar a descrição da peça ele faz consulta e diz que já existe uma peça com o código não permitindo que eu salve a alteração. Obs.: não estou usando Ztable, estou usando ZQuery para fazer o cadatro. Alguém sabe como eu posso resolver isso?

Bruno desta forma fica muito complicado fazer uma consulta, porque você não fez a consulta dentro do próprio form usando um query? ou Criando um Form de pesquisa de Funcionário onde você pode escolher ser que fazer a consulta por nome, Matricula ou dataadimissão e etc...

Cara, tem tenta colocar assim ...:= FloatToStr(TabelaCampo.value); ou ...:= IntToStr(TabelaCampo.value);

Cara mostra os campos da tabela que contém os valores que você quer somar por cliente, porque se na tabela não estar ligada com a tabela de Cliente e existe apenas o codigo do cliente ficaria assim: Adiciona um TQuery e na propriedade em SQL o codigo abaixo: With Query do begin Close; Sql.Clear; Sql.Add('Select codigoCliente, Sum(Valor)As Total From Contas_Receber'); Sql.Add('Group by CodigoCliente '); open; end;

Cara, dá uma olhada neste Link

Cara, você já tentou agrupar (Group By) Assim: With Query do begin Close; Sql.Clear; Sql.Add('Select CR.codigoCliente, C.Cliente, Sum(CR.Valor)As Total From Contas_Receber CR Left Join Cliente C'); Sql.Add('On CR.CodigoCliente = C.Codigocliente'); Sql.Add('Group by CR.codigoCliente, C.Cliente '); open; end; ver se isso te ajuda?

Com esse codigo do exemplo abaixo, acredito que resolva seu problema, note que é usado um "Seperadador" onde é especificado ";" então ele vai identifica-lo e passa para o outro campo. const Separador = ';'; var CSVFile: TextFile; szLine: String; begin AssignFile(CSVFile, 'C:\Treinamento.txt'); Reset(CSVFile); while not EOF(CSVFile) do begin Readln(CSVFile, szLine); table1.Append; table1codigo.Value := StrtoInt(Copy(szLine, 1, Pos(Separador, szLine) -1)); Delete(szLine, 1, Pos(Separador, szLine)); table1nomecurso.Value := StrtoInt(Copy(szLine, 1, Pos(Separador, szLine) -1)); Delete(szLine, 1, Pos(Separador, szLine)); table1.Post; end; ver se isso ajuda.

Simples assim. Valeu pela dica, funcionou.

Cara, tem alguns campos que você tá tentando importar como "Integer" tem que passar para "String" dá uma ohada nisso: DM.cdsImportacaonome.Value := (Copy(szLine, 1, Pos (Separator,szLine) -1));

Estou tentando usar um DBLookupComboBox1 Carregando informações de um ADOStoredProc1 alguém sabe como funciona? Estou usando banco de dados em ACCESS, e não quero usar ADOTable, apenas ADOQuery, mas tem algumas informações que preciso usar um DBLookupComboBox1 e não queria ter que usar uma ADOTable para carregar informações para ele. para DBE com banco em paradox já usei para um DBLookupComboBox1 com StoredProc1 + UpdateSQL1 e funcionou sem problema. gostaria de fazer algo parecedo para o ADO. se alguém tiver ideia de como resolver este problema, agradeço.

ItaSouza, neste tópico você encontra tudo que precisa sobre exportação para Txt.Exportar para TXT

EdSouzza, existem várias formas de fazer este loop, uma que eu uso muito é assim: Proc.... Var Num:Integer; begin Num:=0; while num < 3 do begin //realiza o Comando. //Depois dá continuidade ao loop. Num:= Num + 1; end; end; O loop vai exister enquanto o "Num" for menor que "3" ou você pode usar um valor externo.

Carlos , eu testei essa forma com uma tabela em PARADOX e deu certo CODE with Query1 do begin Close; Sql.Clear; Sql.Add('Select * from Tabela'); sql.Add('Where DataNascimento between :A and :B'); params[0].AsDate:= StrToDAte(Edit1.Text); Params[1].AsDate:= date; open; end; tú verificou se o tipo do campo da tabela estar como "Date"?

Carlos, Tenta desta forma. with Query1 do begin Close; Sql.Clear; Sql.Add('Select * from Tabela'); sql.Add('Where DataNascimento between :A and :B'); params[0].AsDate:= StrToDAte(Edit1.Text); Params[1].AsDate:= date; open; end; para os Parametros tem estar em forma de DATA.

Denis Courcy, era isso mesmo, funcionou certinha, valeu pela dica. abraços.

Estou tentando usar o MySql, tentei conectar a tabela que criei "Tabela1", mas não Conseguir Tentei usar o Database(DBTables) e ADOConnection(TADOConnection)mas conseguir fazer a conexão. Alguém pode me dá uma ajuda de como eu devo fazer.

Eu criei um aplicativo no Com o banco de dados ACCESS, só que preciso colocar em outro computador sem que eu precise abrir a fonte e indicar o banco, eu já vir um arquivo que fica separado, que permitia indicar onde estar o banco de dados mas não sei como fazer alguém pode me ajudar? :unsure: