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 |