Boas galera, eu recentemente deparei com um problema que provavelmente alguem ja deu de cara tambem, e simples a gravacao em uma tabela do Firebird, com o generator, e gravando o 0 (zero) no registro do banco sendo ele Autoincrementor, bem da uma olhada pois deve estar faltando o "or (new.nome_registro = 0 ) ou seja ele so verifica se e "(new.registro Is Null) " e geralmente a gente coloca como 0 (zero).Vale a dica. Boas Galera depois de tanta busca, montei este relatorio no FastReport, para imprimir um contadorque ZERA com a mudanca do mes, e um titulo de MES/ANO para um cabecalho.procedure ImgLogoOnBeforePrint(Sender: TfrxComponent);var sMes: String; begin {Coloca um LOGO,CAMINHOLOGO e um atributo de uma tabela de filtro} if (Trim(<frxDBFiltro."CAMINHOLOGO">) <> '') then imgLogo.LoadFromFile(<frxDBFiltro."CAMINHOLOGO">); { O Atributo MES, ele foi colocado com extract do firebird, assim como o ANO, pela query, eu retorno como Variant, ou seja a transformacao se faz necessaria. } if (StrToInt(VarToStr(<frxDBRelatorioDescontos."MES">)) = 1) then sMes := 'JANEIRO'; if (StrToInt(VarToStr(<frxDBRelatorioDescontos."MES">)) = 2) then sMes := 'FEVEREIRO'; if (StrToInt(VarToStr(<frxDBRelatorioDescontos."MES">)) = 3) then sMes := 'MARCO'; if (StrToInt(VarToStr(<frxDBRelatorioDescontos."MES">)) = 4) then sMes := 'ABRIL'; if (StrToInt(VarToStr(<frxDBRelatorioDescontos."MES">)) = 5) then sMes := 'MAIO'; if (StrToInt(VarToStr(<frxDBRelatorioDescontos."MES">)) = 6) then sMes := 'JUNHO'; if (StrToInt(VarToStr(<frxDBRelatorioDescontos."MES">)) = 7) then sMes := 'JULHO'; if (StrToInt(VarToStr(<frxDBRelatorioDescontos."MES">)) = 8) then sMes := 'AGOSTO'; if (StrToInt(VarToStr(<frxDBRelatorioDescontos."MES">)) = 9) then sMes := 'SETEMBRO'; if (StrToInt(VarToStr(<frxDBRelatorioDescontos."MES">)) = 10) then sMes := 'OUTUBRO'; if (StrToInt(VarToStr(<frxDBRelatorioDescontos."MES">)) = 11) then sMes := 'NOVEMBRO'; if (StrToInt(VarToStr(<frxDBRelatorioDescontos."MES">)) = 12) then sMes := 'DEZEMBRO'; Memo2.Text := Lowercase(sMes)+' / '+VarToStr(<frxDBRelatorioDescontos."ANO">); end;{Este codigo esta escondido,para posterior utilizacao} //procedure frxDBRelatorioFiliadosFIL_CEPRESOnBeforePrint(Sender: TfrxComponent);//begin// FormatMaskText('00000\-000;0;_',<frxDBRelatorioFiliados."FIL_CEPRES">);//end;procedure Memo6OnBeforePrint(Sender: TfrxComponent);var iContador: Integer; sMudaMes : String; begin { esta rotina faz a mudanca de contagem de linha de registro para quando o mes for diferente. } if (sMudaMes <> VarToStr(<frxDBRelatorioDescontos."MES">) ) then begin sMudaMes := VarToStr(<frxDBRelatorioDescontos."MES">); iContador := 0; inc(iContador); end else begin inc(iContador); end; Memo6.Text := IntToStr(iContador); end; Para pesquisar no FIREBIRD, utilizando em Delphi a busca por string conforme o 'sSql' abaixoprocedir da seguinte forma, converti a data para string e inverti colocandona frente o mes/dia/ano para poder fazer este tipo depesquisa, sem que seja utilizado parametro, esta forma serve para pesquisar naomexendo no parametro da busca, nao podemos esquecer de colocar o 'YYYY' em maiusculoEx. sAno := FormatDateTime('YYYY',deDataPublicacao.Date); sDia := FormatDateTime('dd',deDataPublicacao.Date); sMes := FormatDateTime('mm',deDataPublicacao.Date); sDataBusca := sMes+'/'+sDia+'/'+sAno; sSql := 'select pub.*,fil.fil_inscricao,ass.ass_descricao '+ ' from publicacoes_pub pub '+ ' inner join filiados_fil fil '+ ' on(pub.fil_codigo=fil.fil_codigo) '+ ' inner join assuntos_ass ass '+ ' on(pub.ass_codigo=ass.ass_codigo) '+ ' where (pub.PUB_DTDO = Cast(' + QuotedStr(sDataBusca)+' as Date)) '+ ' order by pub.PUB_CODIGO' ; dmAchar.cdsAchar.Close; dmAchar.cdsAchar.CommandText := sSql; dmAchar.cdsAchar.Open; Boa noite galera, eu criei um programa de envio de email em Delphi, que gostaria de testar em outros servidores de internet, se alguem se habilitar em testar e ate melhorar manda o email para mim que mando um link do dropbox para que possa ser baixado, ok essa e a cara dele.aqueles que desejarem podem mandar email, acho que vcs vao se divertir.Abraco a todos Boa noite amigos, tive um problema monstro com o JSTL, no