CoreDash

#INCLUDE "TOTVS.CH"
#INCLUDE "RESTFUL.CH"
 
//-------------------------------------------------------------------
/*/{Protheus.doc} WSCardsCustomer
    Exemplo de API de integração de Cards
  
    @author     Squad CRM & Faturamento
    @since      13/04/2022
    @version    12.1.33
/*/
//-------------------------------------------------------------------
WSRESTFUL CardsCustomer DESCRIPTION "Cards de Clientes"
    WSDATA Fields           AS STRING   OPTIONAL
    WSDATA Order            AS STRING   OPTIONAL
    WSDATA Page             AS INTEGER  OPTIONAL
    WSDATA PageSize         AS INTEGER  OPTIONAL
  
    WSMETHOD POST itemsDetails ;
        DESCRIPTION "Carrega os Itens Utilizados para Montagem do Painel" ;
        WSSYNTAX "/cards/itemsDetails/{Order, Page, PageSize, Fields}" ;
        PATH "/cards/itemsDetails";
        PRODUCES APPLICATION_JSON
  
    WSMETHOD GET cardFilter;
        DESCRIPTION "Disponibiliza os campos que poderão ser utilizados no filtro do Card" ;
        WSSYNTAX "/cards/cardFilter/" ;
        PATH "/cards/cardFilter";
        PRODUCES APPLICATION_JSON
  
    WSMETHOD GET cardInfo;
        DESCRIPTION "Carrega as informações do Painel" ;
        WSSYNTAX "/cards/cardInfo/" ;
        PATH "/cards/cardInfo";
        PRODUCES APPLICATION_JSON
  
    WSMETHOD GET fieldsInfo ;
        DESCRIPTION "Carrega os campos que podem que ser utilizados" ;
        WSSYNTAX "/cards/fieldsInfo/" ;
        PATH "/cards/fieldsInfo";
        PRODUCES APPLICATION_JSON
ENDWSRESTFUL
 
//-------------------------------------------------------------------
/*/{Protheus.doc} POST itemsDetails
    Carrega os Itens Utilizados para Montagem do Painel
  
    @author Squad CRM & Faturamento
    @since 13/04/2022
    @version 12.1.33
/*/
//-------------------------------------------------------------------
WSMETHOD POST itemsDetails WSRECEIVE Order, Page, PageSize, Fields WSSERVICE CardsCustomer
    Local aHeader       := {}
    Local aRet          := {}
    Local cError        := "Erro na Requisição"
    Local lRet          := .T.
    Local oCoreDash     := CoreDash():New()
    Local aFilter       := {}
    Local nQtdFilter    := 0
    Local cFilter       := ""
    Local nX            := 0
    Local cBody         := DecodeUtf8(Self:GetContent())
    Local oBody         := JsonObject():New()
    Local oJDetails     := JsonObject():New()
    Local cCampos       := ""
  
    Self:SetContentType("application/json")
  
    If !Empty(cBody)
        oBody:FromJson(cBody)
        If ValType(oBody["detailFilter"]) == "A"
            oJDetails := oBody["detailFilter"]
        EndIf
    EndIf
 
    If Len(oJDetails) == 0
        aHeader := RetHeader("SA1")
        oCoreDash:SetFields(DePara("SA1"))
        oCoreDash:SetApiQstring(Self:aQueryString)
        aFilter := oCoreDash:GetApiFilter()
        nQtdFilter := Len(aFilter)
        If nQtdFilter > 0
            For nX := 1 to nQtdFilter
                cFilter += " AND " + aFilter[nX][1]
            Next
        EndIf
 
        //Chama a função responsavel por montar a Expressão SQL
        aRet := MntQuery(, cFilter + " AND (SA1.A1_RISCO = 'A' OR SA1.A1_RISCO = 'B' OR SA1.A1_RISCO = 'C')",,"SA1")
    ElseIf Len(oJDetails) == 1
        aHeader := RetHeader("SC5")
        oCoreDash:SetFields(DePara("SC5"))
        oCoreDash:SetApiQstring(Self:aQueryString)
        aFilter := oCoreDash:GetApiFilter()
        nQtdFilter := Len(aFilter)
        If nQtdFilter > 0
            For nX := 1 to nQtdFilter
                cFilter += " AND " + aFilter[nX][1]
            Next
        EndIf
 
        cFilter := " AND SC5.C5_CLIENTE = '" + oJDetails[1]['code'] + "'"
        cCampos := "SC5.C5_NUM, SC5.C5_TIPO, SC5.C5_CONDPAG, SC5.C5_EMISSAO"
        aRet    := MntQuery(cCampos, cFilter,,"SC5")
    EndIf
  
    //Define a Query padrão utilizada no Serviço
    oCoreDash:SetQuery(aRet[1])
    oCoreDash:SetWhere(aRet[2])
    If Len(aRet) >= 3
        oCoreDash:SetGroupBy(aRet[3])
    EndIf
 
    oCoreDash:BuildJson()
    lRet := ValType(oCoreDash:GetJsonObject()['items']) == "A"
  
    If lRet
        oCoreDash:SetPOHeader(aHeader)
        Self:SetResponse( oCoreDash:ToObjectJson())
    Else
        SetRestFault(500,  EncodeUtf8(cError))
    EndIf
  
    oCoreDash:Destroy()
  
    aSize(aRet, 0)
    aSize(aHeader, 0)
Return lRet
 
//-------------------------------------------------------------------
/*/{Protheus.doc} MntQuery
    Monta a query responsável por trazer os itens utilizados no Painel
  
    @param cCampos,  Caractere, Campos que serão retornados no SELECT
    @param cFiltro,  Caractere, Filtro a ser adicionado na query
    @param cGroupBy, Caractere, Expressão group by a ser adicionada na query
    @author Squad CRM & Faturamento
    @since 13/04/2022
    @version 12.1.33
/*/
//-------------------------------------------------------------------
Static Function MntQuery(cCampos, cFiltro, cGroupBy, cTable)
    Local cQuery
    Local cWhere
    Local cGroup
 
    Default cTable := "SA1"
    Default cCampos := "SA1.A1_COD, SA1.A1_LOJA, SA1.A1_NOME, SA1.A1_NREDUZ, SA1.A1_RISCO"
  
    If cTable == "SA1"
        cQuery := " SELECT " + cCampos + " FROM " + RetSqlName("SA1") + " SA1 "
        cWhere := " SA1.R_E_C_N_O_ <= 1000 AND SA1.A1_FILIAL = '" + xFilial("SA1") + "'" + cFiltro
        cWhere += " AND SA1.D_E_L_E_T_ = ' ' "
    ElseIf cTable == "SC5"
        cQuery := " SELECT " + cCampos + " FROM " + RetSqlName("SC5") + " SC5 "
        cWhere := " SC5.C5_FILIAL = '" + xFilial("SC5") + "'" + cFiltro
        cWhere += " AND SC5.D_E_L_E_T_ = ' ' "
    EndIf
 
    If !Empty(cGroupBy)
        cGroup := cGroupBy
    EndIf
Return {cQuery, cWhere, cGroup}
 
//-------------------------------------------------------------------
/*/{Protheus.doc} DePara
    Efetua o Conversão entre os atributos objetos do Json e os campos utilizados na Consulta
  
    @author Squad CRM & Faturamento
    @since 13/04/2022
    @version 12.1.33
/*/
//-------------------------------------------------------------------
Static Function DePara(cTable)
    Local aCampos := {}
    Default cTable := "SA1"
 
    If cTable == "SA1"
        aCampos := {;
        {"code"       , "SA1.A1_COD"   },;
        {"store"      , "SA1.A1_LOJA"  },;
        {"name"       , "SA1.A1_NOME"  },;
        {"fantasyName", "SA1.A1_NREDUZ"},;
        {"risk"       , "SA1.A1_RISCO" };
        }
    ElseIf cTable == "SC5"
        aCampos := {;
        {"num"     , "SC5.C5_NUM"   },;
        {"type"    , "SC5.C5_TIPO"  },;
        {"payment" , "SC5.C5_CONDPAG"  },;
        {"emission", "SC5.C5_EMISSAO"};
        }
    EndIf
