Histórico da Página
...
| Informações |
|---|
Método deverá ser utilizado no new() da nova classe criada, exemplo completo estará no final da documentação. |
Parâmetros:
Nome | Tipo | Obrigatório | Default | Descrição |
|---|---|---|---|---|
| lIsLookUp | Lógico | X | .F. | Indica que o filtro será do tipo padrão lookup |
| lIsX5LookUp | Lógico | .F. | Seta que o filtro será do tipo padrão lookup a partir da SX5 |
Exemplo de uso:
| Bloco de código |
|---|
self:setIsLookup(.T., .T.) |
...
| Informações |
|---|
Método deverá ser utilizado no getSchema() da nova classe criada, exemplo completo estará no final da documentação. |
Parâmetros:
Nome | Tipo | Obrigatório | Default | Descrição |
|---|---|---|---|---|
| cId | Caracter | ID | Indica o cabeçalho de exibição da chave do lookup | |
| cProd | Caracter | Código | Indica o cabeçalho de exibição do código do lookup (Mesmo conteúdo do ID) | |
| cDesc | Caracter | Descrição | Indica o cabeçalho de exibição da descrição do lookup |
Exemplo de uso:
| Bloco de código |
|---|
self:oSchema:setDescriptor("Código","Código do Produto", "Descrição do Produto") |
...
| Informações |
|---|
Método deverá ser utilizado no getSchema() da nova classe criada, exemplo completo estará no final da documentação. |
Parâmetros:
Nome | Tipo | Obrigatório | Default | Descrição |
|---|---|---|---|---|
| cField | Caracter | X | Indica o campo que será setado a consulta | |
| aStruct | Array | X | Indica a estrutura que será utilizada no Lookup Exemplo da estrutura: aStruct[1][1]:"ATF0510001" aStruct[2][1]:"0003" | |
| lIsRequired | Lógico | .F. | Indica que é obrigatório o preenchimento do campo |
Exemplo de uso:
| Bloco de código |
|---|
self:oSchema:setLookUpVal(cField, aStruct, lIsRequired) |
...
| Informações |
|---|
Método deverá ser utilizado no getSchema() da nova classe criada, exemplo completo estará no final da documentação. |
Parâmetros:
Nome | Tipo | Obrigatório | Default | Descrição |
|---|---|---|---|---|
| cField | Caracter | X | Indica o campo que será setado a consulta | |
| cTable | Caracter | X | Indica a tabela da SX5 que será utilizada para buscar a estrutura do lookup | |
| lIsRequired | Lógico | .F. | Indica que é obrigatório o preenchimento do campo |
Exemplo de uso:
| Bloco de código |
|---|
self:oSchema:setLookUpVal(cField, cTable, lIsRequired) |
...
| Informações |
|---|
Método deverá ser utilizado no getSchema() da nova classe criada, exemplo completo estará no final da documentação. |
Parâmetros:
Nome | Tipo | Obrigatório | Default | Descrição |
|---|---|---|---|---|
| aFields | Array | X | Indica os campos da estrutura da consulta (chave-descrição). Exemplo: aFields[1]:"ED_CODIGO" aFields[2]:"ED_DESCRIC" | |
| cQuery | Caracter | X | Indica a tabela da SX5 que será utilizada para buscar a estrutura do lookup | |
| lIsRequired | Lógico | .F. | Indica que é obrigatório o preenchimento do campo |
Exemplo de uso:
| Bloco de código |
|---|
self:oSchema:setLookUpQuery(aFields, cQuery, lIsRequired) |
...
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#include "msobject.ch"
#include "protheus.ch"
#include "totvs.framework.treports.integratedprovider.th"
namespace custom.financeiro.fornecedores.integratedprovider.lookup
@totvsFrameworkTReportsIntegratedProvider(active=.T.)
class SA2TReportsBusinessObject from totvs.framework.treports.integratedprovider.IntegratedProvider
public method new() as object
public method getAreas() as array
public method getDescription() as character
public method getData() as object
public method getSchema() as object
endclass
method new() as object class SA2TReportsBusinessObject
_Super:new()
self:setDisplayName("Fornecedores")
self:setIsLookUp(.T., .T.)
return self
method getDescription() as character class SA2TReportsBusinessObject
return "Fornecedores do Protheus"
method getAreas() as array class SA2TReportsBusinessObject
return {"Financeiro", "Contas a pagar"}
method getData(nPage as numeric, oFilter as object) as object class SA2TReportsBusinessObject
local cQuery as character
local cAlias as character
cQuery := "SELECT * FROM " + RetSqlName('SA2') + " WHERE D_E_L_E_T_ = ' '"
if oFilter:hasFilter()
cQuery += " AND " + oFilter:getSQLExpression()
endif
cAlias := MPSysOpenQuery(cQuery)
while !(cAlias)->(Eof())
self:oData:appendData({"Nome": (cAlias)->A2_NOME,;
"Codigo": (cAlias)->A2_COD,;
"Estado": (cAlias)->A2_EST})
(cAlias)->(DBSkip())
enddo
(cAlias)->(DBCloseArea())
return self:oData
method getSchema() as object class SA2TReportsBusinessObject
self:oSchema:addProperty("Nome", "Nome do Fornecedor", "string", "Nome","A2_NOME")
self:oSchema:addProperty("Codigo", "Código do Fornecedor", "string", "Código", "A2_COD")
self:oSchema:addProperty("Estado", "Sigla da Federacao", "string", "Estado", "A2_EST")
//Seta o lookup a partir de uma tabela da SX5
self:oSchema:setX5Struct("A2_EST", "12", .F.)
return self:oSchema |
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#include "msobject.ch"
#include "totvs.framework.treports.integratedprovider.th"
namespace custom.financeiro.naturezas.integratedprovider.lookup
@totvsFrameworkTReportsIntegratedProvider(active=.T.)
class SEDTReportsBusinessObject from totvs.framework.treports.integratedprovider.IntegratedProvider
public method new() as object
public method getDisplayName() as character
public method getAreas() as array
public method getData() as object
public method getSchema() as object
endclass
method new() as object class SEDTReportsBusinessObject
_Super:new()
self:setDescription("Naturezas financeiras do Protheus")
self:setIsLookUp(.T.)
return self
method getDisplayName() as character class SEDTReportsBusinessObject
return "Naturezas"
method getAreas() as array class SEDTReportsBusinessObject
return {"Financeiro"}
method getData(nPage as numeric, oFilter as object) as object class SEDTReportsBusinessObject
self:oData:aliasToData("SED", oFilter)
return self:oData
method getSchema() as object class SEDTReportsBusinessObject
local cQuery as character
local aFields as array
self:oSchema:aliasToSchema("SED")
cQuery := "SELECT * FROM "+ RetSQLName("SED") +" WHERE D_E_L_E_T_ = ' '"
//cQuery := "SELECT ED_CODIGO, ED_DESCRIC FROM "+ RetSQLName("SED") +" WHERE D_E_L_E_T_ = ' '"
aFields := {"ED_CODIGO", "ED_DESCRIC"}
//Seta o lookup a partir da query
self:oSchema:setLookUpQuery(aFields, cQuery, .F.)
return self:oSchema |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas