Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada está localizado na rotina Solicitação de Garantia, executado no momento da confirmação da função de atualização da Ordem de Serviço, tem como finalidade possibilitar uma validação customizada para continuar com a função de atualização de ordem de serviço. O retorno desse ponto de entrada deve ser um valor booleano, indicando se deve ou não continuar o processamento da rotina.

Localização:

Atualizacao / Mov JD / Garantia JD

Eventos:


if ExistBlock("ONJD15VA")

    aBkpArray := {;
        aClone(aVMCPeca),;
        aClone(aVMCSrvc),;
        aClone(aVMCOutr) ;
    }

    aPE_Peca := IIf( lTemPeca , aClone(oGetPeca:aCols), {} )
    aPE_Srvc := IIf( lTemSrvc , aClone(oGetSrvc:aCols), {} )
    aPE_Outros := IIf( lTemOutr , aClone(oGetOutr:aCols), {} )

    lRet := ExecBlock("ONJD15VA", .f., .f., { { aVMCPeca , aVMCSrvc , aVMCOutr } , { aPE_Peca, aPE_Srvc, aPE_Outros } } )

    // Restaura aCols dos Objetos de Tela
    OFNJD15REST(aBkpAColsP,aBkpAColsS,aBkpAColsO)
    aVMCPeca       := aClone( aBkpArray[1] )
    aVMCSrvc       := aClone( aBkpArray[2] )
    aVMCOutr       := aClone( aBkpArray[3] )

    aBkpArray := aSize(aBkpArray,0)

    if ! lRet
        Return .f.
    endif

EndIf

Programa Fonte:

OFINJD15.PRW

Função:

OFNJD15AOS()

Parâmetros:
  • aParPE[1] - Array contendo os array das Grids superiores de Peça, Serviços e Outros Créditos
NomeTipoDescrição

aParPE[1,1]

Array

Peças da solicitação de garantia

aParPE[1,2]

Array

Serviços da solicitação de garantia

aParPE[1,3]

Array

Outros créditos da solicitação de garantia


  • aParPE[2] - Array contendo os arrays dos Grids inferiores de Peças, Servilos e Outros Créditos (Grids de ajustes e negociação das partes envolvidas em uma solicitação de garantia Especial.)
NomeTipoDescrição
aParPE[2,1]ArrayPeças da solicitação de garantia da grid inferior
aParPE[2,2]ArrayServiços da solicitação de garantia da grid inferior
aParPE[2,3]Array

Outros créditos da solicitação de garantia da grid inferior

Retorno:
NomeTipoDescrição

lRet

Lógico

Indica se deve continuar processamento da função para atualização da ordem de serviço.

Exemplo:

Include totvs.ch

#include "totvs.ch"


user Function ONJD15VA()


local aVMC := paramIXB[1]

local aAjustes := paramIXB[2]


local lRet := .t.


local aPeca_SG := aVMC[1]

local aSrvc_SG := aVMC[2]

local aOutr_SG := aVMC[3]


local aPeca_Ajuste := aAjustes[1]

local aSrvc_Ajuste := aAjustes[2]

local aOutr_Ajuste := aAjustes[3]


MsgInfo("Ponto de Entrada - Validacao Solicitação de Garantia")


if msgyesno("Continua processo de atualizacao")

lRet := .t.

Else

lRet := .f.

endif


Return lRet