Redução Z

Fecha movimento do dia e emite Redução Z. Deve ser passada a data do movimento 

Exemplo

Procedure TForm1.ReduoZ1Click(Sender: TObject);
begin
    if MessageDlg('A Redução Z pode Bloquear o seu ECF até a 12:00'+#10+#10+
                               'Continua assim mesmo ?',mtWarning,mbYesNoCancel,0) <> mrYes then
        exit ;
    
    if MessageDlg('Você tem certeza ?',mtWarning,mbYesNoCancel,0) <> mrYes then
        exit ;

ACBrECF1.ReducaoZ( now ) ;
end;