OX011CLONE - Bloqueia a Clonagem de Orçamentos

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,cTpMsgVS1)
//
Local nCntFor,nCntFor2
Local cOrcOri := VS1->VS1_NUMORC
Local lAtuClo := .t.
Local nQtItOri:= 0
Local lBo := .F.
Local cCpoSX3 := ""
Local lCodVenAtu := .f.

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 .T.
Default cTpMsgVS1 := IIf(!lPediVenda,"O","P") // Tipo: O-Orcamento / P-Pedido - utilizado apenas para saber qual mensagem sera apresentada ao usuario

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
if VS3->VS3_RESERV <> '1'
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
endif
DBSelectArea("VS3")
DBSkip()
enddo
if lNaoClona
MsgStop(STR0072)
return .f.
endif
endif
//
if ExistBlock("OX011CLONE")
if !ExecBlock("OX011CLONE",.f.,.f.)
Return .f.
Endif
Endif

DBSelectArea("SA1")
DBSetOrder(1)
DBSeek(xFilial("SA1")+VS1->VS1_CLIFAT+VS1->VS1_LOJA)

...

Variáveis

Programa Fonte

OFIXA011