Histórico da Página
...
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 |
...
Localização:
...
Programa Fonte: | GFEA061A - Negociação da Tabela de Frete | ||||
Parâmetros: |
|
...
| |||||
Retorno: |
|
...
|
...
Array
...
|
...
| Observação: |
...
| Bloco de código |
|---|
...
|
...
|
...
|
...
|
...
|
...
1
2
3
4
5
User Function GFEA0612()
| |
User Function GFEA0613()
Local nOpc := |
...
PARAMIXB[1] |
...
Local cMensagem := PARAMIXB[2]// Realiza a modificação nos arrays conforme a necessidade...
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 |
Import HTML Content
Visão Geral
Conteúdo das Ferramentas