Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Ana Claudia Da Silva

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Fabiane Schulze

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
GFEA0612 - Alterar e-mail no Controle de Aprovação - Criação de Negociação das Tabelas de Frete 

GFEA0613 - Permitir a alteração de uma negociação já liberada

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Distribuição e

Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada -

GFEA0612

GFEA0613

Descrição:

Quando

Permitir a alteração de uma

nova negociação da tabela de frete é criada é enviado um e-mail aos usuários aprovadores. Será possível alterar o assunto e a mensagem deste e-mail.

negociação já liberada

Localização:

Na função que realiza a validação inicial do model

Localização:

Ao criar uma nova negociação da tabela de frete.

Programa Fonte:

GFEA061A - Negociação da Tabela de Frete

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]ArrayAssunto produto padrãoSimPARAMIXB[2]ArrayMensagem produto padrão
nOpcNuméricoOperação que está sendo realizadaSim

Retorno:

Nome

Tipo

Descrição

Obrigatório

aRet

lRet

Array

Assunto customizado

Sim

aRet 

Array

Mensagem customizada

Sim

Observação:Na versão do Protheus 12.1.13, quando se usar controle de MLA o ponto de entrada não será chamado.

Lógico

Retorna se deve realizar a validação onde é permitida apenas alteração de negociação com status "em negociação".

Sim

Observação:
Bloco de código
languagedelphi
titleExemplo: GFEA0612GFEA0613
linenumberstrue
User Function GFEA0612GFEA0613()

    Local nOpc cAssunto  	:= PARAMIXB[1]
    Local cMensagemlRet   := PARAMIXB[2]
	// Realiza a modificação nos arrays conforme a necessidade
Return {cAssunto, cMensagem}.T.

    //chama somente se estiver com situação Liberada
    If (nOpc == 4 .and. (IsInCallStack("GFEA061A") .or. IsInCallStack("GFEA061"))) .and. GV9->GV9_SIT == "2" .AND. MsgYesNo("Confirma a alteração desta negociação? Ela já está liberada e esta ação fará com que a negociação retorne para a situação [Em Negociação]", "ATENÇÃO")
        DbSelectArea("GV9")
        If RecLock("GV9", .F.)
            GV9->GV9_SIT := "1"
            GV9->GV9_ENVAPR := "2"
            GV9->GV9_SITMLA := "1"
            GV9->(MsUnlock())
            lRet := .F.
        EndIf
    EndIf

Return lRet