Já se perguntou como fazer um inputbox no Protheus?

Inputbox é aquela famosa janelinha com um campo texto e os botões Ok e Cancelar.

Função Parambox P11e P12

No Protheus tem uma função bem parecida e por sinal melhorada, isso porque ela cria este inputbox com outros tipos de campos e novos botões além dos dois tradicionais, podendo combiná-los na mesma tela.

Campos permitidos:

MsGet
Combo
Radio
CheckBox
Arquivo (tipo upload)
Montagem de expressão de filtro
Campo senha
Campo Memo
Filtro

A função Parambox serve para criar a tela de parâmetros dinâmica como alternativa à função padrão Pergunte, porem não utiliza a tabela SX1 do dicionário de dados. O retorno da função é verdadeiro se pressionado o botão “OK” ou falso se pressionado botão “Cancel”, no array aRet será carregado com as respostas das perguntas.

Para saber mais acesse http://tdn.totvs.com/display/public/mp/Parambox

ParamBox2

Exemplo:

#Include 'Protheus.ch'

User Function ExParam()
    Local aPergs   := {}
    Local cCodRec  := space(08)
    Local cRecDest := space(08)
    Local cArquivo := padr("",150)
    Local aRet	   := {}

    aAdd( aPergs ,{1,"Campo bloqueado",cCodRec,"@",'.F.',,'.F.',40,.F.})
    aAdd( aPergs ,{1,"Campo texto",cRecDest,"@!",'!Empty(mv_par02)',,'.T.',40,.T.})
    aAdd( aPergs ,{6,"Arquivo",cArquivo,"",,"", 90 ,.T.,"Arquivos .CSV |*.CSV","C:\",GETF_LOCALHARD+GETF_LOCALFLOPPY+GETF_NETWORKDRIVE})
    aAdd( aPergs ,{2,"Combobox","Não",{"Sim", "Não" },60,"",.T.})

    If ParamBox(aPergs ,"Exemplo",aRet)
        Aviso("Recurso original:"+aRet[1]+ " substituido pelo recurso:" + aRet[2])
    Else
        Aviso("Processo cancelado")
    EndIf
Return .T.

 


Equipe Blog Advpl

Amantes da tecnologia

0 comentário

Deixe uma resposta