Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: OX001IOR - Exportação de Peças para o Orçamento
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: 
Localização: Ponto de entrada executado na rotina Orçamento de Peças e Serviços(OFIXX001), executado após a Exportação das Peças para o Orçamento.Finalidade: Alertar o usuário a exportação.
Eventos
 User Function OX001IOR()
 
cNumOSV := ParamIXB[1]
MsgInfo(“Ponto de Entrada OX001IOR",”Atencao”)
return
 
Programa Fonte 
OFIXX001.PRW
Sintaxe

OX001IOR - Exportação de Peças para o Orçamento ( [ cNumOSV ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cNumOSV Numérico Numero da Ordem de Servico
Retorno
    ()
Observações
  DBSelectArea("VS1")
DBSetOrder(1)
DBSeek(xFilial("VS1")+cOrcAtu)
reclock("VS1",.f.)
VS1->VS1_NUMOSV := VO1->VO1_NUMOSV
msunlock()
//
lMSErroAuto := .f.
//
if FM_IMPVSJ( @aItensNImp , VS1->VS1_NUMORC , VO1->VO1_NUMOSV )
if Len(aItensNImp[2]) > 0
if !lOX001Auto
if MsgYesNo(STR0092,STR0025)
FM_IPECNDISP(aItensNImp)
endif
endif
endif
else
DisarmTransaction()
return .f.
endif
If ExistBlock("OX001IOR")
ExecBlock("OX001IOR",.f.,.f.,{VO1->VO1_NUMOSV})
Endif
//
DBSelectArea("VS1")
DBSetOrder(1)
DBSeek(xFilial("VS1")+cOrcAtu)
reclock("VS1",.f.)
cVS1StAnt := VS1->VS1_STATUS
VS1->VS1_STATUS := "I"
msunlock()
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não