#Include 'Protheus.ch'

User Function MT110BLO()
	
	Local 	cAssunto:= "",;
		 	cEmail	:= "compras@etcterra.com.br",;		// Endereço de envio de e-mail padrão.
	 		cCopia	:= USRRETMAIL(RETCODUSR()),;		// E-mail do solicitante (Irá receber como copiado no e-mail).
	 		cHtm	:= ""									// Mensagem a ser enviada.
			
	Local	lRet	:= .T.,;
			cNome	:= cUserName,; // Nome do Usuário.
			dData	:= Date(),;	// Dta da exclusão.
			cError	:= ''
	
	Private lResult,;
	 		 lOk											// Retorna se conseguiu se conectar ao servidor

	If 	PARAMIXB[1] == 1
	 		 
		DbSelectArea('SC1')
		SC1->(DbSetOrder(1))

		If SC1->(DbSeek(xFilial('SC1') + cNumSc))
		
			While SC1->(!EOF()) .And. SC1->C1_FILIAL == xFilial('SC1') .And. SC1->C1_NUM == cNumSc
			
				RecLock('SC1',.F.)
			
				SC1->C1_XAPROV 	:= cAprov
				SC1->C1_XDTAPRO	:= cData
			
				SC1->(MsUnlock())
		
				SC1->(DbSkip())
		
			EndDO
		
		EndIf
	
	EndIf

Return lRet