Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 9

changes.mady.by.user Fabiane Schulze

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.

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

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEA0613

Descrição:

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

Localização:

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

Programa Fonte:

GFEA061A - Negociação da Tabela de Frete

Parâmetros:Não se aplica.

NomeTipoDescriçãoObrigatório
nOpcNuméricoOperação que está sendo realizadaSim

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRet

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: GFEA0613
linenumberstrue
User Function GFEA0613()

    Local nOpc   	:= PARAMIXB[1]
    Local lRet   := .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