Unnamed

precoTotal
	"Informa o Preço total do Pedido"
	
	| indice total item totalItens |
	indice := 1.
	total := 0.
	totalItens := listaItens size.
	[ indice <= totalItens ] whileTrue:
		[
			item := listaItens at: indice.
			total := total + item preco.
			indice := indice + 1.
		].
	
	^ total