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 |