Return aCampos
 
//-------------------------------------------------------------------
/*/{Protheus.doc} GET cardInfo
    Método para retornar os dados que podem ser apresentados pelo Card
  
    @author Squad CRM & Faturamento
    @since 13/04/2022
    @version 12.1.33
/*/
//-------------------------------------------------------------------
WSMETHOD GET cardInfo WSRESTFUL CardsCustomer
    Local aFilter       := {}
    Local cWhere        := ""
    Local nFiltro       := 0
    Local oCoreDash     := CoreDash():New()
    Local oResponse     := JsonObject():New()
  
    //Converte os campos utilizados na consulta para os campos utilizados no card.
    oCoreDash:SetFields(DePara())
  
    //Converte o Filtro informado no parametro Query String.
    oCoreDash:SetApiQstring(Self:aQueryString)
    aFilter := oCoreDash:GetApiFilter()
      
    For nFiltro := 1 to Len(aFilter)
        cWhere += " AND " + aFilter[nFiltro][1]
    Next
  
    RetCardInfo(@oResponse, cWhere)
  
    self:SetResponse( EncodeUtf8(FwJsonSerialize(oResponse,.T.,.T.)) )
  
    oResponse := Nil
    FreeObj( oResponse )
  
    oCoreDash:Destroy()
    FreeObj( oCoreDash )
Return .T.
 
//-------------------------------------------------------------------
/*/{Protheus.doc} RetCardInfo
    Retorna os dados que poderão ser apresentados no painel
  
    @author Squad CRM & Faturamento
    @since 13/04/2022
    @version 12.1.33
/*/
//-------------------------------------------------------------------
Static Function RetCardInfo(oResponse, cApiFilter)
    Local oItem
    Local aItems := {}
 
    Default cApiFilter := ""
  
    oItem := JsonObject():New()
  
    oItem["risco_a"] := RetRisco(" AND SA1.A1_RISCO = 'A' " + cApiFilter)
    oItem["risco_b"] := RetRisco(" AND SA1.A1_RISCO = 'B' " + cApiFilter)
    oItem["risco_c"] := RetRisco(" AND SA1.A1_RISCO = 'C' " + cApiFilter)
    aAdd(aItems, oItem)  
  
    oResponse['hasNext'] := 'false'
    oResponse["items"] := aItems
Return Nil
 
//-------------------------------------------------------------------
/*/{Protheus.doc} RetRisco
    Retorna os dados de acordo com o filtro
  
    @param cFiltro, Caractere, Filtro a ser adicionado na query
    @author Squad CRM & Faturamento
    @since 13/04/2022
    @version 12.1.33
/*/
//-------------------------------------------------------------------
Static Function RetRisco(cFiltro)
    Local aQuery  := MntQuery("COUNT(SA1.A1_COD) TOTAL_REGISTROS", cFiltro)
    Local cQuery  := ""
    Local cTemp   := GetNextAlias()
    Local xRet  
 
    Default cWhere  := ""
    Default cInfo   := ""
 
    cQuery := aQuery[1] + " WHERE " + aQuery[2]
 
    DBUseArea( .T., "TOPCONN", TCGenQry( ,, cQuery ), cTemp, .T., .T. )
 
    xRet := (cTemp)->TOTAL_REGISTROS
 
    (cTemp)->( DBCloseArea() )
Return xRet
 
//-------------------------------------------------------------------
/*/{Protheus.doc} GET fieldsInfo
    Carrega os campos que podem que ser utilizados
  
    @author Squad CRM & Faturamento
    @since 13/04/2022
    @version 12.1.33
/*/
//-------------------------------------------------------------------
WSMETHOD GET fieldsInfo WSSERVICE CardsCustomer
    Local aItems        := {}  
    Local oResponse     :=  JsonObject():New()
    Local oCoreDash     := CoreDash():New()
  
    aAdd(aItems, { "risco_a"  , "Total clientes risco A: " })
    aAdd(aItems, { "risco_b"  , "Total clientes risco B: " })
    aAdd(aItems, { "risco_c"  , "Total clientes risco C: " })
  
    /*Retorna um Objeto no formato de Value e Label*/
    oResponse["items"] := oCoreDash:SetPOCombo(aItems)
  
    Self:SetResponse( EncodeUtf8(oResponse:ToJson()))
Return .T.
 
//-------------------------------------------------------------------
/*/{Protheus.doc} GET cardFilter
    Retorna os campos que poderão ser filtrados
  
    @author Squad CRM & Faturamento
    @since 13/04/2022
    @version 12.1.27
/*/
//-------------------------------------------------------------------
WSMETHOD GET cardFilter WSSERVICE CardsCustomer
    Local aFields       := {}
    Local oCoreDash     := CoreDash():New()
    Local oResponse     :=  JsonObject():New()
  
    aFields := {;
        {"code"       , "Código"       },;
        {"store"      , "Loja"         },;
        {"name"       , "Nome"         },;
        {"fantasyName", "Nome Fantasia"},;
        {"risk"       , "Risco"        };
        }
  
    oResponse["items"]      := oCoreDash:SetPOHeader(aFields)
  
    Self:SetResponse( EncodeUtf8(oResponse:ToJson()))
Return .T.
 
//-------------------------------------------------------------------
/*/{Protheus.doc} RetHeader
    Retorna os campos do cabeçalho dos detalhes
  
    @author Squad CRM & Faturamento
    @since 18/04/2022
    @version 12.1.33
/*/
//-------------------------------------------------------------------
Static Function RetHeader(cTable)
    Local aHeader
    Default cTable := "SA1"
 
    If cTable == "SA1"
        aHeader := {;
            {"code"       , "Código"       , 'link',,,.T.},;
            {"store"      , "Loja"         ,,,,.T.},;
            {"name"       , "Nome"         ,,,,.T.},;
            {"fantasyName", "Nome Fantasia",,,,.T.},;
            {"risk"       , "Risco"        ,,,,.T.};
            }
    ElseIf cTable == "SC5"
        aHeader := {;
            {"num"     , "Número Pedido"        ,,,,.T.},;
            {"type"    , "Tipo Pedido"          ,,,,.T.},;
            {"payment" , "Condição de Pagamento",,,,.T.},;
            {"emission", "Emissão"              ,,,,.T.};
            }
    EndIf
Return aHeader

#INCLUDE "TOTVS.CH"
#INCLUDE "RESTFUL.CH"
 
//------------------------------------------------------------------------
/*/{Protheus.doc} Exemplo2
    Exemplo de API de integração de Graficos de Pizza e/ou Polar
 
    @author     Squad CRM & Faturamento
    @since      26/03/2020
    @version    12.1.27
/*/
//------------------------------------------------------------------------
WSRESTFUL Exemplo2 DESCRIPTION "Exemplo de API - Grafico Pizza e Polar"
 
    WSDATA JsonFilter       AS STRING   OPTIONAL
    WSDATA drillDownFilter  AS STRING   OPTIONAL
    WSDATA Page             AS INTEGER  OPTIONAL
    WSDATA PageSize         AS INTEGER  OPTIONAL
 
    WSMETHOD GET form ;
        DESCRIPTION "Form de Cadastro do Gráfico" ;
        WSSYNTAX "/charts/form/" ;
        PATH "/charts/form";
        PRODUCES APPLICATION_JSON
 
    WSMETHOD POST retdados ;
        DESCRIPTION "Retorna as Informações do Gráfico" ;
        WSSYNTAX "/charts/retdados/{JsonFilter}" ;
        PATH "/charts/retdados";
        PRODUCES APPLICATION_JSON
 
    WSMETHOD POST itemsDetails ;
        DESCRIPTION "Carrega o detalhamento do gráfico" ;
        WSSYNTAX "/charts/itemsDetails/{JsonFilter}" ;
        PATH "/charts/itemsDetails";
        PRODUCES APPLICATION_JSON
 
