Histórico da Página
Características do Requisito
Linha de Produto: | Microsiga Protheus. |
Segmento: | Manufatura |
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas |
Rotina(s): | NGGERAOS |
Chamados Relacionados | MNG-5371 |
País(es): | Todos. |
Banco(s) de Dados: | Todos. |
Sistema(s) Operacional(is): | Todos. |
Linha de Produto: | Microsiga Protheus | ||||||||||||||||||||||||||||||||||||
Segmento: | Manufatura | ||||||||||||||||||||||||||||||||||||
Módulo: | Manutenção de Ativos | ||||||||||||||||||||||||||||||||||||
Rotina: |
| ||||||||||||||||||||||||||||||||||||
Parâmetro(s): | PARAMIXB - Tarefa Informada | ||||||||||||||||||||||||||||||||||||
Chamados Relacionados | MNG-5371 | ||||||||||||||||||||||||||||||||||||
País(es): | Todos | ||||||||||||||||||||||||||||||||||||
Banco(s) de Dados: | Todos | ||||||||||||||||||||||||||||||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de Entrada para validar a geração de O.S. no reporte de contador e rotinas relacionadas ao quadro acima. | ||||||||
Localização: | SIGAMNT: Atualizações/Retorno/Retorno Mod. 2 SIGAMNT: Atualizações/Retorno/Retorno | ||||||||
Eventos: | Retorno (MNTA400) | ||||||||
Programa Fonte: | NGGERAOS | ||||||||
Função: | NGGERAOS() | ||||||||
Retorno: |
|
Bloco de código | ||||
---|---|---|---|---|
| ||||
#include 'protheus.ch' #include 'parmtype.ch' //--------------------------------------------------------------------- /*/{Protheus.doc} NGGERAOS Verificar se deverá gerar O.S. caso a mesma já tenha sido aglutinada em outra. @author NG Informática @since 08/02/2018 @version MP11 @return /*/ //--------------------------------------------------------------------- User Function NGGERAOS() Local cCodbem := ParamIXB[1] Local cServico := ParamIXB[2] Local cSequec := Alltrim(ParamIXB[3]) Local cQuery := "" Local cAliasQry := GetNextAlias() Local aOldArea := GetArea() Local aSeq :={} Local aGeraOS := {} Local nX := 0 //Para validar apenas em umas das rotinas relacionadas usar o comando IsInCallStack("MNTA830"). cQuery := "SELECT TJ_SUBSTIT FROM " + RetSqlName("STJ") cQuery += " WHERE TJ_FILIAL = " + ValToSql(xFilial("STJ")) cQuery += " AND TJ_CODBEM = " + ValToSql(cCodbem) cQuery += " AND TJ_SERVICO = " + ValToSql(cServico) cQuery += " AND TJ_SITUACA = 'L' AND TJ_TERMINO ='N' AND TJ_PLANO ='000001' " cQuery += " AND D_E_L_E_T_ <> '*' AND TJ_SUBSTIT <> ''" cQuery := ChangeQuery(cQuery) dbUseArea(.T., "TOPCONN", TCGenQry(,,cQuery), cAliasQry, .F., .T.) Dbselectarea(cAliasQry) DBgotop() While !Eof() aSeq := StrTokArr((cAliasQry)->TJ_SUBSTIT, ",") For nX:=1 to len(aSeq) cSeq := Alltrim(aSeq[nX]) If cSequec == cSeq AADD(aGeraOS,{'N','O.S. já foi substituida'}) (cAliasQry)->(DbCloseArea()) Return aGeraOS EndIf Next nX DbSkip() End While (cAliasQry)->(DbCloseArea()) RestArea(aOldArea) Return aGeraOS |