...
| Produto: | TOTVS Backoffice |
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Backoffice |
| Módulo: | SIGACRM - Customer Relationship Management |
| Função: | FATA600 - Proposta Comercial |
| Abrangências: | Microsiga Protheus 12 |
| Versões: | Microsiga Protheus 12 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível com as Bases de Dados: | Todos |
| Nível de Acesso: | Nível 1 (Acesso Clientes) |
| Idiomas: | Todos |
O ponto de entrada FT600MNU é executado antes da abertura do browse da rotina da Proposta Comercial, e é utilizado para inserir novas opções no menu.
...
FT600MNU( {aRotina, oMdlFt300} ) ---> aUsrMenu aUsrMenu
Nome | Tipo | Descrição |
|---|
Default
Obrigatório
| aRotina | Vetor | Vetor contendo as opções/rotinas disponibilizadas nos botões do browse padrão da Proposta Comercial |
| oMdlFt300 | Objeto | Objeto contendo o modelo de dados da rotina da Oportunidade de Vendas |
Retorno | Tipo | Descrição |
|---|
Obrigatório
| aUsrMenu | Vetor | Vetor contendo as novas opções/rotinas do usuário que serão diposnibilizadas no menu, sendo: |
1 |
- Tipo: Caractere - Nome do botão |
2 |
- Tipo: Caractere - Nome da função |
3 |
- Tipo: Numérico - |
Operações da rotina, sendo: 1 - Pesquisar, 2 - Visualizar, 3 - Incluir, 4 - Alterar e 5 - Excluir. |
...
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#INCLUDE 'PROTHEUS.CH' #INCLUDE "FWMVCDEF.CH" User Function M521LpSD9FT600MNU() Local aAreaaRotAux := PARAMIXB[1] := GetArea() //ArmazenaOpções odo ambiente ativo para restaurar ao fim do processo Local aParam := PARAMIXB Local cDoc := aParam[1] Local cSerie := aParam[2] Local lRet := .F. DbSelectArea("SF2") SF2->(DbSetOrder(1)) If SF2->(DbSeek(xFilial("SF2") + cDoc + cSerie)) If Empty(SF2->F2_FIMP) //Verifica se para esta nota houve alguma comunicação com Sefaz lRet := .T. EndIf EndIf RestArea(aArea) //Restaura o ambiente ativo no início da chamada Return lRetmenu padrão do array aRotina Local oMdlOpor := PARAMIXB[2] //Objeto do modelo de dados da Oportunidade de Venda Local aUsrMenu := {} aAdd(aUsrMenu,{"TESTE","U_FUNCTESTE",3}) Return aUsrMenu User Function FUNCTESTE() Alert("Função de TESTE") Return |
