Árvore de páginas

Versões comparadas

Chave

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

...

Deve ser usado em conjunto com o ponto de entrada FA473MOD que trata os objetos do Model da rotina.

03. PARÂMETROS

        aRet - array multidimensional com a estrutura predeterminada

O retorno deve conter um array multidimensional com a seguinte estrutura :
* Primeira posição : Objeto
* Segunda posição : Método
* Terceira posição em diante: Parâmetros

Objeto : oView = FwFormView

Métodos : AddUserButton, SetViewPropriety

Objeto : oStr2 = FwFormStruct

Métodos : AddField


Obs.: O objeto oStr2 trata a tabela SIG.

03. PARÂMETROS

       Não há.Campos do tipo caractere devem conter as aspas simples antes das aspas duplas("'Titulo'" ou "' '").
Caso o parâmetro seja nulo, ou não deseja caractere não use as aspas simples antes das aspas duplas ("

04. RETORNO

Nome

Tipo

Descrição

aRet

AArray

Array multidimensional com a estrutura predeterminada:

* Primeira posição : Objeto
* Segunda posição : Método
* Terceira posição em diante: Parâmetros

05. EXEMPLO DE UTILIZAÇÃO

Bloco de código
languagevb
themeMidnight
firstline1
titleF473VIEW
linenumberstrue
#INCLUDE 'TOTVS.CH'
#INCLUDE "FWMVCDEF.CH"
 
/*/{Protheus.doc} F473VIEW
__aRetE5E1         		 - Campo criado no ponto de entrada FA473CON.
MVC_VIEW_ORDEM      - Campos da tabela SIG

@type       Function
@author     TOTVS
@since      18/11/2020
@return     aRet  - array multidimensional com a estrutura predeterminada
O retorno deve conter um array multidimensional com a seguinte estrutura :
	    * Primeira posição : Nome do Objeto
	 		C
    * Segunda  posição : Método
						C
    * Terceira posição em diante: Parâmetros
CamposNenhum dodos tipoparametros caracteredeve devemser conterenviado asvazio
oModel aspas simples 	antes das aspas duplas("'Titulo'" ou "' '"). 
Caso o parâmetro seja nulo,  ou não deseja caractere não use as aspas simples antes das aspas duplas (" ")	= FWFormView
oStr2  = FWFormStruct
/*/


User Function F473VIEW()
    
	Local  aRet As Object

	    aRet   := {}
 
	    aAdd(aRet,  {"oView",	   "AddUserButton", "'Imprimir'"   	,"''"   	, "{|oView| U_FA473PRN(oView)}"     	}  )
	    aAdd(aRet,  {"oView",	   "AddUserButton", "'Excluir'"	,"    ,''"   , "{|oView| U_FA473EXC(oView)}"     	}  )
	    aAdd(aRet,  {"oView",	   "AddUserButton", "'Totalizar'"  	,"''"	   , "{|oView| U_FA473TOT(oView)}     }  )

	aAdd(aRet,  {"oView",   "SetViewProperty", 'VIEWCONDETAIL'  ,'ENABLENEWGRID'				}  )
	aAdd(aRet,  {"oView",   "SetViewProperty", 'VIEWCONDETAIL'  ,'GRIDFILTER'		, {.T.}   }  )
	aAdd(aRet,  {"oView",   "SetViewProperty", 'VIEWCONDETAIL'  ,'GRIDSEEK' 		,  {.T.}  }  )
 
    aAdd(aRet,  {"oStr2",	   "AddField"	     , "'IG_FILIAL'"  	,"'03'"	,"''","''","", "''","'@!'" 		' ,'','',, 'C','@!'      }  )
    aAdd(aRet,  {"oStr2",   "AddField"     , 'IG_AGEMOV'  ,'04' ,'','',, 'C','@!'      }  )
 
	
Return(aRet)

User Function FA473PRN()
    Help("",1,"FA473PRN",,"Clicou no botão Imprimir ",1)
Return

User Function FA473EXC()
    Help("",1,"FA473EXC",,"Clicou no botão Excluir ",1)
Return

User Function FA473TOT()
    Help("",1,"FA473TOT",,"Clicou no botão Totalizar ",1)
Return