ORACLE - Listar meses com data inicial e final de cada mês

Segue queries para gerar lista de meses com data inicial e final de cada mês:

SELECT
TO_CHAR(TRUNC (ANOBASE, 'YEAR'), 'YYYY') ANO,
TO_CHAR(LEVEL, '00') MES,
((SELECT ADD_MONTHS (TRUNC (ANOBASE, 'YEAR'), -1) FROM DUAL) + numtoyminterval(level,'month')) as DTINI, 
LAST_DAY ((SELECT ADD_MONTHS (TRUNC (ANOBASE, 'YEAR'), -1) FROM DUAL) + numtoyminterval(level,'month')) as DTFIN 
from (SELECT TO_DATE('01/01/2022') ANOBASE from dual)
connect by level <= 12

Exemplo de saída:

Depois disso basta dar um join em outra tabela que desejar e usar as datas geradas para subconsultas.

Delphi caro - preço do RAD Studio / Delphi 10 / 10.1 Seattle / Berlim

Gostaria de falar sobre o aumento nos preços das uma licenças do RAD Studio / Delphi em todas as versões.

Nos últimos anos, por muitas vezes, li na web e ouvi de amigos que o Delphi não vale mais a pena, que está sendo abandonado por muitos que migram para outras ferramentas e que há ótimas alternativas opensouces.

