option explicit





sub DetalleProductosCotizados_EMail()

stop

	' Iniciar Outlook. 

	' Si ya se está ejecutando, utilizará la misma instancia... 

	Dim olApp 'As Outlook.Application 

	Set olApp = CreateObject("Outlook.Application")

    

	'Inicio de sesión. No importa si ya lo está ejecutando y tiene iniciada una sesión... 

	Dim olNs 'As Outlook.NameSpace 

	Set olNs = olApp.GetNamespace("MAPI") 

	olNs.Logon

'

'	' Crear y abrir un contacto nuevo. 

'	Dim olItem 'As Outlook.ContactItem 

'	Set olItem = olApp.CreateItem(olContactItem)

'

'	'Configurar la información de contacto... 

'	With olItem 

'		.FullName = "James Smith" 

'		.Birthday = "9/15/1975" 

'		.CompanyName = "Microsoft" 

'		.HomeTelephoneNumber = "704-555-8888" 

'		.Email1Address = "alguien@microsoft.com" 

'		.JobTitle = "Developer" 

'		.HomeAddress = "111 Main St."

'	End With

'  

'	' Guardar el contacto... 

'	olItem.Save

'   

'	' Crear una nueva cita. 

'	Dim olAppt 'As Outlook.AppointmentItem 

'	Set olAppt = olApp.CreateItem(olAppointmentItem)

'   

'	' Establecer la hora de inicio 2 minutos a partir de ahora... 

'	olAppt.Start = Now() + (2# / 24# / 60#)

'    

'	' Configurar la información de  otra cita... 

'	With olAppt 

'		.Duration = 60 

'		.Subject = "Reunión para discutir los planes..." 

'		.Body = "Reunión con ? para discutir los planes." 

'		.Location = "Oficina doméstica" 

'		.ReminderMinutesBeforeStart = 1 

'		.ReminderSet = True 

'	End With

'    

'	' Guardar la cita... 

'	olAppt.Save

'    

	' Enviar un mensaje al nuevo contacto. 

	Dim olMail 'As Outlook.MailItem 

	Set olMail = olApp.CreateItem(olMailItem) 

	

	' Rellenar y enviar el mensaje... 

	olMail.To = "lsardi@toyota.com.ar" 

	olMail.Subject = "Acerca de nuestra reunión..." 

	olMail.Body = "Estimado/a"

	olMail.Send

    

	' Limpiar... 

	MsgBox "Todo terminado...", vbMsgBoxSetForeground 

	olNS.Logoff 

	Set olNs = Nothing 

	Set olMail = Nothing 

'	Set olAppt = Nothing 

'	Set olItem = Nothing 

	Set olApp = Nothing



end sub



' impedir modificar una orden que no esta en estado pendiente

function VUI_DetalleProductosCotizados_OnEndEditEvent(byval sNameUI)

	VUI_DetalleProductosCotizados_OnEndEditEvent = VUI_OTP_OnEndEditEvent(sNameUI)	

end function







public sub DetalleProductosCotizados_VUI_OnHtmlRefresh(byval sNameUI)

	dim sHtml

	dim oObject

	dim oFactura 

	

	' obtengo el objeto del que habla la UI

	if ( sNameUI = sSTANDAR_UI ) then

		set oObject = oApp.oUIs.Item(sNameUI).oViewUI.oObjectSelected

	else

		set oObject = oApp.oUIs.Item(sNameUI).oObject

	end if	



	' verifico haber obtenido un objeto

	if not oObject is nothing then

		' armo la factura

		set oFactura = new CDetalleProductosCotizados

		set oFactura.oObject = oObject

		

		' asigno el html

		oApp.oUIs.Item(sNameUI).oViewUI.SetHtmlText oFactura.sHtml()

	else

		call base_VUI_OnHtmlRefresh(sNameUI)

	end if

end sub





' Actualiza los items, asignando a cada uno el precio que le corresponde, en base al precio del producto y las listas de precios.

public sub WF_RefreshInvoicePrices()



	dim oOte

	dim oItems

	dim oItem

	dim oPrecio

	

	for each oOte in oGeneratedObjects

	

		set oItems = oOte.oViewProperty("items")

			

		Call oItems.Open() ' Intenta abrir la vista

		If oItems.IsOpen() Then ' Si la vista pudo abrirse

			If Not oItems.IsEOF() Then 

				Call oItems.MoveFirst() ' Se posiciona

				Do While Not oItems.IsEOF() ' Recorre la vista

					set oItem = oItems.oObject()



					' BUG:	A partir de la version 1.1.x.x, las vistas manejas un buffer independiente del storage.

					'		Esto genera el problema cuando se saca un objeto de una vista se modifica y se manda a guardar,

					'		no se guardan los cambios porque se esta usando el del buffer de la vista que es diferente al

					'		del buffer del storage.

'					set oItem = oApp.oStorage.LoadObject(oItem.sClassName, "id='"& oItem.oSimpleProperty("id").sValue &"'")



					set oPrecio = oPrecioProductoParaItem( oOte, oItem )

						

					oItem.oSimpleProperty("id_moneda").sValue = oPrecio.oSimpleProperty("id_moneda").sValue

					oItem.oSimpleProperty("precio_unitario").fValue = oPrecio.oSimpleProperty("precio").fValue

                    oItem.oSimpleProperty("precio_unitario_referencia").fValue = oItem.oSimpleProperty("precio_unitario").fValue * oPrecio.oObjectProperty("id_moneda").oSimpleProperty("factor").fValue



					oItem.save



					call oItems.MoveNext()

				loop

			end if

		end if



	next

	

end sub