Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: OX001DEX - Exportação para OS
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: 
Este Ponto de Entrada está localizado na rotina Orçamento de Peças e Serviços (OFIXX001), executado depois da exportação para OS, com a finalidade de realizar a gravação de log.
Eventos
User Function OX001DEX()
 
MsgInfo(“Ponto de Entrada OX001DEX”,”Atencao”)
return nil 
Programa Fonte 
OFIXX001.PRW
Sintaxe

OX001DEX - Exportação para OS ( [ ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    ()
Observações
 DBSelectArea("VS1")
DBSetOrder(1)
DBSeek(xFilial("VS1")+cOrcAtu)
reclock("VS1",.f.)
cVS1StAnt := VS1->VS1_STATUS
VS1->VS1_STATUS := "I"
msunlock()
 
If FindFunction("FM_GerLog")
//grava log das alteracoes das fases do orcamento
FM_GerLog("F",VS1->VS1_NUMORC,,VS1->VS1_FILIAL,cVS1StAnt)
EndIF
// ------------------------------------------------------------------------------------------------------------
END TRANSACTION // --------F-I-N-A-L---D-A---T-R-A-N-S-A-C-A-O-------------------------------------------------
// ------------------------------------------------------------------------------------------------------------
ConfirmSX8()
MsgInfo(STR0093 ,STR0025)
FG_PEDORD(VO1->VO1_NUMOSV,"N","S")
 
if ExistBlock("OX001DEX") // Depois da Exportacao
ExecBlock("OX001DEX",.f.,.f.)
Endif
 
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não