Efetua Pagamento

Deve ser passado o valor e a forma de pagamento. Se o valor informado for maior do que o cupom o Troco será calculado automaticamente.

Exemplo

Procedure TForm1.EfetuaPagto1Click(Sender: TObject);
begin
    ACBrECF1.EfetuaPagamento( edCod.Text, StrToFloat( edValor.Text), edObs.Text ,cbVinc.Checked );
end;