CONTEÚDO

  1. Dados Gerais
  2. Descrição
  3. Sintaxe
  4. Parâmetros
  5. Retorno
  6. Exemplo


01. DADOS GERAIS

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


02. DESCRIÇÃO

O ponto de entrada FT600MNU é executado antes da abertura da rotina da Proposta Comercial, e é utilizado para inserir novas opções no menu.

03. SINTAXE

FT600MNU( {aRotina, oMdlFt300} ) ---> aUsrMenu

04. PARÂMETROS

Nome

Tipo

Descrição

Default

Obrigatório

Referência

aRotinaVetorVetor contendo as opções/rotinas disponibilizadas nos botões do browse padrão da Proposta Comercial
Sim

05. RETORNO

Retorno

Tipo

Descrição

Obrigatório

aUsrMenuVetor

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 - Opção da rotina, sendo: 1 - Pesquisar, 2 - Visualizar, 3 - Incluir, 4 - Alterar e 5 - Excluir.

Sim

06. EXEMPLO

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)


#INCLUDE 'PROTHEUS.CH'
#INCLUDE "FWMVCDEF.CH"

User Function M521LpSD9()

    Local aArea     := GetArea() //Armazena o 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 lRet