Exibir origem

01. DADOS GERAIS

Produto:
Linha de Produto:
Segmento:
Módulo:
Função:	Cadastro de Ativos Imobilizados (ATFA012)
País:	Brasil
Ticket:	17942963
Requisito/Story/Issue (informe o requisito relacionado) :	DSERCTR1-43195

02. SITUAÇÃO/REQUISITO

O ponto de entrada AT012SN1 permite a utilização dos critérios definidos no MVC alterando o conteúdo dos campos do objeto, do item posicionado.

Utilizado tanto para o cadastro de ativos imobilizados como também na Classificação de um Ativo.

03. SOLUÇÃO

Realizado documentação do PE.

O exemplo demonstrado é meramente ilustrativo. A regra, o funcionamento e os impactos gerados pelo ponto de entrada no sistema são de responsabilidade do cliente que o utiliza.

04. DEMAIS INFORMAÇÕES

Exemplo da manipulação do PE pelo sistema:

If ExistBlock("AT012SN1")
	ExecBlock("AT012SN1",.F.,.F.,{oSN1})
EndIf

Parâmetros:

Parâmetro	Utilização
oSN1	Objeto de estrutura da tabela SN1 contendo os campos do dicionário

Retorno:

Tipo	Descrição	Obrigatório
Lógico	Retorna .T. (true) se permite a utilização dos critérios definidos no MVC alterando o conteúdo dos campos do objeto ou .F. (false) mantém o padrão.	Sim

Exemplo de utilização do Ponto de Entrada:

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"

User Function AT012SN1()

Local oCposSN1 := PARAMIXB[1]
Local cMsg0  := ""

 cMsg0 := OemToAnsi("") + CRLF
 cMsg0 += oEmToAnsi("Executa o teste do Ponto de Entrada [ AT012SN1 ] ?") + CRLF
 
 If MsgYesNo(cMsg0)
  
  aBotoes0  := {"OK"}  // Ate 5 botoes
  cTitulo0  := OemToAnsi("I N F O R M A Ç Ã O") // Titulo a ser apresentado
  
  cMens000  := OemToAnsi("") + CRLF
  cMens000  += OemToAnsi("Chamada do Ponto de Entrada [ AT012SN1 ] ")  + CRLF + CRLF
  cMens000  += oEmToAnsi("Para desenvolvimeto com MVC Acesse:") + CRLF
  cMens000  += oEmToAnsi("http://tdn.totvs.com/display/public/mp/FWFormModelStruct ") + CRLF
  cMens000  += OemToAnsi("") + CRLF
  cMens000  += OemToAnsi("Este teste permite a edição do campos [ N1_CHAPA ].") + CRLF
  
  cSubTitu  := OemToAnsi("Programa fonte padrão: [ "+Upper(AllTrim(FunName()))+" ].") // Sub titulo a ser apresentado
  nSize     := 3   // Tamanhos de 1 a 3
  lEdit     := .F.  // Permite a edicao do campo memo
  nTimeOut  := 6000  // Tempo de exibicao do aviso em segundos
  
  Aviso(cTitulo0,cMens000,aBotoes0,nSize,cSubTitu,/*nRotAutDefault*/,/*cBitmap*/,lEdit,nTimeOut,/*nOpcTimer*/)
  
  //-- Permite altera um campo especifico
  oCposSN1:SetProperty("N1_CHAPA"  , MODEL_FIELD_KEY , .F. )

EndIf

Return()

05. ASSUNTOS RELACIONADOS

Não se aplica