Histórico da Página
...
Informações | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Objeto oSchema Serão feitos tratamentos internos neste objeto. Ele possui apenas dois métodos para uso externo, usados em conjunto com os métodos da nova classe, sendo eles: Método AliasToSchema() - Método do objeto oSchema que transforma o alias em um schema, caso seja utilizado apenas o primeiro parâmetro todos os campos serão enviados.
Parâmetros:
Método AddProperty() - Método do objeto oSchema que adiciona uma propriedade ao schema. Parâmetros:
Exemplos de uso estarão abaixo nos métodos criados para a classe IntegratedProvider. Obs: O nome real é necessário para que o filtro seja feito com base no nome real do campo, caso contrário, o mesmo levará em consideração a propriedade name. Método AddParameter() - Método do objeto oSchema que adiciona um parâmetro ao objeto de negócio.
Parâmetros:
|
Informações |
---|
Objeto oFilter Serão feitos tratamentos internos neste objeto. Ele possui métodos para uso externo, usados em conjunto com o método getData do objeto de negócios Método hasFilter() - Método do objeto oFilter que indica a existência de filtros (O Smart View permite filtrar os |
Informações |
Objeto oFilter Serão feitos tratamentos internos neste objeto. Ele possui métodos para uso externo, usados em conjunto com o método getData do objeto de negócios Método hasFilter() - Método do objeto oFilter que indica a existência de filtros (O Smart View permite filtrar os dados) Retorno: Logical Sintaxe: oFilter: Método hasFields() - Método do objeto oFilter que indica se existem campos de retorno (O Smart View permite retornar uma quantidade de campos menor que o objeto de negócios possui, filtrando assim os campos, não os dados) Retorno: Logical Sintaxe: oFilter: Método getAdvplExpressionhasFields() - Método do objeto oFilter que indica se existem campos de retorno (O Smart View permite retornar uma quantidade de campos menor que o objeto de negócios possui, filtrando assim os campos, não os dados) Retorno: Logical Sintaxe: oFilter: Método getAdvplExpression() - Método do objeto oFilter que retorna retorna os filtros no formato ADVPL Retorno: character Sintaxe: oFilter:getAdvplExpression Método getSQLExpression() - Método do objeto oFilter que retorna os filtros no formato SQL Retorno: character Sintaxe: oFilter:getSQLExpression Método getFields() - Método do objeto oFilter que retorna um array contendo os campos que foram solicitados (Mesma lógica do hasFields) Retorno: array Sintaxe: oFilter:getFields Método getRawFilter() - Método do objeto oFilter que retorna um JSON com o filtro solicitado pelo Smart View em seu formato original, é com base nele que as expressões SQL e ADVPL são geradas (Mesma lógica do hasFilter) Retorno: json Sintaxe: oFilter:getRawFilter Método getParameters() - Método do objeto oFilter que retorna os parâmetros nativos do Objeto de Negócio. Retorno: json Sintaxe: oFilter: Observação: Método só disponível na LIB 20230626 ou superior |
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
#include "protheus.ch" #include "msobject.ch" #include "totvs.framework.treports.integratedprovider.th" namespace custom.produtos.fornecedores @totvsFrameworkTReportsIntegratedProvider(active=.T., team="SIGACOM", tables="SA5", name="Produto X Fornecedor", country="ALL", initialRelease="12.1.2310") //------------------------------------------------------------------- /*{Protheus.doc} ProdFornTReportsBusinessObject Classe para criação do Objeto de Negócio de Prod x Forn para o TReports @author Vanessa Ruama @since 02/03/2023 @version 1.0 */ //------------------------------------------------------------------- class ProdFornTReportsBusinessObject from totvs.framework.treports.integratedprovider.IntegratedProvider public method new() as object public method getData() as object public method getSchema() as object protected data aFields as array protected data aStruct as array endclass //------------------------------------------------------------------- /*{Protheus.doc} new Método de instância da classe @return object: self @author Vanessa Ruama @since 02/03/2023 @version 1.0 */ //------------------------------------------------------------------- method new() class ProdFornTReportsBusinessObject _Super:new() self:appendArea("Compras") self:setDisplayName("Fornecedores x Produtos") self:setDescription("Relatório Fornecedores x Produtos com tratamento LGPD") self:aFields := {"A5_FILIAL", "A5_FORNECE", "A5_LOJA", "A5_NOMEFOR", "A5_PRODUTO", "A5_NOMPROD", "A5_CODPRF", "A5_DTCOM01", "A5_QUANT01"} self:aStruct := u_getStruct(self:aFields) return self //------------------------------------------------------------------- /*{Protheus.doc} getData Retorna os dados do objeto de negócio @param nPage, numérico, indica a página atual do relatório @param oFilter, objeto, contém o filtro do TReports @return object: self:oData @author Vanessa Ruama @since 02/03/2023 @version 1.0 */ //------------------------------------------------------------------- method getData(nPage as numeric, oFilter as object) as object class ProdFornTReportsBusinessObject local cQuery as character local cAlias as character local nSkip as numeric local nCount as numeric local nX as numeric local jItems as json local aPDFields as array local lUseParams as logical nCount := 0 cQuery := "SELECT " + self:getSQLFields(,,,.T.) + "FROM " + RetSQLName("SA5") + " WHERE D_E_L_E_T_ = ' '" lUseParams := .T. //Os filtros serão setados na interface do novo TReports if oFilter:hasFilter() cQuery += " AND " + oFilter:getSQLExpression() endif jParams := oFilter:getParameters() //metodo para retorno do json dos parâmetros u_setDefaultParams(@jParams) //Faz a parametrização na query cQuery += "AND A5_FORNECE BETWEEN ? AND ? AND A5_DTCOM01 >= ? AND A5_DTCOM01 <= ?" oExec := FwExecStatement():New(ChangeQuery(cQuery)) oExec:setString(1, jParams['01'][1]) oExec:setString(2, jParams['02'][1]) //Formato da data recebida pelo smart view: 2020-07-02T00:00:00-03:00, temos que fazer a conversão method getData(nPage as numeric, oFilter as object) as object class ProdFornTReportsBusinessObject local cQuery as character local cAlias as character local nSkip as numeric local nCount as numeric local nX as numeric local jItems as json local aPDFields as array local lUseParams as logical nCount := 0 cQuery := "SELECT " + self:getSQLFields(,,,.T.) + "FROM " + RetSQLName("SA5") + " WHERE D_E_L_E_T_ = ' '" lUseParams := .T. //Os filtros serão setados na interface do novo TReports if oFilter:hasFilter() cQuery += " AND " + oFilter:getSQLExpression() endif jParams := oFilter:getParameters() //metodo para retorno do json dos parâmetros u_setDefaultParams(@jParams) //Faz a parametrização na query cQuery += "AND A5_FORNECE BETWEEN ? AND ? AND A5_DTCOM01 >= ? AND A5_DTCOM01 <= ?" oExec := FwExecStatement():New(ChangeQuery(cQuery)) oExec:setString(1, jParams['01'][1]) oExec:setString(2, jParams['02'][1]) //Formato da data recebida pelo smart view: 2020-07-02T00:00:00-03:00, temos que fazer a conversão para a query oExec:setDate(3, StoD( SubStr(StrTran(jParams['03'][1],"-",""),1,8) )) oExec:setDate(4, StoD( SubStr(StrTran(jParams['04'][1],"-",""),1,8) )) cAlias := oExec:OpenAlias() if nPage == 1 (cAlias)->(dbGoTop()) else //Encontra a quantidade de itens que irá pular de acordo com a página atual nSkip := ((nPage - 1) * self:getPageSize()) (cAlias)->(dbSkip(nSkip)) endif //Verifica se precisa fazer o tratamento para LGPD aPDFields := FwProtectedDataUtil():UsrAccessPDField(__cUserID, self:aFields) lObfuscated := len( aPDFields ) != Len(self:aFields) while !(cAlias)->(Eof()) jItems := JsonObject():new() for nX := 1 To Len(self:aStruct)para a query oExec:setDate(3, StoD( SubStr(StrTran(jParams['03'][1],"-",""),1,8) )) oExec:setDate(4, StoD( SubStr(StrTran(jParams['04'][1],"-",""),1,8) )) cAlias := oExec:OpenAlias() if nPage == 1 (cAlias)->(dbGoTop()) else //Encontra a quantidade de itens que irá pular de acordo com a página atual nSkip := ((nPage - 1) * self:getPageSize()) (cAlias)->(dbSkip(nSkip)) endif //Verifica se precisa fazer o tratamento para LGPD aPDFields := FwProtectedDataUtil():UsrAccessPDField(__cUserID, self:aFields) lObfuscated := len( aPDFields ) != Len(self:aFields) while !(cAlias)->(Eof()) jItems := JsonObject():new() for nX := 1 To Len(self:aStruct) if lObfuscated .and. aScan(aPDFields, self:aStruct[nX][5]) == 0 if self:aStruct[nX][3] == "date" jItems[self:aStruct[nX][1]] := nil elseif self:aStruct[nX][3] == "number" jItems[self:aStruct[nX][1]] := Val( Replicate( "9", Len((cAlias)->&(self:aStruct[nX][5])) ) ) else jItems[self:aStruct[nX][1]] := FwProtectedDataUtil():ValueAsteriskToAnonymize((cAlias)->&(self:aStruct[nX][5])) endif elseif self:aStruct[nX][3] == "date" jItems[self:aStruct[nX][1]] := totvs.framework.treports.date.stringToTimeStamp((cAlias)->&(self:aStruct[nX][5])) else jItems[self:aStruct[nX][1]] := (cAlias)->&(self:aStruct[nX][5]) if lObfuscated .and. aScan(aPDFields, self:aStruct[nX][5]) == 0 //Monta os valores do campo Demanda if self:aStruct[nX][31] == "dateA5_QUANT01" if jItems[self:aStruct[nX][1]] :<= nil50 elseif self:aStruct[nX][3jItems["Demanda"] :== "numberDemanda baixa" elseif jItems[self:aStruct[nX][1]] := Val( Replicate( "9", Len((cAlias)->&(self:aStruct[nX][5])) ) ) <= 1000 else jItems[self:aStruct[nX][1]"Demanda"] := FwProtectedDataUtil():ValueAsteriskToAnonymize((cAlias)->&(self:aStruct[nX][5])) "Demanda média" endif else //Maior que 1000 elseif self:aStruct[nX][3] == "date" jItems[self:aStruct[nX][1]]"Demanda"] := totvs.framework.treports.date.stringToTimeStamp((cAlias)->&(self:aStruct[nX][5])) "Demanda alta" else endif jItems[self:aStruct[nX][1]] := (cAlias)->&(self:aStruct[nX][5]) endif endif next nX self:oData:appendData(jItems) (cAlias)->(DBSkip()) nCount++ //Sai do loop quando chegar no tamanho de itens da página if nCount == self:getPageSize() exit endif enddo //Se não for o último registro indica que terá próxima página self:setHasNext(!(cAlias)->(Eof())) (cAlias)->(DBCloseArea()) return self:oData //------------------------------------------------------------------- /*{Protheus.doc} getSchema Retorna a estrutura dos campos @return object: self:oSchema @author Vanessa Ruama @since 02/03/2023 @version 1.0 */ //------------------------------------------------------------------- method getSchema() as object class ProdFornTReportsBusinessObject Local nX as numeric for nX := 1 To Len(self:aStruct) self:addProperty(self:aStruct[nX][1], self:aStruct[nX][2], self:aStruct[nX][3], self:aStruct[nX][4], self:aStruct[nX][5]) Next nX self:addProperty("Demanda", "Demanda", "string", "Demanda do Produto", "Demanda") self:addParameter("01" , "Fornecedor de", "string", .F.) self:addParameter("02" , "Fornecedor até", "string", .F.) self:addParameter("03" , "Data de", "date", .F.) self:addParameter("04" , "Data até", "date", .F.) //Consulta dos parâmetros self:setCustomURL("01", "api/framework/v1/genericLookupService/smartview/SA2", 2) self:setCustomURL("02", "api/framework/v1/genericLookupService/smartview/SA2", 2) return self:oSchema //------------------------------------------------------------------- /*{Protheus.doc} getStruct Prepara a estrutura dos campos @param aFlds array: Array com os campos do relatório @return array: Array com a estrutura dos campos @author Vanessa Ruama @since 02/03/2023 @version 1.0 */ //------------------------------------------------------------------- user function getStruct(aFlds) Local aConvFld as array Local aFldTmp as array Local cCampo as character Local cFldQry as character Local cTipR as character Local nPos as numeric Local nC as numeric aConvFld := {{"C", "string"}, {"D", "date"}, {"N", "number"}, {"L", "boolean"}, {"M", "memo"}} aFldTmp := {} for nC := 1 to Len(aFlds) cFldQry := aFlds[nC] nPos := AT(".", aFlds[nC]) + 1 if nPos > 0 cCampo := Substr(cFldQry, nPos) else cCampo := cFldQry endif cTipo := GetSx3Cache(cCampo, "X3_TIPO") if (nPos := aScan(aConvFld, {|c| c[01] = cTipo})) > 0 cTipR := aConvFld[nPos, 02] else cTipR := "string" endif AAdd(aFldTmp, {cCampo, FWSX3Util():GetDescription(cCampo), cTipR, FwX3Titulo(Upper(cCampo)), cCampo}) next nC return (aFldTmp) //------------------------------------------------------------------- /*{Protheus.doc} setDefaultParams Seta os valores padrões do parâmetros caso estejam vazios @param jParam json: Parâmetros recebidos @author Vanessa Ruama @since 02/03/2023 @version 1.0 */ //------------------------------------------------------------------- user function setDefaultParams(jParams) if empty(jParams['02'][1]) jParams['02'][1] := "ZZZZZ" elseif empty(jParams['03'][1]) jParams := totvs.framework.treports.date.dateToTimeStamp(Date()) elseif empty(jParams['04'][1]) jParams := totvs.framework.treports.date.dateToTimeStamp(Date()) endif return |
...