ENDWSRESTFUL
 
//-------------------------------------------------------------------
/*/{Protheus.doc} GET form
    Retorna os campos que apresentados no Cadastro do Grafico.
    Devera seguir o formato do Dynamic Form do PO-UI.
    https://po-ui.io/tools/dynamic-form
     
    @author Squad CRM & Faturamento
    @since 28/07/2020
    @version 12.1.27
/*/
//-------------------------------------------------------------------
WSMETHOD GET form WSSERVICE Exemplo2
 
    Local oResponse   := JsonObject():New()
    Local oCoreDash   := CoreDash():New()
 
    oCoreDash:SetPOForm("Tipo de Gráfico"    , "charttype"     , 6   , "Tipo de Gráfico"     , .T., "string",;
     oCoreDash:SetPOCombo({{"pie","Pizza"},{"polarArea","Polar"}}))
    oCoreDash:SetPOForm("Datas"              , "datainicio"      , 6   , "Dt. Emissão De"      , .T., "date")
    oCoreDash:SetPOForm(""                   , "datafim"         , 6   , "Dt. Emissão Ate"     , .T., "date")  
 
    oResponse  := oCoreDash:GetPOForm()
 
    Self:SetResponse( EncodeUtf8(oResponse:ToJson()))
 
Return .T.
 
//-------------------------------------------------------------------
/*/{Protheus.doc} POST retdados
    Retorna um objeto JSON com as informações e valores do Grafico
 
    @author Squad CRM & Faturamento
    @since 28/07/2020
    @version 12.1.27
/*/
//-------------------------------------------------------------------
WSMETHOD POST retdados WSRECEIVE JsonFilter WSSERVICE Exemplo2
 
    Local oResponse   := JsonObject():New()
    Local oCoreDash   := CoreDash():New()
    Local oJson       := JsonObject():New()
 
    oJson:FromJson(DecodeUtf8(Self:GetContent()))
 
    retDados(@oResponse, oCoreDash, oJson)
 
    Self:SetResponse( EncodeUtf8(oResponse:ToJson()))
 
    oResponse := Nil
    FreeObj( oResponse )
 
    oCoreDash:Destroy()
    FreeObj( oCoreDash )
 
Return .T.
 
//-------------------------------------------------------------------
/*/{Protheus.doc} POST retdados
    Retorna os items utilizado no Drilldown
 
    @author Squad CRM & Faturamento
    @since 28/07/2020
    @version 12.1.27
/*/
//-------------------------------------------------------------------
WSMETHOD POST itemsDetails WSRECEIVE JsonFilter, drillDownFilter WSRESTFUL Exemplo2
 
    Local aHeader     := {}
    Local aItems      := {}
    Local aRet        := {}
    Local cBody       := DecodeUtf8(Self:GetContent())
    Local cError      := "Erro na Requisição"
    Local cSelect     := ""
    Local cWhere      := ""
    Local lRet        := .T.
    Local oCoreDash  := CoreDash():New()
    Local oBody       := JsonObject():New()
    Local oJsonFilter := JsonObject():New()
    Local oJsonDD     := JsonObject():New()
 
    If !Empty(cBody)
        oBody:FromJson(cBody)
 
        If ValType(oBody["chartFilter"]) == "J"
            oJsonFilter := oBody["chartFilter"]
        EndIf
 
        If ValType(oBody["detailFilter"]) == "A"
            oJsonDD := oBody["detailFilter"]
        EndIf
    EndIf
 
    Self:SetContentType("application/json")
 
    If oJsonFilter:GetJsonText("level") == "null" .Or. Len(oJsonFilter["level"]) == 0      
        If Len(oJsonDD) == 0 //Nivel 1 do Drilldown
            aHeader := {;
                {"document"     , "Documento" ,"link"   },;
                {"series"       , "Serie"               },;
                {"state"        , "UF"                  },;
                {"documentType" , "Tipo"                },;
                {"dateOfIssue"  , "Emissão"             };
                }
 
            aItems := {;
                {"document"     , "F2_DOC"      },;
                {"series"       , "F2_SERIE"    },;
                {"state"        , "F2_EST"      },;
                {"documentType" , "F2_TIPO"     },;
                {"dateOfIssue"  , "F2_EMISSAO"  };
                }
 
            cSelect := " F2_DOC, F2_SERIE, F2_EST, F2_TIPO, F2_EMISSAO, F2_TIPO "
 
            aRet := QuerySF2(cSelect)
 
        Elseif Len(oJsonDD) == 1 //Nivel 2 do Drilldown
 
            aHeader := {;
                {"D2_ITEM"  , "Item"                            },;
                {"D2_COD"   , "Cod. Produto", "link"            },;
                {"B1_DESC"  , "Desc. Produto "                  },;
                {"D2_PRCVEN", "Vlr.Unitario", "currency","BRL"  },;
                {"D2_QUANT" , "Quantidade","number",'1.2-5'     },;
                {"D2_TOTAL" , "Vlr. Total", "currency","BRL"    },;
                {"D2_LOCAL" , "Armazem"                         };
                }
 
            aItems := {;
                {"D2_ITEM"      , "D2_ITEM"},;
                {"D2_COD"       , "D2_COD"},;
                {"B1_DESC"      , "B1_DESC"},;
                {"D2_PRCVEN"    , "D2_PRCVEN"},;
                {"D2_QUANT"     , "D2_QUANT"},;
                {"D2_TOTAL"     , "D2_TOTAL"},;
                {"D2_LOCAL"     , "D2_LOCAL"};
                }
 
            cSelect := " D2_ITEM, D2_COD, B1_DESC, D2_PRCVEN, D2_QUANT, D2_TOTAL, D2_LOCAL "
            cWhere := " D2_DOC = '" + oJsonDD[1]['document'] + "' AND D2_SERIE = '" + oJsonDD[1]['series'] + "' "
 
            aRet := QuerySD2(cSelect, cWhere)      
        Elseif Len(oJsonDD) == 2 //Nivel 3 do Drilldown
            aHeader := {;
                {"B1_COD"   , "Cod. Produto"                      },;
                {"B1_DESC"  , "Desc. Produto "                    },;
                {"B1_PRV1"  , "Preço de Venda", "currency","BRL"  },;
                {"B1_TE"    , "TES Entrada Pad"                   },;
                {"B1_TS"    , "TES Saída Pad"                     };
                }
 
            aItems := {;
                {"B1_COD"       , "B1_COD"},;
                {"B1_DESC"      , "B1_DESC"},;
                {"B1_PRV1"      , "B1_PRV1"},;
                {"B1_TE"        , "B1_TE"},;
                {"B1_TS"        , "B1_TS"};
                }
 
            cSelect := " B1_COD, B1_DESC, B1_PRV1, B1_TE, B1_TS "
            cWhere := " B1_COD = '" + oJsonDD[2]['D2_COD'] + "' "
 
            aRet := QuerySB1(cSelect, cWhere)
        Endif
    Else
        //Monta o Drilldown do grafico nivel 2
        aHeader := {;
            {"document"     , "Documento"   },;
            {"series"       , "Serie"               },;
            {"state"        , "UF"                  },;
            {"documentType" , "Tipo"                },;
            {"dateOfIssue"  , "Emissão"             };
            }
 
        aItems := {;
            {"document"     , "F2_DOC"      },;
            {"series"       , "F2_SERIE"    },;
            {"state"        , "F2_EST"      },;
            {"documentType" , "F2_TIPO"     },;
            {"dateOfIssue"  , "F2_EMISSAO"  };
            }
 
        cSelect := " F2_DOC, F2_SERIE, F2_EST, F2_TIPO, F2_EMISSAO, F2_TIPO "
 
        aRet := QuerySF2(cSelect)
    EndIf
 
    oCoreDash:SetQuery(aRet[1])
    oCoreDash:SetWhere(aRet[2])  
    oCoreDash:SetFields(aItems)
    oCoreDash:SetApiQstring(Self:aQueryString)
    oCoreDash:BuildJson()
 
    If lRet
        oCoreDash:SetPOHeader(aHeader)
        Self:SetResponse( oCoreDash:ToObjectJson() )
    Else
        cError := oCoreDash:GetJsonError()
        SetRestFault( 500,  EncodeUtf8(cError) )
    EndIf
 
    oCoreDash:Destroy()
    FreeObj(oJsonDD)
    FreeObj(oJsonFilter)
    FreeObj(oBody)
 
    aSize(aRet, 0)
    aSize(aItems, 0)
    aSize(aHeader, 0)
 
