Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: OX004RIT - Anular reserva do item no Faturamento
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 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:
Nome Tipo Descrição Default Obrigatório Referência
cOrc Caracter Numero do Orçamento
Retorno
    lRet(logico)
  • Se .t. a operaçao padrão não será realizada.
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
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não