Árvore de páginas

Versões comparadas

Chave

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

...

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
Nenhum dos parametros deve ser enviado vazio
oModel = 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 FA473EXFA473EXC()
    Help("",1,"FA473EXFA473EXC",,"Clicou no botão Excluir ",1)
Return

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