begin
  if ((self.FormaOperacao in [SaiServAbertura, SaiServFechamento, SaiServMovimento]) and
      (TdmVenSaidas(Fcontrol1.DataCenter).cdsParamGeraisE_VEN_CONTROLE_VEICULOS.AsString = 'S') and (Fcontrol1.Estado = EsInsert)) then
  begin
    vPlaca := TMensagem.ConfirmarComEntrada('Informe a placa:').Replace('-', '').Replace(' ', '').ToUpper();

    try
      vSQLPesq := TFSQLDataSet.Create(self);
      vSQLPesq.SQLConnection := dmDDB.SQLConection;
      vSQLPesq.CommandText := 'select CLIENTE, PLACA from CAD_VEICULOS where EMPRESA = :EMPRESA and Replace(PLACA, ''-'', '''') = :PLACA';
      vSQLPesq.ParamByName('EMPRESA').AsInteger := dmDDB.Empresa_Logada;
      vSQLPesq.ParamByName('PLACA').AsString := vPlaca;
      vSQLPesq.Open;

      if not vSQLPesq.IsEmpty then begin
        if not vSQLPesq.FieldByName('CLIENTE').IsNull then
          TdmVenSaidas(Fcontrol1.DataCenter).cdsCadastroCLIENTE.AsInteger := vSQLPesq.FieldByName('CLIENTE').AsInteger;
        TdmVenSaidas(Fcontrol1.DataCenter).cdsCadastroPLACA.AsString := vSQLPesq.FieldByName('PLACA').AsString;
      end
      else if (vPlaca <> '') then
        if (TMensagem.Confirmar('Veculo no encontrado. Gostaria de cadastrar um novo com esta placa?' + sLineBreak + 'Deseja continuar?',
            moSim) = moSim) then begin
          vForm := TfrmCadVeiculos(NewForm(TfrmCadVeiculos, TdmCadVeiculos, self, 20, TMenuItem(Sender)));
          TdmCadVeiculos(vForm.Fcontrol1.DataCenter).cdsCadastroPLACA.AsString := vPlaca;
          vForm.Fcontrol1.Estado := EsInsert;
        end;
    finally
      FreeAndNil(vSQLPesq)
    end;
  end;

  setBotaoImprimir;