Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada para validar se deve ou não exibir a consulta de Kit.

Localização:

Atualizações \ Mov Oficina \ Orçamento por Fases

Eventos:

if Len(aItensKit) == 0 .and. !lOX001Auto .and. IIF(lInconveniente,( Empty(M->VS3_CODINC) .and. Empty(M->VS3_DESINC) ),.t.)

cReadTmp := __readvar

If ExistBlock("OX001PIK") // PE para falar se permite importar Kit para um determinado Item (linha da grid de Pecas)

lKitImp := ExecBlock("OX001PIK",.f.,.f.,Nil)

EndIf

If ExistBlock("OX001VKT") // PE para validar se deve exibir a tela de consulta de kit, ao retornar .T. ou .F.

lExibeKit := ExecBlock("OX001VKT",.f.,.f., {M->VS3_GRUITE, M->VS3_CODITE})

Endif

If lExibeKit

aItensKit := OFIOC040(M->VS3_GRUITE, M->VS3_CODITE, lKitImp)

Endif

__readvar := cReadTmp

// Caso existam kits, deve-se setar o parâmetro de rotina automática para preencher os itens

nValKit := 0

nPDsKit := 0

if Len(aItensKit) > 0

Programa Fonte:

OFIXA011.PRW

OFIXX001.PRW

Função:

OX001FPOK()

Parâmetros:
NomeTipoDescrição

Array [1]

Caractere

Grupo - M->VS3_GRUITE

Array [2]Caractere

Item - M->VS3_CODITE

Retorno:
NomeTipoDescrição

lExibeTela

Lógico

Retorna Verdadeiro ou Falso

Exemplo:

Include totvs.ch

#Include "Protheus.ch"

User function OX001VKT()

Local aParam := PARAMIXB

Local cGrupo := alltrim(aParam[1])

Local cItem := alltrim(aParam[2])

Local aIteNPerm := {}

Local lExibeTela := .T.

Local i


// Grupo e Item Não Permitidos

aadd(aIteNPerm, {'JD', '000005'})

aadd(aIteNPerm, {'JD', '000006'})

aadd(aIteNPerm, {'AGCO', '000007'})


For i := 1 to Len(aIteNPerm)

If aIteNPerm[i][1] == cGrupo .AND. aIteNPerm[i][2] == cItem

lExibeTela := .F.

Exit

Endif

Next

Return lExibeTela