...
FT600MNU( {aRotina, oMdlFt300} ) ---> aUsrMenu
Nome | Tipo | Descrição |
|---|
Default
Obrigatório
Referência
| 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 User Function M521LpSD9FT600MNU() Local aAreaaRotAux := PARAMIXB[1] := GetArea() //Armazena o ambiente ativo para restaurar ao fim do processo Local aParam Opções do menu padrão Local oMdlOpor := PARAMIXB Local cDoc := aParam[1] [2] Local//Modelo cSeriede dados da Oportunidade := aParam[2] Local lRet de Venda Local aUsrMenu := .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 lRetaAdd(aUsrMenu,{"TESTE","U_FUNCTESTE",3}) Return aUsrMenu User Function FUNCTESTE() Alert("Função de TESTE") Return |
