import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: OX001DEX - Exportação para OS
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:
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
|