Return lRet
//-------------------------------------------------------------------
/*/{Protheus.doc} retDados
    Retorna os dados que poderão ser apresentados no Grafico
 
    @author Squad CRM & Faturamento
    @since 28/07/2020
    @version 12.1.27
/*/
//-------------------------------------------------------------------
Static Function retDados(oResponse, oCoreDash, oJson)
    Local aData     := {}
    Local aDataFim  := {}
    Local aCab      := {}
    Local aCores    := oCoreDash:GetColorChart()
    Local nLoop     := 0
 
    If oJson:GetJsonText("level") == "null" .Or. Len(oJson["level"]) == 0
        aCab := GetUF()
 
        For nLoop := 1 To Len(aCab)
            aAdd(aData, Randomize(1,999) )
        Next nLoop
 
        aDataFim := {}
        aAdd(aDataFim, oCoreDash:SetChart(aCab,aData,/*lCurrency*/,,"Nota fiscal por Estado"))
    ElseIf Len(oJson["level"]) == 1
        aCab := GetTipoNF()
 
        For nLoop := 1 To Len(aCab)
            aAdd(aData, Randomize(1,999) )
        Next nLoop
 
        aAdd(aDataFim, oCoreDash:SetChart(aCab,aData,/*lCurrency*/,"pie","Quantidade de Notas por Tipos"))
 
    ElseIf Len(oJson["level"]) == 2
        aCab := GetTopCli()
 
        For nLoop := 1 To Len(aCab)
            aAdd(aData, Randomize(1, 999) )
        Next nLoop
 
        oCoreDash:SetChartInfo( aData, 'Notas', 'bar', aCores[8][3] ) //Cor utilizada: OrangeLht
        aAdd(aDataFim, oCoreDash:SetChart(aCab,,/*lCurrency*/,"bar","TOP 10 Clientes por Tipo de Nota"))
 
    Endif
 
    oResponse["items"] := aDataFim
 
Return Nil
 
 
//-------------------------------------------------------------------
/*/{Protheus.doc} QuerySF2
    Monta a query responsável por trazer os registro da Nota fiscal
 
    @param cSelect, Caractere, Campos que serão retornados no SELECT
    @param cFilter, Caractere, Filtro complementar utilizado na clausula WHERE
    @author Squad CRM & Faturamento
    @since 28/07/2020
    @version 12.1.27
/*/
//-------------------------------------------------------------------
Static Function QuerySF2(cSelect, cFilter )
    Local cQuery
    Local cWhere
 
    Default cSelect := " SF2.F2_DOC, SF2.F2_SERIE, SF2.F2_CLIENTE, SF2.F2_LOJA, SF2.F2_TIPO "
    Default cFilter := ""
 
    cQuery := " SELECT " + cSelect + " FROM " + RetSqlName("SF2") + " SF2 "
    cWhere := " SF2.F2_FILIAL = '" + xFilial("SF2") + "' "
    If !Empty(cFilter)
        cWhere += " AND " + cFilter
    Endif
    cWhere += " AND SF2.D_E_L_E_T_ = ' ' "
 
Return { cQuery, cWhere }
 
//-------------------------------------------------------------------
/*/{Protheus.doc} QuerySD2
    Monta a query responsável por trazer os registro da Nota fiscal
 
    @param cSelect, Caractere, Campos que serão retornados no SELECT
    @param cFilter, Caractere, Filtro complementar utilizado na clausula WHERE
    @author Squad CRM & Faturamento
    @since 28/07/2020
    @version 12.1.27
/*/
//-------------------------------------------------------------------
Static Function QuerySD2(cSelect, cFilter)
    Local cQuery
    Local cWhere
 
    Default cSelect := " SD2.D2_DOC, SD2.D2_ITEM, SD2.D2_COD "
    Default cFilter := ""
 
    cQuery := " SELECT " + cSelect + " FROM " + RetSqlName("SD2") + " SD2 "
    cQuery += " INNER JOIN " + RetSqlName("SB1") + " SB1 "
    cQuery += " ON B1_COD = D2_COD AND SB1.D_E_L_E_T_ = ' ' AND B1_FILIAL = '" + xFilial("SB1") + "' "
 
    cWhere := " SD2.D2_FILIAL = '" + xFilial("SD2") + "' "
    If !Empty(cFilter)
        cWhere += " AND " + cFilter
    Endif
    cWhere += " AND SD2.D_E_L_E_T_ = ' ' "
 
Return {cQuery, cWhere}

//-------------------------------------------------------------------
/*/{Protheus.doc} QuerySB1
    Monta a query responsável por trazer o registro do Cad. Produto
 
    @param cSelect, Caractere, Campos que serão retornados no SELECT
    @param cFilter, Caractere, Filtro complementar utilizado na clausula WHERE
    @author Squad CRM & Faturamento
    @since 08/06/2022
    @version 12.1.33
/*/
//-------------------------------------------------------------------
Static Function QuerySB1(cSelect, cFilter)
    Local cQuery
    Local cWhere
 
    Default cSelect := " SB1.B1_COD, SB1.B1_DESC "
    Default cFilter := ""
 
    cQuery := " SELECT " + cSelect + " FROM " + RetSqlName("SB1") + " SB1 "
    cWhere := " SB1.B1_FILIAL = '" + xFilial("SB1") + "' "
   
    If !Empty(cFilter)
        cWhere += " AND " + cFilter
    Endif
    cWhere += " AND SB1.D_E_L_E_T_ = ' ' "
 
Return {cQuery, cWhere}
 
//-------------------------------------------------------------------
/*/{Protheus.doc} GetUF
Retorna UF
 
@author Aline Navarro
@since 22/12/2020
@version 12.1.27
/*/
//-------------------------------------------------------------------
Static Function GetUF()
 
    Local aUF       := {}
    Local aUFX5     := {}
    Local nX        := 0
    Local nLenAUFX5 := 0
 
    aUFX5 := FWGetSX5("12")
    nLenAUFX5 := Len(aUFX5)
    For nX := 1 To nLenAUFX5
        aAdd(aUF,RTrim(aUFX5[nX,3])) //X5_CHAVE
    Next nX
 
Return aUF

//-------------------------------------------------------------------
/*/{Protheus.doc} GetTipoNF
Retorna os tipos de NF
 
@author Rafael Mota Previdi
@since 08/06/2022
@version 12.1.33
/*/
//-------------------------------------------------------------------
Static Function GetTipoNF()

    Local aTipoNF := {}

    aAdd(aTipoNF, 'N=Normal')
    aAdd(aTipoNF, 'C=Compl.Preco/Quantidade')
    aAdd(aTipoNF, 'I=Compl.ICMS')
    aAdd(aTipoNF, 'P=Compl.IPI')
    aAdd(aTipoNF, 'D=Dev.Compras')
    aAdd(aTipoNF, 'B=Utiliza Fornecedor')

Return aTipoNF

#INCLUDE "TOTVS.CH"
#INCLUDE "RESTFUL.CH"
 
