Editar os campos indicados pelo desenvolvedor no programa do ponto de entrada, para manter a compatibilidade da versão P11.
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Serviços | ||||
Módulo: | SIGAATF - Ativo Fixo | ||||
Rotina: |
| ||||
Ponto de Entrada: | AT012SN1 | ||||
Chamados Relacionados | 1277704 | ||||
País(es): | Todos homologados pelo Protheus | ||||
Banco(s) de Dados: | Todos homologados pelo Protheus | ||||
Sistema(s) Operacional(is): | Todos homologados pelo Protheus |
Descrição
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.
Ponto de Entrada
Descrição: | 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. | ||||||||
Eventos: | ExistBlock("AT012SN1") | ||||||||
Programa Fonte: | ATFA012.PRX | ||||||||
Função: | AT012SN1() - Permite utilizar os critérios definidos do MVC, alterando o conteúdo dos campos do objeto. | ||||||||
Retorno: |
|
Exemplo:
#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()