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: |
|
Exemplo:
Include totvs.ch
/*
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