SET TERM !! ;EXECUTE BLOCK ASDECLARE VARIABLE stmt VARCHAR(1000);BEGINFOR SELECT 'SET GENERATOR ' || RDB$GENERATOR_NAME || ' TO 0;' FROM RDB$GENERATORS WHERE (RDB$SYSTEM_FLAG IS NULL) OR (RDB$SYSTEM_FLAG <> 1) AND NOT RDB$GENERATOR_NAME STARTING 'IBE$' ORDER BY RDB$GENERATOR_NAME INTO :STMTDO EXECUTE STATEMENT :STMT;END!!SET TERM ; !! unit Periodo;interfaceuses SysUtils, DateUtils;type TPeriodo = Record private FDataFinal: TDateTime; FDataInicial: TDateTime; procedure SetDataFinal(const Value: TDateTime); procedure SetDataInicial(const Value: TDateTime); function DataDBFormat(const Value: TDateTime): String; public property DataInicial: TDateTime read FDataInicial write SetDataInicial; property DataFinal: TDateTime read FDataFinal write SetDataFinal; Constructor Create(Di, Df: TDateTime); procedure SetIntervaloAnual(Anoi, Anof: Integer); function GenerateSQL(FieldI: String): String; end;implementation{ TPeriodo }constructor TPeriodo.Create(Di, Df: TDateTime);begin DataInicial := Di; DataFinal := Dfend;function TPeriodo.DataDBFormat(const Value: TDateTime): String;begin Result := FormatDateTime('mm/dd/yyyy hh:mm:ss', Value);end;function TPeriodo.GenerateSQL(FieldI: String): String;Const sql: String = '%s between ''%s'' and ''%s'' ';begin Result := Format(sql, [FieldI, DataDBFormat(DataInicial), DataDBFormat(DataFinal)]);end;procedure TPeriodo.SetDataFinal(const Value: TDateTime);begin FDataFinal := EncodeDateTime(Yearof(Value), MonthOf(Value), Dayof(Value), 23, 59, 59, 999);end;procedure TPeriodo.SetDataInicial(const Value: TDateTime);begin FDataInicial := EncodeDateTime(Yearof(Value), MonthOf(Value), Dayof(Value), 0, 0, 0, 0);end;procedure TPeriodo.SetIntervaloAnual(Anoi, Anof: Integer);begin DataInicial := EncodeDate(Anoi, 1, 1); DataFinal := EncodeDate(Anof, 12, 31);end;end. Medidor de Velocidade Quem utiliza o Firebird como banco e quiser testar essa dica, fique a vontade.gbak -c -v -t -p 4096 -rep A:\banco.fbk A:\BANCO.FDB -user SYSDBA -password masterkey -FIX_FSS_D ISO8859_1 -FIX_FSS_M ISO8859_1 function IIf(Expressao: Variant; ParteTRUE, ParteFALSE: Variant): Variant;begin if Expressao then Result := ParteTRUE else Result := ParteFALSE;end; Empresa: Conerge EngenhariaDesenvolvimento de folder institucional para divulcar os servicos tecnicos que a empresa oferece. Caderno Organizer para brinde de final de ano. Outubro 2010 Empresa: Mendes TurCriacao e desenvolvimento de artes para a empresa Mendes Tur, promotora do Cruzeiro Cultura & Lazer 2011 - Pecas: Banners, Folhetos, Caderno Organizer, E-mails Marketing e convites. - Marco 2011 Studio Group DesignCamiseta promocional dos 10 anos - Group Design Empresa BrasrouteDesenvolvimento de pasta comercial e cartao de visitas personalizado - Setembro 2009 Overside SportswearCriacao de estampa para camiseta meia manga - Colecao Verao 2011 Empresa: Demar GraficaDesenvolvimento de folder institucional para a Demar Grafica. Foi utilizado na producao, papel reciclado. Agosto 2008 Overside SportswearCriacao de estampa para camiseta meia manga - Colecao Verao 2011 Empresa: Somar - Administracao de Bens & ConsultoriaDesenvolvimento de logomarca, papelaria e folder institucional para a empresa - Julho 2010 Overside SportswearCriacao de estampa para camiseta meia manga - colecao Verao 2011 Overside SportswearCriacao de estampa para camiseta meia manga - Colecao Verao 2011 De repente a vida muda aos 39 anosAngela nao sabia como seria ou o que faria, tudo o que era constante em sua vida desaparece, mas como Deus tem planos para cada um, colocou pessoas maravilhosas ao seu lado e otimismo para comecar tudo de novo. Falar, ler, lembrar,..., realmente comecar tudo de novo.Hoje eu agradeco a Deus, vejo meu filho crescer, abraco mais minha familia e amigos e me encontrei com a fotografia. Ganhei muito mais...Hoje sinto a criatividade!Os numeros, as contas, hoje nao sao mais importantes, falar errado, nao me preocupa, e memoria... para que servem as anotacoes...Renascimento...Todos nos podemos nascer de novo!Eu nasci!RenascimentoArte fotografica de Angela Calgam Visitacao: 10 de agosto a 27 de setembro das 9h as 17h.Local: Rua