Histórico da Página
Ponto de entrada que permite adicionar ou remover campos de usuário na tela de Retorno Mod. 2 (MNTA435)
Aviso | ||
---|---|---|
| ||
Este ponto de entrada foi descontinuado, favor utilizar o ponto de entrada https://tdn.totvs.com/x/FMCqKg. |
Características do Requisito
Linha de Produto: | Microsiga Protheus. | ||||||||
Segmento: | Manufatura. | ||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas. | ||||||||
Rotina: |
| ||||||||
País(es): | Todos. | ||||||||
Banco(s) de Dados: | Todos. | ||||||||
Sistema(s) Operacional(is): | Todos. |
Ponto de Entrada
Descrição: | Ponto de entrada utilizado na rotina de Retorno Mod. 2 (MNTA435) para adicionar ou remover campos de usuário da tela | |||||||||
Localização: | SIGAMNT: Atualizações/Controle de Oficina/Retorno de O.S./Retorno Mod. 2 | |||||||||
Programa Fonte: | MNTA435.prx | |||||||||
Função: | MNTA435H() | |||||||||
Parâmetros: |
| |||||||||
Retorno: |
|
Bloco de código | Atenção |
---|
O novo modelo de ponto de entrada só vai estar disponível após versão do fonte MNTA435.prx ser maior que a data XX/XX/2022. O modelo antigo do ponto de entrada após a data informada acima não estará mais funcionando. |
Bloco de código | ||
---|---|---|
| ||
#Include 'Totvs.ch'
User Function MNTA435H()
Local aCampSTJ := PARAMIXB
Local nTotCamp := Len( aCampSTJ )
Local nCampos := 0
If MsgYesNo("Deseja remover os campos de usuário?")
nCampos := aScan( aCampSTJ, { | x | x[ 1 ] == 'TJ_NOMSERV' } )
If nCampos > 0
aDel( aCampSTJ, nCampos )
aSize( aCampSTJ, nTotCamp - 1 )
EndIf
EndIf
Return aCampSTJ |
| ||||
Bloco de código | ||||
---|---|---|---|---|
| ||||
#Include 'Protheus.ch' User Function MNTA435H() Local aCampStj := PARAMIXB Local nCampos := 0 dbSelectArea("SX3") dbSetOrder(1) dbSeek("STJ") If MsgYesNo("Deseja remover os campos de usuário?") While !EoF() .And. SX3->X3_ARQUIVO == "STJ" If SX3->X3_PROPRI == "U" .And. X3USO(SX3->X3_CAMPO) nCampos := aScan(aCampStj,Alltrim(SX3->X3_TITULO)) If nCampos > 0 aDel(aCampStj,nCampos) aSize(aCampStj,nCampos-1) EndIf EndIf dbSelectArea("SX3") dbSkip() End EndIf Return aCampStj |