Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: QD030BTAV - Adiciona Botão na Aba Avisos e função de usuário
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Idiomas: Português (Brasil) , Espanhol , Inglês
Descrição: 
Este ponto de entrada adiciona um botão na aba Avisos em pendências e ao acionar o botão executa a função definida pelo usuário.
Programa Fonte 
QDOA030.PRW
Sintaxe

QD030BTAV - Adiciona Botão na Aba Avisos e função de usuário ( [ ParamIXB ] ) --> NIL

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIXB Array of Record 1 - Array com todos avisos da seleção.
Array :
1.1- Tipo de aviso (VEN=Vencido, CAN=Cancelado, QUE=QUestionario, SID=Solicitações, Etc..)
1.2- Data da Geração (dd/mm/yy hh:mm)
1.3- Codigo do documento
1.4- Numero Revisão
1.5- Sequencia aviso (aaaannnn)
1.6- Numero Dias
1.7- Data geração (aaaammdd hh:mm)
1.8- Reservado
2 - Numero da Linha selecionada.
Retorno
    NIL()
Exemplos 
#Include "protheus.ch"User Function QD030BTAV()    Local nPos := val(cvaltochar (paramixb[2]))    Local cDoc := substr(ParamIxb [1,nPos,3],1,16)    Local cRv  := substr(ParamIxb [1,nPos,4],1,3)    dbselectarea("QDH")    dbsetorder(1)        If QDH->(DBSEEK(xfilial("QDH")+cDoc+cRv))          Alert ("Cod.Doc : "+cDoc+" Rv: "+cRv+" Titulo Doc.: "+QDH->QDH_TITULO)    EndiFReturn Nil
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não