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 |
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.
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. |
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 |
#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() |