Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 52

changes.mady.by.user Otavio de Albergaria B. Favarelli

Gravado em

comparado com

Nova versão 53

changes.mady.by.user Otavio de Albergaria B. Favarelli

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

Este Ponto de Entrada está localizado na rotina Orçamento por Fases (OFIXA011) e é executado ao se confirmar a janela de exportação do orçamento de oficina para a ordem de serviço. O mesmo permite criar validações customizadas após a confirmação da janela de exportação do orçamento de oficina para a ordem de serviço.

Localização:

Atualizações \ Mov Oficina \ Orc. Por Fases (OFIXA011)

Eventos:

RestArea( aArea )

if nOpcao == 1

if nNovaOS == 1

cRet := ""

cValKil := Left(GetNewPar("MV_VKILHOR","SN"),1)

if cValKil == "S" .or. (cValKil == "P" .and. !Empty(M->VS1_KILOME))

nUltKil := FG_ULTKIL(M->VS1_CHAINT)

If nUltKil > M->VS1_KILOME

MsgInfo( STR0183+" ("+Transform(M->VS1_KILOME,"@E 999,999,999")+" ) "+STR0184+" ("+Transform(nUltKil,"@E 999,999,999")+" )!",STR0025) //KM/hora informada # menor que da OS anterior

cRet := "ret"

EndIf

endif

Else

cRet := cNumOS

Endif

// Ponto de Entrada para Validação após a Tela de Exportação

If ExistBlock("OX001VEX")

If !ExecBlock("OX001VEX", .f., .f., {nNovaOS, cNumOS})

cRet := "ret"

EndIf

EndIf

Else

cRet := "ret"

Endif

Return(cRet)

Programa Fonte:

OFIXX001.PRW

Função:

OX001FAT()

Parâmetros:
NomeTipoDescrição
nNovaOSNuméricoInforma se o orçamento está sendo exportado para uma ordem de serviço nova ou já existente, onde 1=Nova e 2=Existente
cNumOSCaractereNúmero da Ordem de Serviço

Retorno:

NomeTipoDescrição
lRetLógico

Informa se a exportação deverá continuar ou não de acordo com a validação criada no ponto de entrada, onde .t. = continua e .f. aborta

Exemplo:

Include totvs.ch

/*

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

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

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

##|Função | OX001VEX | Autor | MIL | Data | 02/01/19 |##

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

##|Descrição | Customizar validações após a confirmação da tela de |##

##+----------| exportação - (Orcamento por Fases - OFIXX001) |##

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

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

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

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

*/

User Function OX001VEX()

Local nNovaOS := ParamIxb[1] // 1-Nova / 2-Existente

Local cNumOS := ParamIxb[2] // Número da OS

Local lRet := .t.

MsgInfo("Ponto de entrada OX001VEX executado com sucesso!", "Atenção")

Return lRet