Histórico da Página
Informações | ||
---|---|---|
| ||
|
Manipula campos da tela de geração de OS a partir da distribuição de SS.
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||
Segmento: | Manufatura | ||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||
Rotina: |
| ||||||||
Issues Relacionadas | 12.1.17. | ||||||||
País(es): | Todos. | ||||||||
Banco(s) de Dados: | Todos. | ||||||||
Sistema(s) Operacional(is): | Todos. |
Ponto de Entrada
Descrição: | Ponto de Entrada que permite alteração das propriedades dos campos apresentados na tela de geração de O.S. a partir da distribuição de S.S. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Localização: | SIGAMNT: Atualizações/Controle de Oificina/Solicitação de Serviço/Distribuição de S.S. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Eventos: | Distribuição de S.S. (MNTA295). | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Programa Fonte: | MNTA295.prx | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Função: | MNTA295GOS() | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Parâmetros: |
* O campo Prioridade (TJ_PRIORID) será um objeto TGet caso não possua itens (X3_CBOX), caso contrário um objeto TComboBox será utilizado. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Retorno |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Observações |
|
Exemplo:
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#include 'Protheus.ch' //------------------------------------------------------------------- /*/{Protheus.doc} MNTA295E Manipula propriedades dodos campos apresentados em tela. @author Eduardo Mussi @since 07/08/2018 @version P12 /*/ //------------------------------------------------------------------- User Function MNTA295E() Local aObj := ParamIXB //Fecha o campo do Bem aObj[1]:bWhen := {|| .F. } // Deixa o campo sempre aberto e para cada alteração do combobox apresenta a mensagem inserida no bloco de código aObj[8]:bWhen := {|| .T. } aObj[8]:bValid := {|| MsgInfo('Validação campo Situação','Atencao') } //Deverá realizar o posicionamento na tabela em que se encontra o Bem //Verificando se é Bem ou Localização. dbSelectArea("ST9") dbSetOrder(1) If dbSeek(xFILIAL("ST9")+cBEMSOLI) //As variaveis que recebem os valores são padrões, cada campo possui uma váriavel que pode ser consultada //no array aObj, dentro do array possui uma váriavel chamada cReadVar, nela contém o 'nome' do campo. cCCUSTOQ := ST9->T9_CCUSTO cCentra := ST9->T9_CENTRAB cNOMBCUS := NGSEEK("CTT",cCCUSTOQ,1,"CTT_DESC01") cNomctra := NGSEEK("SHB",cCentra ,1, "HB_NOME" ) Else nORDTAF := 7 cCODBEM := "X2"+Substr(cBEMSOLI,1,3) dbSelectArea("TAF") dbSetOrder(nORDTAF) If dbSeek(xFILIAL("TAF")+cCODBEM) cCCUSTOQ := TAF->TAF_CCUSTO cCentra := TAF->TAF_CENTRA cNOMBCUS := NGSEEK("CTT",cCCUSTOQ,1,"CTT_DESC01") cNomctra := NGSEEK("SHB",cCentra ,1, "HB_NOME" ) EndIf EndIfParamIXB Local cBemSS := aObj[1]:cText // Retorna conteúdo do campo "Bem/Localiz." Local cCentroC := Posicione( 'ST9', 1, xFilial( 'ST9' ) + cBemSS, 'T9_CCUSTO' ) Local cCentroT := Posicione( 'ST9', 1, xFilial( 'ST9' ) + cBemSS, 'T9_CENTRAB' ) // Adicionar o valor no campo. aObj[3]:VarPut( cCentroC ) aObj[4]:VarPut( cCentroT ) aObj[3]:bWhen := {|| .F. } aObj[4]:bWhen := {|| .F. } aObj[19]:VarPut( Posicione( 'CTT', 1, xFilial( 'CTT' ) + cCentroC, 'CTT_DESC01' ) ) aObj[20]:VarPut( Posicione( 'SHB', 1, xFilial( 'SHB' ) + cCentroT, 'HB_NOME' ) ) Return aObj |