#Include "Protheus.ch"



//------------------------------------------------------------------------------
/*/{Protheus.doc} MenuDef
Finalização de Ordem de Serviço via Documento de Entrada da Nota Fiscal

@author NG Informática Ltda.
@since 03/01/2017
@version P11
@param PARAMIXB contém o numero da O.S. a ser alterada.
/*/
//------------------------------------------------------------------------------
User Function NGFIMOS()

    Local aArea := GetArea()
    Local cOrdem := PARAMIXB //O.S. Utilizada no Documento de Entrada

    dbSelectArea("STL")
    dbSetorder(1)
    If dbSeek(xFilial("STL") + cOrdem)

        //Mensagem apresentando conteúdo antes da alteração
        MsgInfo(STL->TL_OBSERVA, "Observação")

        //Altera conteúdo do campo de observação da O.S.
        RecLock("STL", .F.)
        STL->TL_OBSERVA := "Texto do Campo de observação alterado!"
        STL->(MsUnlock())

        //Mensagem apresentando conteúdo após alteração
        MsgInfo(STL->TL_OBSERVA, "Observação")

    EndIf

    If MsgYesNo("Deseja finalizar a O.S. " + cOrdem + " ?")

        dbSelectArea("STJ")
        dbSetOrder(1)
        If dbSeek(xFilial("STJ") + cOrdem)
            //Finaliza O.S.
            NGFINAL(STJ->TJ_ORDEM,STJ->TJ_PLANO,STJ->TJ_DTPRINI,STJ->TJ_HOPRINI,STJ->TJ_DTPRFIM,STJ->TJ_HOPRFIM)
        EndIf

    EndIf

    RestArea( aArea )

Return