milardovich

TP Paradigmas - Clase Distribuidor

Nov 20th, 2012
130
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. carga
  2. codigo := Prompter prompt: 'Ingrese código del nuevo distribuidor: ' default: ''.
  3. nombre := Prompter prompt: 'Ingrese nombre del nuevo distribuidor: ' default: ''.
  4. zona := Prompter prompt: 'Ingrese zona del nuevo distribuidor: ' default: ''.
  5. valorEntrega := (Prompter prompt: 'ingrese valor de entrega: ' default: '') asFloat.
  6.    
  7. devDistribuidor
  8. ^nombre
  9.    
  10. devEntrega
  11. ^valorEntrega.
  12.  
  13. devZona
  14. ^zona
Advertisement
Add Comment
Please, Sign In to add comment