Histórico da Página

#Include 'Protheus.ch'
#Include 'birtdataset.ch'
 
DATASET TSTPROF01TESTE01 TITLE "Teste de Dataset ProfileProtheus."
DESCRIPTION "RelatórioEste é um teste de testes de gravação de profile um Dataset Protheus utilizando perguntas do SX1 que serve como exemplo para o desenvolvedor."
PERGUNTE "TSTPROF01TESTE01"
 
COLUMNS    
	define column FIELDGCAMPO1 TYPE CHARCHARACTER SIZE 110 LABEL "GetCampo 1"    
	define column FIELDCCAMPO2 TYPE CHARNUMERIC SIZE 6 DECIMALS 12 LABEL "ComboCampo 2"    
	define column FIELDNGCAMPO3 TYPE NUMERICDATE SIZE 18 LABEL "GetCampo 3"    
	define column FIELDNC CAMPO4 TYPE LOGICAL SIZE 1 LABEL "Campo 4"

	define column CAMPO5 TYPE NUMERICMEMO SIZE 1 LABEL "ComboCampo 5"
 
DEFINE QUERY "SELECT * FROM %WTable:1%"
 
PROCESS DATASET 
 
Local cWTabAlias
 
Private cFieldG := self:execParamValue( "MV_PAR01" )
Private cFieldC := self:execParamValue( "MV_PAR02" )
Private cFieldNG:= self:execParamValue( "MV_PAR03" )
Private cFieldNC:= self:execParamValue( "MV_PAR04" ) 
 
cWTabAlias := self:createWorkTable()
 
RecLock( cWTabAlias, .T. ) 

 
( cWTabAlias )->FIELDG := cFieldG
( cWTabAlias )->FIELDC := cFieldC
( cWTabAlias )->FIELDNG := cFieldNG
( cWTabAlias )->FIELDNC := cFieldNC 

 
( cWTabAlias )->( MsUnlock() ) 
 
Return .T.