Confirmamos uma forte queda nos rankings de ferramentas mais usadas (veja abaixo ou em http://www.tiobe.com/tiobe-index:

Mesmo assim, acredito na ferramenta e estava na iminência de comprar uma licença do mesmo quando fui surpreendido pelo valor da licença da versão Enterprise que foi de R$ 5.172,41 para R$ 18.097,10. Enterprise é a versão (mínima para mim) pra se trabalhar com banco de dados, mas a situação é mais berrante ainda com a versão Architect (ideal para mim) que custava menos de 7 mil reais e aumentou para uma realidade remota de 29 mil reais.

Vejam dois orçamentos que pedi:

Delphi XE3

DELPHI 10.1 BERLIM

No novo formato ainda hã um pequeno detalhe que me dá medo em relação à atualização de 12 meses. O desenvolvimento para Android e IOS está em constante atualização, onde novos recursos surgem e outros se tornam obsoletos com alta frequência. Desta forma fica a pergunta: E após os 12 meses, vou tem que ficar comprando a atualização que também é um absurdo? Complicado.

Acredito que a Embarcadero do Brasil está no mundo da lua, pois não consideram que os desenvolvedores já desanimados com a ferramenta, que há uma forte crise, clientes que não investem nessa área e não estão dispostos a pagar por um sistema, nós desenvolvedores, principalmente os que trabalham por conta própria estão vendo seus clientes falirem e fechar o negócio, enquanto a venda de novos sistemas simplesmente parou,

Isso me fez tomar novos rumos e abrir meus olhos e ver que há ótimas alternativas de sair da zona de conforto. Ainda não decidi totalmente, mas estou indo no caminho de que R$ 29.000,00 dá pra se comprar um carro ou um terreno e que vale apena SIM economizar esse valor e ir pro opensource onde não há surpresas desse tipo.

No momento estou indo na seguinte trilha:

• Windows/Linux: Java;
• Android: Android Studio (excelente e sempre atualizado);
• IOS: Swift (excelente e sempre atualizado);
• Web: HTML5, CSS3, PHP e JavaScript;

SQL Server Azure - Query retornando data e hora ajustada com o fuso horário

Para quem está usando SQL Server Azure (funciona também com instância local), segue dica de um query que retorna o horário ajustado de acordo com a timezone informada no formato float.

No exemplo ultilizaremos a timezone -3:

declare @HorDif float = -3
select DATEADD(HH, @HorDif, GETUTCDATE ()) as Resultado

SQL Server - Controlar ID de autoincremento (Alternativa ao autoinc do SQL)

Se você precisa controlar suas IDs (identidade, identity, autoinc), segue uma dica de como fazer isso sem dar locks em tabelas, o que seria um grande problema de desempenho.

1 - Crie a tabela que armazenará os últimos IDs usados:

CREATE TABLE [dbo].[IDs]
(
    IDNom nvarchar(255) NOT NULL,
    IDUlt int NULL,
    CONSTRAINT [PK_tblIDs] PRIMARY KEY CLUSTERED
    (
        [IDNom] ASC
    ) WITH
    (
        PAD_INDEX = OFF
        , STATISTICS_NORECOMPUTE = OFF
        , IGNORE_DUP_KEY = OFF
        , ALLOW_ROW_LOCKS = ON
        , ALLOW_PAGE_LOCKS = ON
        , FILLFACTOR = 100
    )
);
GO

2 Crie a StoredProcedure que vai retornar o novo ID a cada solicitação e registrar seu uso na tabela anterior (SP criada por Max Vernon e Mike Defehr e fiz algumas alterações):

CREATE PROCEDURE [dbo].[ProxID](
    @IDName nvarchar(255)
)
AS
BEGIN

    DECLARE @Retry int;
    DECLARE @EN int, @ES int, @ET int;
    SET @Retry = 5;
    DECLARE @NewID int;
    SET TRANSACTION ISOLATION LEVEL SERIALIZABLE;
    SET NOCOUNT ON;
    WHILE @Retry > 0
    BEGIN
        BEGIN TRY
            UPDATE dbo.IDs
            SET @NewID = IDUlt = IDUlt + 1
            WHERE IDNom = @IDName;

            IF @NewID IS NULL
            BEGIN
                SET @NewID = 1;
                INSERT INTO IDs (IDNom, IDUlt) VALUES (@IDName, @NewID);
            END
            SET @Retry = -2; /* no need to retry since the operation completed */
        END TRY
        BEGIN CATCH
            IF (ERROR_NUMBER() = 1205) /* DEADLOCK */
                SET @Retry = @Retry - 1;
            ELSE
                BEGIN
                SET @Retry = -1;
                SET @EN = ERROR_NUMBER();
                SET @ES = ERROR_SEVERITY();
                SET @ET = ERROR_STATE()
                RAISERROR (@EN,@ES,@ET);
                END
        END CATCH
    END
    IF @Retry = 0 /* must have deadlock'd 5 times. */
    BEGIN
        SET @EN = 1205;
        SET @ES = 13;
        SET @ET = 1
        RAISERROR (@EN,@ES,@ET);
    END
    ELSE
        SELECT @NewID AS NovoID;
END
GO

Pronto!

Agora é só usar a SP passando como parâmetro um nome qualquer (no meu caso uso o nome da tabela).
Se não existir, a SP cria automaticamente e retorna o valor 1.
Se já existir ela retorna o novo valor na sequencia.

Exemplo:

Função para formatar números de telefone com ou sem DDD e com ou sem nono dígito

Função Delphi para formatar números de telefone com ou sem DDD e com ou sem nono dígito:

function FormataFone(sTelefone: String): String;
var
  s: string;
  tam: Integer;
begin
  s  := FilterChars(sTelefone, ['0'..'9']);

  // Retira zero inicial se houver
  if Copy(s,1,1) = '0' then
  begin
    s := Copy(s,2,Length(s)-1);
  end;

  case Length(s) of
    8: // 4455-6677
      begin
        Result:= Copy(s,1,4)+'-'+Copy(s,5,4);
      end;
    9: / / 9 8877-6655
      begin
        Result:= Copy(s,1,1) + ' ' + Copy(s,2,4)+'-'+Copy(s,6,4);
      end;
    10: // (85) 8877-6655
      begin
        Result:= '('+Copy(s,1,2)+') '+Copy(s,3,4)+'-'+Copy(s,7,4);
      end;
    11: // (85) 9 8877-6655
      begin
        Result:= '('+Copy(s,1,2)+') ' + Copy(s,3,1) + ' ' +Copy(s,4,4)+'-'+Copy(s,8,4);
      end;
    else
      Result:= s;
  end;

FastReport - Imprimir ReportSummary no rodapé da página (bottom)

Para imprimir o ReportSummary basta usar o seguinte comando no evento OnBeforePrint:

procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);
begin
  Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 1;  
end;

Resultado:

Esta dica serve para qualquer tipo de banda. A propriedade Engine.CurY na verdade é a altura que de deve ser utilizada para a impressão do próximo componente.

Delphi - Arredondamento de valores

Essa função de arredondamento de valor monetário tem opcão de arredondar para mais ou para menos:

function ArredDinheiro(Fracao: Double; Cima : Boolean): Double;
var
  Sinal : integer;
begin
  Fracao := Fracao * 100;
  // Sng
  if Frac(Fracao) < 0 then
    Sinal := -1
  else if Frac(Fracao) = 0 then
    Sinal := 0
  else
    Sinal := 1;
  if Cima then
  begin
    Result := (Int(Fracao) + (Sinal));
  end
  else
  begin
    Result := Int(Fracao);
  end;
  Result := result / 100;
end;

Outras funções de arredondamento que podem ser úteis:

function Sgn(X: Extended): Integer;
{ Retorna -1, 0 or 1 de acordo com o sinal do argumento }
begin
  if X < 0 then
    Result := -1
  else
    if X = 0 then
      Result := 0
    else
      Result := 1;
end;
function RoundUp(X: Extended): Extended;
{ Retorna o primeiro inteiro maior que ou igual a um
  dado número em valor absoluto (o sinal e preservado).
  RoundUp(3,3) = 4    RoundUp(-3,3) = -4 }
begin
  Result := Int(X) + Sgn(Frac(X));
end;
function RoundDn(X: Extended): Extended;
{ Retorna o primeiro inteiro menor que ou
  igual a um dado número em  valor absoluto (o sinal é preservado).
  RoundDn(3,7) = 3    RoundDn(-3,7) = -3
begin
  Result := Int(X);
end;
function RoundN(X: Extended): Extended;
{ Arredonda um número "normalmente": caso a parte de fração
  seja >= 0,5 o número será arredondado “para cima” (ver RoundUp)
  caso contrário, se a parte de fração for < 0,5, o
  número será arredondado “para baixo” (ver RoundDn).
  RoundN(3,5) = 4     RoundN(-3,5) = -4
  RoundN(3,1) = 3     RoundN(-3,1) = -3 }
begin
  (*
  if Abs(Frac(X)) >= 0.5 then
    Result := RoundUp(X)
  else
    Result := RoundDn(X);
  *)
    Result := Int(X) + Int(Frac(X) * 2);
end;
function Fix(X: Extended): Extended;
{ Retorna o primeiro inteiro menor que ou
  igual a um dado número.
  Int(3,7) = 3          Int(-3,7) = -3
  Fix(3,7) = 3          Fix(-3,1) = -4 }
begin
  if (X >= 0) or (Frac(X) = 0) then
    Result := Int(X)
  else
    Result := Int(X) - 1;
end;
function RoundDnX(X: Extended): Extended;
{ Retorna o primeiro inteiro menor que ou
  igual a um dado número.
  RoundDnX(3,7) = 3     RoundDnX(-3,7) = -3
  RoundDnX(3,7) = 3     RoundDnX(-3,1) = -4 }
begin
  Result := Fix(X);
end;


function RoundUpX(X: Extended): Extended;
{ Retorna o primeiro inteiro maior que ou
  igual a um dado número.
  RoundUpX(3,1) = 4     RoundUpX(-3,7) = -3 }
begin
  Result := Fix(X) + Abs(Sgn(Frac(X)))
end;
function RoundX(X: Extended): Extended;
{ Arredonda o número "normalmente", porém levando em conta o sinal:
  se a parte de fração for >= 0,5, o número
  será arredondado “para cima” (ver RoundUpX)
  caso contrario, se a parte de fração for < 0,5,

  o número será arredondado “para baixo” (ver RoundDnX).
  RoundX(3,5) = 4     RoundX(-3,5) = -3 }
begin
  (*
  if Abs(Frac(X)) >= 0,5 then
    Result := RoundUpX(X)
  else
    Result := RoundDnX(X);
  *)
    Result := Fix(X + 0.5);
end;