• Este ponto de entrada está disponível a partir da versão 12.1.17 - Set/2018.
• Este ponto de entrada é dependente dos demais pontos de entrada citados em "Pontos de Entrada Envolvidos".

#include "protheus.ch"
#include "apwebex.ch"


//-------------------------------------------------------------------
/*/{Protheus.doc} VLDUSRCP
Valida Campos de usuário no portal de SS

No Ponto de Entrada MNTCAMUS é chamada a 
função JavaScript fValCpUsr que por sua vez
faz a chamada da validação padrão do sistema
através da função I05VLDCPO, após as validações
padrões é chamada a função de validação dos 
campos de usuário VLDUSRCP.
/*/
//-------------------------------------------------------------------
WebUser Function VLDUSRCP(cCampo, cValor)

    Local cHtml := ''
    Local cMsg  := ''
    Local lRet  := .T.

    // Campos inclusos em tela pelo usuário
    Local cValCamps := 'TQB_TESTE/TQB_ORIGEM'

    WEB EXTENDED INIT cHtml START 'I005ENV'

    If cCampo $ cValCamps

        // Validação dos campos inclusos em tela.
        If cCampo == 'TQB_TESTE'
            If AllTrim( cValor ) =>= '287004000004'
                HttpSession->TQB_TESTE := cValor
            ElseIf !Empty( cValor )
                HttpSession->TQB_TESTE := ''
                cMsg := 'Nao foi possivel selecionar a O.S.!'
            Endif
        ElseIf cCampo == 'TQB_ORIGEM'
            If 'PORTAL' $ Upper( AllTrim( cValor ) )
                HttpSession->TQB_ORIGEM := Upper( cValor )
            ElseIf !Empty( cValor )
                HttpSession->TQB_ORIGEM := ''
                cMsg := 'Origem invalida!'
            Endif
        Endif

        lRet := Empty(cMsg)

        // Caso o lRet for .F. será apresentada a mensagem passada pelo cMsg em tela referente ao campo informado no cCampo.
        VldUsrSS(cCampo, lRet, cMsg)

    EndIf

    WEB EXTENDED END

Return cHtml

//-------------------------------------------------------------------
/*/{Protheus.doc} fSXBPAD
Monta Consulta padrão
chamado no Ponto de entrada MNTCAMUS pela função JavaScript fsConPad
/*/
//-------------------------------------------------------------------
WebUser Function fSXBPAD()

    Local cHtml     := ''
    Local cRecno    := '1;'
    Local cAliasCon := ''
    Local cAlias    := ''

    // Caso seja a primeira abertura da consulta padrão pega o HttpGet->TabelaF3 e HttpGet->CampoF3.
    // Caso a busca for com a tela do SXB já aberta é então utilizado HttpSession->cSearch e HttpSession->cField
    Local cCampo    := IIf( ValType( HttpGet->CampoF3  ) == 'U', HttpSession->cField,  HttpGet->CampoF3 )
    Local cConpad   := IIf( ValType( HttpGet->TabelaF3 ) == 'U', HttpSession->cSearch, HttpGet->TabelaF3)

    // Caso seja realizada a consulta de um registro dentro da tela de consulta padrão,
    // serão utilizados a chave de pesquisa e indices escolhidos pelo usuário
    Local cPesquisa := IIf( ValType( HttpPost->cPesquisa ) == 'U', '', HttpPost->cPesquisa )
    Local nIndCon   := IIf( ValType( HttpPost->indices   ) == 'U',  0, Val( HttpPost->indices ) )

    WEB EXTENDED INIT cHtml START 'I005ENV'

        // Alinha strnig a direita com o tamanho máximo de 6.
        cConPad := Padr( cConPad, 6 )

        // Busca alias para busca dos dados a serem apresentados em tela.
        cAliasCon := AllTrim( Posicione('SXB', 1, cConpad + '101' , 'XB_CONTEM') )
        cAlias    := cAliasCon

        // nIndCon só será 0 quando for montar a Tela de consulta padrão.
        If nIndCon == 0
            nIndCon   := Val( AllTrim( Posicione('SXB', 1, cConpad + '201' , 'XB_COLUNA') ) )
        EndIf

        If cAliasCon <> 'ST9'
            dbSelectArea(cAliasCon)
            dbSetOrder(nIndCon)
            If '_FILIAL' $ Substr( IndexKey(), 1, 10 )
                cPesquisa := xFilial( cAliasCon ) + cPesquisa
            Endif
        EndIf

        // Executa chave de pesquisa e verifica se existem itens a serem exibidos posionando no primeiro ReCnO conforme o seek.
        dbSeek(cPesquisa)
        If (cAlias)->( !EoF() ) .And. Substr( &( cAliasCon + '->(' + IndexKey() + ')' ), 1, Len( cPesquisa ) ) == cPesquisa
            cRecno := cValToChar( (cAliasCon)->( RecNo() ) ) + ';'
        EndIf

        //Carrega variaveis de sessao
        HttpSession->cSearch   := cConPad
        HttpSession->cField    := cCampo
        HttpSession->cAliasSXB := cAliasCon
        HttpSession->nIndSXB   := nIndCon
        HttpSession->cSeek     := cPesquisa
        HttpSession->cNumRec   := cRecno
        HttpSession->cCurPag   := '1'

        //Chama pagina responsavel por exibir a consulta padrão.
        cHtml += ExecInPage('MNTI5SXB')

    WEB EXTENDED END

Return cHtml

//-------------------------------------------------------------------
/*/{Protheus.doc} CHeader
Cria cabeçalho da tela de consulta padrão
chamado no Ponto de entrada MNTCAMUS
@param   cTitle, Caractér, Titulo da janela.
/*/
//-------------------------------------------------------------------
WebUser Function CHeader(cTitle)

    Local cHtml := ''

    cHtml += '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">'
    cHtml += '<html>'
    cHtml += '<head>'
    cHtml += '  <title>'
    cHtml += '  ' + cTitle
    cHtml += '  </title>'
    cHtml += '  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">'
    cHtml += '  <link rel="stylesheet" type="text/css" href="NGCSS.css">'
    cHtml += '</head>'

Return cHtml