Histórico da Página

Descrição

Ponto de entrada depois da gravação dos dados do fechamento, dentro da transação, na rotina Fechamento de OS Modelo 2.

Observações

Exemplos

#include "Protheus.ch"

User Function OX100DGR()

MsgInfo("Ponto de Entrada depois da gravação do fechamento, dentro da transação.")

Return

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

Eventos de chamada do Ponto de Entrada

// tratamento de controle de status de veiculos soh se estiver abrindo OS para um veiculo que esta no estoque
If VO1->VO1_STATUS == "F" // somente para fechamento total da OS
VV1->(DbsetOrder(1))
VV1->(Dbseek(xFilial("VV1")+VO1->VO1_CHAINT))
If FG_STATUS(,"X") .and. VV1->VV1_SITVEI $ "0 "
FG_STATUS(VO1->VO1_CHAINT,"O")
Endif

// Finaliza Agendamento
OX100FAGEN(VO1->VO1_NUMOSV)
//
Endif

// Tratamento de Garantia ...
If !OX100IMPGA( aVetTTPnCntFor,ATT_NUMOSV , aVetTTPnCntFor,ATT_TIPTEM )
DisarmTransaction()
MsUnlockAll()
Return .f.
EndIf
//

Next nCntFor

Next nCntTipTem
//

If ExistBlock("OX100DGR")
ExecBlock("OX100DGR",.f.,.f.)
Endif
//

End Transaction

Variáveis

Programa Fonte

OFIXX100.PRW