Histórico da Página
Ponto de entrada que permite realizar customização na Finalização do Retorno da OS no Retorno Mod. 2 (MNTA435)
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 executado na rotina de Retorno Mod. 2 (MNTA435) que consiste em verificar se o produto atrelado à OS possui uma requisição de solicitação ao armazém. Caso possua é impossível finalizar a OS, caso contrário, o processo de finalização de retorno da ordem de serviço é processado | ||||||||
Programa Fonte: | MNTA435.prx | ||||||||
Localização: | SIGAMNT: Atualizações/Controle de Oficina/Retorno de OS/Retorno Mod. 2 | ||||||||
Função: | MNTA4352() | ||||||||
Parâmetros: |
| ||||||||
Retorno: |
|
Bloco de código | ||
---|---|---|
| ||
User Function MNTA4352() Local cQuery Local cAliasQry := GetNextAlias() Local nRetorno := ParamIXB[1] cAliasQry := GetNextAlias() cQuery := " SELECT CP_PREREQU FROM " + RetSqlName( "SCP" ) cQuery += " WHERE SUBSTRING(CP_OP, 1, 6) = '" + STJ->TJ_ORDEM + "'" cQuery += " AND CP_PREREQU = 'S' " cQuery += " AND D_E_L_E_T_ <> '*' " cQuery := ChangeQuery(cQuery) dbUseArea( .T., "TOPCONN", TCGENQRY(,, cQuery), cAliasQry, .F., .T.) dbSelectArea( cAliasQry ) If (cAliasQry)->CP_PREREQU == "S" MsgInfo( "A O.S. n�o poder� ser finalizada pois existe uma S.A para o produto." ) nRetorno := 2 EndIf (cAliasQry)->( dbCloseArea() ) Return nRetorno |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas