#Include 'Protheus.ch'

//-------------------------------------------------------------------
/*/{Protheus.doc} MNTIMPOS
Apresenta Opções Impressão

@author  Eduardo Mussi
@since   26/06/2018
@version P11/P12
/*/
//-------------------------------------------------------------------
User Function MNTIMPOS()

    Local aOptions  := {}
    Local nOpt      := 0
    Local oPnlPai   := Nil
    Local oDlgImp   := Nil
    Local lRot265   := cPrograma == 'MNTA265'
    Local lRot990   := cPrograma == 'MNTA990'

    Private nOpRe   := 1

    Define MsDialog oDlgImp From 00,00 To 270,600 Title 'Modelo de Impressao da Ordem' Pixel

    oPnlPai := TPanel():New(00,00,,oDlgImp,,,,,,320,200,.F.,.F.)
    oPnlPai:Align := CONTROL_ALIGN_ALLCLIENT

    oGroup1  := TGroup():New( 005, 030, 095, 130, 'Opcoes', oPnlPai,,,.T.)

    If lRot265
        aOptions := { 'Opcao de Impressao 1' }
    Else
        aOptions := { 'Opcao de Impressao 1', 'Opcao de Impressao 2' }
    EndIf

    TRadMenu():New( 015, 035, aOptions, {|u| IIf( PCount() == 0, nOpRe, nOpRe := u )}, oPnlPai,,,,,,,, 60, 10,,,, .T.)

    Activate MsDialog oDlgImp On Init EnchoiceBar( oDlgImp, {|| nOpt := 1, oDlgImp:End() }, {|| oDlgImp:End() }) Centered

    If nOpt != 0

        fValRot(lRot265, nOpRe, lRot990)

    Endif

Return

//-------------------------------------------------------------------
/*/{Protheus.doc} fOpcUser
Função Generica para apresentar O.S. Posicionada nas demais chamadas
do ponto de entrada

@author  Eduardo Mussi
@since   26/06/2018
@version P12
@param   cOrdem, Caracter, Numero da O.S. Posicionada
@param   nRecOs, Numérico, Recno da O.S. Posicionada
/*/
//-------------------------------------------------------------------
Static Function fOpcUser(cOrdem, nRecOs)

    MsgInfo('OS : ' + cOrdem + ' | Recno : ' + cValToChar(nRecOs) , 'ATENCAO')

Return

//-------------------------------------------------------------------
/*/{Protheus.doc} fOpcUser2
Função Generica para apresentar O.S. selecionadas nas rotinas
MNTA265 e MNTA990

@author  Eduardo Mussi
@since   26/06/2018
@version P12
@param   aMatOs, Array, Contém informações da O.S.
/*/
//-------------------------------------------------------------------
Static Function fOpcUser2(aMatOs)

    Local cOrdens := ''
    Local nX

    For nX := 1 To Len(aMatOs)
        // Verifica se a O.S. já foi adicionada, caso não, adiciona a O.S. e o Plano na string cOrdens.
        If !( aMatOs[ nX, 2 ] $ cOrdens )
            cOrdens += 'Ordem : ' + aMatOs[nX, 2] + ' | - Plano : ' + aMatOs[nX, 1] + CRLF
        EndIf
    Next nX

    If !Empty(cOrdens)
        MsgInfo(cOrdens, 'ATENCAO')
    EndIf

Return

//-------------------------------------------------------------------
/*/{Protheus.doc} fValRot
Valida chamada de Rotina

@author  Eduardo Mussi
@since   26/06/2018
@version P12
@param   lRot265, Lógico,   Valida se chamada é feita pela Rotina MNTA265
@param   nOpRe,   Numérico, Opção escolhida pelo usuário
@param   lRot990, Lógico,   Valida se chamada é feita pela Rotina MNTA990
/*/
//-------------------------------------------------------------------
Static Function fValRot(lRot265, nOpRe, lRot990)

    Local cOrdem := PARAMIXB[2]
    Local aMatOs := IIF( lRot990 .Or. lRot265, PARAMIXB[6], {} ) // Arquivo temporário que possui as O.S.

    If lRot265
        //Tratativa realizada para chamada através da rotina MNTA265
        cDePlano  := PARAMIXB[4]
        cAtePlano := PARAMIXB[5]
        // Executa função de impressão selecionada
        If nOpRe == 1
            fOpcUser2( aMatOs ) // Opção Usuário
        EndIf
    Else
        nRecOs := STJ->( Recno() )

        // Executa função de impressão selecionada
        If nOpRe == 1 .And. !Empty( aMatOs )
            fOpcUser2( aMatOs ) // Opção Usuário
        ElseIf nOpRe == 1
            fOpcUser( cOrdem, nRecOs ) // Opção Usuário
        ElseIf nOpRe == 2
            // Chamada de relatório especifico
            U_RelEspe( cOrdem, nRecOs ) // Opção Usuário
        EndIf

    EndIf

Return

User Function RelEspe( cNumOrd, nRecnOs )

    MsgInfo('Ordem ' + cNumOrd + ' Recno ' + cValToChar( nRecnOs ) )

Return