Frameworksp

Páginas filhas
  • 02.3.2 BIRT | Data Set - ADVPL
3 mais filhas

Versões comparadas

Versão antiga 4

changes.mady.by.user Renan Brazolin Fragoso

Gravado em

comparado com

Nova versão 5

changes.mady.by.user Renan Brazolin Fragoso

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  • Title: Título do Dataset;
  • Description: Descrição do Dataset;
  • Pergunte: Utilizado para indicar o código de grupo de Perguntas Padrão (SX1) quando utilizado;
  • Parameters: Conjunto de parâmetros quando necessário e não utilizadas Perguntas Padrões (SX1);
  • Columns: Define a estrutura do arquivo de saída. Esta estrutura é utilizada para definir a WorkTable (tabela temporária) a ser criada no Banco de Dados que conterá os resultados do processamento do Dataset para posterior pesquisa;
  • Query: Define a estrutura SQL de pesquisa na WorkTable no momento da exibição do Dataset pelo TOTVS | WebViewer, no momento da renderização do Layout;
  • Process: Início do código ADVPL que será executado na chamada do Dataset.

...

Exemplo de um Dataset

 

...

Criaremos um exemplo de um Dataset

...

 simples que solicita alguns parâmetros baseado em um Grupo de Perguntas do SX1 e grava na WorkTable os valores digitados nestes parâmetros.

Bloco de código
languagedelphi
linenumberstrue
#Include 'Protheus.ch'
#Include 'birtdataset.ch'
 
DATASET TESTE01 TITLE "Teste de Dataset Protheus."
DESCRIPTION 	"Este é um teste de um Dataset Protheus utilizando perguntas do SX1 que serve como exemplo para o desenvolvedor." + CRLF + ;
			"Este Dataset solicita um conjunto de parâmetros do SX1 e grava na WorkTable os parâmetros digitados."
PERGUNTE "TESTE01"
 
COLUMNS    
	DEFINE COLUMN CAMPO1 TYPE CHARACTER SIZE 10 LABEL "Campo 1"    
	DEFINE COLUMN CAMPO2 TYPE NUMERIC SIZE 6 DECIMALS 2 LABEL "Campo 2"    
	DEFINE COLUMN CAMPO3 TYPE DATE SIZE 8 LABEL "Campo 3"    
	DEFINE COLUMN CAMPO4 TYPE LOGICAL SIZE 1 LABEL "Campo 4"
	DEFINE COLUMN CAMPO5 TYPE MEMO SIZE 1 LABEL "Campo 5"
 
DEFINE QUERY "SELECT * FROM %WTable:1%"
 
PROCESS DATASET 
 
Local cWTabAlias
 
Private cField1 := self:execParamValue( "MV_PAR01" )
Private cField2 := self:execParamValue( "MV_PAR02" )
Private cField3	:= self:execParamValue( "MV_PAR03" )
Private cField4	:= self:execParamValue( "MV_PAR04" ) 

Private cField5	:= self:execParamValue( "MV_PAR05" )  
 
cWTabAlias := self:createWorkTable()
 
RecLock( cWTabAlias, .T. ) 

( cWTabAlias )->CAMPO1 := cField1
( cWTabAlias )->CAMPO2 := cField2
( cWTabAlias )->CAMPO3 := cField3
( cWTabAlias )->CAMPO4 := cField4 

( cWTabAlias )->CAMPO5 := cField5
 
( cWTabAlias )->( MsUnlock() )
 
( cWTabAlias )->( DbCloseArea() ) 

 
Return .T.