BlackTDN

Source:  Github  Pivot* As tabelas pivot são ferramentas poderosas para analisar dados agregados em uma tabela dinâmica.  Alguns benefícios de usar tabelas pivot em consultas no SQL Server incluem: 1) Agrupamento de dados: As tabelas pivot permitem agrupar dados de várias linhas em uma única linha, tornando mais fácil de visualizar e comparar informações. 2) Análise de dados: As tabelas pivot podem ser usadas para gerar estatísticas, somas e médias de dados, o que é útil para análise de dados e tomada de decisão. 3) Filtro de dados: As tabelas pivot permitem filtrar dados de acordo com critérios específicos, facilitando a identificação de tendências e padrões. 4) Interatividade: As tabelas pivot podem ser usadas com ferramentas de visualização de dados, permitindo que os usuários explorem e interajam com os dados de maneira intuitiva. 5) Melhora na performance: As tabelas pivot são otimizadas para trabalhar com grandes conjuntos de dados, o que pode melhorar significativamente a perfor

  Source: Github Turnover Empresa: IF OBJECT_ID('tempdb..##tmp_table_turnover_empresa_20230124_001', 'U') IS NOT NULL DROP TABLE ##tmp_table_turnover_empresa_20230124_001 BEGIN WITH PERIODO AS ( SELECT DISTINCT SRD.RD_DATARQ PERIODO FROM SRD990 SRD WHERE SRD.D_E_L_E_T_='' AND SRD.RD_FILIAL<>'' GROUP BY SRD.RD_DATARQ UNION SELECT DISTINCT LEFT(SRA.RA_ADMISSA,6) PERIODO FROM SRA990 SRA WHERE SRA.D_E_L_E_T_='' AND SRA.RA_FILIAL<>'' GROUP BY LEFT(SRA.RA_ADMISSA,6) ) ,TURNOVER AS ( SELECT PERIODO.PERIODO , ISNULL((

 Vez ou outra recebo uns pedidos um tanto quanto inusitados. Este queria imprimir o CTBR040 (Balancete) por filial, NÃO considerando o parâmetro "Seleciona Filiais" (que não atendia às expectativas do cliente). Mas selecionando todas as filiais e totalizando-as no mesmo relatório. Eu disse.... Deixe-me pensar...... E, a resposta, acredito que já sabem qual foi: Sim. É possível. Mas terei que usar algumas funções de minha biblioteca. Quer experimentar? Lá vai o código: #include "totvs.ch" procedure u_CTBR040BlackTDN(wnRel) local aFiliais:=AdmGetFil() as array local cSVFilAnt:=cFilAnt as character local cSpaceQuadro as character local oReport as object //Todas as Privates definidas em CTBR040 devem ser inicializada aqui. private aSelFil:=Array(0) as array private aQuadro:=array(8) as array cSpaceQuadro:=Space(Len(CriaVar("CT1_CONTA"))) aFill(aQuadro,cSpaceQuadro) dfv():Default(@wnRel,ProcName()) //Obtem a