Histórico da Página
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 |
Descrição: | Ponto de Entrada chamado no programa MNTA260.prw, chamado na hora de filtrar as Ordens que devem ser exibidas. |
---|---|
Observação: |
...
O ponto de entrada |
Observações
Exemplos
O exemplo do ponto de entrada encontra-se em anexo no topo da página.
Preview
Veja também
Idioma
Português(Brasil)
Versões
Microsiga_Protheus11
Sistemas Operacionais Suportados
Todos
Compatível com as Bases de Dados
Todas
Updates
Parâmetros
Retorno
lRet
Eventos de chamada do Ponto de Entrada
Variáveis
cPerg, lRet
Programa Fonte
vai verificar todas as ordens uma a uma, e retornar um valor lógico que indica se o registro deve ou não ser exibido | |||||||||||||||||
Localização: | SIGAMNT: Atualizações/Controle de Oficina/Plano manutenção/Cancelamento de os. | ||||||||||||||||
Programa Fonte: | MNTA260.prw | ||||||||||||||||
Função: | MNTA2602() | ||||||||||||||||
Parâmetros: |
| ||||||||||||||||
Retorno: |
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
User Function MNTA2602()
Local aArea := STJ->(GetArea()) // Como abaixo vamos realizar um dbseek na STJ, antes vamos salvar o ponto em que ela está agora
// dessa forma evitamos problemas por desposicionamento da tabela
Local lRet := .F.
Local cFilial := ParamIXB[1]
Local cOrdem := ParamIXB[2]
Local cPlano := ParamIXB[3]
DbSelectArea( "STJ" )
DbSetOrder( 1 ) // TJ_FILIAL+TJ_ORDEM+TJ_PLANO+TJ_TIPOOS+TJ_CODBEM+TJ_SERVICO+TJ_SEQRELA
If dbSeek(cFilial+cOrdem+cPlano)
If STJ->TJ_TIPO == '001' // Vamos filtrar e exibir apenas as Ordens de Serviço de tipo Corretiva
lRet := .T.
EndIf
EndIf
RestArea(aArea) // Aqui usamos o save que fizemos da tabela, para posicionar novamente no ponto que estava antes do dbseek
Return lRet //Retorno Lógico, se verdadeiro o sistema considera o registro, se falso, pula o registro.
|