buenas tengo un procedimiento que uso para hacer un calculo y llamar otras funciones, el cual lo tengo declarado en interface y lo leo desde otras unidades, el mismo lo llamo y no hace nada, pero si coloco contenido del procedimiento en un boton funciona fino
el procedimiento esta en el
form1tengo el cprocedimiento
Código Delphi
[-]procedure llenaretiqueta(subtotal:Currency);
begin
subtotal:=datos.sqcalcularcoti.FieldByName('totalcoti').AsCurrency;
formeditarcot.etsubtotal.Caption:=FormatCurr('#0,.00',subtotal);
iva:=(subtotal*0.12);
formeditarcot.etiva.Caption:=FormatCurr('#0,.00',iva);
total:=(subtotal+iva);
formeditarcot.ettotal.Caption:=FormatCurr('#0,.00',total);
actualizarmontos(documentonro,total,iva,subtotal);
end;
solo le paso un parametro en formato moneda
lo llamo desde form2, form 2 lo llame de form1 ambos showmodal lo llamo y mando a cerrar el form.
ahora desde el mismo form 1 coloco un nboton y funciona bien
Código Delphi
[-]procedure Tformeditarcot.btnetiquetasClick(Sender: TObject);
begin
subtotal:=datos.sqcalcularcoti.FieldByName('totalcoti').AsCurrency;
etsubtotal.Caption:=FormatCurr('#0,.00',subtotal);
iva:=(subtotal*0.12);
etiva.Caption:=FormatCurr('#0,.00',iva);
total:=(subtotal+iva);
ettotal.Caption:=FormatCurr('#0,.00',total);
actualizarmontos(documentonro,total,iva,subtotal);
end;