Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- agregaItem:item
- conjArticulos add: item.
- carga:client and: dist
- | tmpZona |
- cliente := client.
- tmpZona := cliente devZona.
- distribuidor := dist.
- conjArticulos := OrderedCollection new.
- fecha := Date today.
- devArticulo
- ^conjArticulos
- devCliente
- ^cliente
- devDistribuidor
- ^distribuidor
- devFecha
- ^fecha
- devNombre
- cliente devNombre.
- devTotal
- | tmpTotal tmpEntrega |
- tmpTotal := 0.
- tmpEntrega := distribuidor devEntrega.
- conjArticulos do: [:i | Transcript show: (((i devArticulo devPrecio) * i devCantidad)+tmpEntrega) printString].
Advertisement
Add Comment
Please, Sign In to add comment
