Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este ponto de entrada está localizado na rotina Transf. de Pecas (OFIOM430) e será executado após a gravação do Orçamento. O objetivo do ponto de entrada é realizar a validação se o Orçamento gerado deve seguir para conferência/transferência ou não.

Localização:

Atualizações \ Mov Pecas \ Transf. de Pecas (OFIOM430)

Eventos:

If (nOpc == 3 .or. nOpc == 4)

// Ponto de entrada para validar se o Orçamento gerado deve seguir para conferência/transferência ou não

If ExistBlock("OM430AVA")

lRet := ExecBlock("OM430AVA", .f., .f.)

If !lRet

Return .t. // Retornar .t. para fechar a janela automaticamente, mantendo assim a funcionalidade padrão

EndIf

EndIf


If MsgYesNo(IIf(lFaseConfer,STR0129,STR0124)) // "Deseja avançar orçamento para conferência ?" / "Deseja transferir orçamento ?"

VS1->(dbGoTo(nAuxRecVS1))

If M->VS1_TRFRES <> "1" .and. !lJDPrism // Se nao é Reserva de Itens automatica e Não é JD PRISM

If lFaseReserv .and. MsgYesNo(STR0125) // Existe a Fase de Reserva e Pergunta se "Deseja reservar peças ?"

If !OM430RESITE(.t.,.t.)

DisarmTransaction()

Return .f.

Endif

EndIf

EndIf

RecLock("VS1",.f.)

If lFaseConfer

VS1->VS1_STATUS := cFaseConfer // Aguardando conferencia

Else

VS1->VS1_STATUS := "F" // Pronto para Transferir

Endif

VS1->(MsUnLock())

EndIf

EndIf

Programa Fonte:

OFIOM430.PRW

Função:

FS_OK()

Parâmetros:

N/A

Retorno:
NomeTipoDescrição
lRet

Lógico

Retorna se o processo de conferência/transferência da rotina deve prosseguir ou não, onde .t. prosseguirá e .f. não prosseguirá.

Exemplo:

Include totvs.ch

/*

===============================================================================================

###############################################################################################

##+----------+------------+-------+---------------------------------------+------+----------+##

##|Função | OM430AVA | Autor | MIL | Data | 13/02/2020 |##

##+----------+------------+-------+---------------------------------------+------+----------+##

##|Descrição | Ponto de entrada OM430AVA localizado na rotina Transf. de Pecas (OFIOM430) |##

##| | que realizará uma validação após gravar o Orçamento e determinará se o |##

##| | mesmo deve seguir para conferência/transferência ou não |##

##+----------+------------------------------------------------------------------------------+##

###############################################################################################

===============================================================================================

*/

User Function OM430AVA()

Local lRet := .t.


MsgInfo("O Ponto de Entrada OM430AVA foi executado.","Ponto de Entrada OM430AVA")


Return lRet