//------------------------------------------------------------------------
/*/{Protheus.doc} Exemplo3
    Exemplo de API de integração de Graficos de Barra e Linha
 
    @author     Squad CRM & Faturamento
    @since      28/07/2020
    @version    12.1.27
/*/
//------------------------------------------------------------------------
WSRESTFUL Exemplo3 DESCRIPTION "Exemplo de API - Grafico Barra e Linha"
    WSDATA JsonFilter       AS STRING     OPTIONAL
    WSDATA drillDownFilter  AS STRING     OPTIONAL
    WSDATA Fields           AS STRING     OPTIONAL
    WSDATA Order            AS STRING     OPTIONAL
    WSDATA Page             AS INTEGER  OPTIONAL
    WSDATA PageSize         AS INTEGER  OPTIONAL
 
    WSMETHOD GET form ;
        DESCRIPTION "Formulario de Cadastro do Gráfico" ;
        WSSYNTAX "/charts/form/" ;
        PATH "/charts/form";
        PRODUCES APPLICATION_JSON
 
    WSMETHOD POST retDados ;
        DESCRIPTION "Deverá retornar as informações apresentadas no gráfico." ;
        WSSYNTAX "/charts/retDados/{JsonFilter}" ;
        PATH "/charts/retDados";
        PRODUCES APPLICATION_JSON
 
    WSMETHOD POST itemsDetails ;
        DESCRIPTION "Carrega o detalhamento do gráfico" ;
        WSSYNTAX "/charts/itemsDetails/{JsonFilter}" ;
        PATH "/charts/itemsDetails";
        PRODUCES APPLICATION_JSON
 
ENDWSRESTFUL
 
//-------------------------------------------------------------------
/*/{Protheus.doc} GET form
  Retorna os campos que serão apresentados no formulário.
  O padrão do campo deve seguir o Dynamic Form do Portinari.
 
  @author Squad CRM & Faturamento
  @since 27/03/2020
  @version Protheus 12.1.27
/*/
//-------------------------------------------------------------------
WSMETHOD GET form WSSERVICE Exemplo3
 
    Local oResponse   := JsonObject():New()
    Local oCoreDash   := CoreDash():New()
 
    oCoreDash:SetPOForm("Tipo de Gráfico", "charttype"       , 6, "Tipo de Gráfico"        , .T., "string" , oCoreDash:SetPOCombo({{"line","Linha"}, {"bar","Barra"}}))
    oCoreDash:SetPOForm("Filtros"        , "dateIni"         , 6, "Data Inicial"           , .T., 'date'   , , .T.)
    oCoreDash:SetPOForm(""               , "dateFim"         , 6, "Data Final"             , .T., 'date'   , , .T.)
    oCoreDash:SetPOForm(""               , "person"          , 6, "Pessoa"                 , .F., 'string' , oCoreDash:SetPOCombo({{"F","Física"}  , {"J","Jurídica"}}), .T.)
    oCoreDash:SetPOForm(""               , "blocked"         , 6, "Bloqueado?"             , .F., 'string' , oCoreDash:SetPOCombo({{"1","Sim"}     , {"2","Não"}})     , .F.)
 
    oResponse  := oCoreDash:GetPOForm()
 
    Self:SetResponse( EncodeUtf8(oResponse:ToJson()))
 
Return .T.
 
//-------------------------------------------------------------------
/*/{Protheus.doc} POST retDados
  Retorna os dados do Gráfico
 
  @author Squad CRM & Faturamento
  @since 27/03/2020
  @version Protheus 12.1.27
/*/
//-------------------------------------------------------------------
WSMETHOD POST retDados WSRECEIVE JsonFilter WSSERVICE Exemplo3
 
    Local oResponse   := JsonObject():New()
    Local oCoreDash   := CoreDash():New()
    Local oJson       := JsonObject():New()
 
    oJson:FromJson(DecodeUtf8(Self:GetContent()))
 
    retDados(@oResponse, oCoreDash, oJson)
 
    Self:SetResponse( EncodeUtf8(oResponse:ToJson()))
 
    oResponse := Nil
    FreeObj( oResponse )
 
    oCoreDash:Destroy()
    FreeObj( oCoreDash )
 
Return .T.
 
//-------------------------------------------------------------------
/*/{Protheus.doc} Function retDados
  Retorna o valor das Meta e o Valor Vendido de acordo com parâmetros
  informados
 
  @author Squad CRM & Faturamento
  @since 16/05/2022
  @version Protheus 12.1.33
/*/
//-------------------------------------------------------------------
Static Function retDados(oResponse, oCoreDash, oJson)
    Local aData    := {}
    Local aDataFim := {}
    Local aData1   := {}
    Local aData2   := {}
    Local aData3   := {}
    Local aData4   := {}
    Local aData5   := {}
    Local aCab     := {}
    Local aCores    := oCoreDash:GetColorChart()
    Local aSaldo   := {}
    Local nSaldo   := 0
    Local cPessoa  := ""
    Local cFiltros := ""
    Local nFilter  := 0
    Local nCntFilt := 0
 
    If oJson:GetJsonText("level") == "null" .Or. Len(oJson["level"]) == 0
        aCab := {'SP', 'RJ', 'MG' }



        //######### Obter os filtros do cadastro ou de usuário e aplicar na query #########
       
        // Filtro por tipo da pessoa - Com Multi-seleção
        If oJson:HasProperty("person") .And. ValType(oJson["person"]) == "A"
          cPessoa := oJson["person"]
          nCntFilt := Len(oJson["person"])
          For nFilter := 1 To nCntFilt
            If nFilter == 1
              cFiltros += " AND ("
            Else
              cFiltros += " OR "
            EndIf
           
            cFiltros += "SA1.A1_PESSOA = '" + oJson["person"][nFilter] + "' "

            If nFilter == nCntFilt
              cFiltros += ") "
            EndIf
          Next
        EndIf

        // Filtro por tipo da pessoa - com uma única seleção
        If oJson:HasProperty("blocked") .And. ValType(oJson["blocked"]) == "C"
          cFiltros += "AND SA1.A1_MSBLQL = '" + oJson["blocked"] + "'"
        EndIf

        //######### Fim da obtenção os filtros do cadastro ou de usuário e aplicar na query #########
       
        aData1 := { RetRisco(cFiltros + " AND SA1.A1_RISCO = 'A' AND SA1.A1_EST = 'SP'"), RetRisco(cFiltros + " AND SA1.A1_RISCO = 'A' AND SA1.A1_EST = 'RJ'"), RetRisco(cFiltros + " AND SA1.A1_RISCO = 'A' AND SA1.A1_EST = 'MG'") }
        aData2 := { RetRisco(cFiltros + " AND SA1.A1_RISCO = 'B' AND SA1.A1_EST = 'SP'"), RetRisco(cFiltros + " AND SA1.A1_RISCO = 'B' AND SA1.A1_EST = 'RJ'"), RetRisco(cFiltros + " AND SA1.A1_RISCO = 'B' AND SA1.A1_EST = 'MG'") }
        aData3 := { RetRisco(cFiltros + " AND SA1.A1_RISCO = 'C' AND SA1.A1_EST = 'SP'"), RetRisco(cFiltros + " AND SA1.A1_RISCO = 'C' AND SA1.A1_EST = 'RJ'"), RetRisco(cFiltros + " AND SA1.A1_RISCO = 'C' AND SA1.A1_EST = 'MG'") }
        aData4 := { RetRisco(cFiltros + " AND SA1.A1_RISCO = 'D' AND SA1.A1_EST = 'SP'"), RetRisco(cFiltros + " AND SA1.A1_RISCO = 'D' AND SA1.A1_EST = 'RJ'"), RetRisco(cFiltros + " AND SA1.A1_RISCO = 'D' AND SA1.A1_EST = 'MG'") }
 
        oCoreDash:SetChartInfo( aData1, 'Risco A', , aCores[8][3] ) //Cor utilizada: OrangeLht
        oCoreDash:SetChartInfo( aData2, 'Risco B', , aCores[1][3] ) //Cor utilizada: GreenDk
        oCoreDash:SetChartInfo( aData3, 'Risco C', , aCores[6][3] ) //Cor utilizada: YellowDk
        oCoreDash:SetChartInfo( aData4, 'Risco D', , aCores[15][3] ) //Cor utilizada: BrowDk
 
        nSaldo := (aData1[1] + aData2[1] + aData3[1] + aData4[1] ) / 4
        aAdd(aSaldo, nSaldo)
        nSaldo := (aData1[2] + aData2[2] + aData3[2] + aData4[2] ) / 4
        aAdd(aSaldo, nSaldo)
        nSaldo := (aData1[3] + aData2[3] + aData3[3] + aData4[3] ) / 4
        aAdd(aSaldo, nSaldo)
 
        oCoreDash:SetChartInfo( aSaldo, 'Média', "line", aCores[9][3] ,,.F.) //Cor utilizada: BlueDk    
 
        aDataFim := {}
        aAdd(aDataFim, oCoreDash:SetChart(aCab,,.F., ,"Quantidade de Clientes por Risco em cada Estado"))
    ElseIf Len(oJson["level"]) == 1
        aCab := {'Semana 1', 'Semana 2', 'Semana 3', 'Semana 4' }
 
        aData1          := { Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 )}
        aData2          := { Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 )}
        aData3          := { Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 )}
        aData4          := { Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 )}
        aData5          := { Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 ), Randomize( 100000000.00, 999000000.00 )}
 
        oCoreDash:SetChartInfo( aData1, '00000101 - Cliente 000001',,aCores[8][3] ) //Cor utilizada: OrangeLht
        oCoreDash:SetChartInfo( aData2, '00000102 - Cliente 000002',,aCores[1][3] ) //Cor utilizada: GreenDk
        oCoreDash:SetChartInfo( aData3, '00543501 - Cliente 000003',,aCores[6][3] ) //Cor utilizada: YellowDk
        oCoreDash:SetChartInfo( aData4, '00543502 - Cliente 000004',,aCores[15][3] ) //Cor utilizada: BrowDk
        oCoreDash:SetChartInfo( aData5, '00543503 - Cliente 000005',,aCores[10][3] ) //Cor utilizada: BlueLht
 
        aDataFim := {}
        aAdd(aDataFim, oCoreDash:SetChart(aCab,,.T., ,"Maiores Vendas - " + oJson["level"][1]["labelDataSet"] + " - " + oJson["level"][1]["label"]))
    ElseIf Len(oJson["level"]) == 2
        aCab := {"Pedido - 234323", "Pedido - 234322", "Pedido - 234456", "Pedido - 234533", "Pedido - 234222" }

        oData       := JsonObject():New()
 
        aData   := { 26589, 25000,23560,10000,35000}
 
        aDataFim := {}
        aAdd(aDataFim, oCoreDash:SetChart(aCab, aData, .T.,"pie", "Maiores Clientes - " + oJson["level"][2]["labelDataSet"] + " - " + oJson["level"][1]["label"]))
    EndIf
    oResponse["items"] := aDataFim
 
Return
 
//-------------------------------------------------------------------
/*/{Protheus.doc} POST itemsDetails
  Método para retornar os dados do Painel
 
  @author Squad CRM & Faturamento
  @since 27/03/2020
  @version Protheus 12.1.27
/*/
//-------------------------------------------------------------------
WSMETHOD POST itemsDetails WSRECEIVE JsonFilter, drillDownFilter WSRESTFUL Exemplo3
 
  Local aHeader     := {}
  Local aItems      := {}
  Local aRet        := {}
  Local cBody       := DecodeUtf8(Self:GetContent())
  Local cError        := "Erro na Requisição"
  Local lRet              := .T.
  Local oCoreDash   := CoreDash():New()
  Local oBody       := JsonObject():New()
  Local oJsonFilter := JsonObject():New()
  Local oJsonDD     := JsonObject():New()
 
  If !Empty(cBody)
    oBody:FromJson(cBody)
    If ValType(oBody["chartFilter"]) == "J"
        oJsonFilter := oBody["chartFilter"]
    EndIf
    If ValType(oBody["detailFilter"]) == "A"
        oJsonDD := oBody["detailFilter"]
    EndIf
  EndIf
 
  Self:SetContentType("application/json")
  //Verifico o Nivel do grafico
  If oJsonFilter:GetJsonText("level") == "null" .Or. Len(oJsonFilter["level"]) == 0
    //Verifico o nivel do Drilldpwn
    If Len(oJsonDD) == 0
      aHeader := {;
          {"codigo"     , "Código"        ,"link"               },;
          {"nome"         , "Nome Vendedor"                       },;
          {"totalItens" , "Total de Itens","number",'1.2-5',.F. },;
          {"totalValor" , "Valor Total"   , "currency","BRL",.F.};
          }
 
      aItems := {;
          {"codigo"     , "SA3.A3_COD"    },;
          {"nome"         , "SA3.A3_NOME"   },;
          {"totalItens" , "QTDITEM"       },;
          {"totalValor" , "TOTAL","N"     };
          }
 
      aRet := MntQuery1()
    ElseIf Len(oJsonDD) == 1
      //Caso eu queira pegar o nome do nível selecionado : oJsonFilter["level"][1]["labelDataSet"]
      // Se fosse gráfico do tipo pizza: oJsonFilter["level"][1]["label"]
      aHeader := {;
          {"codigoPed"  , "Código do Pedido"    },;
          {"codigoCli"  , "Código do Cliente"   },;
          {"nome"         , "Nome"                },;
          {"totalValor" , "TOTAL","currency","BRL",.F.};
          }
 
      aItems := {;
          {"codigoPed"  , "SC5.C5_NUM"   },;
          {"codigoCli"  , "SC5.C5_CLIENTE"  },;
          {"nome"       , "SA1.A1_NOME"      },;
          {"totalValor" , "TOTAL","N"        };
          }
      aRet := MntQuery2("SC5.C5_VEND1 = '" + oJsonDD[1]["codigo"] + "'")
    EndIf
  ElseIf Len(oJsonFilter["level"]) == 1
    aHeader := {;
          {"codigoPed"  , "Código do Pedido"    },;
          {"codigoCli"  , "Código do Cliente"   },;
          {"nome"         , "Nome"                },;
          {"totalValor" , "TOTAL","currency","BRL",.F.};
          }
 
      aItems := {;
          {"codigoPed"  , "SC5.C5_NUM"   },;
          {"codigoCli"  , "SC5.C5_CLIENTE"  },;
          {"nome"       , "SA1.A1_NOME"      },;
          {"totalValor" , "TOTAL","N"        };
          }
      aRet := MntQuery2("SA1.A1_RISCO = '" + Right(oJsonFilter["level"][1]["labelDataSet"],1) + "' AND SA1.A1_EST = '" + oJsonFilter["level"][1]["label"] + "' ")
  ElseIf Len(oJsonFilter["level"]) == 2
    aHeader := {;
        {"codigo"     , "Código"        },;
        {"nome"       , "Nome Vendedor" },;
        {"totalItens" , "Total de Itens","number",'1.2-5',.F.},;
        {"totalValor" , "Valor Total", "currency","BRL",.F.};
        }
 
    aItems := {;
        {"codigo"     , "SA3.A3_COD"   },;
        {"nome"       , "SA3.A3_NOME"  },;
        {"totalItens" , "QTDITEM"      },;
        {"totalValor" , "TOTAL","N" };
        }
 
    aRet := MntQuery1()
  EndIf
 
  oCoreDash:SetQuery(aRet[1])
  oCoreDash:SetWhere(aRet[2])
  oCoreDash:SetGroupBy(aRet[3])
  oCoreDash:SetFields(aItems)
  oCoreDash:SetApiQstring(Self:aQueryString)
  oCoreDash:BuildJson()
 
  If lRet
    oCoreDash:SetPOHeader(aHeader)
    Self:SetResponse( oCoreDash:ToObjectJson() )
  Else
    cError := oCoreDash:GetJsonError()
    SetRestFault( 500,  EncodeUtf8(cError) )
  EndIf
 
  oCoreDash:Destroy()
 
  FreeObj(oBody)
  FreeObj(oJsonFilter)
  FreeObj(oJsonDD)
  FreeObj(oCoreDash)
 
  aSize(aRet, 0)
  aSize(aItems, 0)
  aSize(aHeader, 0)
 
Return( lRet )
 
//-------------------------------------------------------------------
/*/{Protheus.doc} MntQuery1
  Monta a Query o Total dos Pedidos de Venda
 
  @author Squad CRM & Faturamento
  @since 27/03/2020
  @version Protheus 12.1.27
/*/
//-------------------------------------------------------------------
Static Function MntQuery1()
  Local cQuery  := ""
  Local cWhere  := ""
  Local cGroup  := ""
   
  cQuery := " SELECT SA3.A3_COD, SA3.A3_NOME, COUNT(C6_ITEM) QTDITEM, SUM(C6_VALOR) TOTAL "
  cQuery += " FROM " + RetSqlName("SC5") + " SC5 "
 
  cQuery += " INNER JOIN " + RetSqlName("SC6") + " SC6 ON SC6.C6_NUM = SC5.C5_NUM "
  cQuery += " INNER JOIN " + RetSqlName("SA3") + " SA3 ON SA3.A3_COD = SC5.C5_VEND1 "
 
  cWhere := " SC5.D_E_L_E_T_ = ' ' "
  cWhere += " AND SC6.D_E_L_E_T_ = ' ' "
  cWhere += " AND SA3.D_E_L_E_T_ = ' ' "
  cWhere += " AND SC5.C5_FILIAL = '" + xFilial("SC5") + "'   "
  cWhere += " AND SC6.C6_FILIAL = '" + xFilial("SC6") + "'   "
  cWhere += " AND SA3.A3_FILIAL = '" + xFilial("SA3") + "'   "
  cWhere += " AND SC5.C5_EMISSAO >= '20220401'   "
 
  cGroup := " SA3.A3_COD, SA3.A3_NOME "
 
Return {cQuery, cWhere, cGroup}
 
//-------------------------------------------------------------------
/*/{Protheus.doc} MntQuery2
  Monta Query do Pedido de vendas realizando um filtro específo.
 
  @author Squad CRM & Faturamento
  @since 27/03/2020
  @version Protheus 12.1.27
/*/
//-------------------------------------------------------------------
Static Function MntQuery2(cFilter)
  Local cQuery  := ""
  Local cGroup  := ""
  Local cWhere  := ""
 
  Default cFilter := ""
 
  cQuery := " SELECT SC5.C5_NUM, SC5.C5_CLIENTE, SA1.A1_NOME, SUM(C6_VALOR) TOTAL "
  cQuery += " FROM " + RetSqlName("SC5") + " SC5 "
  cQuery += " INNER JOIN " + RetSqlName("SC6") + " SC6 ON SC6.C6_NUM = SC5.C5_NUM "
  cQuery += " INNER JOIN " + RetSqlName("SA1") + " SA1 ON SA1.A1_COD = SC5.C5_CLIENTE
 
  if !Empty(cFilter)
      cWhere += cFilter + " AND "
  EndIf
 
  cWhere += " SC5.D_E_L_E_T_ = ' ' "
  cWhere += " AND SC6.D_E_L_E_T_ = ' ' "
  cWhere += " AND SA1.D_E_L_E_T_ = ' ' "
  cWhere += " AND SC5.C5_FILIAL = '" + xFilial("SC5") + "'   "
  cWhere += " AND SC6.C6_FILIAL = '" + xFilial("SC6") + "'   "
  cWhere += " AND SA1.A1_FILIAL = '" + xFilial("SA1") + "'   "
  cWhere += " AND SC5.C5_EMISSAO >= '20220401'   "  // Limite adicionado para evitar lentidao no retorno da query em bases com uma quantidade muito grande de pedidos de vendas
 
  cGroup := " C5_NUM, C5_CLIENTE, SA1.A1_NOME "
 
Return {cQuery, cWhere, cGroup}
 
//-------------------------------------------------------------------
/*/{Protheus.doc} RetRisco
    Retorna o total de clientes de acordo com o risco informado no
    filtro
   
    @param cFiltro, Caractere, Filtro a ser adicionado na query
    @author Squad CRM & Faturamento
    @since 13/04/2022
    @version 12.1.33
/*/
//-------------------------------------------------------------------
Static Function RetRisco(cFiltro)
    Local aQuery  := MntQuery3("COUNT(SA1.A1_COD) TOTAL_REGISTROS", cFiltro)
    Local cQuery  := ""
    Local cTemp   := GetNextAlias()
    Local xRet
 
    Default cWhere  := ""
    Default cInfo   := ""
 
    cQuery := aQuery[1] + " WHERE " + aQuery[2]
 
    DBUseArea( .T., "TOPCONN", TCGenQry( ,, cQuery ), cTemp, .T., .T. )
 
    xRet := (cTemp)->TOTAL_REGISTROS
 
    (cTemp)->( DBCloseArea() )
Return xRet
 
//-------------------------------------------------------------------
/*/{Protheus.doc} MntQuery3
    Monta a query responsável por trazer os clientes de acordo com o
    risco informado no filtro
   
    @param cCampos,  Caractere, Campos que serão retornados no SELECT
    @param cFiltro,  Caractere, Filtro a ser adicionado na query
    @param cGroupBy, Caractere, Expressão group by a ser adicionada na query
    @author Squad CRM & Faturamento
    @since 13/04/2022
    @version 12.1.33
/*/
//-------------------------------------------------------------------
Static Function MntQuery3(cCampos, cFiltro, cGroupBy)
    Local cQuery
    Local cWhere
    Local cGroup
 
    Default cTable := "SA1"
    Default cCampos := "SA1.A1_COD, SA1.A1_LOJA, SA1.A1_NOME, SA1.A1_NREDUZ, SA1.A1_RISCO"
   
    cQuery := " SELECT " + cCampos + " FROM " + RetSqlName("SA1") + " SA1 "
    cWhere := " SA1.A1_FILIAL = '" + xFilial("SA1") + "'" + cFiltro
    cWhere += " AND SA1.D_E_L_E_T_ = ' ' "
 
    If !Empty(cGroupBy)
        cGroup := cGroupBy
    EndIf
Return {cQuery, cWhere, cGroup}

#INCLUDE "TOTVS.CH"
#INCLUDE "RESTFUL.CH"

//------------------------------------------------------------------------
/*/{Protheus.doc} Exemplo4
  API - Exemplo 4 - Gráfico de Gauge

  @author	Squad CRM/Faturamento
  @since	11/05/2022
  @version  12.1.33
  @return 	Json
/*/
//------------------------------------------------------------------------
WSRESTFUL Exemplo4 DESCRIPTION "Exemplo de Gráfico de Gauge"

  WSDATA JsonFilter       AS STRING	 OPTIONAL
  WSDATA drillDownFilter  AS STRING	 OPTIONAL
  WSDATA Page				      AS INTEGER OPTIONAL
  WSDATA PageSize			    AS INTEGER OPTIONAL

  WSMETHOD GET form ;
    DESCRIPTION "Carrega os campos que serão apresentados no formulário" ;
    WSSYNTAX "/charts/form/" ;
    PATH "/charts/form";
    PRODUCES APPLICATION_JSON

  WSMETHOD POST retdados ;
    DESCRIPTION "Carrega os itens" ; 
    WSSYNTAX "/charts/retdados/{JsonFilter}" ;
    PATH "/charts/retdados";
    PRODUCES APPLICATION_JSON

  WSMETHOD POST itemsDetails ;
    DESCRIPTION "Carrega os Itens Utilizados para Montagem dos detalhes" ;
    WSSYNTAX "/charts/itemsDetails/{JsonFilter}" ;
    PATH "/charts/itemsDetails";
    PRODUCES APPLICATION_JSON

ENDWSRESTFUL

//-------------------------------------------------------------------
/*/{Protheus.doc} GET form
  Retorna os campos que serão apresentados no formulário.
  O padrão do campo deve seguir o Dynamic Form do Portinari.
  
  @author Squad CRM & Faturamento
  @since 16/05/2022
  @version Protheus 12.1.33
/*/
//-------------------------------------------------------------------
WSMETHOD GET form WSSERVICE Exemplo4

  Local oResponse  := JsonObject():New()
  Local oCoreDash  := CoreDash():New()

  oCoreDash:SetPOForm("Tipo de Gráfico" , "charttype"     , 6 , "Tipo de Gráfico" ;
  , .T., "string" , oCoreDash:SetPOCombo({{"gauge","Gauge"}}))
  
  oCoreDash:SetPOForm("Período" , "datainicio"    , 6 , "Data de" ; 
  , .F., "date"   )
  
  oCoreDash:SetPOForm(""      , "datafim"       , 6 , "Data até" ;
  , .F., "date"   )

  oResponse  := oCoreDash:GetPOForm()

  Self:SetResponse( EncodeUtf8(oResponse:ToJson()))

Return .T.

//-------------------------------------------------------------------
/*/{Protheus.doc} POST retDados
  Retorna os dados do Gráfico
  
  @author Squad CRM & Faturamento
  @since 16/05/2022
  @version Protheus 12.1.33
/*/
//-------------------------------------------------------------------
WSMETHOD POST retdados WSRECEIVE JsonFilter WSSERVICE Exemplo4

  Local oResponse   := JsonObject():New()
  Local oCoreDash   := CoreDash():New()
  Local oJson       := JsonObject():New()
  Local oJsonParam  := JsonObject():New()
  Local dDataIni    := FirstYDate(dDatabase)
  Local dDataFim    := LastYDate(dDatabase)

  oJson:FromJson(DecodeUtf8(Self:GetContent()))
  
  If ValType(oJson["datainicio"]) == "C" .And. ValType(oJson["datafim"]) == "C"
    dDataIni := STOD(StrTran(oJson["datainicio"],'-',''))
    dDataFim := STOD(StrTran(oJson["datafim"],'-',''))
  Endif

  retDados(@oResponse, oCoreDash, oJson, dDataIni, dDataFim)

  Self:SetResponse( EncodeUtf8(oResponse:ToJson()))

  oResponse := Nil
  FreeObj( oResponse )

  oCoreDash:Destroy()
  FreeObj( oCoreDash )

  oJsonParam := Nil
  FreeObj(oJsonParam)

Return .T.

//-------------------------------------------------------------------
/*/{Protheus.doc} POST itemsDetails
  Método para retornar os dados detalhados por items do gráfico
  
  @author Squad CRM & Faturamento
  @since 16/05/2022
  @version Protheus 12.1.33
/*/
//-------------------------------------------------------------------
WSMETHOD POST itemsDetails WSRECEIVE JsonFilter, drillDownFilter WSRESTFUL Exemplo4

  Local aHeader     := {}
  Local aItems      := {}
  Local aRet        := {}
  Local cBody       := DecodeUtf8(Self:GetContent())
  Local cError		  := "Erro na Requisição"
  Local cSelect     := ""
  Local cFilter     := ""
  Local lRet			  := .T.
  Local oCoreDash   := CoreDash():New()
  Local oBody       := JsonObject():New()
  Local oJsonFilter := JsonObject():New()
  Local oJsonDD     := JsonObject():New()
  Local dDataIni    := FirstYDate(dDatabase)
  Local dDataFim    := LastYDate(dDatabase)

  If !Empty(cBody)
    oBody:FromJson(cBody)

    If ValType(oBody["chartFilter"]) == "J"
      oJsonFilter := oBody["chartFilter"]
      
      If ValType(oJsonFilter["datainicio"]) == "C" .And. ValType(oJsonFilter["datafim"]) == "C"
        dDataIni := STOD(StrTran(oJsonFilter["datainicio"],'-',''))
        dDataFim := STOD(StrTran(oJsonFilter["datafim"],'-',''))
      Endif
    EndIf

    If ValType(oBody["detailFilter"]) == "A"
      oJsonDD := oBody["detailFilter"]
    EndIf

  EndIf

  Self:SetContentType("application/json")

  If oJsonFilter:GetJsonText("level") == "null" .Or. Len(oJsonFilter["level"]) == 0
    If Len(oJsonDD) == 0
      aHeader := {;
        {"C5_NUM"     , "Cód. Pedido " , , , .T. , .T.   },;
        {"C5_CLIENTE" , "Cód. Cliente"                   },;
        {"C5_LOJACLI" , "Loja Cliente" , , , .T. , .T.   },;
        {"C5_VEND1  " , "Vendedor 1  "                   } ;
      }

      aItems := {;
        {"C5_NUM"     , "C5_NUM"     },;
        {"C5_CLIENTE" , "C5_CLIENTE" },;
        {"C5_LOJACLI" , "C5_LOJACLI" },;
        {"C5_VEND1"   , "C5_VEND1"   } ;
      }

      cSelect := " SC5.C5_NUM,SC5.C5_CLIENTE, SC5.C5_LOJACLI, SC5.C5_VEND1 "
      
      cFilter := "C5_EMISSAO BETWEEN '" + DTos(dDataIni) + "' AND '"+ DTos(dDataFim) + "'"
      
      aRet    := QuerySC5(cSelect, cFilter)
    
    Endif
  Endif

  oCoreDash:SetQuery(aRet[1])
  oCoreDash:SetWhere(aRet[2])
  oCoreDash:SetFields(aItems)
  oCoreDash:SetApiQstring(Self:aQueryString)
  oCoreDash:BuildJson()

	If lRet
    oCoreDash:SetPOHeader(aHeader)
		Self:SetResponse( oCoreDash:ToObjectJson() )
	Else
		cError := oCoreDash:GetJsonError()
		SetRestFault( 500,  EncodeUtf8(cError) )
	EndIf

  oCoreDash:Destroy()
  FreeObj(oJsonDD)
  FreeObj(oJsonFilter)
  FreeObj(oBody)

  aSize(aRet, 0)
  aSize(aItems, 0)
  aSize(aHeader, 0)

Return lRet

//-------------------------------------------------------------------
/*/{Protheus.doc} Function retDados
  Retorna o valor da quantidade de pedidos de acordo com parâmetros
  informados
  
  @author Squad CRM & Faturamento
  @since 16/05/2022
  @version Protheus 12.1.33
/*/
//-------------------------------------------------------------------
Static Function retDados(oResponse, oCoreDash, oJson, dDataIni, dDataFim)
  Local aData    := {}
  Local aDataFim := {}
  Local aCab     := {}

  aCab := {"Quantidade de pedidos"}

  oData   := JsonObject():New()

  aData   := { 45 /*Preencher aqui com o valor retornado pela sua query. Para o exemplo está fixo 45*/ }

  aDataFim := {}
  aAdd(aDataFim, oCoreDash:SetChart(aCab, aData))

  oResponse["items"] := aDataFim

Return Nil

//-------------------------------------------------------------------
/*/{Protheus.doc} QuerySC5
    Monta a query responsável por trazer os itens detalhados
    utilizados no gráfico
   
    @param cSelect,  Caractere, Campos que serão retornados no SELECT
    @param cFilter,  Caractere, Filtro a ser adicionado na query
    @author Squad CRM & Faturamento
    @since 16/05/2022
    @version 12.1.33
/*/
//-------------------------------------------------------------------
Static Function QuerySC5(cSelect as Char, cFilter as Char) as Array

  Local cQuery as Char
  Local cWhere as Char

  Default cSelect   := " SC5.C5_NUM,SC5.C5_CLIENTE, SC5.C5_LOJACLI,SC5.C5_VEND1 "
  Default cFilter   := ""

  cQuery := " SELECT " + cSelect + " FROM " + RetSqlName("SC5") + " SC5 "

  cWhere := " SC5.C5_FILIAL = '" + xFilial("SC5") + "' "
  If !Empty(cFilter)
    cWhere += " AND " + cFilter
  Endif

  cWhere += " AND SC5.D_E_L_E_T_ = ' ' "

Return {cQuery, cWhere}