FMABREOS Ponto de Entrada utilizado para possibilitar fazer alterações e inclusão de informações na tabela VO1 no registro da OS que acaba de ser aberta

Descrição:

Este ponto de entrada está localizado na função que faz a criação da Ordem de Serviço quando é feita a exportação do orçamento de oficina para a OS possibilitando  fazer alterações e inclusão de informações na tabela VO1 no registro da OS que acaba de ser aberta.

Eventos:

Function FM_ABREOSV( _aCodErro , _cFilial , _cChaInt , _nKilomet , _cCodCli , _cLojCli , _cOBSMem, _dDatEnt, _nHorTri, _lConfirmSX)

Local aArea := {}

Local nUltKil := 0

Local cRet := ""

Default _cFilial := xFilial("VO1")

Default _cCodCli := NIL

Default _cLojCli := NIL

Default _cOBSMem := ""

Default _aCodErro := {}

Default _dDatEnt := Ctod("")

Default _nHorTri := 0

Default _lConfirmSX := .T.

If len(_aCodErro) <= 0

Aadd(_aCodErro,"") // 1 - Nome da Funcao que ocorreu o Erro

Aadd(_aCodErro,"") // 2 - Mensagem referente ao Erro

EndIf

// -----------------------------------------

// ARMAZENA AREAS PARA RESTAURACAO POSTERIOR

// -----------------------------------------

aArea := sGetArea(aArea,"VV1")

aArea := sGetArea(aArea,"SA1")

aArea := sGetArea(aArea,"VO1")

aArea := sGetArea(aArea,"VAI")

aArea := sGetArea(aArea,"SYP")

If !Empty(Alias())

aArea := sGetArea(aArea,Alias())

EndIf

.

.

.

.

.

dbSelectArea("VA8")

dbSetOrder(1)

if dbSeek(xFilial("VA8")+space(Len(VO1->VO1_NUMOSV))+VO1->VO1_PLAVEI)

dbSelectArea("VA8")

Reclock("VA8",.f.)

VA8->VA8_NUMOSV := VO1->VO1_NUMOSV

MsUnlock()

Endif

If VSR->(FieldPos("VSR_PLAVEI")) # 0

dbSelectArea("VSR")

dbSetOrder(2)

if dbSeek(xFilial("VSR")+space(Len(VO1->VO1_NUMOSV))+VO1->VO1_PLAVEI)

dbSelectArea("VSR")

Reclock("VSR",.f.)

VSR->VSR_NUMOSV := VO1->VO1_NUMOSV

MsUnlock()

Endif

Endif

// -------------------------------------------------------------------

// PE para gravar novos campos ou manipular o VO1 criado anteriormente

// -------------------------------------------------------------------

If ExistBlock("FMABREOS")

ExecBlock("FMABREOS",.f.,.f.)

EndIf

Função:

FM_ABREOSV()