OX001VPP - Validação de O.S. Antes da Exportação

Este Ponto de Entrada permite validar  O.S. antes da exportação. Se existir, sobrepõe a verificação de Proprietário do Veículo X Pro. Atual da O.S.

OFIXX001

OX001VPP - Validação de O.S. Antes da Exportação ( [ ] ) --> lRet

lRet(logico)
• Continua ou Aborta Operação

dbSelectArea("VV1")dbSetOrder(1)dbSeek(xFilial("VV1")+cChassiInt)if VO1->VO1_CHAINT <> cChassiInt	if !lOX001Auto		MsgStop(STR0111)	endif	sRestArea(aArea)	Return(.f.)endif//// Validação do proprietario. Caso a concessionaria possua regras proprias de validação, executa o PE,// caso contrário realiza a verificação padrão//if ExistBlock("OX001VPP")	if !ExecBlock("OX001VPP",.f.,.f.)		Return(.f.)	Endifelse	if	VO1->VO1_PROVEI <> VV1->VV1_PROATU .or. ;		VO1->VO1_LOJPRO <> VV1->VV1_LJPATU		if !lOX001Auto			MsgStop(STR0112)		endif		sRestArea(aArea)		Return(.f.)	endifendif//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³Query utilizada para verificar se deve validar os tipos de tempo de peca, servico ou ambos³//³verificacao deve ser feita pois agora existe TT de peca e TT de servico                   ³//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙcQuery := "SELECT COUNT(VS3.VS3_NUMORC) CONTVS3, COUNT(VS4.VS4_NUMORC) CONTVS4 "cQuery +=  " FROM "+RetSQLName("VS1")+" VS1 LEFT JOIN "+RetSQLName("VS3")+" VS3 ON VS3_FILIAL = '"+xFilial("VS3")+"' AND VS3_NUMORC = VS1_NUMORC AND VS3.D_E_L_E_T_ = ' '"cQuery += 											" LEFT JOIN "+RetSQLName("VS4")+" VS4 ON VS4_FILIAL = '"+xFilial("VS4")+"' AND VS4_NUMORC = VS1_NUMORC AND VS4.D_E_L_E_T_ = ' '"cQuery += " WHERE VS1.VS1_FILIAL = '"+xFilial("VS1")+"'"cQuery +=   " AND VS1.VS1_NUMORC = '" + cOrcAtu + "'"cQuery +=   " AND VS1.D_E_L_E_T_ = ' '"dbUseArea( .T., "TOPCONN", TcGenQry( ,, cQuery ), cQMOVPS, .F., .T. )(cQMOVPS)->(dbGoTop())if !(cQMOVPS)->(Eof())	if (cQMOVPS)->CONTVS3 > 0		// Validacao do Tipo de Tempo das Pecas		lValidTTPeca := .t.	endif		if (cQMOVPS)->CONTVS4 > 0 .and. cTipTem <> cTipTemSrv		// Validacao do Tipo de Tempo dos Servicos		lValidTTServ := .t.	endifendif