Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: OX004RIT - Anular reserva do item no Faturamento
Descrição: Ponto de Entrada localizado na rotina Orçamento de Peças e Serviços (OFIXX001), executado antes da movimentaçao de anular reserva do item no faturamento, com a finalidade de questionar a operação. Eventos User Function OX001AEX() cOrc := ParamIXB[1] lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”) return lRet Programa Fonte OFIXX004.PRW Sintaxe OX004RIT - Anular reserva do item no Faturamento ( [ cOrc ] ) --> lRet Parâmetros:
Retorno
Observações DBSelectArea("VS1") DBSetOrder(1) DBSeek(xFilial("VS1")+cOrcOrcT) // If ExistBlock("OX04RESITE") // O B S O L E T O lOkReserv := ExecBlock("OX04RESITE",.F.,.F.,{VS1->VS1_NUMORC}) Endif If ExistBlock("OX004RIT") lOkReserv := ExecBlock("OX004RIT",.F.,.F.,{VS1->VS1_NUMORC}) Endif // DBSelectArea("VS1") DBSetOrder(1) DBSeek(xFilial("VS1")+cOrcOrcT) // If lOkReserv if At("R",OI001GETFASE(VS1->VS1_NUMORC)) != 0 cRetRes := OX001RESITE(VS1->VS1_NUMORC,.f.) if Empty(cRetRes) DisarmTransaction() Return .f. EndIf endif Endif Variáveis
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas