OX001PIK Ponto de Entrada executado ao chamar a tela dos Kits pela rotina Orc. Por Fases (OFIXA011)

Ponto de Entrada

Descrição:

Ponto de Entrada na rotina de Orçamento por Fases, executado ao chamar a tela dos Kits, utilizado para permitir ou não a importação dos Kits.

Localização:

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

Eventos:

Local lKitImp := .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.,)

EndIf

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

...

Programa Fonte:

OFIXX001 .PRW

Função:

OX001FPOK()

Parâmetros:

Não há.

Retorno:

Nome	Tipo	Descrição
lRet	Lógico	.t. permite importar os Kits / .f. não permite importar os Kits

Exemplo:

/*

Ponto de Entrada na rotina de Orcamento por Fases, executado ao chamar a tela

dos Kits, utilizado para permitir ou não a importação dos Kits.

*/

User Function OX001PIK()

Local lRet := .t.

/*

lRet := .f. // Não permite importar os Kits

*/

//

MsgInfo("Ponto de Entrada OX001PIK executado com sucesso!")

//

Return lRet