Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
OX001IOR - Exportação de Peças para o Orçamento
OX001IOR - Exportação de Peças para o Orçamento

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
cNumOSVNuméricoNumero 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
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão