| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: OX001RES - Reserva do Produto
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:
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
|
