Ponto de Entrada
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. |
Localização: | Atualizações / Mov Oficina / Orc. Por Fases |
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 |
Programa Fonte: | VEIFUNC.PRW |
Função: | FM_ABREOSV() |
Parâmetros: | N/A |
Retorno: | N/A |
Exemplo:
Include totvs.ch
User Function FMABREOS()
MsgInfo("Ponto de entrada FMABREOS executado com sucesso!")
Return