Histórico da Página

Descrição

Este Ponto de Entrada está localizado na rotina Orçamento por Fases (OFIXA011) e permite bloquear a Clonagem de Orçamentos.

Observações

Exemplos

#include "Protheus.ch"

User Function OX011CLONE()

// Este exemplo serve para um caso onde o Cliente queira barrar a Clonagem de Orçamentos com STATUS diferente de Aberto
// Barrando o processo de Clonagem
If VS1->VS1_STATUS <> "0"

MsgInfo("Não é permitida a clonagem de Orçamentos com Status diferente de Aberto!","Atenção")
Return .f.

Endif
Return .t.

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

Retorno

.T. ou .F.

Eventos de chamada do Ponto de Entrada

Function OXA011CLO(cAlias,nReg,nOpc,lPediVenda,lLibPV)
//
Local nCntFor,nCntFor2
Local cOrcOri := VS1->VS1_NUMORC
Local lAtuClo := .t.
Local nQtItOri:= 0

Default nOpc := ""
Default lPediVenda := .f. // Quando esta função é chamada para Clonar no Pedido de Venda (OFIXA018) este parâmetro vem com .T.
Default lLibPV := .f. // Quando esta função é chamada para Liberar no Pedido de Venda (OFIXA018) este parâmetro vem com com .T.

if lLibPV
DBSelectArea("VS3")
DBSetOrder(1)
DBSeek(xFilial("VS3")+cOrcOri)
aRecNos := {}
lNaoClona := .t.
while !eof() .and. VS3->VS3_FILIAL+VS3->VS3_NUMORC == xFilial("VS3")+cOrcOri
SB1->(DBSetOrder(7))
SB1->(DBSeek(xFilial("SB1")+VS3->VS3_GRUITE+VS3->VS3_CODITE))
nSaldo := OX001SLDPC(xFilial("SB2")+SB1->B1_COD+VS3->VS3_LOCAL)
if nSaldo < VS3->VS3_QTDITE
lNaoClona := .f.
endif
DBSelectArea("VS3")
DBSkip()
enddo
if lNaoClona
MsgStop(STR0072)
return .f.
endif
endif
//
if ExistBlock("OX011CLONE")
if !ExecBlock("OX011CLONE",.f.,.f.)
Return(.t.)
Endif
Endif

Variáveis

Programa Fonte

OFIXA011