Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

TOTVS Backoffice (Linha Protheus) - Ativo Fixo (SIGAATF)

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.

Importante !


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: 

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


Parâmetros:

ParâmetroUtilização
oSN1Objeto de estrutura da tabela SN1 contendo os campos do dicionário


Retorno:

TipoDescriçãoObrigató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:
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