Ponto-de-Entrada: OPM040AI - Validações no inicio do Inventario de Peças
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
Descrição:
Ponto de Entrada na rotina Inventario de Peças (OFIPM040) executado ao iniciar o Inventário, com a finalidade de checar se o Inventário pode ser iniciado.
Eventos
Static Function FS_INICIAR()
Local lOk := .t.
Local lVPF := .t.
Local ni := 0
Local cGruVei := left(GetNewPar("MV_GRUVEI","VEI")+space(10),len(SB1->B1_GRUPO))
Local cGruSrv := left(GetNewPar("MV_GRUSRV","SRVC")+space(10),len(SB1->B1_GRUPO))
Local cArmRes := left(GetMV("MV_RESITE")+space(10),len(SB2->B2_LOCAL))
Local cArmBlq := left(GetMV("MV_BLQITE")+space(10),len(SB2->B2_LOCAL))
Local cQuery := ""
Local cQAlSB1 := "SQLSB1"
Local lSBZ := ( SuperGetMV("MV_ARQPROD",.F.,"SB1") == "SBZ" )
If MsgYesNo(STR0027,STR0001+" - "+Transform(dDataBase,"@D")) .and. Pergunte(cPergInvent) // "Deseja selecionar os Itens para o Inventario?" / "INVENTARIO"
// ponto de entrada Antes do Inventario
if ExistBlock("OPM040AI") //
if !ExecBlock("OPM040AI",.f.,.f.)
Return(.f.)
Endif
Endif
Programa Fonte
OFIPM040.PRW
Sintaxe
OPM040AI - Validações no inicio do Inventario de Peças ( [ ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
lRet(logico)
- .t. (ok, pode continuar o Inventario).f. (não pode continuar o Inventario)
Observações
User Function OPM040AI()
Local lRet := .t.
MsgInfo(“Ponto de Entrada OPM040AI executado!”,”Atencao”)
return lRet
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |