OX100SEL - Validação dos Tipos de Tempos na rotina Fechamento de OS Modelo 2 (OFIXA100)

Descrição

Este Ponto de Entrada é executado na rotina Fechamento de OS Modelo 2 (OFIXA100) e permite efetuar a validação dos Tipos de Tempos selecionados no Fechamento da OS.

Observações

Exemplos

#include "Protheus.ch"
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³OX100SEL ºAutor ³Microsiga º Data ³ / / º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ P.E para validação dos Tipos de Tempos selecionados no º±±
±±º ³ Fechamento da OS º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ Oficina º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function OX100SEL()
Local lRet := .t.
Local aVetor := ParamIXB[1]

MsgInfo("Ponto de Entrada OX100SEL chamado com Sucesso!","Atenção")

return lRet

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

aVetTTP (vetor com os Tipos de Tempo selecionados)

Retorno

.T. ou .F.

Eventos de chamada do Ponto de Entrada

dbSelectArea("VO1")
dbSetOrder(1)
If !Empty(cSB1NEnc)
MsgAlert(STR0137+CHR(13)+CHR(10)+cSB1NEnc,STR0004) // Item(ns) não encontrado(s) no cadastro de produtos (SB1).
Return .f.
EndIf
//
// Valida os Tipos de Tempos selecionados no Fechamento da OS
//
If ExistBlock("OX100SEL")
If !ExecBlock("OX100SEL",.f.,.f.,\{aVetTTP\})
Return .f.
Endif
EndIf
// Exibe somente os TT Selecionados para faturamento
aAuxSel := \{\}
aLockVOO := \{\}
For nCntFor := 1 to Len(aVetTTP)
If aVetTTP[nCntFor,ATT_VETSEL]
AADD( aAuxSel, aClone(aVetTTP[nCntFor]) )

// Adiciona na matriz para bloquear o registro ...
AADD( aLockVOO , aVetTTP[nCntFor, ATT_NUMOSV] + aVetTTP[nCntFor, ATT_TIPTEM] + aVetTTP[nCntFor, ATT_LIBVOO] )

Variáveis

Programa Fonte

OFIXX100.PRW