Histórico da Página

#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    
	defineDEFINE columnCOLUMN CAMPO1 TYPE CHARACTER SIZE 10 LABEL "Campo 1"    
	defineDEFINE columnCOLUMN CAMPO2 TYPE NUMERIC SIZE 6 DECIMALS 2 LABEL "Campo 2"    
	defineDEFINE columnCOLUMN CAMPO3 TYPE DATE SIZE 8 LABEL "Campo 3"    
	defineDEFINE columnCOLUMN CAMPO4 TYPE LOGICAL SIZE 1 LABEL "Campo 4"

	defineDEFINE columnCOLUMN CAMPO5 TYPE MEMO SIZE 1 LABEL "Campo 5"
 
DEFINE QUERY "SELECT * FROM %WTable:1%"
 
PROCESS DATASET 
 
Local cWTabAlias
 
Private cFieldGcField1 := self:execParamValue( "MV_PAR01" )
Private cFieldCcField2 := self:execParamValue( "MV_PAR02" )
Private cFieldNGcField3	:= self:execParamValue( "MV_PAR03" )
Private cFieldNCcField4	:= self:execParamValue( "MV_PAR04" ) 

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

 
( cWTabAlias )->FIELDG>CAMPO1 := cFieldGcField1
( cWTabAlias )->FIELDC>CAMPO2 := cFieldCcField2
( cWTabAlias )->FIELDNG>CAMPO3 := cFieldNGcField3
( cWTabAlias )->FIELDNC>CAMPO4 := cFieldNCcField4 

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

 
Return .T.