Ponto-de-Entrada: OX001RES - Reserva do Produto
| 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:
Este Ponto de Entrada está localizado na rotina Orçamento de Peças e Serviços (OFIXX001).Ao ser executado, tem como finalidade desviar e não fazer a reserva, pois há específicos que podem fazer a reserva do produto on-line.
Eventos
User Function OX001RES()
MsgInfo(“Ponto de Entrada OX001RES”,”Atencao”)
return nil
Programa Fonte
OFIXX001.PRW
Sintaxe
OX001RES - Reserva do Produto ( [ ] )
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
()
Observações
Function OX001RESITE(cNumOrc,lRes)
Local cDocumento := ""
Local aItensNew := {}
Local aAuxItens := {}
//+------------------------------------------------------------+
//| PE para desviar e não fazer a reserva, pois há especifícos |
//| que podem fazer a reserva do produto on-line. |
//+------------------------------------------------------------+
if ExistBlock("OX001RES")
cDocumento := ExecBlock("OX001RES",.F.,.F.)
Endif
If ! Empty( cDocumento )
Return( cDocumento )
Endif
cDocumento := Criavar("D3_DOC")
cDocumento := IIf(Empty(cDocumento),NextNumero("SD3",2,"D3_DOC",.T.),cDocumento)
cDocumento := A261RetINV(cDocumento)
//
DBSelectArea("VS1")
DBSetOrder(1)
DBSeek(xFilial("VS1")+ cNumOrc)
//
cFaseOrc := OI001GETFASE(VS1->VS1_NUMORC)
nPos4 := At("4",cFaseOrc)
nPosAtu := At(VS1->VS1_STATUS,cFaseOrc)
if nPos4 < nPosAtu .and. nPos4 > 0
lVerConf := .t.
else
lVerConf := .f.
endif
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |