...
| 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 |
PorO ponto de entrada FT600MNU é executado antes da abertura do browse da rotina da Proposta Comercial, e é utilizado para inserir novas opções no menu.
M521LpSD9FT600MNU( {cDocaRotina, cSerieoMdlFt300} ) ---> lRet aUsrMenu
Nome | Tipo | Descrição |
|---|
Default
Obrigatório
Referência
...
Retorno
...
Tipo
...
Descrição
...
Obrigatório
...
Variável logica indicando se deve ser feita a limpeza de dados na SD9 devido a exclusão, sendo:
.T. - Realiza a limpeza.
.F. - Não realiza a limpeza.
...
| 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 |
|---|---|---|
| aUsrMenu | Vetor | Vetor contendo as novas opções/rotinas do usuário que serão diposnibilizadas no menu, sendo: |
Neste exemplo validamos se para a nota em questão houve alguma comunicação com Sefaz através do campo de Flag de Impressão (F2_FIMP)
| 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 menu padrão do array aRotina Local oMdlOpor := PARAMIXB Local cDoc := aParam[1] [2] Local//Objeto cSeriedo modelo de dados := 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 lRetda Oportunidade de Venda Local aUsrMenu := {} aAdd(aUsrMenu,{"TESTE","U_FUNCTESTE",3}) Return aUsrMenu User Function FUNCTESTE() Alert("Função de TESTE") Return |
