Código Delphi [-] procedure asientos({parametros originales}; var r_dinero: Integer; var r_porcenta: Integer); ... r_dinero:={lo q sea}; r_porcenta:={lo q sea};
procedure asientos({parametros originales}; var r_dinero: Integer; var r_porcenta: Integer); ... r_dinero:={lo q sea}; r_porcenta:={lo q sea};