Pular para o conteúdo principal

Postagem em destaque

Postado por

BlackTDN :: Como Criar Relatórios de Cotações com Dados Agrupados Usando SQL

img: DALL·E 2024-08-09 07.00.00 - A high-quality image showcasing a detailed SQL query being written in a code editor, such as VS Code, on a dark theme background. ... ## Como Criar Relatórios de Cotações com Dados Agrupados Usando SQL Quando trabalhamos com sistemas ERP e precisamos gerar relatórios de cotações que apresentam dados de múltiplos fornecedores, é comum encontrarmos a necessidade de pivotar registros que, originalmente, são apresentados de forma vertical. Isso é especialmente útil quando o objetivo é comparar preços ou condições de diferentes fornecedores para um mesmo produto em uma única linha do relatório. Neste artigo, vamos explorar uma abordagem para transformar registros verticais em colunas, facilitando a impressão de relatórios que consolidam informações de vários fornecedores em uma única linha. Vamos utilizar SQL com técnicas de pivotagem, e ao final, mostraremos como estender essa técnica para um número variável de fornecedores. ### Estrutura do Relatór
Postar um comentário
Leia mais
Marcadores
Postado por

BlackTDN :: Devaneio em ADVPL

Realize:

u_devaneio.prg

#include "tryexception.ch"
User Function DevMain()

    Local lRet := .F.

    lRet := InternalMain()        //OK
    IF ( lRet )
        lRet := ExternalMain()    //OK
    EndIF   

    Static Function InternalMain()
        Local lRet := .T.
        BEGIN SEQUENCE
            //...statements
        END SEQUENCE
    Return( lRet )

Return( lRet  )

Static Function ExternalMain()
    Local cInt
    Local cMsg
    Local lRet    := .F.
    TRYEXCEPTION
        //Originalmente
        *InternalMain()
        //Mas, para forcar o erro...
        cInt := "InternalMain"
        lRet := &cInt.(x,y)          //OOps
    CATCHEXCEPTION
        cMsg := "Undefined InternalMain()" 
        ConOut( cMsg )
        MsgInfo( cMsg , ProcName(1) )
        TRYEXCEPTION
            lRet := U_DevMain():InternalMain()   //OK (hehe.. seria duca)
        CATCHEXCEPTION   
            cMsg := "OOps++"
            ConOut( cMsg )
            MsgInfo( cMsg , ProcName(1) )
        ENDEXCEPTION   
    ENDEXCEPTION   
Return( lRet )

[]s

иαldσ dj

Enviar esta postagem
Marcadores:

Comentários

  1. Gustavo24 de fevereiro de 2012 às 18:31

    Naldo, Cara... procura tratamento psicológico com um profissional especializado, isso não é normal não... risos...

    Mais uma vez parabéns... Cada post mais impressionante que o outro...

    ResponderExcluir
  2. иαldσ dj24 de fevereiro de 2012 às 18:48

    um mero devaneio....

    ResponderExcluir
  3. Gustavo25 de fevereiro de 2012 às 14:19

    Fui testar e está dando erro no u_Main:InternalMain()

    THREAD ERROR (Gustavo, GUSTAVO-PC) 25/02/2012 14:18:13
    invalid class MAIN on EXTERNALMAIN(DEVANEIO.PRW) 25/02/2012 14:16:13 line : 29
    [TOTVS build: 7.00.111010P-20120120]

    Build, RPO, Patch e Lib Atualizadíssimos.

    ResponderExcluir
  4. иαldσ dj25 de fevereiro de 2012 às 14:29

    Hehe. Gustavo, você não foi o primeiro (rs) e, como disse, não passou de um devaneio.

    Não é possível fazer isso em ADVPL não. (hehe). Só doideiras de alguém que um dia foi são.

    Quem sabe na versão 47324123456890123097671829...

    ResponderExcluir
    Respostas
    1. Gustavo25 de fevereiro de 2012 às 14:43

      ah tah... por um instante acreditei que o AdvPl estava evoluído ao ponto de internamente criar uma classe para as funções criadas, apenas uma esperança vã... rssss

      Más a seria interessante...

      Excluir
    2. иαldσ dj25 de fevereiro de 2012 às 14:47

      de fato. mas vamos que vamos que o som não pode parar

      Excluir
    3. иαldσ dj26 de fevereiro de 2012 às 00:54

      alterei o código para simular a idéia do devaneio....

      Excluir

Postar um comentário

Postagens mais visitadas